1	SUB	VISBLK
2	! output <ESC + CONTROL G> to visual 500
3	! this means "draw black lines" to visual 500
4	CALL VISOUT(ESC + CHR$(7%))
5	SUBEND