The Museum of HP Calculators

Hangman (HP41 Modified) for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Games Solution Book. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard 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.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "HNGM41"
 02 LBL 10
 03 LBL A
 04 FS? 00
 05 GTO 18
 06 CLX
 07 STO 04
 08 STO 08
 09 XEQ 03
 10 SF 00
 11 7DSP0
 12 RCL 21
 13 7PRTX
 14 RTN
 15 LBL 13
 16 LBL D
 17 9
 18 +
 19 LBL 12
 20 LBL C
 21 9
 22 +
 23 LBL 11
 24 LBL B
 25 STO 03
 26 CLX
 27 STO 05
 28 STO 06
 29 RCL 00
 30 STO 02
 31 LBL 25
 32 1
 33 ST+ 06
 34 RCL 06
 35 6
 36 X=Y?
 37 SF 02
 38 RCL 01
 39 FS?C 02
 40 STO 02
 41 RCL 02
 42  E2
 43 *
 44 FRC
 45 STO 02
 46 LASTX
 47 INT
 48 RCL 03
 49 X=Y?
 50 XEQ 00
 51 RCL 06
 52 RCL 21
 53 X#Y?
 54 GTO 25
 55 .01
 56 RCL 04
 57 RCL 05
 58 X=0?
 59 RDN
 60 +
 61 FRC
 62 STO 04
 63 7DSP2
 64 LASTX
 65 RTN
 66 LBL 00
 67 10
 68 X^2
 69 LASTX
 70 RCL 06
 71 X=Y?
 72 RDN
 73 CLX
 74 RCL 05
 75 *
 76 RCL 06
 77 +
 78 STO 05
 79 RTN
 80 LBL 19
 81 LBL e
 82 7CLREG
 83 LBL 14
 84 LBL E
 85 CF 00
 86 CLX
 87 RTN
 88 LBL 03
 89 RCL 20
 90 X#0?
 91 GTO 05
 92 9
 93 STO 25
 94 STO 09
 95 7P<>S
 96 CF 22
 97 7DSP0
 98 CLX
 99 STO 22
100 LBL 04
101 .009
102 RDTAX
103 PSE
104 FS?C 22
105 GTO 04
106 7P<>S
107 XEQ 07
108 STO 20
109 LBL 05
110 1
111 -
112 STO 20
113 XEQ 07
114 STO 21
115 RCL 08
116 STO 25
117 CLX
118 STO IND 25
119 7ISZ
120 STO IND 25
121 7DSZ
122 CLX
123 STO 08
124 LBL 06
125 XEQ 07
126 RCL IND 25
127  E2
128 *
129 +
130 STO IND 25
131 1
132 ST+ 08
133 5
134 RCL 08
135 X=Y?
136 XEQ 09
137 RCL 21
138 RCL 08
139 X#Y?
140 GTO 06
141 5
142 -
143 X<0?
144 RCL 08
145 X>0?
146 XEQ 09
147 RTN
148 LBL 07
149 RCL 22
150 X#0?
151 GTO 08
152 RCL 09
153 X<> 25
154 7ISZ
155 RCL IND 25
156 STO 22
157 X<>Y
158 X<> 25
159 STO 09
160 RCL 22
161 LBL 08
162  E2
163 *
164 FRC
165 STO 22
166 LASTX
167 INT
168 RTN
169 LBL 09
170 2
171 *
172 10^X
173 ST/ IND 25
174 7ISZ
175 RTN
176 STOP
177 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall