CON
 Pin_1 = 1       'Pin code to enter, then #, which = 12
 Pin_2 = 2       'to unLock system. Out of order entry Resets Count
 Pin_3 = 3       'variable to zero. 
 Pin_4 = 4
VAR
 byte Num, Lock, Count
PUB Initiate
 DIRa[0..4]~
 DIRa[5]~~	'LED on this pin to show success
 Reset
PUB Reset        'initial setup to Lock system
 Lock := 1
 Count := 0
 Scan        
PUB Scan
 repeat
  if INa[4]	'goes high when data is available at 8870 IC output
   Check
  waitcnt(clkfreq/100 + cnt)
  
PUB Check
 Num := INa[3..0]

 case Num
  11: Reset                     'star  *
  12: checkPIN                  'pound #

 case Count
  0: if Num == Pin_1
      Count += 1
  1: if Num == Pin_2
      Count += 1
  2: if Num == Pin_3
      Count += 1
  3: if Num == Pin_4
      Count += 1
  Other: Reset 
 Scan  
                               
PRI checkPIN 
 if Lock == 1 AND Count == 4
  unLock
 Reset

PRI unLock
 Lock := 0
 Count := 0
 OUTa[5]~~
 waitcnt(clkfreq*2 + cnt)	'make LED light for 2 seconds
 OUTa[5]~
 Reset 