()0O1BTC-PS/8 FOCAL, 1971?MB&BAC     HARMON BY STEVE POULSEN?MO!BBC     OMSI SOFTWARE DEVELOPMENT GROUP?MC^BDC     ***** TEKTRONIX T-4002 GRAPHICS TERMINAL REQUIRED *****?MC!BE?MDEBFC     THIS PROGRAM PRODUCES A SIMILIAR GRAPH AS A HARMONOGRAPH OR?MD)BGC 
PIROGRAPH WOULD.  THE GRAPH REPRESENTS THE RELATIVE MOTION OF ?MENBHC TWO PENDULUMS MOVING WITH RESPECT TO EACH OTHER, OR IN EFFECT, THE?ME2BIC PATH OF A AS SEEN BY THE REFERENCE FRAME OF B.  YOU CAN SET THE?MFNBJC DIFFERENT VARIABLES WHILE UNDER PROGRAM 
ONTROL.?MF-BKC ** PHASE DIFFERENCE IS THE ANGLE OF RELEASE. (0 TO 90)?ML2BLC ** SWING COEFFICIENT IS THE MAGNITUDE OF SWING ON A 0 TO 1 SCALE.?MG1BPC ** DRAG COEFFICIENT IS AIR RESISTANCE ON 0 TO 1 SCALE.?MG5BQE?MHIBRI (FITR(/2)-(/2)) 1.19,1.28,1.19?MH0BS
 "YOU DO NOT HAVE ENOUGH FEATURES.  RESTART FOCAL WITH FEATURE 1.",!;Q?MMWBT?MINB*S C=3.1415926/180;S P1=PA*C;S P2=PB*C;S A1=AD*C?MI*B,S A=190*S1;S B=190*S2;S D1=FCOS(A1);S D2=FSIN(A1)?MI7B2F Q3=0,.2,FOUT(24);?MJGB<F T=0,.15,N*3.1415926;D 2?MJSCFS B3=FOUT
1);G 1.1?MJ(DJS X1=A*FCOS(R*T+P1);S Y1=A*FSIN(R*T)?MJ>DTS X2=B*FCOS(A1+T+P2);S Y2=B*FSIN(T+A1)?MKRD^S XP=X2*D1+Y2*D2;S YP=Y2*D1+X2*D2?MK%D(S B6=FDIS(1,500+X1-XP,380+Y1-YP)?MD2S A=A*D3;S B=B*D3?MLSBNC ** THE ANGLE BETWEEN IS BETWEEN THE INITIAL PATHS OF A 
 B.?MGRBOC ** PERIOD RATIO IS (ONE CYCLE OF A)/(ONE CYCLE OF B).?MK1BMC ** TIME DIFFERENCE IS THE % OF CYCLE A COMPLETED AS B IS RELEASED.?MM<B\S N=200;A !"PHASE DIFFERENCE OF A
 ",PA,"PHASE DIFFERENCE OF B
 ",PB?MN^B]A !"SWING COEFFICIENT OF A
 ",S1,"SWING COEFFICIENT OF B
 ",S2?MOBB^A !"TIME DIFFERENCE
 ",T1,"ANGLE BETWEEN A AND B
 ",AD;S T1=T1/100?MH3B(A !"PERIOD RATIO
 ",R,"DRAG COEFFICIENT
 ",D1;S D3=1-D1?MB<BCC     LAST CHANGE: 8/31/71?MEFL S HARMON?M?MHANGE: 8/31/710/71?MP&BNC ** INITIAL ANGLE IS THE POSITION FROM WHICH R WILL BE ROTATED.?MQJBOC ** FINAL ANGLE IS THE POSITION THROUGH WHICH R WILL BE ROTATED.?MHSBPC ** ANGLE INCREMENT IS T
E STEP WITH WHICH R WILL BE ROTATED.?MN^BSC ** ALL ANGLES ARE IN DEGREES.?MES

Note: Lines longer than 256 characters were wrapped