Compare two text files in Altair BASIC - 27 May 2010

Tom Sanderson
www.virtualaltair.com


10 CLEAR 4000
100 INPUT "ENTER FILE NAME, DRIVE NUMBER "; F1$, D1%
200 INPUT "ENTER FILE NAME, DRIVE NUMBER "; F2$, D2%
300 OPEN "I", #1, F1$, D1%
400 OPEN "I", #2, F2$, D2%
500 IF EOF(1) THEN GOTO 10000
600 IF EOF(2) THEN GOTO 10000
700 LINE INPUT #1, X1$
800 LINE INPUT #2, X2$
900 IF X1$ = X2$ THEN GOTO 500
1000 PRINT X1$
1100 PRINT X2$
10000 CLOSE
10100 END
OK