Page 289 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 06 3/24/03 9:02 AM Page 268
PROGRAM 6.13
tx-remote.bas program
If val_y > 200 then
listing (continued) endif Amphibionics
high txmit_led
serout txmit,tx_baud,["ZB"]
endif
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

PROGRAM 6.14 :100000008C2892002A0884000930930003100D20E8
tx-remote.hex file listing :10001000920C930B072803140D288413A71D1C288A
:1000200000082804271D28068000841700082804DB
:10003000031C28068000272800082804031C280623
:100040002719280680008417280980052728270DEE
:1000500006398C0030208D008C0A302000004E289C
:1000600000308A000C0882070134753403341534DB

268