The Museum of HP Calculators

# Moon Rocket Lander for the HP-33S

This program is by Ed Look and is used here by permission.

This program is supplied without representation or warranty of any kind. Ed Look and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

## Overview

This is a port, to the HP-33S, of the classic moon lander game, as printed in the original HP-34C Applications booklet (which I believe came along with the calculator in the original box) under the Recreation chapter.

So, it's bound to have a different "feel" on the 33S than when played the 34C or its predecessors, all of which had a red LED display showing only one stack level. On the 33S, you will be able to see the Y stack level, which might be annoying.

I will start with label "L", for "lander" (the memory register labels are also arbitrary). "*" will mean the multiplication sign, "/" will be the division sign, ^2 will mean squared (etc.), ^1/2 will mean square root; and when there's a menu choice step in the program, I will not list the whole instruction on one line, but the menu part on one line and the separate keystroke from a keyboard key on the next line, the way it would occur in sequence if you were keying in the instruction on the 33S.

## Listing

```(left shift) LBL L
500
STO V
-50
STO Q
60
STO R
(left shift) LBL M
RCL V
(DISPLAY FIX)
4
10,000
/
RCL Q
(left shift) ABS
+
RCL Q
(right shift) x?0
>
(left shift) GTO Q
x<>y
+/-
(right shift) PSE
(right shift) PSE
(display FIX)
0
RCL R
(right shift) PSE
3
(right shift) PSE
2
(right shift) PSE
1
(right shift) PSE
0
(right shift) PSE
(left shift)LBL N
RCL R
x<>y
(right shift)x?y
>
(left shift) GTO P
STO- R
2
*
5
-
STO S
2
/
RCL V
+
RCL Q
+
RCL S
STO+ Q
R(down)
STO V
(right shift) IP
(right shift) x?0
>
(left shift) GTO M
RCL Q
(left shift) LBL O
(right shift) PSE
(right shift) GTO O
(left shift) LBL P
RCL R
25
-
STO+ V
2
*
STO+ Q
RCL V
10
*
RCL Q
^2
+
^1/2
+/-
(left shift) GTO O
(left shift) LBL Q
x<>y
+/-
x<>y
RTN
```