10 ; "FILCOM Comparering av filer"
15 REM Program av Gunnar Tidner
20 ; "Fil nr 1:"; : INPUT F1$
30 ; "Fil nr 2:"; : INPUT F2$
40 DIM A1$=119,A2$=119
50 OPEN F1$ ASFILE 1
60 OPEN F2$ ASFILE 2
70 ONERRORGOTO 150
80 FOR I%=1 TO 1000
90 INPUTLINE #1,A1$ : A1$=LEFT$(A1$,LEN(A1$)-2%)
100 W1%=LEN(A1$) : IF ASC(RIGHT$(A1$,W1%))=32% THEN A1$=LEFT$(A1$,W1%-1%) : GOTO 100
110 INPUTLINE #2,A2$ : A2$=LEFT$(A2$,LEN(A2$)-2%)
120 W2%=LEN(A2$) : IF ASC(RIGHT$(A2$,W2%))=32% THEN A2$=LEFT$(A2$,W2%-1%) : GOTO 120
130 IF A1$<>A2$ THEN J%=1% : ; "1>";A1$ : ; "2>";A2$ : ; : GET C$
140 NEXT I%
150 IF ERRCODE=34 THEN CLOSE 1 : CLOSE 2 ELSE ; "Fel nr";ERRCODE
160 ; "Filerna ";
170 IF J% THEN ; "olika!" ELSE ; "lika!"
180 END