Page 328 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 07 3/24/03 9:13 AM Page 307
Chapter 7 / Turtletron: Build Your Own Robotic Turtle
PROGRAM 7.3
serout txmit,tx_baud,["ZB"]
endif
turtle-trans.bas listing
(continued)
If val_X < 20 then
high txmit_led
serout txmit,tx_baud,["ZC"]
endif
If val_X > 200 then
high txmit_led
serout txmit,tx_baud,["ZD"]
endif

If push_button = 1 then
high txmit_led
serout txmit,tx_baud,["ZE"]
endif

If ((val_y > 25) and (val_y < 190)) or ((val_x > 25) and (val_x < 190))
then
serout txmit,tx_baud,["ZF"]
endif

goto start

end

:100000008C2892002A0884000930930003100D20E8 PROGRAM 7.4
:10001000920C930B072803140D288413A71D1C288A turtle-trans.hex file
:1000200000082804271D28068000841700082804DB listing
:10003000031C28068000272800082804031C280623
:100040002719280680008417280980052728270DEE
:1000500006398C0030208D008C0A302000004E289C
:1000600000308A000C0882070134753403341534DB
:1000700000343C340C34D9348C008C0D8C0D0C0DB8
:100080003839C138880000308D000A304E200815FC
:10009000081948288D01090887288D01E83E8C0041
:1000A0008D09FC30031C57288C07031854288C0733

307