'C-SCRIPT PROGRAMS
TOUCHSCREEN


X=10
Y=7

C=0
C$="OFF"
TX=X
TY=Y
DO

  WINDOW 12,0,19,14,0

  PRINT "CLS:";C$

  ' BUTTONS
  CELL 0,15,14   
  CELL 19,15,14  

  IF TOUCH THEN

    TX=TOUCH.X\8
    TY=TOUCH.Y\8

    ' OFF BUTTON
    IF TX=0 AND TY=15 THEN
      C=0
      C$="OFF"
      
    END IF

    ' ON BUTTON
    IF TX=19 AND TY=15 THEN
      C=1
      C$="ON"

    END IF

  END IF

  IF X<TX THEN X=X+1
  IF X>TX THEN X=X-1
  IF Y<TY THEN Y=Y+1
  IF Y>TY THEN Y=Y-1

  ' DRAW CURSOR
  CELL X,Y,15

  WAIT VBL

  IF C=1 THEN CLS

LOOP
#1:DEFAULT PALETTES
0901000600131512003F3E3D002E2D2C
0022201F00363534001E190200060504

#2:DEFAULT CHARACTERS
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
00000000000000000000000000000000
FFFFFFFFFFFFFFFF0000000000000000
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF