#deg 2
{ Příklad 2: Hledání protilehlého vrcholu na kružnici }

var x: 0..1;					{ vstupní značka u vrcholu }
    y: 0..1 = 0;				{ výstupní značka }
    l, r: 0..1 = 0;				{ už tímto vrcholem prošel signál doleva a doprava? }
begin
   if x=1 then					{ začínáme posílat }
      begin x := 0; l := 1; r := 1; end
   else if (S[2].l=1) and (S[1].r=1) then		{ signály se v tomto vrcholu potkaly }
      begin y := 1; stop; end
   else if (S[2].l=1) and (l=0) then l := 1	{ předáme signál doleva }
   else if (S[1].r=1) and (r=0) then r := 1	{ předáme signál doprava }
   else stop;					{ nic se neděje => můžeme končit }
end.