5 IF A=1 THEN 2550
10 PRINT"[147]":POKE 53281,0
110 REM   ****DIMENSIONS****
120 DIMDU%(52),D%(52),D1$(13),D2$(13),S$(4),SC$(2),H%(12,8),S1(12),S2(12)
130 DIMB(3,6),BR(6),AI(6),R(12),RL(3),CL(8),PN$(6),PC$(6),K(3),CN(12)
140 REM   ***PRE-INITIALIZE***
150 BO=53280:BA=53281:PT=646:LB$="[154]":LG$="[153]":WH$="":YW$="[158]":CY$="[159]"
160 SK=2:POKESK,0:RO=251:CO=252:P2=679:PD=681:PR=683
170 FORI=0TO12:READQ:POKEP2+I,Q:NEXT
180 AK$="       PRESS SPACEBAR TO CONTINUE"
190 BL$="                                        "
195 CS$="[147]":RV$="":OF$="[146]"
200 GOTO2450
210 REM *******SUBROUTINES********
220 REM      ***DEAL DECK***
230 PRINTCS$:POKEBO,11:POKEBA,11:POKEPT,10:R=11:C=7:GOSUB430
240 PRINT"THE DECK IS BEING SHUFFLED"
250 N=1:FORI=1TO4:FORJ=1TO13:DU%(N)=100*I+J:N=N+1:NEXTJ,I
260 N=1:FORI=1TO52:X=INT(RND(1)*52)+1
270 IFDU%(X)<>0THEN300
280 X=X+1:IFX>52THENX=1
290 GOTO270
300 D%(I)=DU%(X):DU%(X)=0
310 NEXTI:NC=52:PRINTCS$:POKEBO,K(1):POKEBA,K(2):POKEPT,K(3):RETURN
320 REM     ***TIME LOOP***
330 T=150+TI
340 GET A$:IF A$="[140]" THEN 3000
345 IFT>TITHEN340
350 RETURN
360 REM    ***GET DELAY***
370 GETZ$:IFZ$=""THEN370
375 IF Z$="[140]" THEN 3000
380 RETURN
390 REM   ***TWO-WAY GET***
400 GETZ$:IF Z$="" OR Z$<>I$ AND Z$<>J$ THEN400
405 IF Z$="[140]" THEN 3000
410 RETURN
420 REM   ***MOVE CURSOR***
430 POKERO,R:POKECO,C:SYS683:RETURN
440 REM   ***DECODE CARD***
450 SU=INT(CD/100):DE=CD-100*SU:RETURN
460 REM  ***DEVELOP CARD STRING***
470 GOSUB450:CD$=C1$+SC$(FNC(SU))+D1$(DE)+C2$+SC$(FNC(SU))+S$(SU)+C3$
480 CD$=CD$+SC$(FNC(SU))+D2$(DE)+C4$:RETURN
490 REM   ***UPDATE SCORE***
500 GOSUB450:S1(P)=S1(P)+FNV(DE):S2(P)=S2(P)+FNV(DE)
510 IF DE=1 AND (S1(P)=S2(P))THEN S1(P)=S1(P)+10
520 RETURN
530 REM    ***PRINT CARD***
540 GOSUB470
550 R=RL(FNH(P)):C=CL(CN(P)):GOSUB430:PRINTCD$;:RETURN
560 REM    ***ERASE ALL CARDS***
570 R=13:C=0:GOSUB430:X$=LEFT$(BL$,39)
580 FORZ=1TO12:PRINTX$;:NEXTZ:RETURN
590 REM   ***PRINT COLOR STRIP***
600 PRINTHM$PC$(P+6*(P>6));:FORZ=1TO6:PRINTRV$BL$OF$;:NEXTZ
601 PRINT"[144][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
602 R=23: C=13: GOSUB 430:PRINT"[144]F8 FOR UPTIME"PC$(P+6*(P>6))
605 RETURN
610 REM   ***BANKROLL OVERDRAWN***
620 Y=P:IFY>6THENY=Y-6
630 GOSUB600:PRINTHM$BK$" YOU ARE BUSTED "           
640 PRINT"HAVE SOME MONEY ON ME!"
645 BR(Y)=BR(Y)*-2:AI(Y)=AI(Y)+BR(Y)+(BR(Y)/2)
660 GOSUB 330:RETURN
670 REM   ***PRINT SCORE***
680 PRINTTAB(24-LEN(X$));X$;:RETURN
690 REM  ***PRINT WIN SCORE***
700 X$="WON"+STR$(W):PRINTTAB(38-LEN(X$));X$:RETURN
710 REM  ***PRINT TIE SCORE***
720 X$="BROKE EVEN":PRINTTAB(38-LEN(X$));X$:RETURN
730 REM  ***PRINT LOST SCORE***
740 X$="LOST"+STR$(W):PRINTTAB(38-LEN(X$));X$:RETURN
750 REM   ****MAIN GAME ROUTINES****
760 GOSUB230
770 POKEBO,11:POKEBA,15:FORP=1TONP
780 REM   ***TAKE BETS***
790 GOSUB600:PRINTHM$""BK$SPC(20-((LEN(PN$(P))+7)/2));
795 PRINTPN$(P)TN$
800 PRINT""EB$": ";:LM=4:GOSUB4000:X=VAL(GF$)
810 IFX<2THENGOSUB600:PRINTHM$BK$"MINIMUM BET=$2":GOTO800
820 IFX>500THENGOSUB600:PRINTHM$BK$"MAXIMUM BET=$500":GOTO800
830 B(1,P)=INT(X):BR(P)=BR(P)-B(1,P):IFBR(P)<0THENGOSUB620
840 NEXTP
850 REM  ***PRINT DEALER'S HAND***
860 P=0:R=7:C=1:GOSUB430:PRINTBU$TAB(13)"DEALER'S HAND"
870 CN(P)=CN(P)+1:H%(P,CN(P))=D%(NC):CD=D%(NC):NC=NC-1:CD$=BC$:GOSUB550
880 GOSUB500
890 CN(P)=CN(P)+1:H%(P,CN(P))=D%(NC):CD=D%(NC):NC=NC-1:GOSUB540:GOSUB500
900 IFDE<>1THEN970
910 REM  ***TAKE INSURANCE BETS***
920 FORP=1TONP:GOSUB600:PRINTHM$""BK$SPC(20-((LEN(PN$(P))+7)/2)) PN$(P)TN$
930 PRINT:PRINT"INSURANCE BET? (Y/N)":I$="Y":J$="N":GOSUB400
940 IFZ$=J$THEN960
950 B(2,P)=B(1,P)/2:BR(P)=BR(P)-B(1,P)/2:IFBR(P)<0THENGOSUB620
960 NEXTP:P=0
970 IFS1(P)<>21THEN1100
980 REM    ***DEALER BLACKJACK***
990 GOSUB600:PRINTHM$""BK$SPC(10)"DEALER HAS BLACKJACK":T=8:GOSUB330:R(0)=100
1000 CD=H%(0,1):CN(0)=1:GOSUB540
1010 FORP=1TONP:GOSUB600:PRINTHM$BK$ TAB(20-((LEN(PN$(P))+7)/2)) PN$(P)TN$:CN(P)=0
1020 R=13:C=1:GOSUB430:PRINTBU$ TAB(20-((LEN(PN$(P))+7)/2))PN$(P)"'S HAND"
1030 FORI=1TO2:CN(P)=CN(P)+1:H%(P,CN(P))=D%(NC):CD=D%(NC):NC=NC-1:GOSUB540
1040 GOSUB500:NEXTI
1050 R(P)=S1(P):IFS1(P)=21THENR(P)=100
1060 IFR(P)<>100THENGOSUB600:PRINTHM$""BK$SPC(16)"YOU LOSE":GOTO1080
1070 PRINTHM$""BK$SPC(5)"BLACKJACK-YOUR BET IS RETURNED"
1080 T=8:GOSUB330:GOSUB570:NEXTP:GOTO1710
1090 REM  ***DEAL PLAYER'S HANDS***
1100 FORP=1TONP
1110 R=13:C=1:GOSUB430:PRINTBU$ TAB(20-((LEN(PN$(P))+7)/2))PN$(P)"'S HAND"
1120 GOSUB600:PRINTHM$""BK$SPC(20-((LEN(PN$(P))+7)/2)) PN$(P)TN$:CN(P)=0
1130 FORI=1TO2:CN(P)=CN(P)+1:H%(P,CN(P))=D%(NC):CD=D%(NC):NC=NC-1:GOSUB540
1140 GOSUB500:NEXTI
1150 REM    ***PLAYER BLACKJACK***
1155 IF S1(P)<>21 THEN 1180
1160 GOSUB600:PRINTHM$""BK$BJ$:R(P)=100:T=8:GOSUB330
1165 IF NP>1 THEN 1510
1166 GOTO 1710
1170 REM    ***CHECK FOR PAIRS***
1180 CD=H%(P,1):GOSUB450:D1=DE:CD=H%(P,2):GOSUB450:D2=DE:IFD1<>D2THEN1300
1190 GOSUB600:PRINTHM$""BK$SPC(9)"SPLIT YOUR PAIR? (Y/N)"
1195 I$="Y":J$="N":GOSUB400
1200 IFZ$=J$THEN1300
1210 REM  ***SPLIT THE PAIR***
1220 B(3,P)=B(1,P):BR(P)=BR(P)-B(1,P):IFBR<0THENGOSUB620
1230 POKESK,(PEEK(SK))OR(2^P):H%(P+6,1)=H%(P,2):H%(P,2)=0:CN(P)=1:GOSUB570
1240 R=13:C=1:GOSUB430:PRINTBU$PN$(P)"'S HAND"
1250 S1(P)=0:S2(P)=0:CD=H%(P,1):GOSUB540:GOSUB500:P=P+6:CN(P)=1
1260 R=19:C=1:GOSUB430:PRINTBU$PN$(P-6)"'S SPLIT HAND"
1270 CD=H%(P,1):GOSUB540:GOSUB500:P=P-6
1280 H%(2,P)=D%(NC):CD=D%(NC):NC=NC-1:CN(P)=CN(P)+1:GOSUB540:GOSUB500
1290 REM  ***ONE DOWN FOR DOUBLE***
1300 IFS2(P)<9ORS2(P)>11THEN1420
1310 GOSUB600:PRINTHM$""BK$SPC(7)"ONE DOWN FOR DOUBLE? (Y/N)"
1315 I$="Y":J$="N":GOSUB400
1320 IFZ$=J$THEN1420
1330 Y=P:V=1:IFY>6THENY=Y-6:V=3
1340 BR(Y)=BR(Y)-B(V,Y):IFBR(Y)<0THENGOSUB620
1350 B(V,Y)=2*B(V,Y)
1360 CN(P)=CN(P)+1:H%(P,CN(P))=D%(NC):CD=D%(NC):NC=NC-1:GOSUB540:GOSUB500
1370 IFS1(P)<22THENR(P)=S1(P):GOTO1390
1380 R(P)=S2(P):IFR(P)>21THENPRINT:PRINTBS$:T=8:GOSUB330:GOTO1400
1390 GOSUB600:PRINTHM$""BK$YS$;R(P):T=8:GOSUB330
1400 GOTO1510
1410 REM   ***PLAY REGULAR HAND***
1420 GOSUB600:PRINTHM$BK$HT$:I$="Y":J$="N":GOSUB400:IFZ$=J$THEN1460
1430 CN(P)=CN(P)+1:H%(P,CN(P))=D%(NC):CD=D%(NC):NC=NC-1:GOSUB540:GOSUB500
1440 IFS2(P)>21THEN1470
1450 GOTO1420
1460 IFS1(P)<22THENR(P)=S1(P):GOTO1480
1470 R(P)=S2(P)
1480 IFR(P)<22THEN1490
1481 GOSUB600:PRINTHM$""BK$BS$:T=8:GOSUB330:IFNP>1 THEN 1510
1485 IF NP=1 THEN 1710
1490 GOSUB600:PRINTHM$""BK$YS$;R(P):T=8:GOSUB330
1500 REM ***CHECK & ADJUST FOR SPLIT HAND***
1510 IFP>6THENP=P-6:GOTO1560
1520 IF(PEEK(SK)AND(2^P))<>2^PTHEN1560
1530 P=P+6:CN(P)=CN(P)+1:H%(P,CN(P))=D%(NC):CD=D%(NC):NC=NC-1:GOSUB540:GOSUB500
1540 IFS1(P)=21THEN1160
1550 GOTO1300
1560 GOSUB570:NEXTP
1570 REM   ***FINISH DEALER HAND***
1580 P=0:CN(P)=1:CD=H%(P,1):GOSUB540:T=6:GOSUB330
1590 IF R(P+6)<>100 OR R(0)=100 THEN 1600
1595 REM W=1.5*B(3,P):BR(P)=BR(P)+2.5*B(3,P):GOSUB700:GOTO 1990
1600 CN(P)=2
1610 IFS1(P)>16THEN1640
1620 CN(P)=CN(P)+1:H%(P,CN(P))=D%(NC):CD=D%(NC):NC=NC-1:GOSUB540:GOSUB500
1630 T=6:GOSUB330:GOTO1610
1640 IFS1(P)>16ANDS1(P)<22THENR(P)=S1(P):GOTO1690
1650 IFS2(P)<17THEN1620
1660 IFS2(P)>16ANDS2(P)<22THENR(P)=S2(P):GOTO1690
1670 GOSUB600:PRINTHM$BK$"DEALER BUSTS-ALL REMAINING PLAYERS WIN"
1675 T=8:GOSUB330
1680 R(P)=S2(P):GOTO1710
1690 GOSUB600:PRINTHM$BK$SPC(10)"DEALER'S SCORE IS";R(P):T=8:GOSUB330
1700 REM  ***PRINT SUMMARY***
1710 PRINTCS$;:POKEBO,K(1):POKEBA,K(2):POKEPT,K(3):ZY=0
1720 PRINTTAB(16)"SUMMARY":PRINTTAB(16)"[163][163][163][163][163][163][163]"
1730 PRINT"DEALER'S SCORE=";:IFR(0)=100THENPRINT" BLACKJACK":GOTO1750
1740 PRINTR(0);:IFR(0)>21THENPRINT"BUST"
1750 PRINT:PRINT"NAME-BET"TAB(20)"SCORE"TAB(31)"RESULT"
1760 PRINT"[163][163][163][163][163][163][163][163]"TAB(20)"[163][163][163][163][163]"TAB(31)"[163][163][163][163][163][163]":IFZY=1THENZY=0:GOTO2040
1770 FORP=1TONP:PRINTPN$(P)"'S
1780 [153][163]4)"REGULAR BET";
1790 [139]R(P)[178]100[167]X$[178]"BJ":[141]680:[137]1810
1800 X$[178][196](R(P)):[141]680
1810 [139]R(P)[178]100[175]R(0)[179][177]100[167]W[178]1.5[172]B(1,P):BR(P)[178]BR(P)[170]2.5[172]B(1,P):[141]700:[137]1880
1820 [139]R(P)[178]100[175]R(0)[178]100[167]BR(P)[178]BR(P)[170]B(1,P):[141]720:[137]1880
1830 [139]R(P)[177]21[176]R(0)[178]100[167]W[178]B(1,P):[141]740:[137]1880
1840 [139]R(0)[177]21[167]W[178]B(1,P):BR(P)[178]BR(P)[170]2[172]B(1,P):[141]700:[137]1880
1850 [139]R(0)[177]R(P)[167]W[178]B(1,P):[141]740:[137]1880
1860 [139]R(P)[177]R(0)[167]W[178]B(1,P):BR(P)[178]BR(P)[170]2[172]B(1,P):[141]700:[137]1880
1870 [139]R(P)[178]R(0)[167]W[178]B(1,P):BR(P)[178]BR(P)[170]B(1,P):[141]720
1880 [139]B(3,P)[178]0[167]1990
1890 [153][163]4)"SPLIT HAND";
1900 [139]R(P[170]6)[178]100[167]X$[178]"BJ":[141]680:[137]1920
1910 X$[178][196](R(P[170]6)):[141]680
1920 [139]R(P[170]6)[178]100[175]R(0)[179][177]100[167]W[178]1.5[172]B(3,P):BR(P)[178]BR(P)[170]2.5[172]B(3,P):[141]700:[137]1990
1930 [139]R(P[170]6)[178]100[175]R(0)[178]100[167]BR(P)[178]BR(P)[170]B(3,P):[141]720:[137]1990
1940 [139]R(P[170]6)[177]21[176]R(0)[178]100[167]W[178]B(3,P):[141]740:[137]1990
1950 [139]R(0)[177]21[167]W[178]B(3,P):BR(P)[178]BR(P)[170]2[172]B(3,P):[141]700:[137]1990
1960 [139]R(0)[177]R(P[170]6)[167]W[178]B(3,P):[141]740:[137]1990
1970 [139]R(P[170]6)[177]R(0)[167]W[178]B(3,P):BR(P)[178]BR(P)[170]2[172]B(3,P):[141]700:[137]1990
1980 [139]R(P[170]6)[178]R(0)[167]W[178]B(3,P):BR(P)[178]BR(P)[170]B(3,P):[141]720
1990 [139]B(2,P)[178]0[167]2030
2000 [153][163]4)"INSURANCE BET";
2010 [139]R(0)[179][177]100[167]W[178]B(2,P):[141]740:[137]2030
2020 W[178]2[172]B(2,P):BR(P)[178]BR(P)[170]3[172]B(2,P):[141]700
2030 [139][194](214)[177]17[167][153]:[153]AK$:[141]370:ZY[178]1:[153]CS$;:[137]1720
2040 [153]:[130]P
2050 [153]:[153]AK$:[141]370
2060 [153]CS$"  PLAYER"[163]12)"INVESTED"[163]23)"NOW HAS"[163]35)"+/-"
2070 [153]"  TAB(TAB(TAB(TAB(TAB(TAB("[163]12)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[163]23)"TAB(TAB(TAB(TAB(TAB(TAB(TAB("[163]34)"TAB(TAB(TAB(TAB(TAB("
2080 [153]:[129]P[178]1[164]NP:[153]PN$(P);
2090 X$[178][196](AI(P)):[153][163]20[171][195](X$));X$;
2100 X$[178][196](BR(P)):[153][163]30[171][195](X$));X$;
2110 X[178]BR(P)[171]AI(P):X$[178][196](X)
2120 [139]X[177]0[167]X$[178]"+"[170][202](X$,2)
2130 [153][163]39[171][195](X$));X$:[153]
2140 [130]P
2150 [153]:[153]"          ANOTHER HAND? (Y/N)":I$[178]"Y":J$[178]"N":[141]400
2160 [139]Z$[178]J$[167] 3000
2168 [137]2170
2169 [128]
2170 [153]"ON         ONE MOMENT, PLEASE...  "
2180 FR[178][184](0)
2190 [151]SK,0:[129]I[178]0[164]12
2200 CN(I)[178]0:R(I)[178]0:S1(I)[178]0:S2(I)[178]0
2210 [129]J[178]1[164]8:H%(I,J)[178]0:[130]J
2220 [130]I
2230 [129]I[178]1[164]3:[129]J[178]1[164]6:B(I,J)[178]0:[130]J,I
2240 [139]NC[179](5[172]NP)[167][153]CS$:[137]760
2250 [153]CS$:[137]770
2260 [139]S1(P)[177]16[175]S1(P)[179]22[167]R(P)[178]S1(P):[137]1670
2270 [139]S2(P)[179]17[167]1600
2280 [139]S2(P)[177]16[175]S2(P)[179]22[167]R(P)[178]S2(P):[137]1670
2290 [141]600:[153]HM$BK$"DEALER BUSTS-ALL REMAINING PLAYERS WIN":T[178]8:[141]330
2300 R(P)[178]S2(P):[137]1680
2310 [141]600:[153]HM$BK$"DEALER'S SCORE IS";R(P):T[178]8:[141]330:[137]1680
2320 [143]   ****PRINT INSTRUCTIONS****
2330 [153]"STOP"CS$[199](14):[151]BO,0:[151]BA,15:Q$[178][199](34)
2340 [159] 15,8,15,"I0":[141] 2420
2350 [159] 4,8,4,"0:BLKJK.DOC,S,R":[141] 2420
2360 PG[178]0
2370 [141] 2390:[158] 49152
2375 [141] 2400:[139] Z$[178]"INPUT" [167] 2385
2377 [139] Z$[178]"RESTORE" [167] [153][199](142):[160] 4:[160] 15:[137] 3000
2380 [139] ([194](2) [175] 64)[178]0 [167][153]"LOAD";:[137] 2370
2385 [153]"LOADCONT"[199](142):[160] 4:[160] 15:[151] 53281,0:[142]
2390 PG[178]PG[170]1:[153]"    RIGHT$NSTRUCTIONS  (null)AGE"PG"CMD OF 4     ":[142]
2400 [153]:[153][166]8)" (null)RESS ATNNY (null)EY ASCOR (null)ORE "
2405 [153][166]6)" ASC1 TO VALXIT, ASC8 FOR (null)P(null)IME WAIT";
2410 [151] 198,0:[146] 198,1:[161] Z$:[151] 198,0:[142]
2420 [132]15,ER$,EM$:[139] ER$[179]"20" [167] [142]
2430 [153]"LOAD  STR$ISK VALRROR!STOP  "ER$", "EM$:[141] 2410:[138]
2440 [143]   ****WELCOME SCREEN****
2450 [153]CS$:[151]BO,15:[151]BA,0:R[178]5:C[178]15:[141]430
2455 [153]LG$"WELCOME TO"[199](142)
2457 R[178]7:C[178]11:[141]430:[153]YW$" LAS VEGAS STYLE"
2460 [151]CO,[194](CO)[170]3: [158]679: [153] WH$RV$[200](BL$,11)OF$
2465 [158]681:[153]RV$" BLACKJACK "OF$
2470 [158]681:[153]RV$[200](BL$,11)OF$
2480 [143] R=15:C=11:GOSUB430:PRINTYW$" LAS VEGAS STYLE":R=17:C=9:GOSUB430
2490 R[178]21: C[178]9: [141] 430: [153] CY$"(C)1987 BY JIM SPEERS."
2495 [153]"CONT PUBLISHED BY SOFTDISK PUBLISHING, INC."
2500 R[178]10:C[178]14:[129]I[178]1[164]30:[141] 430:[153]WH$RV$" "OF$"BLACKJACK"RV$" "OF$
2510 T[178]1:[129]K[178]1[164]25:[130]:[158]683:[153]RV$" BLACKJACK "OF$:T[178]1:[130]I
2520 R[178]18:C[178]0:[141]430:[153]"FOR       PRESS SPACEBARFOR TO CONTINUE"
2522 I$[178]" ":J$[178]"LET":[141]400:[139] Z$[178]J$ [167] 3000
2525 R[178]R[170]2:C[178]12:[158] PR:[153] BL$:[158]683
2530 [153]"          ONE MOMENT, PLEASE!"
2540 [143]    ****INITIALIZE****
2545 [139] A[178]0 [167] A[178]1:[147]"0:SEQ READER.EXE",8,1
2550 RD$[178]"":TM$[178]"TO":LM$[178]"THEN":RM$[178]"FN":BM$[178]"TAB(":CB$[178]"SPC(":CM$[178]"SIN":LF$[178]"CMD":RT$[178]""
2560 DN$[178]"":X[178][187]([171]TI)
2570 B$[178]" ":BU$[178]"":NR$[178]LF$[170]LF$[170]LF$[170]LF$[170]LF$[170]DN$
2580 C1$[178]BU$[170]B$[170]TM$[170]TM$[170]TM$[170]B$[170]NR$[170]LM$:BK$[178]"STOP"
2590 R1$[178]CB$[170]CB$[170]CB$:R2$[178]CB$[170]CM$[170]CB$:C2$[178]BU$[170]RM$[170]NR$[170]LM$
2600 C4$[178]BU$[170]RM$[170]NR$[170]B$[170]BM$[170]BM$[170]BM$
2610 BC$[178]C1$[170]R1$[170]C2$[170]R2$[170]C2$[170]R1$[170]C4$:C1$[178]C1$[170]B$:C3$[178]B$[170]C2$:C2$[178]C2$[170]B$:C4$[178]B$[170]C4$
2615 [129]I[178]0[164]12:[135]Q:[151]P2[170]I,Q:[130]
2620 [129]I[178]1[164]13:[135]D1$(I),D2$(I):[130]I
2630 RL(1)[178]8:RL(2)[178]14:RL(3)[178]20:[129]I[178]1[164]8:[135]CL(I):[130]I
2640 HT$[178]"HIT? (Y/N)"
2642 YS$[178]"YOUR SCORE IS":BS$[178]"BUST-YOU LOSE"
2645 YS$[178]"YOUR SCORE IS":BS$[178]"BUST-YOU LOSE"
2650 TN$[178]"'S TURN":EB$[178]"ENTER BET":HR$[178]" HIT RETURN"
2660 BJ$[178]"BLACKJACK-YOUR BET PAYS 3 TO 2":HM$[178]""
2670 PC$(1)[178]RD$:PC$(2)[178]CY$:PC$(3)[178]"CLR":PC$(4)[178]"":PC$(5)[178]BU$:PC$(6)[178]YW$
2680 SC$(1)[178]BK$:SC$(2)[178]RD$:PC$(0)[178]"LIST"
2690 S$(1)[178]"ATN":S$(2)[178]"(null)":S$(3)[178]"(null)":S$(4)[178]"(null)"
2700 [150][165]C(X)[178]1[171](X[177]2):[150][165]V(X)[178][171]X[172](X[179]11)[171]10[172](X[177]10)
2710 [150][165]H(X)[178][171](X[178]0)[171]2[172](X[177]0[175]X[179]7)[171]3[172](X[177]6)
2720 K(1)[178]0:K(2)[178]1:K(3)[178]0
2730 [153]CS$""[163]15)"DEFBLACKJACK":[153][163]15)"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
2740 [153]"OPEN   THIS GAME IS DESIGNED TO SIMULATE"
2750 [153]" ACTUAL CASINO PLAY AS NEARLY AS"
2760 [153]" POSSIBLE.  SPLITTING PAIRS, DOUBLING"
2770 [153]" DOWN, AND INSURANCE BETS ARE AVAILABLE.";
2780 [153]" MINIMUM BET IS $2, MAXIMUM $500. BETS"
2790 [153]" ARE IN DOLLARS ONLY, BUT PAY-OFFS ARE"
2800 [153]" EXACT.  BETS ARE RETURNED ON PUSHES.":[153]
2810 [153]"DO YOU WANT MORE DETAILED INSTRUCTIONS?"
2820 [153]"                 SYS(Y/N)CONT"
2830 I$[178]"Y":J$[178]"N":[141]400:[139]Z$[178]I$[167] [141] 2330
2840 [153]CS$DN$DN$"HOW MANY PLAYERS? (1-6) ";:LM[178]1:[141]4000:NP[178][197](GF$)
2850 [139]NP[179]1[176]NP[177]6[167]2840
2860 [129]I[178]1[164]NP:[153]CS$DN$DN$"ENTER PLAYER";I;"CMD'S NAME":[153]"> ";
2870 LM[178]16:[141]4000:PN$(I)[178]GF$:[141]2920:[151]BO,11:[151]BA,15
2880 [153]CS$PC$(I);:[129]J[178]1[164]6:[153]RV$BL$OF$;:[130]J
2885 [153]"STOPUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRCMD"[199](148)"USR"
2890 [153]HM$""BK$ [166]20[171](([195](PN$(I))[170]14)[173]2))PN$(I)", THIS IS YOUR"
2895 [153][166]11)"IDENTIFYING COLOR."
2900 T[178]8:[141]330:[151]BO,15:[151]BA,0:[130]I
2910 [137]760
2920 [153]:[153]"          YOU START WITH $1000"
2925 [153]"             PRESS SPACEBAR"
2930 BR(I)[178]1000:AI(I)[178]BR(I):[141] 370:[142]
2940 [143]   ****DATA STATEMENTS****
2950 [131]230,251,230,251,166,251,164,252,24,32,240,255,96
2960 [131]" A","A "," 2","2 "," 3","3 "," 4","4 "," 5","5 "," 6","6 "," 7","7 "
2970 [131]" 8","8 "," 9","9 ","10","10"," J","J "," Q","Q "," K","K "
2980 [131]0,5,10,15,20,25,30,35
3000 [151] 53281,1:[153]"LOADSTOP        RETURN TO UPTIME? (Y/N)"
3010 I$[178]"Y":J$[178]"N":[141] 400
3020 [139] Z$[178]J$ [167] [138]
3200 [158] (8[172]4096)[170]4
4000 [143]***INPUT CHARACTER STRING
4010 CT[178]0:GF$[178]"":[153]"AND";
4020 [161]G$:[139]G$[178]""[167]4020
4030 G[178][198](G$)
4040 [139]G[178]13[167] [153]"CMD ":[142]
4050 [139]G[178]20 [175] CT[178]0 [167] 4020
4070 [139] G[178]20 [167] CT[178]CT[171]1:GF$[178][200](GF$,CT):[153]"CMDCMD  CMDCMDAND";
4100 [139]CT[178]LM[167]4020
4105 [139] G[178]32 [167] 4150
4107 [139] G$[178]"RESTORE" [167] 3000
4108 [139] G[177]193 [175] G[179]218 [167] G[178]G[171]128:G$[178][199](G)
4110 [139](G[179]48)[176](G[177]90)[167] 4020
4150 [153]"CMD CMD"G$"AND";:CT[178]CT[170]1:GF$[178]GF$[170]G$
4160 [137]4020
4170 [143]  ****END****
4199 [128]