'-------------------------------------------------------------
'                     SOUND.BAS
'          Copyright 1997-1999 MCS Electronics
'-------------------------------------------------------------
Dim Pulses As Byte , Periods As Integer
Pulses = 100 : Periods = 10             'set variables
Speaker Alias P1.1                      'define port pin

Sound Speaker , Pulses , Periods        'make some noice
'pulses  range from 1-32767
'periods range from 1-255

End