SUBROUTINE PLN (/DUMMY/)  
      INTEGER DUMMY, TS, GCHAR  
      IF (OUTPTR .GT. 7) CALL PUTC (EOL)
      CALL SET (BBLANK, NAME, 3)
      CALL ESP (LN, NAME, 1, 5) 
      DO  13006 TS = 1, 5   
      CALL PUTC (GCHAR (NAME, TS))  
13006 CONTINUE  
    
      OUTPTR = 7
      RETURN
      END