SUBROUTINE GETTRM(LUN,TTYPE) C C Routine to return the terminal type of the terminal that C is assigned to the specified LUN. What is returned is C actually a terminal type number, which is one of the C following: C C 0 Unknown type (VC404's, etc.) C 1 ASR33 C 2 KSR33 C 3 ASR35 C 4 LA30S C 5 LA30P C 6 LA36 C 7 VT05 C 8 VT50 C 9 VT52 C 10 VT55 C 11 VT61 C 12 LA180S C 13 VT100 C 14 LA120 C 17 LA100 C 18 LA34 C 30 VT2XX C -128 VC404 C C Note: These terminal types are correctly returned only when C the system is aware of the terminal type (ie. not unknown) C by means of the SET /TERM= command. C INTEGER LUN,TTYPE,PB(2),ISB(2) BYTE CMD(2) CALL GETADR(PB,CMD) PB(2) = 2 CMD(1) = "10 CALL WTQIO("2560,LUN,1,,ISB,PB) ! SF.GMC get multiple char. TTYPE = CMD(2) RETURN END