home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SBGL.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.2 KB  |  55 lines
  1. set carr on
  2. SET TALK OFF
  3. CLEAR
  4. ***************************
  5. *    ╔Φ  ▒╕  ╓≈  ┐╪       *
  6. *         SBGL.PRG        *
  7. ***************************
  8. STOR ' ' TO B
  9. DO WHILE .NOT.B='0'
  10. STOR ' ' TO B
  11. CLEAR
  12. @ 3,15 SAY "*******************╔Φ▒╕╠¿╒╩╣▄└φ**********************"
  13. @ 4,15 SAY '   ú░ú«═╦│÷                      ú▒ú«╠¿╒╩┤ª└φ'
  14. @ 5,15 SAY '   ú▓ú«╒█╛╔┤ª└φ                  ú│ú«▓Θ╤»═│╝╞'
  15. @ 6,15 say '   ú┤ú«┤≥╙í╔Φ▒╕╣╠╢¿╫╩▓·┐¿╞¼      ú╡ú«▓Θ╤»╔Φ▒╕╕≈╧ε╓╕▒Ω'
  16. @ 7,15 say "*****************************************************"
  17. wait '               ╟δ╩Σ╚δ╣ª─▄▒α║┼(0,1,2,3,4,5):' to B
  18. DO CASE
  19. CASE B='1'
  20. DO SBK
  21. CASE B='5'
  22. DO SBZB
  23. CASE B='2'
  24. DO ZJCL
  25. CASE B='3'
  26. a2=.t.
  27. do while a2
  28. clea
  29. @ 3,10 say "*******************▓Θ╤»═│╝╞*********************"
  30. @ 4,10 say "   ú░ú«═╦│÷                    ú▒ú«▓Θ╤»╙δ┤≥╙í"
  31. @ 5,10 say "   ú▓ú«╔Φ▒╕═│╝╞                ú│ú«╔Φ▒╕┤≥╙í"
  32. @ 6,10 say "************************************************"
  33. wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3):' to qq
  34. do case 
  35. case qq='0'
  36. exit
  37. case qq='1'
  38. DO SBXUE
  39. case qq='2'
  40. do sbe4
  41. case qq='3'
  42. do sbe5
  43. endcase 
  44. enddo 
  45. case b='4'
  46. do sbxue2
  47. CASE B='0'
  48. RETURN
  49. ENDCASE
  50. STORE ' ' TO B
  51. ENDDO
  52. RETURN
  53.  
  54.  
  55.