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

LedSpeaker PIN 5
counter VAR Byte
DEBUG CLS, "LED flashing..."

FOR counter = 1 TO 30
  TOGGLE LedSpeaker
  PAUSE 250
NEXT

DEBUG CR, "Speaker playing tone"
FREQOUT LedSpeaker, 2000, 3000
DEBUG CR, "All done."

END