device = 16f877a
xtal 4




DECLARE KEYPAD_PORt portb



dim var_key as byte
dim key as byte
dim k[5] as byte
dim ikey as byte
 


main: 


key=0
var_key = INKEY 
if var_key=16 then goto main 
DELAYMS 250
      
KEY = LOOKUP var_key, ["1","2","3"," ","4","5","6"," ","7","8","9"," ","*","0","#"," "]

if key="#" then goto comp
DELAYMS 250
k[ikey]=key
inc ikey
 
goto main



comp:

rpm_vlu=val(k,dec)

ikey=0


goto main