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;