!
! This XPRESS code reads an iButton serial number and verifies it.
! This example comes from Issue 78 of Circuit Cellar Ink, January 1997.
!
Config MAN-Link = 2
Config iButton = 1,0246F20000000098

Define Steve_Key = 1

Define Entry_Key = Variable(20)
Define Alarm_On = Input(35)

Begin

IF Alarm_On=True THEN
  Entry_Key = iButton(1)
  IF Entry_Key = Steve_key THEN
    Alarm_On = False
    LPT(2) = "Put the dinner in the oven"
  END
END