0 PRINT"    COMP-T by James Main Kenney 1996":MAXFILES=2:DEFSTRA-H:DEFINTI-Z:ONERRORGOTO15:GOTO9
1 IFEOF(1)ORK=31THEN3ELSEE=INPUT$(1,1):N=N+1:PRINT@52,N:G=E:IFE<" "THENE=" 
2 C=RIGHT$(C+E,40):IFQ>0THENQ=Q-1:GOTO1
3 IFEOF(2)ORK=30THEN5ELSEF=INPUT$(1,2):M=M+1:PRINT@252,M:H=F:IFF<" "THENF=" 
4 D=RIGHT$(D+F,40):IFR>0THENR=R-1:GOTO3
5 PRINT@120,C;:PRINT@160,;:IFC<>DTHENPRINTD;:P=1ELSEIFPTHENPRINTSPACE$(40);:P=0
6 IFINKEY$=""THENIFNOT(EOF(1)OREOF(2))AND(SOR((G=H)AND(K<30ORK>31)))THENJ=0:GOTO1ELSEIFJ=0THENBEEP
7 K=ASC(INPUT$(1)):IFK=1THENQ=32:R=32ELSEIFK=6THENQ=400:R=400ELSEIFK=20THENQ=32:K=30ELSEIFK=2THENR=32:K=31ELSEIFK=29THENS=1ELSEIFK=28THENS=0ELSEIFK=23THENCLOSE1:GOSUB13ELSEIFK=26THENCLOSE2:GOSUB14ELSEIFK=17ORK=18THENCLOSE:GOSUB13:GOSUB14
8 J=1:IFK=27THENMENUELSE1
9 PRINT"Compare text files: any key>stop; then: vert arrows>realign; left>ignore diff;  right>stop at diff; SHIFT-arrows>jump inone or both; CTRL-arrows>restart one or both; ESC>exit; other keys>step/run. At file prompts: blank entry or F8>exit.
10 PRINT"(any key)";:A=INPUT$(1):CLS:PRINT:FILES
11 A="":INPUT".DO file 1";A:IFA=""ORA="Menu"THENMENUELSEGOSUB13
12 B="":INPUT".DO file 2";B:IFB=""ORB="Menu"THENMENUELSEGOSUB14:CLS:PRINT@42,A:PRINT@242,B:GOTO1
13 OPENAFORINPUTAS1:N=0:RETURN
14 OPENBFORINPUTAS2:M=0:RETURN
15 PRINT"error"ERR:IFERL=14THENRESUME12ELSERESUME11