home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / PH4.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  627 b   |  57 lines
  1. clear
  2. set talk off
  3. set device to screen
  4. close database
  5. sele 1
  6. use sb 
  7. set index to sb1
  8. sele 2
  9. use bs
  10. sele 3
  11. use bj 
  12. set index to bj1,bj2
  13. a1=.t.
  14. do while a1
  15. clear
  16. a='         '
  17. @ 4,10 say "╟δ╩Σ╚δ╔Φ▒╕▒α║┼" get a
  18. read
  19. sele 1
  20. loca for sb1=a
  21. b=sb4
  22. loca for sb4=b
  23. cont
  24. if .not. eof()
  25. sele 2
  26. loca for s1=b
  27. do while .not. eof()
  28. c=s2
  29. sele 3
  30. seek c
  31. repl b13 with 'g'
  32. sele 2
  33. cont
  34. enddo
  35. else
  36. sele 2
  37. loca for s1=b
  38. do while .not. eof()
  39. c=s2
  40. sele 3
  41. seek c
  42. repl b13 with 'b'
  43. sele 2
  44. cont
  45. enddo
  46. dele all for s1=b
  47. pack
  48. endif
  49. wait '╗╣╙╨┬≡(Y/N)' to w
  50. if w='y'
  51. loop
  52. endif
  53. exit
  54. enddo a1
  55. retu
  56.  
  57.