Subversion Repositories svnkaklik

Rev

Rev 293 | Rev 295 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log

Rev 293 Rev 294
Line 1... Line 1...
1 
program sumo_kakl;
 1 
program example_program;
2 
 
 2 
 
3 
var i;
 3 
var i;
4 
var ble;
 4 
var ble;
5 
 
 5 
 
6 
LMOT := 30;
 6 
LMOT := 30;
Line 11... Line 11...
11 
 
 11 
 
12 
LMOT := 30;
 12 
LMOT := 30;
13 
RMOT := 30;
 13 
RMOT := 30;
14 
 
 14 
 
15 
ble:=0;
 15 
ble:=0;
16 
while ble<100 do ble:=ble+1; end;
16 
while ble<125 do ble:=ble+1; end;
17 
 
 17 
 
18 
LMOT := 30;
 18 
LMOT := 30;
19 
RMOT := -30;
 19 
RMOT := -30;
20 
 
 20 
 
21 
while true
 21 
while true
22 
do
 22 
do
- 
 
 23 
	if LEYE = 1 and REYE = 1 then
- 
 
 24 
		LMOT := 30;
- 
 
 25 
		RMOT := -30;
- 
 
 26 
	end;
- 
 
 27 
 
23 
	if LEYE < 0 then
 28 
	if LEYE = 0 then
24 
		LMOT := -30;
 29 
		LMOT := -30;
- 
 
 30 
		continue;
- 
 
 31 
	end;
- 
 
 32 
	if REYE = 0 then
25 
		RMOT := -30;
 33 
		RMOT := -30;
26 
		ble:=0;
 - 
 
27 
		while ble<100 do ble:=ble+1; end;
- 
 
28 
		continue;
 34 
		continue;
29 
	end;
 35 
	end;
30 
	if REYE < 0 then
 36 
	if LRTOUCH = 1 then
31 
		RMOT := -30;
 37 
		RMOT := -30;
- 
 
 38 
		LMOT := -20;
- 
 
 39 
	end;
- 
 
 40 
	if RRTOUCH = 1 then
32 
		LMOT := -30;
 41 
		LMOT :=-30;
33 
		ble:=0;
 42 
		RMOT :=-20;
34 
		while ble<100 do ble:=ble+1; end;
- 
 
35 
		continue;
 - 
 
36 
	end;
 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
- 
 
 51 
		LMOT := -30;
- 
 
 52 
		RMOT := -30;
- 
 
 53 
	end;
- 
 
 54 
 
- 
 
 55 
 
37 
end;
 56 
end;