10 ; "FILCOM Comparering av filer" 20 REM Program av Gunnar Tidner vers 1980-12-29 30 ; "Fil nr 1:"; : INPUT F1$ 40 ; "Fil nr 2:"; : INPUT F2$ 50 DIM A1$=119,A2$=119 60 OPEN F1$ ASFILE 1 70 OPEN F2$ ASFILE 2 80 ONERRORGOTO 160 90 FOR I%=1 TO 1000 100 INPUTLINE #1,A1$ : A1$=LEFT$(A1$,LEN(A1$)-2%) : E%=1% 110 W1%=LEN(A1$) : IF W1% THEN IF ASC(RIGHT$(A1$,W1%))=32% THEN A1$=LEFT$(A1$,W1%-1%) : GOTO 110 120 INPUTLINE #2,A2$ : A2$=LEFT$(A2$,LEN(A2$)-2%) : E%=2% 130 W2%=LEN(A2$) : IF W2% THEN IF ASC(RIGHT$(A2$,W2%))=32% THEN A2$=LEFT$(A2$,W2%-1%) : GOTO 130 140 IF A1$<>A2$ THEN J%=1% : ; "1>";A1$ : ; "2>";A2$ : ; : GET C$ 150 NEXT I% 160 IF ERRCODE<>34 THEN ; "Fel nr";ERRCODE : STOP 170 POKE -456%,0 : ONERRORGOTO 200 : IF E%=1% THEN 190 180 INPUTLINE #E%,A1$ 190 ; "Fil nr";E%;" {r l{ngre {n fil nr";3-E% : ; "I |vrigt {r:" 200 ; "Filerna "; 210 IF J% THEN ; "olika!" ELSE ; "lika!" 220 IF ERRCODE>-1 AND ERRCODE<>34 THEN ; "Fel nr";ERRCODE 230 END