' OPTION LCDPANEL controller, orientation, D/C pin, reset pin [,CS pin]
' OPTION LCDPANEL ILI9341, RL, 4,5,6
' OPTION TOUCH T_CS pin, T_IRQ pin
' OPTION TOUCH 7,2
' GUI CALIBRATE
OPTION EXPLICIT
OPTION CLOCKTRIM -4
cls
SETPIN 26,DOUT ' display brightness
PIN(26)=1
COLOUR RGB(GREEN), RGB(BLACK)
FONT 1, 3
circle 50,50,40 'button1
circle 50,150,40 'button2
circle 150,50,40 'button3
circle 150,150,40 'button4

main:
DO
'
IF TOUCH(X) <> -1 THEN tapped
LOOP
END

SUB tapped
LOCAL tx,ty
tx=TOUCH(X)
ty=TOUCH(Y)
if ty > 0 and tx > 0 then
if tx > 10 and tx < 90 and ty > 10 and ty < 90 then
print "Button1"
endif
if tx > 110 and tx < 190 and ty > 10 and ty < 90 then
print "Button2"
endif
if tx > 10 and tx < 90 and ty > 110 and ty < 190 then
print "Button3"
endif
if tx > 110 and tx < 190 and ty > 110 and ty < 190 then
print "Button4"
endif

endif
pause 200
END SUB