home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b077 / 1.img / SBGL.ZIP / ZJS.PRG < prev    next >
Encoding:
Text File  |  1979-12-31  |  163 b   |  16 lines
  1. CLEAR
  2. CLOSE DATABASE
  3. SELE 1 
  4. USE SB INDEX SB1
  5. SELE 2
  6. USE SM 
  7. SELE 1
  8. DO WHILE .NOT. EOF()
  9. A=SB1
  10. SELE 2
  11. APPE BLANK
  12. REPL SM1 WITH A
  13. SELE 1
  14. SKIP
  15. ENDDO
  16.