program Orbis;

var line, Rychlost;

#define L 1
#define S 2
#define R 3

line:=2;

Rychlost:=15;		# omezeni rychlosti (hlavne pro ladici ucely)

while true
do
  if LEYE > 0 and CEYE > 0 then		# Cara pod levim sensorem
    LMOT:=0;RMOT:=Rychlost;			# jed rovne
    line:=1;		# zaznamenej, kdes videl caru
    continue;
  end;

  if REYE > 0 and CEYE > 0 then
    LMOT:=Rychlost;RMOT:=0;
    line:=3;
    continue;
  end;

  if CEYE > 0 then 
    LMOT:=Rychlost;RMOT:=Rychlost;
    line:=2;
    continue;
  end;
  
end;