DG-POKER V1.0
FILE INFORMATION
FILENAME(S): DG-POKER V1.0
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-02 17:01:42
APPEARS ON: 1 disk(s)
FILE HASH
bf63860f6213d69629d9183f3e3f793d162b11a8b07c3f4d1b166cf5e6bf5496
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES21 | DG-POKER V1.0 | PRG | Treasure Chest - Spook | 3 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 01 00 3A 00 2C 08 02 00 8F 20 20 20 |......:.,.... | 00000010: 20 4E 4F 20 28 43 29 20 42 55 54 20 28 57 29 2E | NO (C) BUT (W).| 00000020: 2E 2E 20 53 49 47 4E 45 44 20 44 47 00 32 08 03 |.. SIGNED DG.2..| 00000030: 00 3A 00 49 08 05 00 97 35 33 32 37 32 2C 32 31 |.:.I....53272,21| 00000040: 3A 97 36 35 37 2C 31 32 38 00 5C 08 0A 00 86 4B |:.657,128.\....K| 00000050: 24 28 33 32 29 3A 8D 31 30 30 30 30 00 79 08 14 |$(32):.10000.y..| 00000060: 00 99 22 93 22 3A 97 35 33 32 38 30 2C 31 35 3A |..".":.53280,15:| 00000070: 97 35 33 32 38 31 2C 31 35 00 94 08 2D 00 86 54 |.53281,15...-..T| 00000080: 4B 28 35 29 3A 86 5A 28 31 30 29 3A 46 50 B2 35 |K(5):.Z(10):FP.5| 00000090: 34 32 37 32 00 B7 08 32 00 99 22 93 98 DD 22 A3 |4272...2.."...".| 000000A0: 32 35 29 22 90 44 47 2D 50 4F 4B 45 52 20 56 31 |25)".DG-POKER V1| 000000B0: 1D 1D 1D 98 DD 22 3B 00 DB 08 33 00 99 3A 99 22 |.....";...3..:."| 000000C0: 13 11 DD 22 A6 32 34 29 22 98 A3 A3 A3 A3 A3 A3 |...".24)".......| 000000D0: A3 A3 A3 A3 A3 1D 1D 1D DD 13 22 00 13 09 34 00 |.........."...4.| 000000E0: 99 22 13 11 11 11 11 11 11 11 CA C0 C0 C0 C0 C0 |."..............| 000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000110: C0 CB 22 00 45 09 35 00 99 22 11 90 48 49 20 46 |..".E.5.."..HI F| 00000120: 4F 4C 4B 53 21 20 20 20 20 20 20 20 20 20 20 20 |OLKS! | 00000130: 20 20 20 5B 46 49 43 20 48 51 20 30 33 2E 30 36 | [FIC HQ 03.06| 00000140: 2E 39 30 5D 22 00 70 09 36 00 99 22 44 45 41 44 |.90]".p.6.."DEAD| 00000150: 20 47 55 59 20 4F 46 20 46 49 43 54 49 4F 4E 20 | GUY OF FICTION | 00000160: 48 41 50 50 49 4C 59 20 50 52 45 53 45 4E 54 53 |HAPPILY PRESENTS| 00000170: 00 9A 09 37 00 99 22 59 4F 55 20 41 20 42 41 53 |...7.."YOU A BAS| 00000180: 49 43 2D 50 4F 4B 45 52 2E 20 55 53 45 20 59 4F |IC-POKER. USE YO| 00000190: 55 52 20 43 55 52 53 4F 52 2D 00 C5 09 38 00 99 |UR CURSOR-...8..| 000001A0: 22 42 55 54 54 4F 4E 53 20 46 4F 52 20 4C 45 46 |"BUTTONS FOR LEF| 000001B0: 54 20 26 20 52 49 47 48 54 2C 20 52 45 54 55 52 |T & RIGHT, RETUR| 000001C0: 4E 20 46 4F 52 00 F2 09 39 00 99 22 48 4F 4C 44 |N FOR...9.."HOLD| 000001D0: 20 4F 52 20 43 41 4E 43 45 4C 20 28 DA 20 4D 45 | OR CANCEL (. ME| 000001E0: 41 4E 53 20 48 4F 4C 44 21 29 20 41 4E 44 20 54 |ANS HOLD!) AND T| 000001F0: 48 45 00 0B 0A 3A 00 99 22 53 50 41 43 45 42 41 |HE...:.."SPACEBA| 00000200: 52 20 54 4F 20 47 4F 20 4F 4E 2E 00 38 0A 3B 00 |R TO GO ON..8.;.| 00000210: 99 22 49 20 48 4F 50 45 20 59 4F 55 20 4C 49 4B |."I HOPE YOU LIK| 00000220: 45 20 50 4C 41 59 49 4E 47 20 43 41 52 44 53 20 |E PLAYING CARDS | 00000230: 41 4E 44 20 53 4F 20 49 00 5E 0A 3C 00 99 22 57 |AND SO I.^.<.."W| 00000240: 49 53 48 20 59 4F 55 20 41 4C 4C 20 41 20 48 41 |ISH YOU ALL A HA| 00000250: 50 50 59 20 43 4F 4D 50 55 54 49 4E 47 21 00 72 |PPY COMPUTING!.r| 00000260: 0A 3D 00 99 22 11 22 A3 33 36 29 22 1C 42 59 45 |.=..".".36)".BYE| 00000270: 21 22 00 78 0A 46 00 3A 00 7E 0A 47 00 3A 00 84 |!".x.F.:.~.G.:..| 00000280: 0A 48 00 3A 00 B0 0A 5A 00 54 4B 28 31 29 B2 30 |.H.:...Z.TK(1).0| 00000290: 3A 54 4B 28 32 29 B2 30 3A 54 4B 28 33 29 B2 30 |:TK(2).0:TK(3).0| 000002A0: 3A 54 4B 28 34 29 B2 30 3A 54 4B 28 35 29 B2 30 |:TK(4).0:TK(5).0| 000002B0: 00 D7 0A 5B 00 5A 28 35 29 B2 30 3A 5A 28 36 29 |...[.Z(5).0:Z(6)| 000002C0: B2 30 3A 5A 28 37 29 B2 30 3A 5A 28 38 29 B2 30 |.0:Z(7).0:Z(8).0| 000002D0: 3A 5A 28 39 29 B2 30 00 E0 0A 5C 00 50 4F B2 31 |:Z(9).0...\.PO.1| 000002E0: 00 FC 0A 5F 00 81 44 B2 32 A4 36 3A 97 37 38 31 |..._..D.2.6:.781| 000002F0: 2C 44 3A 9E 35 39 39 30 33 3A 82 44 00 1F 0B 60 |,D:.59903:.D...`| 00000300: 00 99 22 13 11 98 22 3A 81 44 B2 31 A4 35 3A 99 |.."...":.D.1.5:.| 00000310: 22 DD 22 A6 33 38 29 22 DD 22 3B 3A 82 3A 99 00 |".".38)".";:.:..| 00000320: 35 0B 64 00 5A B2 BB 28 AB 54 49 29 3A 99 22 13 |5.d.Z..(.TI):.".| 00000330: 11 11 1D 22 3B 00 40 0B 6E 00 81 58 B2 31 A4 35 |...";.@.n..X.1.5| 00000340: 00 56 0B 78 00 5A 28 58 29 B2 B5 28 BB 28 31 29 |.V.x.Z(X)..(.(1)| 00000350: AC 33 32 29 AA 31 00 61 0B 82 00 81 41 B2 31 A4 |.32).1.a....A.1.| 00000360: 58 00 8D 0B 8C 00 8B 5A 28 58 29 B2 5A 28 41 AB |X......Z(X).Z(A.| 00000370: 31 29 A7 5A 28 58 29 B2 B5 28 BB 28 31 29 AC 33 |1).Z(X)..(.(1).3| 00000380: 32 29 AA 31 3A 41 B2 31 3A 89 31 33 30 00 94 0B |2).1:A.1:.130...| 00000390: 96 00 82 41 00 AC 0B A0 00 99 22 05 D5 C0 C0 C0 |...A......".....| 000003A0: 11 9D 9D 9D 9D DD 9D 11 DD 91 22 3B 00 D1 0B A1 |..........";....| 000003B0: 00 8B 5A 28 58 29 B3 B2 31 36 20 A7 99 22 90 22 |..Z(X)..16 .."."| 000003C0: 4B 24 28 5A 28 58 29 29 22 91 22 3B 3A 89 31 37 |K$(Z(X))".";:.17| 000003D0: 30 00 E7 0B A2 00 99 22 1C 22 4B 24 28 5A 28 58 |0......"."K$(Z(X| 000003E0: 29 29 22 91 1F 22 3B 00 0B 0C AA 00 82 58 3A 43 |))"..";......X:C| 000003F0: 50 B2 31 32 36 33 AA 34 AC 50 4F 3A 97 46 50 AA |P.1263.4.PO:.FP.| 00000400: 43 50 2C 36 3A 97 43 50 2C 33 30 00 1E 0C B4 00 |CP,6:.CP,30.....| 00000410: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 38 30 00 37 |.A$:.A$."".180.7| 00000420: 0C B5 00 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00000430: 20 97 43 50 2C 33 32 00 56 0C B6 00 8B 41 24 B2 | .CP,32.V....A$.| 00000440: 22 1D 22 A7 50 4F B2 50 4F AA 31 3A 8B 50 4F B1 |".".PO.PO.1:.PO.| 00000450: 35 A7 50 4F B2 31 00 75 0C B7 00 8B 41 24 B2 22 |5.PO.1.u....A$."| 00000460: 9D 22 A7 50 4F B2 50 4F AB 31 3A 8B 50 4F B3 31 |.".PO.PO.1:.PO.1| 00000470: A7 50 4F B2 35 00 96 0C B8 00 43 50 B2 31 32 36 |.PO.5.....CP.126| 00000480: 33 AA 34 AC 50 4F 3A 97 46 50 AA 43 50 2C 36 3A |3.4.PO:.FP.CP,6:| 00000490: 97 43 50 2C 33 30 00 A3 0C B9 00 43 50 B2 43 50 |.CP,30.....CP.CP| 000004A0: AB 34 30 00 D1 0C BD 00 8B 41 24 B2 C7 28 31 33 |.40......A$..(13| 000004B0: 29 AF C2 28 43 50 29 B3 B1 33 32 A7 20 97 43 50 |)..(CP)..32. .CP| 000004C0: 2C 33 32 3A 54 4B 28 50 4F 29 B2 30 3A 89 31 39 |,32:TK(PO).0:.19| 000004D0: 31 00 04 0D BE 00 8B 41 24 B2 C7 28 31 33 29 AF |1......A$..(13).| 000004E0: C2 28 43 50 AB 34 30 29 B2 33 32 A7 97 46 50 AA |.(CP.40).32..FP.| 000004F0: 43 50 2C 36 3A 97 43 50 2C 39 30 3A 54 4B 28 50 |CP,6:.CP,90:TK(P| 00000500: 4F 29 B2 31 00 11 0D BF 00 43 50 B2 43 50 AA 34 |O).1.....CP.CP.4| 00000510: 30 00 24 0D C0 00 8B 41 24 B3 B1 C7 28 33 32 29 |0.$....A$...(32)| 00000520: A7 31 38 30 00 2A 0D C8 00 3A 00 4B 0D C9 00 5A |.180.*...:.K...Z| 00000530: B2 BB 28 AB 54 49 29 3A 81 44 B2 31 A4 35 3A 4B |..(.TI):.D.1.5:K| 00000540: 41 28 44 29 B2 5A 28 44 29 3A 82 00 58 0D CA 00 |A(D).Z(D):..X...| 00000550: 99 22 13 11 11 1D 22 3B 00 71 0D CD 00 81 58 B2 |."....";.q....X.| 00000560: 31 A4 35 3A 8B 54 4B 28 58 29 B2 31 A7 89 32 36 |1.5:.TK(X).1..26| 00000570: 30 00 89 0D DC 00 5A 28 58 AA 35 29 B2 B5 28 BB |0.....Z(X.5)..(.| 00000580: 28 31 29 AC 33 32 29 AA 31 00 94 0D E6 00 81 41 |(1).32).1......A| 00000590: B2 31 A4 35 00 B1 0D F0 00 8B 5A 28 58 AA 35 29 |.1.5......Z(X.5)| 000005A0: B2 4B 41 28 41 29 20 A7 20 41 B2 31 3A 89 32 32 |.KA(A) . A.1:.22| 000005B0: 30 00 CF 0D F1 00 8B 5A 28 58 AA 35 29 B2 5A 28 |0......Z(X.5).Z(| 000005C0: 41 AB 31 29 20 A7 20 41 B2 31 3A 89 32 32 30 00 |A.1) . A.1:.220.| 000005D0: D6 0D F5 00 82 41 00 E6 0D FA 00 5A 28 58 29 B2 |.....A.....Z(X).| 000005E0: 5A 28 58 AA 35 29 00 EC 0D 04 01 3A 00 11 0E 05 |Z(X.5).....:....| 000005F0: 01 97 31 32 32 34 AA 34 AC 58 AB 32 2C 33 32 3A |..1224.4.X.2,32:| 00000600: 97 31 32 32 34 AA 34 AC 58 AB 32 AB 34 30 2C 33 |.1224.4.X.2.40,3| 00000610: 32 00 29 0E 06 01 99 22 05 D5 C0 C0 C0 11 9D 9D |2.)...."........| 00000620: 9D 9D DD 9D 11 DD 91 22 3B 00 4E 0E 07 01 8B 5A |.......";.N....Z| 00000630: 28 58 29 B3 B2 31 36 20 A7 99 22 90 22 4B 24 28 |(X)..16 .."."K$(| 00000640: 5A 28 58 29 29 22 91 22 3B 3A 89 32 37 30 00 63 |Z(X))".";:.270.c| 00000650: 0E 08 01 99 22 1C 22 4B 24 28 5A 28 58 29 29 22 |...."."K$(Z(X))"| 00000660: 91 22 3B 00 6A 0E 0E 01 82 58 00 70 0E 2C 01 3A |.";.j....X.p.,.:| 00000670: 00 AA 0E 36 01 99 22 1F 13 11 22 3A 99 A3 32 35 |...6.."...":..25| 00000680: 29 22 50 52 45 53 53 20 42 55 54 54 4F 4E 11 11 |)"PRESS BUTTON..| 00000690: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 46 4F 52 A0 |............FOR.| 000006A0: 4E 45 57 20 43 41 52 44 53 22 00 C5 0E 90 01 A1 |NEW CARDS"......| 000006B0: 41 24 3A 8B 41 24 B2 22 22 20 B0 41 24 B2 22 20 |A$:.A$."" .A$." | 000006C0: 22 A7 34 30 30 00 CD 0E F4 01 89 39 30 00 D3 0E |".400......90...| 000006D0: 28 23 3A 00 EA 0E 29 23 8F 20 20 20 20 20 20 20 |(#:...)#. | 000006E0: 20 20 20 20 20 43 41 52 44 53 00 F0 0E 2A 23 3A | CARDS...*#:| 000006F0: 00 00 0F 10 27 4B 24 28 31 29 B2 22 37 C1 20 22 |....'K$(1)."7. "| 00000700: 00 10 0F 12 27 4B 24 28 32 29 B2 22 38 C1 20 22 |....'K$(2)."8. "| 00000710: 00 20 0F 14 27 4B 24 28 33 29 B2 22 39 C1 20 22 |. ..'K$(3)."9. "| 00000720: 00 30 0F 16 27 4B 24 28 34 29 B2 22 31 30 C1 22 |.0..'K$(4)."10."| 00000730: 00 40 0F 18 27 4B 24 28 35 29 B2 22 42 C1 20 22 |.@..'K$(5)."B. "| 00000740: 00 50 0F 1A 27 4B 24 28 36 29 B2 22 44 C1 20 22 |.P..'K$(6)."D. "| 00000750: 00 60 0F 1C 27 4B 24 28 37 29 B2 22 4B C1 20 22 |.`..'K$(7)."K. "| 00000760: 00 70 0F 1E 27 4B 24 28 38 29 B2 22 41 C1 20 22 |.p..'K$(8)."A. "| 00000770: 00 80 0F 74 27 4B 24 28 39 29 B2 22 37 D8 20 22 |...t'K$(9)."7. "| 00000780: 00 91 0F 76 27 4B 24 28 31 30 29 B2 22 38 D8 20 |...v'K$(10)."8. | 00000790: 22 00 A2 0F 78 27 4B 24 28 31 31 29 B2 22 39 D8 |"...x'K$(11)."9.| 000007A0: 20 22 00 B3 0F 7A 27 4B 24 28 31 32 29 B2 22 31 | "...z'K$(12)."1| 000007B0: 30 D8 22 00 C4 0F 7C 27 4B 24 28 31 33 29 B2 22 |0."...|'K$(13)."| 000007C0: 42 D8 A0 22 00 D5 0F 7E 27 4B 24 28 31 34 29 B2 |B.."...~'K$(14).| 000007D0: 22 44 D8 20 22 00 E6 0F 80 27 4B 24 28 31 35 29 |"D. "....'K$(15)| 000007E0: B2 22 4B D8 20 22 00 F7 0F 82 27 4B 24 28 31 36 |."K. "....'K$(16| 000007F0: 29 B2 22 41 D8 20 22 00 08 10 D8 27 4B 24 28 31 |)."A. "....'K$(1| 00000800: 37 29 B2 22 37 DA 20 22 00 19 10 DA 27 4B 24 28 |7)."7. "....'K$(| 00000810: 31 38 29 B2 22 38 DA 20 22 00 2A 10 DC 27 4B 24 |18)."8. ".*..'K$| 00000820: 28 31 39 29 B2 22 39 DA 20 22 00 3B 10 DE 27 4B |(19)."9. ".;..'K| 00000830: 24 28 32 30 29 B2 22 31 30 DA 22 00 4C 10 E0 27 |$(20)."10.".L..'| 00000840: 4B 24 28 32 31 29 B2 22 42 DA 20 22 00 5D 10 E2 |K$(21)."B. ".]..| 00000850: 27 4B 24 28 32 32 29 B2 22 44 DA 20 22 00 6E 10 |'K$(22)."D. ".n.| 00000860: E4 27 4B 24 28 32 33 29 B2 22 4B DA 20 22 00 7F |.'K$(23)."K. "..| 00000870: 10 E6 27 4B 24 28 32 34 29 B2 22 41 DA 20 22 00 |..'K$(24)."A. ".| 00000880: 90 10 3C 28 4B 24 28 32 35 29 B2 22 37 D3 20 22 |..<(K$(25)."7. "| 00000890: 00 A1 10 3E 28 4B 24 28 32 36 29 B2 22 38 D3 20 |...>(K$(26)."8. | 000008A0: 22 00 B2 10 40 28 4B 24 28 32 37 29 B2 22 39 D3 |"...@(K$(27)."9.| 000008B0: 20 22 00 C3 10 42 28 4B 24 28 32 38 29 B2 22 31 | "...B(K$(28)."1| 000008C0: 30 D3 22 00 D4 10 44 28 4B 24 28 32 39 29 B2 22 |0."...D(K$(29)."| 000008D0: 42 D3 20 22 00 E5 10 46 28 4B 24 28 33 30 29 B2 |B. "...F(K$(30).| 000008E0: 22 44 D3 20 22 00 F6 10 48 28 4B 24 28 33 31 29 |"D. "...H(K$(31)| 000008F0: B2 22 4B D3 20 22 00 07 11 4A 28 4B 24 28 33 32 |."K. "...J(K$(32| 00000900: 29 B2 22 41 D3 20 22 00 0D 11 04 29 8E 00 00 00 |)."A. "....)....|
......:.,.... NO (C) BUT (W)... SIGNE
D DG.2...:.I....53272,21:.657,128.\....K
$(32):.10000.Y....".":.53280,15:.53281,1
5...-..TK(5):.Z(10):FP.54272...2.."...".
25)".DG-POKER V1.....";...3..:."...".24)
"................."...4.."........J.....
.................................K".E.5.
."..HI FOLKS! [FIC HQ 03.06
.90]".P.6.."DEAD GUY OF FICTION HAPPILY
PRESENTS...7.."YOU A BASIC-POKER. USE YO
UR CURSOR-.E.8.."BUTTONS FOR LEFT & RIGH
T, RETURN FOR...9.."HOLD OR CANCEL (Z ME
ANS HOLD!) AND THE...:.."SPACEBAR TO GO
ON..8.;.."I HOPE YOU LIKE PLAYING CARDS
AND SO I.^.<.."WISH YOU ALL A HAPPY COMP
UTING!.R.=..".".36)".BYE!".X.F.:.~.G.:..
.H.:...Z.TK(1).0:TK(2).0:TK(3).0:TK(4).0
:TK(5).0.W.[.Z(5).0:Z(6).0:Z(7).0:Z(8).0
:Z(9).0...\.PO.1..._..D.2.6:.781,D:.5990
3:.D...`.."...":.D.1.5:.".".38)".";:.:..
5.D.Z..(.TI):."....";.@.N..X.1.5.V.X.Z(X
)..(.(1).32).1.A....A.1.X......Z(X).Z(A.
1).Z(X)..(.(1).32).1:A.1:.130......A...
..".U.............";.Q....Z(X)..16 .."."
K$(Z(X))".";:.170......"."K$(Z(X))"..";.
.....X:CP.1263.4.PO:.FP.CP,6:.CP,30.....
.A$:.A$."".180.7... .CP,32.
V....A$.".".PO.PO.1:.PO.5.PO.1.U....A$."
.".PO.PO.1:.PO.1.PO.5.....CP.1263.4.PO:.
FP.CP,6:.CP,30.....CP.CP.40.Q....A$.G(13
).B(CP)..32. .CP,32:TK(PO).0:.191......A
$.G(13).B(CP.40).32..FP.CP,6:.CP,90:TK(P
O).1.....CP.CP.40.$....A$..G(32).180.*.H
.:.K.I.Z..(.TI):.D.1.5:KA(D).Z(D):..X.J.
."....";.Q.M..X.1.5:.TK(X).1..260.....Z(
X.5)..(.(1).32).1......A.1.5......Z(X.5)
.KA(A) . A.1:.220.O....Z(X.5).Z(A.1) . A
.1:.220.V....A.....Z(X).Z(X.5).....:....
..1224.4.X.2,32:.1224.4.X.2.40,32.)...."
.U.............";.N....Z(X)..16 .."."K$(
Z(X))".";:.270.C...."."K$(Z(X))".";.J...
.X.P.,.:...6.."...":..25)"PRESS BUTTON..
............FOR NEW CARDS".E....A$:.A$."
" .A$." ".400.M....90.S.(#:...)#.
CARDS...*#:....'K$(1)."7A "....'K$(
2)."8A ". ..'K$(3)."9A ".0..'K$(4)."10A"
.@..'K$(5)."BA ".P..'K$(6)."DA ".`..'K$(
7)."KA ".P..'K$(8)."AA "...T'K$(9)."7X "
...V'K$(10)."8X "...X'K$(11)."9X "...Z'K
$(12)."10X".D.|'K$(13)."BX ".U.~'K$(14).
"DX "....'K$(15)."KX "....'K$(16)."AX ".
..X'K$(17)."7Z "...Z'K$(18)."8Z ".*..'K$
(19)."9Z ".;..'K$(20)."10Z".L..'K$(21)."
BZ ".]..'K$(22)."DZ ".N..'K$(23)."KZ ".
..'K$(24)."AZ "...<(K$(25)."7S "...>(K$(
26)."8S "...@(K$(27)."9S ".C.B(K$(28)."1
0S".T.D(K$(29)."BS "...F(K$(30)."DS "...
H(K$(31)."KS "...J(K$(32)."AS "....)....
> CLICK IMAGE PREVIEW FOR FULL MODAL