BLACK JACK /BTK
FILE INFORMATION
FILENAME(S): BLACK JACK /BTK
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-12-01 01:00:00
APPEARS ON: 1 disk(s)
FILE HASH
bd856dc219d012ab8ffc4c3f96ec89d809cb9342742421da62a8e108fedfccea
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISARM | BLACK JACK /BTK | PRG | hedning, disarm | 5 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 F6 EA 9E 32 30 35 39 00 A0 00 78 E6 |.......2059...x.|
00000010: 01 CE 18 08 CE 1B 08 B9 43 2A 99 00 00 C8 D0 F7 |........C*......|
00000020: AD 18 08 D0 EC A2 6D BD 31 08 9D F5 00 CA D0 F7 |......m.1.......|
00000030: 4C 00 01 AD 5C DE E6 F7 D0 02 E6 F8 60 E8 20 F6 |L...\.......`. .|
00000040: 00 C9 2B F0 30 C9 5F F0 35 C9 65 F0 39 C9 67 F0 |..+.0._.5.e.9.g.|
00000050: 38 C9 71 F0 38 C9 79 F0 3C C9 7B F0 3B 99 01 08 |8.q.8.y.<.{.;...|
00000060: C8 D0 03 EE 22 01 CA D0 F4 E4 F8 D0 D0 A9 37 85 |....".........7.|
00000070: 01 58 4C 10 0A 20 F6 00 AA 20 F6 00 D0 DF 20 F6 |.XL.. ... .... .|
00000080: 00 AA A9 00 F0 D7 E8 D0 F9 A2 03 D0 EC 20 F6 00 |............. ..|
00000090: AA A9 FF 30 C8 E8 D0 F9 20 F6 00 AA A9 20 D0 BD |...0.... .... ..|
000000A0: 00 2B 00 42 2B 00 42 2B 0D 42 05 78 A2 00 86 31 |.+.B+.B+.B.x...1|
000000B0: 86 32 8E 11 D0 A9 08 85 30 A9 A0 85 3A A9 0B 85 |.2......0...:...|
000000C0: 3B BD 30 08 9D 00 04 9D 08 06 BD 10 09 9D E0 04 |;.0.............|
000000D0: 9D E8 06 A9 00 9D 00 D8 9D 00 D9 9D 00 DA 9D 00 |................|
000000E0: DB E8 D0 DD A9 1B 8D 11 D0 A9 32 CD 12 D0 D0 FB |..........2.....|
000000F0: A9 13 8D 18 D0 A9 00 8D 20 D0 A9 00 8D 21 D0 EE |........ ....!..|
00000100: 19 D0 A9 92 CD 12 D0 D0 FB A2 09 CA D0 FD A9 15 |................|
00000110: 8D 18 D0 A9 00 8D 21 D0 A9 05 8D 16 D0 A9 9A CD |......!.........|
00000120: 12 D0 D0 FB A2 09 CA D0 FD A9 13 8D 18 D0 A9 00 |................|
00000130: 8D 21 D0 A9 28 8D 16 D0 20 BD 0A 20 32 0B AD 01 |.!..(... .. 2...|
00000140: DC C9 EF F0 03 4C 4E 0A A9 15 8D 18 D0 49 15 8D |.....LN......I..|
00000150: 21 D0 20 44 E5 4C 00 0D A5 37 38 E9 02 08 29 07 |!. D.L...78...).|
00000160: 85 37 28 10 03 20 D3 0A A5 37 8D 7E 0A 60 A2 00 |.7(.. ...7.~.`..|
00000170: BD E1 05 9D E0 05 BD E1 D9 9D E0 D9 E8 E0 27 D0 |..............'.|
00000180: EF A0 00 B1 3A F0 3B C9 80 F0 11 C9 81 B0 23 C9 |....:.;.......#.|
00000190: 40 B0 16 09 00 8D 07 06 20 20 0B 60 AD F9 0A 49 |@....... .`...I|
000001A0: 80 8D F9 0A A9 20 4C FA 0A 8D 07 DA 20 20 0B 4C |..... L..... .L|
000001B0: E6 0A 49 80 8D C1 0A 20 20 0B 60 E6 3A D0 02 E6 |..I.... .`.:...|
000001C0: 3B 60 A9 A0 85 3A A9 0B 85 3B 4C E6 0A E6 32 A5 |;`...:...;L...2.|
000001D0: 32 29 01 F0 1A E6 30 A5 30 29 3F AA BD 55 0B 8D |2)....0.0)?..U..|
000001E0: 60 0A E6 31 A5 31 29 3F AA BD 55 0B 8D 94 0A 60 |`..1.1)?..U....`|
000001F0: 5F 36 06 04 0E 03 01 03 0E 04 06 5F 0C 83 80 4B |_6........._...K|
00000200: 02 4C 05 4F 01 41 14 0E 4F 09 4C 0B 4B 13 80 82 |.L.O.A..O.L.K...|
00000210: 20 41 02 12 09 0E 07 13 20 19 0F 15 20 4F 80 7B | A...... ... O.{|
00000220: 03 02 0C 01 03 0B 20 0A 01 03 0B 7B 03 80 20 20 |...... ....{.. |
00000230: 41 03 12 01 03 0B 05 04 20 02 19 20 15 13 20 06 |A....... .. .. .|
00000240: 12 0F 0D 20 0D 01 12 03 08 20 03 0F 0D 0D 0F 04 |... ..... ......|
00000250: 0F 12 05 20 06 0F 12 0D 01 14 20 14 08 05 20 04 |... ...... ... .|
00000260: 01 14 05 20 09 13 20 06 05 02 12 15 01 12 19 20 |... .. ........ |
00000270: 32 33 12 04 20 31 39 39 33 2E 20 83 20 0E 0F 20 |23.. 1993. . .. |
00000280: 14 09 0D 05 20 0C 01 14 05 12 2E 7B 06 5F CA A2 |.... ......{._..|
00000290: 40 BD 40 0D 9D 40 03 CA 10 F7 4C 40 03 5F 32 78 |@.@..@....L@._2x|
000002A0: A9 34 85 01 A2 00 BD 00 0E 9D 01 08 E8 D0 F7 EE |.4..............|
000002B0: 49 03 EE 4C 03 AD 49 03 D0 EA A9 37 85 01 4C 0D |I..L..I....7..L.|
000002C0: 08 5F 9E 0B 08 4E 46 9E 32 30 36 31 5F 03 20 5B |._...NF.2061_. [|
000002D0: FF CA 8E 20 D0 8E 21 D0 A0 28 A9 07 99 FF D7 B9 |... ..!..(......|
000002E0: 53 08 99 FF 03 88 D0 F2 78 84 01 A2 07 BD CD 08 |S.......x.......|
000002F0: 95 2D CA 10 F8 9A B9 D5 08 99 F7 00 C8 D0 F7 A2 |.-..............|
00000300: 1F CE 48 08 CE 4B 08 B9 BD 27 99 65 C8 D0 F7 CA |..H..K...'.e....|
00000310: D0 EE F0 2D 7B 28 A9 FD 20 FA 00 20 0D 01 C9 FD |...-{(.. .. ....|
00000320: F0 18 A6 30 D0 F2 B9 AE E0 91 2D C8 D0 F8 B5 31 |...0......-....1|
00000330: 95 2D E8 E0 04 D0 F7 4C 27 01 20 0D 01 F0 D7 48 |.-.....L'. ....H|
00000340: 29 C0 85 F9 68 29 3F 85 0F 84 0E A2 03 20 0D 01 |)...h)?...... ..|
00000350: 4A 26 0E 4A 26 0E 20 F7 00 CA D0 F1 A5 0E 20 F7 |J&.J&. ....... .|
00000360: 00 C6 0F D0 E4 F0 B4 AE E0 B9 E1 01 08 AD E1 18 |................|
00000370: 69 00 91 2D E6 2D D0 02 E6 2E 60 2D 4E 41 46 2F |i..-.-....`-NAF/|
00000380: 42 59 47 21 2D E6 2F D0 02 E6 30 B1 2F 60 20 0D |BYG!-./...0./` .|
00000390: 01 AA 20 0D 01 91 2D C8 D0 FB E6 2E CA D0 F6 20 |.. ...-........ |
000003A0: 0D 01 A6 30 F0 0D C9 CD F0 14 C9 EF F0 29 20 FA |...0.........) .|
000003B0: 00 D0 EC A9 37 85 01 58 20 59 A6 4C AE A7 20 0D |....7..X Y.L.. .|
000003C0: 01 AA F0 CA 29 FC F0 0B 20 0D 01 20 FA 00 CA D0 |....)... .. ....|
000003D0: FA F0 CC A9 CD D0 F4 20 0D 01 AA F0 18 29 FC F0 |....... .....)..|
000003E0: 10 20 0D 01 85 F9 20 0D 01 20 F7 00 CA D0 FA F0 |. .... .. ......|
000003F0: AE A9 EF D0 D6 20 0D 01 AA 20 0D 01 8D 8E 01 20 |..... ... ..... |
00000400: 0D 01 91 2D 18 69 00 C8 D0 F8 E6 2E CA D0 F3 F0 |...-.i..........|
00000410: 8E 2C 31 35 3A 97 35 34 32 37 37 2C 34 35 3A 97 |.,15:.54277,45:.|
00000420: 35 34 32 37 38 2C 31 36 35 00 A0 26 46 0F 97 35 |54278,165..&F..5|
00000430: 34 32 37 36 2C 33 33 3A 97 35 34 32 37 33 2C 36 |4276,33:.54273,6|
00000440: 3A 97 35 34 32 37 32 2C 35 00 D7 26 4B 0F 81 54 |:.54272,5..&K..T|
00000450: 54 B2 31 A4 32 30 30 3A 82 3A 97 35 34 32 37 36 |T.1.200:.:.54276|
00000460: 2C 33 32 3A 97 35 34 32 37 33 2C 30 3A 97 35 34 |,32:.54273,0:.54|
00000470: 32 37 33 2C 30 3A 97 35 34 32 37 32 2C 30 3A 8E |273,0:.54272,0:.|
00000480: 00 EB 26 6E 0F 8F 20 2A 2A 20 42 45 4C 4C 20 53 |..&n.. ** BELL S|
00000490: 4F 55 4E 44 00 0D 27 73 0F 97 35 34 32 39 36 2C |OUND..'s..54296,|
000004A0: 31 35 3A 97 35 34 32 37 37 2C 30 3A 97 FD 03 D7 |15:.54277,0:....|
000004B0: D2 CB E3 B2 C8 DD 02 BB 78 0F 97 35 34 32 37 36 |........x..54276|
000004C0: 2C 31 37 3A 97 35 34 32 37 33 2C 34 30 3A 97 35 |,17:.54273,40:.5|
000004D0: 34 32 37 32 2C 30 00 2B 01 65 27 7D 0F 81 54 54 |4272,0.+.e'}..TT|
000004E0: B2 31 A4 32 30 30 3A 82 3A 97 35 34 32 37 36 2C |.1.200:.:.54276,|
000004F0: 31 36 3A 97 35 34 32 37 33 2C 30 3A 97 35 34 32 |16:.54273,0:.542|
00000500: 37 33 2C 30 3A 97 35 34 32 37 32 2C 30 3A 8E 5F |73,0:.54272,0:._|
00000510: 03 0A 08 01 00 89 39 31 30 00 54 08 05 00 8F 20 |......910.T.... |
00000520: 2A 2A 20 42 4C 41 43 4B 4A 41 43 4B 20 46 52 4F |** BLACKJACK FRO|
00000530: 4D 20 54 48 45 20 50 55 42 4C 49 43 20 44 4F 4D |M THE PUBLIC DOM|
00000540: 41 49 4E 20 57 49 54 48 20 43 48 41 47 45 53 20 |AIN WITH CHAGES |
00000550: 4D 41 44 45 20 46 4F 52 20 54 48 45 20 43 36 34 |MADE FOR THE C64|
00000560: 20 42 59 00 8B 08 06 00 8F 20 2A 2A 20 4B 45 4E | BY...... ** KEN|
00000570: 20 4A 49 52 45 4C 45 20 41 4E 44 20 46 52 45 44 | JIRELE AND FRED|
00000580: 20 4C 41 59 42 45 52 47 45 52 2C 20 4F 4D 41 48 | LAYBERGER, OMAH|
00000590: 41 20 4E 45 42 52 41 53 4B 41 00 AC 08 0A 00 8F |A NEBRASKA......|
000005A0: 20 2A 2A 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 | **GENERAL INPUT|
000005B0: 20 52 4F 55 54 49 4E 45 20 2A 2A 00 B2 08 0F 00 | ROUTINE **.....|
000005C0: 3A 00 B8 08 1E 00 3A 00 D4 08 23 00 8F 20 67 2B |:.....:...#.. g+|
000005D0: 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 67 | INPUT SECTION g|
000005E0: 2B 00 EC 08 28 00 97 55 4F 2C 30 3A 55 52 24 B2 |+...(..UO,0:UR$.|
000005F0: 22 22 3A 55 49 24 B2 22 22 00 FC 08 2A 00 8B 55 |"":UI$.""...*..U|
00000600: 4C B2 30 A7 55 4C B2 38 30 00 06 09 2D 00 97 55 |L.0.UL.80...-..U|
00000610: 43 2C 30 00 1A 09 32 00 A1 55 49 24 3A 8B 55 49 |C,0...2..UI$:.UI|
00000620: 24 B2 22 22 A7 35 30 00 45 09 37 00 8B 55 49 24 |$."".50.E.7..UI$|
00000630: B2 C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 |..(13)..(UR$)..1|
00000640: A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 31 |..UC,1:." .";:.1|
00000650: 32 30 00 58 09 3C 00 8B 55 49 24 B2 C7 28 32 30 |20.X.<..UI$..(20|
00000660: 29 A7 31 30 35 00 6C 09 3E 00 8B 20 C3 28 55 52 |).105.l.>.. .(UR|
00000670: 24 29 B2 B1 55 4C A7 35 30 00 91 09 41 00 8D 31 |$)..UL.50...A..1|
00000680: 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 |20:. CHECK FOR V|
00000690: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 A1 |ALID CHARACTER..|
000006A0: 09 46 00 55 52 24 B2 55 52 24 AA 55 49 24 00 AB |.F.UR$.UR$.UI$..|
000006B0: 09 4B 00 99 55 49 24 3B 00 B3 09 50 00 89 35 30 |.K..UI$;...P..50|
000006C0: 00 CC 09 66 00 8F 20 2B 02 2B 20 43 48 45 43 4B |...f.. +.+ CHECK|
000006D0: 20 44 45 4C 45 54 45 20 2B 02 2B 00 DD 09 69 00 | DELETE +.+...i.|
000006E0: 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 F5 09 6E |..(UR$).1.50...n|
000006F0: 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 |.UR$..(UR$,.(UR$|
00000700: 29 AB 31 29 00 07 0A 73 00 99 22 9D 20 20 9D 9D |).1)...s..". ..|
00000710: 22 3B 3A 89 35 30 00 2E 0A 78 00 8F 20 2B 02 2B |";:.50...x.. +.+|
00000720: 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 | CHECK FOR VALID|
00000730: 20 43 48 41 52 41 43 54 45 52 53 20 2B 02 2B 00 | CHARACTERS +.+.|
00000740: 40 0A 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 |@.}...(US$).0.15|
00000750: 30 00 51 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 |0.Q....US.1..(US|
00000760: 24 29 00 68 0A 87 00 8B 55 49 24 B2 CA 28 55 53 |$).h....UI$..(US|
00000770: 24 2C 55 53 2C 31 29 A7 8E 00 6E 0A 8C 00 82 00 |$,US,1)...n.....|
00000780: 2B 01 7B 0A 91 00 55 49 24 B2 22 22 3A 8E 00 96 |+.{...UI$."":...|
00000790: 0A 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 |.... ** STANDARD|
000007A0: 20 49 4E 50 55 54 20 2A 2A 00 A7 0A 98 00 8B C6 | INPUT **.......|
000007B0: 28 55 49 24 29 B2 34 36 A7 8E 00 B8 0A 9B 00 8B |(UI$).46........|
000007C0: 55 49 24 B2 C7 28 33 32 29 A7 8E 00 D5 0A A0 00 |UI$..(32).......|
000007D0: 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 |..(UI$).48..(UI$|
000007E0: 29 B1 35 37 A7 31 37 30 00 DB 0A A5 00 8E 00 F8 |).57.170........|
000007F0: 0A AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 |.....(UI$).65..(|
00000800: 55 49 24 29 B1 39 30 A7 31 38 30 00 FE 0A AF 00 |UI$).90.180.....|
00000810: 8E 00 22 0B B4 00 8B C6 28 55 49 24 29 B3 31 39 |..".....(UI$).19|
00000820: 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 |3..(UI$).218.UI$|
00000830: B2 22 22 3A 8E 00 45 0B B9 00 8B C2 28 55 54 29 |."":..E.....(UT)|
00000840: B2 55 4C 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 |.UL%.UI$..(.(UI$|
00000850: 29 AB 31 32 38 29 3A 8E 00 4B 0B BB 00 8E 00 58 |).128):..K.....X|
00000860: 0B BE 00 55 49 24 B2 22 22 3A 8E 00 61 0B D8 00 |...UI$."":..a...|
00000870: 89 33 30 30 00 A5 0B D9 00 55 5A B2 30 3A 55 53 |.300.....UZ.0:US|
00000880: 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 |$.UJ$:UG$.UK$:UP|
00000890: B2 55 4A 3A 55 4C B2 55 4B 3A 8B C2 28 35 67 30 |.UJ:UL.UK:..(5g0|
000008A0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5|
000008B0: 33 32 38 30 2C 31 34 00 D2 0B DC 00 99 22 93 22 |3280,14......"."|
000008C0: 3B 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 |;:.UT,UV%:.UQ.UB|
000008D0: A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |.(U2%.256.U1%.U3|
000008E0: 25 AB 33 29 00 E7 0B E1 00 97 55 51 2C 55 51 25 |%.3)......UQ,UQ%|
000008F0: 28 55 51 AB 55 42 29 3A 82 00 F3 0B E6 00 97 55 |(UQ.UB):.......U|
00000900: 31 2C 55 31 25 00 FF 0B E8 00 97 55 32 2C 55 32 |1,U1%......U2,U2|
00000910: 25 00 0B 0C E9 00 97 55 34 2C 55 34 25 00 19 0C |%......U4,U4%...|
00000920: EA 00 97 55 33 2C 55 33 25 AB 31 00 21 0C EB 00 |...U3,U3%.1.!...|
00000930: 89 33 35 00 32 0C 2C 01 8F 20 2A 2A 20 4D 45 4E |.35.2.,.. ** MEN|
00000940: 55 20 2A 2A 00 38 0C 2D 01 3A 00 69 0C 2E 01 99 |U **.8.-.:.i....|
00000950: 22 93 90 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 |"..":.UT,UU%:..(|
00000960: 35 67 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 31 |5g03).0..53281,1|
00000970: 35 3A 97 35 33 32 38 30 2C 30 00 6F 0C 2F 01 3A |5:.53280,0.o./.:|
00000980: 00 8C 0C 31 01 99 22 13 CD 10 20 4D 45 4E 55 22 |...1.."... MENU"|
00000990: 00 BB 0C 36 01 99 22 20 CD 26 2D 22 00 E0 0C 3B |...6.." .&-"...;|
000009A0: 01 99 22 11 11 CD 07 20 31 2E 7B 03 42 45 47 49 |..".... 1.{.BEGI|
000009B0: 4E 20 42 4C 41 43 4B 4A 41 43 4B 22 00 02 0D 40 |N BLACKJACK"...@|
000009C0: 01 99 22 11 11 CD 07 20 32 2E 7B 03 FD 43 26 3A |..".... 2.{..C&:|
000009D0: 4C 4A 56 0C 26 3C 3B 22 00 1E 0D 4F 01 99 22 11 |LJV.&<;"...O..".|
000009E0: 11 CD 07 20 33 2E 7B 03 51 55 49 54 11 11 22 00 |... 3.{.QUIT..".|
000009F0: 4D 0D 54 01 99 22 20 CD 26 2D 22 00 78 0D 59 01 |M.T.." .&-".x.Y.|
00000A00: 99 22 11 11 CD 07 20 50 52 45 53 53 20 41 20 4E |.".... PRESS A N|
00000A10: 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 33 29 20 |UMBER KEY (1-3) |
00000A20: 22 3B 00 9F 0D 5E 01 55 4C B2 31 3A 55 53 24 B2 |";...^.UL.1:US$.|
00000A30: 22 31 32 33 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 |"123":.35:. INPU|
00000A40: 54 20 52 4F 55 54 49 4E 45 00 AA 0D 60 01 55 53 |T ROUTINE...`.US|
00000A50: 24 B2 22 22 00 C3 0D 63 01 91 C5 28 55 52 24 29 |$.""...c...(UR$)|
00000A60: 8D FD 03 C7 C0 C0 B3 D0 C0 B3 CE E5 00 CC 0D 68 |...............h|
00000A70: 01 89 33 30 30 00 F3 0D 8B 01 8F 20 2A 2A 20 52 |..300...... ** R|
00000A80: 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 |E-ENABLE STOP KE|
00000A90: 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 FB 0D 8C |Y AND END **....|
00000AA0: 01 9C 3A 80 00 1C 0E 90 01 8F 20 2A 2A 20 53 54 |..:....... ** ST|
00000AB0: 55 44 45 4E 54 20 FD 43 26 3A 4C 4A 56 0C 26 3C |UDENT .C&:LJV.&<|
00000AC0: 3B 20 2A 2A 00 4C 0E 95 01 99 22 93 22 3A 97 55 |; **.L....".":.U|
00000AD0: 54 2C 55 4C 25 3A 8B C2 28 35 67 30 33 29 B2 30 |T,UL%:..(5g03).0|
00000AE0: A7 97 35 33 32 38 31 2C 31 35 3A 97 35 33 32 38 |..53281,15:.5328|
00000AF0: 30 2C 30 00 6D 0E 9A 01 55 50 B2 30 3A 55 47 24 |0,0.m...UP.0:UG$|
00000B00: B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 3A |.".TUDENT .NST":|
00000B10: 8D 38 35 30 00 9A 0E 9D 01 99 22 67 11 CD 04 20 |.850......"g... |
00000B20: D4 48 49 53 20 47 41 4D 45 20 53 49 4D 55 4C 41 |.HIS GAME SIMULA|
00000B30: 54 45 53 20 54 48 45 20 47 41 4D 45 20 4F 46 00 |TES THE GAME OF.|
00000B40: D8 0E 9F 01 99 22 11 CD 04 20 42 4C 41 43 4B 4A |....."... BLACKJ|
00000B50: 41 43 4B 2E 22 3A 99 22 11 11 CD 04 20 D9 4F 55 |ACK.":.".... .OU|
00000B60: 20 4D 55 53 54 20 47 45 54 20 55 50 20 54 4F 20 | MUST GET UP TO |
00000B70: 32 31 20 49 4E 20 4C 45 53 53 22 00 01 0F A4 01 |21 IN LESS".....|
00000B80: 99 22 11 CD 04 20 54 48 41 4E 20 35 20 43 41 52 |."... THAN 5 CAR|
00000B90: 44 53 2E 20 D9 4F 55 20 43 41 4E 20 42 45 54 20 |DS. .OU CAN BET |
00000BA0: 4F 4E 22 00 2E 0F A6 01 99 22 11 CD 04 20 59 4F |ON"......"... YO|
00000BB0: 55 52 20 48 41 4E 44 2E 20 C9 46 20 59 4F 55 20 |UR HAND. .F YOU |
00000BC0: 4C 4F 53 45 2C 20 59 4F 55 52 20 42 45 54 22 00 |LOSE, YOUR BET".|
00000BD0: 68 0F A9 01 99 22 11 CD 04 20 49 53 20 44 45 44 |h...."... IS DED|
00000BE0: 55 43 54 45 44 20 46 52 4F 4D 20 59 4F 55 52 20 |UCTED FROM YOUR |
00000BF0: 54 4F 54 41 4C 22 3A 99 22 11 CD 04 20 45 41 52 |TOTAL":."... EAR|
00000C00: 4E 49 4E 47 53 2E 22 00 76 0F AA 01 8D 38 33 35 |NINGS.".v....835|
00000C10: 3A 8D 38 35 30 00 A0 0F AB 01 99 22 CD 04 11 CD |:.850......"....|
00000C20: 04 20 D9 4F 55 20 4D 41 59 20 44 45 43 49 44 45 |. .OU MAY DECIDE|
00000C30: 20 49 46 20 59 4F 55 20 57 41 4E 54 22 00 CC 0F | IF YOU WANT"...|
00000C40: AE 01 99 22 11 CD 04 20 41 4E 4F 54 48 45 52 20 |..."... ANOTHER |
00000C50: 43 41 52 44 20 45 41 43 48 20 54 49 4D 45 2E 20 |CARD EACH TIME. |
00000C60: 20 C9 46 20 59 4F 55 22 00 F9 0F AF 01 99 22 11 | .F YOU"......".|
00000C70: CD 04 20 57 41 4E 54 20 54 4F 20 44 4F 55 42 4C |.. WANT TO DOUBL|
00000C80: 45 20 59 4F 55 52 20 42 45 54 20 57 48 45 4E 20 |E YOUR BET WHEN |
00000C90: 59 4F 55 22 00 26 10 B1 01 99 22 11 CD 04 20 41 |YOU".&...."... A|
00000CA0: 52 45 20 49 4E 20 54 48 45 20 4D 49 44 44 4C 45 |RE IN THE MIDDLE|
00000CB0: 20 4F 46 20 41 20 48 41 4E 44 2C 20 54 48 45 22 | OF A HAND, THE"|
00000CC0: 00 52 10 B3 01 99 22 11 CD 04 20 43 4F 4D 50 55 |.R...."... COMPU|
00000CD0: 54 45 52 20 57 49 4C 4C 20 47 49 56 45 20 59 4F |TER WILL GIVE YO|
00000CE0: 55 20 41 4E 4F 54 48 45 52 20 22 00 78 10 B4 01 |U ANOTHER ".x...|
00000CF0: 99 22 11 CD 04 20 43 41 52 44 20 41 4E 44 20 44 |."... CARD AND D|
00000D00: 4F 55 42 4C 45 20 59 4F 55 52 20 42 45 54 2E 22 |OUBLE YOUR BET."|
00000D10: 00 86 10 B5 01 8D 38 33 35 3A 8D 38 35 30 00 B7 |......835:.850..|
00000D20: 10 B6 01 99 22 67 11 CD 04 20 12 D4 4F 20 44 4F |...."g... ..O DO|
00000D30: 55 42 4C 45 20 42 45 54 92 3A 20 20 54 59 50 45 |UBLE BET.: TYPE|
00000D40: 20 20 44 20 3C 52 45 54 55 52 4E 3E 22 00 F2 10 | D <RETURN>"...|
00000D50: B8 01 99 22 11 11 CD 04 20 12 C8 4F 55 53 45 20 |...".... ..OUSE |
00000D60: 4C 49 4D 49 54 20 4F 4E 20 45 41 43 48 20 42 45 |LIMIT ON EACH BE|
00000D70: 54 92 3A 11 22 3A 99 A3 FD 04 C9 D8 A5 91 CB D4 |T.:.":..........|
00000D80: C1 C3 C1 C0 C0 88 FB 10 E5 01 8D 38 33 35 00 0F |...........835..|
00000D90: 11 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00000DA0: 31 37 00 15 11 F3 01 8E 00 31 11 43 03 8F 20 2A |17.......1.C.. *|
00000DB0: 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 |* SPACE BAR PRES|
00000DC0: 53 20 2A 2A 00 6C 11 48 03 97 55 4F 2C 30 3A 99 |S **.l.H..UO,0:.|
00000DD0: C8 28 55 44 24 2C 32 34 29 3B 22 CD 06 1D 12 50 |.(UD$,24);"....P|
00000DE0: 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 54 |RESS SPACE BAR T|
00000DF0: 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 83 11 4C |O CONTINUE."...L|
00000E00: 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 |..UI$:.UI$.." ".|
00000E10: 38 34 34 00 89 11 4E 03 8E 00 A9 11 52 03 8F 20 |844...N.....R.. |
00000E20: 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 |** PAGE DESIGN R|
00000E30: 4F 55 54 49 4E 45 20 2A 2A 00 B5 11 54 03 55 50 |OUTINE **...T.UP|
00000E40: B2 55 50 AA 31 00 C8 11 55 03 8B C2 28 55 54 29 |.UP.1...U...(UT)|
00000E50: B2 55 4C 25 A7 38 35 35 00 F2 11 56 03 55 54 24 |.UL%.855...V.UT$|
00000E60: B2 22 20 42 4C 41 43 4B 4A 41 43 4B 22 3A 55 47 |." BLACKJACK":UG|
00000E70: 24 B2 22 42 4C 41 43 4B 4A 41 43 4B 22 3A 89 38 |$."BLACKJACK":.8|
00000E80: 35 37 00 07 12 57 03 55 54 24 B2 22 20 C2 CC C1 |57...W.UT$." ...|
00000E90: C3 CB CA C1 C3 CB 22 00 31 12 59 03 99 22 93 22 |......".1.Y.."."|
00000EA0: C8 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 |.(UT$.UP$,21);.(|
00000EB0: 55 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 |UP$.UG$..(UP),18|
00000EC0: 29 00 60 12 5C 03 99 22 20 CD 26 2D 22 00 6F 12 |).`.\.." .&-".o.|
00000ED0: 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 A3 12 61 |`..UH..0.870...a|
00000EE0: 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 |...(UD$,24);.(UP|
00000EF0: 24 2C 36 29 3B 22 54 4F 20 45 58 49 54 20 47 41 |$,6);"TO EXIT GA|
00000F00: 4D 45 20 50 52 45 53 53 20 20 12 51 92 20 2E 22 |ME PRESS .Q. ."|
00000F10: 00 B4 12 66 03 55 48 B2 30 3A 99 22 13 11 22 3A |...f.UH.0:."..":|
00000F20: 8E 00 D3 12 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 |....k.. ** PLEAS|
00000F30: 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A |E WAIT REMARK **|
00000F40: 00 09 13 70 03 99 C8 28 55 44 24 2C 32 34 29 3B |...p...(UD$,24);|
00000F50: 22 CD 0B 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 |".. ONE MOMENT P|
00000F60: 4C 45 41 53 45 67 2E CD 05 20 22 00 0F 13 75 03 |LEASEg... "...u.|
00000F70: 8E 00 2C 13 84 03 8F 20 2A 2A 20 53 45 54 20 55 |..,.... ** SET U|
00000F80: 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 77 |P VARIABLES **.w|
00000F90: 13 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 |...UX$."H":.UQ%(|
00000FA0: 31 67 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |1g0):UB.32768:U1|
00000FB0: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
00000FC0: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
00000FD0: 3A 55 55 B2 31 30 32 34 00 B5 13 86 03 55 54 B2 |:UU.1024.....UT.|
00000FE0: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
00000FF0: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
00001000: 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 |32768:UO.158:. 5|
00001010: 67 30 33 2C 30 00 F8 13 87 03 8B C2 28 35 67 30 |g03,0.......(5g0|
00001020: 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 |3).0.UB.1024:U1.|
00001030: 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 |209:U2.210:U3.21|
00001040: 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A |1:U4.214:UC.204:|
00001050: 55 55 B2 32 30 34 38 00 37 14 88 03 8B C2 28 35 |UU.2048.7.....(5|
00001060: 67 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A |g03).0.UT.53272:|
00001070: 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 |UU%.21:UL%.23:UP|
00001080: 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A 55 |%.2139:UM.1024:U|
00001090: 4F B2 31 39 38 00 5B 14 89 03 55 44 24 B2 22 13 |O.198.[...UD$.".|
000010A0: CD 18 11 22 00 8D 14 8A 03 55 50 24 B2 22 CD 27 |...".....UP$.".'|
000010B0: 20 22 00 93 14 8C 03 8E 00 AD 14 8E 03 8F 20 2A | "............ *|
000010C0: 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 |* SET VARIABLES |
000010D0: 2A 2A 00 C4 14 8F 03 86 43 28 35 32 29 2C 50 28 |**......C(52),P(|
000010E0: 31 30 29 2C 44 28 31 30 29 00 D7 14 90 03 86 53 |10),D(10)......S|
000010F0: 24 28 35 32 29 2C 43 24 28 35 32 29 00 E0 14 98 |$(52),C$(52)....|
00001100: 03 8D 39 30 30 00 F0 14 D4 03 89 33 30 30 3A 8F |..900......300:.|
00001110: 20 4D 45 4E 55 00 25 15 E8 03 8B 55 5A B2 31 A7 | MENU.%....UZ.1.|
00001120: 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F |.UP%:.UP%:UZ.0:.|
00001130: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 | ** PROGRAM STAR|
00001140: 54 53 20 48 45 52 45 20 2A 2A 00 51 15 E9 03 99 |TS HERE **.Q....|
00001150: 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 67 30 33 29 |"..";:.:..(5g03)|
00001160: B2 30 A7 97 35 33 32 38 31 2C 31 35 3A 97 35 33 |.0..53281,15:.53|
00001170: 32 38 30 2C 35 00 60 15 2E 04 53 39 24 B2 22 C1 |280,5.`...S9$.".|
00001180: DA D3 D8 22 00 78 15 38 04 43 38 24 B2 22 EF 08 |...".x.8.C8$."..|
00001190: 01 31 54 4A 51 4B 41 22 00 9D 15 42 04 43 39 24 |.1TJQKA"...B.C9$|
000011A0: B2 FD 07 89 80 C8 CD 80 D0 D5 80 D8 DD 80 E0 E7 |................|
000011B0: C4 C2 C3 C4 C2 C1 C4 C5 00 C0 15 4C 04 45 52 24 |...........L.ER$|
000011C0: B2 22 22 3A 81 49 B2 31 A4 31 33 3A 45 52 24 B2 |."":.I.1.13:ER$.|
000011D0: 45 52 24 AA 22 7B 03 22 3A 82 00 DC 15 56 04 81 |ER$."{.":....V..|
000011E0: 49 B2 31 A4 31 33 3A 45 52 24 B2 45 52 24 AA 22 |I.1.13:ER$.ER$."|
000011F0: 67 9D 22 3A 82 00 EE 15 5B 04 45 52 24 B2 45 52 |g.":....[.ER$.ER|
00001200: 24 AA 22 7B 03 22 00 05 16 60 04 44 4E 24 B2 22 |$."{."...`.DN$."|
00001210: 13 CD 0A 11 1F 22 00 0B 16 6A 04 8F 00 15 16 92 |....."...j......|
00001220: 04 8D 32 32 36 30 00 1D 16 9C 04 54 B2 30 00 26 |..2260.....T.0.&|
00001230: 16 A6 04 4A 38 B2 4A 00 35 16 B0 04 8B 41 39 B3 |...J8.J.5....A9.|
00001240: 34 A7 31 32 32 30 00 44 16 BA 04 8D 38 33 35 3A |4.1220.D....835:|
00001250: 8D 32 32 36 30 00 53 16 C4 04 8B 4A B3 34 32 A7 |.2260.S....J.42.|
00001260: 31 32 34 30 00 62 16 CE 04 8D 38 33 35 3A 8D 32 |1240.b....835:.2|
00001270: 32 36 30 00 8C 16 D8 04 99 44 4E 24 3B 45 52 24 |260......DN$;ER$|
00001280: 22 50 4C 41 43 45 20 59 4F 55 52 20 42 45 54 2E |"PLACE YOUR BET.|
00001290: CD 06 20 CD 05 9D 22 3B 00 BB 16 E2 04 55 53 24 |.. ...";.....US$|
000012A0: B2 22 EF 0A 01 2F 31 30 51 22 3A 55 4C B2 35 3A |.".../10Q":UL.5:|
000012B0: 8D 33 35 3A 8B 55 52 24 B2 22 51 22 A7 32 31 36 |.35:.UR$."Q".216|
000012C0: 30 00 CF 16 EC 04 42 31 B2 C5 28 55 52 24 29 3A |0.....B1..(UR$):|
000012D0: 4B 24 B2 42 24 00 DE 16 F6 04 8B 42 31 B2 30 A7 |K$.B$......B1.0.|
000012E0: 31 32 34 30 00 ED 16 00 05 8B 42 31 B1 30 A7 31 |1240......B1.0.1|
000012F0: 33 31 30 00 FC 16 0A 05 8D 38 33 35 3A 8D 32 32 |310......835:.22|
00001300: 36 30 00 07 17 14 05 42 31 B2 AB 42 31 00 17 17 |60.....B1..B1...|
00001310: 1E 05 8B 42 31 B1 B2 31 A7 31 33 34 30 00 37 17 |...B1..1.1340.7.|
00001320: 28 05 99 45 52 24 22 54 48 45 20 4D 49 4E 49 4D |(..ER$"THE MINIM|
00001330: 55 4D 20 42 45 54 20 49 53 20 24 31 22 00 41 17 |UM BET IS $1".A.|
00001340: 32 05 89 31 31 39 30 00 55 17 3C 05 8B 42 31 B3 |2..1190.U.<..B1.|
00001350: B2 32 35 67 30 A7 31 33 38 30 00 64 17 46 05 8B |.25g0.1380.d.F..|
00001360: 4D 31 B2 31 A7 32 39 35 30 00 96 17 50 05 99 45 |M1.1.2950...P..E|
00001370: 52 24 3A 99 45 52 24 3A 99 45 52 24 22 54 48 45 |R$:.ER$:.ER$"THE|
00001380: 20 4C 49 4D 49 54 20 50 45 52 20 42 45 54 20 49 | LIMIT PER BET I|
00001390: 53 20 24 32 35 2C 67 30 2E 22 00 A0 17 5A 05 89 |S $25,g0."...Z..|
000013A0: 31 32 34 30 00 B6 17 64 05 50 B2 30 3A 44 B2 30 |1240...d.P.0:D.0|
000013B0: 3A 50 39 B2 30 3A 44 39 B2 30 00 BE 17 6E 05 56 |:P9.0:D9.0...n.V|
000013C0: B2 30 00 C6 17 78 05 48 B2 30 00 CF 17 82 05 8D |.0...x.H.0......|
000013D0: 38 35 30 00 D8 17 8C 05 4D 31 B2 31 00 E2 17 96 |850.....M1.1....|
000013E0: 05 8D 32 35 33 30 00 EC 17 A0 05 8D 32 36 35 30 |..2530......2650|
000013F0: 00 F6 17 AA 05 8D 33 37 30 30 00 FF 17 B4 05 4A |......3700.....J|
00001400: 31 B2 4A 00 08 18 BE 05 4D 31 B2 32 00 12 18 C8 |1.J.....M1.2....|
00001410: 05 8D 32 35 33 30 00 1C 18 D2 05 8D 32 36 35 30 |..2530......2650|
00001420: 00 26 18 DC 05 8D 32 38 36 30 00 35 18 E6 05 8B |.&....2860.5....|
00001430: 50 B2 32 31 A7 31 35 37 30 00 44 18 F0 05 8B 44 |P.21.1570.D....D|
00001440: B3 32 31 A7 31 36 35 30 00 4D 18 FA 05 4D 31 B2 |.21.1650.M...M1.|
00001450: 31 00 57 18 04 06 8D 32 38 36 30 00 80 18 0E 06 |1.W....2860.....|
00001460: 99 44 4E 24 22 67 11 22 45 52 24 22 44 45 41 4C |.DN$"g."ER$"DEAL|
00001470: 45 52 20 48 41 53 20 41 20 42 4C 41 43 4B 4A 41 |ER HAS A BLACKJA|
00001480: 43 4B 22 00 8A 18 18 06 89 32 30 36 30 00 93 18 |CK"......2060...|
00001490: 22 06 4D 31 B2 31 00 9D 18 2C 06 8D 32 38 36 30 |".M1.1...,..2860|
000014A0: 00 AC 18 36 06 8B 44 B3 32 31 A7 31 36 32 30 00 |...6..D.21.1620.|
000014B0: D5 18 40 06 99 44 4E 24 22 67 11 22 45 52 24 22 |..@..DN$"g."ER$"|
000014C0: 57 45 20 42 4F 54 48 20 48 41 56 45 20 42 4C 41 |WE BOTH HAVE BLA|
000014D0: 43 4B 4A 41 43 4B 22 00 DF 18 4A 06 89 32 67 30 |CKJACK"...J..2g0|
000014E0: 00 06 19 54 06 99 44 4E 24 22 67 11 22 45 52 24 |...T..DN$"g."ER$|
000014F0: 22 59 4F 55 20 48 41 56 45 20 41 20 42 4C 41 43 |"YOU HAVE A BLAC|
00001500: 4B 4A 41 43 4B 22 00 14 19 5E 06 42 31 B2 31 2E |KJACK"...^.B1.1.|
00001510: 35 AC 42 31 00 1E 19 68 06 89 32 30 32 30 00 2D |5.B1...h..2020.-|
00001520: 19 72 06 8B 50 B3 32 32 A7 31 37 31 30 00 4D 19 |.r..P.22.1710.M.|
00001530: 7C 06 99 44 4E 24 22 11 22 45 52 24 22 59 4F 55 ||..DN$"."ER$"YOU|
00001540: 20 48 41 56 45 20 42 55 53 54 45 44 22 00 5D 19 | HAVE BUSTED".].|
00001550: 81 06 81 51 B2 31 A4 34 30 30 3A 82 51 00 66 19 |...Q.1.400:.Q.f.|
00001560: 86 06 4D 31 B2 31 00 70 19 90 06 8D 32 38 36 30 |..M1.1.p....2860|
00001570: 00 2B 01 79 19 9A 06 4D 31 B2 32 00 83 19 A4 06 |.+.y...M1.2.....|
00001580: 89 32 30 36 30 00 91 19 AE 06 8B 56 B2 30 A7 31 |.2060......V.0.1|
00001590: 37 33 30 00 9B 19 B8 06 89 31 38 37 30 00 C1 19 |730......1870...|
000015A0: C2 06 99 44 4E 24 3B 45 52 24 22 44 4F 20 57 41 |...DN$;ER$"DO WA|
000015B0: 4E 54 20 41 4E 4F 54 48 45 52 20 43 41 52 44 3F |NT ANOTHER CARD?|
000015C0: 20 22 3B 00 E0 19 E0 06 55 53 24 B2 22 59 4E 44 | ";.....US$."YND|
000015D0: 51 22 3A 55 4C B2 31 3A 8D 33 35 3A 41 24 B2 55 |Q":UL.1:.35:A$.U|
000015E0: 52 24 00 F1 19 E5 06 8B 41 24 B2 22 51 22 A7 32 |R$......A$."Q".2|
000015F0: 31 36 30 00 02 1A EA 06 8B 41 24 B2 22 59 22 A7 |160......A$."Y".|
00001600: 31 38 33 30 00 13 1A F4 06 8B 41 24 B2 22 44 22 |1830......A$."D"|
00001610: A7 31 38 31 30 00 1D 1A 08 07 89 31 38 37 30 00 |.1810......1870.|
00001620: 29 1A 12 07 42 31 B2 32 AC 42 31 00 31 1A 1C 07 |)...B1.2.B1.1...|
00001630: 56 B2 31 00 3B 1A 26 07 4B 24 B2 42 24 00 47 1A |V.1.;.&.K$.B$.G.|
00001640: 30 07 4D 31 B2 4D 31 AA 31 00 51 1A 3A 07 8D 32 |0.M1.M1.1.Q.:..2|
00001650: 35 33 30 00 5B 1A 44 07 89 31 36 35 30 00 64 1A |530.[.D..1650.d.|
00001660: 4E 07 4D 31 B2 31 00 6E 1A 58 07 8D 32 38 36 30 |N.M1.1.n.X..2860|
00001670: 00 77 1A 62 07 4D 31 B2 32 00 86 1A 6C 07 8B 44 |.w.b.M1.2...l..D|
00001680: B1 31 36 A7 31 39 35 30 00 92 1A 76 07 4D 31 B2 |.16.1950...v.M1.|
00001690: 4D 31 AA 31 00 9C 1A 80 07 8D 32 36 35 30 00 A6 |M1.1......2650..|
000016A0: 1A 8A 07 8D 32 38 36 30 00 B0 1A 94 07 89 31 39 |....2860......19|
000016B0: 30 30 00 C0 1A 9E 07 8B 44 B3 B2 32 31 A7 31 39 |00......D..21.19|
000016C0: 38 30 00 F1 1A A8 07 99 44 4E 24 22 11 22 45 52 |80......DN$"."ER|
000016D0: 24 22 44 45 41 4C 45 52 20 48 41 53 20 42 52 4F |$"DEALER HAS BRO|
000016E0: 4B 45 2D 2D 59 4F 55 20 57 49 4E 21 22 3A 8D 33 |KE--YOU WIN!":.3|
000016F0: 39 35 30 00 FB 1A B2 07 89 32 30 33 30 00 09 1B |950......2030...|
00001700: BC 07 8B 44 B3 50 A7 32 30 32 30 00 17 1B C6 07 |...D.P.2020.....|
00001710: 8B 44 B1 50 A7 32 30 36 30 00 3D 1B D0 07 99 44 |.D.P.2060.=....D|
00001720: 4E 24 22 11 22 45 52 24 22 59 4F 55 20 50 55 53 |N$"."ER$"YOU PUS|
00001730: 48 45 44 20 54 48 45 20 44 45 41 4C 45 52 22 00 |HED THE DEALER".|
00001740: 47 1B DA 07 89 32 30 38 30 00 2B 01 67 1B E4 07 |G....2080.+.g...|
00001750: 99 44 4E 24 22 11 22 45 52 24 22 59 4F 55 20 12 |.DN$"."ER$"YOU .|
00001760: 57 49 4E 21 22 3A 8D 33 39 35 30 00 72 1B EE 07 |WIN!":.3950.r...|
00001770: 54 B2 54 AA 42 31 00 7C 1B F8 07 89 32 30 38 30 |T.T.B1.|....2080|
00001780: 00 9E 1B 0C 08 99 44 4E 24 22 11 22 45 52 24 22 |......DN$"."ER$"|
00001790: 59 4F 55 20 12 4C 4F 4F 53 45 21 22 3A 8D 33 39 |YOU .LOOSE!":.39|
000017A0: 30 30 00 A9 1B 16 08 54 B2 54 AB 42 31 00 B7 1B |00.....T.T.B1...|
000017B0: 20 08 8B 54 B1 30 A7 32 31 32 30 00 C5 1B 2A 08 | ..T.0.2120...*.|
000017C0: 8B 54 B3 30 A7 32 31 34 30 00 DE 1B 34 08 99 22 |.T.0.2140...4.."|
000017D0: 7B 03 59 4F 55 20 41 52 45 20 45 56 45 4E 20 20 |{.YOU ARE EVEN |
000017E0: 22 00 E8 1B 3E 08 89 31 31 39 30 00 05 1C 48 08 |"...>..1190...H.|
000017F0: 99 22 7B 03 59 4F 55 20 41 52 45 20 41 48 45 41 |."{.YOU ARE AHEA|
00001800: 44 20 24 22 3B 54 3B 00 0F 1C 52 08 89 31 31 39 |D $";T;...R..119|
00001810: 30 00 2C 1C 5C 08 99 22 7B 03 59 4F 55 20 41 52 |0.,.\.."{.YOU AR|
00001820: 45 20 44 4F 57 4E 20 24 22 3B AB 54 3B 00 36 1C |E DOWN $";.T;.6.|
00001830: 66 08 89 31 31 39 30 00 3F 1C 70 08 8D 38 35 30 |f..1190.?.p..850|
00001840: 00 4D 1C 7A 08 8B 54 B2 30 A7 32 32 31 30 00 5B |.M.z..T.0.2210.[|
00001850: 1C 84 08 8B 54 B3 30 A7 32 32 33 30 00 81 1C 8E |....T.0.2230....|
00001860: 08 99 44 4E 24 22 CD 05 20 59 4F 55 20 48 41 56 |..DN$".. YOU HAV|
00001870: 45 20 57 4F 4E 20 20 24 22 3B 54 3B 22 9D 2E 22 |E WON $";T;".."|
00001880: 00 8B 1C 98 08 89 32 32 35 30 00 B1 1C A2 08 99 |......2250......|
00001890: 44 4E 24 22 CD 0C 20 59 4F 55 20 42 52 4F 4B 45 |DN$".. YOU BROKE|
000018A0: 20 45 56 45 4E 2E 22 00 BB 1C AC 08 89 32 32 35 | EVEN."......225|
000018B0: 30 00 E0 1C B6 08 99 44 4E 24 22 CD 07 20 59 4F |0......DN$".. YO|
000018C0: 55 20 4C 4F 53 54 20 20 24 22 3B AB 54 3B 22 9D |U LOST $";.T;".|
000018D0: 2E 22 00 EB 1C CA 08 8D 38 33 35 3A 8E 00 07 1D |."......835:....|
000018E0: D4 08 8F 20 67 2A 20 53 48 55 46 46 4C 49 4E 47 |... g* SHUFFLING|
000018F0: 20 52 4F 55 54 49 4E 45 00 39 1D DE 08 99 22 93 | ROUTINE.9....".|
00001900: 22 44 4E 24 3B 45 52 24 22 CD 06 20 49 27 4D 20 |"DN$;ER$".. I'M |
00001910: 53 48 55 46 46 4C 49 4E 47 20 54 48 45 20 43 41 |SHUFFLING THE CA|
00001920: 52 44 53 2E 11 11 22 00 44 1D E8 08 81 49 B2 31 |RDS...".D....I.1|
00001930: A4 34 00 50 1D F2 08 81 4A B2 31 A4 31 33 00 62 |.4.P....J.1.13.b|
00001940: 1D FC 08 57 31 B2 31 33 AC 28 49 AB 31 29 AA 4A |...W1.13.(I.1).J|
00001950: 00 7F 1D 01 09 99 A3 31 38 29 22 91 7B 03 67 9D |.......18)".{.g.|
00001960: 22 3B 36 35 AB 49 AC 31 33 AB 4A 00 95 1D 06 09 |";65.I.13.J.....|
00001970: 53 24 28 57 31 29 B2 CA 28 53 39 24 2C 49 2C 31 |S$(W1)..(S9$,I,1|
00001980: 29 00 AB 1D 10 09 43 24 28 57 31 29 B2 CA 28 43 |).....C$(W1)..(C|
00001990: 38 24 2C 4A 2C 31 29 00 C7 1D 1A 09 43 28 57 31 |8$,J,1).....C(W1|
000019A0: 29 B2 C5 28 CA 28 43 39 24 2C 32 AC 4A AB 31 2C |)..(.(C9$,2.J.1,|
000019B0: 32 29 29 00 CE 1D 24 09 82 4A 00 D5 1D 2E 09 82 |2))...$..J......|
000019C0: 49 00 E1 1D 38 09 81 49 B2 31 A4 35 32 00 FB 1D |I...8..I.1.52...|
000019D0: 3D 09 99 A3 31 38 29 22 91 7B 03 67 9D 22 3B 49 |=...18)".{.g.";I|
000019E0: 3B 22 20 20 22 00 0B 1E 42 09 4A B2 35 32 AC BB |;" "...B.J.52..|
000019F0: 28 31 29 AA 31 00 19 1E 4C 09 54 54 24 B2 53 24 |(1).1...L.TT$.S$|
00001A00: 28 49 29 00 29 1E 56 09 53 24 28 49 29 B2 53 24 |(I).).V.S$(I).S$|
00001A10: 28 4A 29 00 37 1E 60 09 53 24 28 4A 29 B2 54 54 |(J).7.`.S$(J).TT|
00001A20: 24 00 45 1E 6A 09 54 54 24 B2 43 24 28 49 29 00 |$.E.j.TT$.C$(I).|
00001A30: 55 1E 74 09 43 24 28 49 29 B2 43 24 28 4A 29 00 |U.t.C$(I).C$(J).|
00001A40: 63 1E 7E 09 43 24 28 4A 29 B2 54 54 24 00 6F 1E |c.~.C$(J).TT$.o.|
00001A50: 88 09 54 54 B2 43 28 49 29 00 7D 1E 92 09 43 28 |..TT.C(I).}...C(|
00001A60: 49 29 B2 43 28 4A 29 00 89 1E 9C 09 43 28 4A 29 |I).C(J).....C(J)|
00001A70: B2 54 54 00 90 1E A6 09 82 49 00 99 1E B0 09 41 |.TT......I.....A|
00001A80: 39 B2 30 00 A1 1E BA 09 4A B2 30 00 AA 1E C4 09 |9.0.....J.0.....|
00001A90: 4A 31 B2 32 00 B3 1E CE 09 4A 38 B2 30 00 BC 1E |J1.2.....J8.0...|
00001AA0: D2 09 8D 38 35 30 00 C2 1E D8 09 8E 00 CC 1E E2 |...850..........|
00001AB0: 09 4A B2 4A AA 31 00 D8 1E EC 09 50 28 4D 31 29 |.J.J.1.....P(M1)|
00001AC0: B2 4A 00 EA 1E F6 09 8B 43 28 4A 29 B3 31 31 A7 |.J......C(J).11.|
00001AD0: 32 35 38 30 00 F6 1E 00 0A 50 39 B2 50 39 AA 31 |2580.....P9.P9.1|
00001AE0: 00 02 1F 0A 0A 41 39 B2 41 39 AA 31 00 0F 1F 14 |.....A9.A9.1....|
00001AF0: 0A 50 B2 50 AA 43 28 4A 29 00 1E 1F 1E 0A 8B 50 |.P.P.C(J)......P|
00001B00: B3 32 32 A7 32 36 33 30 00 2D 1F 28 0A 8B 50 39 |.22.2630.-.(..P9|
00001B10: B2 30 A7 32 36 33 30 00 38 1F 32 0A 50 B2 50 AB |.0.2630.8.2.P.P.|
00001B20: 31 30 00 44 1F 3C 0A 50 39 B2 50 39 AB 31 00 52 |10.D.<.P9.P9.1.R|
00001B30: 1F 46 0A 99 44 4E 24 22 67 11 22 00 5C 1F 50 0A |.F..DN$"g.".\.P.|
00001B40: 89 32 38 39 30 00 66 1F 5A 0A 4A B2 4A AA 31 00 |.2890.f.Z.J.J.1.|
00001B50: 72 1F 64 0A 44 28 4D 31 29 B2 4A 00 84 1F 6E 0A |r.d.D(M1).J...n.|
00001B60: 8B 43 28 4A 29 B3 31 31 A7 32 37 30 30 00 90 1F |.C(J).11.2700...|
00001B70: 78 0A 44 39 B2 44 39 AA 31 00 9C 1F 82 0A 41 39 |x.D9.D9.1.....A9|
00001B80: B2 41 39 AA 31 00 A9 1F 8C 0A 44 B2 44 AA 43 28 |.A9.1.....D.D.C(|
00001B90: 4A 29 00 B8 1F 96 0A 8B 44 B3 32 32 A7 32 37 35 |J)......D.22.275|
00001BA0: 30 00 C7 1F A0 0A 8B 44 39 B2 30 A7 32 37 35 30 |0......D9.0.2750|
00001BB0: 00 D2 1F AA 0A 44 B2 44 AB 31 30 00 DE 1F B4 0A |.....D.D.10.....|
00001BC0: 44 39 B2 44 39 AB 31 00 E4 1F BE 0A 8E 00 F0 1F |D9.D9.1.........|
00001BD0: C8 0A 81 49 B2 31 A4 35 32 00 FB 1F D2 0A 50 28 |...I.1.52.....P(|
00001BE0: 49 29 B2 30 00 06 20 DC 0A 44 28 49 29 B2 30 00 |I).0.. ..D(I).0.|
00001BF0: 0D 20 E6 0A 82 49 00 13 20 F0 0A 8E 00 1F 20 FA |. ...I.. ..... .|
00001C00: 0A 81 49 B2 31 A4 35 32 00 31 20 04 0B 99 43 24 |..I.1.52.1 ...C$|
00001C10: 28 49 29 AA 53 24 28 49 29 3B 00 38 20 0E 0B 82 |(I).S$(I);.8 ...|
00001C20: 49 00 3E 20 18 0B 99 00 44 20 22 0B 8E 00 4D 20 |I.> ....D "...M |
00001C30: 2C 0B 50 35 B2 30 00 57 20 36 0B 99 22 13 11 22 |,.P5.0.W 6..".."|
00001C40: 00 61 20 40 0B 89 32 39 30 30 00 6A 20 4A 0B 50 |.a @..2900.j J.P|
00001C50: 35 B2 31 00 75 20 54 0B 81 4C B2 31 A4 38 00 84 |5.1.u T..L.1.8..|
00001C60: 20 5E 0B 8B 4D 31 B2 31 A7 32 39 35 30 00 93 20 | ^..M1.1.2950.. |
00001C70: 68 0B 81 49 35 B2 31 A4 4D 31 AB 31 00 A4 20 72 |h..I5.1.M1.1.. r|
00001C80: 0B 99 22 CD 08 1D 22 3B 00 AC 20 7C 0B 82 49 35 |.."...";.. |..I5|
00001C90: 00 BB 20 86 0B 8B 50 35 B2 31 A7 32 39 38 30 00 |.. ...P5.1.2980.|
00001CA0: C7 20 90 0B 49 B2 44 28 4D 31 29 00 D1 20 9A 0B |. ..I.D(M1).. ..|
00001CB0: 89 32 39 39 30 00 DD 20 A4 0B 49 B2 50 28 4D 31 |.2990.. ..I.P(M1|
00001CC0: 29 00 E8 20 AE 0B 97 36 34 36 2C 32 00 0E 21 B3 |).. ...646,2..!.|
00001CD0: 0B 8B 53 24 28 49 29 B2 22 C1 22 B0 53 24 28 49 |..S$(I).".".S$(I|
00001CE0: 29 B2 22 D8 22 A7 97 36 34 36 2C 30 3A 8D 33 38 |)."."..646,0:.38|
00001CF0: 30 30 00 34 21 B4 0B 8B 53 24 28 49 29 B2 22 DA |00.4!...S$(I).".|
00001D00: 22 B0 53 24 28 49 29 B2 22 D3 22 A7 97 36 34 36 |".S$(I)."."..646|
00001D10: 2C 32 3A 8D 33 38 35 30 00 3F 21 B8 0B 52 B2 43 |,2:.3850.?!..R.C|
00001D20: 28 49 29 00 4D 21 C2 0B 8B 4C B1 31 A7 33 30 33 |(I).M!...L.1.303|
00001D30: 30 00 5D 21 CC 0B 99 51 51 24 3B 3A 89 33 36 36 |0.]!...QQ$;:.366|
00001D40: 30 00 6B 21 D6 0B 8B 4C B1 32 A7 33 31 30 30 00 |0.k!...L.2.3100.|
00001D50: 2B 01 71 21 E0 0B 8F 00 85 21 EA 0B 8B 43 24 28 |+.q!.....!...C$(|
00001D60: 49 29 B2 22 54 22 A7 33 30 38 30 00 A5 21 F4 0B |I)."T".3080..!..|
00001D70: 99 52 52 24 3B C9 28 43 24 28 49 29 2C 31 29 3B |.RR$;.(C$(I),1);|
00001D80: 22 CD 04 20 22 3B 52 52 24 3B 00 AF 21 FE 0B 89 |".. ";RR$;..!...|
00001D90: 33 36 36 30 00 C8 21 08 0C 99 52 52 FD 03 93 EC |3660..!...RR....|
00001DA0: 8A C1 88 ED 81 80 81 3B 52 52 24 3B 00 D2 21 12 |.......;RR$;..!.|
00001DB0: 0C 89 33 36 36 30 00 E0 21 1C 0C 8B 4C B1 33 A7 |..3660..!...L.3.|
00001DC0: 33 31 37 30 00 F2 21 26 0C 8B 43 28 49 29 B3 31 |3170..!&..C(I).1|
00001DD0: 31 A7 33 31 33 30 00 FC 21 30 0C 89 33 35 39 30 |1.3130..!0..3590|
00001DE0: 00 0D 22 3A 0C 8B 43 28 49 29 B1 32 A7 33 31 35 |..":..C(I).2.315|
00001DF0: 30 00 17 22 44 0C 89 33 35 39 30 00 28 22 4E 0C |0.."D..3590.("N.|
00001E00: 8B 43 28 49 29 B1 33 A7 33 36 33 30 00 32 22 58 |.C(I).3.3630.2"X|
00001E10: 0C 89 33 36 31 30 00 40 22 62 0C 8B 4C B1 34 A7 |..3610.@"b..L.4.|
00001E20: 33 33 32 30 00 52 22 6C 0C 8B 43 28 49 29 B3 31 |3320.R"l..C(I).1|
00001E30: 31 A7 33 32 30 30 00 5C 22 76 0C 89 33 36 31 30 |1.3200.\"v..3610|
00001E40: 00 6D 22 80 0C 8B 43 28 49 29 B3 39 A7 33 32 32 |.m"...C(I).9.322|
00001E50: 30 00 77 22 8A 0C 89 33 36 35 30 00 88 22 94 0C |0.w"...3650.."..|
00001E60: 8B 43 28 49 29 B1 33 A7 33 32 34 30 00 92 22 9E |.C(I).3.3240..".|
00001E70: 0C 89 33 36 31 30 00 A3 22 A8 0C 8B 43 28 49 29 |..3610.."...C(I)|
00001E80: B1 34 A7 33 32 36 30 00 AD 22 B2 0C 89 33 35 39 |.4.3260.."...359|
00001E90: 30 00 BE 22 BC 0C 8B 43 28 49 29 B1 35 A7 33 32 |0.."...C(I).5.32|
00001EA0: 38 30 00 C8 22 C6 0C 89 33 36 31 30 00 D9 22 D0 |80.."...3610..".|
00001EB0: 0C 8B 43 28 49 29 B1 36 A7 33 33 30 30 00 E3 22 |..C(I).6.3300.."|
00001EC0: DA 0C 89 33 36 33 30 00 F4 22 E4 0C 8B 43 28 49 |...3630.."...C(I|
00001ED0: 29 B1 37 A7 33 36 33 30 00 FE 22 EE 0C 89 33 36 |).7.3630.."...36|
00001EE0: 31 30 00 0C 23 F8 0C 8B 4C B1 35 A7 33 34 32 30 |10..#...L.5.3420|
00001EF0: 00 1E 23 02 0D 8B 43 28 49 29 B3 31 31 A7 33 33 |..#...C(I).11.33|
00001F00: 35 30 00 28 23 0C 0D 89 33 35 39 30 00 3A 23 16 |50.(#...3590.:#.|
00001F10: 0D 8B 43 28 49 29 B3 31 30 A7 33 33 37 30 00 44 |..C(I).10.3370.D|
00001F20: 23 20 0D 89 33 36 35 30 00 55 23 2A 0D 8B 43 28 |# ..3650.U#*..C(|
00001F30: 49 29 B3 36 A7 33 33 39 30 00 2B 01 5F 23 34 0D |I).6.3390.+._#4.|
00001F40: 89 33 36 33 30 00 70 23 3E 0D 8B 43 28 49 29 B3 |.3630.p#>..C(I).|
00001F50: 34 A7 33 34 31 30 00 7A 23 48 0D 89 33 35 39 30 |4.3410.z#H..3590|
00001F60: 00 84 23 52 0D 89 33 36 31 30 00 92 23 5C 0D 8B |..#R..3610..#\..|
00001F70: 4C B1 36 A7 33 35 31 30 00 A4 23 66 0D 8B 43 28 |L.6.3510..#f..C(|
00001F80: 49 29 B3 31 31 A7 33 34 35 30 00 AE 23 70 0D 89 |I).11.3450..#p..|
00001F90: 33 35 39 30 00 BF 23 7A 0D 8B 43 28 49 29 B3 37 |3590..#z..C(I).7|
00001FA0: A7 33 34 37 30 00 C9 23 84 0D 89 33 36 33 30 00 |.3470..#...3630.|
00001FB0: DA 23 8E 0D 8B 43 28 49 29 B2 34 A7 33 35 30 30 |.#...C(I).4.3500|
00001FC0: 00 EB 23 98 0D 8B 43 28 49 29 B2 35 A7 33 35 30 |..#...C(I).5.350|
00001FD0: 30 00 F5 23 A2 0D 89 33 35 39 30 00 FF 23 AC 0D |0..#...3590..#..|
00001FE0: 89 33 36 33 30 00 0D 24 B6 0D 8B 4C B1 37 A7 33 |.3630..$...L.7.3|
00001FF0: 35 38 30 00 1B 24 C0 0D 99 52 52 24 22 20 20 22 |580..$...RR$" "|
00002000: 3B 00 2F 24 CA 0D 8B 43 24 28 49 29 B2 22 54 22 |;./$...C$(I)."T"|
00002010: A7 33 35 36 30 00 48 24 D4 0D 99 22 20 20 22 C9 |.3560.H$..." ".|
00002020: 28 43 24 28 49 29 2C 31 29 3B 52 52 24 3B 00 52 |(C$(I),1);RR$;.R|
00002030: 24 DE 0D 89 33 36 36 30 00 62 24 E8 0D 99 22 20 |$...3660.b$..." |
00002040: 31 30 22 3B 52 52 24 3B 00 6C 24 F2 0D 89 33 36 |10";RR$;.l$...36|
00002050: 36 30 00 7C 24 FC 0D 99 53 53 24 3B 3A 89 33 36 |60.|$...SS$;:.36|
00002060: 36 30 00 90 24 06 0E 99 52 52 24 22 CD 05 20 22 |60..$...RR$".. "|
00002070: 52 52 24 3B 00 9A 24 10 0E 89 33 36 36 30 00 B7 |RR$;..$...3660..|
00002080: 24 1A 0E 99 52 52 24 22 20 20 22 3B 53 24 28 49 |$...RR$" ";S$(I|
00002090: 29 3B 22 20 20 22 3B 52 52 24 3B 00 C1 24 24 0E |);" ";RR$;..$$.|
000020A0: 89 33 36 36 30 00 E6 24 2E 0E 99 52 52 24 22 20 |.3660..$...RR$" |
000020B0: 22 3B 53 24 28 49 29 3B 22 20 22 3B 53 24 28 49 |";S$(I);" ";S$(I|
000020C0: 29 3B 22 20 22 3B 52 52 24 3B 00 F0 24 38 0E 89 |);" ";RR$;..$8..|
000020D0: 33 36 36 30 00 17 25 42 0E 99 52 52 24 22 20 22 |3660..%B..RR$" "|
000020E0: 3B 53 24 28 49 29 3B 53 24 28 49 29 3B 53 24 28 |;S$(I);S$(I);S$(|
000020F0: 49 29 3B 22 20 22 3B 52 52 24 3B 00 1D 25 4C 0E |I);" ";RR$;..%L.|
00002100: 99 00 24 25 56 0E 82 4C 00 2F 25 60 0E 99 22 1F |..$%V..L./%`..".|
00002110: 22 3A 99 00 35 25 6A 0E 8E 00 44 25 74 0E 99 22 |":..5%j...D%t.."|
00002120: 13 11 11 22 AA 51 51 24 00 53 25 7E 0E 99 52 52 |...".QQ$.S%~..RR|
00002130: 24 A6 35 29 52 52 24 00 6B 25 88 0E 99 52 52 24 |$.5)RR$.k%...RR$|
00002140: AA 22 1C 12 A9 20 20 92 A5 20 22 AA 52 52 24 00 |."... .. ".RR$.|
00002150: 85 25 92 0E 99 52 52 24 AA 22 1C 12 20 92 20 12 |.%...RR$.".. . .|
00002160: 20 20 92 A9 22 AA 52 52 24 00 9F 25 9C 0E 99 52 | ..".RR$..%...R|
00002170: 52 24 AA 22 1C 12 20 92 20 12 20 20 DF 92 22 AA |R$.".. . . ..".|
00002180: 52 52 24 00 B7 25 A6 0E 99 52 52 24 AA 22 1C DF |RR$..%...RR$."..|
00002190: 12 20 20 92 20 20 22 AA 52 52 24 00 C6 25 B0 0E |. . ".RR$..%..|
000021A0: 99 52 52 24 A6 35 29 52 52 24 00 CF 25 BA 0E 99 |.RR$.5)RR$..%...|
000021B0: 53 53 24 00 D5 25 C4 0E 8E 00 E9 25 D8 0E 51 51 |SS$..%.....%..QQ|
000021C0: 24 B2 22 98 D5 CD 05 C3 C9 90 22 00 F7 25 E2 0E |$."......."..%..|
000021D0: 52 52 24 B2 22 98 C2 90 22 00 0B 26 EC 0E 53 53 |RR$."..."..&..SS|
000021E0: 24 B2 22 98 CA CD 05 C6 CB 90 22 00 11 26 F6 0E |$."......."..&..|
000021F0: 8E 00 25 26 0A 0F 51 51 24 B2 22 98 D5 CD 05 C3 |..%&..QQ$.".....|
00002200: C9 1C 22 00 33 26 14 0F 52 52 24 B2 22 98 C2 1C |..".3&..RR$."...|
00002210: 22 00 47 26 1E 0F 53 53 24 B2 22 98 CA CD 05 C6 |".G&..SS$.".....|
00002220: CB 1C 22 00 4D 26 28 0F 8E 00 5D 26 3C 0F 8F 20 |..".M&(...]&<.. |
00002230: 2A 2A 20 42 55 5A 5A 45 52 00 80 26 41 0F 97 35 |** BUZZER..&A..5|
00002240: 34 32 39 36 |4296 |
.......2059. .X..N..N...C*...HP....P..M.
1....JP.L...\...P...`. ..I+.0I_.5IE.9IG.
8IQ.8IY.<I{.;...HP..".JP...PP.7..XL.. ..
. ..P. ......W.P...P. .....0H.P. .... P.
.+.B+.B+.B.X...1.2..P...0. .:...;.0.....
...............X..Y..Z....P.....P.2M.PP.
....P... P...!P..P..M.PP...JP.....P...!P
....P..M.PP...JP.....P...!P.(..P .. 2...
.I...LN.....PI..!P D.L...78...)..7(.. S.
.7.~.`..........Y..Y..'P. ..:.;I...I..#I
@....... .`...I..... L....Z .L..I..A.
.`.:P..;`. .:...;L...2.2)....0.0)?..U..
`..1.1)?..U....`_6........._...K.L.O.A..
O.L.K... A...... ... O.{...... ....{..
A....... .. .. .... ..... ......... ....
.. ... .... .. ........ 23.. 1993. . ..
.... ......{._J.@.@..@.J..L@._2X.4......
.....P..I..L..I.P..7..L.._...NF.2061_. [
.J. P.!P (....W.S.....P.X.....M..-J....U
....HP...NH.NK...'.EHP.JP..-{(.. .. ..I.
...0P.....-HP..1.-...P.L'. ...WH)...H)?.
..... ..J&.J&. ..JP... ..F.P............
I..-.-P...`-NAF/BYG!-./P..0./` ... ...-H
P...JP. ...0..IM..I..) ..P..7..X Y.L.. .
...J)... .. ..JP..L.MP. .....)... .... .
. ..JP.....PV ... ..... ...-.I.HP...JP..
.,15:.54277,45:.54278,165. &F..54276,33:
.54273,6:.54272,5.W&K..TT.1.200:.:.54276
,32:.54273,0:.54273,0:.54272,0:...&N.. *
* BELL SOUND..'S..54296,15:.54277,0:...W
RK..H...X..54276,17:.54273,40:.54272,0.+
.E'}..TT.1.200:.:.54276,16:.54273,0:.542
73,0:.54272,0:._......910.T.... ** BLACK
JACK FROM THE PUBLIC DOMAIN WITH CHAGES
MADE FOR THE C64 BY...... ** KEN JIRELE
AND FRED LAYBERGER, OMAHA NEBRASKA......
**GENERAL INPUT ROUTINE **.....:.....:.
T.#.. G+ INPUT SECTION G+...(..UO,0:UR$.
"":UI$.""...*..UL.0.UL.80...-..UC,0...2.
.UI$:.UI$."".50.E.7..UI$.G(13).C(UR$)..1
..UC,1:." .";:.120.X.<..UI$.G(20).105.L.
>.. C(UR$)..UL.50...A..120:. CHECK FOR V
ALID CHARACTER...F.UR$.UR$.UI$...K..UI$;
...P..50.L.F.. +.+ CHECK DELETE +.+...I.
.C(UR$).1.50...N.UR$.H(UR$,C(UR$).1)...S
..". ..";:.50...X.. +.+ CHECK FOR VALID
CHARACTERS +.+.@.}..C(US$).0.150.Q....U
S.1.C(US$).H....UI$.J(US$,US,1)...N.....
+.{...UI$."":....... ** STANDARD INPUT *
*......F(UI$).46........UI$.G(32)...U. .
.F(UI$).48.F(UI$).57.170............F(UI
$).65.F(UI$).90.180......."....F(UI$).19
3.F(UI$).218.UI$."":..E....B(UT).UL%.UI$
.G(F(UI$).128):..K.....X...UI$."":..A.X.
.300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.UJ:UL.U
K:.B(5G03).0..53281,6:.53280,14.R...."."
;:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3)....
..UQ,UQ%(UQ.UB):.......U1,U1%......U2,U2
%......U4,U4%......U3,U3%.1.!....35.2.,.
. ** MENU **.8.-.:.I...."..":.UT,UU%:.B(
5G03).0..53281,15:.53280,0.O./.:...1..".
M. MENU"...6.." M&-"...;.."..M. 1.{.BEGI
N BLACKJACK"...@.."..M. 2.{..C&:LJV.&<;"
...O.."..M. 3.{.QUIT..".M.T.." M&-".X.Y.
."..M. PRESS A NUMBER KEY (1-3) ";...^.U
L.1:US$."123":.35:. INPUT ROUTINE...`.US
$."".C.C..E(UR$)...G...P..N..L.H..300...
... ** RE-ENABLE STOP KEY AND END **....
..:....... ** STUDENT .C&:LJV.&<; **.L..
..".":.UT,UL%:.B(5G03).0..53281,15:.5328
0,0.M...UP.0:UG$."STUDENT INST":.850....
.."G.M. THIS GAME SIMULATES THE GAME OF.
X....".M. BLACKJACK.":."..M. YOU MUST GE
T UP TO 21 IN LESS"......".M. THAN 5 CAR
DS. YOU CAN BET ON"......".M. YOUR HAND.
IF YOU LOSE, YOUR BET".H....".M. IS DED
UCTED FROM YOUR TOTAL":.".M. EARNINGS.".
V....835:.850. ...."M..M. YOU MAY DECIDE
IF YOU WANT".L....".M. ANOTHER CARD EAC
H TIME. IF YOU"......".M. WANT TO DOUBL
E YOUR BET WHEN YOU".&....".M. ARE IN TH
E MIDDLE OF A HAND, THE".R....".M. COMPU
TER WILL GIVE YOU ANOTHER ".X....".M. CA
RD AND DOUBLE YOUR BET."......835:.850..
...."G.M. .TO DOUBLE BET.: TYPE D <RET
URN>"......"..M. .HOUSE LIMIT ON EACH BE
T.:.":....IX..KTACA........835......UZ.1
..UP%:.217.......1.C.. ** SPACE BAR PRES
S **.L.H..UO,0:.H(UD$,24);"M...PRESS SPA
CE BAR TO CONTINUE."...L..UI$:.UI$.." ".
844...N.....R.. ** PAGE DESIGN ROUTINE *
*...T.UP.UP.1.H.U..B(UT).UL%.855...V.UT$
." BLACKJACK":UG$."BLACKJACK":.857...W.U
T$." BLACKJACK".1.Y.."."H(UT$.UP$,21);I(
UP$.UG$.D(UP),18).`.\.." M&-".O.`..UH..0
.870...A..H(UD$,24);H(UP$,6);"TO EXIT GA
ME PRESS .Q. ."...F.UH.0:."..":..S.K..
** PLEASE WAIT REMARK **...P..H(UD$,24);
"M. ONE MOMENT PLEASEG.M. "...U...,....
** SET UP VARIABLES **.W...UX$."H":.UQ%(
1G0):UB.32768:U1.196:U2.197:U3.198:U4.21
6:UC.167:UU.1024.....UT.59468:UU%.12:UL%
.14:UP%.1146:UM.32768:UO.158:. 5G03,0...
...B(5G03).0.UB.1024:U1.209:U2.210:U3.21
1:U4.214:UC.204:UU.2048.7....B(5G03).0.U
T.53272:UU%.21:UL%.23:UP%.2139:UM.1024:U
O.198.[...UD$.".M..".....UP$."M' "......
...... ** SET VARIABLES **.D....C(52),P(
10),D(10).W....S$(52),C$(52)......900...
T..300:. MENU.%....UZ.1..UP%:.UP%:UZ.0:.
** PROGRAM STARTS HERE **.Q...."..";:.:
.B(5G03).0..53281,15:.53280,5.`...S9$."A
ZSX".X.8.C8$."...1TJQKA"...B.C9$.....HM.
PU.X....DBCDBADE...L.ER$."":.I.1.13:ER$.
ER$."{.":....V..I.1.13:ER$.ER$."G.":....
[.ER$.ER$."{."...`.DN$.".M..."...J......
..2260.....T.0.&...J8.J.5....A9.4.1220.D
....835:.2260.S.D..J.42.1240.B.N..835:.2
260...X..DN$;ER$"PLACE YOUR BET.M. M..";
.....US$.".../10Q":UL.5:.35:.UR$."Q".216
0.O...B1.E(UR$):K$.B$......B1.0.1240....
..B1.0.1310......835:.2260.....B1..B1...
...B1..1.1340.7.(..ER$"THE MINIMUM BET I
S $1".A.2..1190.U.<..B1..25G0.1380.D.F..
M1.1.2950...P..ER$:.ER$:.ER$"THE LIMIT P
ER BET IS $25,G0.". .Z..1240...D.P.0:D.0
:P9.0:D9.0...N.V.0.F.X.H.0.O....850.X...
M1.1......2530... ..2650......3700.....J
1.J.....M1.2...H..2530...R..2650.&....28
60.5....P.21.1570.D....D.21.1650.M...M1.
1.W....2860......DN$"G."ER$"DEALER HAS A
BLACKJACK"......2060...".M1.1...,..2860
...6..D.21.1620.U.@..DN$"G."ER$"WE BOTH
HAVE BLACKJACK"...J..2G0...T..DN$"G."ER$
"YOU HAVE A BLACKJACK"...^.B1.1.5.B1...H
..2020.-.R..P.22.1710.M.|..DN$"."ER$"YOU
HAVE BUSTED".]....Q.1.400:.Q.F...M1.1.P
....2860.+.Y...M1.2......2060......V.0.1
730......1870.A.B..DN$;ER$"DO WANT ANOTH
ER CARD? ";.....US$."YNDQ":UL.1:.35:A$.U
R$......A$."Q".2160......A$."Y".1830....
..A$."D".1810......1870.)...B1.2.B1.1...
V.1.;.&.K$.B$.G.0.M1.M1.1.Q.:..2530.[.D.
.1650.D.N.M1.1.N.X..2860.W.B.M1.2...L..D
.16.1950...V.M1.M1.1......2650......2860
......1900......D..21.1980......DN$"."ER
$"DEALER HAS BROKE--YOU WIN!":.3950.....
.2030......D.P.2020...F..D.P.2060.=.P..D
N$"."ER$"YOU PUSHED THE DEALER".G.Z..208
0.+.G....DN$"."ER$"YOU .WIN!":.3950.R...
T.T.B1.|....2080......DN$"."ER$"YOU .LOO
SE!":.3900.....T.T.B1... ..T.0.2120.E.*.
.T.0.2140...4.."{.YOU ARE EVEN "...>..1
190...H.."{.YOU ARE AHEAD $";T;...R..119
0.,.\.."{.YOU ARE DOWN $";.T;.6.F..1190.
?.P..850.M.Z..T.0.2210.[....T.0.2230....
..DN$"M. YOU HAVE WON $";T;".."......22
50......DN$"M. YOU BROKE EVEN."......225
0......DN$"M. YOU LOST $";.T;".."...J..
835:....T.. G* SHUFFLING ROUTINE.9....".
"DN$;ER$"M. I'M SHUFFLING THE CARDS...".
D....I.1.4.P....J.1.13.B...W1.13.(I.1).J
......18)".{.G.";65.I.13.J.....S$(W1).J
(S9$,I,1).....C$(W1).J(C8$,J,1).G...C(W1
).E(J(C9$,2.J.1,2)).N.$..J.U....I...8..I
.1.52...=...18)".{.G.";I;" "...B.J.52..
(1).1...L.TT$.S$(I).).V.S$(I).S$(J).7.`.
S$(J).TT$.E.J.TT$.C$(I).U.T.C$(I).C$(J).
C.~.C$(J).TT$.O...TT.C(I).}...C(I).C(J).
....C(J).TT......I.....A9.0.....J.0...D.
J1.2...N.J8.0...R..850.B.X...L...J.J.1.X
...P(M1).J......C(J).11.2580.....P9.P9.1
.....A9.A9.1.....P.P.C(J)......P.22.2630
.-.(..P9.0.2630.8.2.P.P.10.D.<.P9.P9.1.R
.F..DN$"G.".\.P..2890.F.Z.J.J.1.R.D.D(M1
).J...N..C(J).11.2700...X.D9.D9.1.....A9
.A9.1.....D.D.C(J)......D.22.2750.G. ..D
9.0.2750.R...D.D.10.....D9.D9.1.........
H..I.1.52...R.P(I).0.. ..D(I).0.. ...I..
..... ...I.1.52.1 ...C$(I).S$(I);.8 ...
I.> ....D "...M ,.P5.0.W 6.."..".A @..29
00.J J.P5.1.U T..L.1.8.. ^..M1.1.2950..
H..I5.1.M1.1.. R.."M..";.. |..I5.. ...P5
.1.2980.G ..I.D(M1).Q ...2990.. ..I.P(M1
).. ...646,2..!...S$(I)."A".S$(I)."X"..6
46,0:.3800.4!...S$(I)."Z".S$(I)."S"..646
,2:.3850.?!..R.C(I).M!B..L.1.3030.]!L..Q
Q$;:.3660.K!V..L.2.3100.+.Q!.....!...C$(
I)."T".3080..!...RR$;I(C$(I),1);"M. ";RR
$;..!...3660.H!...RR.....A.....;RR$;.R!.
..3660..!...L.3.3170..!&..C(I).11.3130..
!0..3590..":..C(I).2.3150.."D..3590.("N.
.C(I).3.3630.2"X..3610.@"B..L.4.3320.R"L
..C(I).11.3200.\"V..3610.M"...C(I).9.322
0.W"...3650.."...C(I).3.3240.."...3610..
"...C(I).4.3260.."...3590.."...C(I).5.32
80.H"F..3610.Y"P..C(I).6.3300.."Z..3630.
."...C(I).7.3630.."...3610..#...L.5.3420
..#...C(I).11.3350.(#...3590.:#...C(I).1
0.3370.D# ..3650.U#*..C(I).6.3390.+._#4.
.3630.P#>..C(I).4.3410.Z#H..3590..#R..36
10..#\..L.6.3510..#F..C(I).11.3450..#P..
3590..#Z..C(I).7.3470.I#...3630.Z#...C(I
).4.3500..#...C(I).5.3500..#...3590..#..
.3630..$...L.7.3580..$...RR$" ";./$J..C
$(I)."T".3560.H$T.." "I(C$(I),1);RR$;.R
$...3660.B$..." 10";RR$;.L$...3660.|$...
SS$;:.3660..$...RR$"M. "RR$;..$...3660..
$...RR$" ";S$(I);" ";RR$;.A$$..3660..$
...RR$" ";S$(I);" ";S$(I);" ";RR$;..$8..
3660..%B..RR$" ";S$(I);S$(I);S$(I);" ";R
R$;..%L...$%V..L./%`..".":..5%J...D%T.."
...".QQ$.S%~..RR$.5)RR$.K%...RR$."... .
. ".RR$..%...RR$.".. . . ..".RR$..%...R
R$.".. . . ..".RR$..%...RR$."... . ".
RR$.F%...RR$.5)RR$.O%...SS$.U%D....%X.QQ
$.".UM.CI."..%..RR$.".B."..&..SS$.".JM.F
K."..&....%&..QQ$.".UM.CI.".3&..RR$.".B.
".G&..SS$.".JM.FK.".M&(...]&<.. ** BUZZE
R..&A..54296
> CLICK IMAGE PREVIEW FOR FULL MODAL