!************************************************************** &
	!								&
	!   >>>>>>     ALBRIGHT and WILSON (AUSTRALIA) LTD.   <<<<<<	&
	!              ____________________________________ 		&
	!								&
	!       M A I N   P R O G R A M   T I T L E   B L O C K		&
	!								&
	!       Program : SET_MODE_TERM.BAS				&
	!								&
	!       Version : V1.0 						&
	!       Date    : 15-11-91					&
	!       Author  : PETER DIMOPOULOS				&
	!								&
	!								&
	!************************************************************** &
	!
	External Long	Function	LIB$GET_FOREIGN
	Declare  Long			LIB_STATUS
	!
	LIB_STATUS = 							&
		Lib$Get_Foreign( REQ_MODE$, "Enter Required Terminal Mode >  " )
	!
	Call SET_MODE( REQ_MODE$ )
	!
	End
	!