home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol285 / dupcheck.prg < prev    next >
Encoding:
Text File  |  1986-12-22  |  384 b   |  18 lines
  1. **    Last revision: June 8, 1986 at 19:49
  2. * dupcheck.prg
  3. SAVE TO temp1
  4. GO TOP
  5. STOR .t. TO more1
  6. DO WHIL more1 .AND. (.NOT. EOF().OR.BOF())
  7.  CLEA
  8.  @ 07,10 SAY 'SEARCHING FOR DUPLICATE FILES'
  9.  STOR UPPER(lastname) TO oldlname
  10.  SKIP
  11.  IF oldlname = UPPER(lastname) .AND. (.NOT. EOF())
  12.   DO duprec
  13.  ENDI
  14. ENDD
  15. REST FROM temp1 additive
  16. RETU
  17. 
  18.