/* $VERS: 5.7 doorDemon.baud 27 Oct 1992 (27.10.92)
runs automatically whenever a rexxDoor is in use.
*/

CALL OPENPORT('BBS_DOOR_DEMON')
secs=GETCLIP('BBS_door_demon')-20
CALL TIME('R')
DO FOREVER
  CALL DELAY(250)
  IF GETCLIP('BBS_door_demon')='QUIT' THEN
    DO
      CALL SETCLIP('BBS_door_demon')
      CALL CLOSEPORT('BBS_DOOR_DEMON')
      EXIT;
    END
  ADDRESS BAUD dcd
  IF RC=0 | TIME('E')>secs THEN
    DO
      ADDRESS BAUD Send '03'x
      CALL DELAY(250)
    END
END

/* doorDemon.baud */