KenUnix
/
DEC-FOCAL-Manuals-and-Info
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Digital Equipment Corp. FOCAL language manuals and information
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 Commits
1 Branch
87 MiB
 
Tree: eeb703f500
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'eeb703f500'
${ noResults }
DEC-FOCAL-Manuals-and-Info/Lander.txt

49 lines
2.0 KiB
Raw Blame History 

  1. 01.04 T "CONTROL CALLING LUNAR MODULE. MANUAL CONTROL IS NECESSARY"!

  2. 01.06 T "YOU MAY RESET FUEL RATE K EACH 10 SECS TO 0 OR ANY VALUE"!

  3. 01.08 T "BETWEEN 8 & 200 LBS/SEC. YOU'VE 16000 LBS FUEL. ESTIMATED"!

  4. 01.11 T "FREE FALL IMPACT TIME-120 SECS. CAPSULE WEIGHT-32500 LBS"!

  5. 01.20 T "FIRST RADAR CHECK COMING UP"!!!;E

  6. 01.30 T "COMMENCE LANDING PROCEDURE"!"TIME,SECS   ALTITUDE,"

  7. 01.40 T "MILES+FEET   VELOCITY,MPH   FUEL,LBS   FUEL RATE"!

  8. 01.50 S A=120;S V=1;S M=32500;S N=16500;S G=.001;S Z=1.8

  9. 

  10. 02.10 T "    ",%3,L,"       ",FITR(A),"  ",%4,5280*(A-FITR(A))

  11. 02.20 T %6.02,"       ",3600*V,"    ",%6.01,M-N,"      K=";A K;S T=10

  12. 02.70 T %7.02;I (200-K)2.72;I (8-K)3.1,3.1;I (K)2.72,3.1

  13. 02.72 T "NOT POSSIBLE";F X=1,51;T "."

  14. 02.73 T "K=";A K;G 2.7

  15. 

  16. 03.10 I (M-N-.001)4.1;I (T-.001)2.1;S S=T

  17. 03.40 I ((N+S*K)-M)3.5,3.5;S S=(M-N)/K

  18. 03.50 D 9;I (I)7.1,7.1;I (V)3.8,3.8;I (J)8.1

  19. 03.80 D 6;G 3.1

  20. 

  21. 04.10 T "FUEL OUT AT",L," SECS"!

  22. 04.40 S S=(FSQT(V*V+2*A*G)-V)/G;S V=V+G*S;S L=L+S

  23. 

  24. 05.10 T "ON THE MOON AT",L," SECS"!;S W=3600*V

  25. 05.20 T "IMPACT VELOCITY OF",W,"M.P.H."!,"FUEL LEFT:"M-N," LBS"!

  26. 05.40 I (1-W)5.5,5.5:T "PERFECT LANDING !-(LUCKY)"!;G 5.9

  27. 05.50 I (10-W)5.6,5.6;T "GOOD LANDING-(COULD BE BETTER)"!;G 5.9

  28. 05.60 I (22-W)5.7,5.7;T "CONGRATULATIONS ON A POOR LANDING"!;G 5.9

  29. 05.70 I (40-W)5.81,5.81;T "CRAFT DAMAGE. GOOD LUCK"!;G 5.9

  30. 05.81 I (60-W)5.82,5.82;T "CRASH LANDING-YOU'VE 5 HRS OXYGEN"!;G 5.9

  31. 05.82 T "SORRY,BUT THERE WERE NO SURVIVORS-YOU BLEW IT!"!"IN "

  32. 05.83 T "FACT YOU BLASTED A NEW LUNAR CRATER",W*.277777," FT.DEEP.

  33. 05.90 T !!!!"TRY AGAIN?"!

  34. 05.92 A "(ANS. YES OR NO)"P;I (P-0NO)5.94,5.98

  35. 05.94 I (P-0YES)5.92,1.2,5.92 

  36. 05.98 T "CONTROL OUT"!!!;Q

  37. 

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

  39. 

  40. 07.10 I (S-.005)5.1;S S=2*A/(V+FSQT(V*V+2*A*(G-Z*K/M)))

  41. 07.30 D 9;D 6;G 7.1

  42. 

  43. 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

  44. 08.30 I (I)7.1,7.1;D 6;I (-J)3.1,3.1;I (V)3.1,3.1,8.1

  45. 

  46. 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)

  47. 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)