332 CALL AXES(0.,-0.5,'FREQUENCY(CYCLES/KIL0METER)',27,12.2,0.0 

 *, 3.0125, 10. 0,0.0, -1) 

 CALL SYMBOL (4. 0,-1. 4,. 32, ITG, 0.0, 30) 

 AY0RG=KY0RG 

 AX0RG=KX0RG 

 00 362 J=l,8 

 AA=J-1 



Y=(l,35714*AA)-0.37 

 FPN=AY0RG+AA 



362 CALL NUMBER(-.25,Y,.16,FPN,90.0,-1) 

 DO 363 J=l,5 



AA=J-1 



X=(3.0125*AA)+0.20 



FPN=AXORG+AA 



363 CALL NUMBER(X, -. 25,. 16, FPN, 0.0,-1) 

 DO 364 J=l,4 



IB=KX0RG+J-1 



DO 364 JC=2,9 



AC=OC 



AA=AC*10.0**IB 



X=AL0G10(AA/X0RG)*3.0125 



CALL PL0T(X,-.5,3) 



364 CALL PLOKX, -.46,2) 

 00 365 J=l,7 

 IB=KY0RG+J-1 



DO 365 JC=2,9 



AC=JC 



AA=AC*10.0**IB 



Y=-0.5+AL0G10(AA/Y0RG)*l. 35714 



CALL PL0T(0.0,Y,3) 



365 CALL PL0T(-.04,Y,2) 

 CALL PL0T(0. 0,-1. 0,3) 

 CALL PLOKO. 0,-1. 0,3) 



C 



C INTERACTIVE ROUTINE TO MODIFY INPUT STRING 



C 



WRITE(6,3641) 



3641 F0RMAT(T70,' ARE YOU SATISFIED WITH THE DATA SET BOUNDARIES?'/ 

 *T70,' ENTER E TO END RUN') 



READ(5,3652) RESPON 

 IF(RESPON.EQ.'E') GO TO 487 

 IF(RESPON.EQ.'Y') 60 TO 3650. 

 WRITE (6, 3642) 



3642 F0RMAT(T70,' WOULD YOU LIKE TO ELIMINATE THE ENTIRE SEGMENT?') 

 READ(5,3652) RESPON 



IF(RESPON.EQ.'N') GO TO 3644 

 CALL ERASE 

 GO TO 3658 

 3644 WRITE (5, 3643) 



3643 F0RMAT(T70,' ENTER FIRST, SECOND LOCATIONSdN KM) FOR TRUNCATION') 

 READ(5,*)FIR,SEC 



NFIR=FIR/GRIOKM 

 IF(NFIR.LT.O) NFIR=0 



193 



