File: FILTER.FC of Tape: Various/ETH/fc2

(.FC,.FO Focal format converted to 'WRITE' listing) 

---

C-OS/8 FOCAL, 1972

01.10 C DIGITAL FILTERN

02.10 T !"FILTER KOEFFIZIENTEN FILE IN 10.10 ANGEBEN!!!"
02.20 T !"DANN 'DO 3'
02.30 Q

03.01 C DIS SWITCH
03.10 D 10
03.20 F K=0,255;D 6;S Z=FCOM(K,Y);D 3.9
03.80 Q
03.90 S Z=FX(0,500)

04.10 S X=0
04.20 F J=1,5;S X=X+A(J)*FCOS(I*Q(J))

05.01 C FOUR
05.10 A ?SI?,?SF?
05.20 D 13.9;S X=(SF-SI)/16;I (X-FITR(X)-.5)5.3;S X=X+.5
05.30 S SS=FITR(X)/16;S Z=FOUR(SI,SS);S Z=FX(1,760)
05.40 S X=194;D 5.6;S X=201;D 5.6;S X=212;D 5.6
05.50 Q
05.60 F Y=X,X+2;S Z=FDIS(Y,-83)

06.10 S Y=H(20)*FCOM(K+20)
06.20 F J=0,19;S Y=Y+H(J)*[FCOM(K-J+40)+FCOM(K+J)]

10.02 S GF=1
10.05 A "GAIN FACTOR (0,1)",G
10.10 O I LP1419
10.15 I (G),10.2;A GF
10.20 F I=0,20;A H(I);S H(I)=H(I)*GF
10.30 O I TTY:,E

13.70 S Z=FDIS(A,FABS(FDIS(A)));S Z=FDIS(B,-FABS(FDIS(B)))
13.80 S A=4;S B=5;D 13.7;R
13.90 S A=5;S B=4;D 13.7

---