home *** CD-ROM | disk | FTP | other *** search
- * DATE 12/09/84 21:13
- * dupcheck.bk
- SAVE TO temp
- RELE ALL
- GO TOP
- STOR t TO more
- DO WHIL more .AND. (.NOT. EOF)
- STOR !($(title,1,15)) TO oldlname
- SKIP
- IF oldlname = !($(title,1,15)) .AND. (.NOT. EOF)
- DO duprec.bk
- ENDI
- ENDD
- REST FROM temp