X4()0T;KBC-PS/8 FOCAL, 1971?MB8B^A !"LOWER LIMIT OF X
",X1,"UPPER LIMIT OF X
",X2,"X INCREMENT",X3?MCOB(A !"X OFFSET
",X4,"Y SCALING FACTOR
",Y1?MC!B2S XS=1000/(X2-X1);S XC=-X1*XS?MC)B<S YS=Y1*XS?MC3CFS YC=380+X4*YS?MF:CPF Q7=0,.2,FOUT(24);?MFYD^F U1=FITR(-YC/(YS*DV))*DV,DV,FITR((760-YC)/(YS*DV))*DV;D 5.1?MECEFF U1=FITR(-XC/(XS*DV))*DV,DV,FITR((1020-XC)/(XS*DV))*DV;D 5.2?MEIFJS I=0?MHDFTF X=X
,X3,X2;D 30.1;D 4?ME(HJS XP=XC+X*XS;S YP=YC+Y*YS?MFEH(S R=FSQT((510-XP)^2+(510-YP)^2);I (R-510) 4.5;S I=0?MG[H2S Q9=FDIS(I,XP,YP);I (R-510) 4.6;R?MH/D2I (YC) 3.1;I (780-YC) 3.1;S Q8=FDIS(0,0,YC)+FDIS(1,1020,YC)?MHQDJI (XC) 2.5;I (1020-XC) 2.5;S Q8=FDIS(0,
C,0)+FDIS(1,XC,780)?MIMH<S I=1?MDDYS Q8=FOUT(1);T "Y UNITS:",DV?MD!EAS Q8=FOUT(1);T !"X UNITS:",DV?MEXF^S Q8=FOUT(1);T !!!;Q?MG!DTS D1=FITR(FLOG(50/YS)/FLOG(10));S DV=FEXP(D1*FLOG(10))?MG2D<S D1=FITR(FLOG(50/XS)/FLOG(10));S DV=FEXP(D1*FLOG(10))?MI(JJS Q8=
DIS(0,XC-5,YC+YS*U1)+FDIS(1,XC+5,YC+YS*U1)?MQ+JTS Q8=FDIS(0,XC+XS*U1,YC-5)+FDIS(1,XC+XS*U1,YC+5)?MBTB]T !"ENTER EQUATION OF Y IN TERMS OF X"!!;M 30.1?MJCB\A !%6.03,"HAVE YOU ENTERED THE EQUATION
",A1;I (A1-0YES) 1.2,1.3;?MKSBAC     GRAPH BY STEVE POULSEN?MR<BBC     OMSI SOFTWARE DEVELOPEMENT GROUP?MQ4BE?MLTBGC EUCLIDEAN GRAPH.  TYPE ANYTHING BUT YES IF YOU WANT TO INPUT AN EQUATION?ML9BHC WHEN ASKED IF THE EQUATION IS IN, AND THE COMPUTER WILL IN
ERRUPT?MS.BIC THE PROGRAM AND ALLOW YOU TO MODIFY ITS INPUT EQUATION.  IF YOU CHOOSE?MNFBKC AN 	=	 AFTER THE CARRIAGE RETURN AND YOU WILL GET THE FIRST PART OF?MN*BLC THE EQUATION SINCE IT IS IN MODIFY MODE.  REMEMBER, THE EQUATION?MN:BMC MUST BE Y IN TER
S OF X.?MO^BNC ** X INCREMENT IS THE STEP WITH WHICH YOU WISH THE GRAPH TO GO.?MRXBOC ** X OFFSET IS THE VERTICAL DISPLACEMENT FROM THE CENTER OF THE X AXIS.?MPIBQ?MQBBRC WHEN INPUTING YOUR EQUATION, REMEMBER THAT YOU ARE USING MODIFY IN?MTTBUI ((/3)-FITR
/3)) 1.22,1.28,1.22?MQ	BSC FOCAL SO SINE AND COSINE (AND ALL OTHERS) MUST BEGIN WITH F.?MJ^BW?MP.BTE?M<JS Y=FSIN(X)?MK,BFC     THIS PROGRAM WILL GRAPH ANY TWO DIMENSIONAL EQUATION ON AN ?MPFBPC ** Y SCALING FACTOR SETS THE VERTICAL PLOT LIMIT OF THE SCREE
.?MSLBCC     LAST CHANGE: 8/19/71?MK)BDC     ***** TEKTRONIX T-4002 GRAPHICS TERMINAL REQUIRED *****?MM BJC NOT TO MODIFY THE EQUATION THE PROGRAM WILL ASSUME Y=FSIN(X).  TYPE ?MQ$BVT "YOU DO NOT HAVE ENOUGH FEATURES.  RESTART FOCAL WITH FEATURE 2.",!;Q?M
ML S GRAPH?M?O NOT HAVE ENOUGH FEATURES.  RESTART FOCAL WITH FEATURE 2.",!;Q??M*?ERTICAL PLOT LIMIT OF THE SCREEN.?PE ?;S7&P"2%\%]%J5N-N

Note: Lines longer than 256 characters were wrapped