home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / A3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  101 lines
  1. SET DEVICE TO SCREEN
  2. SET TALK OFF
  3. STORE '   ' TO B
  4. DO WHILE .NOT. B='0'
  5. CLEAR
  6. @ 1,15 SAY '******************** ┤·  ┬δ ********************'
  7. @ 2,15 SAY 'ú░ú«═╦│÷                      ú▒ú«╣╩╒╧▓┐╬╗┤·┬δ'
  8. @ 3,15 say 'ú▓ú«╩┬╣╩╘¡╥≥┤·┬δ              ú│ú«╬¼╨▐╫Θ┤·┬δ'
  9. @ 4,15 SAY 'ú┤ú«╛½┤≤╧í╣╪┤·┬δ              ú╡ú«╣▄╩⌠┤·┬δ'
  10. @ 5,15 SAY 'ú╢ú«└α╩⌠┤·┬δ                  ú╖ú«╡Ñ╬╗┤·┬δ'
  11. @ 6,15 say "ú╕ú«╙┼╧╚╝╢▒≡┤·┬δ              ú╣ú«╣ñ╫≈└α╨═┤·┬δ"
  12. @ 7,15 say "ú┴ú«╔Φ▒╕▒¿╖╧╘¡╥≥┬δ"
  13. @ 8,15 say '***********************************************'
  14. wait '              ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9,a): ' to B
  15. DO CASE
  16. case b='a'
  17. do bfs7
  18. CASE B='1'
  19. USE GZM
  20. DO JKZ26
  21. CASE B='2'
  22. USE YIN 
  23. set index to yin1
  24. DO JKZ27
  25. CASE B='3'
  26. USE WX
  27. DO JKZ28
  28. CASE B='4'
  29. USE JDX 
  30. set index to jdxsy
  31. DO JKZ29
  32. CASE B='5'
  33. USE GS 
  34. set index to gssy
  35. DO JKZ30
  36. CASE B='6'
  37. USE LS 
  38. set index to lssy
  39. DO JKZ31
  40. CASE B='7'
  41. USE DW 
  42. set index to dw1
  43. DO JKZ32
  44. case b='8'
  45. use dm
  46. a1=.t.
  47. do while a1
  48. k1=' '
  49. k2='          '
  50. a2=.t.
  51. do while a2
  52. clear
  53. @ 4,20 say "╙┼╧╚╝╢▒≡┬δ" get k1
  54. @ 5,20 say "╙┼╧╚╝╢▒≡─┌╚▌" get k2
  55. read
  56. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐' to w
  57. if w<>'y'
  58. loop
  59. endif
  60. appe blank
  61. repl dm1 with 'y',dm2 with k1,dm3 with k2
  62. exit
  63. enddo 
  64. wait '╗╣╩Σ╚δ┬≡ú¿ú┘ú»ú╬ú⌐' to w
  65. if w<>'y'
  66. exit 
  67. endif
  68. enddo 
  69. case b='9'
  70. use dm
  71. a1=.t.
  72. do while a1
  73. k1=' '
  74. k2='          '
  75. a2=.t.
  76. do while a2
  77. clear
  78. @ 4,20 say "╣ñ╫≈└α╨═┬δ" get k1
  79. @ 5,20 say "╣ñ╫≈─┌╚▌" get k2
  80. read 
  81. wait '╩Σ╚δ╡─╩²╛▌╒²╚╖┬≡ú¿ú┘ú»ú╬ú⌐' to w
  82. if w<>'y'
  83. loop
  84. endif
  85. appe blank
  86. repl dm1 with 'x',dm2 with k1,dm3 with k2
  87. exit
  88. enddo 
  89. wait '╗╣╩Σ╚δ┬≡ú¿ú┘ú»ú╬ú⌐' to w
  90. if w<>'y'
  91. exit 
  92. endif
  93. enddo 
  94. CASE B='0'
  95. LOOP
  96. ENDCASE
  97. STORE '   ' TO B
  98. ENDDO
  99. clos data
  100. RETURN
  101.