; This section of code tests if server available.



net_utils	GOSUB	scrolloff
		PUMP	DEVICE.console,ipl_net_utils	; Tell operator this is network utils.
		GOSUB	getchar

		cp	ESC.asc
		IF_EQ_RETURN

		cp	'p'
		IF_EQ_GOSUB	ping_server	; Ping server.	
		cp	'P'
		IF_EQ_GOSUB	ping_server	; testing if it replies.	

		cp	'e'
		IF_EQ_GOSUB	echo_server	; Ping server.	
		cp	'E'
		IF_EQ_GOSUB	echo_server	; testing if it replies.	

		cp	'b'
		IF_EQ_GOSUB	bind_server	; Bind volume to server.	
		cp	'B'
		IF_EQ_GOSUB	bind_server	; testing if it replies.	

		cp	'q'
		IF_EQ_GOSUB	query_server	; Query server & obtain parameters.	
		cp	'Q'
		IF_EQ_GOSUB	query_server	; Query server & obtain parameters.

		cp	's'
		IF_EQ_GOSUB	stat_server	; Command server to display stastics.	
		cp	'S'
		IF_EQ_GOSUB	stat_server	; Command server to display stastics.

		cp	0ffh			; Did we go to a function & return back?
		jr	nz,net_utils


		PUMP	DEVICE.console,utils_continue	; Ask operator to press enter to continue.
utils_getkey	GOSUB	getchar
		cp	CR.asc
		jp	z,net_utils
		jr	utils_getkey
	

utils_continue	db	CR.asc," Finished, press enter to continue.",ETX.asc