YY:=-.2; 



FOR K:=0 STEP 1 UNTIL 1 DO BEGIN 



J:=0; 



XVV:=(XMX-XMN)/XL; 



JJ : =ENTIER (XVV/XSS+ . 99) ; 



FOR XC:=XMN1 STEP XSS UNTIL XMX DO BEGIN 



XX:=(XC-XMN)/XVV; 



PLOT(XX,0,"UP"); 



IF J MOD JJ=0 THEN BEGIN 



PLOT (XX,2*TIC,"DOWN n ); 



NUMBER (XX, YY, - . 12, -XC, 0, -ND) ; 



END ELSE PLOT (XX, TIC, "DOWN"); 



J:=J+1; 



END; 



TIC:=-.04; 



YY : = . 1 ; 



XMN:=XMIN*3.281; XMX:=XMAX*3 . 281 ; XSS:=4*XS; 



XMN1:'=(XMN DIV 100)*100.; 



PLOT(l,YL+. 5, "ORIGIN"); 



END; 



PLOT(l, .5, "ORIGIN"); 



END; 



FILL XCHARlf*] WITH "DISTANCE (FT) ..; 



SYMBOL(.5*XL-1.5,YL+.4, . 2,XCHARl [*] , 0, 13) ; 



XM"=XMIN; YM:=YMIN; 

 %PLOT DATA POINTS 

 PTS: 



FOR I:=l STEP 1 UNTIL N DO BEGIN 



X[I]:=-X[I]; 



IF YS=0 THEN BEGIN 

 IF Y[I]>0 THEN Y[I] :=MIN(YMAX,MAX(YMIN,LOG(Y[I] ) ) ) ELSE Y[I]:=YMIN: 



END ELSE 



Y[I] :=MIN(YMAX,MAX(YMIN,Y[I])); 



IF XS=0 THEN BEGIN 

 IF X[I]>0 THEN X[I] :=MIN(XMAX,MAX(XMIN,LOG(X[I]))) ELSE X[I]:=XMIN; 

 END ELSE 



X[I]:=MIN(XMAX,MAX(XMIN,X[I])) ; 



END; 



LINE(X,Y,N,10,S, .12,XM,XV,YM,YV) ; 



REPLACE POINTER(KEYCHAR[NA,0]) BY POINTER (KEY) FOR 2 WORDS; 



SYM[NA]:=S; 



NA:=NA+1; 



IF F=0 OR F=3 THEN BEGIN 



YY:=YL-.l; 



FOR I:=0 STEP 1 UNTIL NA-1 DO BEGIN 



SP[0] :=SYM[I]; 



SYMBOL(XL+2. ,YY+.06, .12, SP, 0,-3) ; 



SYMBOL(XL+2.5,YY,.12,KEYCHAR[I,*],0,12); 



YY:=YY-.3; 



END; 



163 



