' {$STAMP BS2}
' {$PBASIC 2.5}
counter VAR Word
FREQOUT 4, 2000, 3000
PAUSE 20 <
FOR counter = 1 TO 95
PULSOUT 13, 650
PULSOUT 12, 650
PAUSE 20
NEXT
FREQOUT 4, 500,3500
PAUSE 20
FOR counter = 1 TO 226
PULSOUT 13, 850
PULSOUT 12, 650
PAUSE 20
NEXT
FOR counter = 1 TO 24
PULSOUT 13, 850
PULSOUT 12, 850
PAUSE 20
NEXT
FREQOUT 4, 3000, 3000
PAUSE 10
FREQOUT 4, 5000, 3000
PAUSE 10
FREQOUT 4, 7000, 3000
PAUSE 10
FOR counter = 1 TO 175
PULSOUT 13, 650
PULSOUT 12, 850
PAUSE 20
NEXT
the code 650,650 makes you move left
the code 850,650 makes you move right