Subversion Repositories svnkaklik

Rev

Rev 295 | Details | Compare with Previous | Last modification | View Log

Rev Author Line No. Line
294 kakl 1 
program example_program;
293 kakl 2 
 
3 
var i;
4 
var ble;
5 
 
6 
LMOT := 30;
7 
RMOT := -30;
8 
 
9 
ble:=0;
10 
while ble<25 do ble:=ble+1; end;
11 
 
12 
LMOT := 30;
13 
RMOT := 30;
14 
 
15 
ble:=0;
294 kakl 16 
while ble<125 do ble:=ble+1; end;
293 kakl 17 
 
296 kakl 18 
LMOT := 30;
19 
RMOT := -30;
20 
 
293 kakl 21 
while true
22 
do
296 kakl 23 
	if LEYE = 1 and REYE = 1 then
24 
		LMOT := 30;
25 
		RMOT := -30;
294 kakl 26 
	end;
27 
 
28 
	if LEYE = 0 then
293 kakl 29 
		LMOT := -30;
294 kakl 30 
		continue;
31 
	end;
32 
	if REYE = 0 then
293 kakl 33 
		RMOT := -30;
34 
		continue;
35 
	end;
294 kakl 36 
	if LRTOUCH = 1 then
293 kakl 37 
		RMOT := -30;
296 kakl 38 
		LMOT := -20;
294 kakl 39 
	end;
40 
	if RRTOUCH = 1 then
41 
		LMOT :=-30;
296 kakl 42 
		RMOT :=-20;
294 kakl 43 
	end;
44 
 
45 
	if RFTOUCH = 1 and LFTOUCH =1 then
46 
		LMOT :=30;
47 
		RMOT := 30;
48 
	end;
49 
 
50 
	if RRTOUCH = 1 and LRTOUCH =1 then
293 kakl 51 
		LMOT := -30;
294 kakl 52 
		RMOT := -30;
293 kakl 53 
	end;
294 kakl 54 
 
293 kakl 55 
end;