      SUBROUTINE GTEXT( IROW, ICOL, STRING)
      INCLUDE 'SIZES'
*
*  PLACES TEXT STRING IN GRAPHIC AREA
*
*  THIS SUBROUTINE CALLS APPROPRIATE TERMINAL ROUTINES
*    BASED UPON THE VALUE OF TTYPE
      CHARACTER*(*) STRING
      CHARACTER*80 BLANK, DUMMY
      COMMON/ DEVICE / ITYPE, ISCRN, KOROFF
      DATA BLANK/' '/
C
      IF ( ITYPE .EQ. 7 ) THEN
         CALL RETSTR( IROW, ICOL, STRING)
      ELSEIF ( ITYPE .EQ. 8 ) THEN
         CALL DECSTR( IROW, ICOL, STRING)
      ELSEIF ( ITYPE .EQ. 9 ) THEN
         CALL ST4010( IROW, ICOL, STRING)
      ELSEIF ( ITYPE .EQ. 5 ) THEN
         CALL TEKSTR( IROW, ICOL, STRING)
      ELSE
        IF (ICOL .LT. 1 ) THEN
           WRITE ( *, '( 1X, A )' ) STRING
        ELSE
           DUMMY = STRING
           WRITE ( *, '( 1X, A )' ) BLANK(1:ICOL)//DUMMY
        ENDIF
      ENDIF
*
      RETURN
      END
