Skunk for the HP-41C/CV/CX/42

This program created and uploaded by Russ Gilbert.

It is free.

This program is supplied without representation or warranty of any kind. Russ Gilbert 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.

Overview

Doesn't require CX functions. Requires 77 registers for program, 15 for data (41C with extra memory).

Filename SKNK81.RAW. XEQ 'SKNK'.

The game of Skunk is a two dice game, better known on the HP48 by Doug Cannon. HPGene Wright has a 41 version on his site www.rskey.org/gene/hpgene, it requires the CX functions. I haven't asked Doug if I can use his name, Gene says OK. I am greatful to both.

You roll the dice with the A key (in USER), you stay with the B key. This Skunk has options to start, hit R/S for the default.
1. Target score, default 100. 2. Who is first, default player. 3. Auto Roll (your first roll is automatic.) default Yes. 4. Max die, 7 is the default. You can pick any number for the max die, but 6 to 8 are recommended. You get less 'Skunked' and 'Double' with 7 or 8 than with max die 6. If only one is a '1' then you are 'Skunked' and lose your turn. If two '1's are rolled you get the dreaded 'Double' and your score is set to zero. The winner is the one who gets the highest score over the target score after who goes second. After the game is over, R/S will start over, selecting only max die.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download zip of raw and the text file of the listing. program for disk or PC HP-IL Card download (or V41 emulator), also text listing.

Program Listing

LINE  KEYS
 01 LBL "SKNK"
 02 CLA
 03 "SEED? 0-.99"
 04 AVIEW
 05 PROMPT
 06 STO 00
 07 FIX 00
 08 SF 27
 09 CF 00
 10 CF 02
 11 0
 12 STO 15
 13 ":"
 14 ASTO 11
 15 ","
 16 ASTO 09
 17 " "
 18 ASTO 12
 19 "GOAL? 100"
 20 100
 21 PROMPT
 22 STO 10
 23 1
 24 STO 14
 25 "N"
 26 ASTO Y
 27 "PLYR 1ST? Y"
 28 AON
 29 STOP
 30 AOFF
 31 ASTO X
 32 X=Y?
 33 XEQ 17
 34 "AUTO ROLL? Y"
 35 AON
 36 STOP
 37 AOFF
 38 ASTO X
 39 X=Y?
 40 XEQ 19
 41 LBL 16
 42 CLA
 43 "MAXDIE? 6-8"
 44 7
 45 PROMPT
 46 STO 16
 47 CF 29
 48 0
 49 STO 01
 50 STO 02
 51 STO 03
 52 STO 04
 53 STO 05
 54 RCL 15
 55 1
 56 X=Y?
 57 SF 00
 58 3
 59 STO 13
 60 GTO IND 14
 61 LBL 17
 62 2
 63 STO 14
 64 SF 02
 65 RTN
 66 LBL 19
 67 SF 00
 68 1
 69 STO 15
 70 RTN
 71 LBL 01
 72 2
 73 STO 06
 74 1
 75 STO 07
 76 3
 77 STO 13
 78 FS?C 00
 79 GTO 18
 80 XEQ 09
 81 STO 04
 82 XEQ 09
 83 STO 05
 84 +
 85 ST+ 03
 86 LBL 18
 87 CLA
 88 "PL:"
 89 ARCL 04
 90 ARCL 09
 91 ARCL 05
 92 ARCL 09
 93 ARCL 03
 94 ARCL 11
 95 ARCL 01
 96 ARCL 12
 97 ARCL 02
 98 AVIEW
 99 TONE 07
100 XEQ 08
101 XEQ 07
102 STOP
103 LBL 08
104 RCL 04
105 1
106 X#Y?
107 RTN
108 RCL 05
109 X#Y?
110 RTN
111 TONE 03
112 TONE 01
113 RCL 15
114 1
115 X=Y?
116 SF 00
117 0
118 STO IND 07
119 STO 04
120 STO 05
121 STO 03
122 XEQ 06
123 CLA
124 "** DBL **"
125 AVIEW
126 GTO IND 06
127 LBL 09
128 RCL 16
129 RCL 00
130 9821
131 *
132 .211327
133 +
134 FRC
135 STO 00
136 *
137 INT
138 1
139 +
140 RTN
141 LBL 07
142 RCL 04
143 1
144 X=Y?
145 XEQ 10
146 RCL 05
147 X=Y?
148 XEQ 10
149 RTN
150 LBL 10
151 CLA
152 "*SKUNKED*"
153 AVIEW
154 XEQ 06
155 RCL 15
156 1
157 X=Y?
158 SF 00
159 0
160 STO 04
161 STO 05
162 STO 03
163 GTO IND 06
164 LBL 02
165 2
166 STO 07
167 1
168 STO 06
169 XEQ 09
170 STO 04
171 XEQ 09
172 STO 05
173 +
174 ST+ 03
175 CLA
176 "HP:"
177 ARCL 04
178 ARCL 09
179 ARCL 05
180 ARCL 09
181 ARCL 03
182 ARCL 11
183 ARCL 02
184 ARCL 12
185 ARCL 01
186 AVIEW
187 TONE 03
188 XEQ 08
189 XEQ 07
190 RCL 02
191 RCL 03
192 +
193 STO 08
194 RCL 10
195 X<=Y?
196 GTO 03
197 RCL 01
198 RCL 10
199 X<=Y?
200 GTO 02
201 DSE 13
202 GTO 02
203 LBL 03
204 RCL 03
205 ST+ 02
206 FC? 02
207 XEQ 06
208 RCL 15
209 1
210 X=Y?
211 SF 00
212 0
213 STO 04
214 STO 05
215 STO 03
216 GTO 01
217 LBL 06
218 RCL 01
219 RCL 10
220 X<=Y?
221 GTO 14
222 RCL 02
223 RCL 10
224 X<=Y?
225 GTO 14
226 RTN
227 LBL 14
228 RCL 01
229 RCL 02
230 X=Y?
231 GTO 15
232 X<Y?
233 GTO 05
234 GTO 12
235 LBL 15
236 CLA
237 "*TIE*"
238 ARCL 01
239 ARCL 11
240 ARCL 02
241 BEEP
242 GTO 13
243 LBL 05
244 CLA
245 "PLWIN "
246 ARCL 01
247 ARCL 11
248 ARCL 02
249 AVIEW
250 TONE 06
251 TONE 05
252 TONE 03
253 TONE 05
254 TONE 04
255 TONE 03
256 TONE 09
257 GTO 13
258 LBL A
259 GTO 01
260 LBL B
261 RCL 03
262 ST+ 01
263 0
264 STO 03
265 STO 08
266 FS? 02
267 XEQ 06
268 GTO 02
269 LBL 12
270 CLA
271 "HPWIN "
272 ARCL 02
273 ARCL 11
274 ARCL 01
275 AVIEW
276 TONE 06
277 TONE 06
278 TONE 03
279 TONE 06
280 TONE 05
281 TONE 03
282 LBL 13
283 SF 29
284 PROMPT
285 GTO 16
286 END

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