home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / E2.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  952 b   |  47 lines
  1. SET DEVICE TO SCREEN
  2. SET TALK OFF
  3. STORE '   ' TO B
  4. DO WHILE .NOT. B='0'
  5. CLEAR
  6. CLEAR
  7. @ 1,15 SAY '****************╔╛│²╖┤└í╨┼╧ó*****************'
  8. @ 2,15 SAY 'ú░ú«═╦│÷                  ú▒ú«╘┬╘╦╫¬╠¿╩▒' 
  9. @ 3,15 SAY 'ú▓ú«╬¼╨▐╣ñ╩▒╢¿╢ε          ú│ú«▓╔╣║╨┬╔Φ▒╕╨┼╧ó'
  10. @ 4,15 SAY 'ú┤ú«░▓╚½╫ó╥Γ╩┬╧ε          ú╡ú«╡Σ╨═╣ñ╥╒╗π▒α'
  11. @ 5,15 SAY 'ú╢ú«╫¿╙├╣ñ╛▀┐Γ            ú╖ú«╓≈╥¬╔Φ▒╕┐Γ'
  12. @ 6,15 say "*********************************************"
  13. wait  '              ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7):' to B
  14. DO CASE
  15. CASE B='1'
  16. STORE '         ' TO C
  17. USE YY 
  18. DO SC11
  19. CASE B='2'
  20. STORE '                ' TO C
  21. USE DE 
  22. DO SC13
  23. CASE B='3'
  24. STORE '                ' TO C
  25. USE XX 
  26. DO SC18
  27. CASE B='4'
  28. STORE '                ' TO C
  29. USE AN 
  30. DO SC20
  31. CASE B='5'
  32. STORE '                ' TO C
  33. USE GY 
  34. DO SC21
  35. CASE B='6'
  36. STORE '            ' TO C
  37. USE GJ 
  38. DO SC23
  39. CASE B='7'
  40. STORE '         ' TO C
  41. USE BJH 
  42. DO SC24
  43. CASE B='0'
  44. ENDCASE
  45. ENDDO
  46. RETURN
  47.