@ device pic16f877 define osc 4 define adc_bits 8 main: trisb =$00 trisa =$ff adcon1 = 7 speaker var portb.0 sw1 var porta.0 flg_set var bit speaker =0 flg_set =0 while(1) if(!sw1) then pause 150 toggle flg_set while(!sw1):wend endif gosub sounds pause 10 wend end sounds: if(flg_set)then pause 10 sound speaker,[100,10]'100 =(1-127 generate frequency 78.74-10 khz ) '10 = constant time 12ms/1 = 120 ms else sound speaker,[0,0] endif return