ENDPLT; 

 END; 

 EP: END PLOTDATA; 



FILL XCHAR[*] WITH "DISTANCE (METERS)"; 



FILL YCHAR[*] WITH "ELEVATION (METERS)"; 



FILL TITL [*] WITH "TORREY PINES"; 

 RD: READ(CRD,/,N,S,F); 



IF S>33 THEN BEGIN 



WRITE (PRINTER, <"INCORRECT SYMBOL - PROGRAM ABORTED">) ; 



GO TO EXIT; END; 



IF F<0 OR F>3 THEN BEGIN 



WRITE (PRINTER, <"F OUT OF RANGE- PROGRAM ABORTED">) ; 



GO TO EXIT; END; 



IF N>200 THEN BEGIN 



WRITE (PRINTER, <"N IS TOO LARGE (>200) - PROGRAM ABORTED">) ; 



GO TO EXIT; END; 



READ (CRD,<2A6>,KEY[*]); 



FOR I;=l STEP 1 UNTIL N DO BEGIN 



READ(CRD,<2F10.3>,X[I] ,Y[I]) [EOF] ; 



X[I] :=.3048*X[I]; 



Y[I] : = .3048*Y[I]; 



END; 



PLOTDATA(X,Y,N,-1100,0,-20,5,50,5,36.089,8.202,XCHAR,YCHAR,TITL, 



KEY,S,F); 



WRITE (PRINTER, <"DATA PLOTTED FOR ", 2A6>, KEY[*] ) ; 



IF F>0 AND F<3 THEN GO TO RD ; 



GO TO EXIT; 

 EOF: WRITE (PRINTER, <"NUMBER OF PROFILE CARDS DOES NOT EQUAL N - PROGRAM 



ABORTED">) ; 

 EXIT: END. 



164 



