rem "AP"
IFelem(Timer)
#Yes
##GetFaza(WaitPK)
###Yes
####IsOutTime(time:WaitPK,20 sec)
#####Yes
######SendMess(2,=TooLongWaitPK)
######Goto Metka:RedTimer
##GetFaza(HideSD)
###Yes
####RestoreSD
####Stop
GetFaza(Open)
#Yes
##IFelem(dA%2)
###Yes
####LegalANT
#####Yes
######LegalPlace
#######No
########Goto Metka:RedTimer
######SD(G%1~)
######SetFaza(WaitPK)
#####No
######Goto Metka:RedTimer
IFelem(dP%3)
#Yes
##GetFaza(WaitPK)
###Yes
####LegalPK
#####Yes
######GetCommand
#######Yes
########ExecCommand()
#########Yes
##########SD(G%1+)
##########SetFaza(HideSD)
##########Exit
##Goto Metka:RedTimer
Exit
Metka:RedTimer
SD(R%1~)
SetFaza(HideSD)
Exit
