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;