Программа 19.1

100 'РЕКУРСИВНЫЙ ФИЛЬТР
110 '
120 DIM X[499]          'X[ ] – массив отсчётов входного сигнала
130 DIM Y[499]          'Y[ ] – массив отсчётов выходного сигнала
140 '
150 GOSUB XXXX          'Некоторая подпрограмма вычисления весовых
160 '                   'коэффициентов: A0, A1, A2, B1, B2
170 '
180 GOSUB XXXX          'Некоторая подпрограмма загрузки входных данных в X[ ]
190 '
200 FOR I% = 2 TO 499
210 Y[I%] = A0*X[I%] + A1*X[I%-1] + A2*X[I%-2] + B1*Y[I%-1] + B2*Y[I%-2]
220 NEXT I%
230 '
240 END