SOUND Example

' SOUND.BS1
' This program generates a constant tone 25 followed by an ascending tones.
' Both the tones have the same duration.

' {$STAMP BS1}
' {$PBASIC 1.0}

SYMBOL  tone            = B2


Main:
  FOR tone = 0 TO 255
    SOUND 0, (25, 10, tone, 10)
  NEXT
  END