CLS
DIM integer ButtonTouched,Change,Res

Const SBOX = 5
Const BT_ReStart = 6
Const BT_Change = 7

GUI SPINBOX SBOX,MM.Hres/20,MM.Vres/2,MM.Hres/3,MM.Vres/6,RGB(WHITE),RGB(BLUE),1,1,5
GUI BUTTON BT_ReStart,"Restart",MM.Hres/1.4,MM.Vres/2,MM.Hres/5,MM.Vres/6,RGB(WHITE),RGB(BLUE)
GUI BUTTON BT_Change,"Change",MM.Hres/2.2,MM.Vres/2,MM.Hres/5,MM.Vres/6,RGB(WHITE),RGB(BLUE)
GUI Interrupt TouchDN,TouchUP


Sub TouchDN()
IF Change Then ButtonTouched = Touch(REF)
End Sub

Sub TouchUP()
IF NOT Change Then ButtonTouched = Touch(LASTREF)
End Sub

DO
IF ButtonTouched <> 0 Then HandleTouch()
Loop

SUB HandleTouch()
Local as Integer ThisTouch

ThisTouch = ButtonTouched

Select Case ThisTouch

Case SBOX
Res = Msgbox("ERROR from something","OK")

Case BT_ReStart
CPU RESTART

Case BT_Change
if Change = 1 then
Change = 0
GUI Bcolour RGB(BLUE),BT_Change
else
Change = 1
GUI Bcolour RGB(RED),BT_Change
endif
Pause 500
End Select

ButtonTouched = 0
END SUB