CRAPS 1.2

This program automatically plays craps and bets according the a predetermined pattern and then analyzes the results of any number of rolls of the dice. It worked pretty well and would even print out the results. The program did show me a method of 'beating' the odds of craps (as much as one might be able to), but the required process to do so was virtually profitless.

REM    A = Die #1
REM    B = Die #2
REM    C = Sum of dice
REM    D = Bet
REM    E =  Bank
REM    F = Win match #
REM    G = Full program loop
REM    H = Full program loop designation
REM    I = Max Bet
REM    J = Low Bank
REM    K = High Bank
REM    L = Permanent bank
REM    M = Last bets boolean
REM    N$ = Win/Lose Indicator
REM    O = Last bets boolean #2
REM    P = Total program loop
REM    Q = Total program loop designation

TEXTFONT(4)
TEXTSIZE(9)

5 REM    +++    SET VARIABLES    +++

INPUT "Times to run";Q
INPUT "Original Bank";E
L=E
INPUT "Number of trials";H

FOR P=1 TO Q

E=L

RESTORE

D=1
I=1
J=E
K=E
L=E
M=0
N$=""
O=0

FOR G=1 TO H

REM    +++    GET FIRST ROLL    +++

10 RANDOMIZE TIMER
A=INT(RND(1)*6+1)
RANDOMIZE TIMER
B=INT(RND(1)*6+1)
C=A+B
REM    PRINT "    Bet =";D,"FIRST ROLL =";C

REM    +++    IS FIRST ROLL WIN OR LOSE?    +++

IF C=2 THEN 100
IF C=3 THEN 100
IF C=12 THEN 100
IF C=7 THEN 200
IF C=11 THEN 200

REM    +++    WIN MATCH    +++

50 RANDOMIZE TIMER
A=INT(RND(1)*6+1)
RANDOMIZE TIMER
B=INT(RND(1)*6+1)
F=A+B
REM    PRINT "    Win match =";F
IF F=C THEN 200
IF F=7 THEN 100
GOTO 50

REM    +++    LOSE    +++

100 LET E=E-D
   IF J>E THEN J=E
REM    IF E<=0 THEN 400
   IF D=4096 THEN D=4096
   READ D
 REM  PRINT D
   IF D>=32 AND D<L THEN M=1
   IF D=0 THEN D=4096
   IF E-D<1 THEN 400
   IF I<D THEN I=D
 REM  PRINT "LOSE"
   GOTO 300

REM    +++    WIN    +++

200 LET E=E+D
   IF E>=(2*L) THEN 400
   IF K<E THEN K=E
   RESTORE
   LET D=1
 REM  PRINT "WIN"
   IF M=1 THEN 400
   GOTO 300

300 REM    PRINT "    New Bank =";E
   IF O=1 THEN 310
   NEXT G
310    IF E<L THEN O=1
   IF E<L THEN 10
   IF E>=L AND O=1 THEN 400



400 REM    +++    FINISH    +++

IF E>L THEN N$="WIN "
IF E<L THEN N$="LOSE"
IF E=L THEN N$="TIE "
PRINT N$;"    TRIALS =";G
PRINT "        NEW BANK =";E,"Low Bank =";J,"High Bank =";K
PRINT "        MAX BET =";I
INPUT CON$
NEXT P

DATA 1,2,4,8,16,32,64,128,256,512,1024,2048,4096,0