CRAZY 8'S
FILE INFORMATION
FILENAME(S): CRAZY 8'S
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 01:08:03
APPEARS ON: 2 disk(s)
FILE HASH
62a6d9cdbf100247ce80826acc83ce49fa87bfc43bfa1b09ed473466e75ce889
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | CRAZY 8'S | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 16 | DOWNLOAD FILE |
| S PIELE | CRAZY 8'S | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 07 04 00 00 3A 00 17 04 01 00 8F 20 43 52 |......:...... CR|
00000010: 41 5A 59 20 38 27 53 00 34 04 02 00 8F 20 28 43 |AZY 8'S.4.... (C|
00000020: 29 31 39 38 30 20 42 59 20 4A 4F 48 4E 20 4F 27 |)1980 BY JOHN O'|
00000030: 48 41 52 45 00 3A 04 03 00 3A 00 40 04 04 00 3A |HARE.:...:.@...:|
00000040: 00 60 04 05 00 51 43 B2 31 39 38 3A 51 4C B2 32 |.`...QC.198:QL.2|
00000050: 31 36 3A 51 4B B2 31 35 38 3A 51 50 B2 31 35 31 |16:QK.158:QP.151|
00000060: 00 87 04 06 00 8F 20 51 43 3D 43 55 52 53 4F 52 |...... QC=CURSOR|
00000070: 20 43 4F 4C 55 4D 4E 20 20 51 4C 3D 43 55 52 53 | COLUMN QL=CURS|
00000080: 4F 52 20 4C 49 4E 45 00 9E 04 07 00 8F 20 51 4B |OR LINE...... QK|
00000090: 20 26 20 51 50 20 4E 4F 54 20 55 53 45 44 00 A4 | & QP NOT USED..|
000000A0: 04 08 00 3A 00 AA 04 09 00 3A 00 B3 04 0A 00 99 |...:.....:......|
000000B0: 22 93 22 00 CA 04 14 00 41 24 B2 22 43 52 41 5A |".".....A$."CRAZ|
000000C0: 59 20 45 49 47 48 54 27 53 22 00 D4 04 15 00 8D |Y EIGHT'S"......|
000000D0: 39 30 30 30 00 07 05 19 00 53 24 B2 22 C1 D3 DA |9000.....S$."...|
000000E0: D8 38 A6 D6 2E 22 3A 43 24 B2 22 20 41 20 32 20 |.8...":C$." A 2 |
000000F0: 33 20 34 20 35 20 36 20 37 20 38 20 39 20 31 30 |3 4 5 6 7 8 9 10|
00000100: 4A 20 51 20 4B 20 22 00 19 05 1E 00 41 24 B2 22 |J Q K ".....A$."|
00000110: 42 59 22 3A 8D 39 30 30 30 00 2E 05 28 00 41 24 |BY":.9000...(.A$|
00000120: B2 22 4A 4F 48 4E 20 4F 27 48 41 52 45 22 00 38 |."JOHN O'HARE".8|
00000130: 05 29 00 8D 39 30 30 30 00 43 05 32 00 86 43 28 |.)..9000.C.2..C(|
00000140: 35 32 29 00 57 05 37 00 86 20 50 31 28 35 30 29 |52).W.7.. P1(50)|
00000150: 2C 50 32 28 35 30 29 00 64 05 39 00 86 20 50 33 |,P2(50).d.9.. P3|
00000160: 28 35 30 29 00 92 05 3A 00 83 20 53 50 41 44 45 |(50)...:.. SPADE|
00000170: 53 2C 38 2C 48 45 41 52 54 53 2C 32 31 2C 44 49 |S,8,HEARTS,21,DI|
00000180: 41 4D 4F 4E 44 53 2C 33 34 2C 43 4C 55 42 53 2C |AMONDS,34,CLUBS,|
00000190: 34 37 00 AD 05 3B 00 81 49 B2 31 A4 34 3A 87 53 |47...;..I.1.4:.S|
000001A0: 55 24 28 49 29 2C 53 55 28 49 29 3A 82 00 B8 05 |U$(I),SU(I):....|
000001B0: 3C 00 81 46 B2 31 A4 38 00 D9 05 41 00 41 B2 B5 |<..F.1.8...A.A..|
000001C0: 28 BB 28 31 29 AC 38 29 AA 31 3A 58 B2 C6 28 CA |(.(1).8).1:X..(.|
000001D0: 28 53 24 2C 41 2C 31 29 29 00 09 06 46 00 97 51 |(S$,A,1))...F..Q|
000001E0: 4C 2C B5 28 BB 28 31 29 AC 31 32 29 AA 35 3A 99 |L,.(.(1).12).5:.|
000001F0: 3A 97 51 43 2C B5 28 BB 28 31 29 AC 33 37 29 AA |:.QC,.(.(1).37).|
00000200: 31 3A 8D 38 30 30 30 3A 82 00 1D 06 47 00 97 51 |1:.8000:....G..Q|
00000210: 4C 2C 32 32 3A 99 3A 97 51 43 2C 31 32 00 27 06 |L,22:.:.QC,12.'.|
00000220: 50 00 8D 36 30 30 30 00 2F 06 5A 00 57 B2 31 00 |P..6000./.Z.W.1.|
00000230: 42 06 63 00 8F 20 44 45 41 4C 20 37 20 43 41 52 |B.c.. DEAL 7 CAR|
00000240: 44 53 00 7C 06 64 00 81 49 B2 31 A4 31 34 A9 32 |DS.|.d..I.1.14.2|
00000250: 3A 50 31 B2 50 31 AA 31 3A 50 32 B2 50 32 AA 31 |:P1.P1.1:P2.P2.1|
00000260: 3A 50 31 28 50 31 29 B2 43 28 49 29 3A 50 32 28 |:P1(P1).C(I):P2(|
00000270: 50 32 29 B2 43 28 49 AA 31 29 3A 82 00 8B 06 6E |P2).C(I.1):....n|
00000280: 00 43 31 B2 50 31 AA 50 32 AA 57 00 A3 06 78 00 |.C1.P1.P2.W...x.|
00000290: 54 43 B2 43 28 43 31 29 3A 5A B2 54 43 3A 99 22 |TC.C(C1):Z.TC:."|
000002A0: 93 22 3B 00 B3 06 C8 00 8D 34 30 30 30 3A 8D 33 |.";......4000:.3|
000002B0: 30 30 30 00 E3 06 DC 00 97 51 4C 2C 31 34 3A 99 |000......QL,14:.|
000002C0: 3A 97 51 43 2C 30 3A 85 22 43 41 52 44 20 54 4F |:.QC,0:."CARD TO|
000002D0: 20 50 4C 41 59 20 20 BF 20 20 9D 9D 9D 9D 9D 22 | PLAY . ....."|
000002E0: 3B 50 24 00 F1 06 E1 00 8B 50 24 B2 22 51 22 A7 |;P$......P$."Q".|
000002F0: 80 00 2B 07 E6 00 50 B2 C5 28 50 24 29 3A 8B 50 |..+...P..(P$):.P|
00000300: B2 30 AF 50 24 B3 B1 22 44 22 A7 99 22 91 91 22 |.0.P$.."D"..".."|
00000310: 3A 89 32 32 30 20 20 20 20 20 20 20 20 20 20 20 |:.220 |
00000320: 20 20 20 20 20 20 20 20 20 20 20 00 3C 07 F0 00 | .<...|
00000330: 8B 50 24 B3 B1 22 44 22 A7 33 30 30 00 71 07 FA |.P$.."D".300.q..|
00000340: 00 8F 50 31 3D 50 31 2B 31 3A 43 31 3D 50 31 2B |..P1=P1+1:C1=P1+|
00000350: 50 32 2B 57 3A 49 46 43 31 2B 31 3E 35 32 54 48 |P2+W:IFC1+1>52TH|
00000360: 45 4E 50 31 3D 50 31 2D 31 3A 47 4F 54 4F 33 38 |ENP1=P1-1:GOTO38|
00000370: 30 00 9E 07 FB 00 43 31 B2 50 31 AA 50 32 AA 57 |0.....C1.P1.P2.W|
00000380: 3A 50 31 B2 50 31 AA 31 3A 8B 43 31 AA 31 B1 35 |:P1.P1.1:.C1.1.5|
00000390: 32 A7 50 31 B2 50 31 AB 31 3A 89 33 38 30 00 B3 |2.P1.P1.1:.380..|
000003A0: 07 04 01 8F 20 50 31 28 50 31 29 3D 43 28 43 31 |.... P1(P1)=C(C1|
000003B0: 2B 31 29 00 C6 07 05 01 50 31 28 50 31 29 B2 43 |+1).....P1(P1).C|
000003C0: 28 43 31 AA 31 29 00 CF 07 0E 01 89 32 30 30 00 |(C1.1)......200.|
000003D0: E4 07 2C 01 8B 50 B1 50 31 A7 99 22 91 91 22 3A |..,..P.P1.."..":|
000003E0: 89 32 32 30 00 F6 07 36 01 5A B2 50 31 28 50 29 |.220...6.Z.P1(P)|
000003F0: 3A 8D 35 30 30 30 00 0F 08 40 01 53 37 B2 53 3A |:.5000...@.S7.S:|
00000400: 43 37 B2 43 3A 5A B2 54 43 3A 8D 35 30 30 30 00 |C7.C:Z.TC:.5000.|
00000410: 31 08 4A 01 8B 53 37 B3 B1 53 AF 43 37 B3 B1 43 |1.J..S7..S.C7..C|
00000420: AF 43 37 B3 B1 38 A7 99 22 91 91 22 3A 89 32 32 |.C7..8.."..":.22|
00000430: 30 00 52 08 4F 01 8B 43 37 B3 B1 38 A7 33 37 30 |0.R.O..C7..8.370|
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 00 86 08 54 01 85 22 57 48 41 54 20 53 55 | ...T.."WHAT SU|
00000460: 49 54 20 44 4F 20 59 4F 55 20 44 45 43 4C 41 52 |IT DO YOU DECLAR|
00000470: 45 20 20 BF 9D 9D 9D 22 3B 55 24 3A 55 24 B2 C8 |E ....";U$:U$..|
00000480: 28 55 24 2C 31 29 00 B6 08 5E 01 8B 55 24 B3 B1 |(U$,1)...^..U$..|
00000490: 22 53 22 AF 55 24 B3 B1 22 48 22 AF 55 24 B3 B1 |"S".U$.."H".U$..|
000004A0: 22 44 22 AF 55 24 B3 B1 22 43 22 A7 99 22 91 91 |"D".U$.."C".."..|
000004B0: 22 3A 89 33 34 30 00 C7 08 68 01 8B 55 24 B2 22 |":.340...h..U$."|
000004C0: 53 22 A7 54 43 B2 38 00 DB 08 6A 01 8B 55 24 B2 |S".TC.8...j..U$.|
000004D0: 22 48 22 A7 54 43 B2 38 AA 31 33 00 F2 08 6C 01 |"H".TC.8.13...l.|
000004E0: 8B 55 24 B2 22 44 22 A7 54 43 B2 38 AA 31 33 AA |.U$."D".TC.8.13.|
000004F0: 31 33 00 0C 09 6E 01 8B 55 24 B2 22 43 22 A7 54 |13...n..U$."C".T|
00000500: 43 B2 38 AA 31 33 AA 31 33 AA 31 33 00 16 09 70 |C.8.13.13.13...p|
00000510: 01 89 20 33 37 32 00 23 09 72 01 54 43 B2 50 31 |.. 372.#.r.TC.P1|
00000520: 28 50 29 00 30 09 74 01 57 B2 57 AA 31 20 20 20 |(P).0.t.W.W.1 |
00000530: 00 49 09 77 01 50 31 28 50 29 B2 50 31 28 50 31 |.I.w.P1(P).P1(P1|
00000540: 29 3A 50 31 B2 50 31 AB 31 00 7C 09 7C 01 99 22 |):P1.P1.1.|.|.."|
00000550: 91 91 22 3A 99 22 20 20 20 20 20 20 20 20 20 20 |..":." |
00000560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000570: 20 20 20 20 20 20 20 20 20 20 20 22 00 8C 09 F4 | "....|
00000580: 01 8D 34 30 30 30 3A 8D 33 30 30 30 00 C1 09 26 |..4000:.3000...&|
00000590: 02 97 51 4C 2C 31 34 3A 99 3A 97 51 43 2C 30 3A |..QL,14:.:.QC,0:|
000005A0: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005C0: 22 00 DA 09 3F 02 5A B2 54 43 3A 8D 35 30 30 30 |"...?.Z.TC:.5000|
000005D0: 3A 53 37 B2 53 3A 43 37 B2 43 00 07 0A 44 02 4E |:S7.S:C7.C...D.N|
000005E0: 53 B2 30 3A 81 49 B2 31 A4 50 32 3A 5A B2 50 32 |S.0:.I.1.P2:Z.P2|
000005F0: 28 49 29 3A 8D 35 30 30 30 3A 8B 53 B2 53 37 A7 |(I):.5000:.S.S7.|
00000600: 4E 53 B2 4E 53 AA 31 00 0D 0A 49 02 82 00 19 0A |NS.NS.1...I.....|
00000610: 58 02 81 49 B2 31 A4 50 32 00 2B 0A 62 02 5A B2 |X..I.1.P2.+.b.Z.|
00000620: 50 32 28 49 29 3A 8D 35 30 30 30 00 42 0A 6C 02 |P2(I):.5000.B.l.|
00000630: 8B 43 B2 38 A7 50 33 28 49 29 B2 AB 32 3A 89 36 |.C.8.P3(I)..2:.6|
00000640: 35 30 00 5A 0A 76 02 8B 43 B2 43 37 A7 50 33 28 |50.Z.v..C.C7.P3(|
00000650: 49 29 B2 4E 53 3A 89 36 35 30 00 6E 0A 80 02 8B |I).NS:.650.n....|
00000660: 53 B2 53 37 A7 8D 37 30 30 3A 89 36 35 30 00 7A |S.S7..700:.650.z|
00000670: 0A 85 02 50 33 28 49 29 B2 30 00 80 0A 8A 02 82 |...P3(I).0......|
00000680: 00 B8 0A 94 02 53 43 B2 AB 33 3A 50 4C B2 30 3A |.....SC..3:PL.0:|
00000690: 81 49 B2 31 A4 50 32 3A 8B 50 33 28 49 29 B1 53 |.I.1.P2:.P3(I).S|
000006A0: 43 AF 50 33 28 49 29 B3 B1 30 A7 53 43 B2 50 33 |C.P3(I)..0.SC.P3|
000006B0: 28 49 29 3A 50 4C B2 49 00 BE 0A 99 02 82 00 CD |(I):PL.I........|
000006C0: 0A 9E 02 8B 53 43 B2 AB 33 A7 39 30 30 00 DC 0A |....SC..3.900...|
000006D0: A3 02 8B 53 43 B2 AB 32 A7 37 35 30 00 EF 0A A8 |...SC..2.750....|
000006E0: 02 97 51 4C 2C 31 34 3A 99 3A 97 51 43 2C 30 00 |..QL,14:.:.QC,0.|
000006F0: 26 0B AA 02 99 22 49 20 50 4C 41 59 20 12 22 3B |&...."I PLAY .";|
00000700: 3A 5A B2 50 32 28 50 4C 29 3A 8D 35 30 30 30 3A |:Z.P2(PL):.5000:|
00000710: 99 CA 28 43 24 2C 43 AC 32 2C 32 29 3B CA 28 53 |..(C$,C.2,2);.(S|
00000720: 24 2C 53 2C 31 29 00 50 0B AD 02 54 43 B2 50 32 |$,S,1).P...TC.P2|
00000730: 28 50 4C 29 3A 50 32 28 50 4C 29 B2 50 32 28 50 |(PL):P2(PL).P2(P|
00000740: 32 29 3A 50 32 B2 50 32 AB 31 3A 57 B2 57 AA 31 |2):P2.P2.1:W.W.1|
00000750: 00 7B 0B B2 02 81 44 B2 31 A4 37 35 30 3A 82 3A |.{....D.1.750:.:|
00000760: 99 22 91 91 22 3A 99 22 20 20 20 20 20 20 20 20 |."..":." |
00000770: 20 20 20 20 20 20 20 20 20 20 22 00 84 0B B7 02 | ".....|
00000780: 89 32 30 30 00 B0 0B BC 02 50 33 28 49 29 B2 30 |.200.....P3(I).0|
00000790: 3A 43 54 B2 30 3A 53 38 B2 53 3A 81 4A B2 31 A4 |:CT.0:S8.S:.J.1.|
000007A0: 50 32 3A 5A B2 50 32 28 4A 29 3A 8D 35 30 30 30 |P2:Z.P2(J):.5000|
000007B0: 00 C8 0B C6 02 8B 53 38 B2 53 A7 50 33 28 49 29 |......S8.S.P3(I)|
000007C0: B2 50 33 28 49 29 AA 31 00 D0 0B D0 02 82 3A 8E |.P3(I).1......:.|
000007D0: 00 FB 0B EE 02 81 53 39 B2 31 A4 34 3A 43 54 28 |......S9.1.4:CT(|
000007E0: 53 39 29 B2 30 3A 81 49 B2 31 A4 50 32 3A 5A B2 |S9).0:.I.1.P2:Z.|
000007F0: 50 32 28 49 29 3A 8D 35 30 30 30 00 1A 0C F8 02 |P2(I):.5000.....|
00000800: 8B 53 B2 53 39 AF 43 B3 B1 38 A7 43 54 28 53 39 |.S.S9.C..8.CT(S9|
00000810: 29 B2 43 54 28 53 39 29 AA 31 00 22 0C 02 03 82 |).CT(S9).1."....|
00000820: 3A 82 00 50 0C 0C 03 50 37 B2 30 3A 43 54 B2 AB |:..P...P7.0:CT..|
00000830: 31 3A 81 49 B2 31 A4 34 3A 8B 43 54 28 49 29 B1 |1:.I.1.4:.CT(I).|
00000840: 43 54 A7 43 54 B2 43 54 28 49 29 3A 50 37 B2 49 |CT.CT.CT(I):P7.I|
00000850: 00 56 0C 16 03 82 00 8A 0C 20 03 97 51 4C 2C 31 |.V....... ..QL,1|
00000860: 34 3A 99 3A 97 51 43 2C 30 3A 99 22 49 20 44 45 |4:.:.QC,0:."I DE|
00000870: 43 4C 41 52 45 20 22 3B 53 55 24 28 50 37 29 22 |CLARE ";SU$(P7)"|
00000880: 20 41 53 20 53 55 49 54 2E 22 00 99 0C 25 03 81 | AS SUIT."...%..|
00000890: 44 B2 31 A4 37 35 30 3A 82 00 CD 0C 2A 03 99 22 |D.1.750:....*.."|
000008A0: 91 91 22 3A 99 22 20 20 20 20 20 20 20 20 20 20 |..":." |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 FC 0C | "...|
000008D0: 34 03 54 43 B2 53 55 28 50 37 29 3A 50 32 28 50 |4.TC.SU(P7):P2(P|
000008E0: 4C 29 B2 50 32 28 50 32 29 3A 50 32 B2 50 32 AB |L).P2(P2):P2.P2.|
000008F0: 31 3A 57 B2 57 AA 31 3A 89 32 30 30 00 0F 0D 84 |1:W.W.1:.200....|
00000900: 03 97 51 4C 2C 31 34 3A 99 3A 97 51 43 2C 30 00 |..QL,14:.:.QC,0.|
00000910: 48 0D 86 03 43 31 B2 50 31 AA 50 32 AA 57 3A 8B |H...C1.P1.P2.W:.|
00000920: 43 31 AA 31 B1 35 32 A7 99 22 49 20 43 41 4E 27 |C1.1.52.."I CAN'|
00000930: 54 20 50 4C 41 59 22 3A 81 44 B2 31 A4 37 35 30 |T PLAY":.D.1.750|
00000940: 3A 82 3A 99 22 91 91 22 00 84 0D 89 03 8B 43 31 |:.:.".."......C1|
00000950: AA 31 B1 35 32 A7 99 22 20 20 20 20 20 20 20 20 |.1.52.." |
00000960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000980: 89 32 30 30 00 99 0D 8B 03 99 22 49 20 44 52 41 |.200......"I DRA|
00000990: 57 20 41 20 43 41 52 44 22 00 D7 0D 8E 03 81 44 |W A CARD"......D|
000009A0: B2 31 A4 35 30 30 3A 82 3A 99 22 91 91 22 3A 99 |.1.500:.:."..":.|
000009B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |" "|
000009C0: 3A 50 32 B2 50 32 AA 31 3A 50 32 28 50 32 29 B2 |:P2.P2.1:P2(P2).|
000009D0: 43 28 43 31 AA 31 29 00 E0 0D 98 03 89 36 30 30 |C(C1.1)......600|
000009E0: 00 E6 0D B6 0B 80 00 FD 0D B7 0B 8F 20 44 49 53 |............ DIS|
000009F0: 50 4C 41 59 20 54 4F 50 20 43 41 52 44 00 0C 0E |PLAY TOP CARD...|
00000A00: B8 0B 5A B2 54 43 3A 8D 35 30 30 30 00 2E 0E C2 |..Z.TC:.5000....|
00000A10: 0B 97 51 4C 2C 31 36 3A 99 3A 97 51 43 2C 33 30 |..QL,16:.:.QC,30|
00000A20: 3A 99 22 12 54 4F 50 20 43 41 52 44 92 22 00 4F |:.".TOP CARD.".O|
00000A30: 0E CC 0B 97 51 4C 2C 31 38 3A 99 3A 97 51 43 2C |....QL,18:.:.QC,|
00000A40: 33 32 3A 8D 37 30 30 30 3A 99 22 13 22 3A 8E 00 |32:.7000:.".":..|
00000A50: 55 0E 9B 0F 3A 00 5B 0E 9C 0F 3A 00 61 0E 9D 0F |U...:.[...:.a...|
00000A60: 3A 00 67 0E 9E 0F 3A 00 7A 0E 9F 0F 8F 20 48 41 |:.g...:.z.... HA|
00000A70: 4E 44 20 44 49 53 50 4C 41 59 00 A8 0E A0 0F 99 |ND DISPLAY......|
00000A80: 22 13 22 3B 3A 8F 50 52 49 4E 54 22 13 20 20 20 |".";:.PRINT". |
00000A90: 20 20 20 20 20 20 20 20 12 43 52 41 5A 59 20 45 | .CRAZY E|
00000AA0: 49 47 48 54 27 53 92 22 00 B7 0E A2 0F 43 31 B2 |IGHT'S.".....C1.|
00000AB0: 50 31 AA 50 32 AA 57 00 D8 0E A5 0F 99 22 43 41 |P1.P2.W......"CA|
00000AC0: 52 44 53 20 4C 45 46 54 20 2D 22 3B 35 32 AB 43 |RDS LEFT -";52.C|
00000AD0: 31 3B 22 9D 20 20 22 3B 00 F1 0E A7 0F 99 22 49 |1;". ";......"I|
00000AE0: 4E 20 4D 59 20 48 41 4E 44 22 3B 50 32 22 9D 20 |N MY HAND";P2". |
00000AF0: 22 00 17 0F A8 0F 8B 50 32 B2 30 A7 99 22 11 11 |"......P2.0.."..|
00000B00: 11 11 12 2D 2D 2D 50 45 54 20 57 49 4E 53 21 21 |...---PET WINS!!|
00000B10: 21 2D 2D 2D 22 3A 80 00 3D 0F A9 0F 8B 50 31 B2 |!---":..=....P1.|
00000B20: 30 A7 99 22 11 11 11 11 12 2D 2D 2D 59 4F 55 20 |0..".....---YOU |
00000B30: 57 49 4E 21 21 21 21 2D 2D 2D 22 3A 80 00 4B 0F |WIN!!!!---":..K.|
00000B40: AA 0F 99 3A 81 49 B2 31 A4 50 31 00 5C 0F AB 0F |...:.I.1.P1.\...|
00000B50: 49 24 B2 CA 28 C4 28 49 29 2C 32 29 00 91 0F B4 |I$..(.(I),2)....|
00000B60: 0F 5A B2 50 31 28 49 29 3A 8D 35 30 30 30 3A 99 |.Z.P1(I):.5000:.|
00000B70: 49 24 22 2D 12 22 3B CA 28 43 24 2C 43 AC 32 2C |I$"-.";.(C$,C.2,|
00000B80: 32 29 3B CA 28 53 24 2C 53 2C 31 29 22 92 20 22 |2);.(S$,S,1)". "|
00000B90: 3B 00 A2 0F BE 0F 8B B9 28 30 29 B1 33 33 A7 99 |;.......(0).33..|
00000BA0: 3A 99 00 B4 0F C8 0F 82 3A 99 22 20 20 20 20 20 |:.......:." |
00000BB0: 20 22 3A 99 00 D9 0F CD 0F 97 51 4C 2C 32 30 3A | ":.......QL,20:|
00000BC0: 99 3A 97 51 43 2C 30 3A 99 22 12 38 38 38 38 38 |.:.QC,0:.".88888|
00000BD0: 38 38 38 38 38 38 38 38 22 00 F1 0F CE 0F 99 22 |88888888"......"|
00000BE0: 12 38 92 20 43 52 41 5A 59 20 38 27 53 20 12 38 |.8. CRAZY 8'S .8|
00000BF0: 92 00 08 10 CF 0F 99 22 12 38 38 38 38 38 38 38 |.......".8888888|
00000C00: 38 38 38 38 38 38 92 22 00 0E 10 D2 0F 8E 00 14 |888888."........|
00000C10: 10 83 13 3A 00 1A 10 84 13 3A 00 20 10 85 13 3A |...:.....:. ...:|
00000C20: 00 26 10 86 13 3A 00 4A 10 87 13 8F 20 43 4F 4E |.&...:.J.... CON|
00000C30: 56 45 52 54 20 31 2D 35 32 20 54 4F 20 53 20 41 |VERT 1-52 TO S A|
00000C40: 4E 44 20 43 2F 55 53 45 20 5A 00 5E 10 88 13 53 |ND C/USE Z.^...S|
00000C50: B2 B5 28 28 5A AB 31 29 AD 31 33 29 AA 31 00 70 |..((Z.1).13).1.p|
00000C60: 10 92 13 43 B2 28 5A AA 31 33 29 AB 53 AC 31 33 |...C.(Z.13).S.13|
00000C70: 00 76 10 A6 13 8E 00 7C 10 6B 17 3A 00 82 10 6C |.v.....|.k.:...l|
00000C80: 17 3A 00 88 10 6D 17 3A 00 8E 10 6E 17 3A 00 9C |.:...m.:...n.:..|
00000C90: 10 6F 17 8F 20 53 48 55 46 46 4C 45 00 B1 10 70 |.o.. SHUFFLE...p|
00000CA0: 17 99 22 53 48 55 46 46 4C 49 4E 47 2E 2E 2E 2E |.."SHUFFLING....|
00000CB0: 22 00 BD 10 7A 17 81 49 B2 31 A4 35 32 00 C8 10 |"...z..I.1.52...|
00000CC0: 84 17 43 28 49 29 B2 49 00 CF 10 8E 17 82 49 00 |..C(I).I......I.|
00000CD0: DB 10 98 17 81 49 B2 31 A4 35 32 00 EE 10 A2 17 |.....I.1.52.....|
00000CE0: 4A B2 B5 28 BB 28 31 29 AC 35 32 29 AA 31 00 FC |J..(.(1).52).1..|
00000CF0: 10 AC 17 54 45 4D 50 B2 43 28 4A 29 00 0A 11 B6 |...TEMP.C(J)....|
00000D00: 17 43 28 4A 29 B2 43 28 49 29 00 18 11 C0 17 43 |.C(J).C(I).....C|
00000D10: 28 49 29 B2 54 45 4D 50 00 1F 11 CA 17 82 49 00 |(I).TEMP......I.|
00000D20: 25 11 D4 17 8E 00 2B 11 53 1B 3A 00 31 11 54 1B |%.....+.S.:.1.T.|
00000D30: 3A 00 37 11 55 1B 3A 00 3D 11 56 1B 3A 00 7D 11 |:.7.U.:.=.V.:.}.|
00000D40: 57 1B 8F 20 44 52 41 57 20 43 41 52 44 20 4F 4E |W.. DRAW CARD ON|
00000D50: 20 53 43 52 45 45 4E 2C 20 47 49 56 45 4E 3A 20 | SCREEN, GIVEN: |
00000D60: 20 20 20 20 20 20 20 20 20 20 20 20 53 3D 53 55 | S=SU|
00000D70: 49 54 20 41 4E 44 20 43 3D 43 41 52 44 00 9E 11 |IT AND C=CARD...|
00000D80: 58 1B 99 22 12 22 3B CA 28 43 24 2C 43 AC 32 2C |X..".";.(C$,C.2,|
00000D90: 32 29 3B 22 20 22 3B 22 11 9D 9D 9D 22 3B 00 B3 |2);" ";"....";..|
00000DA0: 11 62 1B 99 22 12 20 20 20 92 22 3B 22 11 9D 9D |.b..". .";"...|
00000DB0: 9D 22 3B 00 D4 11 6C 1B 99 22 12 20 22 3B CA 28 |.";...l..". ";.(|
00000DC0: 53 24 2C 53 2C 31 29 3B 22 20 92 22 3B 22 11 9D |S$,S,1);" .";"..|
00000DD0: 9D 9D 22 3B 00 E9 11 76 1B 99 22 12 20 20 20 92 |..";...v..". .|
00000DE0: 22 3B 22 11 9D 9D 9D 22 3B 00 F8 11 80 1B 8B 43 |";"....";......C|
00000DF0: B2 31 30 A7 37 30 36 30 00 15 12 8A 1B 99 22 12 |.10.7060......".|
00000E00: 20 20 22 3B CA 28 43 24 2C 43 AC 32 2C 31 29 3A | ";.(C$,C.2,1):|
00000E10: 89 37 30 37 30 00 22 12 94 1B 99 22 12 20 31 30 |.7070."....". 10|
00000E20: 92 22 00 28 12 9E 1B 8E 00 2E 12 3B 1F 3A 00 34 |.".(.......;.:.4|
00000E30: 12 3C 1F 3A 00 3A 12 3D 1F 3A 00 40 12 3E 1F 3A |.<.:.:.=.:.@.>.:|
00000E40: 00 4F 12 3F 1F 8F 20 44 52 41 57 20 38 27 53 00 |.O.?.. DRAW 8'S.|
00000E50: 81 12 40 1F 81 49 B2 31 A4 33 3A 99 C7 28 58 29 |..@..I.1.3:..(X)|
00000E60: 3B 3A 82 3A 99 22 11 9D 9D 9D 22 3B C7 28 58 29 |;:.:."....";.(X)|
00000E70: 3B 22 20 22 3B C7 28 58 29 3B 22 11 9D 9D 9D 22 |;" ";.(X);"...."|
00000E80: 3B 00 B2 12 4A 1F 81 49 B2 31 A4 33 3A 99 C7 28 |;...J..I.1.3:..(|
00000E90: 58 29 3B 3A 82 3A 99 22 11 9D 9D 9D 22 3B C7 28 |X);:.:."....";.(|
00000EA0: 58 29 22 20 22 3B C7 28 58 29 3B 22 11 9D 9D 9D |X)" ";.(X);"....|
00000EB0: 22 3B 00 CA 12 54 1F 81 49 B2 31 A4 33 3A 99 C7 |";...T..I.1.3:..|
00000EC0: 28 58 29 3B 3A 82 3A 99 3A 8E 00 D0 12 23 23 3A |(X);:.:.:....##:|
00000ED0: 00 D6 12 24 23 3A 00 DC 12 25 23 3A 00 E2 12 26 |...$#:...%#:...&|
00000EE0: 23 3A 00 F2 12 27 23 8F 20 43 45 4E 54 45 52 20 |#:...'#. CENTER |
00000EF0: 41 24 00 07 13 28 23 99 A3 32 30 AB C3 28 41 24 |A$...(#..20..(A$|
00000F00: 29 AD 32 29 3B 41 24 00 0D 13 32 23 8E 00 13 13 |).2);A$...2#....|
00000F10: 0B 27 3A 00 19 13 0C 27 3A 00 1F 13 0D 27 3A 00 |.':....':....':.|
00000F20: 25 13 0E 27 3A 00 3A 13 0F 27 8F 20 45 4E 44 20 |%..':.:..'. END |
00000F30: 4F 46 20 50 52 4F 47 52 41 4D 00 00 00 |OF PROGRAM... |
......:...... CRAZY 8'S.4.... (C)1980 BY
JOHN O'HARE.:...:.@...:.`...QC.198:QL.2
16:QK.158:QP.151...... QC=CURSOR COLUMN
QL=CURSOR LINE...... QK & QP NOT USED..
...:.....:......".".J...A$."CRAZY EIGHT'
S".T....9000.....S$."ASZX8.V.":C$." A 2
3 4 5 6 7 8 9 10J Q K ".....A$."BY":.900
0...(.A$."JOHN O'HARE".8.)..9000.C.2..C(
52).W.7.. P1(50),P2(50).D.9.. P3(50)...:
.. SPADES,8,HEARTS,21,DIAMONDS,34,CLUBS,
47...;..I.1.4:.SU$(I),SU(I):....<..F.1.8
.Y.A.A..(.(1).8).1:X.F(J(S$,A,1))...F..Q
L,.(.(1).12).5:.:.QC,.(.(1).37).1:.8000:
....G..QL,22:.:.QC,12.'.P..6000./.Z.W.1.
B.C.. DEAL 7 CARDS.|.D..I.1.14.2:P1.P1.1
:P2.P2.1:P1(P1).C(I):P2(P2).C(I.1):....N
.C1.P1.P2.W...X.TC.C(C1):Z.TC:.".";...H.
.4000:.3000......QL,14:.:.QC,0:."CARD TO
PLAY . .....";P$......P$."Q"...+...P.
E(P$):.P.0.P$.."D".."..":.220
.<....P$.."D".300.Q....P1=P1+
1:C1=P1+P2+W:IFC1+1>52THENP1=P1-1:GOTO38
0.....C1.P1.P2.W:P1.P1.1:.C1.1.52.P1.P1.
1:.380...... P1(P1)=C(C1+1).F...P1(P1).C
(C1.1).O....200...,..P.P1.."..":.220...6
.Z.P1(P):.5000...@.S7.S:C7.C:Z.TC:.5000.
1.J..S7..S.C7..C.C7..8.."..":.220.R.O..C
7..8.370 ...T.."WHAT SU
IT DO YOU DECLARE ....";U$:U$.H(U$,1)..
.^..U$.."S".U$.."H".U$.."D".U$.."C".."..
":.340.G.H..U$."S".TC.8...J..U$."H".TC.8
.13...L..U$."D".TC.8.13.13...N..U$."C".T
C.8.13.13.13...P.. 372.#.R.TC.P1(P).0.T.
W.W.1 .I.W.P1(P).P1(P1):P1.P1.1.|.|.."
..":."
"......4000:.3000.A.&..QL,14:.:.QC,0:
." ".Z.?.Z.
TC:.5000:S7.S:C7.C...D.NS.0:.I.1.P2:Z.P2
(I):.5000:.S.S7.NS.NS.1...I.....X..I.1.P
2.+.B.Z.P2(I):.5000.B.L..C.8.P3(I)..2:.6
50.Z.V..C.C7.P3(I).NS:.650.N....S.S7..70
0:.650.Z...P3(I).0...........SC..3:PL.0:
.I.1.P2:.P3(I).SC.P3(I)..0.SC.P3(I):PL.I
.......M....SC..3.900......SC..2.750....
..QL,14:.:.QC,0.&...."I PLAY .";:Z.P2(PL
):.5000:.J(C$,C.2,2);J(S$,S,1).P...TC.P2
(PL):P2(PL).P2(P2):P2.P2.1:W.W.1.{....D.
1.750:.:."..":." ".....
.200.....P3(I).0:CT.0:S8.S:.J.1.P2:Z.P2(
J):.5000.H.F..S8.S.P3(I).P3(I).1.P.P..:.
......S9.1.4:CT(S9).0:.I.1.P2:Z.P2(I):.5
000......S.S9.C..8.CT(S9).CT(S9).1."....
:..P...P7.0:CT..1:.I.1.4:.CT(I).CT.CT.CT
(I):P7.I.V....... ..QL,14:.:.QC,0:."I DE
CLARE ";SU$(P7)" AS SUIT."...%..D.1.750:
..M.*.."..":."
"...4.TC.SU(P7):P2(PL).P2(P2
):P2.P2.1:W.W.1:.200......QL,14:.:.QC,0.
H...C1.P1.P2.W:.C1.1.52.."I CAN'T PLAY":
.D.1.750:.:.".."......C1.1.52.."
":.200....
.."I DRAW A CARD".W....D.1.500:.:."..":.
" ":P2.P2.1:P2(P2).C(C1.1).
.....600............ DISPLAY TOP CARD...
..Z.TC:.5000...B..QL,16:.:.QC,30:.".TOP
CARD.".O.L..QL,18:.:.QC,32:.7000:.".":..
U...:.[...:.A...:.G...:.Z.... HAND DISPL
AY... ..".";:.PRINT". .CRAZY E
IGHT'S.".....C1.P1.P2.W.X...."CARDS LEFT
-";52.C1;". ";......"IN MY HAND";P2".
"......P2.0..".....---PET WINS!!!---":..
=....P1.0..".....---YOU WIN!!!!---":..K.
...:.I.1.P1.\...I$.J(D(I),2).....Z.P1(I)
:.5000:.I$"-.";J(C$,C.2,2);J(S$,S,1)". "
;.......(0).33..:....H..:." ":..Y.M
..QL,20:.:.QC,0:.".8888888888888"...N.."
.8. CRAZY 8'S .8....O..".8888888888888."
...R.......:.....:. ...:.&...:.J.... CON
VERT 1-52 TO S AND C/USE Z.^...S..((Z.1)
.13).1.P...C.(Z.13).S.13.V.....|.K.:...L
.:...M.:...N.:...O.. SHUFFLE...P.."SHUFF
LING...."...Z..I.1.52.H...C(I).I.O....I.
.....I.1.52.....J..(.(1).52).1.....TEMP.
C(J).....C(J).C(I).....C(I).TEMP...J..I.
%.T...+.S.:.1.T.:.7.U.:.=.V.:.}.W.. DRAW
CARD ON SCREEN, GIVEN: S=SU
IT AND C=CARD...X..".";J(C$,C.2,2);" ";"
....";...B..". .";"....";.T.L..". ";J(
S$,S,1);" .";"....";...V..". .";"...."
;......C.10.7060......". ";J(C$,C.2,1):
.7070."....". 10.".(.......;.:.4.<.:.:.=
.:.@.>.:.O.?.. DRAW 8'S...@..I.1.3:.G(X)
;:.:."....";G(X);" ";G(X);"....";...J..I
.1.3:.G(X);:.:."....";G(X)" ";G(X);"....
";.J.T..I.1.3:.G(X);:.:.:..P.##:.V.$#:..
.%#:...&#:...'#. CENTER A$...(#..20.C(A$
).2);A$...2#.....':....':....':.%..':.:.
.'. END OF PROGRAM...
> CLICK IMAGE PREVIEW FOR FULL MODAL