* 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