(ALGOL) "PROFILE" 

 BURROUGHS/UCSD 86700 



BEGIN 



FILE CRD(KIND=9,MAXRECSIZE=14); 

 FILE PRINTER(KIND=6,MAXRECSIZE=22) ; 



$INCLUDE "PLOTTER/ALGOL" 



$ BIND = FROM PLOTTER/ = : 



PROCEDURE LINE(XA,YA,N,L,W,H,XM,XP,YM,YP); 



VALUE N,L,W,H,XM,XP,YM,YP; REAL N,L,W,H,XM,XP,YM,YP; 



ARRAY XA,YA[*]; EXTERNAL; 



PROCEDURE SYMBOL (X,Y,H,S,R,N) ; 



VALUE X,Y,H,R,N; REAL X,Y,H,R,N; ALPHA ARRAY S[*]; EXTERNAL; 



PROCEDURE PLOT(X,Y,P); VALUE X,Y,P; REAL X,Y; ALPHA P; EXTERNAL; 



PROCEDURE NUMBER (X, Y,H,Z,R,D) ; 



VALUE X,Y,H,Z,R,D; REAL X,Y,H,Z,R,D; EXTERNAL; 



PROCEDURE AXIS(S,Y,TITLE,N,I,R,M,V,T) ; 

 VALUE X,Y,N,I,R,M,V,T; REAL X,Y,N, I ,R,M,V,T; 

 ALPHA ARRAY TITLE [*]; EXTERNAL; 



PROCEDURE ENDPLT; EXTERNAL; 



PROCEDURE LIMITS(M,N); VALUE M,N; REAL M,N; EXTERNAL; 



PROCEDURE PENPOS(X,Y); REAL X,Y; EXTERNAL; 



INTEGER ERROR; 



REAL ARRAY X [1 : 200] ,Y [1 : 200] ; 



ALPHA ARRAY XCHAR [0: 2] ,YCHAR[0: 2] ,TITL [0: 2] , KEY[0: 1] ; 



INTEGER F,I,N,S; 



LABEL RD,EPF,EXIT; 



PROCEDURE PLOTDATA (X, Y,N,XMIN,XMAX,YMIN,YMAX,XS, YS, XL, YL, XCHAR, 



YCHAR,TITL,KEY,S.F.) ; 

 X=ARRAY OF X COORDINATES 

 Y=ARRAY OF Y COORDINATES 

 N=NUMBER OF DATA POINTS TO BE PLOTTED 

 XMIN=MINIMUM VALUE FOR X-AXIS SCALE 

 XMAX=MAXIMUM VALUE FOR X-AXIS SCALE 

 YMIN=MINIMUM VALUE FOR Y-AXIS SCALE 

 YMAX=MAXIMUM VALUE FOR Y-AXIS SCALE 

 XS=SPACING OF X,-AXIS SCALE MARKS. 

 YS=SPACING OF Y-AXIS SCALE MARKS 



XL=LENGTH OF X AXIS IN INCHES (USUALLY 10 OR 14 INCHES) 

 YL=LENGTH OF Y AXIS IN INCHES (YL MUST BE 9 INCHES OR LESS) 

 XCHAR=ARRAY CONTAINING X-AXIS TITLE (MAXIMUM OF 18 CHARACTERS) 



160 



