Option explicit
DIM MyNB = 1
Dim InsideNB
DIM ExitNB
DIM NBKeyVal
' Carry out initialisation routines here - enable interrupt last
StartPoint:
CLS
Font 3
GUI numberbox MyNB,10,120,180,40,RGB(red),RGB(Black)
BackLight 100

GUI interrupt TouchDown,TouchUp ' subroutine to handle touch int

Main:
Do 'Main program loop,
DO while InsideNB = 0
LOOP
' should only get here if touch detected
If ExitNB = 1 Then
Print "NB exited, NB value returned is ",CtrlVal(MyNB)
print "NB key value variable is ",NBKeyVal
ExitNB = 0
EndIf
Loop
' end of main process loop

' Interrupt handling subroutines
Sub TouchDown
InsideNB = 1 ' entered numberbox
end sub

Sub TouchUp
ExitNB = 1 ' left the numberbox pressing Ent
InsideNB = 0 '
End Sub

Sub MM.KEYPRESS ref as Integer, caption as string
print "Key pressed had caption ",caption
If ref = MyNB AND caption = "Ent" Then
print "Inside KP, Ent pressed with key value = ",CtrlVal(ref) ' manual says this will return a string?
' *** this next line fails because CtrlVal(ref) actually returns a Null (I think) which VAL does not like
if VAL(CtrlVal(ref)) > 60 then CtrlVal(ref) = "60"
' *** comment out the line above and uncomment the line below
' if CtrlVal(ref) > 60 then CtrlVal(ref) = 60
' *** the line above does not throw an error but does not work becuase if CtrlVal(ref) returns a NULL
' the > 60 line will always fail. if you enter a number greater than 60 it is not changed
NBKeyVal = CtrlVal(ref) ' here I want a global variable to equal the number entered
' but I always end up with NBKeyVal with a value of 0
Endif
End Sub