BLACK JACK
FILE INFORMATION
FILENAME(S): BLACK JACK
FILE TYPE(S): PRG
FILE SIZE: 5.8K
FIRST SEEN: 2025-10-19 22:35:53
APPEARS ON: 1 disk(s)
FILE HASH
21cd71f2be53fe31d972fd327072d5eeff172d8f7307a4bfe85670466a809add
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES 9 | BLACK JACK | PRG | Radd Maxx | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 32 08 01 00 8F 20 42 4A 41 43 4B 20 43 4F |..2.... BJACK CO|
00000010: 50 59 52 49 47 48 54 20 28 43 29 20 31 39 37 39 |PYRIGHT (C) 1979|
00000020: 20 4A 4F 48 4E 20 4D 45 4C 49 53 53 41 2C 20 4A | JOHN MELISSA, J|
00000030: 52 2E 00 51 08 02 00 8F 20 43 55 52 53 4F 52 20 |R..Q.... CURSOR |
00000040: 23 36 2C 20 4A 41 4E 55 41 52 59 2C 20 31 39 37 |#6, JANUARY, 197|
00000050: 39 00 72 08 03 00 8F 20 42 4F 58 20 35 35 30 2C |9.r.... BOX 550,|
00000060: 20 47 4F 4C 45 54 41 2C 20 43 41 2E 20 39 33 30 | GOLETA, CA. 930|
00000070: 31 37 00 78 08 04 00 3A 00 9A 08 0A 00 8F 20 41 |17.x...:...... A|
00000080: 53 20 4F 46 20 39 20 41 50 52 20 38 30 3A 43 4F |S OF 9 APR 80:CO|
00000090: 4C 4F 52 20 42 59 20 4D 4A 57 00 A7 08 0F 00 97 |LOR BY MJW......|
000000A0: 35 33 32 38 31 2C 31 00 B5 08 50 00 43 52 24 B2 |53281,1...P.CR$.|
000000B0: C7 28 31 33 29 00 D4 08 5A 00 50 47 24 B2 22 42 |.(13)...Z.PG$."B|
000000C0: 4A 41 43 4B 22 3A 4E 4D 24 B2 22 36 22 3A 8D 36 |JACK":NM$."6":.6|
000000D0: 32 30 30 30 00 F8 08 64 00 86 58 28 31 33 29 2C |2000...d..X(13),|
000000E0: 59 28 31 33 29 2C 44 28 35 32 29 2C 42 24 28 35 |Y(13),D(52),B$(5|
000000F0: 29 2C 41 24 28 31 34 29 00 0D 09 6E 00 81 49 B2 |),A$(14)...n..I.|
00000100: 31 A4 35 3A 87 42 24 28 49 29 3A 82 49 00 2B 09 |1.5:.B$(I):.I.+.|
00000110: 73 00 83 22 1C DA 22 2C 22 90 C1 22 2C 22 1C D3 |s.."..","..","..|
00000120: 22 2C 22 90 D8 22 2C 22 1F 20 22 00 41 09 78 00 |","..",". ".A.x.|
00000130: 81 49 B2 31 A4 31 34 3A 87 41 24 28 49 29 3A 82 |.I.1.14:.A$(I):.|
00000140: 49 00 63 09 7D 00 83 41 2C 32 2C 33 2C 34 2C 35 |I.c.}..A,2,3,4,5|
00000150: 2C 36 2C 37 2C 38 2C 39 2C 31 30 2C 4A 2C 51 2C |,6,7,8,9,10,J,Q,|
00000160: 4B 2C 3F 00 9F 09 82 00 43 52 24 B2 C7 28 31 33 |K,?.....CR$..(13|
00000170: 29 3A 42 4C 24 B2 22 20 20 20 20 20 20 20 20 20 |):BL$." |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000001A0: D1 09 96 00 50 52 24 B2 22 11 48 4F 57 20 4D 55 |....PR$.".HOW MU|
000001B0: 43 48 20 49 4E 20 43 48 49 50 53 3F 20 22 3A 49 |CH IN CHIPS? ":I|
000001C0: 4E B2 35 30 30 3A 8D 39 36 30 30 3A 42 32 B2 49 |N.500:.9600:B2.I|
000001D0: 4E 00 DE 09 A0 00 42 31 B2 42 31 AA 42 32 00 EB |N.....B1.B1.B2..|
000001E0: 09 AA 00 8B 42 B1 30 A7 32 34 30 00 F4 09 B4 00 |....B.0.240.....|
000001F0: 89 32 33 30 00 FA 09 C8 00 8F 00 16 0A D2 00 81 |.230............|
00000200: 4A B2 31 A4 35 30 30 3A 82 3A 8B 42 31 B3 2E 30 |J.1.500:.:.B1..0|
00000210: 31 A7 39 30 30 30 00 42 0A DC 00 99 22 13 11 22 |1.9000.B....".."|
00000220: 3B A6 31 35 29 3B 22 45 4E 54 45 52 20 42 45 54 |;.15);"ENTER BET|
00000230: 20 46 4F 52 20 4E 45 58 54 20 48 41 4E 44 2E 13 | FOR NEXT HAND..|
00000240: 22 3B 00 62 0A E6 00 50 52 24 B2 22 42 45 54 3F |";.b...PR$."BET?|
00000250: 20 22 3A 49 4E B2 42 3A 8D 39 36 30 30 3A 42 B2 | ":IN.B:.9600:B.|
00000260: 49 4E 00 72 0A F0 00 99 22 93 91 42 45 54 20 22 |IN.r...."..BET "|
00000270: 3B 42 00 82 0A FA 00 8B 42 B3 2E 32 35 A7 39 31 |;B......B..25.91|
00000280: 30 30 00 91 0A 04 01 8B 42 B3 B2 42 31 A7 33 30 |00......B..B1.30|
00000290: 30 00 AA 0A 0E 01 99 22 93 11 59 4F 55 20 4F 4E |0......"..YOU ON|
000002A0: 4C 59 20 48 41 56 45 22 42 31 00 C4 0A 18 01 99 |LY HAVE"B1......|
000002B0: 3A 99 22 47 45 54 20 4D 4F 52 45 20 43 48 49 50 |:."GET MORE CHIP|
000002C0: 53 21 11 22 00 CF 0A 22 01 9C 3A 89 31 30 30 00 |S!."..."..:.100.|
000002D0: D5 0A 2C 01 8F 00 E3 0A 36 01 46 31 B2 30 3A 46 |..,.....6.F1.0:F|
000002E0: 32 B2 30 00 EF 0A 40 01 81 4A B2 31 A4 35 32 00 |2.0...@..J.1.52.|
000002F0: FB 0A 4A 01 88 44 28 4A 29 B2 31 00 02 0B 54 01 |..J..D(J).1...T.|
00000300: 82 4A 00 0F 0B 90 01 58 28 31 33 29 B2 31 34 00 |.J.....X(13).14.|
00000310: 1B 0B 9A 01 59 28 31 33 29 B2 35 00 21 0B F4 01 |....Y(13).5.!...|
00000320: 8F 00 2B 0B F9 01 8D 31 30 30 30 00 37 0B FE 01 |..+....1000.7...|
00000330: 58 28 31 29 B2 43 31 00 43 0B 03 02 59 28 31 29 |X(1).C1.C...Y(1)|
00000340: B2 43 32 00 54 0B 04 02 8B 43 31 B1 31 30 A7 43 |.C2.T....C1.10.C|
00000350: 31 B2 31 30 00 5D 0B 05 02 4D B2 43 31 00 67 0B |1.10.]...M.C1.g.|
00000360: 08 02 8D 31 30 30 30 00 73 0B 12 02 58 28 37 29 |...1000.s...X(7)|
00000370: B2 43 31 00 7F 0B 17 02 59 28 37 29 B2 43 32 00 |.C1.....Y(7).C2.|
00000380: 90 0B 18 02 8B 43 31 B1 31 30 A7 43 31 B2 31 30 |.....C1.10.C1.10|
00000390: 00 99 0B 19 02 4E B2 43 31 00 A3 0B 1C 02 8D 31 |.....N.C1......1|
000003A0: 30 30 30 00 AF 0B 26 02 58 28 32 29 B2 43 31 00 |000...&.X(2).C1.|
000003B0: BB 0B 30 02 59 28 32 29 B2 43 32 00 CC 0B 31 02 |..0.Y(2).C2...1.|
000003C0: 8B 43 31 B1 31 30 A7 43 31 B2 31 30 00 D7 0B 33 |.C1.10.C1.10...3|
000003D0: 02 4D B2 4D AA 43 31 00 E1 0B 35 02 8D 31 30 30 |.M.M.C1...5..100|
000003E0: 30 00 ED 0B 3A 02 58 28 38 29 B2 43 31 00 F9 0B |0...:.X(8).C1...|
000003F0: 3F 02 59 28 38 29 B2 43 32 00 0A 0C 40 02 8B 43 |?.Y(8).C2...@..C|
00000400: 31 B1 31 30 A7 43 31 B2 31 30 00 15 0C 41 02 4E |1.10.C1.10...A.N|
00000410: B2 4E AA 43 31 00 23 0C 44 02 99 22 C3 C3 C3 C3 |.N.C1.#.D.."....|
00000420: C3 C3 22 00 31 0C 49 02 99 22 44 45 41 4C 45 52 |..".1.I.."DEALER|
00000430: 22 00 37 0C 4E 02 99 00 43 0C 58 02 4A B2 37 3A |".7.N...C.X.J.7:|
00000440: 50 B2 31 00 4D 0C 5D 02 8D 32 30 30 30 00 5A 0C |P.1.M.]..2000.Z.|
00000450: 62 02 4A B2 31 33 3A 50 B2 32 00 64 0C 67 02 8D |b.J.13:P.2.d.g..|
00000460: 32 30 30 30 00 78 0C 80 02 99 22 13 11 11 11 11 |2000.x....".....|
00000470: 11 11 11 11 11 11 11 22 00 86 0C 9E 02 99 22 C3 |......."......".|
00000480: C3 C3 C3 C3 C3 22 00 94 0C A8 02 99 22 50 4C 41 |....."......"PLA|
00000490: 59 45 52 22 00 A6 0C BC 02 4A B2 31 3A 50 B2 31 |YER".....J.1:P.1|
000004A0: 3A 8D 32 30 30 30 00 B8 0C D0 02 4A B2 32 3A 50 |:.2000.....J.2:P|
000004B0: B2 32 3A 8D 32 30 30 30 00 C1 0C DF 02 4D 31 B2 |.2:.2000.....M1.|
000004C0: 30 00 D9 0C E4 02 8B 58 28 31 29 B2 31 B0 58 28 |0......X(1).1.X(|
000004D0: 32 29 B2 31 A7 4D 31 B2 31 00 E2 0C EE 02 4E 31 |2).1.M1.1.....N1|
000004E0: B2 30 00 F1 0C F3 02 8D 32 32 30 30 3A 46 31 B2 |.0......2200:F1.|
000004F0: 31 00 09 0D F8 02 8B 58 28 37 29 B2 31 B0 58 28 |1......X(7).1.X(|
00000500: 38 29 B2 31 A7 4E 31 B2 31 00 17 0D 02 03 49 39 |8).1.N1.1.....I9|
00000510: B2 30 3A 46 31 B2 31 00 1D 0D 07 03 8F 00 2F 0D |.0:F1.1......./.|
00000520: 0C 03 8B 58 28 37 29 B2 31 A7 8D 38 30 30 30 00 |...X(7).1..8000.|
00000530: 43 0D 16 03 8B 4E B2 31 31 AF 4E 31 B2 31 A7 33 |C....N.11.N1.1.3|
00000540: 30 30 30 00 51 0D 20 03 8B 49 39 B2 30 A7 38 31 |000.Q. ..I9.0.81|
00000550: 30 00 8E 0D 25 03 99 22 13 11 11 11 11 11 11 11 |0...%.."........|
00000560: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 49 4E |..............IN|
00000570: 53 55 52 41 4E 43 45 20 4C 4F 53 45 53 20 24 22 |SURANCE LOSES $"|
00000580: 3B 42 AD 32 3A 42 31 B2 42 31 AB 42 AD 32 00 96 |;B.2:B1.B1.B.2..|
00000590: 0D 2A 03 4A B2 32 00 AA 0D 2F 03 8B 4D B2 31 31 |.*.J.2.../..M.11|
000005A0: AF 4D 31 B2 31 A7 35 35 30 30 00 BE 0D 31 03 8B |.M1.1.5500...1..|
000005B0: 4D B1 38 AF 4D B3 31 32 A7 8D 37 30 30 30 00 CD |M.8.M.12..7000..|
000005C0: 0D 34 03 8B 4D B1 32 30 A7 35 30 30 30 00 E1 0D |.4..M.20.5000...|
000005D0: 3E 03 8B 4D B2 31 31 AF 4D 31 B2 31 A7 35 30 30 |>..M.11.M1.1.500|
000005E0: 30 00 FF 0D 48 03 99 22 13 11 11 11 11 11 11 11 |0...H.."........|
000005F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 |..............".|
00000600: 2E 0E 52 03 99 22 44 4F 20 59 4F 55 20 57 41 4E |..R.."DO YOU WAN|
00000610: 54 20 41 20 48 49 54 3F 20 20 20 20 20 20 20 20 |T A HIT? |
00000620: 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 3D | .........";.=|
00000630: 0E 5C 03 59 4E B2 31 3A 8D 39 35 30 30 00 50 0E |.\.YN.1:.9500.P.|
00000640: 66 03 8B 59 4E A7 8D 34 30 30 30 3A 89 38 32 30 |f..YN..4000:.820|
00000650: 00 5A 0E 70 03 89 35 30 30 30 00 63 0E 7A 03 89 |.Z.p..5000.c.z..|
00000660: 38 34 30 00 6D 0E E7 03 89 39 30 30 30 00 80 0E |840.m....9000...|
00000670: E8 03 43 B2 B5 28 BB 28 31 29 AC 35 32 AA 31 29 |..C..(.(1).52.1)|
00000680: 00 92 0E F2 03 8B 44 28 43 29 B3 B1 31 A7 31 30 |......D(C)..1.10|
00000690: 30 30 00 9D 0E F7 03 44 28 43 29 B2 30 00 AB 0E |00.....D(C).0...|
000006A0: FC 03 43 31 B2 B5 28 43 AD 34 29 00 B9 0E 06 04 |..C1..(C.4).....|
000006B0: 43 32 B2 43 AB 43 31 AC 34 00 C5 0E 08 04 43 31 |C2.C.C1.4.....C1|
000006C0: B2 43 31 AA 31 00 DF 0E 0B 04 8B 43 32 B3 31 A7 |.C1.1......C2.1.|
000006D0: 43 32 B2 43 32 AA 34 3A 43 31 B2 43 31 AB 31 00 |C2.C2.4:C1.C1.1.|
000006E0: E5 0E 4B 04 8E 00 EB 0E D0 07 8F 00 F9 0E E4 07 |..K.............|
000006F0: 99 A3 50 AC 37 AB 37 29 3B 00 07 0F EE 07 99 22 |..P.7.7);......"|
00000700: D5 C0 C0 C0 C9 22 3B 00 3D 0F 02 08 99 22 11 9D |.....";.=...."..|
00000710: DD 11 9D DD 11 9D DD 11 9D DD 9D 11 DD 9D 11 CB |................|
00000720: 9D 9D C0 9D 9D C0 9D 9D C0 9D 9D CA 9D 91 DD 9D |................|
00000730: 91 DD 9D 91 DD 9D 91 DD 9D 91 DD 22 3B 00 5F 0F |...........";._.|
00000740: 48 08 99 C8 28 42 24 28 59 28 4A 29 29 2C 31 29 |H...(B$(Y(J)),1)|
00000750: 41 24 28 58 28 4A 29 29 3B 22 1F 11 9D 22 3B 00 |A$(X(J));"...";.|
00000760: 72 0F 4D 08 8B 58 28 4A 29 B2 31 30 A7 99 22 9D |r.M..X(J).10..".|
00000770: 22 3B 00 81 0F 52 08 99 42 24 28 59 28 4A 29 29 |";...R..B$(Y(J))|
00000780: 3B 00 9B 0F 66 08 99 22 1D 11 11 22 3B 42 24 28 |;...f.."...";B$(|
00000790: 59 28 4A 29 29 3B 22 9D 11 22 3B 00 B4 0F 6B 08 |Y(J));"..";...k.|
000007A0: 8B C3 28 41 24 28 58 28 4A 29 29 29 B1 31 A7 99 |..(A$(X(J))).1..|
000007B0: 22 9D 22 3B 00 DA 0F 70 08 99 C8 28 42 24 28 59 |".";...p...(B$(Y|
000007C0: 28 4A 29 29 2C 31 29 20 41 24 28 58 28 4A 29 29 |(J)),1) A$(X(J))|
000007D0: 3B 22 91 91 1F 91 91 91 22 3B 00 E6 0F 8E 08 8B |;"......";......|
000007E0: 46 31 B2 30 A7 8E 00 EC 0F 98 08 8F 00 F5 0F A2 |F1.0............|
000007F0: 08 4D 32 B2 4D 00 0C 10 AC 08 8B 4D 31 B2 31 AF |.M2.M......M1.1.|
00000800: 4D B3 31 32 A7 4D 32 B2 4D AA 31 30 00 2D 10 B6 |M.12.M2.M.10.-..|
00000810: 08 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00000820: 11 1D 1D 1D 1D 1D 1D 1D 3D 22 3B 4D 32 00 33 10 |........=";M2.3.|
00000830: FC 08 8F 00 3F 10 06 09 8B 46 32 B2 30 A7 8E 00 |....?....F2.0...|
00000840: 48 10 10 09 4E 32 B2 4E 00 5F 10 1A 09 8B 4E 31 |H...N2.N._....N1|
00000850: B2 31 AF 4E B3 31 32 A7 4E 32 B2 4E AA 31 30 00 |.1.N.12.N2.N.10.|
00000860: 75 10 24 09 99 22 13 11 11 1D 1D 1D 1D 1D 1D 20 |u.$.."......... |
00000870: 3D 22 3B 4E 32 00 7B 10 AE 0B 8E 00 81 10 B8 0B |=";N2.{.........|
00000880: 8F 00 8D 10 C2 0B 99 22 13 11 11 11 22 00 95 10 |......."...."...|
00000890: CC 0B 50 B2 32 00 9D 10 D6 0B 4A B2 38 00 A7 10 |..P.2.....J.8...|
000008A0: E0 0B 8D 32 30 30 30 00 B6 10 E2 0B 8B 49 39 B2 |...2000......I9.|
000008B0: 31 A7 33 31 30 30 00 CA 10 E5 0B 8B 4D B2 31 31 |1.3100......M.11|
000008C0: AF 4D 31 B2 31 A7 35 36 30 30 00 EE 10 EA 0B 99 |.M1.1.5600......|
000008D0: 22 13 11 11 1D 1D 1D 1D 1D 1D 1D 48 41 53 20 32 |"..........HAS 2|
000008E0: 31 20 2D 2D 20 59 4F 55 20 4C 4F 53 45 22 00 FA |1 -- YOU LOSE"..|
000008F0: 10 F4 0B 42 31 B2 42 31 AB 42 00 03 11 08 0C 89 |...B1.B1.B......|
00000900: 32 30 30 00 1B 11 1C 0C 4E B2 30 3A 8B 4D B2 31 |200.....N.0:.M.1|
00000910: 31 AF 4D 31 B2 31 A7 35 36 32 30 00 4B 11 30 0C |1.M1.1.5620.K.0.|
00000920: 99 22 13 11 11 1D 1D 1D 1D 1D 1D 1D 48 41 53 20 |."..........HAS |
00000930: 32 31 20 2D 2D 20 43 4F 56 45 52 45 44 20 42 59 |21 -- COVERED BY|
00000940: 20 49 4E 53 55 52 41 4E 43 45 22 00 54 11 3A 0C | INSURANCE".T.:.|
00000950: 89 32 30 30 00 5E 11 A0 0F 4A B2 4A AA 31 00 6C |.200.^...J.J.1.l|
00000960: 11 A5 0F 8B 4A B1 36 A7 36 30 30 30 00 76 11 AA |....J.6.6000.v..|
00000970: 0F 8D 31 30 30 30 00 87 11 AF 0F 8B 43 31 B1 31 |..1000......C1.1|
00000980: 30 A7 43 31 B2 31 30 00 96 11 B1 0F 8B 43 31 B2 |0.C1.10......C1.|
00000990: 31 A7 4D 31 B2 31 00 A1 11 B4 0F 4D B2 4D AA 43 |1.M1.1.....M.M.C|
000009A0: 31 00 B9 11 BE 0F 99 22 13 11 11 11 11 11 11 11 |1......"........|
000009B0: 11 11 11 11 11 11 11 22 3B 00 C1 11 C8 0F 50 B2 |.......";.....P.|
000009C0: 4A 00 CD 11 DC 0F 58 28 4A 29 B2 43 31 00 D9 11 |J.....X(J).C1...|
000009D0: E6 0F 59 28 4A 29 B2 43 32 00 E3 11 FA 0F 8D 32 |..Y(J).C2......2|
000009E0: 30 30 30 00 E9 11 30 11 8E 00 F5 11 88 13 99 22 |000...0........"|
000009F0: 13 11 11 11 22 00 06 12 92 13 4A B2 38 3A 50 B2 |....".....J.8:P.|
00000A00: 32 3A 46 32 B2 31 00 10 12 9C 13 8D 32 30 30 30 |2:F2.1......2000|
00000A10: 00 1F 12 A6 13 8B 4D B1 32 31 A7 35 34 30 30 00 |......M.21.5400.|
00000A20: 29 12 E2 13 4A B2 4A AA 31 00 38 12 EC 13 8B 4E |)...J.J.1.8....N|
00000A30: B1 31 36 A7 35 36 30 30 00 54 12 F6 13 8B 4E B3 |.16.5600.T....N.|
00000A40: 31 32 AF 4E 31 B2 31 AF 4E AA 31 30 B1 31 37 A7 |12.N1.1.N.10.17.|
00000A50: 35 36 30 30 00 5E 12 00 14 8D 31 30 30 30 00 6A |5600.^....1000.j|
00000A60: 12 0A 14 58 28 4A 29 B2 43 31 00 76 12 14 14 59 |...X(J).C1.v...Y|
00000A70: 28 4A 29 B2 43 32 00 87 12 1E 14 8B 43 31 B1 31 |(J).C2......C1.1|
00000A80: 30 A7 43 31 B2 31 30 00 96 12 23 14 8B 43 31 B2 |0.C1.10...#..C1.|
00000A90: 31 A7 4E 31 B2 31 00 A1 12 28 14 4E B2 4E AA 43 |1.N1.1...(.N.N.C|
00000AA0: 31 00 AB 12 32 14 50 B2 4A AB 36 00 B7 12 3C 14 |1...2.P.J.6...<.|
00000AB0: 99 22 13 11 11 11 22 00 C1 12 41 14 8D 32 30 30 |."...."...A..200|
00000AC0: 30 00 D0 12 42 14 81 49 B2 31 A4 34 30 30 3A 82 |0...B..I.1.400:.|
00000AD0: 00 DA 12 46 14 89 35 30 39 30 00 F8 12 18 15 99 |...F..5090......|
00000AE0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00000AF0: 11 11 11 11 11 11 11 22 00 1D 13 22 15 99 22 20 |......."...".." |
00000B00: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 20 | ***** |
00000B10: 42 55 53 54 45 44 20 2A 2A 2A 2A 2A 22 00 29 13 |BUSTED *****".).|
00000B20: 2C 15 42 31 B2 42 31 AB 42 00 46 13 36 15 99 22 |,.B1.B1.B.F.6.."|
00000B30: 11 43 48 49 50 20 42 41 4C 41 4E 43 45 20 49 53 |.CHIP BALANCE IS|
00000B40: 20 24 22 42 31 3B 00 4F 13 7B 15 89 32 30 30 00 | $"B1;.O.{..200.|
00000B50: 55 13 7C 15 8F 00 61 13 86 15 99 22 13 11 11 11 |U.|...a...."....|
00000B60: 22 00 6D 13 90 15 4A B2 38 3A 50 B2 32 00 77 13 |".m...J.8:P.2.w.|
00000B70: 9A 15 8D 32 30 30 30 00 87 13 AE 15 42 31 B2 42 |...2000.....B1.B|
00000B80: 31 AA 42 AC 31 2E 35 00 A5 13 B8 15 99 22 13 11 |1.B.1.5......"..|
00000B90: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000BA0: 11 11 11 11 22 00 C7 13 C2 15 99 22 20 20 20 20 |...."......" |
00000BB0: 20 20 20 20 20 20 20 20 20 20 20 42 4C 41 43 4B | BLACK|
00000BC0: 4A 41 43 4B 21 21 22 00 E5 13 CC 15 99 22 11 43 |JACK!!"......".C|
00000BD0: 48 49 50 20 42 41 4C 41 4E 43 45 20 49 53 20 24 |HIP BALANCE IS $|
00000BE0: 22 3B 42 31 3B 00 EE 13 D6 15 89 32 30 30 00 05 |";B1;......200..|
00000BF0: 14 E0 15 8B 4D B3 31 32 A7 8B 4D 31 B2 31 A7 4D |....M.12..M1.1.M|
00000C00: B2 4D AA 31 30 00 1C 14 EA 15 8B 4E B3 31 32 A7 |.M.10......N.12.|
00000C10: 8B 4E 31 B2 31 A7 4E B2 4E AA 31 30 00 3A 14 F4 |.N1.1.N.N.10.:..|
00000C20: 15 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |..".............|
00000C30: 11 11 11 11 11 11 11 11 11 22 00 48 14 F9 15 8B |.........".H....|
00000C40: 4E B1 32 31 A7 4E B2 30 00 56 14 FE 15 8B 4D B1 |N.21.N.0.V....M.|
00000C50: 4E A7 35 37 30 30 00 64 14 08 16 8B 4D B3 4E A7 |N.5700.d....M.N.|
00000C60: 35 38 30 30 00 81 14 12 16 99 22 20 20 20 20 20 |5800......" |
00000C70: 20 20 20 20 20 20 20 53 54 41 4E 44 2D 4F 46 46 | STAND-OFF|
00000C80: 22 00 A7 14 1C 16 99 22 11 43 48 49 50 20 42 41 |"......".CHIP BA|
00000C90: 4C 41 4E 43 45 20 52 45 4D 41 49 4E 53 20 41 54 |LANCE REMAINS AT|
00000CA0: 20 24 22 3B 42 31 3B 00 B1 14 43 16 89 20 32 30 | $";B1;...C.. 20|
00000CB0: 30 00 BD 14 44 16 42 31 B2 42 31 AA 42 00 E2 14 |0...D.B1.B1.B...|
00000CC0: 58 16 99 22 59 4F 55 20 57 49 4E 2C 20 43 48 49 |X.."YOU WIN, CHI|
00000CD0: 50 20 42 41 4C 41 4E 43 45 20 49 53 20 24 22 3B |P BALANCE IS $";|
00000CE0: 42 31 00 EB 14 6C 16 89 32 30 30 00 F7 14 A8 16 |B1...l..200.....|
00000CF0: 42 31 B2 42 31 AB 42 00 1D 15 BC 16 99 22 59 4F |B1.B1.B......"YO|
00000D00: 55 20 4C 4F 53 45 2C 20 43 48 49 50 20 42 41 4C |U LOSE, CHIP BAL|
00000D10: 41 4E 43 45 20 49 53 20 24 22 3B 42 31 00 26 15 |ANCE IS $";B1.&.|
00000D20: 0B 17 89 32 30 30 00 51 15 70 17 99 22 53 49 58 |...200.Q.p.."SIX|
00000D30: 20 43 41 52 44 53 20 4C 45 53 53 20 54 48 41 4E | CARDS LESS THAN|
00000D40: 20 32 31 20 49 53 20 41 20 57 49 4E 4E 45 52 21 | 21 IS A WINNER!|
00000D50: 22 00 5D 15 84 17 42 31 B2 42 31 AA 42 00 66 15 |".]...B1.B1.B.f.|
00000D60: 98 17 89 32 30 30 00 84 15 58 1B 99 22 13 11 11 |...200...X.."...|
00000D70: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000D80: 11 11 11 22 00 A6 15 62 1B 99 22 12 44 4F 20 59 |..."...b..".DO Y|
00000D90: 4F 55 20 57 41 4E 54 20 54 4F 20 44 4F 55 42 4C |OU WANT TO DOUBL|
00000DA0: 45 3F 92 20 22 3B 00 B8 15 6C 1B 8D 39 34 30 30 |E?. ";...l..9400|
00000DB0: 3A 8B 59 4E B2 30 A7 8E 00 C2 15 BC 1B 42 B2 42 |:.YN.0.......B.B|
00000DC0: AC 32 00 D1 15 C6 1B 99 22 13 42 45 54 20 22 3B |.2......".BET ";|
00000DD0: 42 00 DB 15 D0 1B 8D 34 30 30 30 00 E5 15 DA 1B |B......4000.....|
00000DE0: 89 35 30 30 30 00 05 16 40 1F 99 22 13 11 22 3B |.5000...@.."..";|
00000DF0: A6 31 35 29 3B 22 12 49 4E 53 55 52 41 4E 43 45 |.15);".INSURANCE|
00000E00: 3F 92 20 22 3B 00 18 16 4A 1F 8D 39 34 30 30 3A |?. ";...J..9400:|
00000E10: 8B 59 4E A7 49 39 B2 31 00 1E 16 54 1F 8E 00 3C |.YN.I9.1...T...<|
00000E20: 16 28 23 99 22 13 11 11 11 11 11 11 11 11 11 11 |.(#."...........|
00000E30: 11 11 11 11 11 11 11 11 11 11 11 22 00 6B 16 2D |...........".k.-|
00000E40: 23 99 22 59 4F 55 20 41 52 45 20 42 52 4F 4B 45 |#."YOU ARE BROKE|
00000E50: 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000E60: 20 20 20 20 20 20 20 20 20 20 22 00 9A 16 2E 23 | "....#|
00000E70: 99 22 20 20 20 20 20 20 20 20 C5 C5 C5 C5 C5 20 |." ..... |
00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E90: 20 20 20 20 20 20 20 20 20 22 00 C8 16 32 23 99 | "...2#.|
00000EA0: 22 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 |"WOULD YOU LIKE |
00000EB0: 54 4F 20 50 4C 41 59 20 41 47 41 49 4E 3F 20 22 |TO PLAY AGAIN? "|
00000EC0: 3B 3A 8D 36 30 30 30 30 00 DF 16 3C 23 8B C8 28 |;:.60000...<#..(|
00000ED0: 49 4E 24 2C 31 29 B2 22 4E 22 A7 39 31 30 30 00 |IN$,1)."N".9100.|
00000EE0: E7 16 4D 23 42 B2 30 00 F5 16 50 23 99 22 93 22 |..M#B.0...P#."."|
00000EF0: 3A 89 31 33 30 00 19 17 8C 23 99 22 93 11 48 4F |:.130....#."..HO|
00000F00: 50 45 20 59 4F 55 20 45 4E 4A 4F 59 45 44 20 54 |PE YOU ENJOYED T|
00000F10: 48 45 20 47 41 4D 45 2E 22 00 2A 17 96 23 99 22 |HE GAME.".*..#."|
00000F20: 11 47 4F 4F 44 42 59 45 2E 22 00 30 17 A0 23 80 |.GOODBYE.".0..#.|
00000F30: 00 39 17 B8 24 59 4E B2 30 00 47 17 1C 25 5A 43 |.9..$YN.0.G..%ZC|
00000F40: B2 32 3A 5A 4D B2 30 00 5C 17 26 25 A1 5A 24 3A |.2:ZM.0.\.&%.Z$:|
00000F50: 8B 5A 24 B3 B1 22 22 A7 39 35 35 30 00 6C 17 30 |.Z$.."".9550.l.0|
00000F60: 25 8B 54 49 B3 5A 4D A7 39 35 31 30 00 8B 17 3A |%.TI.ZM.9510...:|
00000F70: 25 99 CA 28 22 20 D1 22 2C 5A 43 2C 31 29 3B 22 |%..(" .",ZC,1);"|
00000F80: 9D 22 3B 3A 5A 43 B2 33 AB 5A 43 00 9E 17 44 25 |.";:ZC.3.ZC...D%|
00000F90: 5A 4D B2 54 49 AA 33 30 3A 89 39 35 31 30 00 C0 |ZM.TI.30:.9510..|
00000FA0: 17 4E 25 8B 5A 24 B3 B1 22 59 22 AF 5A 24 B3 B1 |.N%.Z$.."Y".Z$..|
00000FB0: 22 4E 22 AF 5A 24 B3 B1 43 52 24 A7 39 35 32 30 |"N".Z$..CR$.9520|
00000FC0: 00 D7 17 58 25 8B 5A 24 B3 B1 43 52 24 A7 59 4E |...X%.Z$..CR$.YN|
00000FD0: B2 5A 24 B2 22 59 22 00 F0 17 62 25 99 CA 28 22 |.Z$."Y"...b%..("|
00000FE0: 59 4E 22 2C 32 AA 28 59 4E B3 B1 30 29 2C 31 29 |YN",2.(YN..0),1)|
00000FF0: 00 F6 17 6C 25 8E 00 05 18 80 25 99 42 4C 24 3A |...l%.....%.BL$:|
00001000: 99 22 91 22 3B 00 33 18 85 25 43 52 24 B2 22 22 |.".";.3..%CR$.""|
00001010: 3A 99 50 52 24 3B 3A 8D 36 30 30 30 30 3A 8B 49 |:.PR$;:.60000:.I|
00001020: 4E 24 B2 22 22 A7 99 22 9D 22 3B 49 4E 3A 89 39 |N$.""..".";IN:.9|
00001030: 36 34 30 00 53 18 8A 25 99 3A 81 5A B2 31 A4 C3 |640.S..%.:.Z.1..|
00001040: 28 49 4E 24 29 3A 5A 24 B2 CA 28 49 4E 24 2C 5A |(IN$):Z$..(IN$,Z|
00001050: 2C 31 29 00 6B 18 94 25 8B 5A 24 B3 22 30 22 B0 |,1).k..%.Z$."0".|
00001060: 5A 24 B1 22 39 22 A7 39 36 35 30 00 7C 18 9E 25 |Z$."9".9650.|..%|
00001070: 82 5A 3A 49 4E B2 C5 28 49 4E 24 29 00 8C 18 A8 |.Z:IN..(IN$)....|
00001080: 25 43 52 24 B2 C7 28 31 33 29 3A 8E 00 A7 18 B2 |%CR$..(13):.....|
00001090: 25 99 22 4E 4F 20 22 3B 5A 24 3B 22 27 53 20 50 |%."NO ";Z$;"'S P|
000010A0: 4C 45 41 53 45 2E 22 00 B8 18 BC 25 81 5A B2 31 |LEASE."....%.Z.1|
000010B0: A4 32 30 30 30 3A 82 5A 00 CC 18 C6 25 99 22 91 |.2000:.Z....%.".|
000010C0: 22 3B 42 4C 24 3A 99 22 91 91 22 3B 00 D6 18 D0 |";BL$:."..";....|
000010D0: 25 89 39 36 30 30 00 F7 18 60 EA 49 4E 24 B2 22 |%.9600...`.IN$."|
000010E0: 20 22 3A 5A 54 B2 54 49 3A 5A 43 B2 32 3A 5A 44 | ":ZT.TI:ZC.2:ZD|
000010F0: 24 B2 C7 28 32 30 29 00 0D 19 6A EA A1 5A 24 3A |$..(20)...j..Z$:|
00001100: 8B 5A 24 B3 B1 22 22 A7 36 30 30 37 30 00 3D 19 |.Z$.."".60070.=.|
00001110: 74 EA 8B 5A 54 B3 B2 54 49 A7 99 CA 28 22 20 A6 |t..ZT..TI...(" .|
00001120: 22 2C 5A 43 2C 31 29 3B 22 9D 22 3B 3A 5A 43 B2 |",ZC,1);".";:ZC.|
00001130: 33 AB 5A 43 3A 5A 54 B2 54 49 AA 31 35 00 48 19 |3.ZC:ZT.TI.15.H.|
00001140: 7E EA 89 36 30 30 31 30 00 78 19 A6 EA 5A B2 C6 |~..60010.x...Z..|
00001150: 28 5A 24 29 3A 5A 4C B2 C3 28 49 4E 24 29 3A 8B |(Z$):ZL..(IN$):.|
00001160: 28 5A AF 31 32 37 29 B3 33 32 A7 99 22 20 9D 22 |(Z.127).32.." ."|
00001170: 3B 3A 89 36 30 31 31 30 00 A8 19 B0 EA 8B 46 4C |;:.60110......FL|
00001180: AF 28 5A AF 31 32 37 29 B1 36 34 AF 28 5A AF 31 |.(Z.127).64.(Z.1|
00001190: 32 37 29 B3 39 31 A7 5A 24 B2 C7 28 28 5A AA 31 |27).91.Z$..((Z.1|
000011A0: 32 38 29 AF 32 35 35 29 00 BA 19 BA EA 8B 5A 4C |28).255)......ZL|
000011B0: B1 32 35 34 A7 36 30 30 31 30 00 D5 19 C4 EA 49 |.254.60010.....I|
000011C0: 4E 24 B2 49 4E 24 AA 5A 24 3A 99 5A 24 3B 5A 44 |N$.IN$.Z$:.Z$;ZD|
000011D0: 24 3B 5A 24 3B 00 F4 19 CE EA 8B 5A B2 31 33 A7 |$;Z$;......Z.13.|
000011E0: 49 4E 24 B2 CA 28 49 4E 24 2C 32 29 3A 99 43 52 |IN$..(IN$,2):.CR|
000011F0: 24 3B 3A 8E 00 20 1A D8 EA 8B 5A B2 32 30 AF 5A |$;:.. ....Z.20.Z|
00001200: 4C B1 31 A7 49 4E 24 B2 C8 28 49 4E 24 2C 5A 4C |L.1.IN$..(IN$,ZL|
00001210: AB 31 29 3A 99 22 9D 22 3B 3A 89 36 30 30 31 30 |.1):.".";:.60010|
00001220: 00 53 1A E2 EA 8B 5A B2 31 34 31 A7 5A 24 B2 C7 |.S....Z.141.Z$..|
00001230: 28 AB 32 30 AC 28 5A 4C B1 31 29 29 3A 81 5A B2 |(.20.(ZL.1)):.Z.|
00001240: 32 A4 5A 4C 3A 99 5A 24 3B 3A 82 5A 3A 89 36 30 |2.ZL:.Z$;:.Z:.60|
00001250: 30 30 30 00 5E 1A EC EA 89 36 30 30 31 30 00 6E |000.^....60010.n|
00001260: 1A 28 EB 8B 50 4E B2 30 A7 36 30 32 35 30 00 8A |.(..PN.0.60250..|
00001270: 1A 32 EB 99 22 11 50 52 45 53 53 20 12 52 45 54 |.2..".PRESS .RET|
00001280: 55 52 4E 92 20 54 4F 20 22 3B 00 A7 1A 3C EB 8B |URN. TO ";...<..|
00001290: 50 4E B2 4C 50 A7 99 22 42 45 47 49 4E 3A 22 3B |PN.LP.."BEGIN:";|
000012A0: 3A 89 36 30 32 34 30 00 B9 1A 46 EB 99 22 43 4F |:.60240...F.."CO|
000012B0: 4E 54 49 4E 55 45 3A 22 3B 00 CE 1A 50 EB A1 54 |NTINUE:";...P..T|
000012C0: 24 3A 8B 54 24 B2 22 22 A7 36 30 32 34 30 00 E6 |$:.T$."".60240..|
000012D0: 1A 5A EB 8B 50 4E B2 4C 50 A7 9C 3A 99 22 93 22 |.Z..PN.LP..:."."|
000012E0: 3B 3A 89 31 30 30 00 29 1B 64 EB 50 4E B2 50 4E |;:.100.).d.PN.PN|
000012F0: AA 31 3A 99 22 93 22 3B 50 47 24 3B 22 20 2D 20 |.1:.".";PG$;" - |
00001300: 43 55 52 53 4F 52 20 23 22 3B 4E 4D 24 3B 22 20 |CURSOR #";NM$;" |
00001310: 20 28 43 29 20 31 39 37 39 20 20 20 20 50 41 47 | (C) 1979 PAG|
00001320: 45 22 3B 50 4E 3B 22 11 22 00 2F 1B 6E EB 8E 00 |E";PN;"."./.n...|
00001330: 49 1B 54 EC 81 49 B2 31 A4 31 30 3A 99 22 C4 C4 |I.T..I.1.10:."..|
00001340: C4 C4 22 3B 3A 82 49 3A 8E 00 65 1B 30 F2 99 22 |..";:.I:..e.0.."|
00001350: 93 11 11 22 3B A3 39 29 3B 20 22 42 4C 41 43 4B |...";.9); "BLACK|
00001360: 4A 41 43 4B 22 00 97 1B 35 F2 8F 20 50 52 49 4E |JACK"...5.. PRIN|
00001370: 54 22 11 43 4F 50 59 52 49 47 48 54 20 28 43 29 |T".COPYRIGHT (C)|
00001380: 20 31 39 37 39 20 20 42 59 20 4A 4F 48 4E 20 4D | 1979 BY JOHN M|
00001390: 45 4C 49 53 53 41 22 00 A3 1B 36 F2 8D 20 36 30 |ELISSA"...6.. 60|
000013A0: 35 30 30 00 C5 1B 3A F2 99 22 11 4C 41 53 20 56 |500...:..".LAS V|
000013B0: 45 47 41 53 2D 53 54 59 4C 45 20 42 4C 41 43 4B |EGAS-STYLE BLACK|
000013C0: 4A 41 43 4B 22 00 E8 1B 44 F2 99 22 11 11 57 41 |JACK"...D.."..WA|
000013D0: 4E 54 20 44 49 52 45 43 54 49 4F 4E 53 3F 20 22 |NT DIRECTIONS? "|
000013E0: 3B 3A 8D 36 30 30 30 30 00 03 1C 4E F2 8B C8 28 |;:.60000...N...(|
000013F0: 49 4E 24 2C 31 29 B3 B1 22 59 22 A7 99 22 93 22 |IN$,1).."Y".."."|
00001400: 3B 3A 8E 00 13 1C 58 F2 4C 50 B2 31 3A 8D 36 30 |;:....X.LP.1:.60|
00001410: 32 30 30 00 1F 1C 62 F2 8D 20 36 30 35 30 30 00 |200...b.. 60500.|
00001420: 4B 1C A8 F2 99 22 46 49 52 53 54 2C A0 59 4F 55 |K...."FIRST,.YOU|
00001430: 20 4D 55 53 54 20 45 4E 54 45 52 20 48 4F 57 20 | MUST ENTER HOW |
00001440: 4D 41 4E 59 20 43 48 49 50 53 22 00 78 1C B2 F2 |MANY CHIPS".x...|
00001450: 99 22 59 4F 55 20 57 41 4E 54 2E A0 45 41 43 48 |."YOU WANT..EACH|
00001460: 20 48 41 4E 44 2C 20 59 4F 55 20 57 49 4C 4C 20 | HAND, YOU WILL |
00001470: 42 45 20 41 53 4B 45 44 00 A1 1C BC F2 99 22 54 |BE ASKED......"T|
00001480: 4F 20 4D 41 4B 45 20 41 20 42 45 54 2E A0 42 45 |O MAKE A BET..BE|
00001490: 54 20 5A 45 52 4F 20 54 4F 20 45 4E 44 20 54 48 |T ZERO TO END TH|
000014A0: 45 00 CF 1C C6 F2 99 22 47 41 4D 45 2E 20 49 46 |E......"GAME. IF|
000014B0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 4C 41 | YOU WISH TO PLA|
000014C0: 43 45 20 54 48 45 20 53 41 4D 45 20 42 45 54 00 |CE THE SAME BET.|
000014D0: FA 1C D0 F2 99 22 41 53 20 54 48 45 20 4C 41 53 |....."AS THE LAS|
000014E0: 54 20 48 41 4E 44 2C 20 59 4F 55 20 4D 41 59 20 |T HAND, YOU MAY |
000014F0: 4A 55 53 54 20 50 52 45 53 53 00 29 1D DA F2 99 |JUST PRESS.)....|
00001500: 22 12 52 45 54 55 52 4E 92 20 49 4E 20 52 45 53 |".RETURN. IN RES|
00001510: 50 4F 4E 53 45 20 54 4F A0 27 42 45 54 3F 27 2E |PONSE TO.'BET?'.|
00001520: 20 57 48 45 4E 20 54 48 45 00 56 1D E4 F2 99 22 | WHEN THE.V...."|
00001530: 43 49 52 43 55 4D 53 54 41 4E 43 45 53 20 41 52 |CIRCUMSTANCES AR|
00001540: 49 53 45 2C 20 59 4F 55 20 57 49 4C 4C 20 42 45 |ISE, YOU WILL BE|
00001550: 20 41 53 4B 45 44 00 81 1D EE F2 99 22 49 46 20 | ASKED......"IF |
00001560: 59 4F 55 20 57 41 4E 54 20 54 4F 20 44 4F 55 42 |YOU WANT TO DOUB|
00001570: 4C 45 20 44 4F 57 4E 20 4F 52 20 54 4F 20 42 55 |LE DOWN OR TO BU|
00001580: 59 00 A8 1D F8 F2 99 22 49 4E 53 55 52 41 4E 43 |Y......"INSURANC|
00001590: 45 2E 20 54 48 45 20 51 55 45 53 54 49 4F 4E 53 |E. THE QUESTIONS|
000015A0: 20 57 49 4C 4C 20 42 45 00 CB 1D 02 F3 99 22 50 | WILL BE......"P|
000015B0: 52 49 4E 54 45 44 20 49 4E A0 12 42 4C 41 43 4B |RINTED IN..BLACK|
000015C0: 20 4F 4E 20 57 48 49 54 45 92 2E 00 F8 1D 16 F3 | ON WHITE.......|
000015D0: 99 22 20 20 20 20 59 4F 55 20 4D 41 59 20 4E 4F |." YOU MAY NO|
000015E0: 54 20 42 45 54 20 4D 4F 52 45 20 54 48 41 4E 20 |T BET MORE THAN |
000015F0: 59 4F 55 20 48 41 56 45 00 25 1E 20 F3 99 22 49 |YOU HAVE.%. .."I|
00001600: 4E 20 43 48 49 50 53 20 45 58 43 45 50 54 20 54 |N CHIPS EXCEPT T|
00001610: 4F 20 44 4F 55 42 4C 45 A0 44 4F 57 4E 2E 20 49 |O DOUBLE.DOWN. I|
00001620: 46 20 59 4F 55 00 52 1E 2A F3 99 22 54 52 59 20 |F YOU.R.*.."TRY |
00001630: 54 4F 20 44 4F 20 53 4F 2C A0 59 4F 55 20 57 49 |TO DO SO,.YOU WI|
00001640: 4C 4C 20 42 45 20 41 53 4B 45 44 20 54 4F 20 42 |LL BE ASKED TO B|
00001650: 55 59 00 64 1E 34 F3 99 22 4D 4F 52 45 20 43 48 |UY.d.4.."MORE CH|
00001660: 49 50 53 2E 00 93 1E 3E F3 99 22 11 44 4F 55 42 |IPS....>..".DOUB|
00001670: 4C 45 3A 20 59 4F 55 20 44 4F 55 42 4C 45 20 59 |LE: YOU DOUBLE Y|
00001680: 4F 55 52 20 42 45 54 20 41 4E 44 20 47 45 54 20 |OUR BET AND GET |
00001690: 4F 4E 45 00 A8 1E 48 F3 99 22 20 20 20 20 43 41 |ONE...H.." CA|
000016A0: 52 44 20 4F 4E 4C 59 2E 00 D6 1E 52 F3 99 22 49 |RD ONLY....R.."I|
000016B0: 4E 53 55 52 41 4E 43 45 3A 20 43 4F 53 54 53 20 |NSURANCE: COSTS |
000016C0: 48 41 4C 46 20 59 4F 55 52 20 42 45 54 20 41 4E |HALF YOUR BET AN|
000016D0: 44 20 50 41 59 53 00 04 1F 5C F3 99 22 20 20 20 |D PAYS...\.." |
000016E0: 20 54 57 4F 20 54 4F 20 4F 4E 45 20 49 46 20 44 | TWO TO ONE IF D|
000016F0: 45 41 4C 45 52 20 48 41 53 20 42 4C 41 43 4B 4A |EALER HAS BLACKJ|
00001700: 41 43 4B 2E 00 10 1F 61 F3 8D 20 36 30 35 30 30 |ACK....a.. 60500|
00001710: 00 1C 1F 66 F3 8D 20 36 30 32 30 30 00 00 00 |...f.. 60200... |
..2.... BJACK COPYRIGHT (C) 1979 JOHN ME
LISSA, JR..Q.... CURSOR #6, JANUARY, 197
9.R.... BOX 550, GOLETA, CA. 93017.X...:
...... AS OF 9 APR 80:COLOR BY MJW......
53281,1...P.CR$.G(13).T.Z.PG$."BJACK":NM
$."6":.62000...D..X(13),Y(13),D(52),B$(5
),A$(14)...N..I.1.5:.B$(I):.I.+.S..".Z",
".A",".S",".X",". ".A.X..I.1.14:.A$(I):.
I.C.}..A,2,3,4,5,6,7,8,9,10,J,Q,K,?.....
CR$.G(13):BL$."
".Q...PR$.".HOW MUCH IN CH
IPS? ":IN.500:.9600:B2.IN... .B1.B1.B2..
....B.0.240......230...H.....R..J.1.500:
.:.B1..01.9000.B...."..";.15);"ENTER BET
FOR NEXT HAND..";.B...PR$."BET? ":IN.B:
.9600:B.IN.R...."..BET ";B......B..25.91
00......B..B1.300......"..YOU ONLY HAVE"
B1.D....:."GET MORE CHIPS!.".O."..:.100.
U.,.....6.F1.0:F2.0...@..J.1.52...J..D(J
).1...T..J.....X(13).14.....Y(13).5.!...
..+....1000.7...X(1).C1.C...Y(1).C2.T...
.C1.10.C1.10.]...M.C1.G....1000.S...X(7)
.C1....Y(7).C2......C1.10.C1.10.....N.C
1......1000...&.X(2).C1...0.Y(2).C2.L.1.
.C1.10.C1.10.W.3.M.M.C1...5..1000...:.X(
8).C1...?.Y(8).C2...@..C1.10.C1.10...A.N
.N.C1.#.D.."CCCCCC".1.I.."DEALER".7.N...
C.X.J.7:P.1.M.]..2000.Z.B.J.13:P.2.D.G..
2000.X...."............"......"CCCCCC"..
...."PLAYER".....J.1:P.1:.2000...P.J.2:P
.2:.2000.A...M1.0.Y....X(1).1.X(2).1.M1.
1.....N1.0......2200:F1.1......X(7).1.X(
8).1.N1.1.....I9.0:F1.1......./....X(7).
1..8000.C....N.11.N1.1.3000.Q. ..I9.0.81
0...%.."......................INSURANCE
LOSES $";B.2:B1.B1.B.2...*.J.2.../..M.11
.M1.1.5500...1..M.8.M.12..7000.M.4..M.20
.5000...>..M.11.M1.1.5000...H.."........
.............."...R.."DO YOU WANT A HIT?
.........";.=.\.YN.1:.9500.P.
F..YN..4000:.820.Z.P..5000.C.Z..840.M...
.9000.....C..(.(1).52.1)......D(C)..1.10
00.....D(C).0.....C1..(C.4).....C2.C.C1.
4.E...C1.C1.1......C2.1.C2.C2.4:C1.C1.1.
..K.....P.........P.7.7);......"U...I";.
=....".................K...........J....
...........";._.H..H(B$(Y(J)),1)A$(X(J))
;"...";.R.M..X(J).10..".";...R..B$(Y(J))
;...F.."...";B$(Y(J));"..";...K..C(A$(X(
J))).1..".";.Z.P..H(B$(Y(J)),1) A$(X(J))
;"......";......F1.0.............M2.M...
...M1.1.M.12.M2.M.10.-....".............
........=";M2.3.....?....F2.0...H...N2.N
._....N1.1.N.12.N2.N.10.U.$..".........
=";N2.{.............B.."...."...L.P.2...
V.J.8......2000......I9.1.3100.J....M.11
.M1.1.5600......"..........HAS 21 -- YOU
LOSE".....B1.B1.B......200.....N.0:.M.1
1.M1.1.5620.K.0.."..........HAS 21 -- CO
VERED BY INSURANCE".T.:..200.^. .J.J.1.L
....J.6.6000.V....1000......C1.10.C1.10.
.....C1.1.M1.1.....M.M.C1......"........
.......";.A.H.P.J.M...X(J).C1.Y...Y(J).C
2......2000...0........"....".....J.8:P.
2:F2.1......2000......M.21.5400.)...J.J.
1.8....N.16.5600.T....N.12.N1.1.N.10.17.
5600.^....1000.J...X(J).C1.V...Y(J).C2..
....C1.10.C1.10...#..C1.1.N1.1...(.N.N.C
1...2.P.J.6...<.."....".A.A..2000.P.B..I
.1.400:..Z.F..5090......"...............
......."...".." ***** BUSTED *
****".).,.B1.B1.B.F.6..".CHIP BALANCE IS
$"B1;.O.{..200.U.|...A...."....".M...J.
8:P.2.W....2000.....B1.B1.B.1.5......"..
....................".G.B.."
BLACKJACK!!"...L..".CHIP BALANCE IS $
";B1;...V..200......M.12..M1.1.M.M.10...
...N.12..N1.1.N.N.10.:....".............
.........".H....N.21.N.0.V....M.N.5700.D
....M.N.5800......" STAND-OFF
"......".CHIP BALANCE REMAINS AT $";B1;.
..C.. 200...D.B1.B1.B...X.."YOU WIN, CHI
P BALANCE IS $";B1...L..200.....B1.B1.B.
....."YOU LOSE, CHIP BALANCE IS $";B1.&.
...200.Q.P.."SIX CARDS LESS THAN 21 IS A
WINNER!".]...B1.B1.B.F....200...X.."...
..................."...B..".DO YOU WANT
TO DOUBLE?. ";...L..9400:.YN.0...B...B.B
.2.Q.F..".BET ";B...P..4000...Z..5000...
@.."..";.15);".INSURANCE?. ";...J..9400:
.YN.I9.1...T...<.(#."...................
...".K.-#."YOU ARE BROKE.
"....#." EEEEE
".H.2#."WOULD YOU LIKE
TO PLAY AGAIN? ";:.60000...<#.H(IN$,1)."
N".9100...M#B.0...P#.".":.130....#."..HO
PE YOU ENJOYED THE GAME.".*..#.".GOODBYE
.".0. #..9..$YN.0.G..%ZC.2:ZM.0.\.&%.Z$:
.Z$.."".9550.L.0%.TI.ZM.9510...:%.J(" Q"
,ZC,1);".";:ZC.3.ZC...D%ZM.TI.30:.9510..
.N%.Z$.."Y".Z$.."N".Z$..CR$.9520.W.X%.Z$
..CR$.YN.Z$."Y"...B%.J("YN",2.(YN..0),1)
...L%.....%.BL$:.".";.3..%CR$."":.PR$;:.
60000:.IN$.""..".";IN:.9640.S..%.:.Z.1.C
(IN$):Z$.J(IN$,Z,1).K..%.Z$."0".Z$."9".9
650.|..%.Z:IN.E(IN$)....%CR$.G(13):.....
%."NO ";Z$;"'S PLEASE."....%.Z.1.2000:.Z
.L.F%.".";BL$:."..";.V.P%.9600...`.IN$."
":ZT.TI:ZC.2:ZD$.G(20)...J..Z$:.Z$.."".
60070.=.T..ZT..TI..J(" .",ZC,1);".";:ZC.
3.ZC:ZT.TI.15.H.~..60010.X...Z.F(Z$):ZL.
C(IN$):.(Z.127).32.." .";:.60110......FL
.(Z.127).64.(Z.127).91.Z$.G((Z.128).255)
......ZL.254.60010.U.D.IN$.IN$.Z$:.Z$;ZD
$;Z$;...N..Z.13.IN$.J(IN$,2):.CR$;:.. .X
..Z.20.ZL.1.IN$.H(IN$,ZL.1):.".";:.60010
.S....Z.141.Z$.G(.20.(ZL.1)):.Z.2.ZL:.Z$
;:.Z:.60000.^....60010.N.(..PN.0.60250..
.2..".PRESS .RETURN. TO ";...<..PN.LP.."
BEGIN:";:.60240...F.."CONTINUE:";.N.P..T
$:.T$."".60240...Z..PN.LP..:.".";:.100.)
.D.PN.PN.1:.".";PG$;" - CURSOR #";NM$;"
(C) 1979 PAGE";PN;"."./.N...I.T..I.1
.10:."DDDD";:.I:..E.0.."...";.9); "BLACK
JACK"...5.. PRINT".COPYRIGHT (C) 1979 B
Y JOHN MELISSA"...6.. 60500.E.:..".LAS V
EGAS-STYLE BLACKJACK"...D.."..WANT DIREC
TIONS? ";:.60000...N..H(IN$,1).."Y".."."
;:....X.LP.1:.60200...B.. 60500.K...."FI
RST, YOU MUST ENTER HOW MANY CHIPS".X...
."YOU WANT. EACH HAND, YOU WILL BE ASKED
......"TO MAKE A BET. BET ZERO TO END TH
E.O.F.."GAME. IF YOU WISH TO PLACE THE S
AME BET...P.."AS THE LAST HAND, YOU MAY
JUST PRESS.).Z..".RETURN. IN RESPONSE TO
'BET?'. WHEN THE.V...."CIRCUMSTANCES AR
ISE, YOU WILL BE ASKED......"IF YOU WANT
TO DOUBLE DOWN OR TO BUY......"INSURANC
E. THE QUESTIONS WILL BE.K...."PRINTED I
N .BLACK ON WHITE........" YOU MAY NO
T BET MORE THAN YOU HAVE.%. .."IN CHIPS
EXCEPT TO DOUBLE DOWN. IF YOU.R.*.."TRY
TO DO SO, YOU WILL BE ASKED TO BUY.D.4..
"MORE CHIPS....>..".DOUBLE: YOU DOUBLE Y
OUR BET AND GET ONE...H.." CARD ONLY.
.V.R.."INSURANCE: COSTS HALF YOUR BET AN
D PAYS...\.." TWO TO ONE IF DEALER HA
S BLACKJACK....A.. 60500...F.. 60200...
> CLICK IMAGE PREVIEW FOR FULL MODAL