1 SUB VISGIM 2 ! output _{to visual 500
3 ! this means "graphics input mode" to visual 500
4 CALL VISOUT(CHR$(27%)+CHR$(26%))
5 SUBEND}