Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LUNAR2

LUNAR2.m

Go to the documentation of this file.
  1. LUNAR2 ;PROGRAM MOON
  1. 100 ;MAIN DRIVER
  1.  W *7 S %LN=1 X %TC
  1.  W "ATTENTION APOLLO!",!
  1.  W "FAILURE IN MAIN COMPUTER DESCENT MODULE...",!
  1.  W "MODULE WILL HAVE TO BE LANDED UNDER MANUAL CONTROL",!
  1.  W "YOU MAY ADJUST THE RATE OF BURN BETWEEN 0 AND 100 kg/s",!
  1.  W *7
  1.  D 300 R !,"DO YOU WANT TO TRY AGAIN?",A S PA=0 S:A="Y" PA=1
  1.  Q
  1. 300 ;DESCENT STAGE
  1.  R !,"TYPE 'RETURN' WHEN YOU ARE READY",A,!,"OK" W *7 H 1 D 600
  1.  S H=20000,X=68,V=1000,F=3500,T=0,G=1.62,M=3500
  1.  S %LN=1,%CO=1 X %TP W "TIME(s) HEIGHT(m) VELOCITY(m/s)    FUEL(kg)    BURN(kg/s) "
  1. 315 S %LN=1,%CO=78 X %TP W !,?2,T,?8,H,?21,V,?36,F,?50 R "?",B,"   " D:(B>100)!(B<0) 500
  1.  F K=1:1:5 S V=V-((P*B*100\1/100)/M*100\1/100)+G,M=M-B,F=F-B,H=H-V D 700 G:H'>0 321 G:F'>0 371
  1.  S T=T+5 G 315
  1. 321 D:V>20 900 W *7,!!,"TOUCHDOWN AT ",T+K," seconds",!,"LANDING VELOCITY ",V,"m/s",!
  1.  G:V>8 325 W *7,"CONGRATULATIONS ON A SAFE LANDING !",! Q
  1. 325 G:V>20 327 W *7,"WOULD YOU PLEASE CLEAN BUZZ ALDRIN OFF THE WALLS!",! Q
  1. 327 W *7,*7,"YOU HAVE ACHEIVED IMMORTALITY - THEY ARE GOING TO NAME THE CRATER AFTER YOU !",*7,!
  1.  Q
  1. 371 ;OUT OF FUEL
  1.  W *7,!,"OUT OF FUEL",*7 F K=1:1:1000 S V=V+G,H=H-V D 700 G:H'>0 321
  1.  Q
  1. 500 ;ILLEGAL BURN
  1.  G:B>100 513 W !,*7,"ZERO BURN ASSUMED" S B=0 Q
  1. 513 W !,*7,"JET TUBES OVERHEATING - REDUCE BURN",*7,! X $P($T(515)," ",2,99) X $P($T(517)," ",2,99) X $P($T(521)," ",2,99) Q
  1. 515 W "TUBE BURN OUT" S P=P-200 S:P'>0 F=0
  1. 517 W "TWO TUBES BURNT OUT" S P=P-400 S:P'>0 F=0
  1. 521 R !,"WHAT NEW BURN ?",B
  1.  S %LN=1,%CO=1 X %TP W !
  1.  Q
  1. 600 ;DISPLAY BACKGROUND
  1.  S %LN=1 X %TC
  1.  S %LN=19,%CO=1 X %TP W !
  1.  W ?22," ^",?53,"/\",!
  1.  W ?22,"/ \/\",?52,"/  \",!
  1.  W ?7,"/\",?21,"/     \",?51,"/    \",!
  1.  W ?6,"/ \/\",?20,"/       \",?47,"/\ /      \",!
  1.  W "_o___/     \___o_/\/         \________________/  \       \____________________"
  1.  S Y=38,X=68 X $P($T(720)," ",2,99) S Z=38,W=68
  1.  Q
  1. 700 ;DISPLAY LUNAR MODULE
  1.  S Y=54-(H/1000\1) S:Y>55 Y=55 S:Y<38 Y=38 I Y=Z,X=W G 725
  1.  S %LN=Z-33,%CO=W-30 X %TP W " " S %LN=Z-32,%CO=W-31 X %TP W "   " S %LN=Z-31,%CO=W-31 X %TP W "    "
  1. 720 S %LN=Y-33,%CO=X-30 X %TP W "_" S %LN=Y-32,%CO=X-31 X %TP W "(#)" S %LN=Y-31,%CO=X-31 X %TP W "/-\"
  1. 725 S Z=Y,W=X S %LN=1,%CO=1 X %TP W !
  1.  Q
  1. 900 ;ON THE ROCKS
  1.  S %LN=Y-33,%CO=X-31 X %TP W "\M/"
  1.  S %LN=Y-32 X %TP W "<@>"
  1.  S %LN=Y-31 X %TP W "/W\"
  1.  S %LN=1,%CO=1 X %TP F Z=1:1:80 W " "
  1.  W ! F Z=1:1:80 W " "
  1.  W !!,*7,"CRASH LANDING ON MOON...NO SURVIVORS",*7,!!
  1.  S H=0,CR=1
  1.  Q