()0QABTC-PS/8 FOCAL, 1971?MB%BAC     POLAR BY STEVE POULSEN?MMLBBC     OMSI SOFTWARE DEVELOPMENT GROUP?MB>BE?MOTBFC     THIS PROGRAM WILL GRAPH ANY TWO-DIMENSIONAL EQUATION ON A POLAR?MDMBHC EQUATION WHEN ASKED IF THE EQUATION IS IN, AND THE COMPUTER WILL
INTERRUPT?MD3BIC THE PROGRAM AND ALLOW YOU TO MODIFY ITS INPUT EQUATION.  TYPE AN 	=	?MEVBJC AND YOU WILL GET THE FIRST PART OF THE EQUATION SINCE IT IS IN?ME>BKC MODIFY MODE.  IF YOU CHOOSE NOT TO MODIFY THE EQUATION, THE PROGRAM WILL?MFBLC ASSUME R=T.  
EMEMBER, THE EQUATION MUST BE R (RADIUS) IN TERMS OF?MM\BMC T (THETA).?MGDB]D 12;A "HAVE YOU ENTERED THE EQUATION
",AN?MGSB^I (AN-0YES) 1.4,2.1,1.4?MG3B(T !"ENTER EQUATION OF R IN TERMS OF THE ANGLE T"!!;M 10.1?MHVDJA !"INITIAL ANGLE
",A1,!"FINAL ANGLE
",A2,!"ANGLE INCREMENT
",A3?MH3DTA !"RADIUS OF AXES
",R1;S C=3.1415926/180;S S=380/R1?MIGD^S A1=A1*C;S A2=A2*C;S A3=A3*C;D 12?MI+FJS Q=FDIS(0,132,380)+FDIS(1,892,380)+FDIS(0,512,10)+FDIS(1,512,750)?MI4FTS Q7=FOUT(1)?MJBHJF T=A1,A3,A2;D 10;D 5?MJ
HTS Q=FOUT(1);A !"AGAIN
",AG;I (AG-0YES) 20.1,1.2,20.1?MKCJJS X=512+R*S*FCOS(T);S Y=380+R*S*FSIN(T);I (FABS(R*S)-380)5.2;S I=0?MKYJTS Q=FDIS(I,X,Y);I (FABS(R*S)-380)5.3;R?MK;J^S I=1;R?MK-XJF Q7=1,.2,FOUT(24);?MK7XTS Q7=FOUT(1);R?M(JQ?MK TJS R=T?ML;BQC ** RADIUS OF AXES IS THE SC
LING FEATURE WHICH SETS THE LENGTH OF?ML)BS?MP[BTU ((/3)-FITR(/3)) 1.21,1.21?ML&BRC    THE X AND Y AXES.?MF,BV?MO9BCC     LAST CHANGE: 8/19/71?MNDBNC ** INITIAL ANGLE IS THE POSITION FROM WHICH R WILL BE ROTATED. (DEGREES)?MN-BOC ** FINAL ANGLE IS THE POS
TION THROUGH WHICH R WILL BE ROTATED. (DEGREES)?MLABPC ** ANGLE INCREMENT IS THE STEP WITH WHICH R WILL BE ROTATED. (DEGREES)?MC$BGC COORDINATE SYSTEM.  TYPE ANYTHING BUT YES IF YOU WANT TO INPUT AN ?MB;BDC     ***** TEKTRONIX T-4002 GRAPHICS TERMINAL REQ
IRED *****?MMIBUT "YOU DO NOT HAVE ENOUGH FEATURES.  RESTART FOCAL WITH FEATURE 2.";Q?MML S POLAR?M?O NOT HAVE ENOUGH FEATURES.  RESTART FOCAL WITH FEATURE 2.";Q??ME?****?M*?M?IN POWERS-OF-TEN NOTATION"!?MROKZT 

Note: Lines longer than 256 characters were wrapped