Page 188 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 05 3/24/03 8:44 AM Page 167
Next temp1
PROGRAM 5.1
snake-test.bas program
Low led_right Chapter 5 / Serpentronic: Build Your Own Robotic Snake
listing (continued)
'------------------------------------------------------------------------------------------------------------------------------
' start main execution
start:
servo1 = 150
servo2 = 150
servo3 = 150
servo4 = 150
servo5 = 150
servo6 = 150

GoSub servo

goto start

'Subroutines start here

'------------------------------------------------------------------------------------------------------------------------------
' random sound generator subroutine

randomize:

Random rand
i = rand & 31 + 64
Sound piezo,[i,4]
Return

'------------------------------------------------------------------------------------------------------------------------------
' subroutine to set servos

servo:

For timer = 1 to 20

167