10.BLACK JACK
FILE INFORMATION
FILENAME(S): 10.BLACK JACK
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 01:08:07
APPEARS ON: 1 disk(s)
FILE HASH
c1eec2478f6ff327238f8a31c4b038d532459063f60df55f11bb71e993b9c6e8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | 10.BLACK JACK | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 13 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 05 00 89 31 35 00 2D 08 06 00 22 20 |.......15.-..." | 00000010: 20 20 20 20 20 20 B6 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ..........| 00000020: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 A1 00 51 08 |..............Q.| 00000030: 07 00 22 20 20 20 20 20 20 20 B6 20 20 20 2A 20 |.." . * | 00000040: 42 4C 41 43 4B 4A 41 43 4B 20 2A 20 20 20 20 20 |BLACKJACK * | 00000050: A1 00 75 08 08 00 22 20 20 20 20 20 20 20 B6 20 |..u..." . | 00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000070: 20 20 20 20 A1 00 98 08 0C 00 22 20 20 20 20 20 | ......" | 00000080: 20 B6 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 | ...............| 00000090: A2 A2 A2 A2 A2 A2 A2 A1 00 9E 08 0D 00 22 00 C7 |............."..| 000000A0: 08 0E 00 22 20 B6 A1 53 45 45 20 50 52 4F 47 52 |..." ..SEE PROGR| 000000B0: 41 4D 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 41 |AM INFORMATION A| 000000C0: 54 20 33 34 32 B6 A1 00 E0 08 0F 00 89 20 33 30 |T 342........ 30| 000000D0: 33 20 81 20 49 4E 81 4D 41 54 49 91 20 23 36 35 |3 . IN.MATI. #65| 000000E0: 00 04 09 10 00 83 39 39 2C 31 31 39 2C 31 32 30 |......99,119,120| 000000F0: 2C 32 32 36 2C 32 34 39 2C 32 33 39 2C 32 32 38 |,226,249,239,228| 00000100: 2C 32 32 34 00 15 09 11 00 4D 4F B2 31 30 30 30 |,224.....MO.1000| 00000110: 3A 89 20 32 30 00 3A 09 12 00 99 42 24 A3 37 29 |:. 20.:....B$.7)| 00000120: 22 11 2D 2D 2D 20 50 52 45 53 53 20 53 50 41 43 |".--- PRESS SPAC| 00000130: 45 20 42 41 52 20 2D 2D 2D 22 00 4C 09 13 00 A1 |E BAR ---".L....| 00000140: 57 24 3A 8B 57 24 B2 22 22 A7 31 39 00 70 09 14 |W$:.W$."".19.p..| 00000150: 00 4D 4F B2 4D 4F AC 31 30 3A 8F 20 53 48 55 46 |.MO.MO.10:. SHUF| 00000160: 46 4C 45 20 43 4F 4D 45 20 49 4E 20 48 45 52 45 |FLE COME IN HERE| 00000170: 00 89 09 15 00 97 38 33 35 2C 30 3A 97 38 33 34 |......835,0:.834| 00000180: 2C 30 3A 97 38 33 36 2C 30 00 B6 09 16 00 44 B2 |,0:.836,0.....D.| 00000190: B5 28 4D 4F AD 32 35 36 29 3A 97 38 33 35 2C 44 |.(MO.256):.835,D| 000001A0: 3A 97 38 33 34 2C 4D 4F AB 44 AC 32 35 36 3A 97 |:.834,MO.D.256:.| 000001B0: 38 33 36 2C 42 45 00 C1 09 17 00 99 22 93 22 3A |836,BE......".":| 000001C0: 9C 00 DC 09 18 00 41 24 B2 22 13 11 11 11 11 11 |......A$."......| 000001D0: 11 11 11 11 11 11 11 11 11 11 11 22 00 EC 09 19 |..........."....| 000001E0: 00 42 24 B2 C8 28 41 24 2C 31 31 29 00 FB 09 1A |.B$..(A$,11)....| 000001F0: 00 43 24 B2 C8 28 41 24 2C 38 29 00 2C 0A 1B 00 |.C$..(A$,8).,...| 00000200: 44 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |D$." | 00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000220: 20 20 20 20 20 20 20 20 20 20 20 22 00 44 0A 1C | ".D..| 00000230: 00 51 51 24 B2 22 41 32 33 34 35 36 37 38 39 30 |.QQ$."A234567890| 00000240: 4A 51 4B 22 00 53 0A 1D 00 56 56 24 B2 22 D3 D8 |JQK".S...VV$."..| 00000250: DA C1 22 00 76 0A 1E 00 4D 4F B2 32 35 36 AC C2 |..".v...MO.256..| 00000260: 28 38 33 35 29 AA C2 28 38 33 34 29 3A 42 45 B2 |(835)..(834):BE.| 00000270: C2 28 38 33 36 29 00 83 0A 1F 00 4D 4F B2 4D 4F |.(836).....MO.MO| 00000280: AD 31 30 00 B8 0A 20 00 99 42 24 22 11 20 20 20 |.10... ..B$". | 00000290: 20 20 22 C7 28 33 34 29 22 2E 2E 2E 53 48 55 46 | ".(34)"...SHUF| 000002A0: 46 4C 45 2E 2E 2E 2E 2E 53 48 55 46 46 4C 45 2E |FLE.....SHUFFLE.| 000002B0: 2E 2E 22 C7 28 33 34 29 00 CA 0A 21 00 8D 39 39 |..".(34)...!..99| 000002C0: 3A 8F 20 53 48 55 46 46 4C 45 00 D3 0A 22 00 89 |:. SHUFFLE..."..| 000002D0: 20 33 37 00 F1 0A 23 00 22 20 20 44 45 41 4C 20 | 37...#." DEAL | 000002E0: 54 48 45 20 48 41 4E 44 2C 20 34 20 43 41 52 44 |THE HAND, 4 CARD| 000002F0: 53 00 0F 0B 24 00 22 20 20 B8 B8 B8 B8 B8 B8 B8 |S...$." .......| 00000300: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 |................| 00000310: 20 0B 25 00 8B 20 53 42 B3 B1 30 20 A7 20 34 30 | .%.. SB..0 . 40| 00000320: 00 31 0B 26 00 8B 20 51 41 B2 32 20 A7 20 32 30 |.1.&.. QA.2 . 20| 00000330: 34 00 4B 0B 27 00 8F 20 52 45 53 45 54 20 46 4F |4.K.'.. RESET FO| 00000340: 52 20 4E 45 58 54 20 48 41 4E 44 00 8A 0B 28 00 |R NEXT HAND...(.| 00000350: 46 42 B2 30 3A 53 42 B2 30 3A 53 4D B2 30 3A 53 |FB.0:SB.0:SM.0:S| 00000360: 52 B2 30 3A 44 42 4A B2 30 3A 45 B2 30 3A 46 B2 |R.0:DBJ.0:E.0:F.| 00000370: 30 3A 47 B2 30 3A 48 B2 30 3A 8B 20 44 4F B2 31 |0:G.0:H.0:. DO.1| 00000380: 20 A7 20 42 45 B2 42 45 AD 32 00 C6 0B 29 00 4A | . BE.BE.2...).J| 00000390: B2 30 3A 4B B2 30 3A 4C B2 30 3A 4D B2 30 3A 4E |.0:K.0:L.0:M.0:N| 000003A0: B2 30 3A 50 B2 30 3A 44 4F B2 30 3A 51 51 B2 30 |.0:P.0:DO.0:QQ.0| 000003B0: 3A 51 41 B2 30 3A 8B 20 4D 4F B2 B1 36 30 30 30 |:QA.0:. MO..6000| 000003C0: 20 A7 20 32 32 32 00 D6 0B 2A 00 8B 20 49 B1 33 | . 222...*.. I.3| 000003D0: 34 20 A7 20 31 38 00 E9 0B 2B 00 99 41 24 22 11 |4 . 18...+..A$".| 000003E0: 11 11 11 11 11 11 22 44 24 00 1E 0C 2C 00 47 24 |......"D$...,.G$| 000003F0: B2 C4 28 4D 4F 29 3A 99 42 24 22 11 59 4F 55 20 |..(MO):.B$".YOU | 00000400: 48 41 56 45 20 24 22 47 24 22 2C 50 4C 41 43 45 |HAVE $"G$",PLACE| 00000410: 20 59 4F 55 52 20 42 45 54 20 20 22 42 45 00 36 | YOUR BET "BE.6| 00000420: 0C 2D 00 99 A3 32 36 AA C3 28 47 24 29 29 3A 85 |.-...26..(G$)):.| 00000430: 22 91 22 3B 42 45 00 40 0C 2E 00 89 20 32 31 32 |".";BE.@.... 212| 00000440: 00 73 0C 2F 00 99 22 93 22 41 24 22 11 11 11 11 |.s./.."."A$"....| 00000450: 11 11 11 59 4F 55 20 48 4F 4C 44 20 24 22 53 48 |...YOU HOLD $"SH| 00000460: 22 2C 20 59 4F 55 52 20 42 45 54 20 49 53 20 24 |", YOUR BET IS $| 00000470: 22 42 45 00 8B 0C 30 00 8F 20 50 4C 41 59 45 52 |"BE...0.. PLAYER| 00000480: 20 46 49 52 53 54 20 43 41 52 44 00 AC 0C 31 00 | FIRST CARD...1.| 00000490: 54 B2 30 3A 99 41 24 3B 3A 8D 31 31 30 3A 8D 31 |T.0:.A$;:.110:.1| 000004A0: 32 35 3A 41 B2 4E 55 3A 8D 31 32 38 00 CC 0C 32 |25:A.NU:.128...2| 000004B0: 00 8F 20 4E 4F 57 20 47 45 54 20 44 45 41 4C 45 |.. NOW GET DEALE| 000004C0: 52 20 46 49 52 53 54 20 43 41 52 44 00 F6 0C 33 |R FIRST CARD...3| 000004D0: 00 8D 31 32 32 3A 99 22 13 11 22 3B 3A 8D 31 31 |..122:."..";:.11| 000004E0: 30 3A 8D 31 32 35 3B 3A 8D 31 32 38 3A 42 B2 4E |0:.125;:.128:B.N| 000004F0: 55 3A 8D 31 32 32 00 23 0D 34 00 54 B2 36 3A 99 |U:.122.#.4.T.6:.| 00000500: 22 13 22 41 24 3B 3A 8D 31 31 30 3A 8D 31 32 35 |"."A$;:.110:.125| 00000510: 3A 8D 31 32 38 3A 43 B2 4E 55 3A 51 51 B2 43 25 |:.128:C.NU:QQ.C%| 00000520: 28 49 29 00 3E 0D 35 00 8F 20 4E 4F 57 20 44 45 |(I).>.5.. NOW DE| 00000530: 41 4C 45 52 20 44 4F 57 4E 20 43 41 52 44 00 6B |ALER DOWN CARD.k| 00000540: 0D 36 00 8D 31 32 32 3A 99 22 13 11 22 3B 3A 8D |.6..122:."..";:.| 00000550: 31 31 30 3A 8D 31 32 35 3A 44 B2 4E 55 3A 5A 5A |110:.125:D.NU:ZZ| 00000560: B2 43 25 28 49 29 3A 8D 31 32 32 00 74 0D 37 00 |.C%(I):.122.t.7.| 00000570: 89 20 35 38 00 96 0D 38 00 22 20 20 43 48 45 43 |. 58...8." CHEC| 00000580: 4B 20 44 45 41 4C 45 52 20 46 4F 52 20 42 4C 41 |K DEALER FOR BLA| 00000590: 43 4B 4A 41 43 4B 00 B8 0D 39 00 22 20 20 B8 B8 |CKJACK...9." ..| 000005A0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000005B0: B8 B8 B8 B8 B8 B8 B8 B8 00 EA 0D 3A 00 8B 20 42 |...........:.. B| 000005C0: B2 31 20 A7 20 8D 20 31 37 30 3A 8F 20 44 45 41 |.1 . . 170:. DEA| 000005D0: 4C 45 52 20 20 20 20 20 48 41 53 20 41 4E 20 41 |LER HAS AN A| 000005E0: 43 45 20 53 48 4F 57 49 4E 47 00 02 0E 3B 00 8B |CE SHOWING...;..| 000005F0: 20 42 B2 31 20 AF 20 44 B1 39 20 A7 20 44 42 4A | B.1 . D.9 . DBJ| 00000600: B2 31 00 1A 0E 3C 00 8B 20 44 B2 31 20 AF 20 42 |.1...<.. D.1 . B| 00000610: B1 39 20 A7 20 44 42 4A B2 31 00 23 0E 3D 00 89 |.9 . DBJ.1.#.=..| 00000620: 20 36 34 00 46 0E 3E 00 22 20 20 43 48 45 43 4B | 64.F.>." CHECK| 00000630: 20 50 4C 41 59 45 52 20 46 4F 52 20 42 4C 41 43 | PLAYER FOR BLAC| 00000640: 4B 20 4A 41 43 4B 00 69 0E 3F 00 22 20 20 B8 B8 |K JACK.i.?." ..| 00000650: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000660: B8 B8 B8 B8 B8 B8 B8 B8 B8 00 7E 0E 40 00 8B 20 |..........~.@.. | 00000670: 41 B2 31 20 AF 20 43 B1 39 20 A7 20 37 31 00 93 |A.1 . C.9 . 71..| 00000680: 0E 41 00 8B 20 43 B2 31 20 AF 20 41 B1 39 20 A7 |.A.. C.1 . A.9 .| 00000690: 20 37 31 00 9C 0E 42 00 89 20 36 39 00 C1 0E 43 | 71...B.. 69...C| 000006A0: 00 22 20 20 49 46 20 4F 4E 45 20 4F 52 20 42 4F |." IF ONE OR BO| 000006B0: 54 48 20 48 41 56 45 20 42 4C 41 43 4B 4A 41 43 |TH HAVE BLACKJAC| 000006C0: 4B 00 E6 0E 44 00 22 20 20 B8 B8 B8 B8 B8 B8 B8 |K...D." .......| 000006D0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 000006E0: B8 B8 B8 B8 B8 B8 00 FE 0E 45 00 8B 20 44 42 4A |.........E.. DBJ| 000006F0: B2 30 20 A7 20 8D 31 32 32 3A 89 20 38 30 00 25 |.0 . .122:. 80.%| 00000700: 0F 46 00 99 43 24 22 11 11 44 45 41 4C 45 52 07 |.F..C$"..DEALER.| 00000710: 20 42 4C 41 43 4B 4A 41 43 4B 22 3A 8D 32 33 31 | BLACKJACK":.231| 00000720: 3A 89 20 37 36 00 36 0F 47 00 8B 20 44 42 4A B2 |:. 76.6.G.. DBJ.| 00000730: 31 20 A7 20 37 35 00 6D 0F 48 00 8B 20 51 41 B2 |1 . 75.m.H.. QA.| 00000740: 31 20 A7 20 99 22 91 91 07 42 4C 41 43 4B 4A 41 |1 . ."...BLACKJA| 00000750: 43 4B 22 3A 8D 31 32 32 3A 53 42 B2 31 3A 46 42 |CK":.122:SB.1:FB| 00000760: B2 31 3A 8D 32 33 39 3A 89 20 31 38 37 00 A4 0F |.1:.239:. 187...| 00000770: 49 00 8B 20 51 41 B2 32 20 A7 20 99 22 91 91 91 |I.. QA.2 . ."...| 00000780: 91 91 91 91 07 42 4C 41 43 4B 4A 41 43 4B 22 3A |.....BLACKJACK":| 00000790: 53 42 B2 32 3A 8D 31 32 32 3A 8D 32 33 39 3A 89 |SB.2:.122:.239:.| 000007A0: 20 31 39 37 00 CE 0F 4A 00 99 22 11 11 50 4C 41 | 197...J.."..PLA| 000007B0: 59 45 52 07 20 42 4C 41 43 4B 4A 41 43 4B 22 3A |YER. BLACKJACK":| 000007C0: 8D 31 32 32 3A 8D 32 33 39 3A 89 20 37 36 00 EB |.122:.239:. 76..| 000007D0: 0F 4B 00 99 22 11 11 50 55 53 48 2D 2D 4E 4F 07 |.K.."..PUSH--NO.| 000007E0: 20 57 49 4E 4E 45 52 53 20 21 21 00 F5 0F 4C 00 | WINNERS !!...L.|
.......15.-..." ..................
......Q..." . * BLACKJACK *
..U..." . ....
.." ............................".G
..." ..SEE PROGRAM INFORMATION AT 342...
..... 303 . IN.MATI. #65......99,119,120
,226,249,239,228,224.....MO.1000:. 20.:.
...B$.7)".--- PRESS SPACE BAR ---".L....
W$:.W$."".19.P...MO.MO.10:. SHUFFLE COME
IN HERE......835,0:.834,0:.836,0.....D.
.(MO.256):.835,D:.834,MO.D.256:.836,BE.A
....".":......A$."................."....
.B$.H(A$,11).....C$.H(A$,8).,...D$."
".D..
.QQ$."A234567890JQK".S...VV$."SXZA".V...
MO.256.B(835).B(834):BE.B(836).....MO.MO
.10... ..B$". "G(34)"...SHUFFLE.....
SHUFFLE..."G(34).J.!..99:. SHUFFLE.S."..
37...#." DEAL THE HAND, 4 CARDS...$."
....................... .%.. SB..0 . 40
.1.&.. QA.2 . 204.K.'.. RESET FOR NEXT H
AND...(.FB.0:SB.0:SM.0:SR.0:DBJ.0:E.0:F.
0:G.0:H.0:. DO.1 . BE.BE.2.F.).J.0:K.0:L
.0:M.0:N.0:P.0:DO.0:QQ.0:QA.0:. MO..6000
. 222.V.*.. I.34 . 18...+..A$"......."D
$...,.G$.D(MO):.B$".YOU HAVE $"G$",PLACE
YOUR BET "BE.6.-...26.C(G$)):.".";BE.@
.... 212.S./.."."A$".......YOU HOLD $"SH
", YOUR BET IS $"BE...0.. PLAYER FIRST C
ARD...1.T.0:.A$;:.110:.125:A.NU:.128.L.2
.. NOW GET DEALER FIRST CARD...3..122:."
..";:.110:.125;:.128:B.NU:.122.#.4.T.6:.
"."A$;:.110:.125:.128:C.NU:QQ.C%(I).>.5.
. NOW DEALER DOWN CARD.K.6..122:."..";:.
110:.125:D.NU:ZZ.C%(I):.122.T.7.. 58...8
." CHECK DEALER FOR BLACKJACK...9." ..
...........................:.. B.1 . . 1
70:. DEALER HAS AN ACE SHOWING...;..
B.1 . D.9 . DBJ.1...<.. D.1 . B.9 . DBJ
.1.#.=.. 64.F.>." CHECK PLAYER FOR BLAC
K JACK.I.?." ..........................
..~.@.. A.1 . C.9 . 71...A.. C.1 . A.9 .
71...B.. 69.A.C." IF ONE OR BOTH HAVE
BLACKJACK...D." .......................
.........E.. DBJ.0 . .122:. 80.%.F..C$".
.DEALER. BLACKJACK":.231:. 76.6.G.. DBJ.
1 . 75.M.H.. QA.1 . ."...BLACKJACK":.122
:SB.1:FB.1:.239:. 187...I.. QA.2 . ."...
.....BLACKJACK":SB.2:.122:.239:. 197.N.J
.."..PLAYER. BLACKJACK":.122:.239:. 76..
.K.."..PUSH--NO. WINNERS !!...L.
> CLICK IMAGE PREVIEW FOR FULL MODAL