The Museum of HP Calculators

Wari 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 Pac 1. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell. The Barcode for this program was provided by Brian Ward.

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
Display the Program Barcode (.pdf) for printing and scanning

Program Listing

LINE  KEYS
 01 LBL "WARI67"
 02 LBL 10
 03 LBL A
 04 CHS
 05 7
 06 +
 07 SF 01
 08 GTO 09
 09 LBL 14
 10 LBL E
 11 6
 12 +
 13 CF 01
 14 LBL 09
 15 STO 22
 16 STO 25
 17 RCL IND 25
 18 X=0?
 19 /
 20 STO 23
 21 0
 22 STO IND 25
 23 LBL 01
 24 7DSZ
 25 GTO 08
 26 12
 27 STO 25
 28 LBL 08
 29 RCL 25
 30 RCL 22
 31 X=Y?
 32 GTO 01
 33 1
 34 ST+ IND 25
 35 RCL 23
 36 1
 37 -
 38 STO 23
 39 X=0?
 40 GTO 05
 41 GTO 01
 42 LBL 12
 43 LBL C
 44 12
 45 STO 25
 46 4
 47 LBL 00
 48 STO IND 25
 49 7DSZ
 50 GTO 00
 51 0
 52 STO 20
 53 STO 21
 54 LBL 06
 55 XEQ 11
 56 FS? 00
 57 GTO 13
 58 FS? 01
 59 GTO 19
 60 GTO 13
 61 LBL 11
 62 LBL B
 63 ADV
 64 6
 65 STO 25
 66 LBL 03
 67 RCL IND 25
 68 13
 69 RCL 25
 70 -
 71 STO 25
 72 CLX
 73 +
 74 RCL IND 25
 75  E2
 76 /
 77 +
 78 7PRTX
 79 RCL 25
 80 13
 81 -
 82 CHS
 83 STO 25
 84 7DSZ
 85 GTO 03
 86 ADV
 87 RTN
 88 LBL 13
 89 LBL D
 90 RCL 20
 91 RCL 21
 92  E2
 93 /
 94 +
 95 RTN
 96 LBL 05
 97 RCL 25
 98 6.5
 99 -
100 RCL 22
101 LASTX
102 -
103 *
104 X>0?
105 GTO 06
106 LBL 07
107 2
108 RCL IND 25
109 X=Y?
110 GTO 07
111 3
112 X#Y?
113 GTO 06
114 LBL 07
115 FS? 01
116 GTO 09
117 RCL 21
118 +
119 STO 21
120 GTO 07
121 LBL 09
122 RCL 20
123 +
124 STO 20
125 LBL 07
126 0
127 STO IND 25
128 7ISZ
129 7
130 RCL 25
131 X=Y?
132 GTO 06
133 13
134 X=Y?
135 GTO 06
136 GTO 07
137 LBL 19
138 LBL e
139 1
140 STO 25
141 LBL 02
142 RCL IND 25
143 X=0?
144 GTO 16
145 3
146 X>Y?
147 GTO 04
148 LBL 16
149 LBL b
150 7ISZ
151 RCL 25
152 7
153 X#Y?
154 GTO 02
155 LBL 17
156 LBL c
157 RCL 24
158 PI
159 +
160 8
161 Y^X
162 FRC
163 STO 24
164 6
165 *
166 1
167 +
168 R-P
169 INT
170 STO 00
171 6
172 +
173 STO 25
174 RCL IND 25
175 X=0?
176 GTO 17
177 RCL 00
178 7PRTX
179 XEQ 14
180 RTN
181 LBL 04
182 RCL 25
183 STO 00
184 12
185 STO 25
186 LBL 18
187 LBL d
188 RCL IND 25
189 X=0?
190 GTO 08
191 11
192 /
193 FRC
194 11
195 *
196 RCL 25
197 RCL 00
198 -
199 X=Y?
200 GTO 09
201 LBL 08
202 7DSZ
203 RCL 25
204 6
205 X=Y?
206 GTO 08
207 GTO 18
208 LBL 08
209 RCL 00
210 STO 25
211 GTO 16
212 LBL 09
213 RCL 25
214 6
215 -
216 7PRTX
217 XEQ 14
218 RTN
219 STOP
220 END

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