!
! This code reads temperatures and sets or resets the alarm via
! iButton keyring.
! This sample comes from Issue 78 of Circuit Cellar January 1997
!
Config MAN-Link = 2
Config iButton = 1,0246F20000000098

Define Steve_Code = 2763
Define Steve-Key = 1

Define Inside_Temp = Variable(17)
Define Outside_Temp = Variable(18)
Define Entry_Code = Variable(19)
Define Entry_Key = Variable(20)
Define Alarm_On = Input(35)

Define itemp = ADC(28)
Define otemp = ADC(28)

Begin

IF Input(10)=TRUE THEN
  ! Convert 0-1000mV (0-819) into 0-100F
  Inside_Temp = (itemp * 10)/81
  Outside_Temp = (otemp * 10)/81
END

IF Alarm_On=True THEN
  Entry_Code = KeypadNumber(1)
  IF Entry_Code = Steve_Code THEN
    Alarm_On = False
  END
  Entry_Key = iButton(1)
  IF Entry_Key = Steve_Key THN
    Alarm_On =False
  END
END