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