home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / GZL5.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  569 b   |  43 lines
  1. clear
  2. set talk off
  3. @ 4,0 clear
  4. wait '                ì
  5. ╟δ╜½╣ñ╫≈┴ε┼╠▓σ╚δú┴╟²╢»╞≈ú¼░┤ú╥╝ⁿ╖╡╗╪ú¼╞Σ╦ⁿ╝ⁿ╜°╨╨▒╕╖▌╙δ╔╛│²úí' to w
  6. if w='r'
  7. retu
  8. endif
  9. a1=.t.
  10. do while a1
  11. clear
  12. tt='q'
  13. do while file('a:gzl1.dbf')
  14. use a:gzl1.dbf
  15. appe from gzl1.dbf for gzl1a='y'
  16. tt='w'
  17. exit
  18. enddo
  19. if tt<>'w'
  20. use gzl1.dbf
  21. copy to a:gzl1.dbf for gzl1a='y'
  22. endif
  23. use 
  24. sele 1
  25. use gzl1 index gzl11
  26. sele 2
  27. use pg
  28. sele 1
  29. loca for gzl1a='y'
  30. do while .not. eof()
  31. a=gzl11
  32. sele 2
  33. loca for pg5=a
  34. dele
  35. pack
  36. sele 1
  37. cont
  38. enddo 
  39. dele all for gzl1a='y'
  40. pack
  41. clos data
  42. retu
  43.