0 'JACK.BA Unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:PRINT@0,"Wait...":CLEAR 400:DIM C$(52),H$(2,10),H(2,10),D(2),T(2),PR(2):L$=RIGHT$(TIME$,2):FOR I=1 TO VAL(L$):R=RND(1):NEXTI:B$="23456789TJQKA":FOR SUIT=0 TO 3:FORI=1 TO 13:A$=A$+MID$(B$,I,1)+CHR$(156+SUIT):NEXTI:NEXT SUIT 3 FORI=1 TO52:C$(I)=MID$(A$,2*I-1,2):NEXTI:CLS:J=52:INPUT"What is your starting bankroll";S 4 INPUT"Bet";B:IF B>S THEN PRINT"You don't have that much!":GOTO4 5 IF J<40 THEN 7 6 CLS:J=0:PRINT@80,"Shuffling...":FOR I=52 TO 1 STEP -1:R=INT(RND(1)*I+1):T$=C$(I):C$(I)=C$(R):C$(R)=T$:NEXT I 7 CLS:NS=0:SP=1:FOR I=0 TO 2:D(I)=0:T(I)=0:NEXTI:PR(0)=40:PR(1)=120:PR(2)=160:PRINT@240,"Bet:";B;" ";"Bankroll:";S:PRINT@0,"Dealer:":PRINT@80,"Player:":K=1:GOSUB46:PRINT@120,H$(1,1):K=0:GOSUB46:PRINT@40,H$(0,1):K=1:GOSUB46:PRINT@123,H$(1,2) 8 K=0:GOSUB46:PRINT@43,CHR$(239);CHR$(239):IF T(1)<>21 THEN 10 9 S=S+(B/2):PRINT@160,"Player Blackjack " 10 IF H(0,1)<>11 AND H(0,1)<>1 THEN 14 11 PRINT@200,"Insurance (Y or N)? " 12 I$=INKEY$:IF I$="" THEN 12 13 IF I$="y" THEN NS=1 14 IF T(0)<>21 THEN S=S-(B/2)*NS:GOTO 17 15 PRINT@43,H$(0,2):PRINT@160,"Dealer Blackjack ":IF T(1)=21 THEN S=S-(B/2)+NS*B:GOTO40 16 S=S+NS*B:GOTO 40 17 IF T(1)=21 THEN 40 18 K=1:IF H(1,1)=1 THEN 20 19 IF H(1,1)<>H(1,2) THEN 25 20 PRINT@200,"Split (Y or N)?";STRING$(25," ") 21 I$=INKEY$:IF I$="" THEN 21 22 IF I$<>"y" THEN 25 23 IF H(1,1)=1 THEN H(1,1)=11 24 H(2,1)=H(1,2):T(1)=H(1,1):T(2)=H(2,1):H$(2,1)=H$(1,2):PRINT@123," ":PRINT@160,H$(2,1):PR(1)=120:SP=2:GOTO34 25 PRINT@200,"Double (Y or N)?";STRING$(24," ") 26 I$=INKEY$:IF I$="" THEN 26 27 IF I$<>"y" THEN 29 28 B=2*B:PRINT@244,B:K=1:GOSUB46:PRINT@PR(K),H$(1,3):IF BUST=0 THEN 37 ELSE T(K)=-1:GOTO40 29 PRINT@200,"Hit (Y or N)?";STRING$(27," ") 30 I$=INKEY$:IF I$="" THEN 30 31 IF I$="y" THEN 34 32 IF SP=2 THEN K=2:SP=3:GOTO34 33 GOTO 37 34 GOSUB46:PRINT@PR(K),H$(K,D(K)):IF BUST=0 THEN 29 35 T(K)=-1:IF SP=2 THEN K=2:SP=3:GOTO34 36 GOTO 40 37 PRINT@43,H$(0,2):IF T(0)>=17 THEN 40 38 K=0:GOSUB46:PRINT@PR(0),H$(0,D(0)):IF T(0)<17 THEN 38 39 IF BUST=1 THEN T(0)=0 40 FORK=1 TO 2:IF T(K)=0 THEN 44 41 IF T(K)>T(0) THEN R$="Player wins":S=S+B:GOTO 43 42 IF T(K)=T(0) THEN R$="Tie" ELSE R$="Player loses":S=S-B 43 PRINT@(PR(K)+5),R$ 44 NEXT K:PRINT@200,STRING$(40," "):PRINT@43,H$(0,2):PRINT@240," Bankroll:";S:IF S<=0 THEN PRINT"Your Broke!":END 45 GOTO 4 46 D(K)=D(K)+1:BUST=0:J=J+1:K$=C$(J):Z$=LEFT$(K$,1):IF Z$="A" THEN V=11:GOTO 48 47 IF Z$="T" OR Z$="J" OR Z$="Q" OR Z$="K" THEN V=10 ELSE V=VAL(Z$) 48 H$(K,D(K))=K$:H(K,D(K))=V:T(K)=T(K)+V:IF T(K)<=21 THEN 51 49 FOR I=1 TO D(K):IF H(K,I)=11 THEN H(K,I)=1:T(K)=T(K)-10:GOTO 51 50 NEXT I:BUST=1 51 PR(K)=PR(K)+3:RETURN