10  FILES MT,LP
20  DIM A$[80]
30  FOR X=1 TO 20000
35  IF  END #1 THEN 70
40  LINPUT #1;A$[1,80]
50  PRINT #2;A$
60  NEXT X
70  PRINT #1;CTL(21);
80  GOTO 40
99  END 
