rem "AHZ2"
Fragment(OpenAntena,%1)
GetFaza(CheckAnten)
#Yes
##LegalANT
###Yes
####LegalPlace
#####No
######Goto Metka:RedTimer
####CountAnten(=,1)
#####Yes
######SD(GA~)
######SD(RB+)
####SetFaza(WaitHK%1)
####GetHandKey(door,H%1)
IFelem(H%1)
#Yes
##GetFaza(WaitHK%1)
###Yes
####LegalHK
#####Yes
######CountAnten(<,%2)
#######Yes
########SetFaza(NextAnten)
########SD(RA~)
########Exit
#######No
########SetFaza(OpenZ1)
########SD(RA-)
#####No
######Goto Metka:CloseDoor
IFelem(Timer)
#Yes
##GetFaza(WaitHK%1)
###Yes
####IsOutTime(time:WaitHK%1,30 sec)
#####Yes
######SendMess(2,TooLongWaitHK)
######Goto Metka:CloseDoor
