YCHAR=ARRAY CONTAINING Y-AXIS TITLE (MAXIMUM OF 18 CHARACTERS) 

 TITL=ARRAY CONTAINING PLOT TITLE (MAXIMUM OF 18 CHARACTERS) 

 KEY=ARRAY CONTAINING KEY (TO BE PRINTED WITH SYMBOL IN MARGIN) 

 S=INTEGER REPRESENTING SYMBOL TO BE USED FOR PLOTTING DATA POINTS 

 F=FLAG FOR NUMBER OF ARRAYS TO BE PLOTTED 

 0=PLOT THIS X ARRAY AND COMPLETE PLOT 

 1=THIS IS THE FIRST OF SEVERAL X ARRAYS TO BE PLOTTED. DO 



NOT COMPLETE PLOT YET 

 2=THIS IS ANOTHER X ARRAY TO BE PLOTTED ON THE EXISTING 



PLOT. DO NOT COMPLETE THE PLOT YET 

 3=THIS IS THE FINAL X ARRAY TO BE PLOTTED. COMPLETE PLOT 



NOTES: (1) POINTS THAT EXTEND BEYOND THE GIVEN LIMITS FOR THE AXES 

 ARE PLOTTED ON THE AXES 



(2) THERE IS ROOM FOR ONLY 5 DIGITS PER NUMBER FOR THE Y-AXIS 

 NUMBERING. LARGER NUMBERS SHOULD BE SCALED ACCORDINGLY. 



(3) FOR LINEAR Y-AXES YS MUST BE GEQ .0001 



(4) A MAXIMUM OF 10 PROFILES PER PLOT IS ALLOWED 



(5) ONLY ONE COMPLETE PLOT PER RUN IS ALLOWED 

 VALUE YMIN,YMAX,XMIN,XMAX,XS,YS,XL,YL; 



REAL ARRAY X [1],Y [1] ,XCHAR[0] ,YCHAR[0] ,TITL[0] , KEY[0]; 



REAL XMIN,XMAX,YMIN,YMAX,XS,YS,XL,YL; 



INTEGER N,S,F; 



BEGIN 



REAL XMN,XMX,YMN,YMX,XSS,YSS,XVV,YVV,XMN1,YMN1; 



ALPHA ARRAY XCHAR1 [0: 2] ,YCHAR1 (0: 2] ; 

 OWN REAL XV,YV,XM,YM; 

 OWN REAL ARRAY KEYCHAR[0: 10, 0: 1] ; 

 OWN INTEGER NA; 

 OWN INTEGER ARRAY SYM[0:10]; 

 INTEGER ARRAY SP[0:1]; 

 REAL AJ, TIC, ABA, XX; 

 REAL E,XC,YC,YY; 

 INTEGER ND,JJ; 

 INTEGER I,J,K; 

 LABEL DIG,DIGY,PTS,EP; 

 ERROR: =0; 



WRITE (PRINTER, <"N=",I5," S=",I5" F=",I5 >,N,S,F); 

 IF F>1 THEN GO TO PTS; 



WRITE (PRINTER, <"XMIN=", El 2. 5," XMAX=",E12.5," YMIN=", 

 E12.5," YMAX=",E12.5," XS=",E12.5," YS=",E12.5>,XMIN,XMAX, 

 YMIN,YMAX,XS,YS) ; 

 IF XL>40 OR YL>9 THEN BEGIN 

 WRITE (PRINTER, <"PLOT LENGTH OR HEIGHT TOO LARGE- PROGRAM ABORTED">) 

 ERROR: =1; 

 GO TO EP; END; 

 IF XS=0 OR YS=0 THEN BEGIN 



WRITE (PRINTER, <"X OR Y AXIS TIC MARK SPACING SET EQUAL TO ZERO- 

 PROGRAM ABORTED" >) ; 

 ERROR :=1; 

 GO TO EP; END; 



161 



