REM PROGRAMMED BY TRAVIS SCHULTZ
WW = 0
LL = 0
SCREEN 11
PRINT
PRINT "        YOU MUST USE ALL CAPS"
PRINT
PRINT
PRINT
PRINT
PRINT "*************************************"
PRINT "  WOULD YOU LIKE TO PLAY BLACKJACK"
PRINT "*************************************"
PRINT
SLEEP 3
INPUT "YES, NO, RULES (to view rules)"; YN5$
IF YN5$ = "NO" THEN GOTO ENDIT2
IF YN5$ = "YES" THEN GOTO START
IF YN5$ = "RULES" THEN GOTO RULES


GOTO START

START:
CLS

 X = INT(RND * 10) + 1
 Y = INT(RND * 10) + 1
 W = INT(RND * 10) + 1
 G = INT(RND * 10) + 1
 C = X + Y + W
 B = X + Y + W + G
PRINT TAB(35); "BLACK JACK"
PRINT
PRINT
PRINT
PRINT TAB(30); "THIS IS WHAT YOU HAVE ";
        PRINT USING "##"; X + Y
HIT:
PRINT TAB(30); "DO YOU WANT HIT YES,NO";
INPUT YN2$
IF YN2$ = "NO" THEN
GOTO 559
END IF
IF YN2$ = "YES" THEN PRINT TAB(30); "YOU HAVE ";
PRINT USING "##"; C
IF C = 21 THEN PRINT TAB(30); "OHH 21 THATS TOUGH TO BEAT"
IF C >= 22 THEN PRINT TAB(30); "BUSTED"
IF C >= 22 THEN GOTO LOSE

PRINT TAB(30); "WOULD YOU LIKE HIT AGAIN? YES,NO";
INPUT HIT2$
IF HIT2$ = "NO" THEN GOTO 669
IF HIT2$ = "YES" THEN PRINT TAB(30); "YOU NOW HAVE ";
IF HIT2$ = "YES" THEN PRINT USING "##"; B
IF B = 22 THEN PRINT TAB(30); "BUSTED"
IF B = 22 THEN GOTO LOSE
IF B > 22 THEN PRINT TAB(30); "BUSTED"
IF B > 22 THEN GOTO LOSE
GOTO HIT22

559 PRINT
     PRINT TAB(30); "DEALER HAS ";
     R = INT(RND * 10) + 1
     D = INT(RND * 10) + 1
     E = INT(RND * 10) + 1
     F = INT(RND * 10) + 1
     S = R + D + E
     K = R + D + E + F
     PRINT USING "##"; R + D
     IF R + D < 16 THEN PRINT TAB(30); "DEALER HITS "
     SLEEP 1
     IF R + D < 16 THEN PRINT TAB(30); "DEALER NOW HAS ";
     IF R + D < 16 THEN PRINT USING "##"; S
     IF S < 16 THEN PRINT TAB(30); "DEALER HITS AGAIN"
     IF S < 16 THEN PRINT TAB(30); "DEALER NOW HAS ";
     IF S < 16 THEN PRINT USING "##"; K
     IF S < 16 THEN GOTO 1000
     IF R + D < 16 THEN GOTO 333
     IF R + D > 16 THEN PRINT TAB(30); "DEALER STANDS"
     IF R + D > 16 THEN GOTO 222
     
1000 IF K >= 22 THEN PRINT TAB(30); "DEALER BUSTS"
     IF K >= 22 THEN GOTO WIN
     IF K = Y THEN
     PRINT TAB(30); "IT'S A TIE"
     GOTO LOSE
     END IF
     IF K > X + Y THEN GOTO LOSE
     IF K < X + Y THEN GOTO WIN

333  IF S >= 22 THEN PRINT TAB(30); "DEALER BUSTS"
     IF S >= 22 THEN GOTO WIN
     IF S = X + Y THEN
     PRINT TAB(30); "IT'S A TIE"
     GOTO LOSE
     END IF
     IF S > X + Y THEN GOTO LOSE
     IF S < X + Y THEN GOTO WIN
 
222 IF R + D = X + Y THEN
    PRINT TAB(30); "IT'S A TIE"
    GOTO LOSE
    END IF
    IF R + D > X + Y THEN GOTO LOSE
    IF R + D < X + Y THEN GOTO WIN



669  PRINT TAB(30); "DEALER HAS ";
     R = RND * (9) + 1
     D = RND * (9) + 1
     E = RND * (9) + 1
     F = RND * (9) + 1
     S = R + D + E
     K = R + D + E + F
     PRINT USING "##"; R + D
     IF R + D > 16 THEN PRINT TAB(30); "DEALER STANDS"
     IF R + D > 16 THEN GOTO 111
     IF R + D < 16 THEN PRINT TAB(30); "DEALER HITS "
     SLEEP 1
     IF R + D < 16 THEN PRINT TAB(30); "DEALER NOW HAS ";
     IF R + D < 16 THEN PRINT USING "##"; S
     IF S < 16 THEN PRINT TAB(30); "DEALER HITS AGAIN"
     IF S < 16 THEN PRINT TAB(30); "DEALER NOW HAS ";
     IF S < 16 THEN PRINT USING "##"; K
     IF S < 16 THEN GOTO 2000
     IF R + D < 16 THEN GOTO 888
     IF R + D > 16 THEN PRINT TAB(30); "DEALER STANDS"
     IF R + D > 16 THEN GOTO 111
     
2000 IF K >= 22 THEN PRINT TAB(30); "DEALER BUSTS"
     IF K >= 22 THEN GOTO WIN
     IF K = C THEN
     PRINT TAB(30); "IT'S A TIE"
     GOTO LOSE
     END IF
     IF K > C THEN GOTO LOSE
     IF K < C THEN GOTO WIN

888 IF S >= 22 THEN PRINT TAB(30); "DEALER BUSTS"
    IF S >= 22 THEN GOTO WIN
    IF S = C THEN
    PRINT "IT'S A TIE"
    GOTO LOSE
    END IF
    IF S > C THEN GOTO LOSE
    IF S < C THEN GOTO WIN
    IF R + D = C THEN
    PRINT TAB(30); "IT'S A TIE"
    GOTO LOSE
    END IF
    IF R + D > C THEN GOTO LOSE
    IF R + D < C THEN GOTO WIN

111 IF R + D = C THEN
    PRINT TAB(30); "IT'S A TIE"
    GOTO LOSE
    END IF
    IF R + D > C THEN GOTO LOSE
    IF R + D < C THEN GOTO WIN

HIT22:
    
     PRINT TAB(30); "DEALER HAS ";
     R = RND * (9) + 1
     D = RND * (9) + 1
     E = RND * (9) + 1
     F = RND * (9) + 1
     S = R + D + E
     K = R + D + E + F
     PRINT USING "##"; R + D
     IF R + D < 16 THEN PRINT TAB(30); "DEALER HITS "
     SLEEP 1
     IF R + D < 16 THEN PRINT TAB(30); "DEALER NOW HAS ";
     IF R + D < 16 THEN PRINT USING "##"; S
     IF S < 16 THEN PRINT TAB(30); "DEALER HITS AGAIN "
     IF S < 16 THEN PRINT TAB(30); "DEALER NOW HAS ";
     IF S < 16 THEN PRINT USING "##"; K
     IF S < 16 THEN GOTO 445
     IF R + D < 16 THEN GOTO 333
     IF R + D > 16 THEN PRINT TAB(30); "DEALER STANDS"
     IF R + D > 16 THEN GOTO 222

445 IF K >= 22 THEN PRINT TAB(30); "DEALER BUSTS"
    IF K >= 22 THEN GOTO WIN
    IF K = B THEN
    PRINT TAB(30); "IT'S A TIE"
    GOTO LOSE
    END IF
    IF K > B THEN GOTO LOSE
    IF K < B THEN GOTO WIN

WIN: PRINT
     PRINT TAB(30); "YOU WIN"
     WW = WW + 1
     BEEP
     GOTO 150

LOSE: PRINT
     PRINT TAB(30); "DEALER WINS"
     LL = LL + 1
     GOTO 150


150 PRINT
PRINT
PRINT
INPUT "DO YOU WANNA END YES,NO"; NY$
IF NY$ = "NO" THEN
GOTO START
ELSEIF NY$ = "YES" THEN
GOTO AVERAGE
ELSE PRINT "YES OR NO"
GOTO 150
END IF
         
AVERAGE: CLS
         PRINT
         PRINT
         PRINT
         PRINT
         PRINT
         PRINT
         PRINT
         PRINT
         PRINT
         PRINT SPC(25); "YOU WON "; WW; " GAMES"
         PRINT
         PRINT SPC(25); "DEALER WON "; LL; " GAMES"
         PRINT
         PRINT
         PRINT
         PRINT
         PRINT
         PRINT SPC(25); "PRESS ENTER TO END"
         SLEEP
         IF WW > LL THEN GOTO WINNER
         IF WW < LL THEN GOTO LOSER
         
WINNER: CLS
PALETTE 0, 1
SCREEN 1
PRINT TAB(10); "PRESS SPACEBAR TO END"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB(10); " YOU BEAT THE DEALER"
PRINT
PRINT TAB(16); "GOOD JOB"
DO
COLOR 4
COLOR 3
COLOR 7
PALETTE USING A%(0)
LOOP UNTIL INKEY$ = " "
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
GOTO ENDIT

HA = 0
LOSER:
MUSIC$ = "MBT180O1L1EEE"
PLAY MUSIC$
LO:
HA = HA + 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB(33); "YOU LOST"
SLEEP 1
CLS
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT TAB(30); "THE DEALER WON"
SLEEP 1
IF HA = 4 THEN GOTO ENDIT
GOTO LO:

RULES:
        SCREEN 11
        
        PRINT
        PRINT SPC(10); "                            RULES"
        
        PRINT
        PRINT SPC(10); "THE RULES OF THE GAME ARE SIMPLE. THE OBJECTIVE IS SIMPLE "
        PRINT SPC(10); "YOU TRY TO GET AS CLOSE TO 21 AS YOU CAN WITHOUT GOING OVER"
        PRINT SPC(10); "FIRST THE COMPUTER RANDOMELY PICKS YOU 2 CARDS THEN IT WILL"
        PRINT SPC(10); "ADD THEM UP AND GIVE YOU THE SUM OF THE CARDS. THEN IT WILL "
        PRINT SPC(10); "ASK IF YOU WANT HIT. IF YOU WANT ANOTHER CARD THEN ENTER YES"
        PRINT SPC(10); "IF YOU DON'T THEN ENTER NO.  THEN IT'S THE DEALERS TURN.  THE"
        PRINT SPC(10); "COMPUTER PICKS HIS NUMERS TOO. THE DEALER WILL HIT ON ANY "
        PRINT SPC(10); "NUMBERS UNDER 16 AND STAND ON ANY NUMBERS 16 AND OVER.  YOU "
        PRINT SPC(10); "ARE TRYING TO BEAT THE DEALER. YOU ONLY GET TWO HITS AND"
        PRINT SPC(10); "THE DEALER ONLY GETS TWO HITS ALSO. YOU MUST TYPE IN ALL CAPS "
        PRINT SPC(10); "AND ACE'S COUNT AS 1"
        PRINT
        
        PRINT SPC(10); "             HAVE FUN AND I HOPE YOU LIKE IT"
        
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT
        PRINT SPC(15); "WOULD YOU LIKE TO TRY THE GAME NOW? YES, NO";
        INPUT YN8$
        IF YN8$ = "YES" THEN GOTO START
        IF YN8$ = "NO" THEN GOTO ENDIT2

ENDIT:
CLS
SCREEN 11
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "****************************************"
PRINT "         THANK YOU FOR PLAYING"
PRINT "               BLACKJACK"
PRINT "****************************************"
END
ENDIT2:
CLS
SCREEN 11
PRINT
PRINT "        PRESS SPACEBAR TO QUIT"
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "****************************************"
PRINT "            MAYBE NEXT TIME"
PRINT "****************************************"
END