1	SUB	VISGDM
2	! output <GS> to visual 500
3	! this means "graphics draw mode" to visual 500
4	CALL VISOUT(CHR$(29%))
5	SUBEND