...
TouchItemSize 120,40 'set new bigger button size for all subsequent items
TouchItemCreate(350,220),"EXIT",0,red,B 'create and draw button
...

TouchItemCreate(250,40),"dummy",3,purple,S

TouchItem(3) = 1

TouchCheck

if TouchItem(0) then 'automatically resets button state
DrawLED(352,50),0,red
endif

cls 1 : font #2 : color white,blue
option usb off

print @(100,6) "CMs CUSTOM WIDGET DEMO"
print @(387,52) "MyLED"
print @(387,82) "Blink"
DrawLED(352,50),0,red 'draw a small LED
DrawLED(352,80),0,green

settick 500, ledblink

TouchItemSize 80,25 'set default button size (power on)
' TouchItemCreate(x,y), "Caption", <refrum>, <colour>, <type> (B)utton or (S)witch or (R)adio
TouchItemCreate(50,40),"OFF",0,yellow,B 'create and draw some buttons
TouchItemCreate(150,40),"MyLED",1,red,B
TouchItemCreate(250,40),"ignore",3,purple,S 'create and draw a ON/OFF switch, caption ignored

TouchItem(3) = 1 ' set switch state manually to "on" by RefNum (3)

TouchItemSize 120,40 'set new bigger button size
TouchItemCreate(350,220),"EXIT",2,green,B

'create some radio buttons
TouchItemSize 80,25 'set default button size (power on)
TouchItemCreate(350,120),"TEST",4,green,R 'create and draw some radio buttons
TouchItemCreate(350,150),"Opt 2",5,white,R
TouchItemCreate(350,180),"Opt 3",6,white,R
TouchItem(4) = 1

TouchItemSize 80,20
TouchItemCreate(50,230),"CheckMe",7,cyan,C 'create and draw a checkbox
TouchItemCreate(200,230),"or me",8,white,C 'create and draw a checkbox

toggle_onoff = 0
Line(5,80)-(140,210), black, BF
do
x = TouchX ' needed for sketch drawing only
if x >= 5 and x < 140 then
y = TouchY
if y >= 80 and y < 210 then
Circle ( x, y ) ,2, white, F
font #2
print @(200,90) x " " @(250,90)" tX"
print @(200,120) y " " @(250,120)" tY"
TouchRelease ' wait for finger releasing touch screen
' DrawHBar(x,y), val, colour, [BFS], val ranges from 0 to 100
DrawVBar(160,90),y/2.7,yellow,BFS
DrawHBar(210,160),x/4.8,green,BFS ' bargraph with box, fill, scale
endif
endif

TouchCheck ' handle all buttons/switch events

if TouchItem(0) then 'automatically resets button state
DrawLED(352,50),0,red
endif
if TouchItem(1) then
DrawLED(352,50),1,red
endif

if TouchItem(2) then 'exit button
for i= 0 to 31
TouchItemRemove(i)
next i
cls black
font #2
colour yellow, black
print: print "Good Bye"
pause 500
run "AUTORUN.BAS"
end
endif

loop


ledblink:
if TouchItem(3) then
blink_on = not blink_on
DrawLED(352,80),blink_on,green
endif
ireturn