10 GOSUB60100:POKE53281,.
110 PRINT"[147]         [195] [207] [205] [208] [193] [210] [197]  [208] [199] [205]           [146]"
120 PRINT"[154][197]NTER  FIRST [208][199][205] FILE NAME:":PRINT"->";:LE=16:GOSUB60500:F1$=B$
130 PRINT"[197]NTER SECOND [208][199][205] FILE NAME:":PRINT"->";:GOSUB60500:F2$=B$
135 R$=CHR$(143):PRINT"        ([211][154])CREEN OR ([208][154])RINTER"
136 GETV$:IFV$<>"S"ANDV$<>"P"THEN136
140 PRINT"[147]        -- [208]RESS [209] [154]TO QUIT --"
150 PRINT" [208]RESS ANY OTHER KEY TO TOGGLE PAUSE."
165 OPEN2,8,2,F1$+",P,R":OPEN1,8,15
170 INPUT#1,E,E$:PRINTE,E$,F1$:IFE>0THEN700
180 OPEN5,8,5,F2$+",P,R":INPUT#1,E,E$:PRINTE,E$,F2$:IFE>0THEN700
190 GOSUB660:PRINT:PRINT"[205]ODIFICATIONS TO ";F2$;"[154]:":PRINT:GOSUB680
200 GET#2,A$,A$:GET#5,A$,A$:GOSUB420
210 L1$=""
220 GET#2,A$:IFST>0THEN E2=1:GOSUB430:GOTO280
230 IFA$=""THENRF=0:GOTO280
240 IFA$=" "ORA$=":"THEN220
250 IFRFTHEN220
260 L1$=L1$+A$:IFA$=R$THEN RF=1
270 GOTO220
280 L2$=""
290 GET#5,A$:IFST>0THEN E5=1:GOSUB430:GOTO350
295 PRINT"[195]HECKING LINE"N1:PRINT"[145]";
300 IFA$=""THENRF=0:GOTO350
310 IFA$=" "ORA$=":"THEN290
320 IFRFTHEN290
330 L2$=L2$+A$:IFA$=R$THEN RF=1
340 GOTO290
350 IFL1$<>L2$THEN GOSUB660:PRINT"[159]"N2;"[195]HANGED":GOSUB680:C=C+1
360 GOSUB420
370 GETB$:IFB$=""THEN210
380 IFB$="Q"THEN700
390 GETA$:IFA$=""THEN390
400 GOTO210
410 REM---------------------------------
420 GOSUB470:GOSUB500:IFE2=1ANDE5=1THEN700
430 IF N1<N2 THEN GOSUB540:GOTO430
440 IF N2<N1 THEN GOSUB600:GOTO430
450 RETURN
460 REM---------------------------------
470 GET#2,A$,B$,L$,H$:N1=ASC(L$+CHR$(0))+(ASC(H$+CHR$(0))*256)
480 IF(A$=""ANDB$="")ORST>0THENN1=63999
490 RETURN
500 GET#5,A$,B$,L$,H$:N2=ASC(L$+CHR$(0))+(ASC(H$+CHR$(0))*256)
510 IF(A$=""ANDB$="")ORST>0THENN2=63999
520 RETURN
530 REM---------------------------------
540 GOSUB660:PRINT"[159]"N1;"[196]ELETED[154]":GOSUB680:C=C+1
550 GET#2,A$:IFST>0THEN580
560 IFA$=""THENGOSUB470:RETURN
570 GOTO550
580 IF E2 THEN END
590 N1=63999:RETURN
600 GOSUB660:PRINT"[159]"N2;"[201]NSERTED[154]":GOSUB680:C=C+1
610 GET#5,A$:IFST>0THEN640
620 IFA$=""THENGOSUB500:RETURN
630 GOTO610
640 IF E5 THEN END
650 N2=63999:RETURN
660 IFV$="P"THENOPEN4,4,7:CMD4
670 RETURN
680 IFV$="P"THENPRINT#4:CLOSE4
690 RETURN
700 PRINT:PRINT""F2$;" [154]HAD";C;"[154]MODIFICATIONS.":CLOSE5:CLOSE2:CLOSE1
800 PRINT"    [215]OULD YOU LIKE TO DO ANOTHER?"
810 A=PEEK(203):IFA<>25ANDA<>39THEN810
820 IFA=25THENRUN110
830 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
840 IFER<>63THENEND
850 LOAD"HELLO CONNECT",8
60100 POKE53280,2:POKE53281,1
60110 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
60135 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60140 PRINT"           [204][207][193][196][211][212][193][210] [208]RESENTS:"
60150 PRINT"                               "
60160 PRINT"                [195][207][205][208][193][210][197]        [152] "
60165 PRINT"                               [152] "
60170 PRINT"         BY [205]ICHAEL [196]. [204]EIDEL  [152] "
60175 PRINT"                               [152] "
60180 PRINT"           ([195])OPYRIGHT 1987    [152] "
60185 PRINT"                               [152] "
60195 PRINT"                               [152] "
60200 PRINT"        [208]RESS [211][208][193][195][197] TO CONTINUE"
60210 IFPEEK(203)<>60THEN60210
60220 RETURN
60500 B$="":PRINT"[164]";:POKE198,.:FORA=1TOLE+1
60510 GETA$:IFA$=""THEN60510
60520 IFA$<>CHR$(13)THEN60530
60522 FORI=1TOLEN(B$):IFLEFT$(B$,1)=" "THENB$=RIGHT$(B$,LEN(B$)-1)
60523 NEXT
60525 PRINT"[157] [154]":RETURN
60530 IFA$=CHR$(20)ANDA>1THENPRINT"[157][157]  [157][157][164]";:A=A-1:B$=LEFT$(B$,A-1):GOTO60510
60535 IF(A=LE+1)THEN60510
60540 IF(A$>=" ")AND(A$<="[218]")THEN60560
60550 GOTO60510
60560 PRINT"[157]"A$;:POKE212,.:PRINT"[164]";:B$=B$+A$:NEXT