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$