This program is taken from the SR-56 Applications Book, by Texas Instruments.

This game will play the classic game of Lunar Lander. It is still fun, although having to key in the entire program every time you turn this calculator on seems very ancient these days.

Notes: You can burn 0 to free fall. Max burn is 75 pounds of fuel in a second. Each burn should be an integer. A negative velocity indicates a descent. A positive velocity means you are ascending! When you run out of fuel, you free fall and impact on the surface. Five pounds of fuel will offset the force of gravity and keep your velocity constant.

**Instructions:** You may choose your on-board fuel, descent speed,
and starting height. 1) Load memories as follows: Starting fuel: 600 STO
0, Starting velocity: -500 STO 1 (note: that IS a negative), Starting
altitude: 2500 STO 2. 2) Burn 1 second of fuel. Input the amount of fuel
to be burned and press R/S. 3) The display will show the new rate of
descent and new altitude in the form -velocity.altitude. 4) Continue
burning fuel until you either land successfully or crash. 5) A
successful landing will show a 0 in the display. Congratulations! 6) A
crash will flash your impact velocity in the display. 7) You may check
the remaining fuel at any time by pressing RCL 0.

A sucessful landing is anything under 5 feet per second. (Although that would still be quite a jolt!)

Line Keycode Instruction 00 49 FIX 01 00 0 02 56 CP 03 47 X >= T 04 00 0 05 07 7 06 00 0 07 32 X <> T 08 07 7 09 05 5 10 47 X >= T 11 01 1 12 04 4 13 32 X <> T 14 34 RCL 15 00 0 16 74 - 17 32 X <> T 18 12 INV 19 47 X >= T 20 02 2 21 03 3 22 32 X <> T 23 33 STO 24 03 3 25 94 = 26 33 STO 27 00 0 28 34 RCL 29 02 2 30 84 + 31 34 RCL 32 01 1 33 84 + 34 52 ( 35 34 RCL 36 03 3 37 74 - 38 05 5 39 53 ) 40 35 SUM 41 01 1 42 54 / 43 02 2 44 94 = 45 33 STO 46 02 2 47 56 CP 48 37 X = T 49 07 7 50 08 8 51 93 +/- 52 47 X >= T 53 09 9 54 03 3 55 34 RCL 56 00 0 57 37 X = T 58 08 8 59 00 0 60 34 RCL 61 02 2 62 64 * 63 04 4 64 93 +/- 65 19 10^X 66 84 + 67 34 RCL 68 01 1 69 47 X >= T 70 07 7 71 05 5 72 93 +/- 73 94 = 74 93 +/- 75 94 = 76 49 FIX 77 04 4 78 41 R/S 79 42 RST 80 34 RCL 81 02 2 82 64 * 83 01 1 84 00 0 85 93 +/- 86 84 + 87 34 RCL 88 01 1 89 43 X^2 90 94 = 91 48 SQRT 92 93 +/- 93 33 STO 94 01 1 95 00 0 96 33 STO 97 02 2 98 34 RCL 99 01 1

Visitors since 6/21/97