90 FILES FILO;FILO
100 DIM A$(100),B$(100),V(30)
110 FOR L=1 TO 400
120 INPUT A$(L)
130 IF A$(L)="ENDOFDATA" THEN 150
140 NEXT L
150 SCRATCH #2
160 FOR I=1 TO L
170 WRITE #2, A$(I)
180 NEXT I
185 LET M=L
190 GOSUB 1000
200 FOR I=1 TO L
210 LET B$(I)=A$(I)
220 NEXT I
230 GOSUB 2000
240 RESTORE #1
250 READ #1,C$,D$
260 LET N=2
270 GOSUB 4000
275 RESTORE #1
280 PRINT C$
290 PRINT D$
300 GOSUB 3000
310 LET M=L-N
320 GOSUB 1000
330 RESTORE #1
340 READ #1,E$,F$,G$,H$
350 LET N=4
360 GOSUB 4000
370 PRINT E$,F$
380 PRINT G$,H$
390 GOSUB 3000
400 LET M=L-N
410 GOSUB 1000
420 LET B$(I)=A$(I+1)
440 NEXT I
450 GOSUB 2000
460 GOTO 99999
999 REM SUBROUTINE TO PRINT A$ AS STRING
1000 LET K=1
1001 PRINT
1002 PRINT
1003 PRINT "##########A$"
1010 FOR I=1 TO M-1
1020 CHANGE A$(I) TO V
1030 LET K=K+V(0)
1040 IF K<80 THEN 1070
1050 PRINT
1060 LET K=1
1070 PRINT A$(I);
1080 NEXT I
1090 RETURN
1999 REM SUBR TO PRINT B$ STRING
2000 LET K=1
2001 PRINT
2002 PRINT
2003 PRINT "#####B$"
2010 FOR I=1 TO M-1
2020 CHANGE B$(I) TO V
2030 LET K=K+V(0)
2040 IF K<80 THEN 2070
2050 PRINT
2060 LET K=1
2070 PRINT B$(I);
2080 NEXT I
2090 RETURN
2999 REM READ PART OF STRING FROM DISK
3000 FOR I=1 TO L-N
3010 READ #1,A$(I)
3020 NEXT I
3030 RETURN
3999 REM TELLS WHAT WAS SKIPPED
4000 PRINT
4001 PRINT
4002 PRINT "$$$ STRINGS SKIPPED=";N
4003 RETURN
99999END
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          