(41) Game of Roulette

[Gene]

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