D. JacKaL's Craps
This is the popular dice gambling game, Craps, for the TI-81. If you don't know the rules,
here they are:
If the first roll is a 7 or an 11, you automatically win; if it is a 2, a 3 or a 12, you
automatically lose; if you get anything else, the game continues. From here on, getting a 7
means you lose. If you roll the same number as your first roll before you roll a 7, though,
you will win. You can change your bet before each game.
\START81\
\NAME=CRAPS
:500\->\M (this is the "STO>" button)
:ClrHome
:Disp ""
:Disp ""
:Disp " CRAPS"
:Disp " -----"
:Disp " BY D. JacKaL"
:Pause
:Lbl B
:0\->\W
:0\->\R
:ClrHome
:Disp ""
:Disp ""
:Disp "MONEY>"
:Disp M
:Disp "BET>"
:Input B
:If (B>M)+(B\<=\0)+(B\<>\Int B) (these are the "< than or = to" and "not = to" symbols)
:Goto B
:Lbl R
:R+1\->\R
:ClrHome
:Int 6Rand+1\->\A
:Int 6Rand+1\->\C
:A+C\->\T
:If R=1
:T\->\\@\ (this is the greek letter "theta")
:Disp "ROLLS>"
:Disp A
:Disp C
:Disp "TOTAL>"
:Disp T
:If R>1
:Disp "FIRST ROLL>"
:If R>1
:Disp \@\
:Pause
:If (T=7)(R=1)+(T=11)(R=1)+(\@\=T)(R>1)
:1\->\W
:If (T=2)(R=1)+(T=3)(R=1)+(T=12)(R=1)+(T=7)(R>1)
:2\->\W
:If W=0
:Goto R
:ClrHome
:Disp ""
:Disp ""
:Disp " ************"
:If W=1
:Disp " * YOU WON! *"
:If W=2
:Disp " * YOU LOST *"
:Disp " ************"
:If W=1
:M+B\->\M
:Pause
:If M\<=\0
:Goto Z
:Lbl Q
:ClrHome
:Disp "PLAY AGAIN?"
:Disp "1) YES"
:Disp "2) NO"
:Input Q
:If Q=1
:Goto B
:If Q-2
:Goto Q
:Lbl Z
:ClrHome
:Disp ""
:Disp ""
:Disp " GAME OVER"
:Disp " ---- ----"
:If M\<=\0
:Disp " (OUT OF MONEY)"
:Pause
:ClrHome
\STOP81\