FTN,B,L PROGRAM TFTN C C TFTN TEST PROGRAM C 25154-18009 C DIMENSION IBUF(5),LINE(35) CALL RMPAR(IBUF) 5 FORMAT(/," HP FORTRAN",/) 10 FORMAT(" OUTPUT LUN? _") 20 FORMAT(" NUMBER OF LINES? _") 30 FORMAT(" ENTER A DATA STRING: _") 40 FORMAT(35A2) 50 FORMAT(X,35A2) IA=1 WRITE(1,5) WRITE(1,10) READ(1,*)IBUF WRITE(1,20) READ(1,*)IA WRITE(1,30) READ(1,40)(LINE(L),L=1,35) DO 100 I=1,IA II=IBUF(1) WRITE(II,50)(LINE(L),L=1,35) 100 CONTINUE CALL PRTN(IBUF) END END$