* dupcheck.sig 08/18/83
* this module checks to see if there are records with the same lastnames
* you can make it a tighter test with relative ease.
SAVE TO temp1
RELEASE ALL
GOTO TOP
STORE t TO more
DO WHILE more .AND. (.NOT. EOF)
    * display something to read while searching for duplicates
    ERASE
    @ 07,10 SAY 'SEARCHING for duplicate last names'
    * save the current name, in upper case, for comparison
    STORE !(lname) TO oldlname
    * move to the next record to compare
    SKIP
    * if match is found and eof has not been reached
    * let user look at both and decide what to do
    IF oldlname = !(lname) .AND. (.NOT. EOF)
        DO duprec.sig
    ENDIF
ENDDO
RESTORE FROM temp1