' Robotics with the Boe-Bot - BoeBotForwardTenSeconds.bs2
' Make the Boe-Bot roll forward for ten seconds.

' {$STAMP BS2}
' {$PBASIC 2.5}

DEBUG "Program Running!"

counter        VAR     Word

FREQOUT 4, 2000, 3000                        ' Signal program start/reset.

FOR counter = 1 TO 407                       ' Number of pulses – run time.

  PULSOUT 13, 850                            ' Left servo full speed ccw.
  PULSOUT 12, 650                            ' Right servo full speed cw.
  PAUSE 20

NEXT

END