Page 323 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 07 3/24/03 9:13 AM Page 302
PROGRAM 7.1
low reverse_right
turtle-receive.bas listing
(continued) low forward_right Amphibionics
SOUND PIEZO,[115,10,50,10]
start:
serin rxmit,rx_baud,["Z"],control

if control = "A" then
gosub forward
endif

if control = "B" then
gosub backwards
endif

if control = "C" then
gosub turn_left
endif

if control = "D" then
gosub turn_right
endif

if control = "E" then
sound piezo,[115,10,50,10]
endif

if control = "F" then
low enable_left
low forward_left
low reverse_left
low enable_right
low forward_right
low reverse_right
endif

302