Page 205 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 05 3/24/03 8:44 AM Page 184
PROGRAM 5.5
serpentronic.bas
For temp1 = 1 to 3
program listing slide_left: Amphibionics
(continued) servo1 = 150
servo2 = 210
servo3 = 150
servo4 = 100
servo5 = 150
servo6 = 210
GoSub servo
servo1 = 100
servo2 = 100
servo3 = 100
servo4 = 210
servo5 = 100
servo6 = 100
GoSub servo
Next temp1
return

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

randomize:

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

'------------------------------------------------------------------------------------------------------------------------------
' infrared detection subroutine

infrared:

ir_count = 0
object_detect = 0

184