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