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\