Ok, well that makes a bit more sense to me...
getword:
for x = 0 to 3
Gosub getkey ' Get a key from the keypad
keyin(x) = key 'save the individual keypresses
lcdout I,Line2 + x,#key ' Display ASCII key number
next
outval = ( keyin(0) * 1000 ) + ( keyin(1) * 100 ) + ( keyin(2) * 10 ) + keyin(3)
return
Bookmarks