FTN4,B,L
      PROGRAM TFTN4 
C 
C     TFTN4 TEST PROGRAM
C     25154-18010 
C 
      DIMENSION IBUF(5),LINE(35)
      CALL RMPAR(IBUF)
5     FORMAT(/," HP FORTRAN 4",/) 
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$
                                                                                                                                