home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / BF2.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  751 b   |  56 lines
  1. clear
  2. @ 4,15 say ì
  3. "╟δ╜½╣ñ╫≈┴ε┼╠▓σ╚δú┴╟²╢»╞≈╓╨ú¼░┤ú┘╝ⁿ▒┤╖▌ú¼░┤╞Σ╦ⁿ╝ⁿ╖╡╗╪"
  4. wait '  ' to q
  5. if q<>'y'
  6. retu
  7. endif
  8. set talk off
  9. close database
  10. sele 1
  11. use gzl1
  12. loca for gzla='y' .and. gzlb='y'
  13. do while .not. eof()
  14. a=gzl11
  15. g=2
  16. b='gzl2.'
  17. c='gg2.'
  18. d='gzl21'
  19. do while g<=6
  20. p=3
  21. do while file('a:&c.dbf')
  22. sele 3
  23. use a:&c.dbf
  24. appe from &b.dbf for &d=a
  25. p=1  
  26. exit
  27. enddo 
  28. if p=3
  29. sele 2
  30. use &b.dbf
  31. copy to a:&c.dbf for &d=a
  32. endif
  33. g=g+1
  34. f=str(g,1)
  35. b='gzl'+f+'.'
  36. c='gg'+f+'.'
  37. d='gzl'+f+'1'
  38. enddo
  39. sele 1
  40. cont
  41. enddo
  42. close database
  43. p=3
  44. do while file('a:gg1.dbf')
  45. use a:gg1.dbf
  46. appe from gzl1.dbf for gzla='y' .and. gzlb='y'
  47. p=1
  48. exit
  49. enddo
  50. if p=3
  51. use gzl1.dbf
  52. copy to a:gg1.dbf for gzla='y' .and. gzlb='y'
  53. endif
  54. retu
  55.  
  56.