1 'DIFF.BA by Phil Wheeler 6/23/87 2 'revised by Robert Benson 3/1/96 10 MAXFILES=3:CLEAR1000:DEFSTRA-K:DEFINTL-Z:ONERRORGOTO27 11 A=" Enter 1st File ":B=" Enter 2nd File ":C=" to END":D=STRING$(12," "):E=CHR$(27)+"p":F=CHR$(27)+"q" 12 CLS:PRINTE" Text Comparer, Max Line Length 256 Chr."F;:FILES 13 X=CSRLIN:IFX=7THENX=6 14 PRINTE;A;F;C;:IFGG=""THENINPUTGGELSEPRINT"? "GG:GOTO17 15 IFGG=""GOTO29ELSEOPENGGFORINPUTAS1 16 Y=CSRLIN:IFY=7THENY=6 17 PRINT@X*40,A;D:PRINTE;B;F;C;:INPUTHH 18 IFHH=""GOTO29ELSEOPENHHFORINPUTAS2 19 PRINT@Y*40,B;D:PRINTE" Resultant File "F;C;:INPUTFF:OPENFFFOROUTPUTAS3 20 CLS:PRINT@175,"WORKING...." 21 N=N+1:LINEINPUT#1,G:LINEINPUT#2,H:IFG=HGOTO26 22 M=M+1:J=MID$(STR$(M),2,3):K=MID$(STR$(N),2,3):L=12-LEN(J+K) 23 PRINT#3,"***** ERROR #"J" "STRING$(L,"*")" LINE #"K" *****":PRINT#3, 24 PRINT#3,G:PRINT#3,STRING$(39,"-") 25 PRINT#3,H:PRINT#3,:BEEP 26 IFEOF(1)OREOF(2)ORN=24THENPRINT#3,CHR$(26);:GOTO29ELSE21 27 IFERL=15THENGG="":CLOSE1:RESUME12 28 IFERL=18THENHH="":CLOSE2:RESUME12 29 CLOSE:MAXFILES=1:MENU