* DATE 04/27/85  07:32
* dupcheck.ref
SAVE TO temp
RELE ALL
GO TOP
STOR t TO more
DO WHIL more .AND. (.NOT. EOF)
 STOR !($(title1,1,12)) TO oldname
 SKIP
 IF oldname = !($(title1,1,12)) .AND. (.NOT. EOF)
  DO duprec.ref
 ENDI
ENDD
REST FROM temp