Page 338 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 07 3/24/03 9:13 AM Page 317
PROGRAM 7.7
low reverse_left
low enable_right
avoidance.bas program
low forward_right Chapter 7 / Turtletron: Build Your Own Robotic Turtle
listing (continued)
return
'------------------------------------------------------------------------------------------------------------------------------
sr_sonar:

pulsout trigger,1

pulsin echo,1,dist_raw
dist_inch = (dist_raw/conv_inch)
pause 10

return

end

:10000000C828A0008417800484138E010C1C8E0065 PROGRAM 7.8
:1000100023200319C32823200319C3282320C3281E avoidance.hex file
:10002000A00059200C080D040319C328BD20841317 listing
:100030002008800664001C281D288C0A03198D0FD7
:100040001A288006C32820088E0601308C008D01F6
:10005000000820050E06031D08008C0A03198D0FE9
:10006000282808008F002208840020095A208413C1
:100070008F080319C328F03091000E0880389000D3
:10008000F03091030319910003198F030319C3285A
:1000900049285D2003010C1820088E1F20088E08B7
:1000A00003190301900F562880063D2857280000A9
:1000B0004028FF3A84178005C3280D080C04031953
:1000C0008C0A80300C1A8D060C198D068C188D0642
:1000D0000D0D8C0D8D0DC3288F018E00FF308E0706
:1000E000031C8F07031CC32803308D00DF307A20E8
:1000F0006E288D01E83E8C008D09FC30031C83289E
:100100008C07031880288C0764008D0F80280C183A
:1001100089288C1C8D2800008D2808008E00033053

317