'
' (c)Copyright Sealevel Systems Incorporated, 1993 - 1995
'
'============================================================================
'               FILECOMP.BAS - FILE COMPARISON PROGRAM
'============================================================================

        DEFINT B
        CLS
        PRINT "FILE COMPARISON PROGRAM"
        PRINT
        INPUT "Enter filename #1: ", F1$
        PRINT
        INPUT "Enter filename #2: ", F2$
        OPEN F1$ FOR BINARY AS #1
        OPEN F2$ FOR BINARY AS #2
        PRINT
        IF LOF(1) <> LOF(2) THEN PRINT "Files are not the same size": GOTO XIT
        PRINT "Checking the file contents of "; F1$; " against "; F2$
        FOR X = 1 TO LOF(1)
        GET #1, X, B1
        GET #2, X, B2
        IF B1 <> B2 THEN
        PRINT
        PRINT "Files do not compare at offset "; HEX$(X); " Hex": GOTO XIT
        END IF
        NEXT X
        PRINT "Files compare"
XIT:    CLOSE #1
        CLOSE #2
        PRINT
        PRINT "Program terminated"
        END