INTEGER I
      INTEGER GTTYPE,GTATTR,STRLSR,GETARG
      INTEGER TTYPE(7),ARG(128)
      INTEGER SPOS(13)
      INTEGER STXT(94)
      INTEGER AAAAA0(5)
      INTEGER AAAAB0(4)
      INTEGER AAAAC0(4)
      DATA STXT/1,1,243,229,0,1,1,173,243,229,0,2,1,246,244,232,0,2,1,17
     *3,246,244,232,0,3,0,236,227,225,243,229,0,3,0,173,236,227,225,243,
     *229,0,1,0,238,239,243,229,0,1,0,173,238,239,243,229,0,2,0,238,239,
     *246,244,232,0,2,0,173,238,239,246,244,232,0,3,1,238,239,236,227,22
     *5,243,229,0,3,1,173,238,239,236,227,225,243,229,0/
      DATA SPOS/12,1,6,12,18,25,33,42,49,57,65,74,84/
      DATA AAAAA0/170,243,170,238,0/
      DATA AAAAB0/177,170,238,0/
      DATA AAAAC0/176,170,238,0/
      IF((GTTYPE(TTYPE).NE.0))GOTO 10000
        CALL ERROR('No terminal type information is available.')
10000 IF((GETARG(1,ARG,128).NE.-1))GOTO 10001
        CALL PRINT(-11,AAAAA0,TTYPE)
        GOTO 10002
10001   CALL MAPSTR(ARG,1)
        I=STRLSR(SPOS,STXT,2,ARG)
        IF((I.NE.-1))GOTO 10003
          CALL REMARK('Usage: term_type [ -se   | -vth   | -lcase.')
          CALL ERROR('                   -nose | -novth | -nolcase ].')
10003   IF((GTATTR(STXT(SPOS(I))).NE.STXT(SPOS(I)+1)))GOTO 10004
          CALL PRINT(-11,AAAAB0)
          GOTO 10005
10004     CALL PRINT(-11,AAAAC0)
10005 CONTINUE
10002 CALL SWT
      END
C ---- Long Name Map ----