Cricket Sound Effect

[koossa]

Here is the code using a 100uF capacitor.

Include "Modedefs.bas"

DEFINE OSC 4 ' Set the Xtal frequency
CCP1CON = 0
SPEAKERPIN VAR PORTD.2
i var byte

Main:
for i = 0 to 8
SOUND SPEAKERPIN, [125, 1]
pause 7
next i

pause 150

for i = 0 to 8
SOUND SPEAKERPIN, [125, 1]
pause 7
next i

END