c FINGERTER.FOR - Return terminal type name based on the DVI$_DEVTYPE code
c This is really dumb. VMS needs model names in enough places that this
c ought to be available by some *sane* method. Having said that...

c------------------------------------------------------------------
	Subroutine TypeToTerm (TTType, TermType)

	Character	TTType*25, ModelArray*12

	Integer		TermType, LookUp

c The following will need to be enlarged if VMS adds terminal types

	Dimension	ModelArray(255)

c Load up the mess
	Data	       (ModelArray(I), I = 1, 255)	/255*'Invalid?'/
	Data		ModelArray(1) 	/'Unknown'/
	Data		ModelArray(2) 	/'VT05'/
	Data		ModelArray(3) 	/'VK100'/
	Data		ModelArray(4) 	/'VT173'/
	Data		ModelArray(5) 	/'BTS'/
	Data		ModelArray(11) 	/'TEK401X'/
	Data		ModelArray(17) 	/'FT1'/
	Data		ModelArray(18) 	/'FT2'/
	Data		ModelArray(19) 	/'FT3'/
	Data		ModelArray(20) 	/'FT4'/
	Data		ModelArray(21) 	/'FT5'/
	Data		ModelArray(22) 	/'FT6'/
	Data		ModelArray(23) 	/'FT7'/
	Data		ModelArray(24) 	/'FT8'/
	Data		ModelArray(33) 	/'LA36'/
	Data		ModelArray(34) 	/'LA120'/
	Data		ModelArray(35) 	/'LA34'/
	Data		ModelArray(36) 	/'LA38'/
	Data		ModelArray(37) 	/'LA12'/
	Data		ModelArray(38) 	/'LA100'/
	Data		ModelArray(39) 	/'LQP02'/
	Data		ModelArray(40) 	/'LA84'/
	Data		ModelArray(41) 	/'LA210'/
	Data		ModelArray(42) 	/'LN03'/
	Data		ModelArray(43) 	/'LN01K'/
	Data		ModelArray(44) 	/'LA80'/
	Data		ModelArray(65) 	/'VT52'/
	Data		ModelArray(66) 	/'VT55'/
	Data		ModelArray(97) 	/'VT100'/
	Data		ModelArray(98) 	/'VT101'/
	Data		ModelArray(99) 	/'VT102'/
	Data		ModelArray(100) /'VT105'/
	Data		ModelArray(101)	/'VT125'/
	Data		ModelArray(102)	/'VT131'/
	Data		ModelArray(103)	/'VT132'/
	Data		ModelArray(104) /'VT80'/
	Data		ModelArray(111)	/'VT2xx'/
	Data		ModelArray(112)	/'PRO 3xx'/
	Data		ModelArray(113) /'VT3xx'/
	Data		ModelArray(114) /'VT4xx'/
	Data		ModelArray(115) /'VT5xx'/
	Data		ModelArray(248) /'GENERIC'/
	Data		ModelArray(249) /'GENANSI'/
	Data		ModelArray(250) /'GENDEC'/
	Data		ModelArray(252) /'LA75'/
	Data		ModelArray(253) /'LA50'/

c Ensure within our bounds
	If (TermType .lt. 0)
	1    TermType = 0
	If (TermType .gt. 255)
	1    TermType = 0

c Make 1-based
	TermType = TermType + 1

c Is it legal?
	If (TermType .eq. 0) Then
	    TTTYpe = 'Invalid?'
	Else
	    TTType = ModelArray( TermType )
	EndIf
	Return

	End