SUBROUTINE GOLN (/DUMMY/) 
      INTEGER DUMMY, GOMSG (2), GCHAR   
      DATA     GOMSG    /'GO',' T','O ','/'/
      CALL PSTR (GOMSG) 
      CALL SET (BBLANK, NAME, 3)
      CALL ESP (LN, NAME, 1, 5) 
      DO  13014 II = 1, 5   
      CALL PUTC (GCHAR (NAME, II))  
13014 CONTINUE  
    
      CALL PUTC (EOL)   
      RETURN
      END