<div id='wikitext'>
<pre><b> File: LUNAR.FO of Tape: OS8/OS8-V40/v40-1</b></pre>
<pre><b>(.FC,.FO Focal format converted to 'WRITE' listing) </b></pre>
<hr />
<pre>
C-LUNAR .FO FEB-89

01.04 T &quot;Control calling Lunar Module. Manual control 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 is 120 secs. Capsule weight is 32500 lbs.&quot;!
01.20 T &quot;First radar check coming up&quot;!!!; E
01.30 T &quot;Commence landing procedure&quot;!&quot;Time,secs   Altitude,&quot;
01.40 T &quot;miles+feet   Velocity,MpH   Fuel,lbs   Fuel rate&quot;!
01.50 S A=120; S V=1;S M=32500;S N=16500;S G=.001;S Z=1.8

02.10 T &quot;   &quot;%4,L,&quot;         &quot;%4,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 (200-K)2.72; I (8-K)3.1,3.1;I (K)2.72,3.1
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=(FSQT(V*V+2*A*G)-V)/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;,M-N,&quot; LBS&quot;!
05.40 I (1-W)5.5,5.5;T &quot;Perfect landing !-(lucky)&quot;!;G 5.9
05.50 I (10-W)5.6,5.6; T &quot;Good landing - (could be better)&quot;; G 5.9
05.60 I (22-W)5.7,5.7;T &quot;Congratulations on a poor landing&quot;;G 5.9
05.70 I (40-W)5.81,5.81; T &quot;Craft damage. Good luck&quot;;G 5.9
05.81 I (60-W)5.82,5.82;T &quot;Crash landing - You&#039;ve 5 HRS oxygen&quot;;G 5.9
05.82 T &quot;Sorry, but here were no SURVIVORS - You blew IT!&quot;!&quot;In &quot;
05.83 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;(For Yes Answer 1)&quot;,P;I (P-1)5.98,1.2,5.98
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;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>