REM Start of BASIC! Program
GR.OPEN 255,255,255,255,0,1
PAUSE 500
GR.SCREEN w, h 
GR.TEXT.SIZE h/20
GR.COLOR 255,0,0,0
GR.TEXT.ALIGN 2
GR.TEXT.DRAW xl,w/3,h/2,"left"
GR.TEXT.DRAW xr,w*2/3,h/2,"right"
GR.HIDE xl
GR.HIDE xr
DO
GR.TOUCH tch1,tchx1,tchy1
GR.TOUCH2 tch2,tchx2,tchy2
IF tch1&tch2 
  GR.SHOW xl
  GR.SHOW xr
ELSEIF tch1
  IF tchx1<w/2
   GR.SHOW xl
   GR.HIDE xr
  ELSE
   GR.HIDE xl
   GR.SHOW xr
  ENDIF
ELSEIF tch2
  IF tchx2<w/2
   GR.SHOW xl
   GR.HIDE xr
  ELSE
   GR.HIDE xl
   GR.SHOW xr
  ENDIF 
ELSE 
  GR.HIDE xl
  GR.HIDE xr
ENDIF 
GR.RENDER 
UNTIL 0