CARD GUESS

FILE INFORMATION

FILENAME(S): CARD GUESS

FILE TYPE(S): PRG

FILE SIZE: 1.6K

FIRST SEEN: 2025-12-01 02:21:53

APPEARS ON: 1 disk(s)

FILE HASH

d2737d6334e481f7cde7efd039d4b1412a4cfbd26fe54a450e7523784955eb08

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C64 31 GAMES	CARD GUESS	PRG	hedning, scooby	15	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 21 08 64 00 99 22  93 22 3A 99 A3 39 29 22  |..!.d..".":..9)"|
00000010: 2A 2A 2A 43 41 52 44 20  47 55 45 53 53 2A 2A 2A  |***CARD GUESS***|
00000020: 22 00 2B 08 82 00 99 3A  99 3A 99 00 5A 08 8C 00  |".+....:.:..Z...|
00000030: 99 22 54 48 49 53 20 50  52 4F 47 52 41 4D 20 57  |."THIS PROGRAM W|
00000040: 49 4C 4C 20 53 48 4F 57  20 59 4F 55 20 41 20 43  |ILL SHOW YOU A C|
00000050: 41 52 44 20 54 52 49 43  4B 2E 00 86 08 96 00 99  |ARD TRICK.......|
00000060: 22 41 46 54 45 52 20 54  48 45 20 46 49 52 53 54  |"AFTER THE FIRST|
00000070: 20 44 45 41 4C 2C 20 50  49 43 4B 20 41 20 43 41  | DEAL, PICK A CA|
00000080: 52 44 20 41 4E 44 00 B5  08 A0 00 99 22 54 59 50  |RD AND......"TYP|
00000090: 45 20 54 48 45 20 4E 55  4D 42 45 52 20 4F 46 20  |E THE NUMBER OF |
000000A0: 54 48 45 20 43 4F 4C 55  4D 4E 20 43 4F 4E 54 41  |THE COLUMN CONTA|
000000B0: 49 4E 49 4E 47 00 E2 08  AA 00 99 22 91 49 54 2E  |INING......".IT.|
000000C0: 20 54 48 45 20 44 45 41  4C 45 52 20 57 49 4C 4C  | THE DEALER WILL|
000000D0: 20 50 49 43 4B 20 55 50  20 54 48 45 20 43 41 52  | PICK UP THE CAR|
000000E0: 44 53 00 0E 09 B4 00 99  22 41 4E 44 20 57 49 4C  |DS......"AND WIL|
000000F0: 4C 20 44 45 41 4C 20 54  48 45 4D 20 4F 55 54 20  |L DEAL THEM OUT |
00000100: 41 47 41 49 4E 2E 20 57  48 45 4E 20 48 45 00 39  |AGAIN. WHEN HE.9|
00000110: 09 BE 00 99 22 46 49 4E  49 53 48 45 53 2C 20 54  |...."FINISHES, T|
00000120: 59 50 45 20 54 48 45 20  4E 55 4D 42 45 52 20 4F  |YPE THE NUMBER O|
00000130: 46 20 54 48 45 20 4E 45  57 00 63 09 C8 00 99 22  |F THE NEW.c...."|
00000140: 43 4F 4C 55 4D 4E 20 43  4F 4E 54 41 49 4E 49 4E  |COLUMN CONTAININ|
00000150: 47 20 59 4F 55 52 20 43  41 52 44 2E 20 52 45 50  |G YOUR CARD. REP|
00000160: 45 41 54 00 8E 09 D2 00  99 22 4F 4E 43 45 20 4D  |EAT......"ONCE M|
00000170: 4F 52 45 2E 20 54 48 45  20 44 45 41 4C 45 52 20  |ORE. THE DEALER |
00000180: 57 49 4C 4C 20 54 48 45  4E 20 54 55 52 4E 00 D9  |WILL THEN TURN..|
00000190: 09 DC 00 99 22 4F 56 45  52 20 43 41 52 44 53 2C  |...."OVER CARDS,|
000001A0: 20 4F 4E 45 20 41 54 20  41 20 54 49 4D 45 2C 20  | ONE AT A TIME, |
000001B0: 55 4E 54 49 4C 20 48 45  20 20 20 20 20 52 45 41  |UNTIL HE     REA|
000001C0: 43 48 45 53 20 20 54 48  45 20 4F 4E 45 20 59 4F  |CHES  THE ONE YO|
000001D0: 55 20 50 49 43 4B 45 44  2E 00 FD 09 E6 00 99 3A  |U PICKED.......:|
000001E0: 99 22 50 52 45 53 53 20  41 4E 59 20 4B 45 59 20  |."PRESS ANY KEY |
000001F0: 54 4F 20 42 45 47 49 4E  22 3A 51 B2 30 00 14 0A  |TO BEGIN":Q.0...|
00000200: F0 00 99 3A 99 3A 99 3A  86 41 28 32 31 29 2C 42  |...:.:.:.A(21),B|
00000210: 28 32 31 29 00 25 0A FA  00 81 20 58 B2 31 A4 32  |(21).%.... X.1.2|
00000220: 31 3A 4A B2 30 00 36 0A  04 01 54 B2 B5 28 35 32  |1:J.0.6...T..(52|
00000230: AC BB 28 31 29 29 00 43  0A 0E 01 81 59 B2 31 A4  |..(1)).C....Y.1.|
00000240: 58 AB 31 00 53 0A 18 01  8B 41 28 59 29 B2 54 89  |X.1.S....A(Y).T.|
00000250: 32 36 30 00 5A 0A 22 01  82 59 00 65 0A 2C 01 41  |260.Z."..Y.e.,.A|
00000260: 28 58 29 B2 54 00 7A 0A  36 01 82 58 3A 4E B2 30  |(X).T.z.6..X:N.0|
00000270: 3A 8B 51 B3 B1 30 89 33  32 35 00 8D 0A 40 01 A1  |:.Q..0.325...@..|
00000280: 41 24 3A 8B 41 24 B2 22  22 89 33 32 30 00 9A 0A  |A$:.A$."".320...|
00000290: 45 01 51 B2 31 3A 99 22  93 22 00 A5 0A 4A 01 81  |E.Q.1:."."...J..|
000002A0: 49 B2 31 A4 33 00 C1 0A  4F 01 99 A3 36 29 22 31  |I.1.3...O...6)"1|
000002B0: 22 3B A3 31 34 29 22 32  22 3B A3 32 32 29 22 33  |";.14)"2";.22)"3|
000002C0: 22 00 DD 0A 50 01 99 A3  36 29 22 A3 22 3B A3 31  |"...P...6)".";.1|
000002D0: 34 29 22 A3 22 3B A3 32  32 29 22 A3 22 00 E9 0A  |4)".";.22)"."...|
000002E0: 54 01 81 5A B2 31 A4 32  31 00 0D 0B 5E 01 8B 41  |T..Z.1.21...^..A|
000002F0: 28 5A 29 B2 34 AC 28 B5  28 41 28 5A 29 AD 34 29  |(Z).4.(.(A(Z).4)|
00000300: 29 A7 43 24 B2 22 DA 22  3A 89 34 39 30 00 33 0B  |).C$.".":.490.3.|
00000310: 68 01 8B 41 28 5A 29 AB  32 B2 34 AC 28 B5 28 41  |h..A(Z).2.4.(.(A|
00000320: 28 5A 29 AD 34 29 29 A7  43 24 B2 22 D8 22 3A 89  |(Z).4)).C$.".":.|
00000330: 34 39 30 00 59 0B 72 01  8B 41 28 5A 29 AB 33 B2  |490.Y.r..A(Z).3.|
00000340: 34 AC 28 B5 28 41 28 5A  29 AD 34 29 29 A7 43 24  |4.(.(A(Z).4)).C$|
00000350: B2 22 D3 22 3A 89 34 39  30 00 64 0B 7C 01 43 24  |.".":.490.d.|.C$|
00000360: B2 22 C1 22 00 6E 0B EA  01 4E B2 4E AA 31 00 7C  |.".".n...N.N.1.||
00000370: 0B F4 01 8B 4E B3 B1 34  89 35 33 30 00 82 0B FE  |....N..4.530....|
00000380: 01 99 00 8A 0B 08 02 4E  B2 31 00 9B 0B 12 02 8B  |.......N.1......|
00000390: 41 28 5A 29 B1 33 31 89  35 38 30 00 B1 0B 1C 02  |A(Z).31.580.....|
000003A0: 41 24 B2 C4 28 B5 28 41  28 5A 29 AD 34 29 AA 32  |A$..(.(A(Z).4).2|
000003B0: 29 00 BA 0B 26 02 89 36  38 30 00 D8 0B 44 02 8B  |)...&..680...D..|
000003C0: B5 28 41 28 5A 29 AD 34  29 B2 39 A7 41 24 B2 22  |.(A(Z).4).9.A$."|
000003D0: 20 41 22 3A 89 36 38 30  00 F7 0B 4E 02 8B B5 28  | A":.680...N...(|
000003E0: 41 28 5A 29 AD 34 29 B2  31 30 A7 41 24 B2 22 20  |A(Z).4).10.A$." |
000003F0: 4B 22 3A 89 36 38 30 00  16 0C 58 02 8B B5 28 41  |K":.680...X...(A|
00000400: 28 5A 29 AD 34 29 B2 31  31 A7 41 24 B2 22 20 51  |(Z).4).11.A$." Q|
00000410: 22 3A 89 36 38 30 00 35  0C 62 02 8B B5 28 41 28  |":.680.5.b...(A(|
00000420: 5A 29 AD 34 29 B2 31 32  A7 41 24 B2 22 20 4A 22  |Z).4).12.A$." J"|
00000430: 3A 89 36 38 30 00 41 0C  6C 02 41 24 B2 22 31 30  |:.680.A.l.A$."10|
00000440: 22 00 58 0C A8 02 99 A3  28 4E AB 31 29 AC 38 AA  |".X.....(N.1).8.|
00000450: 35 29 41 24 3B 43 24 3B  00 65 0C B2 02 8B 4A B2  |5)A$;C$;.e....J.|
00000460: 35 89 39 30 30 00 73 0C  BC 02 8B 4A B2 31 30 89  |5.900.s....J.10.|
00000470: 39 38 30 00 7A 0C C6 02  82 5A 00 82 0C D0 02 99  |980.z....Z......|
00000480: 3A 99 00 AA 0C DA 02 99  22 57 48 49 43 48 20 43  |:......."WHICH C|
00000490: 4F 4C 55 4D 4E 20 43 4F  4E 54 41 49 4E 53 20 59  |OLUMN CONTAINS Y|
000004A0: 4F 55 52 20 43 41 52 44  22 3B 00 B1 0C E4 02 85  |OUR CARD";......|
000004B0: 4B 00 CE 0C EE 02 8B 4B  B3 31 B0 4B B1 33 A7 99  |K......K.1.K.3..|
000004C0: 3A 99 22 28 31 2D 33 29  22 3A 89 37 33 30 00 D6  |:."(1-3)":.730..|
000004D0: 0C F8 02 99 3A 99 00 DE  0C 02 03 54 B2 31 00 F5  |....:......T.1..|
000004E0: 0C 0C 03 53 B2 4B AA 32  AB 33 AC B5 28 28 4B AA  |...S.K.2.3..((K.|
000004F0: 31 29 AD 33 29 00 FE 0C  16 03 8D 39 34 30 00 06  |1).3)......940..|
00000500: 0D 20 03 53 B2 4B 00 0F  0D 2A 03 8D 39 34 30 00  |. .S.K...*..940.|
00000510: 22 0D 34 03 53 B2 4B AA  31 AB 33 AC B5 28 4B AD  |".4.S.K.1.3..(K.|
00000520: 33 29 00 2B 0D 3E 03 8D  39 34 30 00 37 0D 48 03  |3).+.>..940.7.H.|
00000530: 81 43 B2 31 A4 32 31 00  45 0D 52 03 41 28 43 29  |.C.1.21.E.R.A(C)|
00000540: B2 42 28 43 29 00 4C 0D  5C 03 82 43 00 53 0D 66  |.B(C).L.\..C.S.f|
00000550: 03 82 49 00 5B 0D 70 03  4A B2 35 00 7D 0D 7A 03  |..I.[.p.J.5.}.z.|
00000560: 81 5A B2 31 A4 31 31 AA  B5 28 31 30 AC BB 28 31  |.Z.1.11..(10..(1|
00000570: 29 AA 31 29 3A 4E B2 30  3A 89 33 35 30 00 94 0D  |).1):N.0:.350...|
00000580: 84 03 81 54 B2 31 A4 31  30 30 3A 82 54 3A 99 3A  |...T.1.100:.T:.:|
00000590: 82 5A 3A 99 00 B5 0D 8E  03 99 22 4F 4F 50 53 21  |.Z:......."OOPS!|
000005A0: 21 21 20 59 4F 55 52 20  43 41 52 44 20 49 53 20  |!! YOUR CARD IS |
000005B0: 54 48 45 22 3B 00 BD 0D  98 03 4E B2 31 00 D0 0D  |THE";.....N.1...|
000005C0: A2 03 4A B2 31 30 3A 5A  B2 31 31 3A 89 33 35 30  |..J.10:Z.11:.350|
000005D0: 00 E0 0D AC 03 81 52 B2  53 A4 53 AA 31 38 A9 33  |......R.S.S.18.3|
000005E0: 00 EE 0D B6 03 42 28 54  29 B2 41 28 52 29 00 F8  |.....B(T).A(R)..|
000005F0: 0D C0 03 54 B2 54 AA 31  00 01 0E CA 03 82 52 3A  |...T.T.1......R:|
00000600: 8E 00 0C 0E D4 03 99 22  2E 22 3A 99 00 34 0E DE  |.......".":..4..|
00000610: 03 99 22 44 4F 20 59 4F  55 20 57 41 4E 54 20 54  |.."DO YOU WANT T|
00000620: 4F 20 53 45 45 20 49 54  20 41 47 41 49 4E 22 3B  |O SEE IT AGAIN";|
00000630: 3A 85 54 24 00 4E 0E E8  03 8B C8 28 54 24 2C 31  |:.T$.N.....(T$,1|
00000640: 29 B2 22 59 22 A7 99 3A  99 3A 89 32 35 30 00 54  |)."Y"..:.:.250.T|
00000650: 0E F2 03 80 00 00 00 24                           |.......$        |

..!.D..".":..9)"***CARD GUESS***".+....:
.:..Z...."THIS PROGRAM WILL SHOW YOU A C
ARD TRICK......."AFTER THE FIRST DEAL, P
ICK A CARD AND... .."TYPE THE NUMBER OF 
THE COLUMN CONTAINING......".IT. THE DEA
LER WILL PICK UP THE CARDS......"AND WIL
L DEAL THEM OUT AGAIN. WHEN HE.9...."FIN
ISHES, TYPE THE NUMBER OF THE NEW.C.H.."
COLUMN CONTAINING YOUR CARD. REPEAT...R.
."ONCE MORE. THE DEALER WILL THEN TURN.Y
...."OVER CARDS, ONE AT A TIME, UNTIL HE
     REACHES  THE ONE YOU PICKED.......:
."PRESS ANY KEY TO BEGIN":Q.0......:.:.:
.A(21),B(21).%.... X.1.21:J.0.6...T..(52
..(1)).C....Y.1.X.1.S....A(Y).T.260.Z.".
.Y.E.,.A(X).T.Z.6..X:N.0:.Q..0.325...@..
A$:.A$."".320...E.Q.1:."."...J..I.1.3.A.
O...6)"1";.14)"2";.22)"3"...P...6)".";.1
4)".";.22)"."...T..Z.1.21...^..A(Z).4.(.
(A(Z).4)).C$."Z":.490.3.H..A(Z).2.4.(.(A
(Z).4)).C$."X":.490.Y.R..A(Z).3.4.(.(A(Z
).4)).C$."S":.490.D.|.C$."A".N...N.N.1.|
....N..4.530...........N.1......A(Z).31.
580.....A$.D(.(A(Z).4).2)...&..680.X.D..
.(A(Z).4).9.A$." A":.680...N...(A(Z).4).
10.A$." K":.680...X...(A(Z).4).11.A$." Q
":.680.5.B...(A(Z).4).12.A$." J":.680.A.
L.A$."10".X.....(N.1).8.5)A$;C$;.E....J.
5.900.S....J.10.980.Z.F..Z...P..:....Z..
"WHICH COLUMN CONTAINS YOUR CARD";......
K.N....K.1.K.3..:."(1-3)":.730.V....:...
...T.1.....S.K.2.3..((K.1).3)......940..
. .S.K...*..940.".4.S.K.1.3..(K.3).+.>..
940.7.H..C.1.21.E.R.A(C).B(C).L.\..C.S.F
..I.[.P.J.5.}.Z..Z.1.11..(10..(1).1):N.0
:.350......T.1.100:.T:.:.Z:......."OOPS!
!! YOUR CARD IS THE";.....N.1.P...J.10:Z
.11:.350......R.S.S.18.3.....B(T).A(R)..
...T.T.1...J..R:....T..".":..4...."DO YO
U WANT TO SEE IT AGAIN";:.T$.N....H(T$,1
)."Y"..:.:.250.T.......$

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL