a **** HP BASIC PROGRAM LIBRARY ************************************b 1b LANDER: ROCKET LANDING VEHICLE8b \b 36684 REV A -- 10/73cb b$ **** CONTRIBUTED PROGRAM **************************************b. PROGRAM LANDERb8 bB bG ()cL "WELCOME TO THE PUBLIC SCHOOL FOR BUDDING ASTRONAUTS!"'cV 9c`A$ ((, )kcj " DO YOU WANT INSTRUCTIONS (YES OR NO) ";uct M$}c~ c (M$,)"N" c "YOU ARE AT THE CONTROLS OF A ROCKET LANDING VEHICLE."c d "INITIALLY YOU ARE A GIVEN DISTANCE ABOVE THE SURFACE ";.d "MOVING";Xd "DOWNWARD (VELOCITY IS NEGATIVE)."d "YOU CHOOSE THE AMOUNT OF FUEL TO BE BURNED DURING THE NEXT ";d "ONE SECOND";d "OF TIME."d e " IF YOU BURN ZERO, THEN YOU WILL FALL FASTER BECAUSE OF ";$e "GRAVITY."8e P  : P}e " IF YOU BURN EXACTLY THAT REQUIRED TO OVERCOME GRAVITY, ";e  "THEN"e "YOUR VELOCITY WILL BE CONSTANT."e " IF YOU BURN MORE, THEN YOU WILL SLOW DOWN OR EVEN START "; f( "TO MOVE"3f2 "UPWARD (VELOCITY IS POSITIVE)!"Mf7 P  : P:::Uf< fF "THE IDEA IS TO GET THE LANDER DOWN TO THE SURFACE, LANDING ";fP "WITH AS";fZ "LITTLE VELOCITY AS POSSIBLE."gd "THERE IS MORE THAN ENOUGH FUEL, BUT BE CAREFUL NOT TO WASTE ";(gn "IT!"0gx hg "LANDING ON THE MOON IS EASIER, TRY THAT FIRST."pg xg g "GOOD LUCK AND HAPPY LANDINGS!"g g X0:V0g g g "LOCATION: MOON OR EARTH ";g M$h (); h h K1h (M$,)"M" , FFB11mH XQs l>mR TTIm\ 8 fmf T8 T8 T9  mp TT9,"OUT OF FUEL"mz FB1m XXVT9AT9m VVAT9m AGm T8(V(VVAX))Gm T8T9  n XXV(T9)A(T9)+n VVA(T9)8n TTEn T,X,Vcn T8(V(VAX))Gxn T8   n XXVAn VVAn n TTT9n FFB1T8n$ TTT8n. VVAT8n8 T,O,V,FnB nL oV V  9o` (()) j ,~ , , , eoj "YOU ARE NOW A QUALIFIED ASTRONAUT."pot o~ "AS GENTLE AS A KITTEN'S PURR!!"o o "A BUTTERFLY COULDN'T HAVE DONE BETTER!"o o "AS SOFT AS A SNOWFLAKE!" p 6p "MR. SPOCK WOULD BE PROUD OF YOU!!!"Ap Sp V < zp (())  , , ,( p "A BIT ROUGH, BUT YOU ARE STILL IN ONE PIECE!"p p "IF YOU HAD BEEN DRIVING A 1980 LTD, THAT WOULD HAVE COST";q " YOU $500!"q Mq "ANY FASTER AND YOU WOULD HAVE BOUNCED!"Xq q( "YOU HAD BETTER CHECK YOU LANDING GEAR!!"q2 q< V  qF (()) P ,d ,x , , qP "IS YOUR MEDICAL INSURANCE PAID UP??" rZ Erd "YOU GOT DOWN, BUT YOU WILL NEVER BE AN ASTRONAUT!"Prn rx "NEIL ARMSTRONG DID IT THE FIRST TIME!!"r r "THE BEST LAID SCHEMES OF MICE AND MEN,"r " OFT' GO ASTRAY."r s "HAVE YOU EVER THOUGHT OF A DIFFERENT LINE OF WORK??")s Ls (())  , , xs "YOUR NEXT OF KIN WILL BE NOTIFIED."s s "YOU JUST CREAMED A 29 MEGABUCK LANDER!"s s "AREN'T YOU GLAD THIS IS ONLY A COMPUTER SIMULATION!!"t t T CREAMED A 29 MEGABUCK LAND