Craps 80
---------
Author: Steven Riekeberg
Knows Bugs: None
Comments: ->= STO>;@=Theta([ALPHA]+[3]);<==less than or equal to;<>=not equal to
Rules: If the first roll is a 7 or an 11 your win; If it is a 2, a 3, or a 12, you lose;if you get anything else the game continues. From this point on, a 7 means that you lose. But if you roll the same number as your first roll before you roll a 7, you win. Good Luck!
PROGRAM:CRAPS
:CLRHOME
:DISP "CRAPS 80","--------"
:LBL Q
:500/->/M
:DISP "1-PLAY","2-QUIT"
:INPUT Q
:IF Q=1
:GOTO B
:IF Q=2
:STOP
:LBL B
:CLRHOME
:0/->/W
:0/->/R
:DISP "MONEY",M,"BET"
:INPUT B
:IF (B>M)+(B/<=/0)+(B/<>/INT B)
:GOTO B
:LBL R:R+1/->/R
:CLRHOME
:INT 6RAND+1/->/A
:INT 6RAND+1/->/C
:A+C/->/T
:IF R=1
:T/->/@
:DISP "ROLLS",A,C,"TOTAL",T
:IF R>1
:DISP "FIRST ROLL"
:IF R>1
:DISP @
:PAUSE
:IF (T=7)(R=10)+(T=11)(R=1)+(T=@)(R>1)
:1/->/W
:IF (T=2)(R=1)+(T=3)(R=1)+(T=12)(R=1)+(R=7)(R>1)
:2/->/W
;IF W=0
:GOTO R
:CLRHOME
:IF W=1
:DISP "YOU WON!"
:IF W=2
:DISP "YOU LOST"
:PAUSE
:CLRHOME
:IF W=1
:M+B/->/M
:IF W=2
:M-B/->/M
:IF M/<=/0
:GOTO X
:IF M>O
:GOTO B
:LBL P
:CLRHOME
:DISP "AGAIN?"
:GOTO Q
:LBL X
:CLRHOME
:DISP "BANKRUPT!","---------","GAME OVER"
:PAUSE
:GOTO P