'===========================================================================
' Subject: CHUCK-A-LUCK                       Date: 10-07-98 (03:13)       
'  Author: Bill Atkinson                      Code: ASIC                   
'  Origin: Batkin6114@aol.com               Packet: ASIC.ABC
'===========================================================================
CLS
SCR = 500
RANDOMIZE
START:
PRINT
PRINT "**** Chuck-A-Luck ****"
BET:
PRINT
PRINT "You have ";
SCR$ = STR$(SCR)
SCR$ = LTRIM$(SCR$)
PRINT SCR$;
PRINT " dollars."
PRINT
PRINT "How many dollars do you want to bet: ";
INPUT BET$;
BET = VAL(BET$)
IF BET > SCR THEN
   PRINT "You don't have that much!"
   FOR X = 1 TO 2500
   NEXT X
   CLS
   GOTO BET:
ENDIF
NUM:
PRINT
PRINT
PRINT "Number backed (1-6): ";
INPUT NUM$;
PRINT
NUM = VAL(NUM$)
IF NUM < 1 THEN NUM:
IF NUM > 6 THEN NUM:
D1 = RND(0)
D2 = RND(0)
D3 = RND(0)
D1 = D1 MOD 6
D2 = D2 MOD 6
D3 = D3 MOD 6
D1 = D1 + 1
D2 = D2 + 1
D3 = D3 + 1
D1$ = STR$(D1)
D2$ = STR$(D2)
D3$ = STR$(D3)
D1$ = LTRIM$(D1$)
D2$ = LTRIM$(D2$)
D3$ = LTRIM$(D3$)
PRINT
PRINT "Dice throwen: ";
PRINT D1$;
PRINT " ";
PRINT D2$;
PRINT " ";
PRINT D3$
C = 0
IF D1 <> NUM THEN L140:
C = C + 1
L140:
IF D2 <> NUM THEN L160:
C = C + 1
L160:
IF D3 <> NUM THEN L180:
C = C + 1
L180:
IF C <> 0 THEN L200:
PRINT
PRINT "You lost ";
PRINT BET$;
PRINT " dollars."
SCR = SCR - BET
GOTO L210:
L200:
WON = BET * C
WON$ = STR$(WON)
WON$ = LTRIM$(WON$)
PRINT
PRINT "You won ";
PRINT WON$;
PRINT " dollars"
SCR = SCR + WON
GOTO L210:
L210:
IF SCR <= 0 THEN L300:
PRINT
PRINT "you have ";
SCR$ = STR$(SCR)
SCR$ = LTRIM$(SCR$)
PRINT SCR$;
PRINT " dollars."
PRINT
PRINT "<Q>uit or any other key to roll again...."
L230:
K$ = INKEY$
IF K$ = "" THEN L230:
K$ = UCASE$(K$)
IF K$ <> "Q" THEN
   CLS
   GOTO START:
ENDIF
PRINT
IF SCR = 500 THEN
   PRINT "You broke even!"
ENDIF
IF SCR > 500 THEN
   PRINT "You won ";
   YOUWON = SCR - 500
   YOUWON$ = STR$(YOUWON)
   YOUWON$ = LTRIM$(YOUWON$)
   PRINT YOUWON$;
   PRINT " dollars!"
ENDIF
IF SCR < 500 THEN
   PRINT "You lost ";
   YOULOST = 500 - SCR
   YOULOST$ = STR$(YOULOST)
   YOULOST$ = LTRIM$(YOULOST$)
   PRINT YOULOST$;
   PRINT " dollars!"
ENDIF
L280:
PRINT
PRINT "Hit any key to quit..."
K$ = ""
WHILE K$ = ""
   K$ = INKEY$
WEND
END
L300:
PRINT
PRINT "You ran out of money! You lost 500 dollars!"
GOTO L280: