> list
'prog to test USB touch

Option default integer

GUI Cursor on
'GUI Cursor Link Mouse
GUI interrupt TouchDown,TouchUp

Do
 If Touch(down)=1 Then
   Print Touch(x),Touch(y)
 EndIf
Loop Until Inkey$<>""

End

Sub TouchDown
 Print "Touched"
End Sub

Sub TouchUp
 Print "Untouched"
End Sub
>

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Pump-control GUI demo for MMBasic builds with GUI CONTROLS
' -----------------------------------------------------------------
' Demonstrates the standard GUI widgets (caption, switch, displaybox,
' frame, radio, numberbox, button, LED, checkbox, textbox, spinbox)
' driven by whichever input methods the firmware happens to expose:
'
'   Touch screen .... via GUI INTERRUPT TouchDown, TouchUp
'   USB mouse ....... via GUI CURSOR LINK MOUSE
'   Keyboard ........ via INKEY$ + GUI CURSOR / GUI CLICK
'
' All three routes end up in the same TouchDown / TouchUp subs, so the
' program contains no per-input-source branching: each control is
' handled once, regardless of where the click came from.
'
' Layout is hand-placed for a 320x240 canvas so the program runs on
' the smallest LCD panels; on VGA/HDMI builds the program switches to
' MODE 2 (320x240) to keep the layout intact.
'
' Geoff Graham, October 2015 (original)
' Modified for ILI9341 by Phil23
' Refactored for multi-firmware input by Peter Mather, 2026
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
' ----- control reference numbers ---------------------------------
Const c_head     = 1,  c_pmp     = 2,  sw_pmp    = 3
Const c_flow     = 4,  tb_flow   = 5
Const led_run    = 6,  led_alarm = 7
Const frm_alarm  = 20, nbr_hi    = 21, nbr_lo    = 22, pb_test = 23
Const c_hi       = 24, c_lo      = 25
Const frm_pump   = 30, r_econ    = 31, r_norm    = 32, r_hi    = 33
Const frm_log    = 40, cb_enabled= 41, c_fname   = 42, tb_fname= 43
Const c_log      = 44, cb_flow   = 45, cb_pwr    = 46, cb_warn = 47
Const cb_alarm   = 48, c_bright  = 49, sb_bright = 50
' ----- layout constants ------------------------------------------
Const ledsX = 125              ' x column shared by both LEDs
Const stepx = 4                ' keyboard cursor step in pixels
' ----- runtime state ---------------------------------------------
Dim Integer cw, ch             ' canvas width / height
Dim Integer mx, my             ' soft-cursor position
Dim Integer ledsY              ' running y while stacking the LEDs
Dim Integer held               ' 1 while GUI CLICK DOWN is in effect
Dim String  k$
' =================================================================
' Display + input device setup
' =================================================================
Colour RGB(white), RGB(black)
CLS
' VGA/HDMI firmware boots in a larger mode; force 320x240 so the
' hard-coded coordinates below land in the right place.
If Instr(MM.DEVICE$, "VGA") Or Instr(MM.DEVICE$, "HDMI") Then
 MODE 3
EndIf
cw = MM.HRES : ch = MM.VRES
mx = cw \ 2  : my = ch \ 2
' The soft cursor is required for mouse and keyboard input. Touch-only
' firmware accepts the command and simply never moves the cursor.
GUI Cursor On
' GUI CURSOR LINK MOUSE only exists on builds with USB host support.
' "On Error Skip" lets older firmware silently continue.
On Error Skip
GUI Cursor Link Mouse
keyboard off
' Both real touches and GUI CLICK (used by the keyboard fallback)
' dispatch through this interrupt pair.
GUI Interrupt TouchDown, TouchUp
' =================================================================
' Build the pump-control display
' =================================================================
' --- heading and pump label --------------------------------------
Font 2
GUI Caption c_head, "Pump Control", 10, 0
GUI Caption c_pmp,  "Pump",         10, 25, , RGB(brown)
' --- pump ON/OFF switch ------------------------------------------
GUI Switch sw_pmp, "ON|OFF", 10, 45, 70, 30, RGB(white), RGB(brown)
CtrlVal(sw_pmp) = 1                                  ' starts ON
' --- flow-rate read-out ------------------------------------------
GUI Caption    c_flow,  "Flow Rate", 5, 75,  , RGB(brown), 0
GUI Displaybox tb_flow,              5, 100, 105, 25
CtrlVal(tb_flow) = "20.1"
' --- power-mode radio group --------------------------------------
GUI Frame frm_pump, "Power", 5, 140, 105, 90, RGB(200,20,255)
Font 1
GUI Radio r_econ, "Economy", 20, 160, 10, RGB(230,230,255)
GUI Radio r_norm, "Normal",  20, 185
GUI Radio r_hi,   "High",    20, 210
CtrlVal(r_norm) = 1                                  ' default mode
' --- alarm frame: Hi/Lo number boxes + TEST button ---------------
Font 2 : GUI Frame frm_alarm, "Alarm", 115, 115, 90, 115, RGB(green)
Font 1
GUI Caption   c_hi,    "Hi:", 120, 150, LT, RGB(yellow)
GUI Numberbox nbr_hi,         150, MM.VPOS-6, 40, MM.FONTHEIGHT+6, RGB(yellow), RGB(64,64,64)
GUI Caption   c_lo,    "Lo:", 120, 175, LT, RGB(yellow), 0
GUI Numberbox nbr_lo,         150, MM.VPOS-6, 40, MM.FONTHEIGHT+6, RGB(yellow), RGB(64,64,64)
GUI Button    pb_test, "TEST", 125, 200, 70, 25, RGB(yellow), RGB(red)
CtrlVal(nbr_hi) = 35.5
CtrlVal(nbr_lo) = 15.7
' --- two status LEDs, stacked vertically -------------------------
ledsY = 50         : GUI LED led_run,   "Running", ledsX, ledsY, 8, RGB(green)
ledsY = ledsY + 25 : GUI LED led_alarm, "Alarm",   ledsX, ledsY, 8, RGB(red)
CtrlVal(led_run) = 1                                 ' tracks the switch
' --- logging frame: enable, file name, per-event check boxes -----
Colour RGB(cyan), 0
GUI Frame    frm_log,    "Log File",  210, 10,  110, 160, RGB(green)
GUI Checkbox cb_enabled, "Log On",    215, 20,  20, RGB(cyan)
GUI Caption  c_fname,    "File Name", 215, 45
GUI Textbox  tb_fname,                215, 60,  100, 20, RGB(cyan), RGB(64,64,64)
GUI Caption  c_log,      "Record:",   215, 85,  , RGB(cyan), 0
GUI Checkbox cb_flow,    "Flow",      220, 100, 20
GUI Checkbox cb_alarm,   "Alarms",    220, 120, 20
GUI Checkbox cb_warn,    "Warnings",  220, 140, 20
CtrlVal(cb_enabled) = 1
CtrlVal(tb_fname)   = "LOGFILE.TXT"
' --- backlight spinbox -------------------------------------------
GUI Caption c_bright, "Back Light", 230, 190, , RGB(200,200,255), 0
GUI Spinbox sb_bright,              210, 210, 110, 25, , , 10, 10,100
CtrlVal(sb_bright) = 60
' =================================================================
' Main loop: keyboard fallback for builds with no touch and no mouse
'
' Touch and mouse events go straight to TouchDown / TouchUp via the
' GUI interrupt, so nothing here has to handle them. The loop only
' translates keys into cursor moves and synthetic clicks:
'
'   arrow keys -- move the soft cursor stepx px
'   SPACE      -- momentary click at the current cursor
'   D / d      -- press-and-hold (useful for drag tests)
'   U / u      -- release a held click
'   ESC / Q    -- quit cleanly
' =================================================================
held = 0
Do
 k$ = Inkey$
 If k$ <> "" Then
   Select Case Asc(k$)
   Case &H82                       ' LEFT
     mx = mx - stepx
   Case &H83                       ' RIGHT
     mx = mx + stepx
   Case &H80                       ' UP
     my = my - stepx
   Case &H81                       ' DOWN
     my = my + stepx
   Case 32                         ' SPACE -- momentary click
     '      GUI cursor mx, my
     '      GUI click down
     '      Pause 10
     '      GUI click up
     GUI click mx,my
   Case 100, 68                    ' 'd' / 'D' -- press and hold
     If held = 0 Then
       GUI Cursor mx, my
       GUI Click Down
       held = 1
     EndIf
   Case 117, 85                    ' 'u' / 'U' -- release
     If held = 1 Then
       GUI Click Up
       held = 0
     EndIf
   Case 27, 113, 81                ' ESC / 'q' / 'Q' -- quit
     Exit Do
   End Select
   ' Keep the cursor inside the visible canvas.
   If mx < 0      Then mx = 0
   If my < 0      Then my = 0
   If mx > cw - 1 Then mx = cw - 1
   If my > ch - 1 Then my = ch - 1
   GUI Cursor mx, my
 EndIf
 Pause 5
Loop
' Drop any held click so we don't leave a phantom press behind.
If held = 1 Then GUI Click Up
GUI Cursor Off
End
' =================================================================
' Interrupt handlers
'
' Called for every input source: a finger on the touch panel, a mouse
' button via GUI CURSOR LINK MOUSE, or GUI CLICK from the keyboard
' fallback above. Touch(REF) holds the control that was hit; the body
' of each Case is the actual application logic for that control.
' =================================================================
Sub TouchDown
 Local Integer tx, ty,mbox
 tx = Touch(x) : ty = Touch(y)
 If Not (tx = -1 Or ty = -1) Then
   ' Real touch -- sync the soft cursor so it follows the finger.
   GUI Cursor tx, ty
   mx = tx : my = ty
 EndIf
 Select Case Touch(REF)
 Case cb_enabled                   ' enable / disable the logging UI
   If CtrlVal(cb_enabled) Then
     GUI Restore c_fname, tb_fname, c_log, cb_flow, cb_alarm, cb_warn
   Else
     mbox=1
     On error skip
     mbox=MsgBox("Are you sure?", "YES","CANCEL")
     If mbox=1 Then
       GUI Disable c_fname, tb_fname, c_log, cb_flow, cb_alarm, cb_warn
     Else
       CtrlVal(cb_enabled)=1
     EndIf
   EndIf
 Case sb_bright                    ' brightness spinbox
   If Not (Instr(MM.DEVICE$, "VGA") Or Instr(MM.DEVICE$, "HDMI")) Then
       Backlight CtrlVal(sb_bright)
   EndIf
 Case sw_pmp                       ' pump on/off switch
   CtrlVal(led_run) = CtrlVal(sw_pmp)
   CtrlVal(tb_flow) = Str$(CtrlVal(sw_pmp) * 20.1)
   CtrlVal(r_norm)  = 1            ' snap power mode back to Normal
 Case pb_test                      ' alarm-test button (LED on while held)
   CtrlVal(led_alarm) = 1
 Case r_econ
   CtrlVal(tb_flow) = Str$(CtrlVal(sw_pmp) * 18.3)
 Case r_norm
   CtrlVal(tb_flow) = Str$(CtrlVal(sw_pmp) * 20.1)
 Case r_hi
   CtrlVal(tb_flow) = Str$(CtrlVal(sw_pmp) * 23.7)
 End Select
End Sub
Sub TouchUp
 Select Case Touch(LASTREF)
 Case pb_test                      ' release: turn the alarm LED off
   CtrlVal(led_alarm) = 0
 End Select
End Sub