Page 187 - Amphibionics : Build Your Own Biologically Inspired Robot

Amphibionics 05 3/24/03 8:44 AM Page 166
Amphibionics
PROGRAM 5.1
servo_3 VAR PORTB.7
snake-test.bas program
servo_4 VAR PORTB.6
listing (continued) servo_2 VAR PORTB.3
servo_5 VAR PORTB.5
servo_6 VAR PORTB.4
rand VAR WORD
timer VAR BYTE
temp1 VAR BYTE
i VAR BYTE
servo1 VAR BYTE
servo2 VAR BYTE
servo3 VAR BYTE
servo4 VAR BYTE
servo5 VAR BYTE
servo6 VAR BYTE

low led_left
low led_right
Low servo1
Low servo2
Low servo3
Low servo4
Low servo5
Low servo6

'------------------------------------------------------------------------------------------------------------------------------
' create randon noises and flash LEDs

For temp1 = 1 to 7
High led_left
Low led_right
GoSub randomize
Pause 50

Low led_left
High led_right
GoSub randomize
Pause 50

166