rem "WaitCloseDoor"
IFelem(Timer)
#Yes
##GetFaza(WaitCloseDoor2)
###Yes
####IsOutTime(time:WaitCloseDoor2,180 sec)
#####Yes
######AlarmDoor(=TooLongOpenDoor)
######SetFaza(WaitCloseDoor2)
######Goto Metka:CloseDoor
#####No
######IFelemON(%1)
#######No
########Exit
##GetFaza(WaitCloseDoor)
###Yes
####IsOutTime(time:WaitCloseDoor,10 sec)
#####Yes
######AlarmDoor(=TooLongOpenDoor)
######SetFaza(WaitCloseDoor2)
######Goto Metka:CloseDoor
