PSI(t»5)'2l6.0*DTrt 

 PSI(l*6)=2e6.0*DTR 



PSI(2*3) = 1?6.')*DTR 



PSI(2**)=162.0»0TR 



PSIC2»5)=19e.0*DTR 



PSI('»6)=234.0*DTR 



PSI(3M) = 196.0*0T« 



PSI(3*5)=234.0*DTR 



PSI ( 3*65 = 270. *DTR 



PSICa*5)=270.0*DTK 



PSI(4*6)=306.0*DTR 



PSI(5»6)=3tt2.0*DTR 



GOODCDs 1 FOR USARLE CHANNEL DATA AND FOX BAD CHANnEL 



15 Read 2* iskjp .cgdod(i)>i=»i*6) 

 2 formatc 12 ,6f1 .0 ) 

 ifciskip)100»30*20 



20 do 25 i = 1mskip 



read tape 3/ i 0* fq ( 1 ) . wn( 1 ) , h» k 



IFCK)21*22,21 



21 PAUSE 20202 



TAPE Out of phase with data READ DESIRED 

 GO TO 15 



22 MP=M+1 



DD 23 L=2»MP 



B-4 



