CALL TERM (ITYPE)
	IF (ITYPE.EQ.1) WRITE (5,100)
	IF (ITYPE.EQ.2) WRITE (5,101)
	IF (ITYPE.NE.1.AND.ITYPE.NE.2) WRITE (5,102) ITYPE
100	FORMAT (' TYPE = VT52')
101	FORMAT (' TYPE = VT100')
102	FORMAT (' ',I5)
	STOP
	END