SUBROUTINE SETUP_BAUDRATE
C
C	Get and set the baud rate for the remote.
C
	INCLUDE 'COM.INC/NOLIST'
	INCLUDE 'TTDEF.FOR/NOLIST'

	CHARACTER*(*) BAUDQ, SPEED_SYMBOL

	PARAMETER (BAUDQ =
	1 'Enter the baud rate for the remote port (9600): ')
	PARAMETER (SPEED_SYMBOL = 'REMOTE_SPEED')

	IF (STARTUP) THEN
		IF (GET_SYMBOL(SPEED_SYMBOL,REMOTE_BAUD,LBYTE_COUNT)) THEN
			GO TO 230
		ENDIF
	ENDIF
200	CALL PROMPT_USER(BAUDQ,%REF(REMOTE_BAUD),LEN(REMOTE_BAUD))
	IF (BACKUP) RETURN
	IF (WANTS_HELP) THEN
225		CALL GET_HELP('BAUD')
		GOTO 200
	ENDIF
C
C	See if the baud rate is acceptable.
C
230	IF (LBYTE_COUNT .EQ. 0) THEN
		REMOTE_BAUD = '9600'	! Default baud rate.
		LBYTE_COUNT = 4
	ENDIF
	SPEED_SIZE = LBYTE_COUNT

	IF     (REMOTE_BAUD(1:2) .EQ. '50') THEN
		BAUD_RATE = TT$C_BAUD_50
	ELSEIF (REMOTE_BAUD(1:2) .EQ. '75') THEN
		BAUD_RATE = TT$C_BAUD_75
	ELSEIF (REMOTE_BAUD(1:3) .EQ. '110') THEN
		BAUD_RATE = TT$C_BAUD_110
	ELSEIF (REMOTE_BAUD(1:3) .EQ. '134') THEN
		BAUD_RATE = TT$C_BAUD_134
	ELSEIF (REMOTE_BAUD(1:3) .EQ. '150') THEN
		BAUD_RATE = TT$C_BAUD_150
	ELSEIF (REMOTE_BAUD(1:3) .EQ. '300') THEN
		BAUD_RATE = TT$C_BAUD_300
	ELSEIF (REMOTE_BAUD(1:3) .EQ. '600') THEN
		BAUD_RATE = TT$C_BAUD_600
	ELSEIF (REMOTE_BAUD(1:4) .EQ. '1200') THEN
		BAUD_RATE = TT$C_BAUD_1200
	ELSEIF (REMOTE_BAUD(1:4) .EQ. '1800') THEN
		BAUD_RATE = TT$C_BAUD_1800
	ELSEIF (REMOTE_BAUD(1:4) .EQ. '2000') THEN
		BAUD_RATE = TT$C_BAUD_2000
	ELSEIF (REMOTE_BAUD(1:4) .EQ. '2400') THEN
		BAUD_RATE = TT$C_BAUD_2400
	ELSEIF (REMOTE_BAUD(1:4) .EQ. '3600') THEN
		BAUD_RATE = TT$C_BAUD_3600
	ELSEIF (REMOTE_BAUD(1:4) .EQ. '4800') THEN
		BAUD_RATE = TT$C_BAUD_4800
	ELSEIF (REMOTE_BAUD(1:4) .EQ. '7200') THEN
		BAUD_RATE = TT$C_BAUD_7200
	ELSEIF (REMOTE_BAUD(1:4) .EQ. '9600') THEN
		BAUD_RATE = TT$C_BAUD_9600
	ELSEIF (REMOTE_BAUD(1:5) .EQ. '19200') THEN
		BAUD_RATE = TT$C_BAUD_19200
	ELSE
		GO TO 225
	ENDIF
	CALL SETUP_REMOTE(.TRUE.)	! Setup remote characteristics.
	RETURN
	END