home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / SBE.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.2 KB  |  67 lines
  1. set talk off
  2. set device to screen 
  3. clear
  4. use sb3 
  5. set index to sb4
  6. a1=.t.
  7. do while a1
  8. clear
  9. k1='         '
  10. k2='            '
  11. k3='  '
  12. k4='  '
  13. k5='            '
  14. k6='    '
  15. k7='    '
  16. k8='            '
  17. k9='            '
  18. k10='      '
  19. k11='            '
  20. k12='  '
  21. k13='                '
  22. a2=.t.
  23. do while a1
  24. clear
  25. @ 1,1 say "╔Φ▒╕▒α║┼" get k1
  26. @ 1,40 say "╓≈╥¬▓─╓╩" get k2
  27. @ 2,1 say "░▓╫░╠¿╩²" get k3 pict '99'
  28. @ 2,40 say "▒╕╙├╠¿╩²" get k4 pict '99'
  29. @ 3,1 say "╜Θ    ╓╩" get k5 
  30. @ 3,40 say "╬┬    ╢╚" get k6 pict '9999'
  31. @ 4,1 say "╤╣    ┴ª" get k7 pict '9999'
  32. @ 4,40 say "╓≈╗·╨═║┼" get k8
  33. @ 5,1 say "╝⌡╦┘╗·╨═║┼" get k9
  34. @ 5,40 say "╝⌡╦┘╗·╦┘▒╚" get k10
  35. @ 6,1 say "┤½╢»╫░╓├╨╬╩╜" get k11
  36. @ 6,40 say "╔Φ╝╞╩┘├ⁿ" get k12 pict '99'
  37. @ 7,1 say "╔·▓·─▄┴ª" get k13 
  38. read
  39. wait '╩Σ╚δ╡─╩²╛▌ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥' to w
  40. do case 
  41. case w='x'
  42. loop
  43. case w='r'
  44. retu
  45. case w='z'
  46. k3=val(k3)
  47. k4=val(k4)
  48. k6=val(k6)
  49. k7=val(k7)
  50. k12=val(k12)
  51. appe blank
  52. repl sb1 with k1,sb37 with k2,sb38 with k3,sb39 with k4,sb40 with ì
  53. k5,sb41 with k6,sb42 with k7,sb43 with k8,sb44 with k9,sb45 with ì
  54. k10,sb46 with k11,sb47 with k12,sb48 with k13
  55. exit
  56. endcase 
  57. enddo a2
  58. wait '╗╣╩Σ╚δ┬≡ú¿ú┘ú»ú╬ú⌐' to qq
  59. if qq<>'y'
  60. clos data
  61. retu
  62. endif
  63. enddo a1
  64.  
  65.  
  66.  
  67.