home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / DX5.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.1 KB  |  60 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a pict '999'
  7. read
  8. a=val(a)
  9. do while a<>0
  10. clear
  11. k='         '
  12. k1='          '
  13. k2='                    '
  14. k3='                '
  15. k4='            '
  16. k5='    '
  17. k6='      ' 
  18. k7='        '
  19. k8='                    '
  20. a1=.t.
  21. do while a1
  22. clear
  23. @ 0,1 say "╡τ╧▀▒α║┼" get k
  24. @ 1,1 say "╡τ╧▀├√│╞" get k1
  25. @ 2,1 say "╡τ╧▀╣µ╕±" get k2
  26. @ 3,1 say "╡τ╧▀╨═║┼" get k3
  27. @ 4,1 say "╞╠╔Φ╖╜╩╜" get k4
  28. @ 5,1 say "╩╘╤Θ╓▄╞┌" get k5 pict '9999'
  29. @ 6,1 say "╩╘╤Θ╡τ╤╣" get k6
  30. @ 7,1 say "═╢▓·╚╒╞┌" get k7 pict '99.99.99'
  31. @ 8,1 say "░▓╫░╡╪╡π" get k8 
  32. read
  33. wait '╫≈╖╧ú╞ú¼╓╪╨▐╕─ú╪ú¼╩Σ╚δ╩²╛▌╒²╚╖ú┌ú¼═╦│÷ú╥ú║' to w
  34. do case
  35. case w='f'
  36. a=a+1
  37. exit
  38. case w='x'
  39. clear
  40. loop
  41. case w='r'
  42. retu
  43. case w='z'
  44. k5=val(k5)
  45. j1=substr(k7,4,2)
  46. j2=substr(k7,7,2)
  47. j3=substr(k7,1,2) 
  48. k7=j1+'/'+j2+'/'+j3
  49. k7=ctod(k7)
  50. use dx
  51. appe blank
  52. repl dx7 with k,dx1 with k1,dx2 with k2,dx3 with k3,dx4 with ì
  53. k4,dx5 with k5,dx6 with k6,dx11 with k7,dx12 with k8,dx8 with k7
  54. endcase 
  55. exit
  56. enddo a1
  57. a=a-1
  58. enddo
  59. retu
  60.