home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BS3.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  815 b   |  57 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='   '
  6. @ 4,20 say "╟δ╩Σ╚δ╝╟┬╝╫▄╩²" get a pict '999'
  7. read
  8. use bj 
  9. set index to bj1,bj2
  10. a=val(a)
  11. do while a<>0
  12. clear
  13. b='         '
  14. @ 4,20 say "╟δ╩Σ╚δ▒╕╝■▒α║┼" get b
  15. read
  16. seek b
  17. k1=b1
  18. k2=b2
  19. k3=b3
  20. k4=b7
  21. k5=b6
  22. k6=b8
  23. k7=b12
  24. p=1
  25. a1=.t.
  26. do while a1
  27. clear
  28. @ 1,1 say "▒╕╝■▒α║┼" get k1
  29. @ 2,1 say "▒╕╝■├√│╞" get k2
  30. @ 3,1 say "╨═║┼╣µ╕±" get k3
  31. @ 4,1 say "╫ε╡═┐Γ┤µ" get k4
  32. @ 5,1 say "╫ε╕▀┐Γ┤µ" get k5
  33. @ 6,1 say "╢⌐╗⌡╡π" get k6
  34. @ 7,1 say "─Ω╨Φ╟≤┴┐" get k7
  35. if p<>1
  36. read
  37. endif
  38. wait '╟δ╤í╘±ú║ ╓╪╨▐╕─ú╪ú¼╫≈╖╧ú╞ú¼╩²╛▌╒²╚╖ú┌ú¼╖╡╗╪ú╥ú║' to w
  39. do case 
  40. case w='x'
  41. p=2
  42. loop
  43. case w='f'
  44. a=a+1
  45. exit
  46. case w='r'
  47. retu
  48. case w='z'
  49. repl b7 with k4,b6 with k5,b8 with k6,b12 with k7,b13 with ' '
  50. exit
  51. endcase 
  52. enddo a1
  53. a=a-1
  54. enddo
  55. retu
  56.  
  57.