0100 dim i, c, lasti, lastc, flag
0110 dim a$(32), b$(32)
0150 call lcdinit(portc, 8, 2)
0160 call lcdcmnd(14)
0200 call kbinit (pinb)
0210 let a$ = ""
0220 call lcdwr("EEBasic644 1.07", 0)
0230 delay 2000
0240 call lcdwr("                ", 0)
0280 goto 2100

0300 call kbread (i, c, 1)
0400 if (i = -1) then goto 300
1000 print bin$(i, 8, "0"), c, i
1100 if (i = 17) then let a$ = a$ + "1"
1110 if (i = 33) then let a$ = a$ + "2"
1120 if (i = 65) then let a$ = a$ + "3"
1130 if (i = 18) then let a$ = a$ + "4"
1140 if (i = 34) then let a$ = a$ + "5"
1150 if (i = 66) then let a$ = a$ + "6"
1160 if (i = 20) then let a$ = a$ + "7"
1170 if (i = 36) then let a$ = a$ + "8"
1180 if (i = 68) then let a$ = a$ + "9"
1190 if (i = 40) then let a$ = a$ + "0"
1200 if (i = 24) then let a$ = a$ + "*"
1210 if (i <> 72) then goto 2100
1220 if (len(a$) = 0) then goto 2100
1230 let a$ = mid$(a$,1,len(a$)-1)

2100 let b$ = a$ + " "
2110 call lcdwr(b$, 0)
2120 call lcdwr(a$, 0)

2200 goto 300