COMMAND xTERMINAL;
BEGIN
	GUIDE "mode is";

	PARSE KEYWORD( WORDS(
		33 :	200,
		35 :	200,
		37 :	200,
		DM2500:	5,		!NEW FOR BU
		EXECUPORT : 200,
		FLAG :	100,		!(UPPER...)
		FORMFEED : 101,		!(EXISTS...)
		FULLDUPLEX : 102,	!(MODE FOR...)
!		H19_ANSI : 38,		!***** NEW FOR BU
		HALFDUPLEX : 102,	!(MODE FOR...)
		HELP : 200,
		IMMEDIATE : 103,	!(ECHO MODE)
		INDICATE : 104,		!(FORMFEED)
		LA120 :	200,
		LA30 :	200,
		LA36 :	200,
		LA38 :	200,
		LENGTH : 105,		!!
		LINE_HALFDUPLEX : 102,	!(MODE FOR...)
		LOWERCASE : 101,	!(EXISTS...)
		NO :	106,		!*
		PAGE :	107,		!*
		PAUSE : 108,		!*
		RAISE : 109,		!(TERMINAL INPUT)
		SPEED : 110,		!*
		SYSTEM_DEFAULT : 200,
		TABS :	101,		!(EXISTS...)
		TERMINET : 200,
		TI :	200,
		TYPE :	111,		!*
		VK100 : 200,
		VT05 :	200,
		VT100 : 200,
!		VT102 :	37,		!***** NEW FOR BU
		VT125 : 200,
!		VT131 : 39,		!***** NEW FOR BU
!		VT200_SERIES : 40,	!***** NEW FOR BU
		VT50 :	200,
		VT52 :	200,
		WIDTH : 112)		!*
	) : CASE $VALUE FROM 100 TO 200 OF BEGIN
	100:	BEGIN
L100:		    GUIDE "upper case output";
		    DOCOMMAND ORIGINAL "TERM " + $ATOM;
		END;

	101:	BEGIN
L101:		    GUIDE "exists on terminal";
		    DOCOMMAND ORIGINAL "TERM " + $ATOM;
		END;

	102:	BEGIN
		    GUIDE "mode is";
		    DOCOMMAND ORIGINAL "TERM " + $ATOM;
		END;
		    
	103:	BEGIN
L103:		    GUIDE "echo mode";
		    DOCOMMAND ORIGINAL "TERM " + $ATOM;
		END;
		    
	104:	BEGIN
L104:		    GUIDE "formfeed";
		    DOCOMMAND ORIGINAL "TERM " + $ATOM;
		END;
		    
	105:	BEGIN
		    GUIDE "of page is";
		    PARSE NUMBER(HELP "Length of page in decimal") ;
		    DOCOMMAND ORIGINAL "TERM LENGTH " + $STRING($VALUE);
		END;

	106:	BEGIN !CASE 106 (NO)
		    PARSE KEYWORD( WORDS(
			FLAG :	100,
			FORMFEED : 101,
			IMMEDIATE : 103,
			INDICATE : 104,
			LOWERCASE : 0,
			PAGE :	0,
			PAUSE :	0,
			RAISE : 0,
			TABS :	0)
		    ) : CASE $VALUE FROM 0 TO 1000 OF BEGIN
		    END; !CASE STMT FOR NO KEYWORD
		END; !CASE 106 (NO)

	107:	BEGIN
L107:		    NOP
		END;

	108:	BEGIN
L108:		    NOP
		END;

	109:	BEGIN
		    GUIDE "terminal input";
		    DOCOMMAND ORIGINAL "TERM " + $ATOM;
		END;

	111:	BEGIN
		    PARSE BEGIN
			NUMBER(HELP "Terminal type") :
			    DOCOMMAND ORIGINAL "TERM TYPE " + $STRING($VALUE);
			KEYWORD( WORDS(
			    33 :	200,
			    35 :	200,
			    37 :	200,
			    DM2500:	5,	!***** NEW FOR BU
			    EXECUPORT : 200,
!			    H19_ANSI :	38,	!***** NEW FOR BU
			    LA120 :	200,
			    LA30 :	200,
			    LA36 :	200,
			    LA38 :	200,
			    TERMINET :	200,
			    TI :	200,
			    VK100 :	200,
			    VT05 :	200,
			    VT100 :	200,
!			    VT102 :	37,	!***** NEW FOR BU
			    VT125 :	200,
!			    VT131 :	39,	!***** NEW FOR BU
!			    VT200_SERIES : 40,	!***** NEW FOR BU
			    VT50 :	200,
			    VT52 :	200)
			) : CASE $VALUE FROM 0 TO 100 OF BEGIN
			INRANGE:
			    DOCOMMAND ORIGINAL "TERM TYPE " + $STRING($VALUE);
			OUTRANGE:
			    DOCOMMAND ORIGINAL "TERM TYPE " + $ATOM;
			END; !CASE STMT FOR TYPE + KEY
		    END; !PARSE
		END; !OF CASE 111 (TYPE)

	200:	DOCOMMAND ORIGINAL "TERM " + $ATOM;

	INRANGE:
		DISPLAY "INRANGE " + $ATOM + " " + $STRING($VALUE);

	OUTRANGE:
		DOCOMMAND ORIGINAL "TERM TYPE " + $STRING($VALUE);

	END; !CASE TERM KEYWORD
END; !TERM COMMAND