1	SUB	VISWHT
2	! output <ESC + CONTROL H> to visual 500
3	! this means "draw white lines" to visual 500
4	CALL VISOUT(ESC + CHR$(8%))
5	SUBEND