home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GZL.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  881 b   |  47 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a1=.t.
  6. do while a1
  7. set cons on
  8. clear
  9. @ 2,10 say "***********************╣ñ╫≈├ⁿ┴ε╣▄└φ**********************"
  10. @ 3,10 say "  ú░ú«═╦│÷                        ú▒ú«╧┬┤∩╣ñ╫≈├ⁿ┴ε"
  11. @ 4,10 say "  ú▓ú«┤≥╙í╥╤╧┬┤∩╡─╣ñ╫≈┴ε          ì
  12. ú│ú«╤░╒╥╬¼╨▐└·╩╖╫╩┴╧"
  13. @ 5,10 say "  ú┤ú«╤╙╞┌═Ω╣ñ╡─╣ñ╫≈              ú╡ú«╔╛│²ú¼▒╕╖▌╣ñ╫≈┴ε"
  14. @ 6,10 say "  ú╢ú«▓Θ╤»╥╤┼╔╣ñ╟Θ┐÷              ì
  15. ú╖ú«▓Θ╤»╔Φ▒╕╘╦╫¬╟Θ┐÷"
  16. @ 7,10 say "*********************************************************"
  17. wait '          ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7):' to w
  18. do case 
  19. case w='0'
  20. retu
  21. case w='1'
  22. do gzl1.prg
  23. case w='6'
  24. w='r'
  25. do rs1
  26. case w='7'
  27. clear
  28. a='         '
  29. @ 4,20 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
  30. read
  31. w='y'
  32. do sc
  33. case w='2'
  34. w='y'
  35. do gzl2.prg
  36. case w='3'
  37. do gzl7.prg
  38. case w='4'
  39. do gzl3.prg
  40. case w='5'
  41. do gzl5.prg
  42. endcase 
  43. enddo a1
  44. retu
  45.  
  46.  
  47.