File: F.FD of Tape: Various/ETH/fc-files
(Binary file converted to dump format)
Block: 0000
00000: 6303 2255 6301 1723 5317 7315 6306 0303 6723 0305 5655 2667 4215 6612 5612 0660 3CR-3AOS+O;M3FCC7SCE.-V7"M6J.JF0 C-DASCOM.FC@SEP-75 01
00020: 5656 0660 5240 0303 6704 2301 4301 5215 5260 7261 5260 0262 5703 3640 6240 2723 ..F0* CC7DSA#A*M*0:1*0B2/C^ 2 WS .01 C DATA 01.02 C 7 SE
00040: 5720 0640 5671 2667 5615 0212 5661 0256 6264 1640 6640 2706 5305 0322 6306 6311 /PF .9V7.MBJ.1B.24N 6 WF+ECR3F3I P 1975 01.04 C FUER FIL
00060: 5305 0323 5301 0302 5715 2263 5615 0212 5661 0256 6265 1640 6640 2706 5305 0322 +ECS+ACB/MR3.MBJ.1B.25N 6 WF+ECR ES AB M34 01.05 C FUER
00100: 6704 2301 5305 0316 6702 1711 5640 1315 5271 0272 6304 1313 6261 2272 6301 0724 7DSA+ECN7BOI. KM*9B:3DKK21R:3AGT DATEN BIS M29: DKB1:DATA
00120: 5262 7271 4306 6703 5612 0660 5656 3260 5240 0303 6306 2725 6322 6640 5263 0260 *2:9#F7C.JF0..Z0* CC3FWU3R6 *3B0 29.FC 01.06 C FUER M30
00140: 6702 1711 5640 1715 5263 0272 6304 1313 6261 2272 6301 0724 5263 7263 4306 6703 7BOI. OM*3B:3DKK21R:3AGT*3:3#F7C BIS M33: DKB1:DATA33.FC
00160: 5612 0660 5656 0261 5240 0303 5716 6706 6704 3310 6301 3240 6722 0705 6272 7240 .JF0..B1* CC/N7F7D[H3AZ 7RGE2:: 01.10 C NF=DHVA FREQ: N
00200: 6306 7275 6325 2257 5713 2652 4261 6662 5612 0660 5656 0661 5240 0303 5724 6706 3F:=3UR//KV*"162.JF0..F1* CC/T7F F=NU/DK*512 01.11 C TF=
00220: 6704 3310 6301 2240 6305 0703 5331 0272 5724 6706 6662 0252 6711 2252 6301 2257 7D[H3AR 3EGC+YB:/T7F62B*7IR*3AR/ DHVA DECAY: TF=2*PI*TA/D
00240: 5713 2652 4261 6662 5612 0660 5656 1261 5240 0303 5724 6701 5324 5306 5304 7714 /KV*"162.JF0..J1* CC/T7A+T+F+D?L K*512 01.12 C TA=TF*DL/
00260: 6662 0252 4311 5215 5260 7261 5261 0263 6303 2240 6314 2275 5713 2652 4261 6662 62B*#I*M*0:1*1B33CR 3LR=/KV*"162 2*PI 01.13 C DL=DK*512
00300: 5612 0660 5656 0271 5240 0306 5711 0675 5654 5666 6723 5240 6275 7706 5325 4324 .JF0..B9* CF/IF=.,.67S* 2=?F+U#T 01.90 F I=1,6;S Z=FOUT(
00320: 5315 4304 5311 4651 5615 0212 5661 4656 6665 0640 4215 6612 5612 1660 5656 0660 +M#D+I&).MBJ.1&.65F "M6J.JN0..F0 MD(I)) 01.95 Q 03.01
00340: 5240 0303 6704 2301 6301 4706 4314 6705 5612 1660 5656 1260 5240 0324 6242 4706 * CC7DSA3A'F#L7E.JN0..J0* CT2"'F C DATAFILE 03.02 T "FI
00360: 5714 5305 6242 3273 5640 6711 5661 3254 5273 0323 5315 4304 5711 6651 6306 7311 /L+E2"Z;. 7I.1Z,*;CS+M#D/I6)3F;I LE:";F I=1,6;S MD(I)=FIN
Block: 0001
00400: 4250 6651 5612 1660 5656 2260 5240 0317 6717 1640 6724 2705 5705 5722 5324 0640 "(6).JN0..R0* CO7ON 7TWE/E/R+TF () 03.04 O O STEUER;T !
00420: 5242 7263 6261 7640 5240 0311 6322 0713 5261 1272 5273 0304 5661 4656 5615 0212 *":321> * CI3RGK*1J:*;CD.1&..MBJ "3.1 O I RKA1:";D 1.9 0
00440: 5663 0256 6665 2240 5240 1241 5670 0656 5240 0317 6717 1240 5713 0701 5672 5642 .3B.65R * J!.8F.* CO7OJ /KGA.:." 3.05 T !"8.1 O O RKA1:";
00460: 5704 0640 4256 6671 5612 1660 5656 3260 5240 0324 6241 3642 5240 7263 5261 0642 /DF ".69.JN0..Z0* CT2!^"* :3*1F" D 1.9 03.06 T !"G 3.1"!
00500: 5615 0212 5663 0256 6267 7640 4240 6703 5612 1660 5656 4260 5240 0317 6711 1640 .MBJ.3B.27> " 7C.JN0.."0* CO7IN 03.07 O C 03.08 O I S
00520: 6724 2705 5705 5722 4321 5215 5260 7263 5261 0260 6317 4640 6240 5722 5701 5261 7TWE/E/R#Q*M*0:3*1B03O& 2 /R/A*1 TEUER;Q 03.10 O I RKA1:
00540: 5727 0720 5704 2262 5615 0212 5663 0656 6661 1640 6240 2315 5250 4661 6275 4706 /WGP/DR2.MBJ.3F.61N 2 SM*(&12='F WP1D24 03.11 S MD(1)=FI
00560: 5316 4650 5273 0311 6250 3255 6701 1702 6250 2315 5250 4661 5655 1262 5260 4651 +N&(*;CI2(Z-7AOB2(SM*(&1.-J2*0&) N();I (-FABS(MD(1)-220))
00600: 5663 0656 6265 3273 5640 6711 5661 0654 6662 1673 5640 6732 6306 7311 4250 6651 .3F.25Z;. 7I.1F,62N;. 7Z3F;I"(6) 3.15;F I=1,12;S Z=FIN()
00620: 5612 1660 5656 1261 5240 0323 5315 4304 5661 6651 6306 7311 4250 6651 5612 1660 .JN0..J1* CS+M#D.16)3F;I"(6).JN0 03.12 S MD(1)=FIN() 03
00640: 5656 2661 5240 0306 5711 1275 5654 5666 6323 6640 6304 4650 6251 3275 5311 4316 ..V1* CF/IJ=.,.63S6 3D&(2)Z=+I#N .15 F I=2,6;S MD(I)=FIN(
00660: 4251 5215 5260 7263 5262 0260 6301 2240 5654 5716 5704 0640 5663 4256 5273 0306 ")*M*0:3*2B03AR .,/N/DF .3".*;CF ) 03.20 A D,N;D 13.8;F
00700: 5711 0275 5254 6716 6261 0673 5640 5730 6723 5240 6275 1706 5317 4315 6711 4254 /IB=*,7N21F;. /X7S* 2=OF+O#M7I", I=0,N-1;A X;S Z=FCOM(I,X
00720: 6251 2273 5640 1661 4256 6665 5612 1660 5656 2662 5240 0306 6311 7275 5654 2662 2)R;. N1".65.JN0..V2* CF3I:=.,V2 );D 13.5 03.25 F I=N,25
00740: 6665 1673 5640 6732 6306 7703 6315 4650 5254 4660 5273 0304 5261 7263 4265 5215 65N;. 7Z3F?C3M&(*,&0*;CD*1:3"5*M 5;S Z=FCOM(I,0);D 13.5
00760: 5260 7263 5263 0260 6701 4240 5273 0311 5250 6730 5262 4660 5663 1656 5665 1654 *0:3*3B07A" *;CI*(7X*2&0.3N..5N, 03.30 A X;I (X-20)3.35,3
Block: 0002
01000: 5256 6264 5663 1656 4265 5215 5260 7263 5263 0265 5324 1240 6306 4305 6714 1305 *.24.3N."5*M*0:3*3B5+TJ 3F#E7LKE .4,3.35 03.35 T "FEHLER
01020: 5642 5641 5704 1640 5656 5670 4321 5215 5260 7263 5264 0260 6301 2240 6313 4254 .".!/DN ...8#Q*M*0:3*4B03AR 3K", "!;D 3.8;Q 03.40 A DK,H
01040: 6322 4254 6311 4254 6706 0254 6706 0254 6723 0254 6724 1654 6724 2254 6715 2254 3R",3I",7FB,7FB,7SB,7TN,7TR,7MR, R,HI,HF,PF,PS,PT,ST,TM,T
01060: 6726 1654 6310 6654 6320 2654 6323 5654 6314 5654 6326 1654 6710 0254 6660 0254 7VN,3H6,3PV,3S.,3L.,3VN,7HB,60B, V,SH,MP,ES,KL,KV,CH,P0,P
01100: 6661 0254 6662 0254 4263 5215 5260 7263 5265 0260 6317 4640 6640 2324 5331 6272 61B,62B,"3*M*0:3*5B03O& 6 ST+Y2: 1,P2,P3 03.50 O I TTY:,
01120: 4305 5215 5260 7263 5266 0260 5301 0640 6242 2722 5301 0304 5311 0316 6306 2722 #E*M*0:3*6B0+AF 2"WR+ACD+ICN3FWR E 03.60 A !"READ IN FRE
01140: 6721 1656 5277 6242 6332 4673 6640 5250 6655 4660 5305 4723 5663 4656 5254 7263 7QN.*?2"3Z&;6 *(6-&0+E'S.3&.*,:3 Q.S?",Z;I (Z-0YES)3.9,3.
01160: 5266 6265 5663 4656 5615 0212 5663 3256 6265 7640 5240 0322 4311 5215 5260 7263 *625.3&..MBJ.3Z.25> * CR#I*M*0:3 65,3.9 03.65 O R I 03.
01200: 5267 0260 6306 4640 5275 6261 6264 0673 6240 3316 5250 4711 6254 4320 5250 4711 *7B03F& *=2124F;2 [N*('I2,#P*('I 70 F I=1,4;A NF(I),PH(I)
01220: 6254 3301 5250 4711 6254 3324 5250 4711 5615 0212 5663 4256 6260 7640 5240 0311 2,[A*('I2,[T*('I.MBJ.3".20> * CI ,AF(I),TF(I) 03.80 O I
01240: 6724 4724 6272 2654 5615 0212 5663 4656 6660 2240 5240 0242 5240 1240 5273 0304 7T'T2:V,.MBJ.3&.60R * B"* J *;CD TTY:,E 03.90 T " ";D
01260: 5661 4656 5273 0324 6242 4640 5316 0642 4273 6721 4212 5215 5260 7265 5260 0261 .1&.*;CT2"& +NF"";7Q"J*M*0:5*0B1 1.9;T " IN"!;Q 05.01
01300: 6303 3240 6717 1325 5615 0212 5665 0256 6664 1640 6240 6304 6275 5704 5652 2656 3CZ 7OKU.MBJ.5B.64N 2 3D2=/D.*V. C FOUR 05.04 S DL=DK*.5
01320: 5661 5662 5311 4240 5304 4714 5254 7265 5260 6267 5665 0256 4265 5215 5260 7265 .1.2+I" +D'L*,:5*027.5B."5*M*0:5 12;I (DL),5.07,5.05 05.
01340: 5260 0265 5324 1240 6306 2722 5321 0256 5311 0316 6724 1705 5314 0301 6257 3240 *0B5+TJ 3FWR+QB.+ICN7TOE+LCA2/Z 05 T "FREQ. IN TESLA / F
01360: 6715 4301 5275 6242 5245 7266 5260 6262 5665 0260 6257 5704 5615 0212 5665 0256 7M#A*=2"*%:6*022.5B02//D.MBJ.5B. MAX=",%6.02,500/DK 05.0
Block: 0003
01400: 6266 0640 5240 6241 6242 2702 6707 1642 5311 1254 6305 2316 6242 3323 5273 0323 26F * 2!2"WB7GN"+IJ,3ESN2"[S*;CS 6 A !,"BEG"SI,"END"SF;S
01420: 5723 6711 5323 5311 5704 5714 6723 1640 6706 1675 6306 2252 6314 3673 5240 7265 /S7I+S+I/D/L7SN 7FN=3FR*3L^;* :5 SI=SI*DL;S SF=SF*DL;G 5.
01440: 4261 5215 5260 7265 5260 0267 5701 7640 5323 6311 5723 7706 5615 0212 5665 0656 "1*M*0:5*0B7/A> +S3I/S?F.MBJ.5F. 1 05.07 A ?SI,SF? 05.1
01460: 6660 1640 5640 6730 6250 3323 6255 4723 5651 0657 6266 4673 6640 4250 6255 4706 60N . 7X2([S2-'S.)F/26&;6 "(2-'F 0 S X=(SF-SI)/16;I (X-FI
01500: 5324 4322 5330 6651 5256 4665 5665 0656 6664 1673 5640 6730 5330 7253 4265 5215 +T#R+X6)*.&5.5F.64N;. 7X+X:+"5*M TR(X)-.5)5.14;S X=X+.5
01520: 5260 7265 5261 0264 6723 1640 6323 3275 6711 1324 5250 4730 5657 3261 5273 0323 *0:5*1B47SN 3SZ=7IKT*('X./Z1*;CS 05.14 S SS=FITR(X)/16;S
01540: 5723 6662 5323 5711 5323 5323 5661 4262 5273 0323 5723 6706 5323 5711 5323 5323 /S62+S/I+S+S.1"2*;CS/S7F+S/I+S+S S2=SI+SS*128;S SF=SI+SS*
01560: 5662 3265 5615 0212 5665 0656 6266 4640 5240 6650 5304 4714 5665 0656 6667 2273 .2Z5.MBJ.5F.26& * 6(+D'L.5F.67R; 256 05.16 I (-DL)5.17;T
01600: 5640 1645 5254 3642 6642 1723 5652 1263 5242 1247 5273 0307 5665 1256 5615 0212 . N%*,^"6"OS.*J3*"J'*;CG.5J..MBJ %3,"'"SS*32"'";G 5.2 0
01620: 5665 0656 6667 2240 5640 2245 5656 0660 5254 3642 6642 1723 5652 1263 6257 6304 .5F.67R . R%..F0*,^"6"OS.*J32/3D 5.17 T %4.01,"'"SS*32/DL
01640: 5254 3642 4242 5215 5260 7265 5262 0260 5324 0640 5273 0304 5261 7263 6271 2273 *,^"""*M*0:5*2B0+TF *;CD*1:329R; ,"'" 05.20 T !;D 13.9;D
01660: 5640 1261 5615 0212 5665 1656 6660 1640 5640 6732 6706 2717 6722 1650 6711 1654 . J1.MBJ.5N.60N . 7Z7FWO7RN(7IN, 12 05.30 S Z=FOUR(SI,S
01700: 5723 5651 6723 5240 6315 3275 5730 0650 5654 3267 4260 6651 4212 5215 5260 7266 /S.)7S* 3MZ=/XF(.,Z7"06)"J*M*0:6 S);S ZM=FX(1,760) 06.
01720: 5260 0265 4321 5215 5260 7266 5261 0260 6317 7640 6640 0323 5705 2313 5615 0212 *0B5#Q*M*0:6*1B03O> 6 CS/ESK.MBJ 05 Q 06.10 O O SPEK4 0
01740: 5666 1256 6260 3240 5640 6711 5662 3265 5654 0665 6261 2273 5240 7266 4265 5215 .6J.20Z . 7I.2Z5.,F521R;* :6"5*M 6.20 F I=256,511;D 6.5
01760: 5260 7266 5263 0260 6317 1640 5615 0212 5666 2256 6660 0640 5615 0212 5666 2656 *0:6*3B03ON .MBJ.6R.60F .MBJ.6V. 06.30 O C 06.40 Q 06.5
Block: 0004
02000: 6660 2240 5640 3245 5656 2260 6254 4650 5655 2662 5266 5251 5663 1663 5263 7263 60R . Z%..R02,&(.-V2*6*).3N3*3:3 0 T %6.04,(I-256)*33333.
02020: 5663 0657 5660 2262 5653 1670 5263 7263 5263 6263 6241 3254 6303 6717 5250 4711 .3F/.0R2.+N8*3:3*3232!Z,3C7O*('I 3/1024+8333.33,!,FCOM(I)
02040: 4254 6641 4212 5215 5260 7270 5260 0261 6703 1640 6724 1317 4305 5215 5260 7270 ",6!"J*M*0:8*0B17CN 7TKO#E*M*0:8 ,! 08.01 C STORE 08.
02060: 5260 0265 5704 0640 5656 5671 5301 1240 6240 5717 6642 5254 5273 0311 5250 6732 *0B5/DF ...9+AJ 2 /O6"*,*;CI*(7Z 05 D 1.9;A " OK",Z;I (Z-
02100: 6260 2731 5723 4251 5656 3260 5254 7270 5661 4254 5656 3260 5615 0212 5670 0256 20WY/S")..Z0*,:8.1",..Z0.MBJ.8B. 0YES)8.06,8.1,8.06 08.0
02120: 6266 2240 5240 7263 5660 5662 5704 1640 5656 2260 5273 0304 5663 0256 6665 2273 26R * :3.0.2/DN ..R0*;CD.3B.65R; 6 D 3.02;D 3.04;D 3.05;T
02140: 5240 1241 5707 4240 5256 1261 6241 7673 4240 6703 5612 4260 5656 3660 5240 0317 * J!/G" *.J12!>;" 7C.J"0..^0* CO !"G 8.1"!;O C 08.07 O
02160: 6711 1640 6724 2705 5705 5722 4321 5215 5260 7270 5261 0260 6317 7640 6240 5722 7IN 7TWE/E/R#Q*M*0:8*1B03O> 2 /R I STEUER;Q 08.10 O O RK
02200: 5701 5261 5727 0720 5704 2262 5615 0212 5670 1256 6260 2240 5240 7261 6671 2273 /A*1/WGP/DR2.MBJ.8J.20R * :169R; A1:WP1D24 08.20 D 1.9;T
02220: 5640 1245 5254 6304 5241 2654 6264 7254 5654 5641 6306 4640 5275 6260 5716 0655 . J%*,3D*!V,24:,.,.!3F& *=20/NF- %2,D,!,%4,N,!;F I=0,N-1
02240: 5273 0324 5245 7265 5260 6263 6306 7703 6315 4650 5251 0654 5615 0212 5670 1656 *;CT*%:5*0233F?C3M&(*)F,.MBJ.8N. ;T %5.03,FCOM(I),! 08.3
02260: 6660 2240 5640 1242 5260 6242 5241 2654 5666 0256 6264 2254 5313 0654 6654 1310 60R . J"*02"*!V,.6B.24R,+KF,6,KH 0 T "20",!,%6.04,DK,!,HR
02300: 5254 6241 5310 6311 6241 4254 5306 0654 6254 3320 5254 6241 5320 6323 6641 0254 *,2!+H3I2!",+FF,2,[P*,2!+P3S6!B, ,!,HI,!,HF,!,PF,!,PS,!,P
02320: 5324 0654 5615 0212 5670 2256 6660 2240 6640 2323 5254 6241 5324 6315 6641 2254 +TF,.MBJ.8R.60R 6 SS*,2!+T3M6!R, T,! 08.40 T ST,!,TM,!,T
02340: 5326 0654 6254 4323 5254 6241 5315 6320 6241 2654 5323 0654 6254 6313 5254 6241 +VF,2,#S*,2!+M3P2!V,+SF,2,3K*,2! V,!,SH,!,MP,!,ES,!,KL,!,
02360: 5313 6326 5241 2654 5665 0256 6263 1654 5310 0654 5654 0320 5254 6241 5320 6261 +K3V*!V,.5B.23N,+HF,.,CP*,2!+P21 KV,!,%5.03,CH,!,P0,!,P1,
Block: 0005
02400: 6641 0254 5262 0654 5654 1720 4254 6641 5612 4260 5656 0265 5240 0317 6711 2240 6!B,*2F,.,OP",6!.J"0..B5* CO7IR !,P2,!,P3,! 08.50 O I T
02420: 5724 5331 5654 5705 6317 7640 6640 2324 4331 6672 5612 4260 5656 1265 5240 0301 /T+Y.,/E3O> 6 ST#Y6:.J"0..J5* CA TY:,E;O O TTY: 08.52 A
02440: 6242 7640 5314 0304 6326 6301 6725 1705 6642 5254 5273 0311 6250 3255 6701 1702 2"> +LCD3V3A7UOE6"*,*;CI2(Z-7AOB " OLD VALUES",Z;I (-FABS
02460: 5250 6732 6260 2731 5323 4651 5670 2656 5665 4254 4256 6667 5612 4260 5656 2665 *(7Z20WY+S&).8V..5",".67.J"0..V5 (Z-0YES))8.55,8.7 08.55
02500: 5240 0323 5711 0675 5615 0212 5670 3256 6660 2240 5640 0645 6254 4642 5275 6242 * CS/IF=.MBJ.8Z.60R . F%2,&"*=2" S I=1 08.60 T %1,"I=",
02520: 5311 1254 5240 0240 6242 0673 6240 7277 6306 4650 4251 6677 5612 4260 5656 1266 +IJ,* B 2"F;2 :?3F&(")6?.J"0..J6 I," ";A ?NF(I)? 08.62
02540: 5240 0311 6250 3316 5250 4711 5251 7270 5266 6264 5670 3256 5670 4254 5656 2266 * CI2([N*('I*):8*624.8Z..8",..R6 I (NF(I))8.64,8.68,8.64
02560: 5615 0212 5670 3256 6264 0640 6640 0277 6310 4650 6251 0640 6306 4650 6651 2240 .MBJ.8Z.24F 6 B?3H&(2)F 3F&(6)R 08.64 A ?PH(I) AF(I) T
02600: 6306 4650 5251 0677 5273 0323 6311 4675 5653 5661 5311 4240 5711 2655 5251 7270 3F&(*)F?*;CS3I&=.+.1+I" /IV-*):8 F(I)?!;S I=I+1;I (I-5)8.
02620: 5666 4254 5256 6267 5670 3656 5615 0212 5670 3256 6270 3240 5640 6712 5711 2254 .6",*.27.8^..MBJ.8Z.28Z . 7J/IR, 6,8.7,8.7 08.68 F J=I,4
02640: 5273 0323 5316 4306 5712 6651 6660 1673 6240 4320 5250 4712 5675 5660 6323 0640 *;CS+N#F/J6)60N;2 #P*('J.=.03SF ;S NF(J)=0;S PH(J)=0;S A
02660: 6306 5250 5651 0275 5273 0323 5324 4306 5712 6651 4260 5215 5260 7270 5267 0260 3F*(.)B=*;CS+T#F/J6)"0*M*0:8*7B0 F(J)=0;S TF(J)=0 08.70
02700: 5324 0640 5273 0317 6322 7640 5615 0212 5670 4256 6260 3240 5640 6711 5661 2254 +TF *;CO3R> .MBJ.8".20Z . 7I.1R, T !;O R O 08.80 F I=1,4
02720: 5273 0324 5245 7265 5260 6263 5316 4306 5311 6251 6641 0254 6310 4650 5251 0654 *;CT*%:5*023+N#F+I2)6!B,3H&(*)F, ;T %5.03,NF(I),!,PH(I),!
02740: 6254 3301 5250 4711 5254 6241 5324 4306 5311 6251 4241 5215 5260 7270 5270 0265 2,[A*('I*,2!+T#F+I2)"!*M*0:8*8B5 ,AF(I),!,TF(I),! 08.85
02760: 6306 4640 5275 6261 6664 2273 5240 6260 5641 0254 5254 6241 5260 0654 5254 6260 3F& *=2164R;* 20.!B,*,2!*0F,*,20 F I=1,4;T 0,!,0,!,0,!,0,
Block: 0006
03000: 4241 5215 5260 7270 5271 0260 6723 5240 6275 7706 5325 4324 5661 0264 6251 7673 "!*M*0:8*9B07S* 2=?F+U#T.1B42)>; ! 08.90 S Z=FOUT(140);O
03020: 4240 6703 5612 4260 5656 2671 5240 0304 5661 4656 5273 0324 6242 7640 5325 1324 " 7C.J"0..V9* CD.1&.*;CT2"> +UKT C 08.95 D 1.9;T " OUT"
03040: 6641 0673 4215 6612 5612 4660 5656 0660 5240 0303 6724 2701 5240 0253 6316 6725 6!F;"M6J.J&0..F0* CC7TWA* B+3N7U !;Q 09.01 C TAU + NUM
03060: 4301 6730 5612 4660 5656 0261 5240 0323 5730 1275 5265 5666 6650 2716 6255 4723 #A7X.J&0..B1* CS/XJ=*5.66(WN2-'S AX 09.10 S X=256+(NU-SI
03100: 6651 1657 4323 5215 5260 7271 5262 0260 5311 4240 6306 7703 6715 4250 5253 4661 6)N/#S*M*0:9*2B0+I" 3F?C7M"(*+&1 )/SS 09.20 I (FCOM(X+1)
03120: 6255 1706 5317 4315 5330 4651 5671 1256 5665 4654 5656 2662 5273 0323 6730 4275 2-OF+O#M+X&).9J..5&,..V2*;CS7X"= -FCOM(X))9.25,9.25;S X=X
03140: 5653 5661 5707 4640 4256 6662 5612 4660 5656 2662 5240 0311 6250 1706 5317 4315 .+.1/G& ".62.J&0..V2* CI2(OF+O#M +1;G 9.2 09.25 I (FCOM(
03160: 5730 0655 6251 3255 6303 6717 5250 4730 5251 7271 5663 4654 5656 5663 6723 4240 /XF-2)Z-3C7O*('X*):9.3&,...37S" X-1)-FCOM(X))9.3,9.3;S X
03200: 5275 6730 6261 3673 5240 7271 4262 6665 5612 4660 5656 0263 5240 0323 5730 6715 *=7X21^;* :9"265.J&0..B3* CS/X7M =X-1;G 9.25 09.30 S XM=
03220: 6730 1673 6240 4301 5675 2656 6252 1706 5317 4315 5330 4715 5273 0323 5716 6725 7XN;2 #A.=V.2*OF+O#M+X'M*;CS/N7U X;S AH=.5*FCOM(XM);S NU=
03240: 6250 6730 5655 2662 5266 5251 5323 5723 4323 6711 5612 4660 5656 0264 5240 0323 2(7X.-V2*6*)+S/S#S7I.J&0..B4* CS (XM-256)*SS+SI 09.40 S
03260: 6730 4275 5655 5661 5311 4240 6306 7703 6715 4250 6251 0655 5710 4651 5656 2664 7X"=.-.1+I" 3F?C7M"(2)F-/H&)..V4 X=X-1;I (FCOM(X)-AH)9.45
03300: 5254 7271 5264 6265 5671 2256 5615 0212 5671 2256 6665 1640 5640 0730 5675 5730 *,:9*425.9R..MBJ.9R.65N . GX.=/X ,9.45,9.4 09.45 S X1=X;
03320: 6323 0640 6261 3275 6303 6717 5250 4730 5273 0323 5701 6662 6306 7703 6715 4250 3SF 21Z=3C7O*('X*;CS/A623F?C7M"( S A1=FCOM(X);S A2=FCOM(X
03340: 5253 4661 5273 0323 6730 4275 5715 0653 5615 0212 5671 2656 6260 4640 6240 3250 *+&1*;CS7X"=/MF+.MBJ.9V.20& 2 Z( +1);S X=XM+1 09.50 I (F
03360: 6303 6717 5250 4730 6255 4301 5251 7271 5665 5665 6723 4240 5275 5730 6261 3673 3C7O*('X2-#A*):9.5.57S" *=/X21^; COM(X)-AH)9.55;S X=X+1;G
Block: 0007
03400: 5240 7271 4265 5215 5260 7271 5265 0265 6723 4240 6663 4275 5655 5661 6323 0640 * :9"5*M*0:9*5B57S" 63"=.-.13SF 9.5 09.55 S X3=X-1;S A
03420: 6263 3275 6303 6717 5650 1730 6651 1673 5640 2301 6275 1706 5317 4315 4330 6651 23Z=3C7O.(OX6)N;. SA2=OF+O#M#X6) 3=FCOM(X3);S A4=FCOM(X)
03440: 5612 4660 5656 0266 5240 0323 5730 6661 5330 5661 6250 4301 5655 0701 5251 4257 .J&0..B6* CS/X61+X.12(#A.-GA*)"/ 09.60 S X1=X1+(AH-A1)/(
03460: 5301 6662 5301 4661 5273 0323 5730 6663 5330 5663 5650 1701 6255 4301 5251 4257 +A62+A&1*;CS/X63+X.3.(OA2-#A*)"/ A2-A1);S X3=X3+(A3-AH)/(
03500: 5301 6663 5301 4664 5615 0212 5671 3656 6660 1640 6240 0724 6675 4250 6663 4255 +A63+A&4.MBJ.9^.60N 2 GT6="(63"- A3-A4) 09.70 S TA=(X3-X
03520: 5261 5251 5323 7723 4262 5215 5260 7271 5267 0261 6723 2240 6701 2275 6301 7252 *1*)+S?S"2*M*0:9*7B17SR 7AR=3A:* 1)*SS/2 09.71 S TA=TA*N
03540: 5657 2662 4266 5215 5260 7271 5267 0262 5311 4240 5324 6701 5656 2671 5251 7271 ./V2"6*M*0:9*7B2+I" +T7A..V9*):9 /256 09.72 I (TA-.95)9.
03560: 5667 5664 6723 2240 6701 2275 5701 2336 5655 3656 6665 1673 6240 0724 6675 1706 .7.47SR 7AR=/AS^.-^.65N;2 GT6=OF 74;S TA=TA^4-.75;S TA=FS
03600: 5321 4324 6706 0723 6724 2250 5301 4651 5273 0307 5671 4256 5615 0212 5671 3656 +Q#T7FGS7TR(+A&)*;CG.9"..MBJ.9^. QT(FSQT(TA));G 9.8 09.7
03620: 6263 4640 5240 6650 5324 4701 5671 3656 5664 4654 5656 2267 5273 0323 5724 6701 23& * 6(+T'A.9^..4&,..R7*;CS/T7A 3 I (-TA)9.74,9.74;S TA=
03640: 5656 5661 5707 4640 4256 6670 5612 4660 5656 2267 5240 0311 6250 0724 5655 4256 ...1/G& ".68.J&0..R7* CI2(GT.-". .1;G 9.8 09.74 I (TA-.8
03660: 5270 4665 5671 4656 5273 0323 5724 6701 6706 0723 5324 4250 5324 6701 5656 4270 *8&5.9&.*;CS/T7A7FGS+T"(+T7A.."8 85)9.9;S TA=FSQT((TA-.88
03700: 5265 7651 5656 4262 4251 5215 5260 7271 5270 0260 6723 2240 6701 2275 5701 1252 *5>).."2")*M*0:9*8B07SR 7AR=/AJ* 5)/.28) 09.80 S TA=TA*2
03720: 5265 7666 6716 1273 5615 0212 5671 4656 6660 2240 5240 0642 6724 2701 5641 5642 *5>67NJ;.MBJ.9&.60R * F"7TWA.!." 56/N;R 09.90 T "!TAU!";
03740: 6723 2240 5701 0275 5656 0660 4215 6612 5612 0261 5656 0660 5240 0303 6320 0705 7SR /AB=..F0"M6J.JB1..F0* CC3PGE S TA=0.01 10.01 C PEA
03760: 6713 3305 4301 6714 5612 0261 5656 2260 5240 0301 6642 1306 5305 1321 5716 5706 7K[E#A7L.JB1..R0* CA6"KF+EKQ/N/F KEVAL 10.04 A "FREQ"NF;
Block: 0010
04000: 6323 7240 6325 7275 6306 2252 6314 4673 5240 6650 6306 1301 6323 7250 5325 4651 3S: 3U:=3FR*3L&;* 6(3FKA3S:(+U&) S NU=NF*DL;I (-FABS(NU))
04020: 5261 7260 5660 5665 5701 7640 5711 5677 6323 7240 6325 7275 6306 4650 6251 2252 *1:0.0.5/A> /I.?3S: 3U:=3F&(2)R* 10.05;A ?I?;S NU=NF(I)*D
04040: 4314 5215 5261 7260 5260 0265 5311 4240 5316 6725 5662 3265 5651 0261 5656 3260 #L*M*1:0*0B5+I" +N7U.2Z5.)B1..Z0 L 10.05 I (NU-256)10.06
04060: 5273 0324 5241 6241 6642 1306 5305 7321 6240 7724 6317 1240 5311 0707 5241 6242 *;CT*!2!6"KF+E;Q2 ?T3OJ +IGG*!2" ;T !!,"FREQ. TOO BIG!!",
04100: 6641 0673 5615 0612 5660 0256 6666 1640 6240 4723 6675 2716 5655 5670 6723 4240 6!F;.MFJ.0B.66N 2 'S6=WN.-.87S" !;Q 10.06 S SI=NU-8;S X
04120: 5675 5661 5704 2640 5656 2261 5273 0304 5665 1256 5273 0304 5665 1656 5615 0612 .=.1/DV ..R1*;CD.5J.*;CD.5N..MFJ =1;D 5.14;D 5.2;D 5.3 1
04140: 5660 0656 6260 2240 5640 5671 5704 1240 6660 2273 5640 2645 5656 1660 5254 1240 .0F.20R . .9/DJ 60R;. V%..N0*,J 0.10 D 9;D 20;T %5.03, "
04160: 5316 1306 6654 2716 6257 6304 5254 0242 6240 4320 6642 0254 5310 1254 6240 0640 +NKF6,WN2/3D*,B"2 #P6"B,+HJ,2 F NF",NU/DL," PH",PH," A
04200: 5306 6242 5301 6306 5242 0240 5324 1306 6254 0724 5252 5262 5320 7711 5304 6314 +F2"+A3F*"B +TKF2,GT***2+P?I+D3L F",AF," TF",TA*2*PI/DL,
04220: 4241 5215 5261 7260 5262 0260 6323 7240 6331 7275 6325 3273 5640 6711 5661 1265 "!*M*1:0*2B03S: 3Y:=3UZ;. 7I.1J5 ! 10.20 S NY=NU;F I=152
04240: 5654 2661 6265 2273 5240 7711 4261 6660 5612 0261 5656 0263 5240 0301 6641 1642 .,V125R;* ?I"160.JB1..B3* CA6!N" ,155;D I/10 10.30 A !"S
04260: 6724 1317 6305 0640 6323 7240 6306 4650 5251 0277 5642 7654 5711 5677 5311 4240 7TKO3EF 3S: 3F&(*)B?.">,/I.?+I" TORE AS NF(I)? ",?I?;I (
04300: 6255 0706 5302 4323 5311 4651 5261 7260 6664 1273 5615 0612 5660 2256 6660 1640 2-GF+B#S+I&)*1:064J;.MFJ.0R.60N -FABS(I))10.4;R 10.40 S
04320: 6240 3316 5250 4711 6675 2716 6257 6304 5273 0323 5320 4310 5711 6651 5720 5710 2 [N*('I6=WN2/3D*;CS+P#H/I6)/P/H NF(I)=NU/DL;S PH(I)=PH;
04340: 6323 0640 6306 4650 6251 0675 6706 1673 6240 3324 5250 4711 6275 0724 5252 5262 3SF 3F&(2)F=7FN;2 [T*('I2=GT***2 S AF(I)=AF;S TF(I)=TA*2*
04360: 5320 7711 4304 6714 4212 5215 5261 7262 5260 0261 6303 3240 6717 1325 6323 0703 +P?I#D7L"J*M*1:2*0B13CZ 7OKU3SGC PI/DL 12.01 C FOURSCA
Block: 0011
04400: 4314 6705 5612 1261 5656 2260 5240 0323 5723 6661 4323 6711 5612 1261 5656 2660 #L7E.JJ1..R0* CS/S61#S7I.JJ1..V0 LE 12.04 S S1=SI 12.05
04420: 5240 0311 6250 6304 5651 0654 5662 0656 5273 0323 5723 6661 5323 7711 5704 5714 * CI2(3D.)F,.2F.*;CS/S61+S?I/D/L I (DL),12.1;S S1=SI/DL;
04440: 6723 1640 6662 1675 6262 2257 6714 1673 6240 3323 6275 3323 6257 6304 5615 0612 7SN 62N=22R/7LN;2 [S2=[S2/3D.MFJ S S2=S2/DL;S SF=SF/DL 1
04460: 5662 0256 6266 4640 6640 1650 5706 0655 5660 0260 5651 1261 5656 5661 6723 5240 .2B.26& 6 N(/FF-.0B0.)J1...17S* 2.06 I (SF-1000)12.1;S Z
04500: 5675 0261 6336 3250 6711 1324 5650 2256 5663 1664 6252 6306 5317 4307 5323 4706 .=B13^Z(7IKT.(R..3N42*3F+O#G+S'F =10^(FITR(.4343*FLOG(SF)
04520: 5255 4662 6651 1673 5640 0723 5675 0723 5657 5732 6723 1640 6662 1675 6662 5257 *-&26)N;. GS.=GS.//Z7SN 62N=62*/ -2));S S1=S1/Z;S S2=S2/Z
04540: 5273 0323 5723 6706 5323 7706 6732 2273 6240 3242 6722 0705 5323 1252 5654 2245 *;CS/S7F+S?F7ZR;2 Z"7RGE+SJ*.,R% ;S SF=SF/Z;T "FREQS*",%4
04560: 5254 6332 4241 5215 5261 7262 5261 0260 6723 4240 5675 4661 6664 1673 5640 6701 *,3Z"!*M*1:2*1B07S" .=&164N;. 7A ,Z,! 12.10 S X=194;S A=
04600: 5323 7661 5661 0260 5273 0323 6331 3275 6711 1324 5250 5701 5656 0260 5660 0660 +S>1.1B0*;CS3YZ=7IKT*(/A..B0.0F0 S1/100;S Y=FITR(A+.00001
04620: 4251 5215 5261 7262 5261 0262 5311 4240 5255 4731 5261 7262 5661 5664 6723 5240 ")*M*1:2*1B2+I" *-'Y*1:2.1.47S* ) 12.12 I (-Y)12.14;S Z
04640: 6275 2306 5311 4323 5730 1253 5654 4655 5666 5651 5707 0640 5662 0656 4266 5215 2=SF+I#S/XJ+.,&-.6.)/GF .2F."6*M =FDIS(X+2,-96);G 12.16
04660: 5261 7262 5261 0264 6323 6240 5675 1261 5656 5662 5707 0640 5662 2656 4262 5215 *1:2*1B43S2 .=J1...2/GF .2V."2*M 12.14 S L=12.2;G 12.52
04700: 5261 7262 5261 0266 5704 0640 5662 4256 5273 0311 6650 4655 5651 1261 5656 4261 *1:2*1B6/DF .2".*;CI6(&-.)J1.."1 12.16 D 12.8;I (-Y)12.18
04720: 5273 0323 6332 3275 6704 1711 5250 5730 5261 6654 5271 4666 5273 0307 5261 7262 *;CS3ZZ=7DOI*(/X*16,*9&6*;CG*1:2 ;S Z=FDIS(X+1,-96);G 12.
04740: 4270 5215 5261 7262 5261 0270 5704 0640 5662 4656 5273 0307 5261 7262 4270 5215 "8*M*1:2*1B8/DF .2&.*;CG*1:2"8*M 8 12.18 D 12.9;G 12.8
04760: 5261 7262 5262 0260 6723 4240 5675 0262 6661 1673 5640 6701 5323 7662 5661 0260 *1:2*2B07S" .=B261N;. 7A+S>2.1B0 12.20 S X=201;S A=S2/100
Block: 0012
05000: 5273 0323 6331 3275 6711 1324 5250 4701 5273 0323 5714 0675 5662 1656 5273 0307 *;CS3YZ=7IKT*('A*;CS/LF=.2N.*;CG ;S Y=FITR(A);S L=12.3;G
05020: 5261 7262 4265 5215 5261 7262 5263 0260 6723 4240 5675 0662 6661 1673 5640 6701 *1:2"5*M*1:2*3B07S" .=F261N;. 7A 12.5 12.30 S X=211;S A=
05040: 5323 7706 5661 0260 6660 1673 5640 6731 6706 2311 6322 0650 6251 4673 5240 6650 +S?F.1B060N;. 7Y7FSI3RF(2)&;* 6( SF/1000;S Y=FITR(A);I (-
05060: 5731 0651 5662 1656 6262 2273 5640 1261 5656 2265 5273 0307 5261 7262 4263 6664 /YF).2N.22R;. J1..R5*;CG*1:2"364 Y)12.32;D 12.54;G 12.34
05100: 5612 1261 5656 1263 5240 0304 5261 7262 6271 2273 5640 1261 5656 5670 5704 0640 .JJ1..J3* CD*1:229R;. J1...8/DF 12.32 D 12.9;D 12.8;D 1
05120: 5662 4656 5273 0323 5714 0675 5662 2256 5273 0307 5261 7262 4265 6666 5612 1261 .2&.*;CS/LF=.2R.*;CG*1:2"566.JJ1 2.9;S L=12.4;G 12.56 12
05140: 5656 2263 5240 0304 5261 7262 6670 1673 5640 6714 5261 7262 6264 3673 5640 1261 ..R3* CD*1:268N;. 7L*1:224^;. J1 .34 D 12.8;S L=12.4;G 12
05160: 4256 6665 5612 1261 5656 0264 4240 6722 5612 1261 5656 0265 5240 0311 6650 4655 ".65.JJ1..B4" 7R.JJ1..B5* CI6(&- .5 12.40 R 12.50 I (-Y
05200: 5651 1261 5656 1265 5654 1261 5656 2265 5615 0612 5662 2656 6262 2240 5640 1261 .)J1..J5.,J1..R5.MFJ.2V.22R . J1 )12.52,12.54 12.52 D 12
05220: 5656 5671 5707 0640 5662 2656 4266 5215 5261 7262 5265 0264 6723 5240 6275 2306 ...9/GF .2V."6*M*1:2*5B47S* 2=SF .9;G 12.56 12.54 S Z=FD
05240: 5311 4323 5330 6654 5271 4666 5273 0323 6730 4275 4253 6661 5612 1261 5656 3265 +I#S+X6,*9&6*;CS7X"="+61.JJ1..Z5 IS(X,-96);S X=X+1 12.56
05260: 5240 0304 5261 7262 6270 2273 5640 1261 5656 5671 5704 0640 5662 4256 5273 0304 * CD*1:228R;. J1...9/DF .2".*;CD D 12.8;D 12.9;D 12.8;D
05300: 5261 7262 6271 3673 4240 6714 5612 1261 5656 0270 5240 0323 5301 4275 6701 4655 *1:229^;" 7L.JJ1..B8* CS+A"=7A&- 12.9;G L 12.80 S A=(A-Y
05320: 5651 0652 5660 0653 5705 2255 5273 0323 6331 3275 6711 1324 5250 4701 5615 0612 .)F*.0F+/ER-*;CS3YZ=7IKT*('A.MFJ )*10+1E-4;S Y=FITR(A) 1
05340: 5662 4656 6660 1640 5640 6732 6306 4704 6723 4250 5254 6731 5270 4660 5273 0323 .2&.60N . 7Z3F'D7S"(*,7Y*8&0*;CS 2.90 S Z=FDIS(X,Y-80);S
05360: 6730 4275 4253 6661 5612 1261 5656 1271 5240 0307 5261 7262 4262 5215 5615 0612 7X"="+61.JJ1..J9* CG*1:2"2*M.MFJ X=X+1 12.92 G 12.2 1
Block: 0013
05400: 5663 0256 6261 1640 6240 4704 6723 1640 6727 2311 4303 6710 5612 1661 5656 0264 .3B.21N 2 'D7SN 7WSI#C7H.JN1..B4 3.01 C DIS SWITCH 13.40
05420: 5240 0323 6332 3275 6704 1711 5250 6260 4260 6651 5612 1661 5656 0265 5240 0323 * CS3ZZ=7DOI*(20"06).JN1..B5* CS S Z=FDIS(0,0) 13.50 S
05440: 6332 3275 5730 0250 5654 0265 4260 6651 5612 1661 5656 0266 5240 0323 6332 3275 3ZZ=/XB(.,B5"06).JN1..B6* CS3ZZ= Z=FX(0,500) 13.60 S Z=F
05460: 6704 1711 5250 6261 5667 0266 4251 5215 5261 7263 5267 0260 6723 5240 6275 2306 7DOI*(21.7B6")*M*1:3*7B07S* 2=SF DIS(1,760) 13.70 S Z=FD
05500: 5311 4323 6301 3254 6701 1702 6250 2306 5311 4323 5301 4651 6651 1673 5640 6732 +I#S3AZ,7AOB2(SF+I#S+A&)6)N;. 7Z IS(A,FABS(FDIS(A)));S Z=
05520: 6306 4704 6323 1250 6254 3255 6701 1702 6250 2306 5311 4323 5302 4651 4251 5215 3F'D3SJ(2,Z-7AOB2(SF+I#S+B&)")*M FDIS(B,-FABS(FDIS(B)))
05540: 5261 7263 5270 0260 6323 0640 5675 5664 6323 1240 5675 5665 5704 0640 5663 3656 *1:3*8B03SF .=.43SJ .=.5/DF .3^. 13.80 S A=4;S B=5;D 13.7
05560: 5615 0612 5663 4656 6660 1640 5640 6701 6665 1673 5640 6702 6264 2273 5640 1661 .MFJ.3&.60N . 7A65N;. 7B24R;. N1 13.90 S A=5;S B=4;D 13
05600: 4256 6667 4212 5215 5261 7265 5260 0261 6303 0640 6314 0711 6323 2305 6640 1306 ".67"J*M*1:5*0B13CF 3LGI3SSE6 KF .7 15.01 C ALIASED FR
05620: 6705 2721 6305 1716 6711 1705 5615 0612 5665 0256 6265 0640 6240 2277 5313 6277 7EWQ3EON7IOE.MFJ.5B.25F 2 R?+K2? EQUENCIES 15.05 A ?DK?,
05640: 4241 5215 5261 7265 5261 0260 5701 7640 5716 7725 5273 0323 5716 6731 4316 6725 "!*M*1:5*1B0/A> /N?U*;CS/N7Y#N7U ! 15.10 A ?NU?;S NY=NU
05660: 5612 2661 5656 0262 5240 0324 5242 0240 6306 2722 5321 1275 5654 2645 5656 1260 .JV1..B2* CT*"B 3FWR+QJ=.,V%..J0 15.20 T " FREQ=",%5.02
05700: 5615 0612 5665 1656 6660 2240 6640 4716 6257 6304 5615 0612 5665 2256 6660 1640 .MFJ.5N.60R 6 'N2/3D.MFJ.5R.60N 15.30 T NY/DL 15.40 S
05720: 6640 4716 5675 0665 6262 7255 6325 2273 5640 2661 4256 6663 5612 2661 5656 0265 6 'N.=F522:-3UR;. V1".63.JV1..B5 NY=512-NU;D 15.3 15.50
05740: 5240 0323 5716 6731 5665 1261 6653 2716 5273 0304 5261 7265 4263 5215 5261 7265 * CS/N7Y.5J16+WN*;CD*1:5"3*M*1:5 S NY=512+NU;D 15.3 15.
05760: 5271 0260 5324 0640 5273 0307 5261 7265 4261 5215 5615 0612 5666 0256 6261 1640 *9B0+TF *;CG*1:5"1*M.MFJ.6B.21N 90 T !;G 15.1 16.01 C
Block: 0014
06000: 6240 6320 4317 6724 5612 3261 5656 1260 5240 0303 6727 2311 6310 0640 6730 1705 2 3P#O7T.JZ1..J0* CC7WSI3HF 7XOE PLOT 16.02 C WITH AXES
06020: 6240 7301 6704 2240 6705 2330 6672 0240 5701 0275 6254 2640 6314 2723 6240 0720 2 ;A7DR 7ESX6:B /AB=2,V 3LWS2 GP AND TEXT: PA=0, ELSE PA
06040: 4275 6662 5612 3261 5656 2660 5240 0323 5720 6701 6262 0673 6640 0277 4301 6677 "=62.JZ1..V0* CS/P7A22F;6 B?#A6? =2 16.05 S PA=2;A ?PA?
06060: 5612 3261 5656 0261 5240 0323 5720 6706 6264 4673 6240 3250 6704 1711 5250 4665 .JZ1..B1* CS/P7F24&;2 Z(7DOI*(&5 16.10 S PF=4;I (FDIS(5)
06100: 5651 3261 5656 5662 6723 0240 5706 2675 5615 0612 5666 1256 6260 3240 5640 6711 .)Z1...27SB /FV=.MFJ.6J.20Z . 7I )16.2;S PF=5 16.20 F I=
06120: 5662 0654 6671 1673 5640 6732 6306 4704 6323 4650 6254 3255 6701 1702 6250 2306 .2F,69N;. 7Z3F'D3S&(2,Z-7AOB2(SF 2,19;S Z=FDIS(I,-FABS(FD
06140: 5311 4323 5311 4651 4251 5215 5261 7266 5267 0260 6723 4240 6275 3320 6253 0720 +I#S+I&)")*M*1:6*7B07S" 2=[P2+GP IS(I))) 16.70 S X=PF+PA
06160: 5273 0304 5261 7266 6671 1673 5640 6732 6306 4704 5723 1250 5661 0654 4251 5215 *;CD*1:669N;. 7Z3F'D/SJ(.1F,")*M ;D 16.9;S Z=FDIS(21,1)
06200: 5261 7266 5270 0260 5704 0640 5666 4656 5273 0323 6730 0275 6306 2273 5640 3261 *1:6*8B0/DF .6&.*;CS7XB=3FR;. Z1 16.80 D 16.9;S X=PF;D 16
06220: 5656 5671 5323 2240 5675 0261 5662 5664 4321 5215 5261 7266 5271 0260 6723 5240 ...9+SR .=B1.2.4#Q*M*1:6*9B07S* .9;S $=1024;Q 16.90 S Z
06240: 6275 2306 5311 4323 5330 6654 6306 4704 6723 4250 4251 6651 4212 5215 5261 7267 2=SF+I#S+X6,3F'D7S"(")6)"J*M*1:7 =FDIS(X,-FDIS(X)) 17.
06260: 5260 0261 6303 2240 6301 0724 6240 7726 6716 1640 6301 6715 6305 3314 6311 2714 *0B13CR 3AGT2 ?V7NN 3A7M3E[L3IWL 01 C DATA VON SAMMELFILE
06300: 5240 3650 6715 1305 6307 2305 4247 6651 5612 3661 5656 2661 5240 0301 6642 1240 * ^(7MKE3GSE"'6).J^1..V1* CA6"J ('MERGED') 17.15 A " R
06320: 5325 1316 5654 5704 6323 6640 5704 2250 5651 0675 5267 5666 6706 2311 6322 2250 +UKN.,/D3S6 /DR(.)F=*7.67FSI3RR( UN",D;S MD(4)=176+FITR(D
06340: 5657 0261 6651 1673 6240 2315 5250 4665 5675 3661 5266 4253 5704 0657 6260 3255 ./B16)N;2 SM*(&5.=^1*6"+/DF/20Z- /10);S MD(5)=176+(D/10-F
06360: 6711 1324 5250 7704 5261 4660 5651 0652 4260 5215 5261 7267 5261 0267 6317 4640 7IKT*(?D*1&0.)F*"0*M*1:7*1B73O& ITR(D/10))*10 17.17 O I
Block: 0015
06400: 6240 5722 5701 5261 5715 1263 4304 5215 5261 7267 5262 0260 6723 5240 6275 4706 2 /R/A*1/MJ3#D*M*1:7*2B07S* 2='F RKA1:M32D 17.20 S Z=FI
06420: 5316 4650 5273 0311 5250 6732 5662 0262 5651 3661 5256 6262 5261 7267 5663 0654 +N&(*;CI*(7Z.2B2.)^1*.22*1:7.3F, N();I (Z-220)17.2,17.3,1
06440: 5667 1256 5615 0612 5667 1656 6260 3240 5640 6711 5661 2654 5273 0323 6327 3275 .7J..MFJ.7N.20Z . 7I.1V,*;CS3WZ= 7.2 17.30 F I=1,5;S W=F
06460: 5311 4316 4251 5215 5261 7267 5264 0260 6723 4640 6275 4706 5316 4650 5273 0306 +I#N")*M*1:7*4B07S& 2='F+N&(*;CF IN() 17.40 S Y=FIN();F
06500: 5711 0675 5654 5666 6723 5240 6275 4706 5316 4650 5615 0612 5667 2656 6260 4640 /IF=.,.67S* 2='F+N&(.MFJ.7V.20& I=1,6;S Z=FIN() 17.50 I
06520: 6240 3250 6711 1324 6250 0706 5302 4323 5315 4304 5264 6651 5327 5651 6306 1301 2 Z(7IKT2(GF+B#S+M#D*46)+W.)3FKA (FITR(FABS(MD(4)-W)+FAB
06540: 6323 6650 5704 2650 6651 4655 5251 7253 5261 4651 5261 7267 5666 0654 5667 4256 3S6(/DV(6)&-*):+*1&)*1:7.6F,.7". S(MD(5)-Y)+.1))17.6,17.8
06560: 5654 3661 4256 6666 5612 3661 5656 0266 5240 0301 6304 2254 5654 5716 6306 4640 .,^1".66.J^1..B6* CA3DR,.,/N3F& ,17.6 17.60 A D,D,N;F I
06600: 5275 6260 5716 0653 6271 0673 4240 6732 5612 3661 5656 0267 5240 0307 5261 7267 *=20/NF+29F;" 7Z.J^1..B7* CG*1:7 =0,N+19;A Z 17.70 G 17.
06620: 4262 5215 5261 7267 5267 0265 6301 2240 5615 0612 5667 4256 6260 0640 5640 5704 "2*M*1:7*7B53AR .MFJ.7".20F . /D 2 17.75 A D 17.80 A D;
06640: 5704 1640 5656 5662 5704 1640 5656 2662 5273 0304 5663 1656 5615 0612 5667 4656 /DN ...2/DN ..V2*;CD.3N..MFJ.7&. D 3.2;D 3.25;D 3.3 17.9
06660: 6260 7640 5240 0311 6724 4724 6272 2654 4215 6612 5612 4261 5656 0660 5240 0303 20> * CI7T'T2:V,"M6J.J"1..F0* CC 0 O I TTY:,E 18.01 C
06700: 5323 7321 6322 7717 6324 7640 6706 0240 6317 2727 6722 0323 6705 2303 6322 6725 +S;Q3R?O3T> 7FB 3OWW7RCS7ESC3R7U SQ.ROOT OF POWERSPECTRUM
06720: 6250 1706 5317 4315 5261 4651 5615 0612 5670 0656 6260 3240 5640 6711 5662 3265 2(OF+O#M*1&).MFJ.8F.20Z . 7I.2Z5 (FCOM(1)) 18.10 F I=256
06740: 5654 0665 6661 1673 5640 6732 6306 7703 6315 4650 6654 1706 5321 4324 6306 7703 .,F561N;. 7Z3F?C3M&(6,OF+Q#T3F?C ,511;S Z=FCOM(I,FSQT(FCO
06760: 6315 4650 5251 4651 5273 0323 6332 3275 5730 0650 5654 3267 4260 6651 4212 5215 3M&(*)&)*;CS3ZZ=/XF(.,Z7"06)"J*M M(I)));S Z=FX(1,760)
Block: 0016
07000: 5261 7271 5261 0260 5301 0640 5654 5730 6324 3240 6303 6717 5250 4730 5273 0307 *1:9*1B0+AF .,/X3TZ 3C7O*('X*;CG 19.10 A !,X;T FCOM(X);G
07020: 5261 7271 4261 5215 5615 1212 5660 0256 6261 1640 6240 7706 6325 7307 4301 6725 *1:9"1*M.MJJ.0B.21N 2 ?F3U;G#A7U 19.1 20.01 C FOUGNAU
07040: 5612 0262 5656 0261 5240 0323 5716 6661 5316 5325 5320 7711 5662 3265 5273 0323 .JB2..B1* CS/N61+N+U+P?I.2Z5*;CS 20.10 S N1=NU*PI/256;S
07060: 5701 0275 5273 0323 5702 0275 5615 1212 5660 1256 6260 3240 5640 6711 6260 7254 /AB=*;CS/BB=.MJJ.0J.20Z . 7I20:, A=0;S B=0 20.20 F I=0,N
07100: 5655 5661 6323 0640 5275 5701 6306 7703 6315 4650 6251 3252 6703 1717 5250 5311 .-.13SF *=/A3F?C3M&(2)Z*7COO*(+I -1;S A=A+FCOM(I)*FCOS(I*
07120: 5316 4661 5615 1212 5660 1256 6265 4640 6240 7250 5325 4252 5316 6725 5662 3265 +N&1.MJJ.0J.25& 2 :(+U"*+N7U.2Z5 N1) 20.25 I (NU*(NU-256
07140: 5651 1251 5660 1656 5654 0262 5256 6264 5262 7260 4263 5215 5262 7260 5263 0260 .)J).0N..,B2*.24*2:0"3*M*2:0*3B0 ))20.3,20.4,20.3 20.30
07160: 6306 4640 5275 6260 5716 0655 5273 0323 6302 1275 6253 1706 5317 4315 5311 5251 3F& *=20/NF-*;CS3BJ=2+OF+O#M+I*) F I=0,N-1;S B=B+FCOM(I)*
07200: 6306 4723 6316 4650 5652 0716 4251 5215 5262 7260 5264 0260 6323 0640 5706 1275 3F'S3N&(.*GN")*M*2:0*4B03SF /FJ= FSIN(I*N1) 20.40 S AF=2
07220: 6652 1706 5321 4324 5701 1336 6653 7302 5262 7651 4316 5215 5262 7260 5265 0260 6*OF+Q#T/AK^6+;B*2>)#N*M*2:0*5B0 *FSQT(A^2+B^2)/N 20.50
07240: 5311 4240 5701 1251 5660 3656 5654 0262 5656 5666 6723 0240 5710 0275 5273 0307 +I" /AJ).0^..,B2...67SB /HB=*;CG I (A)20.7,20.6;S PH=0;G
07260: 5262 7260 4270 5215 5262 7260 5266 0260 6723 0240 5710 4675 6260 3252 6323 7307 *2:0"8*M*2:0*6B07SB /H&=20Z*3S;G 20.8 20.60 S PH=90*FSGN
07300: 5250 4702 4273 6722 5612 0262 5656 0267 5240 0323 5720 6710 5661 0270 6652 1706 *('B";7R.JB2..B7* CS/P7H.1B86*OF (B);R 20.70 S PH=180*FS
07320: 5307 4316 4302 6651 5612 0262 5656 0270 5240 0323 5720 6710 5320 5710 5661 0270 +G#N#B6).JB2..B8* CS/P7H+P/H.1B8 GN(B) 20.80 S PH=PH+180
07340: 6252 0706 5324 4316 6302 0657 6651 0257 4311 5215 5262 7260 5271 0265 6323 0640 2*GF+T#N3BF/6)B/#I*M*2:0*9B53SF *FATN(B/A)/PI 20.95 S A
07360: 6315 0675 6706 2252 6701 0252 6311 7252 5657 1250 5265 5266 5250 6661 6706 4305 3MF=7FR*7AB*3I:*./J(*5*6*(617F#E M=AF*TA*PI*N/(256*(1-FEX
Block: 0017
07400: 5320 6650 5324 5301 6716 0252 5711 1257 5265 4666 4251 6651 4212 5215 5262 7261 +P6(+T+A7NB*/IJ/*5&6")6)"J*M*2:1 P(-TA*N*PI/256))) 21.
07420: 5260 0261 6703 1640 5325 0302 6320 0705 4313 5215 5262 7261 5261 0260 5704 0640 *0B17CN +UCB3PGE#K*M*2:1*1B0/DF 01 C SUB PEAK 21.10 D 1
07440: 5663 4256 5615 1212 5661 0656 6265 0640 6240 7277 5706 5677 5311 4240 6255 0706 .3"..MJJ.1F.25F 2 :?/F.?+I" 2-GF 3.8 21.15 A ?NF?;I (-FA
07460: 5302 4323 5316 4706 5651 0662 5656 5662 5701 7640 4311 6677 5612 0662 5656 3261 +B#S+N'F.)F2...2/A> #I6?.JF2..Z1 BS(NF))21.2;A ?I? 21.16
07500: 5240 0323 5716 6706 5316 4306 5711 5651 6723 0240 6710 0275 6310 4650 6651 1673 * CS/N7F+N#F/I.)7SB 7HB=3H&(6)N; S NF=NF(I);S PH=PH(I);S
07520: 6240 3301 6275 3301 5250 4711 5273 0323 5724 6706 5324 4306 5711 5651 5707 1240 2 [A2=[A*('I*;CS/T7F+T#F/I.)/GJ AF=AF(I);S TF=TF(I);G 2
07540: 5661 1256 4262 5215 5262 7261 5262 0260 5701 7640 5320 0310 5301 0306 5324 0306 .1J."2*M*2:1*2B0/A> +PCH+ACF+TCF 1.22 21.20 A ?PH AF TF
07560: 5715 7720 5615 1212 5661 1256 6262 4640 5240 6650 6306 1301 6323 6650 5320 4651 /M?P.MJJ.1J.22& * 6(3FKA3S6(+P&) MP? 21.22 I (-FABS(MP))
07600: 5262 7261 5662 5665 6323 6640 5720 0675 5273 0324 5242 0240 5715 6720 5261 0641 *2:1.2.53S6 /PF=*;CT*"B /M7P*1F! 21.25;S MP=1;T " MP=1!!
07620: 4242 5215 5262 7261 5262 0265 5301 0640 6242 2301 5304 6242 6332 4673 5240 4240 ""*M*2:1*2B5+AF 2"SA+D2"3Z&;* " " 21.25 A !"ADD",Z;I (
07640: 6255 0706 5302 4323 5732 0255 6731 1705 5651 1251 5661 1656 5273 0323 5701 6706 2-GF+B#S/ZB-7YOE.)J).1N.*;CS/A7F -FABS(Z-0YES))21.3;S AF=
07660: 6255 3301 5615 1212 5661 1656 6660 1640 6240 7716 6275 3316 5252 5262 5320 5311 2-[A.MJJ.1N.60N 2 ?N2=[N***2+P+I -AF 21.30 S NO=NF*2*PI*
07700: 5304 5313 5261 6705 6663 1673 6240 7720 6275 4320 6252 4720 5657 4261 6660 1673 +D+K*17E63N;2 ?P2=#P2*'P./"160N; DK*1E-3;S PO=PH*PI/180;S
07720: 6240 7724 6275 3324 6252 5704 6252 2661 5655 5663 6323 0640 6261 4275 6311 2252 2 ?T2=[T2*/D2*V1.-.33SF 21"=3IR* TO=TF*DK*1E-3;S A1=HI*D
07740: 5713 0652 5705 1655 5615 1212 5661 1656 6661 1640 5640 6701 5301 5306 5324 5317 /KF*/EN-.MJJ.1N.61N . 7A+A+F+T+O K*1E-3 21.31 S A=AF*TO*
07760: 5316 4257 6261 3255 6705 0330 6250 7255 6252 7724 5651 5651 6323 4240 6266 6675 +N"/21Z-7ECX2(:-2*?T.).)3S" 266= N/(1-FEXP(-N*TO));S H6=M
Block: 0020
10000: 6320 7252 6717 2252 5715 0652 5664 3256 5271 4257 5301 5261 5320 5311 5661 0260 3P:*7OR*/MF*.4Z.*9"/+A*1+P+I.1B0 P*NO*TM*14.69/(A1*PI*100
10020: 4260 6651 5612 0662 5656 1263 5240 0306 5712 0275 5254 6716 6661 1673 5640 0710 "06).JF2..J3* CF/JB=*,7N61N;. GH 0) 21.32 F J=0,N-1;S H1
10040: 5275 5661 6312 0652 6261 2273 5640 0662 5656 5664 5704 0640 5663 2656 5615 1212 *=.13JF*21R;. F2...4/DF .3V..MJJ =1+J*A1;D 21.4;D 13.5 2
10060: 5661 1656 6663 1240 5615 1212 5661 1656 6265 1640 6240 3311 6240 7715 6304 6325 .1N.63J .MJJ.1N.25N 2 [I2 ?M3D3U 1.33 R 21.35 C IF MODUL
10100: 6301 4724 5317 0316 6303 0710 6316 2707 6640 1706 5321 4324 5310 4661 5615 1212 3A'T+OCN3CGH3NWG6 OF+Q#T+H&1.MJJ ATION CHANGE FSQT(H1) 2
10120: 5661 2256 6660 1640 5640 6732 6306 7703 6315 5250 6254 1706 5317 4315 5312 6651 .1R.60N . 7Z3F?C3M*(2,OF+O#M+J6) 1.40 S Z=FCOM(J,FCOM(J)-
10140: 6301 3252 6703 1717 5250 5312 5316 6717 5320 4717 6252 2706 5330 4320 5255 5312 3AZ*7COO*(+J+N7O+P'O2*WF+X#P*-+J A*FCOS(J*NO-PO)*FEXP(-J*
10160: 5324 4717 5257 4250 6261 3255 6705 0330 6250 4255 6261 4252 5266 4651 6652 1706 +T'O*/"(21Z-7ECX2("-21"**6&)6*OF TO)/((1-FEXP(-H1*H6))*FS
10200: 5321 4324 5310 4661 4251 6651 4212 5215 5262 7262 5260 0261 6323 0640 6261 4275 +Q#T+H&1")6)"J*M*2:2*0B13SF 21"= QT(H1))) 22.01 S A1=H
10220: 6311 2252 5713 0652 5705 1655 5615 1212 5662 0656 6260 3240 5640 6711 6260 7254 3IR*/KF*/EN-.MJJ.2F.20Z . 7I20:, I*DK*1E-3 22.10 F I=0,N
10240: 5655 5661 5704 1240 5662 2256 5273 0304 5261 7263 4265 5215 5262 7262 5262 0260 .-.1/DJ .2R.*;CD*1:3"5*M*2:2*2B0 -1;D 22.4;D 13.5 22.20
10260: 4322 5215 5262 7262 5264 0260 6723 5240 6275 1706 5317 4315 6311 3254 6303 6717 #R*M*2:2*4B07S* 2=OF+O#M3IZ,3C7O R 22.40 S Z=FCOM(I,FCOM
10300: 5250 4711 6652 1706 5321 4324 6261 4653 5652 0701 4251 6651 4212 5215 5262 7263 *('I6*OF+Q#T21&+.*GA")6)"J*M*2:3 (I)*FSQT(1+I*A1)) 23.
10320: 5260 0261 6703 1640 5325 0302 6314 3705 6305 2316 4322 6705 5612 1662 5656 2661 *0B17CN +UCB3L_E3ESN#R7E.JN2..V1 01 C SUB LEGENDRE 23.15
10340: 5240 0304 5261 7263 4270 5215 5262 7263 5262 0260 6306 4640 5275 6260 5716 0655 * CD*1:3"8*M*2:3*2B03F& *=20/NF- D 13.8 23.20 F I=0,N-1
10360: 5273 0323 6312 4675 6257 7250 5255 4661 5273 0304 5262 7263 6263 2273 5640 1662 *;CS3J&=2/:(*-&1*;CD*2:323R;. N2 ;S J=I/(N-1);D 23.3;D 23
Block: 0021
10400: 5656 5664 5704 1240 5663 2656 5615 1212 5663 1256 6665 0640 5615 1212 5663 1656 ...4/DJ .3V..MJJ.3J.65F .MJJ.3N. .4;D 23.5 23.25 Q 23.3
10420: 6660 1640 5640 1732 5675 0262 5252 5312 6312 5252 5655 0263 5252 5312 5712 0653 60N . OZ.=B2**+J3J**.-B3**+J/JF+ 0 S Z3=20*J*J*J-30*J*J+1
10440: 6262 5252 4255 6661 5612 1662 5656 0264 5240 0323 5732 6661 6262 5252 5655 5661 22**"-61.JN2..B4* CS/Z6122**.-.1 2*J-1 23.40 S Z1=2*J-1;
10460: 6723 5240 5662 3275 5252 5312 5712 3255 5252 5712 4261 5215 5262 7263 5265 0260 7S* .2Z=**+J/JZ-**/J"1*M*2:3*5B0 S Z2=6*J*J-6*J+1 23.50
10500: 6723 5240 6275 1706 5317 4315 6311 3254 6303 6717 5250 4711 5255 4301 5261 6651 7S* 2=OF+O#M3IZ,3C7O*('I*-#A*16) S Z=FCOM(I,FCOM(I)-A(1)-
10520: 5701 1250 6651 5252 6261 0655 5250 4663 5652 1332 5255 4301 5264 5251 5332 4663 /AJ(6)**21F-*(&3.*KZ*-#A*4*)+Z&3 A(2)*Z1-A(3)*Z2-A(4)*Z3)
10540: 5273 0304 5261 7263 4265 5215 5615 1212 5664 0256 6261 1640 6640 1320 6711 2316 *;CD*1:3"5*M.MJJ.4B.21N 6 KP7ISN ;D 13.5 24.01 C PRINT
10560: 6640 1306 6705 1721 5615 1212 5664 0256 6665 2240 5240 6241 5672 0261 5254 0242 6 KF7EOQ.MJJ.4B.65R * 2!.:B1*,B" FREQS 24.05 T !,:10,"
10600: 5240 0240 5316 1306 5654 1272 5260 1254 5240 0240 6240 4320 5642 5254 5263 6260 * B +NKF.,J:*0J,* B 2 #P."*,*320 NF",:20," PH",:30,
10620: 5242 0240 6240 0640 5306 6242 5672 0264 5254 0242 5240 0240 5324 1306 5615 1212 *"B 2 F +F2".:B4*,B"* B +TKF.MJJ " AF",:40," TF" 2
10640: 5664 0656 6260 3240 5640 6711 5661 2254 5273 0324 6241 2273 5640 2262 5656 5664 .4F.20Z . 7I.1R,*;CT2!R;. R2...4 4.10 F I=1,4;T !;D 24.4;
10660: 5704 1240 5664 2656 5615 1212 5664 1256 6660 2240 4240 6641 5612 2262 5656 0263 /DJ .4V..MJJ.4J.60R " 6!.JR2..B3 D 24.5 24.20 T ! 24.30
10700: 4240 6722 5612 2262 5656 0264 5240 0324 5245 6262 4311 5215 5262 7264 5265 0260 " 7R.JR2..B4* CT*%22#I*M*2:4*5B0 R 24.40 T %2,I 24.50
10720: 5324 2640 5666 0256 5664 5254 5261 6260 5316 4306 5311 6251 5672 0262 6254 4320 +TV .6B..4*,*120+N#F+I2).:B22,#P T %6.04,:10,NF(I),:20,PH
10740: 5250 4711 5654 1672 6260 0654 6306 4650 5651 5254 5264 6260 5324 4306 4311 6651 *('I.,N:20F,3F&(.)*,*420+T#F#I6) (I),:30,AF(I),:40,TF(I)
10760: 6212 7652 4240 6703 4212 0232 4200 0200 4200 0200 4200 0200 4200 0200 4200 0200 2J>*" 7C"JBZ"@B@"@B@"@B@"@B@"@B@ *O C