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$
                                                                                                                                