BLACKJACK
FILE INFORMATION
FILENAME(S): BLACKJACK
FILE TYPE(S): PRG
FILE SIZE: 12K
FIRST SEEN: 2025-11-30 21:26:23
APPEARS ON: 1 disk(s)
FILE HASH
0500b52f23633342389c2e0c8929cd26d4fc900fb055689db55c984783c05b2a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| P IME 1 4 | BLACKJACK | PRG | DuncanTwain | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 05 00 8B 20 41 B2 31 20 A7 20 32 35 |....... A.1 . 25|
00000010: 35 30 00 25 08 0A 00 99 22 93 22 3A 97 20 35 33 |50.%....".":. 53|
00000020: 32 38 31 2C 30 00 41 08 6E 00 8F 20 20 20 12 2A |281,0.A.n.. .*|
00000030: 2A 2A 2A 44 49 4D 45 4E 53 49 4F 4E 53 2A 2A 2A |***DIMENSIONS***|
00000040: 2A 00 89 08 78 00 86 44 55 25 28 35 32 29 2C 44 |*...x..DU%(52),D|
00000050: 25 28 35 32 29 2C 44 31 24 28 31 33 29 2C 44 32 |%(52),D1$(13),D2|
00000060: 24 28 31 33 29 2C 53 24 28 34 29 2C 53 43 24 28 |$(13),S$(4),SC$(|
00000070: 32 29 2C 48 25 28 31 32 2C 38 29 2C 53 31 28 31 |2),H%(12,8),S1(1|
00000080: 32 29 2C 53 32 28 31 32 29 00 CD 08 82 00 86 42 |2),S2(12)......B|
00000090: 28 33 2C 36 29 2C 42 52 28 36 29 2C 41 49 28 36 |(3,6),BR(6),AI(6|
000000A0: 29 2C 52 28 31 32 29 2C 52 4C 28 33 29 2C 43 4C |),R(12),RL(3),CL|
000000B0: 28 38 29 2C 50 4E 24 28 36 29 2C 50 43 24 28 36 |(8),PN$(6),PC$(6|
000000C0: 29 2C 4B 28 33 29 2C 43 4E 28 31 32 29 00 EB 08 |),K(3),CN(12)...|
000000D0: 8C 00 8F 20 20 20 12 2A 2A 2A 50 52 45 2D 49 4E |... .***PRE-IN|
000000E0: 49 54 49 41 4C 49 5A 45 2A 2A 2A 00 30 09 96 00 |ITIALIZE***.0...|
000000F0: 42 4F B2 35 33 32 38 30 3A 42 41 B2 35 33 32 38 |BO.53280:BA.5328|
00000100: 31 3A 50 54 B2 36 34 36 3A 4C 42 24 B2 22 9A 22 |1:PT.646:LB$."."|
00000110: 3A 4C 47 24 B2 22 99 22 3A 57 48 24 B2 22 05 22 |:LG$.".":WH$."."|
00000120: 3A 59 57 24 B2 22 9E 22 3A 43 59 24 B2 22 9F 22 |:YW$.".":CY$."."|
00000130: 00 62 09 A0 00 53 4B B2 32 3A 97 53 4B 2C 30 3A |.b...SK.2:.SK,0:|
00000140: 52 4F B2 32 35 31 3A 43 4F B2 32 35 32 3A 50 32 |RO.251:CO.252:P2|
00000150: B2 36 37 39 3A 50 44 B2 36 38 31 3A 50 52 B2 36 |.679:PD.681:PR.6|
00000160: 38 33 00 7B 09 AA 00 81 49 B2 30 A4 31 32 3A 87 |83.{....I.0.12:.|
00000170: 51 3A 97 50 32 AA 49 2C 51 3A 82 00 A7 09 B4 00 |Q:.P2.I,Q:......|
00000180: 41 4B 24 B2 22 20 20 20 20 20 20 20 50 52 45 53 |AK$." PRES|
00000190: 53 20 53 50 41 43 45 42 41 52 20 54 4F 20 43 4F |S SPACEBAR TO CO|
000001A0: 4E 54 49 4E 55 45 22 00 DA 09 BE 00 42 4C 24 B2 |NTINUE".....BL$.|
000001B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 22 00 F6 09 C3 00 43 | ".....C|
000001E0: 53 24 B2 22 93 22 3A 52 56 24 B2 22 12 22 3A 4F |S$.".":RV$.".":O|
000001F0: 46 24 B2 22 92 22 00 00 0A C8 00 89 32 34 35 30 |F$."."......2450|
00000200: 00 22 0A D2 00 8F 20 12 2A 2A 2A 2A 2A 2A 2A 53 |.".... .*******S|
00000210: 55 42 52 4F 55 54 49 4E 45 53 2A 2A 2A 2A 2A 2A |UBROUTINES******|
00000220: 2A 2A 00 3E 0A DC 00 8F 20 20 20 20 20 20 12 2A |**.>.... .*|
00000230: 2A 2A 44 45 41 4C 20 44 45 43 4B 2A 2A 2A 00 6A |**DEAL DECK***.j|
00000240: 0A E6 00 99 43 53 24 3A 97 42 4F 2C 31 31 3A 97 |....CS$:.BO,11:.|
00000250: 42 41 2C 31 31 3A 97 50 54 2C 31 30 3A 52 B2 31 |BA,11:.PT,10:R.1|
00000260: 31 3A 43 B2 37 3A 8D 34 33 30 00 8C 0A F0 00 99 |1:C.7:.430......|
00000270: 22 54 48 45 20 44 45 43 4B 20 49 53 20 42 45 49 |"THE DECK IS BEI|
00000280: 4E 47 20 53 48 55 46 46 4C 45 44 22 00 BD 0A FA |NG SHUFFLED"....|
00000290: 00 4E B2 31 3A 81 49 B2 31 A4 34 3A 81 4A B2 31 |.N.1:.I.1.4:.J.1|
000002A0: A4 31 33 3A 44 55 25 28 4E 29 B2 31 30 30 AC 49 |.13:DU%(N).100.I|
000002B0: AA 4A 3A 4E B2 4E AA 31 3A 82 4A 2C 49 00 DC 0A |.J:N.N.1:.J,I...|
000002C0: 04 01 4E B2 31 3A 81 49 B2 31 A4 35 32 3A 58 B2 |..N.1:.I.1.52:X.|
000002D0: B5 28 BB 28 31 29 AC 35 32 29 AA 31 00 EF 0A 0E |.(.(1).52).1....|
000002E0: 01 8B 44 55 25 28 58 29 B3 B1 30 A7 33 30 30 00 |..DU%(X)..0.300.|
000002F0: 03 0B 18 01 58 B2 58 AA 31 3A 8B 58 B1 35 32 A7 |....X.X.1:.X.52.|
00000300: 58 B2 31 00 0C 0B 22 01 89 32 37 30 00 26 0B 2C |X.1..."..270.&.,|
00000310: 01 44 25 28 49 29 B2 44 55 25 28 58 29 3A 44 55 |.D%(I).DU%(X):DU|
00000320: 25 28 58 29 B2 30 00 55 0B 36 01 82 49 3A 4E 43 |%(X).0.U.6..I:NC|
00000330: B2 35 32 3A 99 43 53 24 3A 97 42 4F 2C 4B 28 31 |.52:.CS$:.BO,K(1|
00000340: 29 3A 97 42 41 2C 4B 28 32 29 3A 97 50 54 2C 4B |):.BA,K(2):.PT,K|
00000350: 28 33 29 3A 8E 00 70 0B 40 01 8F 20 20 20 20 20 |(3):..p.@.. |
00000360: 12 2A 2A 2A 54 49 4D 45 20 4C 4F 4F 50 2A 2A 2A |.***TIME LOOP***|
00000370: 00 7D 0B 4A 01 54 B2 31 35 30 AA 54 49 00 96 0B |.}.J.T.150.TI...|
00000380: 54 01 A1 20 41 24 3A 8B 20 41 24 B2 22 8C 22 20 |T.. A$:. A$."." |
00000390: A7 20 33 30 30 30 00 A4 0B 59 01 8B 54 B1 54 49 |. 3000...Y..T.TI|
000003A0: A7 33 34 30 00 AA 0B 5E 01 8E 00 C4 0B 68 01 8F |.340...^.....h..|
000003B0: 20 20 20 20 12 2A 2A 2A 47 45 54 20 44 45 4C 41 | .***GET DELA|
000003C0: 59 2A 2A 2A 00 D7 0B 72 01 A1 5A 24 3A 8B 5A 24 |Y***...r..Z$:.Z$|
000003D0: B2 22 22 A7 33 37 30 00 EB 0B 77 01 8B 20 5A 24 |."".370...w.. Z$|
000003E0: B2 22 8C 22 20 A7 20 33 30 30 30 00 F1 0B 7C 01 |."." . 3000...|.|
000003F0: 8E 00 0C 0C 86 01 8F 20 20 20 12 2A 2A 2A 54 57 |....... .***TW|
00000400: 4F 2D 57 41 59 20 47 45 54 2A 2A 2A 00 33 0C 90 |O-WAY GET***.3..|
00000410: 01 A1 5A 24 3A 8B 20 5A 24 B2 22 22 20 B0 20 5A |..Z$:. Z$."" . Z|
00000420: 24 B3 B1 49 24 20 AF 20 5A 24 B3 B1 4A 24 20 A7 |$..I$ . Z$..J$ .|
00000430: 34 30 30 00 47 0C 95 01 8B 20 5A 24 B2 22 8C 22 |400.G.... Z$."."|
00000440: 20 A7 20 33 30 30 30 00 4D 0C 9A 01 8E 00 68 0C | . 3000.M.....h.|
00000450: A4 01 8F 20 20 20 12 2A 2A 2A 4D 4F 56 45 20 43 |... .***MOVE C|
00000460: 55 52 53 4F 52 2A 2A 2A 00 7F 0C AE 01 97 52 4F |URSOR***......RO|
00000470: 2C 52 3A 97 43 4F 2C 43 3A 9E 36 38 33 3A 8E 00 |,R:.CO,C:.683:..|
00000480: 9A 0C B8 01 8F 20 20 20 12 2A 2A 2A 44 45 43 4F |..... .***DECO|
00000490: 44 45 20 43 41 52 44 2A 2A 2A 00 BA 0C C2 01 53 |DE CARD***.....S|
000004A0: 55 B2 B5 28 43 44 AD 31 30 30 29 3A 44 45 B2 43 |U..(CD.100):DE.C|
000004B0: 44 AB 31 30 30 AC 53 55 3A 8E 00 DC 0C CC 01 8F |D.100.SU:.......|
000004C0: 20 20 12 2A 2A 2A 44 45 56 45 4C 4F 50 20 43 41 | .***DEVELOP CA|
000004D0: 52 44 20 53 54 52 49 4E 47 2A 2A 2A 00 1C 0D D6 |RD STRING***....|
000004E0: 01 8D 34 35 30 3A 43 44 24 B2 43 31 24 AA 53 43 |..450:CD$.C1$.SC|
000004F0: 24 28 A5 43 28 53 55 29 29 AA 44 31 24 28 44 45 |$(.C(SU)).D1$(DE|
00000500: 29 AA 43 32 24 AA 53 43 24 28 A5 43 28 53 55 29 |).C2$.SC$(.C(SU)|
00000510: 29 AA 53 24 28 53 55 29 AA 43 33 24 00 42 0D E0 |).S$(SU).C3$.B..|
00000520: 01 43 44 24 B2 43 44 24 AA 53 43 24 28 A5 43 28 |.CD$.CD$.SC$(.C(|
00000530: 53 55 29 29 AA 44 32 24 28 44 45 29 AA 43 34 24 |SU)).D2$(DE).C4$|
00000540: 3A 8E 00 5E 0D EA 01 8F 20 20 20 12 2A 2A 2A 55 |:..^.... .***U|
00000550: 50 44 41 54 45 20 53 43 4F 52 45 2A 2A 2A 00 8D |PDATE SCORE***..|
00000560: 0D F4 01 8D 34 35 30 3A 53 31 28 50 29 B2 53 31 |....450:S1(P).S1|
00000570: 28 50 29 AA A5 56 28 44 45 29 3A 53 32 28 50 29 |(P)..V(DE):S2(P)|
00000580: B2 53 32 28 50 29 AA A5 56 28 44 45 29 00 B8 0D |.S2(P)..V(DE)...|
00000590: FE 01 8B 20 44 45 B2 31 20 AF 20 28 53 31 28 50 |... DE.1 . (S1(P|
000005A0: 29 B2 53 32 28 50 29 29 A7 20 53 31 28 50 29 B2 |).S2(P)). S1(P).|
000005B0: 53 31 28 50 29 AA 31 30 00 BE 0D 08 02 8E 00 D9 |S1(P).10........|
000005C0: 0D 12 02 8F 20 20 20 20 12 2A 2A 2A 50 52 49 4E |.... .***PRIN|
000005D0: 54 20 43 41 52 44 2A 2A 2A 00 E2 0D 1C 02 8D 34 |T CARD***......4|
000005E0: 37 30 00 0B 0E 26 02 52 B2 52 4C 28 A5 48 28 50 |70...&.R.RL(.H(P|
000005F0: 29 29 3A 43 B2 43 4C 28 43 4E 28 50 29 29 3A 8D |)):C.CL(CN(P)):.|
00000600: 34 33 30 3A 99 43 44 24 3B 3A 8E 00 2B 0E 30 02 |430:.CD$;:..+.0.|
00000610: 8F 20 20 20 20 12 2A 2A 2A 45 52 41 53 45 20 41 |. .***ERASE A|
00000620: 4C 4C 20 43 41 52 44 53 2A 2A 2A 00 4A 0E 3A 02 |LL CARDS***.J.:.|
00000630: 52 B2 31 33 3A 43 B2 30 3A 8D 34 33 30 3A 58 24 |R.13:C.0:.430:X$|
00000640: B2 C8 28 42 4C 24 2C 33 39 29 00 60 0E 44 02 81 |..(BL$,39).`.D..|
00000650: 5A B2 31 A4 31 32 3A 99 58 24 3B 3A 82 5A 3A 8E |Z.1.12:.X$;:.Z:.|
00000660: 00 81 0E 4E 02 8F 20 20 20 12 2A 2A 2A 50 52 49 |...N.. .***PRI|
00000670: 4E 54 20 43 4F 4C 4F 52 20 53 54 52 49 50 2A 2A |NT COLOR STRIP**|
00000680: 2A 00 AF 0E 58 02 99 48 4D 24 50 43 24 28 50 AA |*...X..HM$PC$(P.|
00000690: 36 AC 28 50 B1 36 29 29 3B 3A 81 5A B2 31 A4 36 |6.(P.6));:.Z.1.6|
000006A0: 3A 99 52 56 24 42 4C 24 4F 46 24 3B 3A 82 5A 00 |:.RV$BL$OF$;:.Z.|
000006B0: E1 0E 59 02 99 22 90 B7 B7 B7 B7 B7 B7 B7 B7 B7 |..Y.."..........|
000006C0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000006D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 |..............."|
000006E0: 3B 00 18 0F 5A 02 52 B2 32 33 3A 20 43 B2 31 33 |;...Z.R.23: C.13|
000006F0: 3A 20 8D 20 34 33 30 3A 99 22 90 46 38 20 46 4F |: . 430:.".F8 FO|
00000700: 52 20 55 50 54 49 4D 45 13 22 50 43 24 28 50 AA |R UPTIME."PC$(P.|
00000710: 36 AC 28 50 B1 36 29 29 00 1E 0F 5D 02 8E 00 40 |6.(P.6))...]...@|
00000720: 0F 62 02 8F 20 20 20 12 2A 2A 2A 42 41 4E 4B 52 |.b.. .***BANKR|
00000730: 4F 4C 4C 20 4F 56 45 52 44 52 41 57 4E 2A 2A 2A |OLL OVERDRAWN***|
00000740: 00 53 0F 6C 02 59 B2 50 3A 8B 59 B1 36 A7 59 B2 |.S.l.Y.P:.Y.6.Y.|
00000750: 59 AB 36 00 90 0F 76 02 8D 36 30 30 3A 99 48 4D |Y.6...v..600:.HM|
00000760: 24 42 4B 24 22 13 11 11 1D 1D 1D 1D 1D 1D 1D 1D |$BK$"...........|
00000770: 1D 1D 1D 1D 20 59 4F 55 20 41 52 45 20 42 55 53 |.... YOU ARE BUS|
00000780: 54 45 44 20 22 20 20 20 20 20 20 20 20 20 20 20 |TED " |
00000790: 00 B7 0F 80 02 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |......".........|
000007A0: 48 41 56 45 20 53 4F 4D 45 20 4D 4F 4E 45 59 20 |HAVE SOME MONEY |
000007B0: 4F 4E 20 4D 45 21 22 00 E6 0F 85 02 42 52 28 59 |ON ME!".....BR(Y|
000007C0: 29 B2 42 52 28 59 29 AC AB 32 3A 41 49 28 59 29 |).BR(Y)..2:AI(Y)|
000007D0: B2 41 49 28 59 29 AA 42 52 28 59 29 AA 28 42 52 |.AI(Y).BR(Y).(BR|
000007E0: 28 59 29 AD 32 29 00 F2 0F 94 02 8D 20 33 33 30 |(Y).2)...... 330|
000007F0: 3A 8E 00 0D 10 9E 02 8F 20 20 20 12 2A 2A 2A 50 |:....... .***P|
00000800: 52 49 4E 54 20 53 43 4F 52 45 2A 2A 2A 00 23 10 |RINT SCORE***.#.|
00000810: A8 02 99 A3 32 34 AB C3 28 58 24 29 29 3B 58 24 |....24..(X$));X$|
00000820: 3B 3A 8E 00 41 10 B2 02 8F 20 20 12 2A 2A 2A 50 |;:..A.... .***P|
00000830: 52 49 4E 54 20 57 49 4E 20 53 43 4F 52 45 2A 2A |RINT WIN SCORE**|
00000840: 2A 00 64 10 BC 02 58 24 B2 22 57 4F 4E 22 AA C4 |*.d...X$."WON"..|
00000850: 28 57 29 3A 99 A3 33 38 AB C3 28 58 24 29 29 3B |(W):..38..(X$));|
00000860: 58 24 3A 8E 00 82 10 C6 02 8F 20 20 12 2A 2A 2A |X$:....... .***|
00000870: 50 52 49 4E 54 20 54 49 45 20 53 43 4F 52 45 2A |PRINT TIE SCORE*|
00000880: 2A 2A 00 A7 10 D0 02 58 24 B2 22 42 52 4F 4B 45 |**.....X$."BROKE|
00000890: 20 45 56 45 4E 22 3A 99 A3 33 38 AB C3 28 58 24 | EVEN":..38..(X$|
000008A0: 29 29 3B 58 24 3A 8E 00 C6 10 DA 02 8F 20 20 12 |));X$:....... .|
000008B0: 2A 2A 2A 50 52 49 4E 54 20 4C 4F 53 54 20 53 43 |***PRINT LOST SC|
000008C0: 4F 52 45 2A 2A 2A 00 EA 10 E4 02 58 24 B2 22 4C |ORE***.....X$."L|
000008D0: 4F 53 54 22 AA C4 28 57 29 3A 99 A3 33 38 AB C3 |OST"..(W):..38..|
000008E0: 28 58 24 29 29 3B 58 24 3A 8E 00 0E 11 EE 02 8F |(X$));X$:.......|
000008F0: 20 20 20 12 2A 2A 2A 2A 4D 41 49 4E 20 47 41 4D | .****MAIN GAM|
00000900: 45 20 52 4F 55 54 49 4E 45 53 2A 2A 2A 2A 00 17 |E ROUTINES****..|
00000910: 11 F8 02 8D 32 33 30 00 31 11 02 03 97 42 4F 2C |....230.1....BO,|
00000920: 31 31 3A 97 42 41 2C 31 35 3A 81 50 B2 31 A4 4E |11:.BA,15:.P.1.N|
00000930: 50 00 4A 11 0C 03 8F 20 20 20 12 2A 2A 2A 54 41 |P.J.... .***TA|
00000940: 4B 45 20 42 45 54 53 2A 2A 2A 00 75 11 16 03 8D |KE BETS***.u....|
00000950: 36 30 30 3A 99 48 4D 24 22 11 22 42 4B 24 A6 32 |600:.HM$"."BK$.2|
00000960: 30 AB 28 28 C3 28 50 4E 24 28 50 29 29 AA 37 29 |0.((.(PN$(P)).7)|
00000970: AD 32 29 29 3B 00 84 11 1B 03 99 50 4E 24 28 50 |.2));......PN$(P|
00000980: 29 54 4E 24 00 AB 11 20 03 99 22 11 11 1D 22 45 |)TN$... .."..."E|
00000990: 42 24 22 3A 20 22 3B 3A 4C 4D B2 34 3A 8D 34 30 |B$": ";:LM.4:.40|
000009A0: 30 30 3A 58 B2 C5 28 47 46 24 29 00 D6 11 2A 03 |00:X..(GF$)...*.|
000009B0: 8B 58 B3 32 A7 8D 36 30 30 3A 99 48 4D 24 42 4B |.X.2..600:.HM$BK|
000009C0: 24 22 4D 49 4E 49 4D 55 4D 20 42 45 54 3D 24 32 |$"MINIMUM BET=$2|
000009D0: 22 3A 89 38 30 30 00 05 12 34 03 8B 58 B1 35 30 |":.800...4..X.50|
000009E0: 30 A7 8D 36 30 30 3A 99 48 4D 24 42 4B 24 22 4D |0..600:.HM$BK$"M|
000009F0: 41 58 49 4D 55 4D 20 42 45 54 3D 24 35 30 30 22 |AXIMUM BET=$500"|
00000A00: 3A 89 38 30 30 00 36 12 3E 03 42 28 31 2C 50 29 |:.800.6.>.B(1,P)|
00000A10: B2 B5 28 58 29 3A 42 52 28 50 29 B2 42 52 28 50 |..(X):BR(P).BR(P|
00000A20: 29 AB 42 28 31 2C 50 29 3A 8B 42 52 28 50 29 B3 |).B(1,P):.BR(P).|
00000A30: 30 A7 8D 36 32 30 00 3D 12 48 03 82 50 00 5F 12 |0..620.=.H..P._.|
00000A40: 52 03 8F 20 20 12 2A 2A 2A 50 52 49 4E 54 20 44 |R.. .***PRINT D|
00000A50: 45 41 4C 45 52 27 53 20 48 41 4E 44 2A 2A 2A 00 |EALER'S HAND***.|
00000A60: 8C 12 5C 03 50 B2 30 3A 52 B2 37 3A 43 B2 31 3A |..\.P.0:R.7:C.1:|
00000A70: 8D 34 33 30 3A 99 42 55 24 A3 31 33 29 22 44 45 |.430:.BU$.13)"DE|
00000A80: 41 4C 45 52 27 53 20 48 41 4E 44 22 00 D0 12 66 |ALER'S HAND"...f|
00000A90: 03 43 4E 28 50 29 B2 43 4E 28 50 29 AA 31 3A 48 |.CN(P).CN(P).1:H|
00000AA0: 25 28 50 2C 43 4E 28 50 29 29 B2 44 25 28 4E 43 |%(P,CN(P)).D%(NC|
00000AB0: 29 3A 43 44 B2 44 25 28 4E 43 29 3A 4E 43 B2 4E |):CD.D%(NC):NC.N|
00000AC0: 43 AB 31 3A 43 44 24 B2 42 43 24 3A 8D 35 35 30 |C.1:CD$.BC$:.550|
00000AD0: 00 D9 12 70 03 8D 35 30 30 00 1A 13 7A 03 43 4E |...p..500...z.CN|
00000AE0: 28 50 29 B2 43 4E 28 50 29 AA 31 3A 48 25 28 50 |(P).CN(P).1:H%(P|
00000AF0: 2C 43 4E 28 50 29 29 B2 44 25 28 4E 43 29 3A 43 |,CN(P)).D%(NC):C|
00000B00: 44 B2 44 25 28 4E 43 29 3A 4E 43 B2 4E 43 AB 31 |D.D%(NC):NC.NC.1|
00000B10: 3A 8D 35 34 30 3A 8D 35 30 30 00 29 13 84 03 8B |:.540:.500.)....|
00000B20: 44 45 B3 B1 31 A7 39 37 30 00 4B 13 8E 03 8F 20 |DE..1.970.K.... |
00000B30: 20 12 2A 2A 2A 54 41 4B 45 20 49 4E 53 55 52 41 | .***TAKE INSURA|
00000B40: 4E 43 45 20 42 45 54 53 2A 2A 2A 00 87 13 98 03 |NCE BETS***.....|
00000B50: 81 50 B2 31 A4 4E 50 3A 8D 36 30 30 3A 99 48 4D |.P.1.NP:.600:.HM|
00000B60: 24 22 11 22 42 4B 24 A6 32 30 AB 28 28 C3 28 50 |$"."BK$.20.((.(P|
00000B70: 4E 24 28 50 29 29 AA 37 29 AD 32 29 29 20 50 4E |N$(P)).7).2)) PN|
00000B80: 24 28 50 29 54 4E 24 00 C2 13 A2 03 99 3A 99 22 |$(P)TN$......:."|
00000B90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 49 4E 53 55 52 41 |..........INSURA|
00000BA0: 4E 43 45 20 42 45 54 3F 20 28 59 2F 4E 29 22 3A |NCE BET? (Y/N)":|
00000BB0: 49 24 B2 22 59 22 3A 4A 24 B2 22 4E 22 3A 8D 34 |I$."Y":J$."N":.4|
00000BC0: 30 30 00 D1 13 AC 03 8B 5A 24 B2 4A 24 A7 39 36 |00......Z$.J$.96|
00000BD0: 30 00 08 14 B6 03 42 28 32 2C 50 29 B2 42 28 31 |0.....B(2,P).B(1|
00000BE0: 2C 50 29 AD 32 3A 42 52 28 50 29 B2 42 52 28 50 |,P).2:BR(P).BR(P|
00000BF0: 29 AB 42 28 31 2C 50 29 AD 32 3A 8B 42 52 28 50 |).B(1,P).2:.BR(P|
00000C00: 29 B3 30 A7 8D 36 32 30 00 13 14 C0 03 82 50 3A |).0..620......P:|
00000C10: 50 B2 30 00 27 14 CA 03 8B 53 31 28 50 29 B3 B1 |P.0.'....S1(P)..|
00000C20: 32 31 A7 31 31 30 30 00 48 14 D4 03 8F 20 20 20 |21.1100.H.... |
00000C30: 20 12 2A 2A 2A 44 45 41 4C 45 52 20 42 4C 41 43 | .***DEALER BLAC|
00000C40: 4B 4A 41 43 4B 2A 2A 2A 00 88 14 DE 03 8D 36 30 |KJACK***......60|
00000C50: 30 3A 99 48 4D 24 22 11 22 42 4B 24 A6 31 30 29 |0:.HM$"."BK$.10)|
00000C60: 22 44 45 41 4C 45 52 20 48 41 53 20 42 4C 41 43 |"DEALER HAS BLAC|
00000C70: 4B 4A 41 43 4B 22 3A 54 B2 38 3A 8D 33 33 30 3A |KJACK":T.8:.330:|
00000C80: 52 28 30 29 B2 31 30 30 00 A4 14 E8 03 43 44 B2 |R(0).100.....CD.|
00000C90: 48 25 28 30 2C 31 29 3A 43 4E 28 30 29 B2 31 3A |H%(0,1):CN(0).1:|
00000CA0: 8D 35 34 30 00 E6 14 F2 03 81 50 B2 31 A4 4E 50 |.540......P.1.NP|
00000CB0: 3A 8D 36 30 30 3A 99 48 4D 24 42 4B 24 20 A3 32 |:.600:.HM$BK$ .2|
00000CC0: 30 AB 28 28 C3 28 50 4E 24 28 50 29 29 AA 37 29 |0.((.(PN$(P)).7)|
00000CD0: AD 32 29 29 20 50 4E 24 28 50 29 54 4E 24 3A 43 |.2)) PN$(P)TN$:C|
00000CE0: 4E 28 50 29 B2 30 00 23 15 FC 03 52 B2 31 33 3A |N(P).0.#...R.13:|
00000CF0: 43 B2 31 3A 8D 34 33 30 3A 99 42 55 24 20 A3 32 |C.1:.430:.BU$ .2|
00000D00: 30 AB 28 28 C3 28 50 4E 24 28 50 29 29 AA 37 29 |0.((.(PN$(P)).7)|
00000D10: AD 32 29 29 50 4E 24 28 50 29 22 27 53 20 48 41 |.2))PN$(P)"'S HA|
00000D20: 4E 44 22 00 66 15 06 04 81 49 B2 31 A4 32 3A 43 |ND".f....I.1.2:C|
00000D30: 4E 28 50 29 B2 43 4E 28 50 29 AA 31 3A 48 25 28 |N(P).CN(P).1:H%(|
00000D40: 50 2C 43 4E 28 50 29 29 B2 44 25 28 4E 43 29 3A |P,CN(P)).D%(NC):|
00000D50: 43 44 B2 44 25 28 4E 43 29 3A 4E 43 B2 4E 43 AB |CD.D%(NC):NC.NC.|
00000D60: 31 3A 8D 35 34 30 00 72 15 10 04 8D 35 30 30 3A |1:.540.r....500:|
00000D70: 82 49 00 94 15 1A 04 52 28 50 29 B2 53 31 28 50 |.I.....R(P).S1(P|
00000D80: 29 3A 8B 53 31 28 50 29 B2 32 31 A7 52 28 50 29 |):.S1(P).21.R(P)|
00000D90: B2 31 30 30 00 C7 15 24 04 8B 52 28 50 29 B3 B1 |.100...$..R(P)..|
00000DA0: 31 30 30 A7 8D 36 30 30 3A 99 48 4D 24 22 11 22 |100..600:.HM$"."|
00000DB0: 42 4B 24 A6 31 36 29 22 59 4F 55 20 4C 4F 53 45 |BK$.16)"YOU LOSE|
00000DC0: 22 3A 89 31 30 38 30 00 F9 15 2E 04 99 48 4D 24 |":.1080......HM$|
00000DD0: 22 11 22 42 4B 24 A6 35 29 22 42 4C 41 43 4B 4A |"."BK$.5)"BLACKJ|
00000DE0: 41 43 4B 2D 59 4F 55 52 20 42 45 54 20 49 53 20 |ACK-YOUR BET IS |
00000DF0: 52 45 54 55 52 4E 45 44 22 00 14 16 38 04 54 B2 |RETURNED"...8.T.|
00000E00: 38 3A 8D 33 33 30 3A 8D 35 37 30 3A 82 50 3A 89 |8:.330:.570:.P:.|
00000E10: 31 37 31 30 00 36 16 42 04 8F 20 20 12 2A 2A 2A |1710.6.B.. .***|
00000E20: 44 45 41 4C 20 50 4C 41 59 45 52 27 53 20 48 41 |DEAL PLAYER'S HA|
00000E30: 4E 44 53 2A 2A 2A 00 42 16 4C 04 81 50 B2 31 A4 |NDS***.B.L..P.1.|
00000E40: 4E 50 00 7F 16 56 04 52 B2 31 33 3A 43 B2 31 3A |NP...V.R.13:C.1:|
00000E50: 8D 34 33 30 3A 99 42 55 24 20 A3 32 30 AB 28 28 |.430:.BU$ .20.((|
00000E60: C3 28 50 4E 24 28 50 29 29 AA 37 29 AD 32 29 29 |.(PN$(P)).7).2))|
00000E70: 50 4E 24 28 50 29 22 27 53 20 48 41 4E 44 22 00 |PN$(P)"'S HAND".|
00000E80: BB 16 60 04 8D 36 30 30 3A 99 48 4D 24 22 11 22 |..`..600:.HM$"."|
00000E90: 42 4B 24 A6 32 30 AB 28 28 C3 28 50 4E 24 28 50 |BK$.20.((.(PN$(P|
00000EA0: 29 29 AA 37 29 AD 32 29 29 20 50 4E 24 28 50 29 |)).7).2)) PN$(P)|
00000EB0: 54 4E 24 3A 43 4E 28 50 29 B2 30 00 FE 16 6A 04 |TN$:CN(P).0...j.|
00000EC0: 81 49 B2 31 A4 32 3A 43 4E 28 50 29 B2 43 4E 28 |.I.1.2:CN(P).CN(|
00000ED0: 50 29 AA 31 3A 48 25 28 50 2C 43 4E 28 50 29 29 |P).1:H%(P,CN(P))|
00000EE0: B2 44 25 28 4E 43 29 3A 43 44 B2 44 25 28 4E 43 |.D%(NC):CD.D%(NC|
00000EF0: 29 3A 4E 43 B2 4E 43 AB 31 3A 8D 35 34 30 00 0A |):NC.NC.1:.540..|
00000F00: 17 74 04 8D 35 30 30 3A 82 49 00 2B 17 7E 04 8F |.t..500:.I.+.~..|
00000F10: 20 20 20 20 12 2A 2A 2A 50 4C 41 59 45 52 20 42 | .***PLAYER B|
00000F20: 4C 41 43 4B 4A 41 43 4B 2A 2A 2A 00 42 17 83 04 |LACKJACK***.B...|
00000F30: 8B 20 53 31 28 50 29 B3 B1 32 31 20 A7 20 31 31 |. S1(P)..21 . 11|
00000F40: 38 30 00 6B 17 88 04 8D 36 30 30 3A 99 48 4D 24 |80.k....600:.HM$|
00000F50: 22 11 22 42 4B 24 42 4A 24 3A 52 28 50 29 B2 31 |"."BK$BJ$:R(P).1|
00000F60: 30 30 3A 54 B2 38 3A 8D 33 33 30 00 7D 17 8D 04 |00:T.8:.330.}...|
00000F70: 8B 20 4E 50 B1 31 20 A7 20 31 35 31 30 00 88 17 |. NP.1 . 1510...|
00000F80: 8E 04 89 20 31 37 31 30 00 A8 17 92 04 8F 20 20 |... 1710...... |
00000F90: 20 20 12 2A 2A 2A 43 48 45 43 4B 20 46 4F 52 20 | .***CHECK FOR |
00000FA0: 50 41 49 52 53 2A 2A 2A 00 E5 17 9C 04 43 44 B2 |PAIRS***.....CD.|
00000FB0: 48 25 28 50 2C 31 29 3A 8D 34 35 30 3A 44 31 B2 |H%(P,1):.450:D1.|
00000FC0: 44 45 3A 43 44 B2 48 25 28 50 2C 32 29 3A 8D 34 |DE:CD.H%(P,2):.4|
00000FD0: 35 30 3A 44 32 B2 44 45 3A 8B 44 31 B3 B1 44 32 |50:D2.DE:.D1..D2|
00000FE0: A7 31 33 30 30 00 14 18 A6 04 8D 36 30 30 3A 99 |.1300......600:.|
00000FF0: 48 4D 24 22 11 22 42 4B 24 A6 39 29 22 53 50 4C |HM$"."BK$.9)"SPL|
00001000: 49 54 20 59 4F 55 52 20 50 41 49 52 3F 20 28 59 |IT YOUR PAIR? (Y|
00001010: 2F 4E 29 22 00 2B 18 AB 04 49 24 B2 22 59 22 3A |/N)".+...I$."Y":|
00001020: 4A 24 B2 22 4E 22 3A 8D 34 30 30 00 3B 18 B0 04 |J$."N":.400.;...|
00001030: 8B 5A 24 B2 4A 24 A7 31 33 30 30 00 58 18 BA 04 |.Z$.J$.1300.X...|
00001040: 8F 20 20 12 2A 2A 2A 53 50 4C 49 54 20 54 48 45 |. .***SPLIT THE|
00001050: 20 50 41 49 52 2A 2A 2A 00 88 18 C4 04 42 28 33 | PAIR***.....B(3|
00001060: 2C 50 29 B2 42 28 31 2C 50 29 3A 42 52 28 50 29 |,P).B(1,P):BR(P)|
00001070: B2 42 52 28 50 29 AB 42 28 31 2C 50 29 3A 8B 42 |.BR(P).B(1,P):.B|
00001080: 52 B3 30 A7 8D 36 32 30 00 C7 18 CE 04 97 53 4B |R.0..620......SK|
00001090: 2C 28 C2 28 53 4B 29 29 B0 28 32 AE 50 29 3A 48 |,(.(SK)).(2.P):H|
000010A0: 25 28 50 AA 36 2C 31 29 B2 48 25 28 50 2C 32 29 |%(P.6,1).H%(P,2)|
000010B0: 3A 48 25 28 50 2C 32 29 B2 30 3A 43 4E 28 50 29 |:H%(P,2).0:CN(P)|
000010C0: B2 31 3A 8D 35 37 30 00 ED 18 D8 04 52 B2 31 33 |.1:.570.....R.13|
000010D0: 3A 43 B2 31 3A 8D 34 33 30 3A 99 42 55 24 50 4E |:C.1:.430:.BU$PN|
000010E0: 24 28 50 29 22 27 53 20 48 41 4E 44 22 00 24 19 |$(P)"'S HAND".$.|
000010F0: E2 04 53 31 28 50 29 B2 30 3A 53 32 28 50 29 B2 |..S1(P).0:S2(P).|
00001100: 30 3A 43 44 B2 48 25 28 50 2C 31 29 3A 8D 35 34 |0:CD.H%(P,1):.54|
00001110: 30 3A 8D 35 30 30 3A 50 B2 50 AA 36 3A 43 4E 28 |0:.500:P.P.6:CN(|
00001120: 50 29 B2 31 00 52 19 EC 04 52 B2 31 39 3A 43 B2 |P).1.R...R.19:C.|
00001130: 31 3A 8D 34 33 30 3A 99 42 55 24 50 4E 24 28 50 |1:.430:.BU$PN$(P|
00001140: AB 36 29 22 27 53 20 53 50 4C 49 54 20 48 41 4E |.6)"'S SPLIT HAN|
00001150: 44 22 00 71 19 F6 04 43 44 B2 48 25 28 50 2C 31 |D".q...CD.H%(P,1|
00001160: 29 3A 8D 35 34 30 3A 8D 35 30 30 3A 50 B2 50 AB |):.540:.500:P.P.|
00001170: 36 00 AE 19 00 05 48 25 28 32 2C 50 29 B2 44 25 |6.....H%(2,P).D%|
00001180: 28 4E 43 29 3A 43 44 B2 44 25 28 4E 43 29 3A 4E |(NC):CD.D%(NC):N|
00001190: 43 B2 4E 43 AB 31 3A 43 4E 28 50 29 B2 43 4E 28 |C.NC.1:CN(P).CN(|
000011A0: 50 29 AA 31 3A 8D 35 34 30 3A 8D 35 30 30 00 D0 |P).1:.540:.500..|
000011B0: 19 0A 05 8F 20 20 12 2A 2A 2A 4F 4E 45 20 44 4F |.... .***ONE DO|
000011C0: 57 4E 20 46 4F 52 20 44 4F 55 42 4C 45 2A 2A 2A |WN FOR DOUBLE***|
000011D0: 00 EB 19 14 05 8B 53 32 28 50 29 B3 39 B0 53 32 |......S2(P).9.S2|
000011E0: 28 50 29 B1 31 31 A7 31 34 32 30 00 1E 1A 1E 05 |(P).11.1420.....|
000011F0: 8D 36 30 30 3A 99 48 4D 24 22 11 22 42 4B 24 A6 |.600:.HM$"."BK$.|
00001200: 37 29 22 4F 4E 45 20 44 4F 57 4E 20 46 4F 52 20 |7)"ONE DOWN FOR |
00001210: 44 4F 55 42 4C 45 3F 20 28 59 2F 4E 29 22 00 35 |DOUBLE? (Y/N)".5|
00001220: 1A 23 05 49 24 B2 22 59 22 3A 4A 24 B2 22 4E 22 |.#.I$."Y":J$."N"|
00001230: 3A 8D 34 30 30 00 45 1A 28 05 8B 5A 24 B2 4A 24 |:.400.E.(..Z$.J$|
00001240: A7 31 34 32 30 00 60 1A 32 05 59 B2 50 3A 56 B2 |.1420.`.2.Y.P:V.|
00001250: 31 3A 8B 59 B1 36 A7 59 B2 59 AB 36 3A 56 B2 33 |1:.Y.6.Y.Y.6:V.3|
00001260: 00 85 1A 3C 05 42 52 28 59 29 B2 42 52 28 59 29 |...<.BR(Y).BR(Y)|
00001270: AB 42 28 56 2C 59 29 3A 8B 42 52 28 59 29 B3 30 |.B(V,Y):.BR(Y).0|
00001280: A7 8D 36 32 30 00 99 1A 46 05 42 28 56 2C 59 29 |..620...F.B(V,Y)|
00001290: B2 32 AC 42 28 56 2C 59 29 00 DA 1A 50 05 43 4E |.2.B(V,Y)...P.CN|
000012A0: 28 50 29 B2 43 4E 28 50 29 AA 31 3A 48 25 28 50 |(P).CN(P).1:H%(P|
000012B0: 2C 43 4E 28 50 29 29 B2 44 25 28 4E 43 29 3A 43 |,CN(P)).D%(NC):C|
000012C0: 44 B2 44 25 28 4E 43 29 3A 4E 43 B2 4E 43 AB 31 |D.D%(NC):NC.NC.1|
000012D0: 3A 8D 35 34 30 3A 8D 35 30 30 00 F9 1A 5A 05 8B |:.540:.500...Z..|
000012E0: 53 31 28 50 29 B3 32 32 A7 52 28 50 29 B2 53 31 |S1(P).22.R(P).S1|
000012F0: 28 50 29 3A 89 31 33 39 30 00 27 1B 64 05 52 28 |(P):.1390.'.d.R(|
00001300: 50 29 B2 53 32 28 50 29 3A 8B 52 28 50 29 B1 32 |P).S2(P):.R(P).2|
00001310: 31 A7 99 3A 99 42 53 24 3A 54 B2 38 3A 8D 33 33 |1..:.BS$:T.8:.33|
00001320: 30 3A 89 31 34 30 30 00 4C 1B 6E 05 8D 36 30 30 |0:.1400.L.n..600|
00001330: 3A 99 48 4D 24 22 11 22 42 4B 24 59 53 24 3B 52 |:.HM$"."BK$YS$;R|
00001340: 28 50 29 3A 54 B2 38 3A 8D 33 33 30 00 56 1B 78 |(P):T.8:.330.V.x|
00001350: 05 89 31 35 31 30 00 77 1B 82 05 8F 20 20 20 12 |..1510.w.... .|
00001360: 2A 2A 2A 50 4C 41 59 20 52 45 47 55 4C 41 52 20 |***PLAY REGULAR |
00001370: 48 41 4E 44 2A 2A 2A 00 AA 1B 8C 05 8D 36 30 30 |HAND***......600|
00001380: 3A 99 48 4D 24 42 4B 24 48 54 24 3A 49 24 B2 22 |:.HM$BK$HT$:I$."|
00001390: 59 22 3A 4A 24 B2 22 4E 22 3A 8D 34 30 30 3A 8B |Y":J$."N":.400:.|
000013A0: 5A 24 B2 4A 24 A7 31 34 36 30 00 EB 1B 96 05 43 |Z$.J$.1460.....C|
000013B0: 4E 28 50 29 B2 43 4E 28 50 29 AA 31 3A 48 25 28 |N(P).CN(P).1:H%(|
000013C0: 50 2C 43 4E 28 50 29 29 B2 44 25 28 4E 43 29 3A |P,CN(P)).D%(NC):|
000013D0: 43 44 B2 44 25 28 4E 43 29 3A 4E 43 B2 4E 43 AB |CD.D%(NC):NC.NC.|
000013E0: 31 3A 8D 35 34 30 3A 8D 35 30 30 00 FE 1B A0 05 |1:.540:.500.....|
000013F0: 8B 53 32 28 50 29 B1 32 31 A7 31 34 37 30 00 08 |.S2(P).21.1470..|
00001400: 1C AA 05 89 31 34 32 30 00 27 1C B4 05 8B 53 31 |....1420.'....S1|
00001410: 28 50 29 B3 32 32 A7 52 28 50 29 B2 53 31 28 50 |(P).22.R(P).S1(P|
00001420: 29 3A 89 31 34 38 30 00 36 1C BE 05 52 28 50 29 |):.1480.6...R(P)|
00001430: B2 53 32 28 50 29 00 48 1C C8 05 8B 52 28 50 29 |.S2(P).H....R(P)|
00001440: B3 32 32 A7 31 34 39 30 00 75 1C C9 05 8D 36 30 |.22.1490.u....60|
00001450: 30 3A 99 48 4D 24 22 11 22 42 4B 24 42 53 24 3A |0:.HM$"."BK$BS$:|
00001460: 54 B2 38 3A 8D 33 33 30 3A 8B 4E 50 B1 31 20 A7 |T.8:.330:.NP.1 .|
00001470: 20 31 35 31 30 00 87 1C CD 05 8B 20 4E 50 B2 31 | 1510...... NP.1|
00001480: 20 A7 20 31 37 31 30 00 AC 1C D2 05 8D 36 30 30 | . 1710......600|
00001490: 3A 99 48 4D 24 22 11 22 42 4B 24 59 53 24 3B 52 |:.HM$"."BK$YS$;R|
000014A0: 28 50 29 3A 54 B2 38 3A 8D 33 33 30 00 D7 1C DC |(P):T.8:.330....|
000014B0: 05 8F 20 12 2A 2A 2A 43 48 45 43 4B 20 26 20 41 |.. .***CHECK & A|
000014C0: 44 4A 55 53 54 20 46 4F 52 20 53 50 4C 49 54 20 |DJUST FOR SPLIT |
000014D0: 48 41 4E 44 2A 2A 2A 00 EC 1C E6 05 8B 50 B1 36 |HAND***......P.6|
000014E0: A7 50 B2 50 AB 36 3A 89 31 35 36 30 00 09 1D F0 |.P.P.6:.1560....|
000014F0: 05 8B 28 C2 28 53 4B 29 AF 28 32 AE 50 29 29 B3 |..(.(SK).(2.P)).|
00001500: B1 32 AE 50 A7 31 35 36 30 00 50 1D FA 05 50 B2 |.2.P.1560.P...P.|
00001510: 50 AA 36 3A 43 4E 28 50 29 B2 43 4E 28 50 29 AA |P.6:CN(P).CN(P).|
00001520: 31 3A 48 25 28 50 2C 43 4E 28 50 29 29 B2 44 25 |1:H%(P,CN(P)).D%|
00001530: 28 4E 43 29 3A 43 44 B2 44 25 28 4E 43 29 3A 4E |(NC):CD.D%(NC):N|
00001540: 43 B2 4E 43 AB 31 3A 8D 35 34 30 3A 8D 35 30 30 |C.NC.1:.540:.500|
00001550: 00 63 1D 04 06 8B 53 31 28 50 29 B2 32 31 A7 31 |.c....S1(P).21.1|
00001560: 31 36 30 00 6D 1D 0E 06 89 31 33 30 30 00 79 1D |160.m....1300.y.|
00001570: 18 06 8D 35 37 30 3A 82 50 00 9B 1D 22 06 8F 20 |...570:.P...".. |
00001580: 20 20 12 2A 2A 2A 46 49 4E 49 53 48 20 44 45 41 | .***FINISH DEA|
00001590: 4C 45 52 20 48 41 4E 44 2A 2A 2A 00 C4 1D 2C 06 |LER HAND***...,.|
000015A0: 50 B2 30 3A 43 4E 28 50 29 B2 31 3A 43 44 B2 48 |P.0:CN(P).1:CD.H|
000015B0: 25 28 50 2C 31 29 3A 8D 35 34 30 3A 54 B2 36 3A |%(P,1):.540:T.6:|
000015C0: 8D 33 33 30 00 E8 1D 36 06 8B 20 52 28 50 AA 36 |.330...6.. R(P.6|
000015D0: 29 B3 B1 31 30 30 20 B0 20 52 28 30 29 B2 31 30 |)..100 . R(0).10|
000015E0: 30 20 A7 20 31 36 30 30 00 25 1E 3B 06 8F 20 57 |0 . 1600.%.;.. W|
000015F0: 3D 31 2E 35 2A 42 28 33 2C 50 29 3A 42 52 28 50 |=1.5*B(3,P):BR(P|
00001600: 29 3D 42 52 28 50 29 2B 32 2E 35 2A 42 28 33 2C |)=BR(P)+2.5*B(3,|
00001610: 50 29 3A 47 4F 53 55 42 37 30 30 3A 47 4F 54 4F |P):GOSUB700:GOTO|
00001620: 20 31 39 39 30 00 31 1E 40 06 43 4E 28 50 29 B2 | 1990.1.@.CN(P).|
00001630: 32 00 44 1E 4A 06 8B 53 31 28 50 29 B1 31 36 A7 |2.D.J..S1(P).16.|
00001640: 31 36 34 30 00 85 1E 54 06 43 4E 28 50 29 B2 43 |1640...T.CN(P).C|
00001650: 4E 28 50 29 AA 31 3A 48 25 28 50 2C 43 4E 28 50 |N(P).1:H%(P,CN(P|
00001660: 29 29 B2 44 25 28 4E 43 29 3A 43 44 B2 44 25 28 |)).D%(NC):CD.D%(|
00001670: 4E 43 29 3A 4E 43 B2 4E 43 AB 31 3A 8D 35 34 30 |NC):NC.NC.1:.540|
00001680: 3A 8D 35 30 30 00 98 1E 5E 06 54 B2 36 3A 8D 33 |:.500...^.T.6:.3|
00001690: 33 30 3A 89 31 36 31 30 00 C0 1E 68 06 8B 53 31 |30:.1610...h..S1|
000016A0: 28 50 29 B1 31 36 AF 53 31 28 50 29 B3 32 32 A7 |(P).16.S1(P).22.|
000016B0: 52 28 50 29 B2 53 31 28 50 29 3A 89 31 36 39 30 |R(P).S1(P):.1690|
000016C0: 00 D3 1E 72 06 8B 53 32 28 50 29 B3 31 37 A7 31 |...r..S2(P).17.1|
000016D0: 36 32 30 00 FB 1E 7C 06 8B 53 32 28 50 29 B1 31 |620...|..S2(P).1|
000016E0: 36 AF 53 32 28 50 29 B3 32 32 A7 52 28 50 29 B2 |6.S2(P).22.R(P).|
000016F0: 53 32 28 50 29 3A 89 31 36 39 30 00 36 1F 86 06 |S2(P):.1690.6...|
00001700: 8D 36 30 30 3A 99 48 4D 24 42 4B 24 22 1D 11 44 |.600:.HM$BK$"..D|
00001710: 45 41 4C 45 52 20 42 55 53 54 53 2D 41 4C 4C 20 |EALER BUSTS-ALL |
00001720: 52 45 4D 41 49 4E 49 4E 47 20 50 4C 41 59 45 52 |REMAINING PLAYER|
00001730: 53 20 57 49 4E 22 00 43 1F 8B 06 54 B2 38 3A 8D |S WIN".C...T.8:.|
00001740: 33 33 30 00 58 1F 90 06 52 28 50 29 B2 53 32 28 |330.X...R(P).S2(|
00001750: 50 29 3A 89 31 37 31 30 00 8F 1F 9A 06 8D 36 30 |P):.1710......60|
00001760: 30 3A 99 48 4D 24 42 4B 24 A6 31 30 29 22 11 44 |0:.HM$BK$.10)".D|
00001770: 45 41 4C 45 52 27 53 20 53 43 4F 52 45 20 49 53 |EALER'S SCORE IS|
00001780: 22 3B 52 28 50 29 3A 54 B2 38 3A 8D 33 33 30 00 |";R(P):T.8:.330.|
00001790: AB 1F A4 06 8F 20 20 12 2A 2A 2A 50 52 49 4E 54 |..... .***PRINT|
000017A0: 20 53 55 4D 4D 41 52 59 2A 2A 2A 00 D5 1F AE 06 | SUMMARY***.....|
000017B0: 99 43 53 24 3B 3A 97 42 4F 2C 4B 28 31 29 3A 97 |.CS$;:.BO,K(1):.|
000017C0: 42 41 2C 4B 28 32 29 3A 97 50 54 2C 4B 28 33 29 |BA,K(2):.PT,K(3)|
000017D0: 3A 5A 59 B2 30 00 F7 1F B8 06 99 A3 31 36 29 22 |:ZY.0.......16)"|
000017E0: 53 55 4D 4D 41 52 59 22 3A 99 A3 31 36 29 22 A3 |SUMMARY":..16)".|
000017F0: A3 A3 A3 A3 A3 A3 22 00 2D 20 C2 06 99 22 44 45 |......".- ..."DE|
00001800: 41 4C 45 52 27 53 20 53 43 4F 52 45 3D 22 3B 3A |ALER'S SCORE=";:|
00001810: 8B 52 28 30 29 B2 31 30 30 A7 99 22 20 42 4C 41 |.R(0).100.." BLA|
00001820: 43 4B 4A 41 43 4B 22 3A 89 31 37 35 30 00 49 20 |CKJACK":.1750.I |
00001830: CC 06 99 52 28 30 29 3B 3A 8B 52 28 30 29 B1 32 |...R(0);:.R(0).2|
00001840: 31 A7 99 22 42 55 53 54 22 00 72 20 D6 06 99 3A |1.."BUST".r ...:|
00001850: 99 22 4E 41 4D 45 2D 42 45 54 22 A3 32 30 29 22 |."NAME-BET".20)"|
00001860: 53 43 4F 52 45 22 A3 33 31 29 22 52 45 53 55 4C |SCORE".31)"RESUL|
00001870: 54 22 00 AA 20 E0 06 99 22 A3 A3 A3 A3 A3 A3 A3 |T".. ...".......|
00001880: A3 22 A3 32 30 29 22 A3 A3 A3 A3 A3 22 A3 33 31 |.".20)".....".31|
00001890: 29 22 A3 A3 A3 A3 A3 A3 22 3A 8B 5A 59 B2 31 A7 |)"......":.ZY.1.|
000018A0: 5A 59 B2 30 3A 89 32 30 34 30 00 C1 20 EA 06 81 |ZY.0:.2040.. ...|
000018B0: 50 B2 31 A4 4E 50 3A 99 50 4E 24 28 50 29 22 27 |P.1.NP:.PN$(P)"'|
000018C0: 53 00 D8 20 F4 06 99 A3 34 29 22 52 45 47 55 4C |S.. ....4)"REGUL|
000018D0: 41 52 20 42 45 54 22 3B 00 F9 20 FE 06 8B 52 28 |AR BET";.. ...R(|
000018E0: 50 29 B2 31 30 30 A7 58 24 B2 22 42 4A 22 3A 8D |P).100.X$."BJ":.|
000018F0: 36 38 30 3A 89 31 38 31 30 00 0D 21 08 07 58 24 |680:.1810..!..X$|
00001900: B2 C4 28 52 28 50 29 29 3A 8D 36 38 30 00 54 21 |..(R(P)):.680.T!|
00001910: 12 07 8B 52 28 50 29 B2 31 30 30 AF 52 28 30 29 |...R(P).100.R(0)|
00001920: B3 B1 31 30 30 A7 57 B2 31 2E 35 AC 42 28 31 2C |..100.W.1.5.B(1,|
00001930: 50 29 3A 42 52 28 50 29 B2 42 52 28 50 29 AA 32 |P):BR(P).BR(P).2|
00001940: 2E 35 AC 42 28 31 2C 50 29 3A 8D 37 30 30 3A 89 |.5.B(1,P):.700:.|
00001950: 31 38 38 30 00 89 21 1C 07 8B 52 28 50 29 B2 31 |1880..!...R(P).1|
00001960: 30 30 AF 52 28 30 29 B2 31 30 30 A7 42 52 28 50 |00.R(0).100.BR(P|
00001970: 29 B2 42 52 28 50 29 AA 42 28 31 2C 50 29 3A 8D |).BR(P).B(1,P):.|
00001980: 37 32 30 3A 89 31 38 38 30 00 B3 21 26 07 8B 52 |720:.1880..!&..R|
00001990: 28 50 29 B1 32 31 B0 52 28 30 29 B2 31 30 30 A7 |(P).21.R(0).100.|
000019A0: 57 B2 42 28 31 2C 50 29 3A 8D 37 34 30 3A 89 31 |W.B(1,P):.740:.1|
000019B0: 38 38 30 00 E9 21 30 07 8B 52 28 30 29 B1 32 31 |880..!0..R(0).21|
000019C0: A7 57 B2 42 28 31 2C 50 29 3A 42 52 28 50 29 B2 |.W.B(1,P):BR(P).|
000019D0: 42 52 28 50 29 AA 32 AC 42 28 31 2C 50 29 3A 8D |BR(P).2.B(1,P):.|
000019E0: 37 30 30 3A 89 31 38 38 30 00 0C 22 3A 07 8B 52 |700:.1880..":..R|
000019F0: 28 30 29 B1 52 28 50 29 A7 57 B2 42 28 31 2C 50 |(0).R(P).W.B(1,P|
00001A00: 29 3A 8D 37 34 30 3A 89 31 38 38 30 00 44 22 44 |):.740:.1880.D"D|
00001A10: 07 8B 52 28 50 29 B1 52 28 30 29 A7 57 B2 42 28 |..R(P).R(0).W.B(|
00001A20: 31 2C 50 29 3A 42 52 28 50 29 B2 42 52 28 50 29 |1,P):BR(P).BR(P)|
00001A30: AA 32 AC 42 28 31 2C 50 29 3A 8D 37 30 30 3A 89 |.2.B(1,P):.700:.|
00001A40: 31 38 38 30 00 74 22 4E 07 8B 52 28 50 29 B2 52 |1880.t"N..R(P).R|
00001A50: 28 30 29 A7 57 B2 42 28 31 2C 50 29 3A 42 52 28 |(0).W.B(1,P):BR(|
00001A60: 50 29 B2 42 52 28 50 29 AA 42 28 31 2C 50 29 3A |P).BR(P).B(1,P):|
00001A70: 8D 37 32 30 00 87 22 58 07 8B 42 28 33 2C 50 29 |.720.."X..B(3,P)|
00001A80: B2 30 A7 31 39 39 30 00 9D 22 62 07 99 A3 34 29 |.0.1990.."b...4)|
00001A90: 22 53 50 4C 49 54 20 48 41 4E 44 22 3B 00 C0 22 |"SPLIT HAND";.."|
00001AA0: 6C 07 8B 52 28 50 AA 36 29 B2 31 30 30 A7 58 24 |l..R(P.6).100.X$|
00001AB0: B2 22 42 4A 22 3A 8D 36 38 30 3A 89 31 39 32 30 |."BJ":.680:.1920|
00001AC0: 00 D6 22 76 07 58 24 B2 C4 28 52 28 50 AA 36 29 |.."v.X$..(R(P.6)|
00001AD0: 29 3A 8D 36 38 30 00 1F 23 80 07 8B 52 28 50 AA |):.680..#...R(P.|
00001AE0: 36 29 B2 31 30 30 AF 52 28 30 29 B3 B1 31 30 30 |6).100.R(0)..100|
00001AF0: A7 57 B2 31 2E 35 AC 42 28 33 2C 50 29 3A 42 52 |.W.1.5.B(3,P):BR|
00001B00: 28 50 29 B2 42 52 28 50 29 AA 32 2E 35 AC 42 28 |(P).BR(P).2.5.B(|
00001B10: 33 2C 50 29 3A 8D 37 30 30 3A 89 31 39 39 30 00 |3,P):.700:.1990.|
00001B20: 56 23 8A 07 8B 52 28 50 AA 36 29 B2 31 30 30 AF |V#...R(P.6).100.|
00001B30: 52 28 30 29 B2 31 30 30 A7 42 52 28 50 29 B2 42 |R(0).100.BR(P).B|
00001B40: 52 28 50 29 AA 42 28 33 2C 50 29 3A 8D 37 32 30 |R(P).B(3,P):.720|
00001B50: 3A 89 31 39 39 30 00 82 23 94 07 8B 52 28 50 AA |:.1990..#...R(P.|
00001B60: 36 29 B1 32 31 B0 52 28 30 29 B2 31 30 30 A7 57 |6).21.R(0).100.W|
00001B70: B2 42 28 33 2C 50 29 3A 8D 37 34 30 3A 89 31 39 |.B(3,P):.740:.19|
00001B80: 39 30 00 B8 23 9E 07 8B 52 28 30 29 B1 32 31 A7 |90..#...R(0).21.|
00001B90: 57 B2 42 28 33 2C 50 29 3A 42 52 28 50 29 B2 42 |W.B(3,P):BR(P).B|
00001BA0: 52 28 50 29 AA 32 AC 42 28 33 2C 50 29 3A 8D 37 |R(P).2.B(3,P):.7|
00001BB0: 30 30 3A 89 31 39 39 30 00 DD 23 A8 07 8B 52 28 |00:.1990..#...R(|
00001BC0: 30 29 B1 52 28 50 AA 36 29 A7 57 B2 42 28 33 2C |0).R(P.6).W.B(3,|
00001BD0: 50 29 3A 8D 37 34 30 3A 89 31 39 39 30 00 17 24 |P):.740:.1990..$|
00001BE0: B2 07 8B 52 28 50 AA 36 29 B1 52 28 30 29 A7 57 |...R(P.6).R(0).W|
00001BF0: B2 42 28 33 2C 50 29 3A 42 52 28 50 29 B2 42 52 |.B(3,P):BR(P).BR|
00001C00: 28 50 29 AA 32 AC 42 28 33 2C 50 29 3A 8D 37 30 |(P).2.B(3,P):.70|
00001C10: 30 3A 89 31 39 39 30 00 49 24 BC 07 8B 52 28 50 |0:.1990.I$...R(P|
00001C20: AA 36 29 B2 52 28 30 29 A7 57 B2 42 28 33 2C 50 |.6).R(0).W.B(3,P|
00001C30: 29 3A 42 52 28 50 29 B2 42 52 28 50 29 AA 42 28 |):BR(P).BR(P).B(|
00001C40: 33 2C 50 29 3A 8D 37 32 30 00 5C 24 C6 07 8B 42 |3,P):.720.\$...B|
00001C50: 28 32 2C 50 29 B2 30 A7 32 30 33 30 00 75 24 D0 |(2,P).0.2030.u$.|
00001C60: 07 99 A3 34 29 22 49 4E 53 55 52 41 4E 43 45 20 |...4)"INSURANCE |
00001C70: 42 45 54 22 3B 00 98 24 DA 07 8B 52 28 30 29 B3 |BET";..$...R(0).|
00001C80: B1 31 30 30 A7 57 B2 42 28 32 2C 50 29 3A 8D 37 |.100.W.B(2,P):.7|
00001C90: 34 30 3A 89 32 30 33 30 00 C1 24 E4 07 57 B2 32 |40:.2030..$..W.2|
00001CA0: AC 42 28 32 2C 50 29 3A 42 52 28 50 29 B2 42 52 |.B(2,P):BR(P).BR|
00001CB0: 28 50 29 AA 33 AC 42 28 32 2C 50 29 3A 8D 37 30 |(P).3.B(2,P):.70|
00001CC0: 30 00 ED 24 EE 07 8B C2 28 32 31 34 29 B1 31 37 |0..$....(214).17|
00001CD0: A7 99 3A 99 41 4B 24 3A 8D 33 37 30 3A 5A 59 B2 |..:.AK$:.370:ZY.|
00001CE0: 31 3A 99 43 53 24 3B 3A 89 31 37 32 30 00 F6 24 |1:.CS$;:.1720..$|
00001CF0: F8 07 99 3A 82 50 00 06 25 02 08 99 3A 99 41 4B |...:.P..%...:.AK|
00001D00: 24 3A 8D 33 37 30 00 3D 25 0C 08 99 43 53 24 22 |$:.370.=%...CS$"|
00001D10: 20 20 50 4C 41 59 45 52 22 A3 31 32 29 22 49 4E | PLAYER".12)"IN|
00001D20: 56 45 53 54 45 44 22 A3 32 33 29 22 4E 4F 57 20 |VESTED".23)"NOW |
00001D30: 48 41 53 22 A3 33 35 29 22 2B 2F 2D 22 00 73 25 |HAS".35)"+/-".s%|
00001D40: 16 08 99 22 20 20 A3 A3 A3 A3 A3 A3 22 A3 31 32 |..." ......".12|
00001D50: 29 22 A3 A3 A3 A3 A3 A3 A3 A3 22 A3 32 33 29 22 |)"........".23)"|
00001D60: A3 A3 A3 A3 A3 A3 A3 22 A3 33 34 29 22 A3 A3 A3 |.......".34)"...|
00001D70: A3 A3 22 00 8A 25 20 08 99 3A 81 50 B2 31 A4 4E |.."..% ..:.P.1.N|
00001D80: 50 3A 99 50 4E 24 28 50 29 3B 00 AA 25 2A 08 58 |P:.PN$(P);..%*.X|
00001D90: 24 B2 C4 28 41 49 28 50 29 29 3A 99 A3 32 30 AB |$..(AI(P)):..20.|
00001DA0: C3 28 58 24 29 29 3B 58 24 3B 00 CA 25 34 08 58 |.(X$));X$;..%4.X|
00001DB0: 24 B2 C4 28 42 52 28 50 29 29 3A 99 A3 33 30 AB |$..(BR(P)):..30.|
00001DC0: C3 28 58 24 29 29 3B 58 24 3B 00 E4 25 3E 08 58 |.(X$));X$;..%>.X|
00001DD0: B2 42 52 28 50 29 AB 41 49 28 50 29 3A 58 24 B2 |.BR(P).AI(P):X$.|
00001DE0: C4 28 58 29 00 FC 25 48 08 8B 58 B1 30 A7 58 24 |.(X)..%H..X.0.X$|
00001DF0: B2 22 2B 22 AA CA 28 58 24 2C 32 29 00 11 26 52 |."+"..(X$,2)..&R|
00001E00: 08 99 A3 33 39 AB C3 28 58 24 29 29 3B 58 24 3A |...39..(X$));X$:|
00001E10: 99 00 18 26 5C 08 82 50 00 52 26 66 08 99 3A 99 |...&\..P.R&f..:.|
00001E20: 22 20 20 20 20 20 20 20 20 20 20 41 4E 4F 54 48 |" ANOTH|
00001E30: 45 52 20 48 41 4E 44 3F 20 28 59 2F 4E 29 22 3A |ER HAND? (Y/N)":|
00001E40: 49 24 B2 22 59 22 3A 4A 24 B2 22 4E 22 3A 8D 34 |I$."Y":J$."N":.4|
00001E50: 30 30 00 63 26 70 08 8B 5A 24 B2 4A 24 A7 20 33 |00.c&p..Z$.J$. 3|
00001E60: 30 30 30 00 6D 26 78 08 89 32 31 37 30 00 73 26 |000.m&x..2170.s&|
00001E70: 79 08 80 00 9C 26 7A 08 99 22 91 20 20 20 20 20 |y....&z..". |
00001E80: 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 2C 20 | ONE MOMENT, |
00001E90: 50 4C 45 41 53 45 2E 2E 2E 20 20 22 00 A8 26 84 |PLEASE... "..&.|
00001EA0: 08 46 52 B2 B8 28 30 29 00 BA 26 8E 08 97 53 4B |.FR..(0)..&...SK|
00001EB0: 2C 30 3A 81 49 B2 30 A4 31 32 00 DD 26 98 08 43 |,0:.I.0.12..&..C|
00001EC0: 4E 28 49 29 B2 30 3A 52 28 49 29 B2 30 3A 53 31 |N(I).0:R(I).0:S1|
00001ED0: 28 49 29 B2 30 3A 53 32 28 49 29 B2 30 00 F5 26 |(I).0:S2(I).0..&|
00001EE0: A2 08 81 4A B2 31 A4 38 3A 48 25 28 49 2C 4A 29 |...J.1.8:H%(I,J)|
00001EF0: B2 30 3A 82 4A 00 FC 26 AC 08 82 49 00 1C 27 B6 |.0:.J..&...I..'.|
00001F00: 08 81 49 B2 31 A4 33 3A 81 4A B2 31 A4 36 3A 42 |..I.1.3:.J.1.6:B|
00001F10: 28 49 2C 4A 29 B2 30 3A 82 4A 2C 49 00 35 27 C0 |(I,J).0:.J,I.5'.|
00001F20: 08 8B 4E 43 B3 28 35 AC 4E 50 29 A7 99 43 53 24 |..NC.(5.NP)..CS$|
00001F30: 3A 89 37 36 30 00 43 27 CA 08 99 43 53 24 3A 89 |:.760.C'...CS$:.|
00001F40: 37 37 30 00 6B 27 D4 08 8B 53 31 28 50 29 B1 31 |770.k'...S1(P).1|
00001F50: 36 AF 53 31 28 50 29 B3 32 32 A7 52 28 50 29 B2 |6.S1(P).22.R(P).|
00001F60: 53 31 28 50 29 3A 89 31 36 37 30 00 7E 27 DE 08 |S1(P):.1670.~'..|
00001F70: 8B 53 32 28 50 29 B3 31 37 A7 31 36 30 30 00 A6 |.S2(P).17.1600..|
00001F80: 27 E8 08 8B 53 32 28 50 29 B1 31 36 AF 53 32 28 |'...S2(P).16.S2(|
00001F90: 50 29 B3 32 32 A7 52 28 50 29 B2 53 32 28 50 29 |P).22.R(P).S2(P)|
00001FA0: 3A 89 31 36 37 30 00 E8 27 F2 08 8D 36 30 30 3A |:.1670..'...600:|
00001FB0: 99 48 4D 24 42 4B 24 22 44 45 41 4C 45 52 20 42 |.HM$BK$"DEALER B|
00001FC0: 55 53 54 53 2D 41 4C 4C 20 52 45 4D 41 49 4E 49 |USTS-ALL REMAINI|
00001FD0: 4E 47 20 50 4C 41 59 45 52 53 20 57 49 4E 22 3A |NG PLAYERS WIN":|
00001FE0: 54 B2 38 3A 8D 33 33 30 00 FD 27 FC 08 52 28 50 |T.8:.330..'..R(P|
00001FF0: 29 B2 53 32 28 50 29 3A 89 31 36 38 30 00 35 28 |).S2(P):.1680.5(|
00002000: 06 09 8D 36 30 30 3A 99 48 4D 24 42 4B 24 22 44 |...600:.HM$BK$"D|
00002010: 45 41 4C 45 52 27 53 20 53 43 4F 52 45 20 49 53 |EALER'S SCORE IS|
00002020: 22 3B 52 28 50 29 3A 54 B2 38 3A 8D 33 33 30 3A |";R(P):T.8:.330:|
00002030: 89 31 36 38 30 00 59 28 10 09 8F 20 20 20 12 2A |.1680.Y(... .*|
00002040: 2A 2A 2A 50 52 49 4E 54 20 49 4E 53 54 52 55 43 |***PRINT INSTRUC|
00002050: 54 49 4F 4E 53 2A 2A 2A 2A 00 80 28 1A 09 99 22 |TIONS****..(..."|
00002060: 90 22 43 53 24 C7 28 31 34 29 3A 97 42 4F 2C 30 |."CS$.(14):.BO,0|
00002070: 3A 97 42 41 2C 31 35 3A 51 24 B2 C7 28 33 34 29 |:.BA,15:Q$..(34)|
00002080: 00 9A 28 24 09 9F 20 31 35 2C 38 2C 31 35 2C 22 |..($.. 15,8,15,"|
00002090: 49 30 22 3A 8D 20 32 34 32 30 00 BF 28 2E 09 9F |I0":. 2420..(...|
000020A0: 20 34 2C 38 2C 34 2C 22 30 3A 42 4C 4B 4A 4B 2E | 4,8,4,"0:BLKJK.|
000020B0: 44 4F 43 2C 53 2C 52 22 3A 8D 20 32 34 32 30 00 |DOC,S,R":. 2420.|
000020C0: C8 28 38 09 50 47 B2 30 00 DB 28 42 09 8D 20 32 |.(8.PG.0..(B.. 2|
000020D0: 33 39 30 3A 9E 20 34 39 31 35 32 00 F6 28 47 09 |390:. 49152..(G.|
000020E0: 8D 20 32 34 30 30 3A 8B 20 5A 24 B2 22 85 22 20 |. 2400:. Z$."." |
000020F0: A7 20 32 33 38 35 00 1D 29 49 09 8B 20 5A 24 B2 |. 2385..)I.. Z$.|
00002100: 22 8C 22 20 A7 20 99 C7 28 31 34 32 29 3A A0 20 |"." . ..(142):. |
00002110: 34 3A A0 20 31 35 3A 89 20 33 30 30 30 00 3F 29 |4:. 15:. 3000.?)|
00002120: 4C 09 8B 20 28 C2 28 32 29 20 AF 20 36 34 29 B2 |L.. (.(2) . 64).|
00002130: 30 20 A7 99 22 93 22 3B 3A 89 20 32 33 37 30 00 |0 ..".";:. 2370.|
00002140: 64 29 51 09 99 22 93 9A 22 C7 28 31 34 32 29 3A |d)Q.."..".(142):|
00002150: A0 20 34 3A A0 20 31 35 3A 97 20 35 33 32 38 31 |. 4:. 15:. 53281|
00002160: 2C 30 3A 8E 00 A0 29 56 09 50 47 B2 50 47 AA 31 |,0:...)V.PG.PG.1|
00002170: 3A 99 22 13 1D 1D 1D 12 20 20 20 20 C9 4E 53 54 |:."..... .NST|
00002180: 52 55 43 54 49 4F 4E 53 20 20 D0 41 47 45 22 50 |RUCTIONS .AGE"P|
00002190: 47 22 9D 20 4F 46 20 34 20 20 20 20 20 22 3A 8E |G". OF 4 ":.|
000021A0: 00 C6 29 60 09 99 3A 99 A6 38 29 22 12 20 D0 52 |..)`..:..8)". .R|
000021B0: 45 53 53 20 C1 4E 59 20 CB 45 59 20 C6 4F 52 20 |ESS .NY .EY .OR |
000021C0: CD 4F 52 45 20 22 00 EF 29 65 09 99 A6 36 29 22 |.ORE "..)e...6)"|
000021D0: 12 20 C6 31 20 54 4F 20 C5 58 49 54 2C 20 C6 38 |. .1 TO .XIT, .8|
000021E0: 20 46 4F 52 20 D5 50 D4 49 4D 45 20 92 22 3B 00 | FOR .P.IME .";.|
000021F0: 12 2A 6A 09 97 20 31 39 38 2C 30 3A 92 20 31 39 |.*j.. 198,0:. 19|
00002200: 38 2C 31 3A A1 20 5A 24 3A 97 20 31 39 38 2C 30 |8,1:. Z$:. 198,0|
00002210: 3A 8E 00 31 2A 74 09 84 31 35 2C 45 52 24 2C 45 |:..1*t..15,ER$,E|
00002220: 4D 24 3A 8B 20 45 52 24 B3 22 32 30 22 20 A7 20 |M$:. ER$."20" . |
00002230: 8E 00 60 2A 7E 09 99 22 93 11 11 1C 20 20 C4 49 |..`*~..".... .I|
00002240: 53 4B 20 C5 52 52 4F 52 21 90 20 20 22 45 52 24 |SK .RROR!. "ER$|
00002250: 22 2C 20 22 45 4D 24 3A 8D 20 32 34 31 30 3A 8A |", "EM$:. 2410:.|
00002260: 00 80 2A 88 09 8F 20 20 20 12 2A 2A 2A 2A 57 45 |..*... .****WE|
00002270: 4C 43 4F 4D 45 20 53 43 52 45 45 4E 2A 2A 2A 2A |LCOME SCREEN****|
00002280: 00 A4 2A 92 09 99 43 53 24 3A 97 42 4F 2C 31 35 |..*...CS$:.BO,15|
00002290: 3A 97 42 41 2C 30 3A 52 B2 35 3A 43 B2 31 35 3A |:.BA,0:R.5:C.15:|
000022A0: 8D 34 33 30 00 C0 2A 97 09 99 4C 47 24 22 08 57 |.430..*...LG$".W|
000022B0: 45 4C 43 4F 4D 45 20 54 4F 22 C7 28 31 34 32 29 |ELCOME TO".(142)|
000022C0: 00 E9 2A 99 09 52 B2 37 3A 43 B2 31 31 3A 8D 34 |..*..R.7:C.11:.4|
000022D0: 33 30 3A 99 59 57 24 22 20 4C 41 53 20 56 45 47 |30:.YW$" LAS VEG|
000022E0: 41 53 20 53 54 59 4C 45 22 00 15 2B 9C 09 97 43 |AS STYLE"..+...C|
000022F0: 4F 2C C2 28 43 4F 29 AA 33 3A 20 9E 36 37 39 3A |O,.(CO).3: .679:|
00002300: 20 99 20 57 48 24 52 56 24 C8 28 42 4C 24 2C 31 | . WH$RV$.(BL$,1|
00002310: 31 29 4F 46 24 00 33 2B A1 09 9E 36 38 31 3A 99 |1)OF$.3+...681:.|
00002320: 52 56 24 22 20 42 4C 41 43 4B 4A 41 43 4B 20 22 |RV$" BLACKJACK "|
00002330: 4F 46 24 00 4D 2B A6 09 9E 36 38 31 3A 99 52 56 |OF$.M+...681:.RV|
00002340: 24 C8 28 42 4C 24 2C 31 31 29 4F 46 24 00 93 2B |$.(BL$,11)OF$..+|
00002350: B0 09 8F 20 52 3D 31 35 3A 43 3D 31 31 3A 47 4F |... R=15:C=11:GO|
00002360: 53 55 42 34 33 30 3A 50 52 49 4E 54 59 57 24 22 |SUB430:PRINTYW$"|
00002370: 20 4C 41 53 20 56 45 47 41 53 20 53 54 59 4C 45 | LAS VEGAS STYLE|
00002380: 22 3A 52 3D 31 37 3A 43 3D 39 3A 47 4F 53 55 42 |":R=17:C=9:GOSUB|
00002390: 34 33 30 00 C7 2B BA 09 52 B2 32 31 3A 20 43 B2 |430..+..R.21: C.|
000023A0: 39 3A 20 8D 20 34 33 30 3A 20 99 20 43 59 24 22 |9: . 430: . CY$"|
000023B0: 28 43 29 31 39 38 37 20 42 59 20 4A 49 4D 20 53 |(C)1987 BY JIM S|
000023C0: 50 45 45 52 53 2E 22 00 F8 2B BF 09 99 22 11 9A |PEERS."..+..."..|
000023D0: 20 50 55 42 4C 49 53 48 45 44 20 42 59 20 56 49 | PUBLISHED BY VI|
000023E0: 4B 49 4E 47 20 54 45 43 48 4E 4F 4C 4F 47 49 45 |KING TECHNOLOGIE|
000023F0: 53 2C 20 49 4E 43 2E 22 00 36 2C C4 09 52 B2 31 |S, INC.".6,..R.1|
00002400: 30 3A 43 B2 31 34 3A 81 49 B2 31 A4 33 30 3A 8D |0:C.14:.I.1.30:.|
00002410: 20 34 33 30 3A 99 57 48 24 52 56 24 22 20 22 4F | 430:.WH$RV$" "O|
00002420: 46 24 22 42 4C 41 43 4B 4A 41 43 4B 22 52 56 24 |F$"BLACKJACK"RV$|
00002430: 22 20 22 4F 46 24 00 69 2C CE 09 54 B2 31 3A 81 |" "OF$.i,..T.1:.|
00002440: 4B B2 31 A4 32 35 3A 82 3A 9E 36 38 33 3A 99 52 |K.1.25:.:.683:.R|
00002450: 56 24 22 20 42 4C 41 43 4B 4A 41 43 4B 20 22 4F |V$" BLACKJACK "O|
00002460: 46 24 3A 54 B2 31 3A 82 49 00 A3 2C D8 09 52 B2 |F$:T.1:.I..,..R.|
00002470: 31 38 3A 43 B2 30 3A 8D 34 33 30 3A 99 22 81 20 |18:C.0:.430:.". |
00002480: 20 20 20 20 20 20 50 52 45 53 53 20 05 53 50 41 | PRESS .SPA|
00002490: 43 45 42 41 52 81 20 54 4F 20 43 4F 4E 54 49 4E |CEBAR. TO CONTIN|
000024A0: 55 45 22 00 C9 2C DA 09 49 24 B2 22 20 22 3A 4A |UE"..,..I$." ":J|
000024B0: 24 B2 22 88 22 3A 8D 34 30 30 3A 8B 20 5A 24 B2 |$.".":.400:. Z$.|
000024C0: 4A 24 20 A7 20 33 30 30 30 00 E8 2C DD 09 52 B2 |J$ . 3000..,..R.|
000024D0: 52 AA 32 3A 43 B2 31 32 3A 9E 20 50 52 3A 99 20 |R.2:C.12:. PR:. |
000024E0: 42 4C 24 3A 9E 36 38 33 00 0D 2D E2 09 99 22 20 |BL$:.683..-..." |
000024F0: 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D | ONE MOM|
00002500: 45 4E 54 2C 20 50 4C 45 41 53 45 21 22 00 2A 2D |ENT, PLEASE!".*-|
00002510: EC 09 8F 20 20 20 20 12 2A 2A 2A 2A 49 4E 49 54 |... .****INIT|
00002520: 49 41 4C 49 5A 45 2A 2A 2A 2A 00 52 2D F1 09 8B |IALIZE****.R-...|
00002530: 20 41 B2 30 20 A7 20 41 B2 31 3A 93 22 30 3A 53 | A.0 . A.1:."0:S|
00002540: 45 51 20 52 45 41 44 45 52 2E 45 58 45 22 2C 38 |EQ READER.EXE",8|
00002550: 2C 31 00 9E 2D F6 09 52 44 24 B2 22 1C 22 3A 54 |,1..-..RD$.".":T|
00002560: 4D 24 B2 22 A4 22 3A 4C 4D 24 B2 22 A7 22 3A 52 |M$.".":LM$.".":R|
00002570: 4D 24 B2 22 A5 22 3A 42 4D 24 B2 22 A3 22 3A 43 |M$.".":BM$.".":C|
00002580: 42 24 B2 22 A6 22 3A 43 4D 24 B2 22 BF 22 3A 4C |B$.".":CM$.".":L|
00002590: 46 24 B2 22 9D 22 3A 52 54 24 B2 22 1D 22 00 B3 |F$.".":RT$."."..|
000025A0: 2D 00 0A 44 4E 24 B2 22 11 22 3A 58 B2 BB 28 AB |-..DN$.".":X..(.|
000025B0: 54 49 29 00 E2 2D 0A 0A 42 24 B2 22 20 22 3A 42 |TI)..-..B$." ":B|
000025C0: 55 24 B2 22 1F 22 3A 4E 52 24 B2 4C 46 24 AA 4C |U$.".":NR$.LF$.L|
000025D0: 46 24 AA 4C 46 24 AA 4C 46 24 AA 4C 46 24 AA 44 |F$.LF$.LF$.LF$.D|
000025E0: 4E 24 00 10 2E 14 0A 43 31 24 B2 42 55 24 AA 42 |N$.....C1$.BU$.B|
000025F0: 24 AA 54 4D 24 AA 54 4D 24 AA 54 4D 24 AA 42 24 |$.TM$.TM$.TM$.B$|
00002600: AA 4E 52 24 AA 4C 4D 24 3A 42 4B 24 B2 22 90 22 |.NR$.LM$:BK$."."|
00002610: 00 48 2E 1E 0A 52 31 24 B2 43 42 24 AA 43 42 24 |.H...R1$.CB$.CB$|
00002620: AA 43 42 24 3A 52 32 24 B2 43 42 24 AA 43 4D 24 |.CB$:R2$.CB$.CM$|
00002630: AA 43 42 24 3A 43 32 24 B2 42 55 24 AA 52 4D 24 |.CB$:C2$.BU$.RM$|
00002640: AA 4E 52 24 AA 4C 4D 24 00 6B 2E 28 0A 43 34 24 |.NR$.LM$.k.(.C4$|
00002650: B2 42 55 24 AA 52 4D 24 AA 4E 52 24 AA 42 24 AA |.BU$.RM$.NR$.B$.|
00002660: 42 4D 24 AA 42 4D 24 AA 42 4D 24 00 BB 2E 32 0A |BM$.BM$.BM$...2.|
00002670: 42 43 24 B2 43 31 24 AA 52 31 24 AA 43 32 24 AA |BC$.C1$.R1$.C2$.|
00002680: 52 32 24 AA 43 32 24 AA 52 31 24 AA 43 34 24 3A |R2$.C2$.R1$.C4$:|
00002690: 43 31 24 B2 43 31 24 AA 42 24 3A 43 33 24 B2 42 |C1$.C1$.B$:C3$.B|
000026A0: 24 AA 43 32 24 3A 43 32 24 B2 43 32 24 AA 42 24 |$.C2$:C2$.C2$.B$|
000026B0: 3A 43 34 24 B2 42 24 AA 43 34 24 00 D4 2E 37 0A |:C4$.B$.C4$...7.|
000026C0: 81 49 B2 30 A4 31 32 3A 87 51 3A 97 50 32 AA 49 |.I.0.12:.Q:.P2.I|
000026D0: 2C 51 3A 82 00 F2 2E 3C 0A 81 49 B2 31 A4 31 33 |,Q:....<..I.1.13|
000026E0: 3A 87 44 31 24 28 49 29 2C 44 32 24 28 49 29 3A |:.D1$(I),D2$(I):|
000026F0: 82 49 00 21 2F 46 0A 52 4C 28 31 29 B2 38 3A 52 |.I.!/F.RL(1).8:R|
00002700: 4C 28 32 29 B2 31 34 3A 52 4C 28 33 29 B2 32 30 |L(2).14:RL(3).20|
00002710: 3A 81 49 B2 31 A4 38 3A 87 43 4C 28 49 29 3A 82 |:.I.1.8:.CL(I):.|
00002720: 49 00 46 2F 50 0A 48 54 24 B2 22 11 1D 1D 1D 1D |I.F/P.HT$.".....|
00002730: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 48 49 54 3F 20 |...........HIT? |
00002740: 28 59 2F 4E 29 22 00 76 2F 52 0A 59 53 24 B2 22 |(Y/N)".v/R.YS$."|
00002750: 1D 1D 1D 1D 59 4F 55 52 20 53 43 4F 52 45 20 49 |....YOUR SCORE I|
00002760: 53 22 3A 42 53 24 B2 22 42 55 53 54 2D 59 4F 55 |S":BS$."BUST-YOU|
00002770: 20 4C 4F 53 45 22 00 BB 2F 55 0A 59 53 24 B2 22 | LOSE"../U.YS$."|
00002780: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 59 4F 55 52 |............YOUR|
00002790: 20 53 43 4F 52 45 20 49 53 22 3A 42 53 24 B2 22 | SCORE IS":BS$."|
000027A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 42 55 53 |.............BUS|
000027B0: 54 2D 59 4F 55 20 4C 4F 53 45 22 00 EF 2F 5A 0A |T-YOU LOSE"../Z.|
000027C0: 54 4E 24 B2 22 27 53 20 54 55 52 4E 22 3A 45 42 |TN$."'S TURN":EB|
000027D0: 24 B2 22 45 4E 54 45 52 20 42 45 54 22 3A 48 52 |$."ENTER BET":HR|
000027E0: 24 B2 22 20 48 49 54 20 52 45 54 55 52 4E 22 00 |$." HIT RETURN".|
000027F0: 20 30 64 0A 42 4A 24 B2 22 42 4C 41 43 4B 4A 41 | 0d.BJ$."BLACKJA|
00002800: 43 4B 2D 59 4F 55 52 20 42 45 54 20 50 41 59 53 |CK-YOUR BET PAYS|
00002810: 20 33 20 54 4F 20 32 22 3A 48 4D 24 B2 22 13 22 | 3 TO 2":HM$."."|
00002820: 00 66 30 6E 0A 50 43 24 28 31 29 B2 52 44 24 3A |.f0n.PC$(1).RD$:|
00002830: 50 43 24 28 32 29 B2 43 59 24 3A 50 43 24 28 33 |PC$(2).CY$:PC$(3|
00002840: 29 B2 22 9C 22 3A 50 43 24 28 34 29 B2 22 1E 22 |).".":PC$(4)."."|
00002850: 3A 50 43 24 28 35 29 B2 42 55 24 3A 50 43 24 28 |:PC$(5).BU$:PC$(|
00002860: 36 29 B2 59 57 24 00 8B 30 78 0A 53 43 24 28 31 |6).YW$..0x.SC$(1|
00002870: 29 B2 42 4B 24 3A 53 43 24 28 32 29 B2 52 44 24 |).BK$:SC$(2).RD$|
00002880: 3A 50 43 24 28 30 29 B2 22 9B 22 00 B7 30 82 0A |:PC$(0)."."..0..|
00002890: 53 24 28 31 29 B2 22 C1 22 3A 53 24 28 32 29 B2 |S$(1).".":S$(2).|
000028A0: 22 D8 22 3A 53 24 28 33 29 B2 22 D3 22 3A 53 24 |".":S$(3).".":S$|
000028B0: 28 34 29 B2 22 DA 22 00 E5 30 8C 0A 96 A5 43 28 |(4)."."..0....C(|
000028C0: 58 29 B2 31 AB 28 58 B1 32 29 3A 96 A5 56 28 58 |X).1.(X.2):..V(X|
000028D0: 29 B2 AB 58 AC 28 58 B3 31 31 29 AB 31 30 AC 28 |)..X.(X.11).10.(|
000028E0: 58 B1 31 30 29 00 0B 31 96 0A 96 A5 48 28 58 29 |X.10)..1....H(X)|
000028F0: B2 AB 28 58 B2 30 29 AB 32 AC 28 58 B1 30 AF 58 |..(X.0).2.(X.0.X|
00002900: B3 37 29 AB 33 AC 28 58 B1 36 29 00 24 31 A0 0A |.7).3.(X.6).$1..|
00002910: 4B 28 31 29 B2 30 3A 4B 28 32 29 B2 31 3A 4B 28 |K(1).0:K(2).1:K(|
00002920: 33 29 B2 30 00 53 31 AA 0A 99 43 53 24 22 11 11 |3).0.S1...CS$"..|
00002930: 22 A3 31 35 29 22 96 42 4C 41 43 4B 4A 41 43 4B |".15)".BLACKJACK|
00002940: 22 3A 99 A3 31 35 29 22 9E A3 A3 A3 A3 A3 A3 A3 |":..15)"........|
00002950: A3 A3 22 00 81 31 B4 0A 99 22 11 9F 20 20 20 54 |.."..1...".. T|
00002960: 48 49 53 20 47 41 4D 45 20 49 53 20 44 45 53 49 |HIS GAME IS DESI|
00002970: 47 4E 45 44 20 54 4F 20 53 49 4D 55 4C 41 54 45 |GNED TO SIMULATE|
00002980: 22 00 A9 31 BE 0A 99 22 20 41 43 54 55 41 4C 20 |"..1..." ACTUAL |
00002990: 43 41 53 49 4E 4F 20 50 4C 41 59 20 41 53 20 4E |CASINO PLAY AS N|
000029A0: 45 41 52 4C 59 20 41 53 22 00 D6 31 C8 0A 99 22 |EARLY AS"..1..."|
000029B0: 20 50 4F 53 53 49 42 4C 45 2E 20 20 53 50 4C 49 | POSSIBLE. SPLI|
000029C0: 54 54 49 4E 47 20 50 41 49 52 53 2C 20 44 4F 55 |TTING PAIRS, DOU|
000029D0: 42 4C 49 4E 47 22 00 07 32 D2 0A 99 22 20 44 4F |BLING"..2..." DO|
000029E0: 57 4E 2C 20 41 4E 44 20 49 4E 53 55 52 41 4E 43 |WN, AND INSURANC|
000029F0: 45 20 42 45 54 53 20 41 52 45 20 41 56 41 49 4C |E BETS ARE AVAIL|
00002A00: 41 42 4C 45 2E 22 3B 00 35 32 DC 0A 99 22 20 4D |ABLE.";.52..." M|
00002A10: 49 4E 49 4D 55 4D 20 42 45 54 20 49 53 20 24 32 |INIMUM BET IS $2|
00002A20: 2C 20 4D 41 58 49 4D 55 4D 20 24 35 30 30 2E 20 |, MAXIMUM $500. |
00002A30: 42 45 54 53 22 00 63 32 E6 0A 99 22 20 41 52 45 |BETS".c2..." ARE|
00002A40: 20 49 4E 20 44 4F 4C 4C 41 52 53 20 4F 4E 4C 59 | IN DOLLARS ONLY|
00002A50: 2C 20 42 55 54 20 50 41 59 2D 4F 46 46 53 20 41 |, BUT PAY-OFFS A|
00002A60: 52 45 22 00 92 32 F0 0A 99 22 20 45 58 41 43 54 |RE"..2..." EXACT|
00002A70: 2E 20 20 42 45 54 53 20 41 52 45 20 52 45 54 55 |. BETS ARE RETU|
00002A80: 52 4E 45 44 20 4F 4E 20 50 55 53 48 45 53 2E 22 |RNED ON PUSHES."|
00002A90: 3A 99 00 C4 32 FA 0A 99 22 11 11 05 44 4F 20 59 |:...2..."...DO Y|
00002AA0: 4F 55 20 57 41 4E 54 20 4D 4F 52 45 20 44 45 54 |OU WANT MORE DET|
00002AB0: 41 49 4C 45 44 20 49 4E 53 54 52 55 43 54 49 4F |AILED INSTRUCTIO|
00002AC0: 4E 53 3F 22 00 E5 32 04 0B 99 22 11 20 20 20 20 |NS?"..2...". |
00002AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 9E 28 59 | .(Y|
00002AE0: 2F 4E 29 9A 22 00 0B 33 0E 0B 49 24 B2 22 59 22 |/N)."..3..I$."Y"|
00002AF0: 3A 4A 24 B2 22 4E 22 3A 8D 34 30 30 3A 8B 5A 24 |:J$."N":.400:.Z$|
00002B00: B2 49 24 A7 20 8D 20 32 33 33 30 00 4A 33 18 0B |.I$. . 2330.J3..|
00002B10: 99 43 53 24 44 4E 24 44 4E 24 22 48 4F 57 20 4D |.CS$DN$DN$"HOW M|
00002B20: 41 4E 59 20 50 4C 41 59 45 52 53 3F 20 28 31 2D |ANY PLAYERS? (1-|
00002B30: 36 29 20 22 3B 3A 4C 4D B2 31 3A 8D 34 30 30 30 |6) ";:LM.1:.4000|
00002B40: 3A 4E 50 B2 C5 28 47 46 24 29 00 5E 33 22 0B 8B |:NP..(GF$).^3"..|
00002B50: 4E 50 B3 31 B0 4E 50 B1 36 A7 32 38 34 30 00 99 |NP.1.NP.6.2840..|
00002B60: 33 2C 0B 81 49 B2 31 A4 4E 50 3A 99 43 53 24 44 |3,..I.1.NP:.CS$D|
00002B70: 4E 24 44 4E 24 22 11 05 45 4E 54 45 52 20 50 4C |N$DN$"..ENTER PL|
00002B80: 41 59 45 52 22 3B 49 3B 22 9D 27 53 20 4E 41 4D |AYER";I;".'S NAM|
00002B90: 45 22 3A 99 22 3E 20 22 3B 00 C8 33 36 0B 4C 4D |E":."> ";..36.LM|
00002BA0: B2 31 36 3A 8D 34 30 30 30 3A 50 4E 24 28 49 29 |.16:.4000:PN$(I)|
00002BB0: B2 47 46 24 3A 8D 32 39 32 30 3A 97 42 4F 2C 31 |.GF$:.2920:.BO,1|
00002BC0: 31 3A 97 42 41 2C 31 35 00 EE 33 40 0B 99 43 53 |1:.BA,15..3@..CS|
00002BD0: 24 50 43 24 28 49 29 3B 3A 81 4A B2 31 A4 36 3A |$PC$(I);:.J.1.6:|
00002BE0: 99 52 56 24 42 4C 24 4F 46 24 3B 3A 82 4A 00 28 |.RV$BL$OF$;:.J.(|
00002BF0: 34 45 0B 99 22 90 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |4E.."...........|
00002C00: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00002C10: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 9D 22 C7 |..............".|
00002C20: 28 31 34 38 29 22 B7 22 00 65 34 4A 0B 99 48 4D |(148)".".e4J..HM|
00002C30: 24 22 11 22 42 4B 24 20 A6 32 30 AB 28 28 C3 28 |$"."BK$ .20.((.(|
00002C40: 50 4E 24 28 49 29 29 AA 31 34 29 AD 32 29 29 50 |PN$(I)).14).2))P|
00002C50: 4E 24 28 49 29 22 2C 20 54 48 49 53 20 49 53 20 |N$(I)", THIS IS |
00002C60: 59 4F 55 52 22 00 84 34 4F 0B 99 A6 31 31 29 22 |YOUR"..4O...11)"|
00002C70: 11 49 44 45 4E 54 49 46 59 49 4E 47 20 43 4F 4C |.IDENTIFYING COL|
00002C80: 4F 52 2E 22 00 A1 34 54 0B 54 B2 38 3A 8D 33 33 |OR."..4T.T.8:.33|
00002C90: 30 3A 97 42 4F 2C 31 35 3A 97 42 41 2C 30 3A 82 |0:.BO,15:.BA,0:.|
00002CA0: 49 00 AA 34 5E 0B 89 37 36 30 00 D2 34 68 0B 99 |I..4^..760..4h..|
00002CB0: 3A 99 22 20 20 20 20 20 20 20 20 20 20 59 4F 55 |:." YOU|
00002CC0: 20 53 54 41 52 54 20 57 49 54 48 20 24 31 30 30 | START WITH $100|
00002CD0: 30 22 00 FF 34 6D 0B 99 22 11 11 11 11 11 11 11 |0"..4m..".......|
00002CE0: 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
00002CF0: 50 52 45 53 53 20 53 50 41 43 45 42 41 52 22 00 |PRESS SPACEBAR".|
00002D00: 22 35 72 0B 42 52 28 49 29 B2 31 30 30 30 3A 41 |"5r.BR(I).1000:A|
00002D10: 49 28 49 29 B2 42 52 28 49 29 3A 8D 20 33 37 30 |I(I).BR(I):. 370|
00002D20: 3A 8E 00 43 35 7C 0B 8F 20 20 20 12 2A 2A 2A 2A |:..C5|.. .****|
00002D30: 44 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 2A |DATA STATEMENTS*|
00002D40: 2A 2A 2A 00 79 35 86 0B 83 32 33 30 2C 32 35 31 |***.y5...230,251|
00002D50: 2C 32 33 30 2C 32 35 31 2C 31 36 36 2C 32 35 31 |,230,251,166,251|
00002D60: 2C 31 36 34 2C 32 35 32 2C 32 34 2C 33 32 2C 32 |,164,252,24,32,2|
00002D70: 34 30 2C 32 35 35 2C 39 36 00 C4 35 90 0B 83 22 |40,255,96..5..."|
00002D80: 20 41 22 2C 22 41 20 22 2C 22 20 32 22 2C 22 32 | A","A "," 2","2|
00002D90: 20 22 2C 22 20 33 22 2C 22 33 20 22 2C 22 20 34 | "," 3","3 "," 4|
00002DA0: 22 2C 22 34 20 22 2C 22 20 35 22 2C 22 35 20 22 |","4 "," 5","5 "|
00002DB0: 2C 22 20 36 22 2C 22 36 20 22 2C 22 20 37 22 2C |," 6","6 "," 7",|
00002DC0: 22 37 20 22 00 05 36 9A 0B 83 22 20 38 22 2C 22 |"7 "..6..." 8","|
00002DD0: 38 20 22 2C 22 20 39 22 2C 22 39 20 22 2C 22 31 |8 "," 9","9 ","1|
00002DE0: 30 22 2C 22 31 30 22 2C 22 20 4A 22 2C 22 4A 20 |0","10"," J","J |
00002DF0: 22 2C 22 20 51 22 2C 22 51 20 22 2C 22 20 4B 22 |"," Q","Q "," K"|
00002E00: 2C 22 4B 20 22 00 20 36 A4 0B 83 30 2C 35 2C 31 |,"K ". 6...0,5,1|
00002E10: 30 2C 31 35 2C 32 30 2C 32 35 2C 33 30 2C 33 35 |0,15,20,25,30,35|
00002E20: 00 56 36 B8 0B 97 20 35 33 32 38 31 2C 31 3A 99 |.V6... 53281,1:.|
00002E30: 22 93 11 11 11 90 20 20 20 20 20 20 20 20 52 45 |"..... RE|
00002E40: 54 55 52 4E 20 54 4F 20 55 50 54 49 4D 45 3F 20 |TURN TO UPTIME? |
00002E50: 28 59 2F 4E 29 22 00 6E 36 C2 0B 49 24 B2 22 59 |(Y/N)".n6..I$."Y|
00002E60: 22 3A 4A 24 B2 22 4E 22 3A 8D 20 34 30 30 00 7E |":J$."N":. 400.~|
00002E70: 36 CC 0B 8B 20 5A 24 B2 4A 24 20 A7 20 8A 00 8F |6... Z$.J$ . ...|
00002E80: 36 80 0C 9E 20 28 38 AC 34 30 39 36 29 AA 34 00 |6... (8.4096).4.|
00002E90: AE 36 A0 0F 8F 2A 2A 2A 49 4E 50 55 54 20 43 48 |.6...***INPUT CH|
00002EA0: 41 52 41 43 54 45 52 20 53 54 52 49 4E 47 00 C4 |ARACTER STRING..|
00002EB0: 36 AA 0F 43 54 B2 30 3A 47 46 24 B2 22 22 3A 99 |6..CT.0:GF$."":.|
00002EC0: 22 AF 22 3B 00 D8 36 B4 0F A1 47 24 3A 8B 47 24 |".";..6...G$:.G$|
00002ED0: B2 22 22 A7 34 30 32 30 00 E4 36 BE 0F 47 B2 C6 |."".4020..6..G..|
00002EE0: 28 47 24 29 00 F7 36 C8 0F 8B 47 B2 31 33 A7 20 |(G$)..6...G.13. |
00002EF0: 99 22 9D 20 22 3A 8E 00 0F 37 D2 0F 8B 47 B2 32 |.". ":...7...G.2|
00002F00: 30 20 AF 20 43 54 B2 30 20 A7 20 34 30 32 30 00 |0 . CT.0 . 4020.|
00002F10: 3E 37 E6 0F 8B 20 47 B2 32 30 20 A7 20 43 54 B2 |>7... G.20 . CT.|
00002F20: 43 54 AB 31 3A 47 46 24 B2 C8 28 47 46 24 2C 43 |CT.1:GF$..(GF$,C|
00002F30: 54 29 3A 99 22 9D 9D 20 20 9D 9D AF 22 3B 00 4E |T):.".. ...";.N|
00002F40: 37 04 10 8B 43 54 B2 4C 4D A7 34 30 32 30 00 60 |7...CT.LM.4020.`|
00002F50: 37 09 10 8B 20 47 B2 33 32 20 A7 20 34 31 35 30 |7... G.32 . 4150|
00002F60: 00 74 37 0B 10 8B 20 47 24 B2 22 8C 22 20 A7 20 |.t7... G$."." . |
00002F70: 33 30 30 30 00 9A 37 0C 10 8B 20 47 B1 31 39 33 |3000..7... G.193|
00002F80: 20 AF 20 47 B3 32 31 38 20 A7 20 47 B2 47 AB 31 | . G.218 . G.G.1|
00002F90: 32 38 3A 47 24 B2 C7 28 47 29 00 B3 37 0E 10 8B |28:G$..(G)..7...|
00002FA0: 28 47 B3 34 38 29 B0 28 47 B1 39 30 29 A7 20 34 |(G.48).(G.90). 4|
00002FB0: 30 32 30 00 D7 37 36 10 99 22 9D 20 9D 22 47 24 |020..76..". ."G$|
00002FC0: 22 AF 22 3B 3A 43 54 B2 43 54 AA 31 3A 47 46 24 |".";:CT.CT.1:GF$|
00002FD0: B2 47 46 24 AA 47 24 00 E1 37 40 10 89 34 30 32 |.GF$.G$..7@..402|
00002FE0: 30 00 F4 37 4A 10 8F 20 20 2A 2A 2A 2A 45 4E 44 |0..7J.. ****END|
00002FF0: 2A 2A 2A 2A 00 FA 37 67 10 80 00 00 00 |****..7g..... |
....... A.1 . 2550.%....".":. 53281,0.A.
N.. .****DIMENSIONS****...X..DU%(52),D
%(52),D1$(13),D2$(13),S$(4),SC$(2),H%(12
,8),S1(12),S2(12).M....B(3,6),BR(6),AI(6
),R(12),RL(3),CL(8),PN$(6),PC$(6),K(3),C
N(12)...... .***PRE-INITIALIZE***.0...
BO.53280:BA.53281:PT.646:LB$.".":LG$."."
:WH$.".":YW$.".":CY$.".".B. .SK.2:.SK,0:
RO.251:CO.252:P2.679:PD.681:PR.683.{....
I.0.12:.Q:.P2.I,Q:......AK$." PRES
S SPACEBAR TO CONTINUE".Z...BL$."
"...C.C
S$.".":RV$.".":OF$."."...H..2450.".R.. .
*******SUBROUTINES********.>.... .*
**DEAL DECK***.J....CS$:.BO,11:.BA,11:.P
T,10:R.11:C.7:.430......"THE DECK IS BEI
NG SHUFFLED".....N.1:.I.1.4:.J.1.13:DU%(
N).100.I.J:N.N.1:.J,I.....N.1:.I.1.52:X.
.(.(1).52).1......DU%(X)..0.300.....X.X.
1:.X.52.X.1..."..270.&.,.D%(I).DU%(X):DU
%(X).0.U.6..I:NC.52:.CS$:.BO,K(1):.BA,K(
2):.PT,K(3):..P.@.. .***TIME LOOP***
.}.J.T.150.TI...T.. A$:. A$."." . 3000..
.Y..T.TI.340...^...D.H.. .***GET DELA
Y***.W.R..Z$:.Z$."".370...W.. Z$."." . 3
000...|........ .***TWO-WAY GET***.3..
..Z$:. Z$."" . Z$..I$ . Z$..J$ .400.G...
. Z$."." . 3000.M.....H.... .***MOVE C
URSOR***.....RO,R:.CO,C:.683:.......
.***DECODE CARD***...B.SU..(CD.100):DE.C
D.100.SU:....L.. .***DEVELOP CARD STRIN
G***...V..450:CD$.C1$.SC$(.C(SU)).D1$(DE
).C2$.SC$(.C(SU)).S$(SU).C3$.B...CD$.CD$
.SC$(.C(SU)).D2$(DE).C4$:..^.... .***U
PDATE SCORE***......450:S1(P).S1(P)..V(D
E):S2(P).S2(P)..V(DE)...... DE.1 . (S1(P
).S2(P)). S1(P).S1(P).10.......Y....
.***PRINT CARD***......470...&.R.RL(.H(P
)):C.CL(CN(P)):.430:.CD$;:..+.0.. .**
*ERASE ALL CARDS***.J.:.R.13:C.0:.430:X$
.H(BL$,39).`.D..Z.1.12:.X$;:.Z:....N..
.***PRINT COLOR STRIP***...X..HM$PC$(P.
6.(P.6));:.Z.1.6:.RV$BL$OF$;:.Z...Y.."..
......................................."
;...Z.R.23: C.13: . 430:.".F8 FOR UPTIME
."PC$(P.6.(P.6))...]...@.B.. .***BANKR
OLL OVERDRAWN***.S.L.Y.P:.Y.6.Y.Y.6...V.
.600:.HM$BK$"............... YOU ARE BUS
TED " ......".........HAVE SOM
E MONEY ON ME!".....BR(Y).BR(Y)..2:AI(Y)
.AI(Y).BR(Y).(BR(Y).2)...... 330:.......
.***PRINT SCORE***.#.....24.C(X$));X$
;:..A.... .***PRINT WIN SCORE***.D...X$
."WON".D(W):..38.C(X$));X$:....F.. .***
PRINT TIE SCORE***...P.X$."BROKE EVEN":.
.38.C(X$));X$:..F.Z.. .***PRINT LOST SC
ORE***.....X$."LOST".D(W):..38.C(X$));X$
:....... .****MAIN GAME ROUTINES****..
....230.1....BO,11:.BA,15:.P.1.NP.J....
.***TAKE BETS***.U....600:.HM$"."BK$.2
0.((C(PN$(P)).7).2));......PN$(P)TN$...
.."..."EB$": ";:LM.4:.4000:X.E(GF$).V.*.
.X.2..600:.HM$BK$"MINIMUM BET=$2":.800..
.4..X.500..600:.HM$BK$"MAXIMUM BET=$500"
:.800.6.>.B(1,P)..(X):BR(P).BR(P).B(1,P)
:.BR(P).0..620.=.H..P._.R.. .***PRINT D
EALER'S HAND***...\.P.0:R.7:C.1:.430:.BU
$.13)"DEALER'S HAND".P.F.CN(P).CN(P).1:H
%(P,CN(P)).D%(NC):CD.D%(NC):NC.NC.1:CD$.
BC$:.550.Y.P..500...Z.CN(P).CN(P).1:H%(P
,CN(P)).D%(NC):CD.D%(NC):NC.NC.1:.540:.5
00.)....DE..1.970.K.... .***TAKE INSURA
NCE BETS***......P.1.NP:.600:.HM$"."BK$.
20.((C(PN$(P)).7).2)) PN$(P)TN$.B....:."
..........INSURANCE BET? (Y/N)":I$."Y":J
$."N":.400.Q....Z$.J$.960.....B(2,P).B(1
,P).2:BR(P).BR(P).B(1,P).2:.BR(P).0..620
......P:P.0.'.J..S1(P)..21.1100.H.T..
.***DEALER BLACKJACK***......600:.HM$".
"BK$.10)"DEALER HAS BLACKJACK":T.8:.330:
R(0).100.....CD.H%(0,1):CN(0).1:.540....
..P.1.NP:.600:.HM$BK$ .20.((C(PN$(P)).7)
.2)) PN$(P)TN$:CN(P).0.#...R.13:C.1:.430
:.BU$ .20.((C(PN$(P)).7).2))PN$(P)"'S HA
ND".F....I.1.2:CN(P).CN(P).1:H%(P,CN(P))
.D%(NC):CD.D%(NC):NC.NC.1:.540.R....500:
.I.....R(P).S1(P):.S1(P).21.R(P).100.G.$
..R(P)..100..600:.HM$"."BK$.16)"YOU LOSE
":.1080......HM$"."BK$.5)"BLACKJACK-YOUR
BET IS RETURNED"...8.T.8:.330:.570:.P:.
1710.6.B.. .***DEAL PLAYER'S HANDS***.B
.L..P.1.NP..V.R.13:C.1:.430:.BU$ .20.((
C(PN$(P)).7).2))PN$(P)"'S HAND"...`..600
:.HM$"."BK$.20.((C(PN$(P)).7).2)) PN$(P)
TN$:CN(P).0...J..I.1.2:CN(P).CN(P).1:H%(
P,CN(P)).D%(NC):CD.D%(NC):NC.NC.1:.540..
.T..500:.I.+.~.. .***PLAYER BLACKJACK
***.B.... S1(P)..21 . 1180.K....600:.HM$
"."BK$BJ$:R(P).100:T.8:.330.}.... NP.1 .
1510...... 1710...... .***CHECK FOR
PAIRS***.....CD.H%(P,1):.450:D1.DE:CD.H%
(P,2):.450:D2.DE:.D1..D2.1300......600:.
HM$"."BK$.9)"SPLIT YOUR PAIR? (Y/N)".+..
.I$."Y":J$."N":.400.;....Z$.J$.1300.X...
. .***SPLIT THE PAIR***...D.B(3,P).B(1,
P):BR(P).BR(P).B(1,P):.BR.0..620.G.N..SK
,(B(SK)).(2.P):H%(P.6,1).H%(P,2):H%(P,2)
.0:CN(P).1:.570...X.R.13:C.1:.430:.BU$PN
$(P)"'S HAND".$...S1(P).0:S2(P).0:CD.H%(
P,1):.540:.500:P.P.6:CN(P).1.R...R.19:C.
1:.430:.BU$PN$(P.6)"'S SPLIT HAND".Q...C
D.H%(P,1):.540:.500:P.P.6.....H%(2,P).D%
(NC):CD.D%(NC):NC.NC.1:CN(P).CN(P).1:.54
0:.500.P.... .***ONE DOWN FOR DOUBLE***
......S2(P).9.S2(P).11.1420......600:.HM
$"."BK$.7)"ONE DOWN FOR DOUBLE? (Y/N)".5
.#.I$."Y":J$."N":.400.E.(..Z$.J$.1420.`.
2.Y.P:V.1:.Y.6.Y.Y.6:V.3...<.BR(Y).BR(Y)
.B(V,Y):.BR(Y).0..620...F.B(V,Y).2.B(V,Y
).Z.P.CN(P).CN(P).1:H%(P,CN(P)).D%(NC):C
D.D%(NC):NC.NC.1:.540:.500...Z..S1(P).22
.R(P).S1(P):.1390.'.D.R(P).S2(P):.R(P).2
1..:.BS$:T.8:.330:.1400.L.N..600:.HM$"."
BK$YS$;R(P):T.8:.330.V.X..1510.W.... .
***PLAY REGULAR HAND***......600:.HM$BK$
HT$:I$."Y":J$."N":.400:.Z$.J$.1460.....C
N(P).CN(P).1:H%(P,CN(P)).D%(NC):CD.D%(NC
):NC.NC.1:.540:.500... ..S2(P).21.1470..
....1420.'....S1(P).22.R(P).S1(P):.1480.
6...R(P).S2(P).H.H..R(P).22.1490.U.I..60
0:.HM$"."BK$BS$:T.8:.330:.NP.1 . 1510...
M.. NP.1 . 1710...R..600:.HM$"."BK$YS$;R
(P):T.8:.330.W.... .***CHECK & ADJUST FO
R SPLIT HAND***......P.6.P.P.6:.1560....
..(B(SK).(2.P))..2.P.1560.P...P.P.6:CN(P
).CN(P).1:H%(P,CN(P)).D%(NC):CD.D%(NC):N
C.NC.1:.540:.500.C....S1(P).21.1160.M...
.1300.Y....570:.P...".. .***FINISH DEA
LER HAND***.D.,.P.0:CN(P).1:CD.H%(P,1):.
540:T.6:.330...6.. R(P.6)..100 . R(0).10
0 . 1600.%.;.. W=1.5*B(3,P):BR(P)=BR(P)+
2.5*B(3,P):GOSUB700:GOTO 1990.1.@.CN(P).
2.D.J..S1(P).16.1640...T.CN(P).CN(P).1:H
%(P,CN(P)).D%(NC):CD.D%(NC):NC.NC.1:.540
:.500...^.T.6:.330:.1610...H..S1(P).16.S
1(P).22.R(P).S1(P):.1690.S.R..S2(P).17.1
620...|..S2(P).16.S2(P).22.R(P).S2(P):.1
690.6....600:.HM$BK$"..DEALER BUSTS-ALL
REMAINING PLAYERS WIN".C...T.8:.330.X...
R(P).S2(P):.1710......600:.HM$BK$.10)".D
EALER'S SCORE IS";R(P):T.8:.330...... .
***PRINT SUMMARY***.U....CS$;:.BO,K(1):.
BA,K(2):.PT,K(3):ZY.0.......16)"SUMMARY"
:..16)".......".- B.."DEALER'S SCORE=";:
.R(0).100.." BLACKJACK":.1750.I L..R(0);
:.R(0).21.."BUST".R V..:."NAME-BET".20)"
SCORE".31)"RESULT".. ..."........".20)".
....".31)"......":.ZY.1.ZY.0:.2040.A ...
P.1.NP:.PN$(P)"'S.X ....4)"REGULAR BET";
.. ...R(P).100.X$."BJ":.680:.1810..!..X$
.D(R(P)):.680.T!...R(P).100.R(0)..100.W.
1.5.B(1,P):BR(P).BR(P).2.5.B(1,P):.700:.
1880..!...R(P).100.R(0).100.BR(P).BR(P).
B(1,P):.720:.1880..!&..R(P).21.R(0).100.
W.B(1,P):.740:.1880..!0..R(0).21.W.B(1,P
):BR(P).BR(P).2.B(1,P):.700:.1880..":..R
(0).R(P).W.B(1,P):.740:.1880.D"D..R(P).R
(0).W.B(1,P):BR(P).BR(P).2.B(1,P):.700:.
1880.T"N..R(P).R(0).W.B(1,P):BR(P).BR(P)
.B(1,P):.720.."X..B(3,P).0.1990.."B...4)
"SPLIT HAND";.."L..R(P.6).100.X$."BJ":.6
80:.1920.V"V.X$.D(R(P.6)):.680..#...R(P.
6).100.R(0)..100.W.1.5.B(3,P):BR(P).BR(P
).2.5.B(3,P):.700:.1990.V#...R(P.6).100.
R(0).100.BR(P).BR(P).B(3,P):.720:.1990..
#...R(P.6).21.R(0).100.W.B(3,P):.740:.19
90..#...R(0).21.W.B(3,P):BR(P).BR(P).2.B
(3,P):.700:.1990..#...R(0).R(P.6).W.B(3,
P):.740:.1990..$...R(P.6).R(0).W.B(3,P):
BR(P).BR(P).2.B(3,P):.700:.1990.I$...R(P
.6).R(0).W.B(3,P):BR(P).BR(P).B(3,P):.72
0.\$F..B(2,P).0.2030.U$P...4)"INSURANCE
BET";..$Z..R(0)..100.W.B(2,P):.740:.2030
.A$..W.2.B(2,P):BR(P).BR(P).3.B(2,P):.70
0..$...B(214).17..:.AK$:.370:ZY.1:.CS$;:
.1720..$...:.P..%...:.AK$:.370.=%...CS$"
PLAYER".12)"INVESTED".23)"NOW HAS".35)
"+/-".S%..." ......".12)"........".23)"
.......".34)"....."..% ..:.P.1.NP:.PN$(P
);..%*.X$.D(AI(P)):..20.C(X$));X$;.J%4.X
$.D(BR(P)):..30.C(X$));X$;..%>.X.BR(P).A
I(P):X$.D(X)..%H..X.0.X$."+".J(X$,2)..&R
...39.C(X$));X$:...&\..P.R&F..:."
ANOTHER HAND? (Y/N)":I$."Y":J$."N":.4
00.C&P..Z$.J$. 3000.M&X..2170.S&Y....&Z.
.". ONE MOMENT, PLEASE... "..&.
.FR..(0)..&...SK,0:.I.0.12..&..CN(I).0:R
(I).0:S1(I).0:S2(I).0..&...J.1.8:H%(I,J)
.0:.J..&...I..'...I.1.3:.J.1.6:B(I,J).0:
.J,I.5'...NC.(5.NP)..CS$:.760.C'J..CS$:.
770.K'T..S1(P).16.S1(P).22.R(P).S1(P):.1
670.~'...S2(P).17.1600..'...S2(P).16.S2(
P).22.R(P).S2(P):.1670..'...600:.HM$BK$"
DEALER BUSTS-ALL REMAINING PLAYERS WIN":
T.8:.330..'..R(P).S2(P):.1680.5(...600:.
HM$BK$"DEALER'S SCORE IS";R(P):T.8:.330:
.1680.Y(... .****PRINT INSTRUCTIONS***
*..(..."."CS$G(14):.BO,0:.BA,15:Q$.G(34)
..($.. 15,8,15,"I0":. 2420..(... 4,8,4,"
0:BLKJK.DOC,S,R":. 2420.H(8.PG.0..(B.. 2
390:. 49152..(G.. 2400:. Z$."." . 2385..
)I.. Z$."." . .G(142): 4: 15:. 3000.?)
L.. (B(2) . 64).0 ..".";:. 2370.D)Q.."..
"G(142): 4: 15:. 53281,0:.. )V.PG.PG.1
:."..... INSTRUCTIONS PAGE"PG". OF 4
":..F)`..:..8)". PRESS ANY KEY FOR
MORE "..)E...6)". F1 TO EXIT, F8 FOR UPT
IME .";..*J.. 198,0:. 198,1:. Z$:. 198,0
:..1*T..15,ER$,EM$:. ER$."20" . ..`*~.."
.... DISK ERROR!. "ER$", "EM$:. 2410:.
..*... .****WELCOME SCREEN****..*...CS
$:.BO,15:.BA,0:R.5:C.15:.430..*...LG$".W
ELCOME TO"G(142)..*..R.7:C.11:.430:.YW$"
LAS VEGAS STYLE"..+...CO,B(CO).3: .679:
. WH$RV$H(BL$,11)OF$.3+...681:.RV$" BLA
CKJACK "OF$.M+...681:.RV$H(BL$,11)OF$..+
... R=15:C=11:GOSUB430:PRINTYW$" LAS VEG
AS STYLE":R=17:C=9:GOSUB430.G+..R.21: C.
9: . 430: . CY$"(C)1987 BY JIM SPEERS.".
.+...".. PUBLISHED BY VIKING TECHNOLOGIE
S, INC.".6,D.R.10:C.14:.I.1.30:. 430:.WH
$RV$" "OF$"BLACKJACK"RV$" "OF$.I,N.T.1:.
K.1.25:.:.683:.RV$" BLACKJACK "OF$:T.1:.
I..,X.R.18:C.0:.430:.". PRESS .SPA
CEBAR. TO CONTINUE".I,Z.I$." ":J$.".":.4
00:. Z$.J$ . 3000..,..R.R.2:C.12:. PR:.
BL$:.683..-..." ONE MOMENT, PLE
ASE!".*-... .****INITIALIZE****.R-...
A.0 . A.1:."0:SEQ READER.EXE",8,1..-..R
D$.".":TM$.".":LM$.".":RM$.".":BM$.".":C
B$.".":CM$.".":LF$.".":RT$."."..-..DN$."
.":X..(.TI)..-..B$." ":BU$.".":NR$.LF$.L
F$.LF$.LF$.LF$.DN$.....C1$.BU$.B$.TM$.TM
$.TM$.B$.NR$.LM$:BK$.".".H...R1$.CB$.CB$
.CB$:R2$.CB$.CM$.CB$:C2$.BU$.RM$.NR$.LM$
.K.(.C4$.BU$.RM$.NR$.B$.BM$.BM$.BM$...2.
BC$.C1$.R1$.C2$.R2$.C2$.R1$.C4$:C1$.C1$.
B$:C3$.B$.C2$:C2$.C2$.B$:C4$.B$.C4$.T.7.
.I.0.12:.Q:.P2.I,Q:....<..I.1.13:.D1$(I)
,D2$(I):.I.!/F.RL(1).8:RL(2).14:RL(3).20
:.I.1.8:.CL(I):.I.F/P.HT$.".............
...HIT? (Y/N)".V/R.YS$."....YOUR SCORE I
S":BS$."BUST-YOU LOSE"../U.YS$."........
....YOUR SCORE IS":BS$.".............BUS
T-YOU LOSE"../Z.TN$."'S TURN":EB$."ENTER
BET":HR$." HIT RETURN". 0D.BJ$."BLACKJA
CK-YOUR BET PAYS 3 TO 2":HM$.".".F0N.PC$
(1).RD$:PC$(2).CY$:PC$(3).".":PC$(4)."."
:PC$(5).BU$:PC$(6).YW$..0X.SC$(1).BK$:SC
$(2).RD$:PC$(0)."."..0..S$(1)."A":S$(2).
"X":S$(3)."S":S$(4)."Z"..0....C(X).1.(X.
2):..V(X)..X.(X.11).10.(X.10)..1....H(X)
..(X.0).2.(X.0.X.7).3.(X.6).$1 .K(1).0:K
(2).1:K(3).0.S1...CS$"..".15)".BLACKJACK
":..15)".........."..1...".. THIS GAME
IS DESIGNED TO SIMULATE"..1..." ACTUAL
CASINO PLAY AS NEARLY AS".V1H.." POSSIBL
E. SPLITTING PAIRS, DOUBLING"..2R.." DO
WN, AND INSURANCE BETS ARE AVAILABLE.";.
52..." MINIMUM BET IS $2, MAXIMUM $500.
BETS".C2..." ARE IN DOLLARS ONLY, BUT PA
Y-OFFS ARE"..2..." EXACT. BETS ARE RETU
RNED ON PUSHES.":..D2..."...DO YOU WANT
MORE DETAILED INSTRUCTIONS?"..2...".
.(Y/N)."..3..I$."Y":J$."N":
.400:.Z$.I$. . 2330.J3...CS$DN$DN$"HOW M
ANY PLAYERS? (1-6) ";:LM.1:.4000:NP.E(GF
$).^3"..NP.1.NP.6.2840..3,..I.1.NP:.CS$D
N$DN$"..ENTER PLAYER";I;".'S NAME":."> "
;.H36.LM.16:.4000:PN$(I).GF$:.2920:.BO,1
1:.BA,15..3@..CS$PC$(I);:.J.1.6:.RV$BL$O
F$;:.J.(4E.."...........................
.............."G(148)".".E4J..HM$"."BK$
.20.((C(PN$(I)).14).2))PN$(I)", THIS IS
YOUR"..4O...11)".IDENTIFYING COLOR."..4T
.T.8:.330:.BO,15:.BA,0:.I..4^..760.R4H..
:." YOU START WITH $1000"..4M..
".......... PRESS SPACEBAR".
"5R.BR(I).1000:AI(I).BR(I):. 370:..C5|..
.****DATA STATEMENTS****.Y5...230,251
,230,251,166,251,164,252,24,32,240,255,9
6.D5..." A","A "," 2","2 "," 3","3 "," 4
","4 "," 5","5 "," 6","6 "," 7","7 "..6.
.." 8","8 "," 9","9 ","10","10"," J","J
"," Q","Q "," K","K ". 6...0,5,10,15,20,
25,30,35.V6... 53281,1:."..... RE
TURN TO UPTIME? (Y/N)".N6B.I$."Y":J$."N"
:. 400.~6L.. Z$.J$ . ...6... (8.4096).4.
.6 ..***INPUT CHARACTER STRING.D6..CT.0:
GF$."":.".";.X6...G$:.G$."".4020..6..G.F
(G$)..6H..G.13. .". ":...7R..G.20 . CT.0
. 4020.>7... G.20 . CT.CT.1:GF$.H(GF$,C
T):.".. ...";.N7...CT.LM.4020.`7... G.3
2 . 4150.T7... G$."." . 3000..7... G.193
. G.218 . G.G.128:G$.G(G)..7...(G.48).(
G.90). 4020.W76..". ."G$".";:CT.CT.1:GF$
.GF$.G$..7@..4020..7J.. ****END****..7G
.....
> CLICK IMAGE PREVIEW FOR FULL MODAL