Boe Bots Journey

' {$STAMP BS2}
' {$PBASIC 2.5}
DEBUG "Program Running!"
counter VAR Word
FREQOUT 4, 4000, 3000
FOR counter = 1 TO 96 ' Rotate right 360 degrees
PULSOUT 13, 650
PULSOUT 12, 650
PAUSE 20
NEXT
FREQOUT 4, 2000, 2000
FOR counter = 1 TO 210 ' Forward 1 yard
PULSOUT 13, 820
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 24 ' Rotate right 90 degrees
PULSOUT 13, 850
PULSOUT 12, 850
PAUSE 20
NEXT
FREQOUT 4, 4000, 3000
FREQOUT 4, 4000, 3000
FREQOUT 4, 4000, 3000
FOR counter = 1 TO 70 ' Backward 1 square
PULSOUT 13, 650
PULSOUT 12, 850
PAUSE 20
NEXT
FOR counter = 1 TO 70 ' Backward 1 square
PULSOUT 13, 650
PULSOUT 12, 850
PAUSE 20
NEXT
END

These