VISUAL 500 SUBROUTINES CALLS FORMATS
	====================================

DIR by ref			Macro subroutine - read it
ADR by ref			Macro subroutine - read it
VISOPN				Open VI: on LUN=29% evf=32%
				must be called before any other VIS??? routine
				IO status returned in ERR$ in COMMON (VIS500)
VISCLS				Close VI:
				must be called after all other VIS??? routines
				IO status returned in ERR$ in COMMON (VIS500)
VISIN1 (WAIT%)			Input 1 character from visual 500
				Return to caller even if no input is received
				after 10*WAIT% seconds have elapsed.
				IO status returned in ERR$ in COMMON (VIS500)
				ERR$[1] = 1% if ok & ERR$[2] = full 8 bit character
				ERR$[1] = 2% if timed out
VISIN (S$,WAIT%)		Input some characters from visual 500
				If user waits >10*WAIT% seconds between characters then times out.
				Trys to read LEN(S$) characters into S$.
				Returns if timed out or S$ full.
				Actual length of S$ returned indicates how many characters got.
				So if LEN(S$) has shrunk then timed out.
VISOUT (S$)			Output S$ to visual 500
VISGDM				Set visual 500 to graphics draw mode.
VISGIM				Set visual 500 to graphics input mode.
VISCLR				Clear visual 500 screen.
VISBLK				Set visual 500 to black line mode.
VISWHT				Set visual 500 to white line mode.
VISHIT (S$,WAIT%)		Input 5 characters to S$.
				Time out if gap between characters exceeds 10*WAIT% seconds.
				If timed out then LEN(S$) returned <5.

			[end: VISCALLS.DOC]