SI()0R*QGC-PS/8 FOCAL, 1971?MK(BE?MB>FJA "DO YOU WANT A PLOT
 ",AN?MG1HEA !"Y SCALING FACTOR: ",YS,!!?MO8RJQ?MB(FTI (AN-0YES) 9.1,4.05,9.1?ME3HJF X=IN*FITR(LL/IN),IN,IN*FITR(UL/IN);D 5?MHYJOS P(33)=174?ME7JYS P(66)=217?MDEDLT "1 & 2 INTERSECT AT:"!?MDUDNI (Y(3)-Y(2)) 2.2,2.16,2.2?MD$DPT "2 & 3 INTERSECT AT:"!?MD4DT
 (Y(1)-Y(3)) 2.3,2.25,2.3?METDYT "1 & 3 INTERSECT AT:"!?MC6DJI (Y(2)-Y(1)) 2.14,2.12,2.14?MBWD^T "X=",X,"    Y1=",Y(1),"    Y2=",Y(2),"    Y3=",Y(3),!?MG(HTQ?MF<J^D 10;F A=1,3;S Y(A)=Y(A)/YS?MFXCPI (AN-0YES) 4.05,1.9,4.05?MECCZF X=LL,IN,UL;D 10;D 2?MFHCFA
"DO YOU WANT A TABLE OF VALUES
 ",AN?MGRJ(I (33-FABS(Y(1))) 5.5;S P(Y(1)+33)=163?MHCJ2I (33-FABS(Y(2)))5.6;S P(Y(2)+33)=170?MC$JE?MI(KFD 6;R?MCMHGF A=1,66;S P(A)=160?MB:LTT !?MG+J<I (33-FABS(Y(3)))5.7;S P(Y(3)+33)=171?MC-JTI (-FABS(X)) 5.3;S P(1)=217;F A=2,65;S P(A)=174?MJJB2A "LOWER L
MIT ",LL,!"UPPER LIMIT ",UL,!"INCREMENT ",IN,!?MI.LDS M=M-1;I (P(M)-160) 6.1,6.04,6.1?MITLBS M=67?MG>LJF A=1,M;S AN=FOUT(P(A));S P(A)=160?MT^S Y(3)=200?MF&B<S Y(1)=0;S Y(2)=0;S Y(3)=0?MJ^B^E?MJ6B!A "HAVE YOU INPUT THE EQUATIONS YET
 ",AN?MKHB$I (AN-0NO) 1.5,1.4,1.5?MH4B-Q?MKDB(T !!"HERE ARE THE EQUATIONS.  TYPE 	G	 TO RESTART."!!;W 10?MLHBFC     THIS PROGRAM WILL SIMULTANEOUSLY PLOT THE EUCLIDEAN?MPGBGC GRAPHS OF ANY THREE FUNCTIONS.  REMEMBER THAT YOU ARE IN?MMGBJC MODIFIED.  TO PL
T LESS THAN ALL THREE EQUATIONS, JUST?MM	BKC SET ONE OF THE EQUATIONS TO A CONSTANT WHICH WILL BE OFF?MM1BLC YOUR SCALE.?MNUBMC ** Y SCALING FACTOR IS THE NUMBER OF Y-UNITS EACH DOT REPRESENTS?MN2BNC ** UPPER AND LOWER LIMITS ARE THE X-VALUE	S LIMITS?MOVB
C ** INCREMENT REFERS TO THE STEP BY WHICH THE X=VALUES ARE TAKEN?MO5BPC ** THE PLOT ARRANGES YOUR PARAMETERS TO GO THROUGH X=0?MJZBQ?MO?TJS Y(1)=X?MJBTTS Y(2)=X*X?MP	BHC FOCAL, SO ANY FUNCTIONS YOU USE LIKE SINE MUST APPEAR AS?ML(BIC 	FSIN	.  THE EQUATIO
S ARE IN GROUP 10 WHERE THEY MAY BE?MQ8BAC     FROM PLOTER IN 	FOCAL PROGRAMMING MANUAL	?MRZBCC     OMSI SOFTWARE DEVELOPMENT GROUP?MQ"BBC     PDP-15 SYSTEMS  COPYRIGHT 1970  MODIFIED BY JOHN HUISMAN?MBTBDC     LAST CHANGE: 8/9/71?M  L S DTA2:PLOTER;L C P
LAR?M?BDC     LAST CHANGE: 8/9/71?RIGHT 1970  MODIFIED BY JOHN HUISMAN?M";S D=FOUT(223);T "	 OR CTRL/U KILLS LINE"!!?MKG 1.4?M4?L D DTA3:FILE.FD2MNJ/NGM*120.IF-"1&06IN/+Z7A3SGP2 ;S+AB,3ESN2 [O2 	LS7T"J*M3C7O7LSS.,^I*I>I+^3G2 ?C3MGM+NCD3L;I3EV 7DSI2 	LS7T.
FI"5&I6/KC2,& 3NWS+RCT+CCR2&2 F*M.I^1"7&I6/WR7BWOT*M.IR1*I>I+^3L2 WS3T2 3OWW3RN 3AWS"M&J"2&56I:/+UB,7SSE6 CU7PKE2 GCS7E2JWR7COLT&,"3&I2/O^

Note: Lines longer than 256 characters were wrapped