10  DIM A$[255],B$[72]
20  PRINT "Mount MCP tape & press return "'7;
30  LINPUT B$
40  FILES MT
50  IF  END #1 THEN 130
60  LINPUT #1;A$
70  IF A$[1,2]='10'10 THEN 110
80  PRINT #1;CTL(21)
90  GOTO 60
100  LINPUT #1;A$
110  PRINT A$
120  GOTO 100
130  END 
