%BEGIN
%INTEGER LIM
   LIM=(FREESTORE-300)<<1
%BYTEINTEGERARRAY T(1:LIM)
%INTEGER COP,POS,P,J
%FAULT 9->9
   SELECT INPUT(0); SELECT OUTPUT(0)
   %PRINTTEXT 'COPIES:'; READ(COP);
   SELECT INPUT(1); SELECT OUTPUT(1)
   %CYCLE POS=1,1,COP
      %CYCLE
         P=1
         %UNTIL P>LIM %CYCLE
            READ CH(J); T(P)=J
            P=P+1
         %REPEAT
         PRINT CH(T(P)) %FOR P=1,1,P-1
      %REPEAT
9:    PRINT CH(T(P)) %FOR P=1,1,P-1
      PRINT CH(12)
      CLOSE INPUT
   %REPEAT
%ENDOFPROGRAM
