home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BS2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.1 KB  |  72 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. a='         '
  6. @ 4,10 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a            
  7. read
  8. use sb 
  9. set index to sb1
  10. seek a
  11. a=sb4
  12. use bs 
  13. set index to bs1
  14. loca for s1=a
  15. do while .not. eof()
  16. clear
  17. @ 2,1 say "╔Φ▒╕╨═║┼" get s1
  18. @ 3,1 say "▒╕╝■▒α║┼" get s2
  19. @ 4,1 say "╫░╘┌┤╦╔Φ▒╕╔╧╡─╕÷╩²" get s3             
  20. @ 5,1 say "▒Ω╓╛ú¿╥╫╦≡(y),╣╪╝ⁿ(g),╥╫╦≡+╣╪╝ⁿ(yg)ú⌐" get s4
  21. wait ' ╟δ╤í╘±ú║ ╝╠╨°úτú¼╓╪╨▐╕─ú╪ú¼╔╛│²ú╙ú¼╖╡╗╪ú╥ú║' to w
  22. do case 
  23. case w='r'
  24. retu
  25. case w='g'
  26. cont 
  27. loop
  28. case w='x'
  29. clear
  30. k1=s1                
  31. k2=s2         
  32. k3=s3    
  33. k4=s4  
  34. a2=.t.
  35. do while a2
  36. clear
  37. @ 2,1 say "╔Φ▒╕╨═║┼" get k1
  38. @ 3,1 say "▒╕╝■▒α║┼" get k2
  39. @ 4,1 say "╫░╘┌┤╦╔Φ▒╕╔╧╡─╕÷╩²" get k3 pict '9999'
  40. @ 5,1 say "▒Ω╓╛ú¿╥╫╦≡(y),╣╪╝ⁿ(g),╥╫╦≡+╣╪╝ⁿ(yg)ú⌐" get k4
  41. read
  42. wait '╟δ╤í╘±ú║╒²╚╖ú┌ú¼╓╪╨▐╕─ú╪ú¼╖╡╗╪ú╥ú║' to p
  43. do case 
  44. case p='x'
  45. loop
  46. case p='r'
  47. retu
  48. case p='z'
  49. repl s1 with k1,s2 with k2,s3 with k3,s4 with k4
  50. cont
  51. exit 
  52. endcase 
  53. enddo a2
  54. case w='s'
  55. @ 8,0 clear
  56. wait ' ╒µ╥¬╔╛│²┤╦╝╟┬╝┬≡(Y/N)' to w
  57. if w='y'
  58. c=recno()
  59. dele reco c
  60. pack
  61. endif
  62. cont
  63. otherwise
  64. loop
  65. endcase 
  66. enddo   
  67. retu
  68.  
  69.  
  70.  
  71.  
  72.