(41) Game of Roulette
07-20-2021, 06:09 PM (This post was last modified: 07-28-2021 11:23 AM by Gene.)
Post: #1
 Gene Moderator Posts: 1,200 Joined: Dec 2013
(41) Game of Roulette
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
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)