(setf cf 17500) ;modulation carrier frequency (defun bandpass8 (sig lo hi) (lowpass8 (highpass8 sig lo) hi)) (setf *track* (bandpass8 *track* 100 3000)) (setf *track* (mult *track* (hzosc cf))) (bandpass8 *track* 19000 19000)
