@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E A

C-FOCAL , 8/68

01.01 T "PLOT AND ADD TWO PHYSIAL SINE CURVE--TOT  AMPL<35"!;S Z=0
01.03 A "WAVE ONE AMPLITUE",1,"WAE TWO AMPLITUDE",A2,!
01.08 T "CONSIDER WAVE ONE OF FIXED WAVELENGTH",!
01.09 A "ATIO F LMBDA ONE/LBDA TO",L,
01.11 A "APPROX.NUMBER OF TT LINES IN THIS PLOT [+-1]",N,!
00.12 "#1 I  * WITH -&+",!,"#2 IS  O",!,"SUM PLOTS  X",!!
01.17 T "- AMPLITUE";F K=0,0 0T "";
1.18 T ".";F K=0,25;T ">"
01.19 T "AMPLITUDE )"
00.20 T !,"TABLE FO !,"ULTNT",!,"WAVEFORM:"

02.10 T !;F I1=0,0.5,[0.5*N; DO 0.160T "*"; DO 6;D 7;DO8
02.12 T "GIVE A 'GO' IF YOU WAN ANOTER PLOT"!
02.14 T "WHILE YOU STUDTHE E ABVE"!!!!!; DO 4
02.16 F J1=0,34+A1*FSI(	1);O 5
02.18 C FINDS DATM OE

04.10 QUIT

05.01 I (J1-35)5.03,5.05,5.07
05.02 T " "; R
05.05 T ":"
00.07 T "+"; R
05.08 C FINDS X- AIS IF BEFORE DATUM ONE

06.01 	 (34-J1)6.0.02 V=1,33; T "-"
06.02 T ":"
06.03 T #;R
06.04 C FINDS X- AXIS IF AFTE DATU ONE

07.20 S I2=L*I1;DO 7.26;T "O";
07.23 T #;R
07.26 F J2=0,34+A2*FSINI2);T" "
07.28 C FINDS DATTM TWO

08.10 T #;S Q=(
1+J2-70); DO 8.12; T "X"
8.11