readadc 1, b1
readadc 2, b2
select case b1
case 0 to 80
low 2
high 1
case 81 to 200
high 2
pause 600
low 1
end select
select case b2
case 0 to 80 ;on detection of light
low 4
pause 600
high 3
case 81 to 200 ;if the light isnt detected
high 4
low 3
end select
debug b1
debug b2
goto main
Friday, 30 April 2010
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment