10 SA=49152:CS=10600:FR=251:PRINT"[147]"
20 FORT=SATOSA+65:READA:X=X+A:POKET,A:NEXT
30 IFX<>CSTHENPRINT"ERROR IN DATA STATEMENTS.":STOP
40 PRINTCHR$(14)
50 INPUT"[206]AME OF FIRST PROGRAM ";F1$:INPUT"[206]AME OF SECOND PROGRAM";F2$
60 PRINT"[147][207]UTPUT TO [208]RINTER?  [217]/[206]"
70 GET SP$:IFSP$="" THEN70
80 IFSP$="Y"THEN OPEN 4,4,7:PRINT#4,"[195]OMPARING "F1$" TO "F2$".":PRINT#4
90 J$="                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
100 OPEN 2,8,2,F1$:OPEN 3,8,3,F2$:GOSUB650
110 FORT=1TO2:GET#2,A$:GET#3,B$:NEXT:REM  THROW AWAY FIRST 2 BYTES
120 FORT=1TO2:GET#2,A$:GET#3,B$:NEXT:REM  THROW AWAY LINE LINKS
130 A=0:IFA$<>""THENA=ASC(A$)
140 B=0:IFB$<>""THENB=ASC(B$)
150 IF A=0 AND B=0 THEN300
160 IFA=0THENLA=64000:GOTO180
170 GOSUB480:REM GET LINE NUMBER
180 IFB=0THENLB=64000:GOTO200
190 GOSUB520:REM GET LINE NUMBER
200 IFLA<>LB THEN GOSUB320:REM  CHECK FOR DIFFERENT LINE #
210 IFLA=64000ANDLB=64000THEN300
220 PRINT"[195]HECKING LINE"LA:PRINT"[145]";
230 SYS SA
240 IF PEEK(FR+1)=0 THEN120
250 PRINT J$ "[204]INES"LA"DO NOT AGREE."
260 IF SP$<>"Y" THEN120
270 IF TG=1 THEN PRINT#4
280 TG=0:PRINT#4,"[204]INES"LA"DO NOT AGREE."
290 GOTO120
300 CLOSE2:CLOSE3:CLOSE4:END
310 REM --                                     EXTRA LINE
320 IF LA>=LB THEN390
330 PRINT J$"[204]INE"LA"IN  "F1$" [146] NOT IN  "F2$"."
340 IF SP$="Y" AND TG=0 THEN PRINT#4
350 TG=1:IF SP$="Y" THEN PRINT#4,"[204]INE"LA"IN "F1$" NOT IN "F2$"."
360 POKE FR,2:SYS SA+55
370 GET#2,A1$:GET#2,A2$:IF A1$="" AND A2$="" THEN LA=64000:GOTO320
380 GOSUB480:GOTO320:REM GET NEW LINE #
390 IF LB>=LA THEN460
400 PRINT J$"[204]INE"LB"IN  "F2$" [146] NOT IN  "F1$"."
410 IF SP$="Y" AND TG=0 THEN PRINT#4
420 TG=1:IF SP$="Y" THEN PRINT#4,"[204]INE"LB"IN "F2$" NOT IN "F1$"."
430 POKE FR,3:SYS SA+55
440 GET#3,B1$:GET#3,B2$:IFB1$=""ANDB2$=""THENLB=64000:GOTO320
450 GOSUB520:GOTO320
460 RETURN
470 REM -- GET LINE NUMBERS
480 GET#2,A1$:GET#2,A2$
490 A1=0:IFA1$<>""THENA1=ASC(A1$)
500 A2=0:IFA2$<>""THENA2=ASC(A2$)
510 LA=A2*256+A1:RETURN
520 GET#3,B1$:GET#3,B2$
530 B1=0:IFB1$<>""THENB1=ASC(B1$)
540 B2=0:IFB2$<>""THENB2=ASC(B2$)
550 LB=B2*256+B1:RETURN
560 DATA 169,0,133,252,162,2,32,198
570 DATA 255,160,255,200,32,207,255,240
580 DATA 6,153,66,192,76,11,192,132
590 DATA 251,162,3,32,198,255,160,255
600 DATA 200,32,207,255,240,10,217,66
610 DATA 192,240,245,230,252,76,32,192
620 DATA 196,251,240,2,230,252,96,166
630 DATA 251,32,198,255,32,207,255,208
640 DATA 251,96
650 OPEN15,8,15:INPUT#15,A,B$,C,D:IFATHENPRINTA,B$,C,D:STOP
660 RETURN