Subversion Repositories svnkaklik

Rev

Rev 323 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 323 Rev 324
Line 36... Line 36...
36 
Sub main()
 36 
Sub main()
37 
	Dim motors As Byte
 37 
	Dim motors As Byte
38 
	Dim sensors As Byte
 38 
	Dim sensors As Byte
39 
	Dim buttons As Byte
 39 
	Dim buttons As Byte
40 
	Dim leds As Byte
 40 
	Dim leds As Byte
41 
	Dim count As Byte
 41 
	Dim count As Long
42 
	Dim i As Long
 42 
	Dim i As Long
43 
 
 43 
 
44 
	'NASTAVENI IO
 44 
	'NASTAVENI IO
45 
	lata=0xFF
 45 
	lata=0xFF
46 
	latb=0
 46 
	latb=0
Line 80... Line 80...
80 
		if count < 100000 then
 80 
		if count < 100000 then
81 
			leds = leds | 4
 81 
			leds = leds | 4
82 
		end if
 82 
		end if
83 
		lata = leds
 83 
		lata = leds
84 
	loop
 84 
	loop
85 
	leds = 0xFF
 - 
 
86 
	lata = 0xFF
 85 
	lata = 0xFF
87 
 
 86 
 
88
87
89 
Do while 1
 88 
Do while 1
90 
 
 89