rem "AZупрп"
IFelem(Timer)
#Yes
##IsOutTime(Wait_OK,10sek)
###Yes
####SetFaza(HideSD)
##IsOutTime(Wait_IsDoorFree,5sek)
###Yes
####IsDoorFree(%1)
#####Yes
######Goto Metka:Goto
#####No
######SetFaza(Wait_IsDoorFree)
######Exit
IFelemON(d1)
#Yes
##SendMess(1,Выемка разовых пропусков)
GetFaza(Wait_OK)
#Yes
##IFelemON(d2)
###Yes
####IsDoorFree(%1)
#####Yes
######Goto Metka:Goto
#####No
######SetFaza(Wait_IsDoorFree)
######Exit
IFelem(A2)
#Yes
##SendMess(1,в УПРП застряла карта)
##OpenZ(door,Z1,2)
GetFaza(Open)
#Yes
##IFelem(A1)
###Yes
####isOneTime
#####Yes
######IsDoorFree(%1)
#######Yes
########SetFaza(Wait_OK)
########OpenZ(door,Z1,2)
########Exit
#######No
########Goto Metka:RedTimer
#####No
######Goto Metka:RedTimer
Fragment(WaitHideSD)
Exit
Metka:Goto
SetIsON(True)
AntenaToDoor(A2,%1)
SetFaza(HideSD)
Exit
Metka:RedTimer
OpenZ(door,Z1,3)
SetFaza(HideSD)
Exit
