10 !  Set cursor position
   !  set display characteristics
   !  clear to the end of the line or screen
   !  clr.flag% = 0% -- no clear
   !     "      = 1% -- clear to end of screen
   !     "      = 2% -- clear to end of line
   sub vtpos(posx%, posy%, clr.flag%,mode%)
   esc$ = chr$(27%)
   print esc$ + "[" + num1$(mode%) + "m" ;
   print esc$ + "[" + num1$(posy%) + ";" + num1$(posx%) + "f" ;
   print esc$ + "[0K"; if clr.flag% = 2%  
   print esc$ + "[0J"; if clr.flag% = 1%
30 subend