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