SUB DIGON

	!
	! DIGON.B4S
	! ~~~~~~~~~
	!	This routine will issue to the VISUAL 500 series
	! terminals the <ESC><W> sequence so that the VISUAL's printer
	! port is issued the commands sent to the VISUAL.
	!
	!	We thus are assuming that there is a digitizer attached
	! to the VISUAL's printer port.
	!

	CALL VISOUT( CHR$(27) + "W" )

	SUBEND