PLOT(46,0,"XMAX"); 



LIMITS (16,1); 



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



PLOT(0,0,"UP"); 



PLOT(XL,),"DPWN"); 



PLOT (XL, YL, "DOWN"); 



PLOT (O.YL, "DOWN"); 



PLOT (0,0, "DOWN"); 

 %Y AXIS LABEL 



SYMBOL (-.88,.5*YL-1.5,.2 ,YCHAR [*] ,90, 18) ; 



IF YS>0 THEN BEGIN 

 %LINEAR Y-AXIS 



YV:=(YMAX-YMIN)/YL; 



FOR I:=0 STEP 1 UNTIL 4 DO IF YS GEQ 10** (-1) THEN GO TO DIGY; 

 DIGY: ND:=I; 



TIC:=.04; 



IF YMAX 999. THEN XX:=- . 55- . 1*ND ELSE XX:=- .35- . 1*ND; 



YMN:=YMN1:=YMIN; YMX:=YMAX; YSS:=YS; 



FOR K:+0 STEP 1 UNTIL 1 DO BEGIN 



YVV"=(YMX-YMN)/YL; 



JJ : =ENTIER(YVV/YSS+ . 99) ; 



J:=0; 



FOR YC:=YMN1 STEP YSS UNTIL 1.001*YMX DO BEGIN 



YY:=(YC-YMN)/YVV; 



PLOT(0,YY,"UP"); 



IF J MOD JJ=0 THEN BEGIN 



PLOT (2*TIC,YY,"D0WN U ); 



NUMBER (XX, YY-. 06, . 12, YC, 0, -1) ; 



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



J:=J+1; 



END; 



TIC:=-.04; 



XX:=.l; 



YMN:=3.281*YMIN; YMX:=3 . 281*YMAX; YSS:=YS*2.; 



YMN1:=(YMN DIV 10)*10.; 



PL0T(XL+1, .5, "ORIGIN"); 



END; 



PL0T(1, .5, "ORIGIN"); 



END; 



FILL YCHAR1(*) WITH "ELEVATION (FT) "; 



SYMBOL (XL+1.5,.5*YL-1.5,.2,YCHAR1(*),90,14); 



IF XS>0 THEN BEGIN 

 %PLOT X AXIS LABEL AND TITLE 



SYMBOL(.5*XL-1.5,-.8,.2,XCHAR[*],0.18); 



SYMBOL (XL-2.5,-1., . 15,TITL[*] , 0, 18) ; 

 %LINEAR X-AXIS 



XV:=(XMIN)/XL; 



FOR I:=0 STEP 1 UNTIL 4 DO IF XS.GEQ 10** (-1) THEN GO TO DIG; 

 DIG: ND:=I; 



XMN:=XMN1:=XMIN; XMX:=XMAX; XSS:=XS; 



TIC:=.04; 



162 



