         COMMON JSTART,ISTART,IEND,IABN,IDBC,F1(20),F2(20)              COMP0000
         INTEGER DCB(2)/2,1/                                            COMP0001
         ASSIGN 93 TO IABN                                              COMP0002
         READ(1,10) I ; READ(2,10) I                                    COMP0003
10       FORMAT( A4 )                                                   COMP0004
         WRITE(108,1)                                                   COMP0005
1        FORMAT( 'COMPARE F:1 START,END TO F:2 START' )                 COMP0006
11       READ(105,2) ISTART,IEND,JSTART                                 COMP0007
         IF( ISTART .EQ. 0 )  STOP 'EXIT'                               COMP0810
2        FORMAT( 3I )                                                   COMP0008
         CALL POSITION                                                  COMP0009
         DO 3 I = ISTART,IEND                                           COMP0010
         READ(1,4,END=91) F1                                            COMP0011
4        FORMAT( 20A4 )                                                 COMP0012
         READ(2,4,END=92) F2                                            COMP0013
         DO 5 K = 1,20                                                  COMP0014
         IF( F1(K) .NE. F2(K) )  GOTO 6                                 COMP0015
5        CONTINUE                                                       COMP0016
         JSTART = JSTART + 1                                            COMP0017
3        CONTINUE                                                       COMP0018
         WRITE(108,8)                                                   COMP0019
8        FORMAT( '..COMPLETE' )                                         COMP0020
         GOTO 100                                                       COMP0021
6        WRITE(108,7) I,F1,JSTART,F2                                    COMP0023
7        FORMAT( '..MISMATCH', /'F:1(', I, -X, ') = ', 20A4 ,           COMP0024
     X                         /'F:2(', I, -X, ') = ', 20A4 )           COMP0025
100      OUTPUT, '..RESTART'                                            COMP0026
         GOTO 11                                                        COMP0027
*                                                                       COMP0028
91       OUTPUT, '..E-O-F ON F:1' ; GOTO 100                            COMP0029
92       OUTPUT, '..E-O-F ON F:2' ; GOTO 100                            COMP0030
*                                                                       COMP0031
93       WRITE(108,9) DCB(IDBC)                                         COMP0032
9        FORMAT( '..ABNORMAL RETURN POSITIONING F:', I )                COMP0033
         GOTO 100                                                       COMP0034
         END                                                            COMP0035
