home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / XL2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  703 b   |  51 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a
  7. read
  8. a=val(a)
  9. do while a<>0
  10. clear
  11. k1='  '
  12. k2='        '
  13. k3='    '
  14. k4='    '
  15. a2=.t.
  16. do while a2
  17. clear
  18. @ 3,1 say "╡Ñ╬╗┤·║┼" get k1
  19. read 
  20. if k1='h'
  21. use dw
  22. do hel1.prg
  23. loop
  24. endif
  25. @ 4,1 say "╝∞▓Θ╚╒╞┌" get k2 pict 'xx.xx.xx'
  26. @ 5,1 say "╢»╨╣┬⌐╡π╩²" get k3
  27. @ 6,1 say "╛▓╨╣┬⌐╡π╩²" get k4
  28. read 
  29. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡(Y/N)' to w
  30. if w<>'y'
  31. loop
  32. endif
  33. exit
  34. enddo a2
  35. j1=substr(k2,4,2)
  36. j2=substr(k2,7,2)
  37. j3=substr(k2,1,2)
  38. k2=j1+'/'+j2+'/'+j3
  39. k2=ctod(k2)
  40. k3=val(k3)
  41. k4=val(k4)
  42. use xl 
  43. appe blank
  44. repl xl1 with k2,xl2 with k1,xl3 with k4,xl4 with k3
  45. a=a-1
  46. enddo 
  47. retu
  48.  
  49.  
  50.  
  51.