10  FILES PR,PP
20  DIM A$[128]
30  FOR X=1 TO 20000
40  LINPUT #1;A$
50  PRINT #2;A$
60  NEXT X
80  GOTO 40
99  END 
