()0O:BTC-PS/8 FOCAL, 1971?MB&BAC     HARMON BY STEVE POULSEN?MB<BBC     OMSI SOFTWARE DEVELOPMENT GROUP?MCLBCC     LAST CHANGE: 8/19/71?MC.BDC     ***** TEKTRONIX T-4002 GRAPHICS TERMINAL REQUIRED *****?MC1BE?MDUBFC     THIS PROGRAM PRODUCES A SIMILIAR GR
PH AS A HARMONOGRAPH OR?MD9BGC SPIROGRAPH WOULD.  THE GRAPH REPRESENTS THE RELATIVE MOTION OF ?ME^BHC TWO PENDULUMS MOVING WITH RESPECT TO EACH OTHER, OR IN EFFECT, THE?MFBBIC PATH OF A AS SEEN BY THE REFERENCE FRAME OF B.  YOU CAN SET THE?MF^BJC DIFFEREN
 VARIABLES WHILE UNDER PROGRAM CONTROL.?MF=BKC ** PHASE DIFFERENCE IS THE ANGLE OF RELEASE. (0 TO 90)?MG"BLC ** SWING COEFFICIENT IS THE MAGNITUDE OF SWING ON A 0 TO 1 SCALE.?MHLBMC ** TIME DIFFERENCE IS THE % OF CYCLE A COMPLETED AS B IS RELEASED. (0 TO 
)?MH3BNC ** THE ANGLE BETWEEN IS THE ANGLE BETWEEN THE INITIAL PATHS OF A & B.?MI[BOC ** PERIOD RATIO IS (ONE COMPLETE CYCLE OF A)/(ONE COMPLETE CYCLE OF B).?MI:BPC ** DRAG COEFFICIENT IS AIR RESISTANCE ON 0 TO 1 SCALE.?MI>BQE?MJRBRI (FITR(/2)-(/2)) 1.19,
.28,1.19?MJ9BST "YOU DO NOT HAVE ENOUGH FEATURES.  RESTART FOCAL WITH FEATURE 1.",!;Q?MJ<BT?MK B\S N=200;A !"PHASE DIFFERENCE OF A
",PA,"PHASE DIFFERENCE OF B
",PB?MLAB]A !"SWING COEFFICIENT OF A
",S1,"SWING COEFFICIENT OF B
",S2?ML^B^A !"TIME DIFFERENCE
",T1,"ANGLE BETWEEN A AND B
",AD?ML<B(A !"PERIOD RATIO
",R,"DRAG COEFFICIENT
",D1;S D3=1-D1?MMWB*S C=3.1415926/180;S P1=PA*C;S P2=PB*C;S A1=AD*C?MM3B,S A=190*S1;S B=190*S2;S D1=FCOS(A1);S D2=FSIN(A1)?MNB2F Q3=0,.2,FOUT(24);?MNPB<F T=0,.15,N*3.1415926;D 2?MN\CFS B3=FOUT(1);G 1.1?MN1DJS X1=A*FCOS(R*T+P1);S Y1=A*FSIN(R*T)?MOGDTS X2=B
FCOS(A1+T+P2);S Y2=B*FSIN(T+A1)?MO[D^S XP=X2*D1+Y2*D2;S YP=Y2*D1+X2*D2?MO.D(S B6=FDIS(1,500+X1-XP,380+Y1-YP)?MD2S A=A*D3;S B=B*D3?M3?L S HARMONMTHL S DTA2:HARMON;L C WEB?M?MTOBCC     LAST CHANGE: 8/9/71?WEEN IS THE ANGLE BETWEEN THE INITIAL PATHS OF A & B
?.(0 TO 90)?M0)?M)-(3/2)) 1.19,2.8,1.19?M9?M?RT FOCAL WITH FEATURE 1.",!;L E?S TEMP1?M??M PROGRAM?MM?M?R MAN IS HUNG.  NO PICTURE IS DRAWN BY

Note: Lines longer than 256 characters were wrapped