CHARACTER*6 FUNCTION TERM_NAME(M)

C Function to create terminal name from number

      	TERM_NAME = '_TTA0:'

      	N = MAX (M,1) - 1

	CALL CUPPER (TERM_NAME)

      	TERM_NAME(4:4) = CHAR(N/8+ICHAR('A'))
      	TERM_NAME(5:5) = CHAR(MOD(N,8)+ICHAR('0'))

      	RETURN

      	END