'-------------------------------------------------------------
' 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