Sharp EL-5500 III: Slots:
Triples and Cherries Pay
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
This program is a three
reel slot simulator, each with ten symbols:
0: BAR
1: Cherry (🍒)
2: Orange
3: Plum
4: Bell (🔔)
5: Lemon (🍋)
6: Watermelon (🍉)
7: Seven
8: Apple (🍎)
9: Shamrock (☘)
To see the version
for the HP 32SII, please click here: https://edspi31415.blogspot.com/2018/06/hp-32s-ii-two-versions-of-slots.html
🍒 | 🍒 | 🍒
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,
x≠0 and x≠7): $20.00
Note: You can use any line numbering system,
I used the line numbers 1400-1499 for this program. The first “D” on line 1400 is
optional, but is there to make the program a defined program for the EL-5500
III, running it by pressing [DEF] [ D ].
If you are using another calculator, this may not be an option, so
ignore the “D” in that case.
Sharp EL-5500 III Program Slots: Triples and Cherries Pay
1400: “D”: PAUSE “Slots”
1402: CLEAR
1404: INPUT “Bankroll:
$”; J
1406: P = 0
1408: J = J - .25
1410: N = .1*(RND
10-1)+.01*(RND 10-1)+.001*(RND 10 – 1)
1412: PRINT USING “########”;
1000*N
1414: S = N/.111
1416: IF (S-INT(S)) =
0 THEN 1450
1418: X = N: GOSUB
1430
1420: X = S: GOSUB
1430
1422: X = S: GOSUB
1430
1424: J = J +
INT(TEN (P – 1)) // TEN: 10^x
1426: GOTO 1470
1430: I = INT(X*10)
1432: S = 10*X – I
1434: IF I = 1 THEN
LET P = P + 1
1436: RETURN
1450: IF S = 0 THEN
LET J = J + 35
1452: IF S = 7 THEN
LET J = J + 50
1454: IF S<>0
AND S<>7 THEN LET J = J + 20
1456: GOTO 1470
1470: PRINT “Bank $”;
USING “##########.##”; J
1472: INPUT “1 =
Again ? :”, C
1474: IF C = 1 THEN
1406
1476: END
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.