C	PASSALL.FOR - THIS PROGRAM WILL CHANGE THE CHARACTERISTICS OF THE
C	USER-SPECIFIED TERMINAL TO THOSE SUITABLE FOR USE AS A VAXNET
C	OUTPUT PORT.
C
C	J. THOMPSON  INTERMETRICS  JULY 26, 1979

	INCLUDE 'COM.INC'
	CHARACTER*50 REMDEV	! TO HOLD THE NAME OF THE PHYSICAL REMOTE DEV.
C
C	NOTE IN THE FOLLOWING THAT I CONTAINS THE TRUE LENGTH, AND REMEMBER
C	THAT TRNLOG PUTS A 4-BYTE HEADER ON THE TRANSLATIONS OF
C	SYS$INPUT/OUTPUT SPECIFICALLY.

	WRITE(6,9901)
9901	FORMAT(' NAME OF DZ11 PORT TO SET FOR VAXNET (e.g. TTB7:)? '$)
	READ(5,9902) I,REMDEV(1:I)
9902	FORMAT(Q,A<I>)
	IRCODE=SYS$ASSIGN(REMDEV(1:I),RCHANIN,,)! REMOTE CHANNEL INPUT
	IF(IRCODE.NE.%LOC(SS$_NORMAL)) STOP 'REMOTE DZ11 PORT NOT ASSIGNED'
	RCHANOUT = RCHANIN			! REMOTE CHANNEL OUTPUT.

	CALL SETVAXNET	!SET CHARACTERISTICS
	STOP 'PASSALL TTY SETTINGS'
	END