rem "PrioroDuetto"
Fragment(APrioro,1)
Fragment(APrioro,2)
IFelem(P1)
#Yes
##GetFaza(WaitPK1PD)
###Yes
####LegalPK
#####Yes
######FixPlace
####HideDoor
####DoorSD(----)
####Stop
IFelem(Timer)
#Yes
##GetFaza(WaitPK1PD)
###Yes
####IsOutTime(time:WaitPK1PD,30 sec)
#####Yes
######SendMess(2,=TooLongWaitPD)
######HideDoor
######DoorSD(----)
######Stop
Fragment(WaitHideSD)
Exit
Metka:RedTimer
SD(RA~)
SetFaza(HideSD)
Exit
