dirsb=%00111110
dirsc=%00000011
 
high c.1	'Bremlicht an
 
 
start:
'Bremslicht
 
count C.4, 300,b0 'Radsensor
if b0 > 0 then
  low c.1
else 
  high c.1
endif
 
goto start
 

 

start1:
'Blinker
 
pulsin C.3,1,b1 'Servosignal
 
if b1>160 then
   pulsout b.5,60000
   pause 600
elseif b1<140 then
   pulsout c.0,60000
   pause 600
endif
 
goto start1
 

 

start2:
'Rundumkennleuchte
 
 
if pinc.2 = 1 then					
	
  pulsout b.1,7000
  pause 70
  pulsout b.2,7000
  pause 70
  pulsout b.3,7000
  pause 70
  pulsout b.4,7000
  pause 70
	
endif
	
goto start2