;Integer count on LCD. Example from onboard LCD documentation

iPlus10     iEQU  12
iPlus1      iEQU  11
iZero       iEQU  10
iMinus1     iEQU  9
iMinus10    iEQU  8
Counter       mEQU  0

     OBLCD_Type   2        ;Initialise the LCD
Loop
     InputK       iPlus10  ;Test a button
     GoIfT        Add10
     InputK       iPlus1   ;Test a button
     GoIfT        Add1
     InputK       iZero    ;Test a button
     GoIfT        Clear
     InputK       iMinus10  ;Test a button
     GoIfT        Sub10
     InputK       iMinus1   ;Test a button
     GoIfT        Sub1
     GoTo         Loop

Add10
     Recall       Counter
     IncX
     IncX
     IncX
     IncX
     IncX
     IncX
     IncX
     IncX
     IncX
     IncX
     Store        Counter
     GoTo         Display

Add1
     Recall       Counter
     IncX
     Store        Counter
     GoTo         Display

Sub10
     Recall       Counter
     DecX
     DecX
     DecX
     DecX
     DecX
     DecX
     DecX
     DecX
     DecX
     DecX
     Store        Counter
     GoTo         Display

Sub1
     Recall       Counter
     DecX
     Store        Counter
     GoTo         Display

Clear
     SetMem       Counter,0
;Fall through
Display
     OBLCD_SetCur 0,0
;                 "0123456789012345"
     OBLCD_Text   "UFW:   ;SFW:    "
     OBLCD_SetCur 1,0
;                 "0123456789012345"
     OBLCD_Text   "UVW:   ;SVW:    "

     OBLCD_SetCur 0,4
     Recall       Counter
     OBLCD_UDecDispXFW


     OBLCD_SetCur 0,12
     Recall       Counter
     OBLCD_SDecDispXFW


     OBLCD_SetCur 1,4
     Recall       Counter
     OBLCD_UDecDispXVW


     OBLCD_SetCur 1,12
     Recall       Counter
     OBLCD_SDecDispXVW

     GoTo         Loop