home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / a / dbref.lbr / DUPCHECK.REF < prev    next >
Encoding:
Text File  |  1993-10-26  |  384 b   |  15 lines
  1. * DATE 04/27/85  07:32
  2. * dupcheck.ref
  3. SAVE TO temp
  4. RELE ALL
  5. GO TOP
  6. STOR t TO more
  7. DO WHIL more .AND. (.NOT. EOF)
  8.  STOR !($(title1,1,12)) TO oldname
  9.  SKIP
  10.  IF oldname = !($(title1,1,12)) .AND. (.NOT. EOF)
  11.   DO duprec.ref
  12.  ENDI
  13. ENDD
  14. REST FROM temp
  15.