Something like:
Code:
value var word
incvalue var word
cursorposition var byte
**LCD setup code here **
LCDOUT $FE, $0F 'turn blinking cursor on
cursorposition = 0 'reset cursor position
dostuff:
LCDOUT #value DIG 3
LCDOUT #value DIG 2
LCDOUT #value DIG 1
LCDOUT #value DIG 0
IF upbutton = 1 THEN
IF cursorposition = 0 THEN
value = value + 1
ENDIF
IF cursorposition = 1 THEN
value = value + 10
ENDIF
IF cursorposition = 1 THEN
value = value + 100
ENDIF
IF cursorposition = 1 THEN
value = value + 1000
ENDIF
IF downbutton = 1 THEN
IF cursorposition = 0 THEN
value = value - 1
ENDIF
IF cursorposition = 1 THEN
value = value - 10
ENDIF
IF cursorposition = 1 THEN
value = value - 100
ENDIF
IF cursorposition = 1 THEN
value = value - 1000
ENDIF
IF leftbutton = 1 THEN
IF cursorposition > 0 THEN
LCDOUT $FE, $10 'move cursor left
cursorposition = cursorposition - 1
ENDIF
ENDIF
IF rightbutton = 1 THEN
IF cursorposition < 3 THEN
LCDOUT $FE, $14 'move cursor right
cursorposition = cursorposition + 1
ENDIF
ENDIF
IF confirmbutton = 1 THEN
'** go back to, or continue the main program here
ENDIF
goto dostuff
Bookmarks