10 DIM I$[56],J$[14]V
20 OPEN #3,"LOG.LST/EN:200" : INPUT LINE #3,J$
30 INPUT LINE #3,J$ : J$=TRM$(SBS$(J$,3,9)) : PRINT J$
40 OPEN #4,J$+".LOG/RN/LN:56/MO"
50 J=NRC(4) : JL=J-4
60 FOR I=JL TO J
70	INPUT LINE #4@I,I$
80	PRINT I$
90 NEXT I
100 PRINT
120 CLOSE 4
130 GOTO 30
200 CLOSE
210 EXIT