This Text file is old! In a 🏛️Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

'                            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