<div id='wikitext'>
<pre><b> File: MOONF.FC of Tape: Various/ETH/fc1</b></pre>
<pre><b>(.FC,.FO Focal format converted to 'WRITE' listing) </b></pre>
<hr />
<pre>
C ACU-FOCAL12,1973

01.04 T &quot;CONTROL CALLING LUNAR MODULE. MANUAL CONTROL IS NECESSARY&quot;!
01.06 T &quot;YOU MAY RESET FUEL RATE K EACH 10 SECS TO 0 OR ANY VALUE&quot;!
01.08 T &quot;BETWEEN 8 &amp; 200 LBS/SEC. YOU&#039;VE 16000 LBS FUEL.ESTIMATED&quot;!
01.11 T &quot;FREE FALL IMPACT TIME-120 SECS. CAPSULE WEIGHT-32500LBS&quot;!
01.20 T &quot;FIRST RADAR CHECK COMING UP&quot;!!!;E
01.30 T &quot;COMMENCE LANDING PROCEDURE&quot;!&quot;TIME,SEC   ALTITUDE,&quot;
01.40 T &quot;MILES+FEET   VELOCITY,MPH   FUEL,LBS   FUEL RATE&quot;!
01.50 S L=0;S A=120;S V=1;S M=33000;S N=16500;S G=.001;S Z=1.8

02.10 T !,&quot;  &quot;,%3,L,&quot;       &quot;,FITR(A),&quot;  &quot;,%4,5280*(A-FITR(A))
02.20 T %6.02,&quot;       &quot;,3600*V,&quot;    &quot;,%6.01,M-N,&quot;      K=&quot;;A K;S T=10
02.70 T %7.02;I (K)2.72;I (200-K)2.72;I (K-8)2.71,3.1,3.1
02.71 I (K-0)2.72,3.1,2.72
02.72 T !,&quot;NOT POSSIBLE&quot;;F X=1,51;T &quot;.&quot;
02.73 T !,&quot;K=&quot;;A K;G 2.7

03.10 I ((M-N)-.001)4.1;I (T-.001)2.1;S S=T
03.40 I ((N+S*K)-M)3.5,3.5;S S=(M-N)/K
03.50 D 9;I (I)7.1,7.1;I (V)3.8,3.8;I (J)8.1
03.80 D 6;G 3.1

04.10 T !,&quot;FUEL OUT AT&quot;,L,&quot; SECS&quot;!
04.40 S S=(-V+FSQT(V*V+2*A*G))/G;S V=V+G*S;S L=L+S

05.10 T !,&quot;ON THE MOON AT&quot;,L,&quot; SECS&quot;!;S W=3600*V
05.20 T &quot;IMPACT VELOCITY OF&quot;,W,&quot; M.P.H.&quot;!,&quot;FUEL LEFT:&quot;
05.30 T M-N,&quot; LBS.&quot;!;I (-W+1)5.5,5.5
05.40 T &quot;PERFECT LANDING !-(LUCKY)&quot;!;G 5.9
05.50 I (-W+10)5.6,5.6;T &quot;GOOD LANDING-(COULD BE BETTER)&quot;!;G 5.9
05.60 I (-W+25)5.7,5.7;T &quot;CONGRATULATIONS ON A POOR LANDING&quot;!;G 5.9
05.70 I (-W+60)5.8,5.8;T &quot;CRAFT DAMAGE. GOOD LUCK&quot;!;G 5.9
05.80 T &quot;SORRY,BUT THERE WERE NO SURVIVORS-YOU BLEW IT!&quot;!&quot;IN &quot;
05.81 T &quot;FACT YOU BLASTED A NEW LUNAR CRATER&quot;,W*.277777,&quot; FT.DEEP&quot;!
05.90 T !!!&quot;TRY AGAIN?&quot;!
05.92 A &quot;(ANS. YES OR NO)&quot;P;I (P-0NO)5.94,5.98
05.94 I (P-0YES)5.92,1.2,5.92
05.98 T &quot;CONTROL OUT&quot;;Q

06.10 S L=L+S;S T=T-S;S M=M-S*K;S A=I;S V=J

07.10 I (S-.005)5.1;S S=2*A/(V+FSQT(V*V+2*A*(G-Z*K/M)))
07.30 D 9;D 6;G 7.1

08.10 S W=(1-M*G/(Z*K))/2;S S=M*V/(Z*K*(W+FSQT(W*W+V/Z)))+.05;D 9
08.30 I (I)7.1,7.1;D 6;I (}-J)3.1,3.1;I (V)3.1,3.1,8.1

09.10 S Q=S*K/M;S J=V+G*S+Z*(-Q-Q^2/2-Q^3/3-Q^4/4-Q^5/5)
09.40 S I=A-G*S*S/2-V*S+Z*S*(Q/2+Q^2/6+Q^3/12+Q^4/20+Q^5/30)</pre>
<hr/>
</div>