SUBROUTINE SETUP_SYSTEM
C
C	This routine sets up the system type.
C
	INCLUDE 'COM.INC/NOLIST'

	CHARACTER*(*) TYPEQ, SYSTEM_SYMBOL
	PARAMETER CTRLQ = 17

	PARAMETER (TYPEQ =
	1 'Enter the system type of the remote (DEC): ')
	PARAMETER (SYSTEM_SYMBOL = 'SYSTEM_TYPE')
C
C	Get the system type of remote.
C
	IF (STARTUP) THEN
		IF (GET_SYMBOL(SYSTEM_SYMBOL,SYSTEM_TYPE,LBYTE_COUNT)) THEN
			GO TO 130
		ENDIF
	ENDIF
100	CALL PROMPT_USER(TYPEQ,%REF(SYSTEM_TYPE),LEN(SYSTEM_TYPE))
	IF (BACKUP) RETURN
	IF (WANTS_HELP) THEN
125		CALL GET_HELP('SYSTEM')
		GOTO 100
	ENDIF
	CROSS_FILE = .FALSE.		! Presume not cross file.
	TIMEOUT_COUNT = 10		! Set default timeout count.
130	IF (LBYTE_COUNT .EQ. 0) THEN
		SYSTEM_TYPE = 'DEC'	! Default is 'DEC'.
		LBYTE_COUNT = 3
	ENDIF
	SYSTEM_SIZE = LBYTE_COUNT	! Save the byte count.
C
C	Setup the default read terminator to carriage return
C
	CALL SET_TERMINATOR(TERMPTR,TERMTBL,%REF(CR))

	IF     (SYSTEM_TYPE(1:5) .EQ. 'APPLE') THEN
		READ_ONE = .TRUE.
		LOCAL_ECHO = .FALSE.
		FUNCTION = (IO$_TTYREADALL + IO$M_NOECHO)
	ELSEIF	(SYSTEM_TYPE(1:5) .EQ. 'CROSS') THEN
		READ_ONE = .TRUE.
		LOCAL_ECHO = .TRUE.	! Must do a local echo.
		CALL SET_TERMINATOR(TERMPTR,TERMTBL,%REF(CTRLQ))
		FUNCTION = IO$_TTYREADALL
		CROSS_FILE = .TRUE.
	ELSEIF (SYSTEM_TYPE(1:3) .EQ. 'DEC') THEN
		READ_ONE = .FALSE.
		LOCAL_ECHO = .FALSE.
		FUNCTION = (IO$_TTYREADALL + IO$M_NOECHO)
	ELSEIF	(SYSTEM_TYPE(1:4) .EQ. 'EASY') THEN
		READ_ONE = .FALSE.
		LOCAL_ECHO = .FALSE.
		FUNCTION = (IO$_TTYREADALL + IO$M_NOECHO)
	ELSEIF (SYSTEM_TYPE(1:3) .EQ. 'IBM') THEN
		READ_ONE = .TRUE.
		LOCAL_ECHO = .TRUE.	! Must do a local echo.
		TIMEOUT_COUNT = 1	! Timeout for dump read.
		FUNCTION = IO$_TTYREADALL
	ELSEIF (SYSTEM_TYPE(1:4) .EQ. 'UNIX') THEN
		READ_ONE = .TRUE.
		LOCAL_ECHO = .FALSE.
		FUNCTION = (IO$_TTYREADALL + IO$M_NOECHO)
	ELSEIF (SYSTEM_TYPE(1:4) .EQ. 'XXDP') THEN
		READ_ONE = .TRUE.
		LOCAL_ECHO = .FALSE.
		FUNCTION = (IO$_TTYREADALL + IO$M_NOECHO)
	ELSE
		GO TO 125
	ENDIF
	RETURN
	END