1	SUB	VISCLR
2	! output <FF> to visual 500
3	! this means clear screen to visual 500		&
\	FF$ = (ESC+FF)
4	CALL VISOUT(FF$)
5	SUBEND