rem "APcanada"
StandartAction(elem)
Fragment(APcanadusHeader)
GetFaza(Open)
#Yes
##IFelem(dA%1)
###Yes
####LegalANT
#####Yes
######LegalPlace
#######No
########Goto Metka:Awost
######ZonaSD(+-----)
######SetFaza(PK)
######SetFlag(Zona2)
#####No
######Goto Metka:Awost
GetFaza(PK)
#Yes
##IFelem(dP%2)
###Yes
####PinKod=Param(*)
#####Yes
######Goto Metka:Awost
####GetFlag(Zona5)
#####Yes
######isRoomPinKod
#######No
########Goto Metka:Awost
######ZonaSD(....+)
######DelFlag(Zona5)
######GetFlag(3)
#######Yes
########DelFlag(3)
########IsRoomLock(PinKod)
#########Yes
##########Goto Metka:Final
########TryLockRoom(PinKod)
#########Yes
##########SetFaza(WaitGenug)
##########Exit
#########No
##########Goto Metka:Awost
#######No
########DelFlag(4)
########UnLockRoom(PinKod)
#########Yes
##########Goto Metka:Final
#########No
##########Goto Metka:Awost
######Goto Metka:Final
####GetFlag(Zona3)
#####Yes
######DelFlag(Zona3)
######PinKod=Param(1,3)
#######Yes
########SetFlag(3)
########SetFlag(Zona5)
########ZonaSD(+++)
########SetFaza(PK)
#######No
########PinKod=Param(0,4)
#########Yes
##########SetFlag(4)
##########SetFlag(Zona5)
##########ZonaSD(++.+)
##########SetFaza(PK)
#########No
##########Goto Metka:Awost
####GetFlag(Zona2)
#####Yes
######DelFlag(Zona2)
######LegalPK
#######Yes
########ZonaSD(++)
########SetFlag(Zona3)
########SetFaza(PK)
#######No
########Goto Metka:Final
Fragment(APcanadusFooter)
