home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BS1.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.0 KB  |  50 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,10 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a pict '999'
  7. read
  8. a=val(a)
  9. do while a<>0
  10. clear
  11. k1='                '
  12. k2='         '
  13. k3='    '
  14. k4='  '
  15. a2=.t.
  16. do while a2
  17. clear
  18. @ 2,1 say "╔Φ▒╕╨═║┼" get k1
  19. @ 3,1 say "▒╕╝■▒α║┼" get k2
  20. @ 4,1 say "╫░╘┌┤╦╔Φ▒╕╔╧╡─╕÷╩²" get k3 pict '9999' 
  21. @ 5,1 say "▒Ω╓╛ú¿╥╫╦≡(y),╣╪╝ⁿ(g),╥╫╦≡+╣╪╝ⁿ(yg)ú⌐" get k4
  22. read
  23. wait '╫≈╖╧ú╞ú¼╓╪╨▐╕─ú╪ú¼╩²╛▌╒²╚╖ú┌ú¼╖╡╗╪ú╥ú║' to w
  24. do case 
  25. case w='r'
  26. retu
  27. case w='f'
  28. a=a+1
  29. case w='x'
  30. loop
  31. case w='z'
  32. k3=val(k3)
  33. use bs 
  34. set index to bs1
  35. appe blank
  36. repl s1 with k1,s2 with k2,s3 with k3,s4 with k4
  37. reindex on s2 to bs1
  38. otherwise
  39. loop
  40. endcase 
  41. exit
  42. enddo a2
  43. a=a-1
  44. enddo 
  45. retu
  46.  
  47.  
  48.  
  49.  
  50.