Sunday, June 3, 2018

HP 32S II: Two Versions of Slots


HP 32S II: Two Versions of Slots

BAR | BAR | BAR
   7    |   7    |   7
   🍒  |   🍒   |  🍒

Note: Symbols that are produced by Unicode should, but may not show up on all browsers. Please make sure your browsers are updated to the latest version.  

Take a Spin

The two programs are three reel slot simulators, each with ten symbols:

0:  BAR
1:  Cherry (🍒)
2:  Orange
3:  Plum
4:  Bell (🔔)
5:  Lemon (🍋)
6:  Watermelon (🍉)
7:  Seven
8:  Apple (🍎)
9:  Shamrock ()

Slots Version 1:  Classic Adapted Version

This version is adapted from the HP-19C/HP-29C Games Solutions: Games book, which in turn, the original program was adapted from HP-65 user program by Craig A. Pearce.

Each spin has an ante of 10¢.  The results appear in the form 0.###  (ignore the left most 0.)

The payouts are these:

Cherry on the first slot, 0.1xy ( 🍒 | any | any ):  20¢
Cherry on the first two slots 0.11x ( 🍒 | 🍒 | any ):  30¢
Three of a kind other than cherries, 0.xxx where x≥2:  $1.00
Non-cherry symbol on the first two slots, BAR on the third, 0.xx0 where x≥2:  $1.00
Three BARS, 0.000:  $10.00

To operate:

1.  Initialize:  XEQ S
2.  Spin:  XEQ J
3.  Check your winnings or losses:  XEQ K

HP 32S II Program Classic Slots
(115.5 bytes)

// initialize (4.5 bytes)
S01 LBL S
S02 CLVARS
S03 STOP (R/S)

// spin (40.5 bytes)
J01 LBL J
J02 FIX 3
J03 RANDOM
J04 STO N
J05 XEQ T
J06 STO K
J07 –
J08 XEQ T
J09 STO L
J10 –
J11 XEQ T
J12 STO M
J13 1
J14 RCL K   // check for cherries
J15 x=y?
J16 GTO O
J17 RCL L
J18 xy?
J19 GTO P
J20 RCL M
J21 xy?
J22 GTO Q
J23 1
J24 XEQ U
J25 1
J26 STO U
J27 R

// three of kind check (7.5 bytes)
Q01 LBL Q
Q02 x0?
Q03 GTO P
Q04 9
Q05 DSE U

// pay the ante of 10 cents (12.5 bytes)
P01 LBL P
P02 RCL N
P03 -0.1

// accounting of the pot (6.0 bytes)
U01 LBL U
U02 STO+ J
U03 R
U04 RTN

// cherry routine (29.5 bytes)
O01 LBL O
O02 0.2
O03 XEQ U
O04 RCL L
O05 xy?
O06 GTO P
O07 0.3
O08 XEQ U
O09 GTO P

// peel digits from the spin (9.0 bytes)
T01 LBL T
T02 10
T03 *
T04 ENTER
T05 IP
T06 RTN

// recall pot (6.0 bytes)
K01 LBL K
K02 RCL J
K03 FIX 2
K04 STOP (R/S)

Source: HP-19C/29-C Solutions: Games. Hewlett Packard.  1977


Slots Version 2:  Cherries and Triples Pay 

🍒 | 🍒 | 🍒

Each spin has an ante of 25¢.  The results appear in the form 0.###  (ignore the left most 0.)  See the Take a Spin section above for the symbols used in the game.

The payouts are these:

A cherry in any one slot (0.1xy, 0.x1y, or 0.xy1):  $1.00
Any two cherries (0.11x, 0.1x1, 0.x11):  $10.00
Three BARS (0.000):  $35.00  ($15 + $20)
Three Sevens (0.777):  $70.00  ($50 + $20)
Any other triple (0.xxx, x0 and x7):  $20.00

To operate:

1.  Initialize and store your bank roll:  XEQ S
2.  Spin:  XEQ J.  The results of the slot and the resulting bank roll will automatically be displayed.

HP 32S II Program Cherries and Triples Pay
(124.0 bytes)

// initialization (6.0 bytes)
S01 LBL S
S02 CLRVARS
S03 STO J
S04 STOP (R/S)

// spin (62.5 bytes)
J01 LBL J
J02 0
J03 STO P // store in P
J04 0.25  // ante
J05 STO- J
J06 FIX 3
J07 RANDOM
J08 RND  // round to display settings
J09 PSE
J10 PSE
J11 PSE
J12 STO N
J13 0.111  // check for triple
J14 ÷
J15 STO S
J16 FP
J17 x=0?
J18 GTO T
J19 RCL N  // count for cherries
J20 XEQ P
J21 RCL S
J22 XEQ P
J23 RCL S
J24 XEQ P
J25 RCL P
J26 1
J27 –
J28 10^x 
J29 IP
J30 STO+ J
J31 GTO U

// count cherries (21.0 bytes)
P01 LBL P
P02 10
P03 *
P04 ENTER
P05 IP
P06 –
P07 STO O
P08 LASTx
P09 1
P10 xy?
P11 RTN
P12 1
P13 STO+ P
P14 RTN

// check the triple (16.5 bytes)
T01 LBL T
T02 RCL S
T03 x=0? // 3 bars
T04 XEQ K
T05 RCL S
T06 7
T07 x=y? // 3 sevens
T08 XEQ L
T09 20
T10 STO+ J
T11 GTO U

// add bonus for 3 bars (6.0 bytes)
K01 LBL K
K02 15
K03 STO+ J
K04 RTN

// add bonus for 3 sevens (6.0 bytes)
L01 LBL L
L02 50
L03 STO+ J
L04 RTN

/// show balance (6.0 bytes)
U01 LBL U
U02 RCL J
U03 FIX 2
U04 STOP (R/S)

Good luck!

Eddie

All original content copyright, © 2011-2018.  Edward Shore.   Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited.  This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author.  Please contact the author if you have questions.

1 comment:

  1. I came across your site and found that very useful information. Thanks for share with us. Now you can get Instant
    tech support for Webroot antivirus. just visit our website & call our certified technicians.

    ReplyDelete

HP Prime: Feet-Inches Calculator

HP Prime:   Feet-Inches Calculator Calculate in Feet-Inches The program FTIN is an arithmetic calculator that calculates in feet-...