rem "APcanadusHeader"
IFelem(Timer)
#Yes
##GetFaza(PK)
###Yes
####IsOutTime(time:PK,14 sec)
#####Yes
######SendMess(2,=TooLongWaitPK)
######Goto Metka:Awost
##GetFaza(Final)
###Yes
####IsOutTime(time:Final,3 sec)
#####Yes
######ZonaSD(------)
######Stop
##GetFaza(Low)
###Yes
####IsOutTime(time:Low,1 sec)
#####Yes
######ZonaSD(+++---)
######SetFaza(Final)
######Exit
##GetFaza(WaitGenug)
###Yes
####IsOutTime(time:WaitGenug,60 sec)
#####Yes
######Goto Metka:Awost
