rem "APrioro"
GetFaza(Open)
#Yes
##IFelem(A%1)
###Yes
####LegalANT
#####Yes
######LegalPlace
#######No
########Goto Metka:RedTimer
######SD(GA+)
######SD(RB+)
######SetFaza(WaitPK1PD)
######SendToPrioro(prioro)
######ShowDoor
#####No
######Goto Metka:RedTimer
