Q$p2t0HnVhbms ~M5%R2DrawShipsxasyBFNMALLOColdsx;oldsyIx-vthrusththrustdelay<tYthedecayR THENvthrust thendecaydratederatedelaye decaydelaye^ decaydelayfuelvBGOSUN DrawPanelBthenfuelyy: DrawTerrain txtyCrashk BlockMove CrashDetect ObstructCountDObstructDetectCCStartMenuOperateLanderSeeo OperationKManual GetSelection'ShutdownLscreeagotpagelastLY DisplayPagec DisplayPag MenuReentry GetRandomSkipelseENDRZone ZoneColorzoneQWinner ReEnterMenucxcycKolorELSif-Presstakeofftakeoff.sSetLevel GetaLevel Menuentryrank\Menu.IICaptainastastxasty MenuReenterPast1xast1yast1ast2xast2yast2 ast2StartTherearemanyinyoursectorsector.DA * * * * * * * * * * * * * *  *  LunarLander  * *  * * Written by Vince Long * *  December 2003  * * * * * * * * * * * * * * * se V}e0GOTO MenuReentry[1 * * * * * * * * * * * * * * * * * * * * * * - * Initialize System Variables and Settings*1 * * * * * * * * * * * * * * * * * * * * * *  sje@ be hdx d d d d ex d eP d Y~YVY;Y^1 * * * * * * * * * * * * * * * * * * * * * *   * Start Game Play Here*1 * * * * * * * * * * * * * * * * * * * * * *  F da d w d w d  d d d dDpd&  d ]Bdx     d  e@_]xd   @dq][y  d d!  d!d! ex_a  d w d w d  d dd d  PI d P daX daH d w d w d  d d d dDpd&  d ]dx     d   @dq][y  d d!  d!d! ex_aB d w d w d  d dd d  PIT d PP   mqap  d mH"] dw  d mK"] dw  d mM"] d  d mP"] d  d_]d  d!xc]:d!x  d!xc]Vd!x  d!_]jd! PV FV kL>cd~ %dcad d P b  h b  b d  dc d_ d_a.d  dw P d]J d  d d_a d  d!_]d! d P da h  h dxM h  h I h d  h P %d_]" % w w %sese m Horizontal Thrust:  dc]~m<= " m " d_]m " m =>" d]m 0 "sese)m Vertical Thrust:  dc]$ e m " m  d_]R m m "e  d]n m 0 "sese m Rate of Descent: " m "sese) m Fuel = %ec_ %ec] m " %d%_ %edc]( m %d)c]B m " %5 * * * * * * * * * * * * * * * * * * * * * * * * * 4* Engage Automatic Crash Avoidance System (ACAS) *7 * * * * * * * * * * * * * * * * * * * * * * * * * daV d  m"T255L64O4CDEFGABO3CDEFGABO2CDEFGAB d odap se I se  P sese m* Automatic Crash Avoidance System Engaged  d _a4 d d sd!sese de*V. e  f P %ew % seP1 * * * * * * * * * * * * * * * * * * * * * *   * Check for Obstruction * if true, engage ACASn1 * * * * * * * * * * * * * * * * * * * * * *  d c bdw he @d]: Y d c bd he @d]h YYV1 * * * * * * * * * * * * * * * * * * * * * *   * Check for Proper Landing*1 * * * * * * * * * * * * * * * * * * * * * *  bd he @e bd he @e d c d ca d d YV se sesd) m Landing Number m successful. dc]m Press any key to takeoff. " se d][ Y^ F   md, sd! sesd) de>Ve  f se d d x P1 * * * * * * * * * * * * * * * * * * * * * * $ * Check for Landing in Wrong Zone1 * * * * * * * * * * * * * * * * * * * * * * bd he @e bd he @d d c d ca d d YV se sese m0 Wrong Landing Zone - Press any key to takeoff. se d]6[ Y^ F   mdD sd! sesd) de>Ve  f se d d x P1 * * * * * * * * * * * * * * * * * * * * * *   * Check for crashes1 * * * * * * * * * * * * * * * * * * * * * *  bd he @e bd he @e d _a[yP bd he @d bd he @d d _ua[yP e qd[V dw d%w d e d ConeHead bdw hdw bd hdwd bdw hdw b hd!wd bd hdw b hd!wd b hdwd sBody Stripes bdw hd w bdw hd d bd w hd w bd w hd d% bd hd w bd hd d bd  hd w bd  hd d% Main Body bd w hd w bd  hd d  Left Leg bdw hd bdw hdd) bdw hd bdw he d) Right Leg bd hd bd hdd) bd hd bd he d) DrawFire dq dqua, bd w hd b he e bd  hd b he e bd w hd b he e  bd  hd b he e  bd w hd bd  hde  b hde e Po; YeeV|d Ye Yd! Yfde^e@e|d!ee^e@e|d!de^ded!ee^eed!dewdd!eeeled eed!d deeed!emeeed!o" * * * * * * * * * * * * * * * * * Draw the Terrain# * * * * * * * * * * * * * * * * z^d me s ddV m s dw Yd  Y e Yd e m Y s f m seeddede]dde]e@e{de@e{ee]dee]eede@ewdd d  ddV  ae Id P  Ydw e Ydw   Y e Y   Yd e Yd  fo" * * * * * * * * * * * * * * * * * Crash Routine*" * * * * * * * * * * * * * * * *ym$T255L64MLO2BCADGEFEGDACBCADGEFEGDACB dedV$e dDpdndw& edDpdnd!w& d dDpd&  dae  d Md Id P  b  h  feedeeeeefeed%eeheee eeieedsd!se%se m Mission "sd)se$m Fail! "se se#sem Press a Key "V FV d cd2F   mdJs[oo  b dw hYV dw d o# * * * * * * * * * * * * * * *   * Splash and Menu Screens * Start Here # * * * * * * * * * * * * * * *  sV FV dcdh dd Vx d]e b d ]e b d ]e@ b Yedd)xWl Cexp&ek= Y h d YV b  Y V F V kL=cdL Yf f dw d%w d e d#ose@ b Yd)e2VV! Cexp&ek= Y h d YV b  Y V F V k ף<cd6! Yfeedeeeeefeed%eeheee sd!se%se m L U N A R"sd)se$m L A N D E R"se se#sem by Vince Long" Ye3eWV" Cexp&ek= Y h d YV b  Y V F V k ף<cd" Yfd YV dd)VF#)Artee2 pwk>ee2 pk>esese#se m System Menu"sesesem1.sd m Operate the Lander"sesesem2. "sd mAccess the Operation Manual"sesesem3. "sd mExit the System"sesdmBeta 1.2$ sese se mMake a SelectionF   md$m3T255L64MLO4BAGFEDC "units will occur whenever the ACAS is engaged.">> ""L> "Should the craft engage the ground at a speed above which the ACAS is "N> "capable of handling, a crash will occur resulting in termination of the "> "mission."? ""LV? "Additionally, it will be necessary to avoid encounters with asteroids."$? "There are many in your sector."? ""? "Section 5.0 - Fuel"? ""I@ "Prior to start of the mission your Lander is fuel with its maximun ".JV@ "capacity of fuel units. Operating thrusters deducts units from the "N@ "fuel stores as does engagement of the ACAS (see Section 4.0). When the "J@ "fuel stores are completed depleted the craft will revert to gravity "A "control."A """ "* * * END OF MANUAL * * *" .