02 - Mondlandung / Luna Lander

Post Reply
Peet
Posts: 258
Joined: Tue Sep 29, 2020 12:01 am
Location: Germany

02 - Mondlandung / Luna Lander

Post by Peet »

Like the HiLo Game I originally wrote this program for my Commodore PR100 in 1979 and then ported it to the HP41CV.
Compared to the PR100 on the HP41 there is now text for the values and a countdown for the input (with PSE instead of R/S).

Usage:
Display: FUEL = X then countdown for input
Input: (during the countdown) 0-75 (FUEL to slow down speed)
Display: first FUEL = X then speed/altitude

Code: Select all

LBL "MO"
LBL 00
SF 27 
CF 29 
FIX 0 
800
STO 03 
500 
STO 02
3 E3 
STO 01 
CLX
STO 06 
"LUNA LANDER"
AVIEW
LBL 02
ABS 
75 
X<>Y 
X>Y?
GTO 04 
ST- 03 
.9 
* 
6
- 
INT 
ST- 02 
1
ST+ 06 
RCL 01 
RCL 02
- 
STO 01
LBL 04
"FUEL=" 
ARCL 03 
AVIEW
RCL 03 
X<0? 
GTO 03
PSE 
RCL 01 
3 
+ 
X<0?
GTO 03 
RCL 02 
+ 
6 
- 
X<0? 
GTO 01 
"V:"
RCL 02 
CHS 
ARCL X
"|- H:" 
ARCL 01 
AVIEW
PSE 
PSE 
CLX 
"**3"
AVIEW 
PSE 
"|-**2" 
AVIEW 
PSE 
"|-**1" 
AVIEW
PSE 
"|-**0"
AVIEW 
PSE 
PSE 
GTO 02
LBL 01
SF 25 
XEQ "TO" 
BEEP
"GUT " 
ARCL 06 
"|- SEC." 
AVIEW 
GTO 05
LBL 03
TONE 0 
"BAD LUCK "
"|-CRASHED" 
AVIEW
LBL 05
CF 27 
SF 29 
FIX 4 
END
Attachments
02_MO_Mondlandung.raw
(199 Bytes) Downloaded 153 times
My programmable calculators - former: CBM PR100, HP41CV, HP28S, HP11C - current: HP48G(256kB), HP35S, Prime, DM41X, DM42
Post Reply