Subversion Repositories svnkaklik

program example_program;

var i;
var ble;

LMOT := 30;
RMOT := -30;

ble:=0;
while ble<25 do ble:=ble+1; end;        

LMOT := 30;
RMOT := 30;

ble:=0;
while ble<125 do ble:=ble+1; end;       

LMOT := 30;
RMOT := -30;

while true
do
        if LEYE = 1 and REYE = 1 then
                LMOT := 30;
                RMOT := -30;
        end;

        if LEYE = 0 then
                LMOT := -30;
                continue;
        end;
        if REYE = 0 then
                RMOT := -30;
                continue;
        end;
        if LRTOUCH = 1 then
                RMOT := -30;
                LMOT := -20;
        end;
        if RRTOUCH = 1 then
                LMOT :=-30;
                RMOT :=-20;
        end;

        if RFTOUCH = 1 and LFTOUCH =1 then
                LMOT :=30;
                RMOT := 30;
        end;
        
        if RRTOUCH = 1 and LRTOUCH =1 then
                LMOT := -30;
                RMOT := -30;
        end;

end;