home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / F2.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  584 b   |  27 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. @ 3,15 SAY '***************** ╨▐  ╕─  ╝╟  ┬╝ ***************'
  10. @ 4,15 SAY 'ú░ú«═╦│÷                          ú▒ú«╘¡╩╝╡╡░╕'
  11. @ 5,15 SAY 'ú▓ú«╨▐╕─╖┤└í╨┼╧ó                  ú│ú«┤·    ┬δ'
  12. @ 6,15 say "************************************************"
  13. wait '              ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3): ' to B
  14. DO CASE
  15. CASE B='1'
  16. DO B1
  17. CASE B='2'
  18. DO B2
  19. CASE B='3'
  20. DO B3
  21. CASE B='0'
  22. LOOP
  23. ENDCASE
  24. STORE '  ' TO B
  25. ENDDO
  26. RETURN
  27.