home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / E3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  98 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 bfs9
  18. CASE B='1'
  19. USE GZM
  20. STORE '                ' TO C
  21. DO SC26
  22. CASE B='2'
  23. STORE ' ' TO C
  24. USE YIN
  25. set index to yin1
  26. DO SC27
  27. CASE B='3'
  28. STORE '  ' TO C
  29. USE WX
  30. DO SC28
  31. CASE B='4'
  32. STORE ' ' TO C
  33. USE JDX
  34. set index to jdxsy
  35. DO SC29
  36. CASE B='5'
  37. STORE ' ' TO C
  38. USE GS
  39. set index to gssy
  40. DO SC30
  41. CASE B='6'
  42. STORE '  ' TO C
  43. USE LS
  44. set index to lssy 
  45. DO SC31
  46. CASE B='7'
  47. STORE '  ' TO C
  48. USE DW
  49. set index to dw1
  50. DO SC32
  51. case b='8'
  52. use dm
  53. clear
  54. a=' '
  55. @ 4,20 say "╟δ╩Σ╚δ╙┼╧╚╝╢▒≡┬δ" get a
  56. read
  57. loca for dm1='y' .and. dm2=a
  58. if eof()
  59. @ 4,0 clear
  60. wait '                   ╬▐┤╦╙┼╧╚╝╢▒≡ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  61. loop
  62. endif
  63. clear
  64. @ 4,20 say "╙┼╧╚╝╢▒≡┬δ" get dm2
  65. @ 5,20 say "╙┼╧╚╝╢▒≡─┌╚▌" get dm3
  66. wait '╩╟┤╦┤·┬δ┬≡ú¿ú┘ú»ú╬ú⌐' to w
  67. if w='y'
  68. dele
  69. pack
  70. endif
  71. case b='9'
  72. use dm
  73. clear
  74. a=' '
  75. @ 4,20 say "╟δ╩Σ╚δ╣ñ╫≈└α╨═┬δ" get a
  76. read
  77. loca for dm1='x' .and. dm2=a
  78. if eof()
  79. @ 4,0 clear
  80. wait '               ╬▐┤╦╣ñ╫≈└α╨═ú¼░┤╚╬╥Γ╝ⁿ╖╡╗╪úí'
  81. loop
  82. endif
  83. clear
  84. @ 4,20 say "╣ñ╫≈└ß╨═┬δ" get dm2
  85. @ 5,20 say "╣ñ╫≈└α╨═" get dm3
  86. wait '╩╟┤╦┤·┬δ┬≡ú¿ú┘ú»ú╬ú⌐' to w
  87. if w='y'
  88. dele 
  89. pack
  90. endif
  91. CASE B='0'
  92. LOOP
  93. ENDCASE
  94. STORE '   ' TO B
  95. ENDDO
  96. clos data
  97. RETURN
  98.