'
' Author: Dragan Kujovic
'
' Keyboard routines
'
HIGH 1:LOW 2:LOW 3
BUTTON 4,1,0,0,H1,1,T1
BUTTON 5,1,0,0,H2,1,T4
BUTTON 6,1,0,0,H3,1,T7
BUTTON 7,1,0,0,H4,1,T10

LOW 1:HIGH 2:LOW 3
BUTTON 4,1,0,0,H1,1,T2
BUTTON 5,1,0,0,H2,1,T5
BUTTON 6,1,0,0,H3,1,T8
BUTTON 7,1,0,0,H4,1,T0

LOW 1:LOW 2:HIGH 3
BUTTON 4,1,0,0,H1,1,T3
BUTTON 5,1,0,0,H2,1,T6
BUTTON 6,1,0,0,H3,1,T9
BUTTON 7,1,0,0,H4,1,T11

GOTO Keyboard

T0:T="0":SEROUT 0,396,["0"]:GOTO Main
T1:T="1":SEROUT 0,396,["1"]:GOTO Main
T2:T="2":SEROUT 0,396,["2"]:GOTO Main
T3:T="3":SEROUT 0,396,["3"]:GOTO Main
T4:T="4":SEROUT 0,396,["4"]:GOTO Main
T5:T="5":SEROUT 0,396,["5"]:GOTO Main
T6:T="6":SEROUT 0,396,["6"]:GOTO Main
T7:T="7":SEROUT 0,396,["7"]:GOTO Main
T8:T="8":SEROUT 0,396,["8"]:GOTO Main
T9:T="9":SEROUT 0,396,["9"]:GOTO Main
T10:T="*":SEROUT 0,396,["*"]:GOTO Main
T11:T="#":SEROUT 0,396,["#"]:GOTO Main

Main: