The Museum of HP Calculators

Risk for the HP-41C/CV/CX

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

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