American Roulette for the HP-41

Overview
 

-With this program, you play Roulette against your HP-41
-Several wagers are proposed and you bet ( or not ) after each PROMPT
-Then the wheel spins, the HP-41 displays the result and finally, your new cash is displayed.
-The board looks like this:
 
 

-The different wagers are:

  RED/BLACK                                                                                     paid 1  to  1

  ODD/EVEN             0 and 00 are neither odd nor even                      paid  1  to  1

  LOW/HIGH

        low = numbers between 1 and 18                   paid  1  to  1
       high = numbers between 19 and 36                 paid  1  to  1

  COLUMN 1-2-3

       Column1 = 1 4 7 ...... 31 34                             paid  2  to  1  as written on the board
       Column2 = 2 5 8 ....... 32 35                            ----  2  to  1  as written on the board
       Column3 = 3 6 9 ....... 33 36                            ----  2  to  1  as written on the board

  DOZEN 1-2-3

      1st Dozen =  1 to 12                                          paid  2  to  1
      2nd Dozen = 13 to 24                                        ----  2  to  1
      3rd Dozen =  25 to 36                                       ----  2  to  1

  STREET 1 to 12

      Street1 = 1 2 3                                                  paid 11  to  1
      Street2 = 4 5 6                                                  ---- 11  to  1
       .....................                                                     .................

      Street12 = 34 35 36                                           ---- 11 to  1

  STRAIGHT UP       You bet on a single number     paid   35 to  1
 

-Other wagers are possible but they are omitted here.
 

Program Listing
 

Data Registers:           •  R00 = random numbers            ( Registers R00 and R01 are to be initialized before executing "ROULETT" )

                                      •  R01 = your Cash

         R02 = number where the ball falls        R06 = odd       R10 = column 1     R13 = 1st dozen     R16 = street 1         R28 = 0
         R03 = what you've won ( or lost )       R07 = even      R11 = column 2     R14 = 2nd dozen    R17 = street 2         R29 = 1
                                                                   R08 = low       R12 = column 3     R15 = 3rd dozen     .....................          ............
                                                                   R09 = high                                                                   R27 = street 12       R64 = 36
                                                                                                                                                                                      R65 = 00 = 37
                                         R06 to R65 contain only the bets you've made on these wagers.

Flags: /
Subroutines: /

-If you don't have an HP-41CX, replace lines 02-03 with  RCL 00   RCL 01   CLRG   STO 01   X<>Y   STO 00
-PROMPT may be replaced by  AVIEW  PSE
-Lines 83 to 90 are only useful to simulate the spinning wheel ; otherwise, they can be deleted.

-The append character is denoted  ~
 
 

 
   ( 428 bytes / SIZE 066 )

 
Example:     1  STO 00    5000  STO 01  ( if you start with 5000$ )   XEQ "ROULETT"

   Suppose you want to bet  200$  on BLACK ,  200$  on ODD  ,  200$  on column 3 , 200$  on street 8  and  100$  on number 16

   RED/BLACK?          key in  200  ENTER^  2  R/S
   ODD/EVEN?           200  ENTER^  1  R/S  or simply  1  R/S  ( because the previous bet: 200$ is still in X-register )
   LOW/HIGH?            simply press R/S
   COLUMN 1-2-3?    3  R/S - but for a bet of 100$, key in 100  ENTER^  3  R/S
   DOZEN 1-2-3?        R/S
   STREET 1-12?         8  R/S
   STRAIGHT UP?      100  ENTER^  16  R/S
   STRAIGHT UP?       R/S

   The HP-41 displays the spinning wheel, then 11 BLACK ODD and finally your new cash:  C=4900$

   You have betted 900$  and you receive  200x2 + 200x2 = 800$
   So,  C = 5000$ - 900$ + 800$ = 4900$

   Press  R/S  to continue the game ...

Notes:

-To wager on 00, you can place your bet and then:

      ENTER^  0  ENTER^  R/S
      or   ENTER^ 37  R/S

-The first 6 wagers are proposed only once,
  but simply add  GTO 06  GTO 05  GTO 04  GTO 03  GTO 02  GTO 01
            after lines    64           54           44           34            24          14         respectively if you want to bet several times on these wagers

-Contrariwise, delete line 81 if you never bet twice on a single number.