Page 204 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 05 3/24/03 8:44 AM Page 183
PROGRAM 5.5
servo5 = 157
servo6 = 210
serpentronic.bas
program listing
GoSub servo Chapter 5 / Serpentronic: Build Your Own Robotic Snake
servo1 = 143 (continued)
servo2 = 100
servo3 = 157
servo4 = 210
servo5 = 143
servo6 = 100
GoSub servo
return
'------------------------------------------------------------------------------------------------------------------------------
' right turn movement routine

slide_right:

For temp1 = 1 to 3
servo1 = 150
servo2 = 210
servo3 = 150
servo4 = 100
servo5 = 150
servo6 = 210
GoSub servo
servo1 = 190
servo2 = 100
servo3 = 190
servo4 = 210
servo5 = 190
servo6 = 100
GoSub servo
next temp1
return

'------------------------------------------------------------------------------------------------------------------------------
' left turn movement routine

183