; motor commands c, cd, and d, are already built in to the Cricket!

global [x]

to sensor1
output sens 1
end

to sensor2
output sens 2
end

to sensor3
output sens 3
end

to sensor4
output sens 4
end

to switch1
output (sens 1) < 128
end

to switch2
output (sens 2) < 128
end

to switch3
output (sens 3) < 128
end

to switch4
output (sens 4) < 128
end

to sens :n
bsend $112
setx bsr :n - 1
output x * 256 + bsr 0
end

to counts :n
bsend $112
setx bsr :n + 7
output x * 256 + bsr 0
end

to resetc :n
bsend $112
bsend $f + :n   ; counter 1 is at $10
bsend 0
end

to velo :n
bsend $112
setx bsr :n + 3
output x * 256 + bsr 0
end

to quad12
bsend $112
setx bsr 12
output x * 256 + bsr 0
end

to resetq12
bsend $112 bsend $14 bsend 0
end

to quad34
bsend $112
setx bsr 13
output x * 256 + bsr 0
end

to resetq34
bsend $112 bsend $15 bsend 0
end