home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbbooks.lbr / DUPCHECK.BK < prev    next >
Encoding:
Text File  |  1993-10-26  |  512 b   |  15 lines
  1. * DATE 12/09/84  21:13
  2. * dupcheck.bk
  3. SAVE TO temp
  4. RELE ALL
  5. GO TOP
  6. STOR t TO more
  7. DO WHIL more .AND. (.NOT. EOF)
  8.  STOR !($(title,1,15)) TO oldlname
  9.  SKIP
  10.  IF oldlname = !($(title,1,15)) .AND. (.NOT. EOF)
  11.   DO duprec.bk
  12.  ENDI
  13. ENDD
  14. REST FROM temp
  15.