rem "APZ2"
Fragment(OpenAntena,%1)
GetFaza(CheckAnten)
#Yes
##LegalANT
###Yes
####LegalPlace
#####No
######Goto Metka:RedTimer
####CountAnten(=,1)
#####Yes
######SD(GA~)
######SD(RB+)
####SetFaza(WaitPK%1)
IFelem(P%1)
#Yes
##GetFaza(WaitPK%1)
###Yes
####LegalPK
#####Yes
######GetCommand
#######Yes
########SetFaza(Command)
#######No
########SetFaza(noCommand)
#####No
######SetFaza(RepeatPK%1)
######Time:RepeatPK%1
######SD(R%1~)
######Exit
##GetFaza(RepeatPK%1)
###Yes
####LegalPK
#####Yes
######GetCommand
#######Yes
########SetFaza(Command)
#######No
########SetFaza(noCommand)
GetFaza(Command)
#Yes
##ExecCommand()
###Yes
####SD(GA+)
###No
####SD(RA+)
##SetFaza(HideSD)
GetFaza(noCommand)
#Yes
##CountAnten(<,%2)
###Yes
####SetFaza(NextAnten)
####SD(RA~)
####Exit
###No
####SetFaza(OpenZ1)
####SD(RA-)
IFelem(Timer)
#Yes
##GetFaza(WaitPK%1)
###Yes
####IsOutTime(time:WaitPK%1,30 sec)
#####Yes
######SendMess(2,=TooLongWaitPK)
######Goto Metka:CloseDoor
##GetFaza(RepeatPK%1)
###Yes
####IsOutTime(time:RepeatPK%1,30 sec)
#####Yes
######SendMess(2,=TooLongWaitPK)
######Goto Metka:CloseDoor
