&"COMMANDS FOR THIS 'BLACKJACK'@"'C'-REQUIRE A CARD`"'F'-FREEZE,NO MORE CARDS|"'R'-REJECT THIS HAND"NOTE! A 5-CARD HAND DOES NOT BEAT'21'"PRESS'G'TO CONTINUE":S$:S$"G" "": 8 ***** BY STEVE PUNTER *****( CR%(10,12),CT%(52,4)JX110:Y112:CR%(X,Y)::_L$""DN$""(RT$""2"":13000:X11000: 3X11:X21:P1:A(1)0:A(2)0:PC(1)0:PC(2)0:P(1)0:P(2)0:F7034X152:Y14:CT%(X,Y)0:::""O<4000:2000:X2X21:P2F4000:2000:P1:4000:2000:P(1)11A(1)111200PL$"YOU HAVE"P(P);ZA(1)0120dP(P)11115n" OR"P(P)10;p120s" "xI$:I$""120 I$"C"160I$"F"300+I$"R"504120D4000:2000WP(1)2111000vS1P(1)A(1)10:S122187S1S110PC(1)5240S12123080P(1)21:999L$"YOU NOW HAVE 21. I WILL FREEZE YOU.":X13000:300-L$"YOU HAVE 5 CARDS UNDER 21 (WORTH 21)."N"I WILL FREEZE YOU":P(1)21^X11500:,S1P(1)A(1)10:S121S1S1101P264000:2000:S2P(2)8F711230;A(2)0330@S2P(2)A(2)10:S221S2S210JS221540 MPC(2)511100 OS221500% ^S2S1700. h310E S221PC(2)2800U S121700q D12(X12)1(X15)2 D22(X22)1(X25)2 D2D1570 L$"CONGRATULATIONS!! YOU WON. "S1" -"S2:SR(0)SR(0)1:600 :L$"THAT'S TOO BAD MY 21 BEATS YOURS ":SR(1)SR(1)16 X"ANOTHER GAME? "I bI$:I$""610X lI$"Y"50i vI$"N"610 "":13000::"": L$"I'M SORRY, BUT YOU LOSE. "S1" -"S2" ":SR(1)SR(1)1:600 L$"I HAVE BLACKJACK! YOU LOSE!":600 0,0,0,0,1,0,0,0,0,0,0,0/ 0,0,0,0,1,0,0,1,0,0,0,0L 0,1,0,0,1,0,0,1,0,0,0,0i 1,0,1,0,0,0,0,0,0,1,0,1 1,0,1,0,1,0,1,0,1,0,0,0 1,0,1,0,1,0,0,1,0,1,0,1 $1,1,1,0,1,0,0,0,0,1,1,1 .1,0,1,1,0,1,1,0,1,1,0,1 81,0,1,1,1,1,1,0,1,1,0,1 B1,0,1,1,1,1,1,1,1,1,0,1$ C$(TP)G YY(P1)121:XX(PC(P)1)81S MTP32i 3010:" " 3000:""A$" ";:A$"10"" ";  3000 ""C$" "(CR%(C,1)M32);(CR%(C,2)M32);(CR%(C,3)M32); " " 30008 " "(CR%(C,4)M32);(CR%(C,5)M32);(CR%(C,6)M32)" "B 3000 " "(CR%(C,7)M32);(CR%(C,8)M32);(CR%(C,9)M32)" " 3000 " "(CR%(C,10)M32);(CR%(C,11)M32);(CR%(C,12)M32); " "C$ 3000:" ";:A$"10"" ";A$3000:" "/ 3000:"":D (RT$,XX)"";:f ""(DN$,YY);(RT$,XX)"";:yC((1)131)T((1)41)TP193(T1)218(T2)211(T3)216(T4)CT%(C,T)14000CT%(C,T)1C104240C104200 C14230C$(C)&A$(C$,1)FP(P)P(P)C:PC(P)PC(P)1:ShC$"JQK"grA$(C$,C10,1)v|C10:4080C1:A$"A":A(P)1:4080A$"10":4080*L$"YOU BLEW IT, AND WENT OVER 21 "P(1)")(":SR(1)SR(1)1:600\+L$"I HAVE 5 CARDS UNDER 21 (WORTH 21) "5f+PC(1)2S12111130qp+"AND IT BEATS YOU!! ANOTHER GAME?":SR(1)SR(1)1:610z+"BUTIT CAN'T BEAT YOU!! ANOTHER GAME?":SR(0)SR(0)1:600+S121:P(2)1P(2)1011220+L$"BLACKJACK! I CAN'T WIN.":SR(0)SR(0)1:600*+L$"BLACKJACK! ":F71:300L+P(2)11A(2)1PC(2)211250+L$;12)"BUT I CAN'T BEAT IT.":SR(0)SR(0)1:600+L$;12)"AND I BEAT IT.":SR(1)SR(1)1:6002L$""14)"BLACKJACK2L$;9)"29)" YOU:"SR(0)" ME:"SR(1);29)""729)"=2