' Press F5 to start ' ' ' ' ' The DICE GAME ' ' ' ' ' ' ' ' ' ' ' ' ' DICE GAME ' variable list ' m - your bet ' a - die throw #1 ' b - die throw #2 ' c - total of both dice ' t - total winnings RANDOMIZE TIMER CLS af = 200 114 PRINT "Ready to play the dice game?" 115 PRINT "Balance : $"; af PRINT 116 INPUT "What is your bet"; m a = INT(RND(1) * 6 + 1) a = INT(RND(1) * 6 + 1) b = INT(RND(1) * 6 + 1) b = INT(RND(1) * 6 + 1) c = a + b IF m > af THEN PRINT "You can't bet more than you have!": GOTO 116 PRINT "Dice throw is"; c IF c = 6 OR c = 12 THEN 195 IF c = 8 OR c = 9 THEN 210 IF c = 7 OR c = 11 THEN 225 PRINT "No change" m = 0 GOTO 240 195 PRINT "You win! You tripled your bet!" m = m * 3 GOTO 240 210 m = m * 2 PRINT "You win! You doubled your bet!" GOTO 240 225 PRINT "You lost!" af = af - m GOTO 245 240 af = af + m 245 PRINT "Your total winnings are"; af INPUT "Again"; a$ a$ = UCASE$(a$) IF a$ = "Y" THEN 115 END