'-------------------------------------------------------------
'                     SOUND.BAS
'          Copyright 1999-2003 MCS Electronics
'-------------------------------------------------------------
Dim Pulses As Word , Periods As Word
Pulses = 65535 : Periods = 10000                              'set variables
Speaker Alias Portb.1                                         'define port pin

Sound Speaker , Pulses , Periods                              'make some noice
'note that pulses and periods must have a high value for high XTALS
'sound is only intended to make some noise!

'pulses  range from 1-65535
'periods range from 1-65535

End