Maybe this is more effectiv:

Code:
getword:
    value = 0 
    for x = 0 to 3
        Gosub getkey                  ' Get a key from the keypad  
        lcdout I,Line2 + x,#key     ' Display ASCII key number
        value=Value*10+key
    next
    return