Config Int1 = Falling On Int1 Ontaste Enable Int1 Enable Interrupts Do Main: For C = 1 To 32 Compare1a = A(c) Waitms Freq Next Loop Ontaste: Disable Interrupts Freq = Freq + 10 If Freq = 110 Then Freq = 10 End If Waitms 200 Enable Interrupts Return