The Museum of HP Calculators

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

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