Page 271 - Amphibionics : Build Your Own Biologically Inspired Robot
P. 271

Amphibionics 06  3/24/03  9:02 AM  Page 250
                      PROGRAM 6.5
                      walk-routines.bas
                      program listing       ' move right leg Amphibionics
                      (continued)           high enable_right
                                            high reverse_right
                                            pause 300
                                            while limit_right = 0
                                            wend

                                            low enable_right
                                            low reverse_right

                                            next temp

                                          goto start

                                          end


                      PROGRAM 6.6         :1000000061288F00220884002009282084138F088B
                      walk-routines.hex file  :1000100003195C28F03091000E0880389000F03011
                      listing             :1000200091030319910003198F0303195C28182801
                                          :100030002B2003010C1820088E1F20088E0803199E
                                          :100040000301900F252880060C28262800000F2881
                                          :10005000841780055C280D080C0403198C0A803075
                                          :100060000C1A8D060C198D068C188D060D0D8C0D35
                                          :100070008D0D5C288F018E00FF308E07031C8F07CB
                                          :10008000031C5C2803308D00DF3048203C288D01A4
                                          :10009000E83E8C008D09FC30031C51288C070318A6
                                          :1000A0004E288C0764008D0F4E280C1857288C1C86
                                          :1000B0005B2800005B28080083130313831264008D
                                          :1000C0000800831603308500013086008312061273
                                          :1000D00083160612831206138316061383128612E2
                                          :1000E00083168612831286108316861083120611D9
                                          :1000F000831606118312861183168611053083122A
                                          :10010000A2000830A00073308E000A300120323087
                                          :100110008E000A3001200130A40064000630240261
                                          :100120000318C428061683160612831206178316B0

                      250
   266   267   268   269   270   271   272   273   274   275   276