' CheezeyBot Prgm 1 by Walt Perko
' {$STAMP BS2}
' {$PBASIC 2.5}
x VAR Byte
y VAR Byte
'====================================
' Flash the LEDs
PAUSE 2000 ' wait 1 seconds
FOR x=0 TO 7
HIGH 0 'turn on LED
PAUSE 50
LOW 0 'turn off LED
PAUSE 50
NEXT
PAUSE 5000 ' wait 0.5 seconds
FOR y = 0 TO 99
GOSUB motor1
PAUSE 2000
GOSUB motor2
PAUSE 2000
GOSUB motor3
PAUSE 2000
GOSUB motor4
PAUSE 2000
GOSUB motor5
PAUSE 2000
NEXT
END
'====================================
' Motor 12 & 13
motor1:
FOR x=0 TO 199
PULSOUT 12, 3000
NEXT
PAUSE 500
FOR x=0 TO 199
PULSOUT 13, 3000
NEXT
PAUSE 500
FOR x=0 TO 249
PULSOUT 12, 3000
PULSOUT 13, 3000
NEXT
RETURN
'====================================
' Motor 12 & 13
motor2:
FOR x=0 TO 199
PULSOUT 12, 200
NEXT
PAUSE 500
FOR x=0 TO 199
PULSOUT 13, 200
NEXT
PAUSE 500
FOR x=0 TO 249
PULSOUT 12, 200
PULSOUT 13, 200
NEXT
RETURN
'====================================
' Motor 12 & 13
motor3:
FOR x=0 TO 199
PULSOUT 12, 200
NEXT
PAUSE 500
FOR x=0 TO 199
PULSOUT 13, 3000
NEXT
PAUSE 500
FOR x=0 TO 199
PULSOUT 12, 200
PULSOUT 13, 3000
NEXT
RETURN
'====================================
' Motor 12 & 13
motor4:
FOR x=0 TO 199
PULSOUT 12, 3000
NEXT
PAUSE 500
FOR x=0 TO 199
PULSOUT 13, 200
NEXT
PAUSE 500
FOR x=0 TO 199
PULSOUT 12, 3000
PULSOUT 13, 200
NEXT
RETURN
'====================================
' Motor 12 & 13
motor5:
FOR x=0 TO 199
PULSOUT 12, 200
NEXT
PAUSE 500
FOR x=0 TO 199
PULSOUT 13, 200
NEXT
PAUSE 500
FOR x=0 TO 249
PULSOUT 12, 3000
PULSOUT 13, 3000
NEXT
RETURN
END
You're bot is ready to do the CheezeyBot Dance!