HPAL,B,L,"TALGOL" 
& 
&     TALGOL TEST TAPE
&     25154-18011 
& 
  BEGIN 
  INTEGER ARRAY IBUF[1:5];
  INTEGER ARRAY LINE[1:35]; 
  INTEGER IA,Z,Y,II;
    PROCEDURE RMPAR(I);INTEGER I;CODE;
    PROCEDURE PRTN(J);INTEGER J;CODE; 
      FORMAT F0(/," HP ALGOL",/); 
      FORMAT F1(" OUTPUT LUN? _");
      FORMAT F2(" NUMBER OF LINES? _"); 
      FORMAT F3(" ENTER A DATA STRING:  _");
      FORMAT F4(35A2);
      FORMAT F5(X,35A2);
      RMPAR(IBUF[1]); 
      II_IBUF[1]; 
      IA_1; 
      WRITE(1,F0);
      WRITE(1,F1);
      READ(1,*,II); 
      WRITE(1,F2);
      READ(1,*,IA); 
      WRITE(1,F3);
      READ(1,F4,FOR Z_1 TO 35 DO LINE[Z]);
      FOR Y_1 STEP 1 UNTIL IA DO
        WRITE(II,F5,FOR Z_1 TO 35 DO LINE[Z]);
      IBUF[1]_II; 
      PRTN(IBUF[1]);
  END$
                                                                                                                                                                                                                      