home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / DX4.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  888 b   |  56 lines
  1. clear
  2. set talk off
  3. close database
  4. set device to screen
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a pict '999'
  7. read
  8. a=val(a)
  9. do while a<>0
  10. clear
  11. k1='         '
  12. k2=' '         
  13. k3='                    '
  14. k4='        '
  15. k5='          '
  16. a1=.t.
  17. do while a1
  18. clear
  19. @ 2,1 say "╣ñ╫≈┴ε║┼" get k5 pict '##########'
  20. @ 3,1 say "╡τ╧▀▒α║┼" get k1
  21. @ 4,1 say "╩╘╤Θ╚╒╞┌" get k4 pict '99.99.99'
  22. @ 5,1 say "╩╘╤Θ╜ß┬█(║╧╕±╖±(Y/N)" get k2
  23. @ 6,1 say "┤ª└φ╥Γ╝√" get k3
  24. read
  25. wait '╫≈╖╧ú╞ú¼╓╪╨▐╕─ú╪ú ╩Σ╚δ╩²╛▌╒²╚╖ú┌ú¼═╦│÷ú╥ú║' to w
  26. do case 
  27. case w='f'
  28. a=a+1
  29. exit
  30. case w='x'
  31. clear
  32. loop
  33. case w='r'
  34. retu
  35. case w='z'
  36. j1=substr(k4,4,2)
  37. j2=substr(k4,7,2)
  38. j3=substr(k4,1,2)
  39. k4=j1+'/'+j2+'/'+j3
  40. k4=ctod(k4)
  41. use dx
  42. loca for dx7=k1
  43. repl dx9 with k2,dx10 with k3,dx8 with k4
  44. k5=val(k5)
  45. use gzl1 index gzl11
  46. seek k5
  47. repl gzl1a with 'y'
  48. exit
  49. endcase
  50. enddo a1
  51. a=a-1
  52. enddo
  53. retu
  54.  
  55.  
  56.