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

Amphibionics 06  3/24/03  9:02 AM  Page 260
                                                       Amphibionics
                      PROGRAM 6.11
                                            low forward_right
                      rx-remote.bas program
                                            low reverse_right
                      listing (continued)   low enable_right
                                          endif
                                          goto start
                                          '------------------------------------------------------------------------------------------------------------------------------
                                          ' walking subroutines

                                          walk_forward:


                                            ' move left leg

                                            high enable_left
                                            high forward_left
                                            pause 300

                                            while limit_left = 0
                                            wend

                                            low enable_left
                                            low forward_left


                                            ' move right leg

                                            high enable_right
                                            high forward_right
                                            pause 300

                                            while limit_right = 0
                                            wend

                                            low enable_right
                                            low forward_right

                                          return

                      260
   276   277   278   279   280   281   282   283   284   285   286