home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / A2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  43 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. WAIT '              ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8): ' to B
  14. DO CASE
  15. case b='8'
  16. do jkz13
  17. CASE B='1'
  18. USE YY
  19. DO JKZ11
  20. case b='7'
  21. do whur
  22. CASE B='2'
  23. USE XX
  24. DO JKZ18
  25. CASE B='3'
  26. USE AN
  27. DO JKZ20
  28. CASE B='4'
  29. USE GY
  30. DO JKZ21
  31. CASE B='5'
  32. USE GJ
  33. DO JKZ23
  34. CASE B='6'
  35. USE BJH
  36. DO JKZ24
  37. CASE B='0'
  38. LOOP
  39. ENDCASE
  40. STORE '   ' TO B
  41. ENDDO
  42. RETURN
  43.