Subversion Repositories svnkaklik

Rev

Rev 293 | Rev 295 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

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;