Blackjack Emulador Free42 HP-42S (original de Richard Garner- adaptada J. Schwarzmann 2023)
Este programa es una reelaboración del programa Blackjack que se encuentra en el paquete de aplicación estándar 41c.
Ejecute CARD y configurará el programa y el menú.
Ingrese su apuesta y presione REPARTIR.
MAS significa añadir otra carta a tu mano.
QUÉDO significa que jugarás las cartas que tengas.
BARAJAR significa que desea barajar manualmente la baraja. Si no desea cambiar su apuesta en la siguiente mano, simplemente presione REPARTIR.
00 { 616-Byte Prgm }
01▸LBL "CARD"
02 CLMENU
03 CLST
04 "REPARTIR"
05 KEY 1 XEQ 34
06 "MAS"
07 KEY 2 XEQ 31
08 "QUEDO"
09 KEY 3 XEQ 32
10 "BARAJAR"
11 KEY 4 XEQ 33
12 SIZE 27
13 FIX 00
14 CF 28
15 CF 29
16 SF 27
17▸LBL 21
18 CLA
19 ASTO 19
20 1
21 STO 15
22 RAN
23 RCL 14
24 ×
25 IP
26 1
27 +
28▸LBL 02
29 RCL IND 15
30 X>Y?
31 GTO 03
32 -
33 ISG 15
34▸LBL 99
35 GTO 02
36▸LBL 03
37 DSE IND 15
38▸LBL 15
39 DSE 14
40 12
41 RCL 14
42 X>Y?
43 GTO 04
44 XEQ 33
45▸LBL 04
46 RCL 15
47 STO 16
48 10
49 X≤Y?
50 GTO 00
51 X<>Y
52 STO 16
53 1
54 X=Y?
55 GTO 41
56 CLA
57 ARCL ST Y
58 GTO 01
59▸LBL 00
60 STO 16
61 CLX
62 10
63 X=Y?
64 GTO 10
65 1
66 +
67 X=Y?
68 GTO J
69 1
70 +
71 X=Y?
72 GTO 25
73 "K"
74 GTO 01
75▸LBL 41
76 "A"
77 CF 07
78 GTO 01
79▸LBL 25
80 "Q"
81 GTO 01
82▸LBL J
83 "J"
84 GTO 01
85▸LBL 10
86 "10"
87▸LBL 01
88 ASTO 19
89 RCL 16
90 MENU
91 RTN
92▸LBL 33
93 "BARAJAR"
94 AVIEW
95 1,013
96 ENTER
97 8
98▸LBL 14
99 STO IND ST Y
100 ISG ST Y
101 GTO 14
102 104
103 STO 14
104 RTN
105▸LBL 34
106 CF 09
107 SF 07
108 ABS
109 IP
110 FS?C 22
111 STO 22
112 RCL 22
113 STO 20
114 SF 06
115 CLA
116 ASTO 26
117 ASTO 25
118 XEQ 21
119 RCL 15
120 STO 17
121 XEQ 21
122 STO 23
123 CF 08
124 FS? 07
125 SF 08
126 CLA
127 ARCL 19
128 ARCL 25
129 ASTO 25
130 "YO MUESTRO "
131 ARCL 25
132 AVIEW
133 SF 07
134 0
135 STO 24
136 XEQ 21
137 XEQ 23
138 XEQ 21
139 XEQ 23
140 RCL 24
141 10
142 FS? 07
143 CLX
144 +
145 21
146 X≠Y?
147 SF 09
148 FS? 09
149 RTN
150 21,5
151 STO 24
152 1,5
153 STO× 20
154 "BLACKJACK"
155 AVIEW
156 PSE
157▸LBL 32
158 CF 06
159 FS? 07
160 GTO 05
161 11
162 RCL 24
163 X>Y?
164 GTO 05
165 10
166 STO+ 24
167▸LBL 05
168 CF 07
169 FS? 08
170 SF 07
171 RCL 17
172 STO 15
173 XEQ 04
174 XEQ 24
175 FS? 07
176 GTO 07
177 11
178 RCL 23
179 X≠Y?
180 GTO 07
181 21,5
182 STO 23
183 "YO TENGO BLACKJAC"
184 ├"K"
185 AVIEW
186 PSE
187 GTO 07
188▸LBL 06
189 XEQ 21
190 XEQ 24
191▸LBL 07
192 FS? 06
193 GTO 09
194 FC? 09
195 GTO 08
196 RCL 23
197 17
198 X≤Y?
199 GTO 08
200 FS? 07
201 GTO 06
202 11
203 RCL 23
204 X>Y?
205 GTO 06
206 7
207 X>Y?
208 GTO 06
209 10
210 STO+ 23
211▸LBL 08
212 21,5
213 RCL 23
214 X>Y?
215 XEQ 22
216 RCL 24
217 -
218 X=0?
219 XEQ 20
220 X>0?
221 SF 06
222▸LBL 09
223 RCL 20
224 FS? 06
225 +/-
226 STO+ 21
227 "TU BANCA ES $"
228 ARCL 21
229 AVIEW
230 RTN
231▸LBL 31
232 XEQ 21
233 XEQ 23
234 RCL 24
235 21,5
236 X>Y?
237 RTN
238 "BUST"
239 AVIEW
240 PSE
241 GTO 05
242▸LBL 22
243 "BUST"
244 AVIEW
245 PSE
246 0
247 RTN
248▸LBL 23
249 STO+ 24
250 CLA
251 ARCL 26
252 ARCL 19
253 ASTO 26
254 "TU TIENES "
255 ARCL 26
256 AVIEW
257 RTN
258▸LBL 24
259 STO+ 23
260 CLA
261 ARCL 25
262 ARCL 19
263 ASTO 25
264 "YO TENGO "
265 ARCL 25
266 AVIEW
267 PSE
268 RTN
269▸LBL 20
270 "EMPATE"
271 AVIEW
272 PSE
273 STO× 20
274 .END.