CountingPulses.bas