home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / JC4.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  44 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. @ 8,10 say "******************************************************"
  13. wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7): ' to w
  14. do case
  15. case w='0'
  16. retu
  17. case w='1'
  18. a='1'
  19. b='╛╔╔Φ▒╕╝╠╨°╩╣╙├'
  20. do jc1.prg
  21. case w='2'
  22. a='2'
  23. b='╛╔╔Φ▒╕┤≤╨▐└φ'
  24. do jc1.prg
  25. case w='3'
  26. a='3'
  27. b='╛╔╔Φ▒╕╝╝╩⌡╕─╘∞'
  28. do jc1.prg
  29. case w='4'
  30. a='4'
  31. b='╣║┬≥╧α═¼╨┬╔Φ▒╕'
  32. do jc1.prg
  33. case w='5'
  34. a='5'
  35. b='╣║┬≥╕▀╨º┬╩╨┬╔Φ▒╕'
  36. do jc1.prg
  37. case w='6'
  38. do jc2.prg
  39. case w='7'
  40. do jc3.prg
  41. endcase 
  42. enddo a1
  43. retu
  44.