# HP Forums

Full Version: (41) Game of Roulette
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
From: 65 Notes V3N9P20 by Craig Pearce.

Register usage:
00 - unused
01 - unused
02 - player's total
03 - bank balance
04 - player bet
05 - winning number from spin of wheel
06 - player guess
07 - decimal seed

Instructions:

1) XEQ SPIN
2) Enter a 6 digit plus decimal seed at SEED? prompt between 0 and 1. Press R/S.
3) At BANK? prompt, enter amount of money held by the bank / house you are trying to win and press R/S.
4) At BET \$? prompt, key how much you are betting per spin and press R/S. Valid entries are 0 through 37. The number 37 stands for the 00 place on the wheel.
5) Enter guess and press A to spin.
6) Display shows the number spun and how much you have won or lost in total. If you lose, the the amount of your bet is taken away from your winnings - if any! If you win, 35x the amount of your bet is added to your winnings. Of course, since there are 37 possible outcomes and you only get 35x added for a winning bet, the odds are in favor of the bank / house!
7) Go back to step 5.

Sample game:
XEQ SPIN
SEED? 0.123456789 R/S
BANK? 25000 R/S
BET \$? 100 R/S
5 A and see #=3 \$-100 --- so the number was 3 and I've lost \$100. Easy come, easy go.
6 A and see #=6 \$3400 so the number was 6 and I now have \$3400. (35x\$100 = \$3500 less the previous \$100 loss). Woohoo!
20 A and see #=32 \$3300, so I have lost again.
and so on.

Enhancements I would like to see: I'd like to see the numbers 00 through 37 rapidly flicker through the display while the spin is occurring to mimic the wheel.

Note: The # character on line 18 was entered synthetically. If you don't want to use it use "Num=" or something else. :-)

Code:
```             01◆LBL "SPIN"              02 FIX 0              03 CF 29              04 CLX              05 STO 02              06 "SEED?"              07 PROMPT              08 STO 07              09 "BANK?"              10 PROMPT              11 STO 03              12 "BET \$?"              13 PROMPT              14 STO 04              15 CLX              16 GTO 07              17◆LBL 06              18 "#="              19 ARCL X              20 "⊢ \$"              21 ARCL 02              22 AVIEW              23◆LBL 07              24 STOP              25◆LBL A              26 X<0?              27 GTO 04              28 STO 06              29 XEQ 00              30 38              31 *              32 INT              33 STO 05              34 RCL 06              35 X=Y?              36 GTO 01              37 RCL 04              38 ST- 02              39 ST+ 03              40 GTO 02              41◆LBL 01              42 RCL 04              43 35              44 *              45 ST+ 02              46 ST- 03              47◆LBL 02              48 RCL 03              49 X<0?              50 GTO 05              51 RCL 02              52 RCL 05              53 GTO 06              54◆LBL 04              55 ABS              56 STO 04              57 GTO 06              58◆LBL 05          59 "BANK BUSTS"              60 PROMPT              61 RTN              62◆LBL 00              63 RCL 07              64 997              65 *              66 FRC              67 STO 07              68 END```
Reference URL's
• HP Forums: https://www.hpmuseum.org/forum/index.php
• :