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