home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ZHB.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.5 KB  |  57 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a1=.t.
  6. do while a1
  7. clear
  8. @ 0,5 say "*************************╫█║╧▒¿▒φ****************************"
  9. @ 1,5 say " ú░ú«═╦│÷                              ú▒ú«╔Φ▒╕═Ω║├┬╩"
  10. @ 2,5 say " ú▓ú«╝╞╗«,╣╩╒╧,╩┬╣╩╨▐└φ╣ñ╩▒╖╤╙├▒╚╜╧    ì
  11. ú│ú«═≥╘¬▓·╓╡╬¼╨▐╖╤╙├┬╩"
  12. @ 3,5 say " ú┤ú«└·─Ω╡─═≥╘¬▓·╓╡╬¼╨▐╖╤╙├┬╩          ú╡ú«╩┬╣╩╞╡┬╩"
  13. @ 4,5 say " ú╢ú«╣╩╒╧╞╡╢╚                          ú╖ú«╣╩╒╧═ú╗·┬╩"
  14. @ 5,5 say " ú╕ú«╔Φ▒╕┐╔└√╙├┬╩                     ì
  15.  ú╣ú«╔Φ▒╕╓╞╢╚╠¿╩▒└√╙├┬╩"
  16. @ 6,5 say " ú┴ú«╓≈╥¬╔Φ▒╕═Ω║├┬╩                    ì
  17. ú┬ú«╛½,┤≤,╧í╔Φ▒╕═Ω║├┬╩"
  18. @ 7,5 say " ú├ú«╣·╝╥╛¡╬»╦─╧ε┐╝║╦╓╕▒Ω           ì
  19.    ú─ú«╣·╝╥╛¡╬»╔Φ▒╕╞└╙┼▒φ"
  20. @ 8,5 say "*************************************************************"
  21. wait '     ╟δ╩Σ╚δ╤í╘±║┼(0,1,2,3,4,5,6,7,8,9,a,b,c,d):' to w
  22. do case 
  23. case w='0'
  24. retu
  25. case w='1'
  26. do bb1.prg
  27. case w='2'
  28. do bb2.prg
  29. case w='3'
  30. p=7
  31. do bb3.prg
  32. case w='4'
  33. p=1
  34. do bb3.prg
  35. case w='5'
  36. do ysg.prg
  37. case w='6'
  38. do b4.prg
  39. case w='7'
  40. do b5.prg
  41. case w='8'
  42. do b7.prg
  43. case w='9'
  44. do b6.prg
  45. case w='a'
  46. do b8.prg
  47. case w='b'
  48. do b9.prg
  49. case w='c'
  50. do gjkhb.prg
  51. case w='d'
  52. do gjpyb.prg
  53. endcase 
  54. enddo a1
  55. retu
  56.  
  57.