1	SUB VISHIT (S$, NO%, WAIT%)
2	! will read NO% chars from visual 500 and return them in S$
3	! if WAIT%>0% will timeout after 10%*WAIT% seconds and S$ will
4	! be returned containing less than 5 chars
20	CALL VISIN (S$, NO%, WAIT%)
30	SUBEND