home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JC7.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  773 b   |  39 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. a1=.t.
  5. do while a1
  6. clear
  7. @ 3,10 say "******************╔Φ▒╕╡─╕ⁿ╨┬╕─╘∞╛÷▓▀*******************"
  8. @ 4,10 say "    ú░ú«═╦│÷                  ú▒ú«╛╔╔Φ▒╕╝╠╨°╩╣╙├╡─╩Σ╚δ" 
  9. @ 5,10 say "    ú▓ú«╛╔╔Φ▒╕┤≤╨▐╡─╩Σ╚δ      ú│ú«╔Φ▒╕╝╝╩⌡╕─╘∞╡─╩Σ╚δ"
  10. @ 6,10 say "    ú┤ú«╣║┬≥╧α═¼╡─╨┬╔Φ▒╕      ú╡ú«╣║┬≥╕▀╨º┬╩╨┬╔Φ▒╕" 
  11. @ 7,10 say "******************************************************"
  12. wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5): ' to w
  13. do case
  14. case w='0'
  15. retu
  16. case w='1'
  17. a='1'
  18. b='╛╔╔Φ▒╕╝╠╨°╩╣╙├'
  19. do jc5.prg
  20. case w='2'
  21. a='2'
  22. b='╛╔╔Φ▒╕┤≤╨▐└φ'
  23. do jc5.prg
  24. case w='3'
  25. a='3'
  26. b='╛╔╔Φ▒╕╝╝╩⌡╕─╘∞'
  27. do jc5.prg
  28. case w='4'
  29. a='4'
  30. b='╣║┬≥╧α═¼╨┬╔Φ▒╕'
  31. do jc5.prg
  32. case w='5'
  33. a='5'
  34. b='╣║┬≥╕▀╨º┬╩╨┬╔Φ▒╕'
  35. do jc5.prg
  36. endcase 
  37. enddo a1
  38. retu
  39.