** Last revision: June 8, 1986 at 19:49 * dupcheck.prg SAVE TO temp1 GO TOP STOR .t. TO more1 DO WHIL more1 .AND. (.NOT. EOF().OR.BOF()) CLEA @ 07,10 SAY 'SEARCHING FOR DUPLICATE FILES' STOR UPPER(lastname) TO oldlname SKIP IF oldlname = UPPER(lastname) .AND. (.NOT. EOF()) DO duprec ENDI ENDD REST FROM temp1 additive RETU