home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / E1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  730 b   |  38 lines
  1. ********************
  2. *   ╘¡╩╝╡╡░╕╔╛│²   *
  3. ********************
  4. SET DEVICE TO SCREEN
  5. SET TALK OFF
  6. STORE '  ' TO B
  7. DO WHILE .NOT. B='0'
  8. CLEAR
  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): ' to B
  15. DO CASE
  16. case b='4'
  17. do sbe3
  18. CASE B='1'
  19. STORE '         ' TO C
  20. USE SB 
  21. set index to sb1
  22. DO SC1
  23. CASE B='2'
  24. STORE '         ' TO C
  25. USE FJ
  26. DO SC2
  27. CASE B='3'
  28. STORE '     ' TO C
  29. USE RS
  30. DO SC8
  31. CASE B='0'
  32. exit
  33. ENDCASE
  34. STORE '  ' TO B
  35. ENDDO
  36. RETURN
  37.  
  38.