10 REM ...LIST J[MF\R.PGM  Egils Programmeri
20 DIM A$=128% : DIM A1$=128% : DIM A2$=128%
30 ; CHR$(12)'Programmet har handbroms - n{r du h}ller ner en tangent st}r det still' : ; : ; 
40 ; 'Om du har samma namn p} programmen p} tv} diskar, skriv drX: framf|r ena namnet.'; : ; : ; 
50 ; 'F|rsta filen : '; : INPUT F1$
60 ; 'Andra filen : '; : INPUT F2$
70 GOTO 90
80 CLOSE 1 : CLOSE 2 : ; 'Samma filer en g}ng till'; : INPUT A$ : IF A$='J' OR A$='j' 90 ELSE STOP 
90 ; 'P} printern (n) '; : INPUT A$ : IF A$='j' OR A$='J' P%=3% : OPEN 'PR:' ASFILE 3%
100 ONERRORGOTO 80 : OPEN F1$ ASFILE 1 : OPEN F2$ ASFILE 2
110 ; #P%,'J{mf|r rader med samma radnummer f|r 'F1$' och 'F2$ : ; #P%
120 F1$=F1$+SPACE$(16%-LEN(F1$))
130 F2$=F2$+SPACE$(16%-LEN(F2$))
140 REM ...START L[SNING
150 IF INP(56%)>127% THEN 150
160 IF A1%=A2% GOTO 220
170 IF A1%>A2% GOTO 190
180 GOSUB 200 : ; #P% : F%=1% : GOSUB 260 : A1%=A% : A1$=A$ : GOTO 140
190 GOSUB 210 : ; #P% : F%=2% : GOSUB 260 : A2%=A% : A2$=A$ : GOTO 140
200 ; #P%,F1$' : 'A1%' 'A1$ : RETURN 
210 ; #P%,F2$' : 'A2%' 'A2$ : RETURN 
220 IF A1$<>A2$ GOSUB 200 : GOSUB 210 : ; #P%
230 F%=1% : GOSUB 260 : A1%=A% : A1$=A$
240 F%=2% : GOSUB 260 : A2%=A% : A2$=A$
250 GOTO 140
260 INPUTLINE #F%,A$
270 A$=LEFT$(A$,LEN(A$)-2)
280 B%=INSTR(1%,A$,CHR$(32%))
290 A%=VAL(LEFT$(A$,B%-1%))
300 A$=RIGHT$(A$,B%+1%)
310 RETURN