RTC SETTIME VAL(RIGHT(DATE$,4)), VAL(MID$(DATE$,4,2)), VAL(LEFT$(DATE$,2)), VAL(LEFT$(TIME$,2)), VAL(MID$(TIME$,4,2)), VAL(RIGHT$(TIME$,2))

RTC SETTIME

...
If Len(b$)>=16 Then ' commands look like $D1505054337041!
if Left$(b$,1)<>"$" Or Mid$(b$,16,1)<>"!" Then FlushIO:Goto BadFrame
dt$=HumanTime(Val(Mid$(b$,3,10)))
On Error Skip 1: Date$=Left$(dt$,10) ' set the clock (UTC)
On Error Skip 1: Time$=Right$(dt$,8)
' parse the command
Select Case Mid$(b$,2,1)
...

...
ELSEIF dst=999 THEN ' broadcast only
SELECT CASE cmd$
CASE "TIME"
IF LEN(pl$)=19 THEN
IF MID$(pl$,9,1)="," THEN
ON ERROR SKIP 1:TIME$=LEFT$(pl$,8)
ON ERROR SKIP 1:DATE$=RIGHT$(pl$,10)
END IF
END IF
...

Const ESC=Chr$(27)

Print ESC "[?9h"; ' enable mouse reporting
Print ESC "[?1015h"; ' select URXVT encoding (if available)
Print ESC "[?1006h"; ' select SGR encoding (if available)

Do
Do: A$=Inkey$: Loop Until A$<>""
If A$=Chr$(27) Then Print
If Asc(A$)<32 Then Print "<" Str$(Asc(A$)) ">"; Else Print A$;
Loop Until A$=Chr$(26)

Print ESC "[?1006l"; ' disable SGR encoding
Print ESC "[?1015l"; ' disable URXVT encoding
Print ESC "[?9l"; ' disable mouse reporting

>
> run

<27>[<0;1;1M
<27>[<0;79;1M
<27>[<0;1;24M
<27>[<0;80;24M
<27>[<2;1;1M
<27>[<2;80;1M
<27>[<2;1;24M
<27>[<2;80;24M
<26>
>
>

Option explicit
DIM MyNB = 1
Dim InsideNB
DIM ExitNB
DIM NBKeyVal
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
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
If ref = MyNB AND caption = "Ent" Then
if CtrlVal(ref) > 60 then CtrlVal(ref) = 60
Endif
End Sub

' How mm.ver will display by default
> print mm.device$, mm.ver
Micromite Plus 5.041
>

' How to make it display '10' instead of '1'
> print mm.device$, str$(mm.ver,1,4)
Micromite Plus 5.0410
>