CRIBBAGE SOL
FILE INFORMATION
FILENAME(S): CRIBBAGE SOL
FILE TYPE(S): PRG
FILE SIZE: 13.1K
FIRST SEEN: 2025-10-19 22:49:51
APPEARS ON: 1 disk(s)
FILE HASH
05b582df24a40d106084b4711f6e7e0f151e597cc37ae25231e08cfa58940d2c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR GAMES | CRIBBAGE SOL | PRG | Radd Maxx | 2 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3B |**************.;|
00000020: 08 0C 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * |
00000030: 20 20 20 20 20 20 20 20 20 20 2A 00 58 08 0E 00 | *.X...|
00000040: 8F 20 2A 20 43 52 49 42 42 41 47 45 20 53 4F 4C |. * CRIBBAGE SOL|
00000050: 49 54 41 49 52 45 20 2A 00 75 08 0F 00 8F 20 2A |ITAIRE *.u.... *|
00000060: 20 20 20 28 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 | (COMMODORE 64|
00000070: 29 20 20 20 2A 00 92 08 10 00 8F 20 2A 20 20 20 |) *...... * |
00000080: 20 20 20 20 20 42 59 20 20 20 20 20 20 20 20 20 | BY |
00000090: 20 2A 00 AF 08 11 00 8F 20 2A 20 43 48 52 49 53 | *...... * CHRIS|
000000A0: 20 43 4F 4E 53 54 41 4E 54 49 4E 4F 55 20 2A 00 | CONSTANTINOU *.|
000000B0: CC 08 12 00 8F 20 2A 20 20 20 46 45 42 52 55 41 |..... * FEBRUA|
000000C0: 52 59 20 31 39 38 34 20 20 20 20 2A 00 E9 08 13 |RY 1984 *....|
000000D0: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * |
000000E0: 20 20 20 20 20 20 20 20 2A 00 06 09 14 00 8F 20 | *...... |
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000100: 2A 2A 2A 2A 2A 2A 00 18 09 46 00 4C 48 B2 39 39 |******...F.LH.99|
00000110: 39 3A 4C 43 B2 39 39 39 00 30 09 50 00 97 35 33 |9:LC.999.0.P..53|
00000120: 32 38 30 2C 31 31 3A 97 35 33 32 38 31 2C 31 35 |280,11:.53281,15|
00000130: 00 4A 09 5A 00 96 20 A5 42 28 58 29 B2 B5 28 58 |.J.Z.. .B(X)..(X|
00000140: AC 31 30 AA 2E 35 29 AD 31 30 00 76 09 5F 00 97 |.10..5).10.v._..|
00000150: 35 34 32 39 36 2C 31 35 3A 97 35 34 32 37 37 2C |54296,15:.54277,|
00000160: 36 38 3A 97 35 34 32 37 33 2C 36 33 3A 97 35 34 |68:.54273,63:.54|
00000170: 32 37 32 2C 37 35 00 A3 09 6E 00 86 41 28 35 34 |272,75...n..A(54|
00000180: 29 2C 44 45 28 35 34 29 2C 41 24 28 31 31 29 2C |),DE(54),A$(11),|
00000190: 52 52 24 28 31 33 29 2C 56 28 31 33 29 2C 52 28 |RR$(13),V(13),R(|
000001A0: 31 33 29 00 BA 09 78 00 81 49 B2 31 A4 31 33 3A |13)...x..I.1.13:|
000001B0: 87 52 52 24 28 49 29 3A 82 49 00 CF 09 82 00 81 |.RR$(I):.I......|
000001C0: 49 B2 31 A4 31 33 3A 87 56 28 49 29 3A 82 49 00 |I.1.13:.V(I):.I.|
000001D0: E4 09 87 00 81 49 B2 31 A4 31 33 3A 87 52 28 49 |.....I.1.13:.R(I|
000001E0: 29 3A 82 49 00 05 0A 8C 00 83 20 41 2C 32 2C 33 |):.I...... A,2,3|
000001F0: 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 2C 31 30 2C |,4,5,6,7,8,9,10,|
00000200: 4A 2C 51 2C 4B 00 29 0A 96 00 83 20 31 2C 32 2C |J,Q,K.).... 1,2,|
00000210: 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C 39 2C 31 30 |3,4,5,6,7,8,9,10|
00000220: 2C 31 30 2C 31 30 2C 31 30 00 4D 0A 9B 00 83 20 |,10,10,10.M.... |
00000230: 31 2C 32 2C 33 2C 34 2C 35 2C 36 2C 37 2C 38 2C |1,2,3,4,5,6,7,8,|
00000240: 39 2C 31 30 2C 31 31 2C 31 32 2C 31 33 00 83 0A |9,10,11,12,13...|
00000250: A0 00 99 22 93 1C 11 11 11 20 12 20 20 20 20 20 |..."..... . |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 92 22 00 B4 0A A1 00 99 22 20 12 20 20 20 20 | ."......" . |
00000290: 20 20 20 20 20 20 43 52 49 42 42 41 47 45 20 53 | CRIBBAGE S|
000002A0: 4F 4C 49 54 41 49 52 45 20 20 20 20 20 20 20 20 |OLITAIRE |
000002B0: 20 20 92 22 00 E5 0A A2 00 99 22 20 12 20 20 20 | ."......" . |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002E0: 20 20 20 92 22 00 0E 0B A4 00 99 22 11 11 11 11 | ."......"....|
000002F0: 20 20 20 20 20 20 20 20 20 20 20 44 4F 20 59 4F | DO YO|
00000300: 55 20 57 49 53 48 20 54 4F 20 53 45 45 22 00 22 |U WISH TO SEE"."|
00000310: 0B A5 00 99 A3 31 36 29 22 11 50 4C 41 59 49 4E |.....16)".PLAYIN|
00000320: 47 22 00 46 0B A7 00 99 A3 31 30 29 22 11 11 11 |G".F.....10)"...|
00000330: 11 CF B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000340: B7 B7 B7 B7 D0 22 00 66 0B A8 00 99 A3 31 30 29 |.....".f.....10)|
00000350: 22 A5 49 46 20 59 45 53 2C 45 4E 54 45 52 20 59 |".IF YES,ENTER Y|
00000360: 20 4F 52 20 A7 22 00 88 0B AA 00 99 A3 31 30 29 | OR .".......10)|
00000370: 22 A5 48 49 54 20 12 52 45 54 55 52 4E 92 20 54 |".HIT .RETURN. T|
00000380: 4F 20 50 4C 41 59 A7 22 00 A8 0B AB 00 99 A3 31 |O PLAY.".......1|
00000390: 30 29 22 CC AF AF AF AF AF AF AF AF AF AF AF AF |0)".............|
000003A0: AF AF AF AF AF AF BA 22 00 D8 0B AD 00 85 22 91 |......."......".|
000003B0: 91 91 91 91 91 91 20 20 20 20 20 20 20 20 20 20 |...... |
000003C0: 20 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 20 | INSTRUCTIONS |
000003D0: 4E 9D 9D 9D 22 3B 41 24 00 EF 0B AF 00 8B C8 28 |N...";A$.......(|
000003E0: 41 24 2C 31 29 B2 22 59 22 A7 8D 32 36 30 30 00 |A$,1)."Y"..2600.|
000003F0: 23 0C B2 00 99 22 93 1C 11 20 12 20 20 20 20 20 |#...."... . |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 92 22 00 54 0C B3 00 99 22 20 12 20 20 20 20 | .".T...." . |
00000430: 20 20 20 20 20 20 43 52 49 42 42 41 47 45 20 53 | CRIBBAGE S|
00000440: 4F 4C 49 54 41 49 52 45 20 20 20 20 20 20 20 20 |OLITAIRE |
00000450: 20 20 92 22 00 85 0C B4 00 99 22 20 12 20 20 20 | ."......" . |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 92 22 00 B5 0C B5 00 99 22 11 11 11 11 | ."......"....|
00000490: 11 11 11 20 20 20 20 20 20 53 48 55 46 46 4C 49 |... SHUFFLI|
000004A0: 4E 47 20 54 48 45 20 44 45 43 4B 20 4F 46 20 43 |NG THE DECK OF C|
000004B0: 41 52 44 53 22 00 CF 0C B6 00 99 A3 31 33 29 22 |ARDS".......13)"|
000004C0: 11 49 53 20 49 4E 20 50 52 4F 43 45 53 53 22 00 |.IS IN PROCESS".|
000004D0: 01 0D B9 00 81 49 B2 31 A4 35 32 3A 41 28 49 29 |.....I.1.52:A(I)|
000004E0: B2 49 3A 82 49 3A 49 B2 31 3A 43 43 B2 30 3A 53 |.I:.I:I.1:CC.0:S|
000004F0: B2 31 3A 47 54 B2 30 3A 48 4C B2 30 3A 43 4C B2 |.1:GT.0:HL.0:CL.|
00000500: 30 00 28 0D BE 00 81 57 B2 31 A4 36 3A 8F 20 44 |0.(....W.1.6:. D|
00000510: 45 41 4C 20 52 41 4E 44 4F 4D 20 43 41 52 44 53 |EAL RANDOM CARDS|
00000520: 20 54 4F 20 43 52 49 42 00 3A 0D C8 00 43 44 B2 | TO CRIB.:...CD.|
00000530: 30 3A 81 49 B2 49 A4 49 AA 31 00 60 0D DC 00 8D |0:.I.I.I.1.`....|
00000540: 31 30 30 35 3A 8F 20 44 45 41 4C 20 52 41 4E 44 |1005:. DEAL RAND|
00000550: 4F 4D 20 43 41 52 44 53 20 54 4F 20 43 52 49 42 |OM CARDS TO CRIB|
00000560: 00 72 0D E6 00 8B 44 45 28 49 29 B1 33 39 A7 32 |.r....DE(I).39.2|
00000570: 37 30 00 84 0D F0 00 8B 44 45 28 49 29 B1 32 36 |70......DE(I).26|
00000580: A7 32 38 30 00 96 0D FA 00 8B 44 45 28 49 29 B1 |.280......DE(I).|
00000590: 31 33 A7 32 39 30 00 B3 0D 04 01 52 B2 44 45 28 |13.290.....R.DE(|
000005A0: 49 29 3A 53 43 24 28 43 44 29 B2 22 D3 22 3A 89 |I):SC$(CD).".":.|
000005B0: 32 39 35 00 D3 0D 0E 01 52 B2 44 45 28 49 29 AB |295.....R.DE(I).|
000005C0: 33 39 3A 53 43 24 28 43 44 29 B2 22 C1 22 3A 89 |39:SC$(CD).".":.|
000005D0: 32 39 35 00 F3 0D 18 01 52 B2 44 45 28 49 29 AB |295.....R.DE(I).|
000005E0: 32 36 3A 53 43 24 28 43 44 29 B2 22 D8 22 3A 89 |26:SC$(CD).".":.|
000005F0: 32 39 35 00 0E 0E 22 01 52 B2 44 45 28 49 29 AB |295...".R.DE(I).|
00000600: 31 33 3A 53 43 24 28 43 44 29 B2 22 DA 22 00 3C |13:SC$(CD).".".<|
00000610: 0E 27 01 52 43 24 28 43 44 29 B2 52 52 24 28 52 |.'.RC$(CD).RR$(R|
00000620: 29 3A 52 43 28 43 44 29 B2 52 28 52 29 3A 56 43 |):RC(CD).R(R):VC|
00000630: 28 43 44 29 B2 56 28 52 29 3A 82 49 00 54 0E 8B |(CD).V(R):.I.T..|
00000640: 01 8F 20 2A 2A 2A 20 44 45 41 4C 20 48 41 4E 44 |.. *** DEAL HAND|
00000650: 20 2A 2A 2A 00 66 0E 90 01 43 44 B2 30 3A 81 49 | ***.f...CD.0:.I|
00000660: B2 49 A4 49 AA 35 00 8A 0E 9A 01 8D 31 30 30 35 |.I.I.5......1005|
00000670: 3A 8F 20 2A 2A 20 44 45 41 4C 20 52 41 4E 44 4F |:. ** DEAL RANDO|
00000680: 4D 20 43 41 52 44 53 20 2A 2A 00 9C 0E A4 01 8B |M CARDS **......|
00000690: 44 45 28 49 29 B1 33 39 A7 34 36 30 00 AE 0E AE |DE(I).39.460....|
000006A0: 01 8B 44 45 28 49 29 B1 32 36 A7 34 37 30 00 C0 |..DE(I).26.470..|
000006B0: 0E B8 01 8B 44 45 28 49 29 B1 31 33 A7 34 38 30 |....DE(I).13.480|
000006C0: 00 DC 0E C2 01 52 B2 44 45 28 49 29 3A 53 24 28 |.....R.DE(I):S$(|
000006D0: 43 44 29 B2 22 D3 22 3A 89 34 38 35 00 FB 0E CC |CD).".":.485....|
000006E0: 01 52 B2 44 45 28 49 29 AB 33 39 3A 53 24 28 43 |.R.DE(I).39:S$(C|
000006F0: 44 29 B2 22 C1 22 3A 89 34 38 35 00 1A 0F D6 01 |D).".":.485.....|
00000700: 52 B2 44 45 28 49 29 AB 32 36 3A 53 24 28 43 44 |R.DE(I).26:S$(CD|
00000710: 29 B2 22 D8 22 3A 89 34 38 35 00 34 0F E0 01 52 |).".":.485.4...R|
00000720: B2 44 45 28 49 29 AB 31 33 3A 53 24 28 43 44 29 |.DE(I).13:S$(CD)|
00000730: B2 22 DA 22 00 5E 0F E5 01 52 24 28 43 44 29 B2 |.".".^...R$(CD).|
00000740: 52 52 24 28 52 29 3A 52 48 28 43 44 29 B2 52 28 |RR$(R):RH(CD).R(|
00000750: 52 29 3A 56 48 28 43 44 29 B2 56 28 52 29 00 6C |R):VH(CD).V(R).l|
00000760: 0F EA 01 8B 49 B2 35 33 A7 34 39 34 00 75 0F EC |....I.53.494.u..|
00000770: 01 89 35 30 30 00 B0 0F EE 01 52 24 28 36 29 B2 |..500.....R$(6).|
00000780: 54 52 24 28 31 29 3A 53 24 28 36 29 B2 54 53 24 |TR$(1):S$(6).TS$|
00000790: 28 31 29 3A 52 48 28 36 29 B2 54 52 28 31 29 3A |(1):RH(6).TR(1):|
000007A0: 56 48 28 36 29 B2 54 56 28 31 29 3A 49 B2 35 34 |VH(6).TV(1):I.54|
000007B0: 00 B7 0F F4 01 82 49 00 EA 0F 58 02 99 22 93 22 |......I...X.."."|
000007C0: 3A 43 43 B2 30 3A 44 B2 36 3A 8D 31 30 34 35 3A |:CC.0:D.6:.1045:|
000007D0: 8F 20 2A 2A 20 53 4F 52 54 20 48 41 4E 44 20 4F |. ** SORT HAND O|
000007E0: 46 20 43 41 52 44 53 20 2A 2A 00 F5 0F 62 02 81 |F CARDS **...b..|
000007F0: 4C B2 31 A4 36 00 13 10 6C 02 52 24 B2 52 24 28 |L.1.6...l.R$.R$(|
00000800: 4C 29 3A 53 24 B2 53 24 28 4C 29 3A 52 B2 52 48 |L):S$.S$(L):R.RH|
00000810: 28 4C 29 00 2D 10 76 02 43 24 B2 22 22 3A 8B 52 |(L).-.v.C$."":.R|
00000820: 24 B2 22 31 30 22 A7 43 24 B2 22 9D 22 00 53 10 |$."10".C$.".".S.|
00000830: 80 02 8D 31 32 31 35 3A 8F 20 2A 2A 20 42 55 49 |...1215:. ** BUI|
00000840: 4C 44 20 47 52 41 50 48 49 43 53 20 5A 4F 4E 45 |LD GRAPHICS ZONE|
00000850: 20 2A 2A 00 9B 10 8A 02 91 52 8D 31 33 30 30 2C | **......R.1300,|
00000860: 31 33 35 30 2C 31 34 30 30 2C 31 34 35 30 2C 31 |1350,1400,1450,1|
00000870: 35 30 30 2C 31 35 35 30 2C 31 36 30 30 2C 31 36 |500,1550,1600,16|
00000880: 35 30 2C 31 37 30 30 2C 31 37 35 30 2C 31 38 30 |50,1700,1750,180|
00000890: 30 2C 31 38 35 30 2C 31 39 30 30 00 B2 10 8E 02 |0,1850,1900.....|
000008A0: 8F 20 2A 2A 20 50 52 49 4E 54 20 43 41 52 44 20 |. ** PRINT CARD |
000008B0: 2A 2A 00 D3 10 94 02 99 22 1F 22 3B 3A 8B 4C B3 |**......".";:.L.|
000008C0: 34 A7 54 42 B2 43 43 AC 38 AA 34 3A 99 A3 54 42 |4.TB.CC.8.4:..TB|
000008D0: 29 3B 4C 00 F1 10 95 02 8B 53 24 B2 22 D3 22 B0 |);L......S$.".".|
000008E0: 53 24 B2 22 DA 22 A7 99 22 1C 22 3B 3A 89 36 36 |S$."."..".";:.66|
000008F0: 33 00 FB 10 96 02 99 22 90 22 3B 00 08 11 97 02 |3......".";.....|
00000900: 8B 4C B3 34 A7 36 36 36 00 1E 11 98 02 8B 4C B2 |.L.4.666......L.|
00000910: 34 A7 43 43 B2 30 3A 99 22 11 11 11 11 22 00 2D |4.CC.0:."....".-|
00000920: 11 99 02 54 42 B2 43 43 AC 38 AA 31 30 00 64 11 |...TB.CC.8.10.d.|
00000930: 9A 02 97 35 34 32 37 36 2C 31 32 39 3A 81 4A B2 |...54276,129:.J.|
00000940: 31 A4 31 31 3A 99 A3 54 42 29 3B 41 24 28 4A 29 |1.11:..TB);A$(J)|
00000950: 3A 82 4A 3A 99 22 1F 22 3B 3A 97 35 34 32 37 36 |:.J:.".";:.54276|
00000960: 2C 31 32 38 00 75 11 9B 02 8B 4C B1 33 A7 99 A3 |,128.u....L.3...|
00000970: 54 42 29 3B 4C 00 AE 11 9C 02 43 43 B2 43 43 AA |TB);L.....CC.CC.|
00000980: 31 3A 99 22 91 91 91 91 91 91 91 91 91 91 91 91 |1:."............|
00000990: 91 22 3A 82 4C 3A 99 22 13 11 22 A3 33 30 29 22 |.":.L:."..".30)"|
000009A0: 12 48 41 4E 44 22 57 22 9D 9D 9D 23 92 22 00 CB |.HAND"W"...#."..|
000009B0: 11 9E 02 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
000009C0: 11 11 11 11 11 11 11 11 11 22 3B 00 E9 11 9F 02 |.........";.....|
000009D0: 99 A3 31 31 29 22 53 45 4C 45 43 54 20 32 20 43 |..11)"SELECT 2 C|
000009E0: 41 52 44 53 20 46 4F 52 22 00 FA 11 A0 02 99 A3 |ARDS FOR".......|
000009F0: 31 31 29 22 43 52 49 42 2E 22 00 17 12 A1 02 99 |11)"CRIB."......|
00000A00: A3 31 31 29 22 11 47 41 4D 45 20 50 4F 49 4E 54 |.11)".GAME POINT|
00000A10: 53 3A 97 22 3B 47 54 00 42 12 A2 02 99 A3 31 38 |S:.";GT.B.....18|
00000A20: 29 22 91 91 91 1C 31 53 54 3A 1F 20 A4 20 20 20 |)"....1ST:. . |
00000A30: 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ..........|
00000A40: 22 3B 00 68 12 A3 02 97 31 39 38 2C 30 3A 92 31 |";.h....198,0:.1|
00000A50: 39 38 2C 31 3A A1 43 31 24 3A 8B 43 31 24 B2 22 |98,1:.C1$:.C1$."|
00000A60: 30 22 A7 36 33 30 30 30 00 83 12 A4 02 8B C5 28 |0".63000.......(|
00000A70: 43 31 24 29 B3 31 B0 C5 28 43 31 24 29 B1 36 A7 |C1$).1..(C1$).6.|
00000A80: 36 37 35 00 89 12 A5 02 3A 00 AA 12 A6 02 99 43 |675.....:......C|
00000A90: 31 24 22 20 20 1C 32 4E 44 3A 1F 20 A4 9D 22 3B |1$" .2ND:. ..";|
00000AA0: 3A 43 31 B2 C5 28 43 31 24 29 00 D2 12 A7 02 A1 |:C1..(C1$)......|
00000AB0: 43 32 24 3A 8B C5 28 43 32 24 29 B3 31 B0 C5 28 |C2$:..(C2$).1..(|
00000AC0: 43 32 24 29 B1 36 B0 43 32 24 B2 43 31 24 A7 36 |C2$).6.C2$.C1$.6|
00000AD0: 37 39 00 E5 12 A8 02 99 43 32 24 3A 43 32 B2 C5 |79......C2$:C2..|
00000AE0: 28 43 32 24 29 00 2E 13 AB 02 99 22 13 11 11 11 |(C2$)......"....|
00000AF0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000B00: 11 11 11 11 11 20 20 20 20 20 DA 20 48 49 54 20 |..... . HIT |
00000B10: 1C 12 3C 52 45 54 55 52 4E 3E 92 1F 20 54 4F 20 |..<RETURN>.. TO |
00000B20: 53 43 4F 52 45 20 48 41 4E 44 20 DA 22 3B 00 41 |SCORE HAND .";.A|
00000B30: 13 AD 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 38 |....A$:.A$."".68|
00000B40: 35 00 5D 13 AE 02 8B 41 24 B2 C7 28 32 30 29 B0 |5.]....A$..(20).|
00000B50: 41 24 B2 C7 28 31 35 37 29 A7 36 37 30 00 70 13 |A$..(157).670.p.|
00000B60: AF 02 8B 41 24 B3 B1 C7 28 31 33 29 A7 36 38 35 |...A$...(13).685|
00000B70: 00 84 13 B2 02 43 44 B2 33 3A 4B B2 31 3A 81 4A |.....CD.3:K.1:.J|
00000B80: B2 31 A4 36 00 C1 13 B7 02 8B 4A B2 43 31 B0 4A |.1.6......J.C1.J|
00000B90: B2 43 32 A7 52 43 24 28 43 44 29 B2 52 24 28 4A |.C2.RC$(CD).R$(J|
00000BA0: 29 3A 53 43 24 28 43 44 29 B2 53 24 28 4A 29 3A |):SC$(CD).S$(J):|
00000BB0: 52 43 28 43 44 29 B2 52 48 28 4A 29 3A 89 37 30 |RC(CD).RH(J):.70|
00000BC0: 30 00 CA 13 BA 02 89 37 30 35 00 E8 13 BC 02 56 |0......705.....V|
00000BD0: 43 28 43 44 29 B2 56 48 28 4A 29 3A 43 44 B2 43 |C(CD).VH(J):CD.C|
00000BE0: 44 AA 31 3A 89 37 30 38 00 24 14 C1 02 52 53 24 |D.1:.708.$...RS$|
00000BF0: 28 4B 29 B2 52 24 28 4A 29 3A 53 53 24 28 4B 29 |(K).R$(J):SS$(K)|
00000C00: B2 53 24 28 4A 29 3A 52 53 28 4B 29 B2 52 48 28 |.S$(J):RS(K).RH(|
00000C10: 4A 29 3A 56 53 28 4B 29 B2 56 48 28 4A 29 3A 4B |J):VS(K).VH(J):K|
00000C20: B2 4B AA 31 00 2B 14 C4 02 82 4A 00 6B 14 C6 02 |.K.1.+....J.k...|
00000C30: 81 4B B2 31 A4 34 3A 52 24 28 4B 29 B2 52 53 24 |.K.1.4:R$(K).RS$|
00000C40: 28 4B 29 3A 53 24 28 4B 29 B2 53 53 24 28 4B 29 |(K):S$(K).SS$(K)|
00000C50: 3A 52 48 28 4B 29 B2 52 53 28 4B 29 3A 56 48 28 |:RH(K).RS(K):VH(|
00000C60: 4B 29 B2 56 53 28 4B 29 3A 82 4B 00 A1 14 D0 02 |K).VS(K):.K.....|
00000C70: 8B 57 B2 36 A7 54 52 24 B2 54 52 24 28 32 29 3A |.W.6.TR$.TR$(2):|
00000C80: 54 53 24 B2 54 53 24 28 32 29 3A 54 52 B2 54 52 |TS$.TS$(2):TR.TR|
00000C90: 28 32 29 3A 54 56 B2 54 56 28 32 29 3A 89 37 36 |(2):TV.TV(2):.76|
00000CA0: 30 00 C0 14 D2 02 8D 31 30 30 35 3A 8F 20 2A 2A |0......1005:. **|
00000CB0: 20 44 45 41 4C 20 54 55 52 4E 2D 55 50 20 2A 2A | DEAL TURN-UP **|
00000CC0: 00 D2 14 D5 02 8B 44 45 28 49 29 B1 33 39 A7 37 |......DE(I).39.7|
00000CD0: 34 35 00 E4 14 DA 02 8B 44 45 28 49 29 B1 32 36 |45......DE(I).26|
00000CE0: A7 37 35 30 00 F6 14 DF 02 8B 44 45 28 49 29 B1 |.750......DE(I).|
00000CF0: 31 33 A7 37 35 35 00 0F 15 E4 02 52 B2 44 45 28 |13.755.....R.DE(|
00000D00: 49 29 3A 54 53 24 B2 22 D3 22 3A 89 37 35 37 00 |I):TS$.".":.757.|
00000D10: 2B 15 E9 02 52 B2 44 45 28 49 29 AB 33 39 3A 54 |+...R.DE(I).39:T|
00000D20: 53 24 B2 22 C1 22 3A 89 37 35 37 00 47 15 EE 02 |S$.".":.757.G...|
00000D30: 52 B2 44 45 28 49 29 AB 32 36 3A 54 53 24 B2 22 |R.DE(I).26:TS$."|
00000D40: D8 22 3A 89 37 35 37 00 5E 15 F3 02 52 B2 44 45 |.":.757.^...R.DE|
00000D50: 28 49 29 AB 31 33 3A 54 53 24 B2 22 DA 22 00 7D |(I).13:TS$.".".}|
00000D60: 15 F5 02 54 52 24 B2 52 52 24 28 52 29 3A 54 52 |...TR$.RR$(R):TR|
00000D70: B2 52 28 52 29 3A 54 56 B2 56 28 52 29 00 AD 15 |.R(R):TV.V(R)...|
00000D80: F8 02 49 B2 49 AA 31 3A 52 24 28 35 29 B2 54 52 |..I.I.1:R$(5).TR|
00000D90: 24 3A 53 24 28 35 29 B2 54 53 24 3A 52 48 28 35 |$:S$(5).TS$:RH(5|
00000DA0: 29 B2 54 52 3A 56 48 28 35 29 B2 54 56 00 D2 15 |).TR:VH(5).TV...|
00000DB0: 02 03 44 B2 35 3A 8D 31 30 34 35 3A 8F 20 2A 2A |..D.5:.1045:. **|
00000DC0: 20 53 4F 52 54 20 48 41 4E 44 20 4F 46 20 35 20 | SORT HAND OF 5 |
00000DD0: 2A 2A 00 F4 15 07 03 53 57 B2 30 3A 8D 32 30 30 |**.....SW.0:.200|
00000DE0: 30 3A 8F 20 2A 2A 20 53 43 4F 52 45 20 48 41 4E |0:. ** SCORE HAN|
00000DF0: 44 20 2A 2A 00 1A 16 0C 03 8D 32 33 31 30 3A 8F |D **......2310:.|
00000E00: 20 2A 2A 20 53 43 4F 52 45 20 46 4C 55 53 48 20 | ** SCORE FLUSH |
00000E10: 49 4E 20 48 41 4E 44 20 2A 2A 00 44 16 0E 03 43 |IN HAND **.D...C|
00000E20: 24 B2 22 9D 22 3A 99 22 93 11 22 A3 31 35 29 22 |$.".":."..".15)"|
00000E30: 12 20 48 41 4E 44 20 23 22 3B 57 3B 43 24 3B 22 |. HAND #";W;C$;"|
00000E40: 20 92 11 22 00 6E 16 11 03 43 43 B2 30 3A 81 4C | ..".n...CC.0:.L|
00000E50: B2 31 A4 35 3A 52 24 B2 52 24 28 4C 29 3A 53 24 |.1.5:R$.R$(L):S$|
00000E60: B2 53 24 28 4C 29 3A 52 B2 52 48 28 4C 29 00 88 |.S$(L):R.RH(L)..|
00000E70: 16 14 03 43 24 B2 22 22 3A 8B 52 24 B2 22 31 30 |...C$."":.R$."10|
00000E80: 22 A7 43 24 B2 22 9D 22 00 A3 16 16 03 8D 31 32 |".C$."."......12|
00000E90: 31 35 3A 8F 20 2A 2A 20 47 52 41 50 48 49 43 53 |15:. ** GRAPHICS|
00000EA0: 20 2A 2A 00 EB 16 1B 03 91 52 8D 31 33 30 30 2C | **......R.1300,|
00000EB0: 31 33 35 30 2C 31 34 30 30 2C 31 34 35 30 2C 31 |1350,1400,1450,1|
00000EC0: 35 30 30 2C 31 35 35 30 2C 31 36 30 30 2C 31 36 |500,1550,1600,16|
00000ED0: 35 30 2C 31 37 30 30 2C 31 37 35 30 2C 31 38 30 |50,1700,1750,180|
00000EE0: 30 2C 31 38 35 30 2C 31 39 30 30 00 09 17 1C 03 |0,1850,1900.....|
00000EF0: 8B 53 24 B2 22 D3 22 B0 53 24 B2 22 DA 22 A7 99 |.S$.".".S$."."..|
00000F00: 22 1C 22 3B 3A 89 37 39 38 00 13 17 1D 03 99 22 |".";:.798......"|
00000F10: 90 22 3B 00 4E 17 1E 03 54 42 B2 43 43 AC 36 AA |.";.N...TB.CC.6.|
00000F20: 33 3A 97 35 34 32 37 36 2C 31 32 39 3A 81 4A B2 |3:.54276,129:.J.|
00000F30: 31 A4 31 31 3A 99 A3 54 42 29 3B 41 24 28 4A 29 |1.11:..TB);A$(J)|
00000F40: 3A 82 4A 3A 97 35 34 32 37 36 2C 31 32 38 00 73 |:.J:.54276,128.s|
00000F50: 17 20 03 43 43 B2 43 43 AA 31 3A 99 22 91 91 91 |. .CC.CC.1:."...|
00000F60: 91 91 91 91 91 91 91 91 91 22 3A 82 4C 3A 99 22 |.........":.L:."|
00000F70: 1F 22 3B 00 86 17 22 03 99 22 11 11 11 11 11 11 |.";...".."......|
00000F80: 11 11 11 11 11 22 00 C5 17 24 03 99 A3 31 30 29 |....."...$...10)|
00000F90: 22 54 55 52 4E 2D 55 50 20 49 53 3A 20 20 20 20 |"TURN-UP IS: |
00000FA0: 20 20 22 3B 3A 54 43 24 B2 22 90 22 3A 8B 54 53 | ";:TC$.".":.TS|
00000FB0: 24 B2 22 DA 22 B0 54 53 24 B2 22 D3 22 A7 54 43 |$.".".TS$.".".TC|
00000FC0: 24 B2 22 1C 22 00 DA 17 25 03 99 54 43 24 AA 54 |$."."...%..TC$.T|
00000FD0: 52 24 AA 54 53 24 AA 22 1F 22 00 FA 17 26 03 99 |R$.TS$."."...&..|
00000FE0: A3 31 30 29 22 11 50 4F 49 4E 54 53 20 49 4E 20 |.10)".POINTS IN |
00000FF0: 48 41 4E 44 3A 20 22 3B 54 50 00 1B 18 28 03 99 |HAND: ";TP...(..|
00001000: A3 31 30 29 22 11 47 41 4D 45 20 50 4F 49 4E 54 |.10)".GAME POINT|
00001010: 53 3A 20 20 20 20 97 22 3B 47 54 00 4C 18 2F 03 |S: .";GT.L./.|
00001020: 99 A3 34 29 22 11 11 1F DA 20 48 49 54 20 1C 12 |..4)".... HIT ..|
00001030: 3C 52 45 54 55 52 4E 3E 92 1F 20 54 4F 20 53 43 |<RETURN>.. TO SC|
00001040: 4F 52 45 20 43 52 49 42 20 DA 22 3B 00 5F 18 31 |ORE CRIB .";._.1|
00001050: 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 31 37 00 |..A$:.A$."".817.|
00001060: 72 18 34 03 8B 41 24 B3 B1 C7 28 31 33 29 A7 38 |r.4..A$...(13).8|
00001070: 31 37 00 94 18 39 03 8F 20 2A 2A 20 4D 4F 56 45 |17...9.. ** MOVE|
00001080: 20 43 52 49 42 20 56 41 52 2E 54 4F 20 48 41 4E | CRIB VAR.TO HAN|
00001090: 44 20 2A 2A 00 D4 18 3E 03 81 58 B2 31 A4 34 3A |D **...>..X.1.4:|
000010A0: 52 24 28 58 29 B2 52 43 24 28 58 29 3A 53 24 28 |R$(X).RC$(X):S$(|
000010B0: 58 29 B2 53 43 24 28 58 29 3A 52 48 28 58 29 B2 |X).SC$(X):RH(X).|
000010C0: 52 43 28 58 29 3A 56 48 28 58 29 B2 56 43 28 58 |RC(X):VH(X).VC(X|
000010D0: 29 3A 82 58 00 FE 18 40 03 52 24 28 35 29 B2 54 |):.X...@.R$(5).T|
000010E0: 52 24 3A 53 24 28 35 29 B2 54 53 24 3A 52 48 28 |R$:S$(5).TS$:RH(|
000010F0: 35 29 B2 54 52 3A 56 48 28 35 29 B2 54 56 00 23 |5).TR:VH(5).TV.#|
00001100: 19 43 03 44 B2 35 3A 8D 31 30 34 35 3A 8F 20 2A |.C.D.5:.1045:. *|
00001110: 2A 20 53 4F 52 54 20 43 52 49 42 20 4F 46 20 35 |* SORT CRIB OF 5|
00001120: 20 2A 2A 00 45 19 44 03 53 57 B2 31 3A 8D 32 30 | **.E.D.SW.1:.20|
00001130: 30 30 3A 8F 20 2A 2A 20 53 43 4F 52 45 20 43 52 |00:. ** SCORE CR|
00001140: 49 42 20 2A 2A 00 63 19 45 03 8D 32 34 30 30 3A |IB **.c.E..2400:|
00001150: 8F 20 2A 2A 20 53 43 4F 52 45 20 46 4C 55 53 48 |. ** SCORE FLUSH|
00001160: 20 2A 2A 00 8D 19 46 03 43 24 B2 22 9D 22 3A 99 | **...F.C$.".":.|
00001170: 22 93 11 22 A3 31 35 29 22 12 20 43 52 49 42 20 |"..".15)". CRIB |
00001180: 23 22 3B 57 3B 43 24 3B 22 20 92 11 22 00 A2 19 |#";W;C$;" .."...|
00001190: 48 03 43 43 B2 30 3A 54 42 B2 30 3A 81 4C B2 31 |H.CC.0:TB.0:.L.1|
000011A0: A4 35 00 D6 19 4D 03 52 24 B2 52 24 28 4C 29 3A |.5...M.R$.R$(L):|
000011B0: 53 24 B2 53 24 28 4C 29 3A 52 B2 52 48 28 4C 29 |S$.S$(L):R.RH(L)|
000011C0: 3A 43 24 B2 22 22 3A 8B 52 24 B2 22 31 30 22 A7 |:C$."":.R$."10".|
000011D0: 43 24 B2 22 9D 22 00 F1 19 52 03 8D 31 32 31 35 |C$."."...R..1215|
000011E0: 3A 8F 20 2A 2A 20 47 52 41 50 48 49 43 53 20 2A |:. ** GRAPHICS *|
000011F0: 2A 00 39 1A 54 03 91 52 8D 31 33 30 30 2C 31 33 |*.9.T..R.1300,13|
00001200: 35 30 2C 31 34 30 30 2C 31 34 35 30 2C 31 35 30 |50,1400,1450,150|
00001210: 30 2C 31 35 35 30 2C 31 36 30 30 2C 31 36 35 30 |0,1550,1600,1650|
00001220: 2C 31 37 30 30 2C 31 37 35 30 2C 31 38 30 30 2C |,1700,1750,1800,|
00001230: 31 38 35 30 2C 31 39 30 30 00 57 1A 55 03 8B 53 |1850,1900.W.U..S|
00001240: 24 B2 22 D3 22 B0 53 24 B2 22 DA 22 A7 99 22 1C |$.".".S$."."..".|
00001250: 22 3B 3A 89 38 35 36 00 61 1A 56 03 99 22 90 22 |";:.856.a.V.."."|
00001260: 3B 00 9C 1A 58 03 54 42 B2 43 43 AC 36 AA 33 3A |;...X.TB.CC.6.3:|
00001270: 97 35 34 32 37 36 2C 31 32 39 3A 81 4A B2 31 A4 |.54276,129:.J.1.|
00001280: 31 31 3A 99 A3 54 42 29 3B 41 24 28 4A 29 3A 82 |11:..TB);A$(J):.|
00001290: 4A 3A 97 35 34 32 37 36 2C 31 32 38 00 C1 1A 5A |J:.54276,128...Z|
000012A0: 03 43 43 B2 43 43 AA 31 3A 99 22 91 91 91 91 91 |.CC.CC.1:.".....|
000012B0: 91 91 91 91 91 91 91 22 3A 82 4C 3A 99 22 1F 22 |.......":.L:."."|
000012C0: 3B 00 FA 1A 5D 03 99 A3 31 30 29 22 11 11 11 11 |;...]...10)"....|
000012D0: 11 11 11 11 11 11 11 11 54 55 52 4E 2D 55 50 20 |........TURN-UP |
000012E0: 49 53 3A 20 20 20 20 20 20 22 3B 54 43 24 AA 54 |IS: ";TC$.T|
000012F0: 52 24 AA 54 53 24 AA 22 1F 22 00 1A 1B 5E 03 99 |R$.TS$."."...^..|
00001300: A3 31 30 29 22 11 50 4F 49 4E 54 53 20 49 4E 20 |.10)".POINTS IN |
00001310: 43 52 49 42 3A 20 22 3B 54 50 00 3B 1B 5F 03 99 |CRIB: ";TP.;._..|
00001320: A3 31 30 29 22 11 47 41 4D 45 20 50 4F 49 4E 54 |.10)".GAME POINT|
00001330: 53 3A 20 20 20 20 97 22 3B 47 54 00 71 1B 60 03 |S: .";GT.q.`.|
00001340: 99 22 11 11 1F 20 DA 20 48 49 54 20 1C 12 3C 52 |."... . HIT ..<R|
00001350: 45 54 55 52 4E 3E 92 1F 20 54 4F 20 44 45 41 4C |ETURN>.. TO DEAL|
00001360: 20 41 4E 4F 54 48 45 52 20 48 41 4E 44 20 DA 22 | ANOTHER HAND ."|
00001370: 3B 00 84 1B 61 03 A1 41 24 3A 8B 41 24 B2 22 22 |;...a..A$:.A$.""|
00001380: A7 38 36 35 00 97 1B 63 03 8B 41 24 B3 B1 C7 28 |.865...c..A$...(|
00001390: 31 33 29 A7 38 36 35 00 B9 1B 66 03 8F 20 2A 2A |13).865...f.. **|
000013A0: 20 53 54 4F 52 45 20 54 55 52 4E 2D 55 50 20 49 | STORE TURN-UP I|
000013B0: 4E 20 48 4F 4C 44 20 2A 2A 00 EB 1B 70 03 54 52 |N HOLD **...p.TR|
000013C0: 24 28 53 29 B2 54 52 24 3A 54 53 24 28 53 29 B2 |$(S).TR$:TS$(S).|
000013D0: 54 53 24 3A 54 52 28 53 29 B2 54 52 3A 54 56 28 |TS$:TR(S).TR:TV(|
000013E0: 53 29 B2 54 56 3A 53 B2 53 AA 31 00 F2 1B 7A 03 |S).TV:S.S.1...z.|
000013F0: 82 57 00 0A 1C 84 03 8F 20 2A 2A 2A 20 4C 41 53 |.W...... *** LAS|
00001400: 54 20 48 41 4E 44 20 2A 2A 2A 00 52 1C 89 03 81 |T HAND ***.R....|
00001410: 58 B2 32 A4 35 3A 52 24 28 58 AB 31 29 B2 54 52 |X.2.5:R$(X.1).TR|
00001420: 24 28 58 29 3A 53 24 28 58 AB 31 29 B2 54 53 24 |$(X):S$(X.1).TS$|
00001430: 28 58 29 3A 52 48 28 58 AB 31 29 B2 54 52 28 58 |(X):RH(X.1).TR(X|
00001440: 29 3A 56 48 28 58 AB 31 29 B2 54 56 28 58 29 3A |):VH(X.1).TV(X):|
00001450: 82 58 00 7A 1C 8E 03 52 24 28 35 29 B2 22 22 3A |.X.z...R$(5)."":|
00001460: 53 24 28 35 29 B2 22 22 3A 52 48 28 35 29 B2 31 |S$(5)."":RH(5).1|
00001470: 35 3A 56 48 28 35 29 B2 31 35 00 9F 1C 98 03 44 |5:VH(5).15.....D|
00001480: B2 34 3A 8D 31 30 34 35 3A 8F 20 2A 2A 20 53 4F |.4:.1045:. ** SO|
00001490: 52 54 20 4C 41 53 54 20 48 41 4E 44 20 2A 2A 00 |RT LAST HAND **.|
000014A0: A8 1C A2 03 99 22 93 22 00 CA 1C A7 03 8D 32 30 |....."."......20|
000014B0: 30 30 3A 8F 20 2A 2A 20 53 43 4F 52 45 20 48 41 |00:. ** SCORE HA|
000014C0: 4E 44 20 4F 46 20 34 20 2A 2A 00 E8 1C A9 03 8D |ND OF 4 **......|
000014D0: 32 33 31 30 3A 8F 20 2A 2A 20 53 43 4F 52 45 20 |2310:. ** SCORE |
000014E0: 46 4C 55 53 48 20 2A 2A 00 06 1D AB 03 99 22 93 |FLUSH **......".|
000014F0: 11 22 A3 31 34 29 22 12 20 4C 41 53 54 20 48 41 |.".14)". LAST HA|
00001500: 4E 44 20 92 11 22 00 16 1D AC 03 43 43 B2 30 3A |ND ..".....CC.0:|
00001510: 81 4C B2 31 A4 34 00 4A 1D B1 03 52 24 B2 52 24 |.L.1.4.J...R$.R$|
00001520: 28 4C 29 3A 53 24 B2 53 24 28 4C 29 3A 52 B2 52 |(L):S$.S$(L):R.R|
00001530: 48 28 4C 29 3A 43 24 B2 22 22 3A 8B 52 24 B2 22 |H(L):C$."":.R$."|
00001540: 31 30 22 A7 43 24 B2 22 9D 22 00 65 1D B6 03 8D |10".C$.".".e....|
00001550: 31 32 31 35 3A 8F 20 2A 2A 20 47 52 41 50 48 49 |1215:. ** GRAPHI|
00001560: 43 53 20 2A 2A 00 AD 1D BB 03 91 52 8D 31 33 30 |CS **......R.130|
00001570: 30 2C 31 33 35 30 2C 31 34 30 30 2C 31 34 35 30 |0,1350,1400,1450|
00001580: 2C 31 35 30 30 2C 31 35 35 30 2C 31 36 30 30 2C |,1500,1550,1600,|
00001590: 31 36 35 30 2C 31 37 30 30 2C 31 37 35 30 2C 31 |1650,1700,1750,1|
000015A0: 38 30 30 2C 31 38 35 30 2C 31 39 30 30 00 CB 1D |800,1850,1900...|
000015B0: BD 03 8B 53 24 B2 22 D3 22 B0 53 24 B2 22 DA 22 |...S$.".".S$."."|
000015C0: A7 99 22 1C 22 3B 3A 89 39 36 30 00 D5 1D BE 03 |..".";:.960.....|
000015D0: 99 22 90 22 3B 00 10 1E C0 03 54 42 B2 43 43 AC |.".";.....TB.CC.|
000015E0: 36 AA 36 3A 97 35 34 32 37 36 2C 31 32 39 3A 81 |6.6:.54276,129:.|
000015F0: 4A B2 31 A4 31 31 3A 99 A3 54 42 29 3B 41 24 28 |J.1.11:..TB);A$(|
00001600: 4A 29 3A 82 4A 3A 97 35 34 32 37 36 2C 31 32 38 |J):.J:.54276,128|
00001610: 00 2F 1E C2 03 43 43 B2 43 43 AA 31 3A 99 22 91 |./...CC.CC.1:.".|
00001620: 91 91 91 91 91 91 91 91 91 91 91 22 3A 82 4C 00 |...........":.L.|
00001630: 55 1E C5 03 99 A3 31 33 29 22 11 11 11 11 11 11 |U.....13)"......|
00001640: 11 11 11 11 11 11 1F 4C 41 53 54 20 48 41 4E 44 |.......LAST HAND|
00001650: 3A 22 3B 54 50 00 72 1E C6 03 99 A3 31 31 29 22 |:";TP.r.....11)"|
00001660: 11 47 41 4D 45 20 50 4F 49 4E 54 53 3A 97 22 3B |.GAME POINTS:.";|
00001670: 47 54 00 A8 1E C8 03 99 22 11 11 1F 20 20 DA 20 |GT......"... . |
00001680: 48 49 54 20 1C 12 3C 52 45 54 55 52 4E 3E 92 1F |HIT ..<RETURN>..|
00001690: 20 54 4F 20 56 49 45 57 20 47 41 4D 45 20 54 4F | TO VIEW GAME TO|
000016A0: 54 41 4C 53 20 DA 22 3B 00 BB 1E CA 03 A1 41 24 |TALS .";......A$|
000016B0: 3A 8B 41 24 B2 22 22 A7 39 37 30 00 CE 1E CB 03 |:.A$."".970.....|
000016C0: 8B 41 24 B3 B1 C7 28 31 33 29 A7 39 37 30 00 DF |.A$...(13).970..|
000016D0: 1E CC 03 8B 47 54 B1 47 48 A7 47 48 B2 47 54 00 |....GT.GH.GH.GT.|
000016E0: F4 1E CD 03 47 43 B2 47 43 AA 31 3A 47 41 B2 47 |....GC.GC.1:GA.G|
000016F0: 41 AA 47 54 00 1E 1F D4 03 99 22 93 11 9A 22 A3 |A.GT......"...".|
00001700: 37 29 22 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |7)".............|
00001710: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 45 |.............".E|
00001720: 1F D5 03 99 A3 37 29 22 C2 20 20 20 1F 43 52 49 |.....7)". .CRI|
00001730: 42 42 41 47 45 20 53 4F 4C 49 54 41 49 52 45 9A |BBAGE SOLITAIRE.|
00001740: 20 20 20 DD 22 00 6C 1F D6 03 99 A3 37 29 22 C2 | .".l.....7)".|
00001750: 20 20 1F 53 54 41 54 49 53 54 49 43 41 4C 20 41 | .STATISTICAL A|
00001760: 56 45 52 41 47 45 53 9A 20 20 DD 22 00 92 1F D8 |VERAGES. ."....|
00001770: 03 99 A3 37 29 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 |...7)"..........|
00001780: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB |................|
00001790: 20 22 00 B4 1F D9 03 99 A3 39 29 22 1C 11 47 41 | ".......9)"..GA|
000017A0: 4D 45 20 50 4F 49 4E 54 53 20 20 3A 20 20 20 20 |ME POINTS : |
000017B0: 22 3B 47 54 00 F3 1F DA 03 99 A3 39 29 22 4C 41 |";GT.......9)"LA|
000017C0: 53 54 20 41 56 47 2F 48 41 4E 44 3A 20 20 20 20 |ST AVG/HAND: |
000017D0: 22 3B A5 42 28 48 4C AD 36 29 3A 8B A5 42 28 48 |";.B(HL.6):..B(H|
000017E0: 4C AD 36 29 B1 48 48 A7 48 48 B2 A5 42 28 48 4C |L.6).HH.HH..B(HL|
000017F0: AD 36 29 00 32 20 DB 03 99 A3 39 29 22 4C 41 53 |.6).2 ....9)"LAS|
00001800: 54 20 41 56 47 2F 43 52 49 42 3A 20 20 20 20 22 |T AVG/CRIB: "|
00001810: 3B A5 42 28 43 4C AD 36 29 3A 8B A5 42 28 43 4C |;.B(CL.6):..B(CL|
00001820: AD 36 29 B1 48 43 A7 48 43 B2 A5 42 28 43 4C AD |.6).HC.HC..B(CL.|
00001830: 36 29 00 5A 20 DC 03 99 A3 39 29 22 11 41 56 45 |6).Z ....9)".AVE|
00001840: 52 41 47 45 2F 47 41 4D 45 20 3A 20 20 20 20 22 |RAGE/GAME : "|
00001850: 3B A5 42 28 47 41 AD 47 43 29 00 83 20 DD 03 99 |;.B(GA.GC).. ...|
00001860: A3 39 29 22 41 56 45 52 41 47 45 2F 48 41 4E 44 |.9)"AVERAGE/HAND|
00001870: 20 3A 20 20 20 20 22 3B A5 42 28 48 41 AD 36 AD | : ";.B(HA.6.|
00001880: 47 43 29 00 AC 20 DE 03 99 A3 39 29 22 41 56 45 |GC).. ....9)"AVE|
00001890: 52 41 47 45 2F 43 52 49 42 20 3A 20 20 20 20 22 |RAGE/CRIB : "|
000018A0: 3B A5 42 28 43 41 AD 36 AD 47 43 29 00 E6 20 DF |;.B(CA.6.GC).. .|
000018B0: 03 99 A3 39 29 22 11 48 49 47 48 20 41 56 47 2F |...9)".HIGH AVG/|
000018C0: 48 41 4E 44 3A 20 20 20 20 22 3B 48 48 3A 8B A5 |HAND: ";HH:..|
000018D0: 42 28 48 4C AD 36 29 B3 4C 48 A7 4C 48 B2 A5 42 |B(HL.6).LH.LH..B|
000018E0: 28 48 4C AD 36 29 00 1F 21 E0 03 99 A3 39 29 22 |(HL.6)..!....9)"|
000018F0: 48 49 47 48 20 41 56 47 2F 43 52 49 42 3A 20 20 |HIGH AVG/CRIB: |
00001900: 20 20 22 3B 48 43 3A 8B A5 42 28 43 4C AD 36 29 | ";HC:..B(CL.6)|
00001910: B3 4C 43 A7 4C 43 B2 A5 42 28 43 4C AD 36 29 00 |.LC.LC..B(CL.6).|
00001920: 3F 21 E1 03 99 A3 39 29 22 4C 4F 57 20 41 56 47 |?!....9)"LOW AVG|
00001930: 2F 48 41 4E 44 20 3A 20 20 20 20 22 3B 4C 48 00 |/HAND : ";LH.|
00001940: 5F 21 E2 03 99 A3 39 29 22 4C 4F 57 20 41 56 47 |_!....9)"LOW AVG|
00001950: 2F 43 52 49 42 20 3A 20 20 20 20 22 3B 4C 43 00 |/CRIB : ";LC.|
00001960: 9B 21 E3 03 99 A3 39 29 22 11 47 41 4D 45 53 20 |.!....9)".GAMES |
00001970: 50 4C 41 59 45 44 20 3A 20 20 20 20 22 47 43 3A |PLAYED : "GC:|
00001980: 99 A3 39 29 22 47 41 4D 45 20 48 49 47 48 20 20 |..9)"GAME HIGH |
00001990: 20 20 3A 20 20 20 20 97 22 47 48 00 C9 21 E4 03 | : ."GH..!..|
000019A0: 99 3A 99 22 20 20 44 4F 20 59 4F 55 20 57 41 4E |.:." DO YOU WAN|
000019B0: 54 20 54 4F 20 50 52 49 4E 54 20 59 4F 55 52 20 |T TO PRINT YOUR |
000019C0: 52 45 53 55 4C 54 53 3F 22 00 E6 21 E5 03 A1 41 |RESULTS?"..!...A|
000019D0: 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 |$:.A$.."Y".A$.."|
000019E0: 4E 22 A7 39 39 37 00 FF 21 E6 03 8B 41 24 B2 22 |N".997..!...A$."|
000019F0: 59 22 A7 8D 32 38 30 30 3A 89 36 33 30 30 30 00 |Y"..2800:.63000.|
00001A00: 0A 22 E7 03 89 36 33 30 30 30 00 13 22 E8 03 89 |."...63000.."...|
00001A10: 31 36 30 00 2A 22 ED 03 56 B2 B5 28 28 35 33 AB |160.*"..V..((53.|
00001A20: 49 29 AC BB 28 30 29 AA 31 29 00 41 22 F2 03 44 |I)..(0).1).A"..D|
00001A30: 45 28 49 29 B2 41 28 56 29 3A 43 44 B2 43 44 AA |E(I).A(V):CD.CD.|
00001A40: 31 00 60 22 FC 03 81 4A B2 56 A4 28 35 32 AB 49 |1.`"...J.V.(52.I|
00001A50: 29 3A 41 28 4A 29 B2 41 28 4A AA 31 29 3A 82 4A |):A(J).A(J.1):.J|
00001A60: 00 66 22 06 04 8E 00 84 22 10 04 8F 20 2A 2A 2A |.f"....."... ***|
00001A70: 20 53 4F 52 54 20 53 55 42 52 4F 55 54 49 4E 45 | SORT SUBROUTINE|
00001A80: 20 2A 2A 2A 00 91 22 15 04 81 4D B2 31 A4 44 AB | ***.."...M.1.D.|
00001A90: 31 00 9E 22 1A 04 81 4E B2 31 A4 44 AB 31 00 B6 |1.."...N.1.D.1..|
00001AA0: 22 1F 04 8B 52 48 28 4E 29 B3 52 48 28 4E AA 31 |"...RH(N).RH(N.1|
00001AB0: 29 A7 31 30 36 35 00 C2 22 24 04 82 4E 3A 82 4D |).1065.."$..N:.M|
00001AC0: 3A 8E 00 E6 22 29 04 52 B2 52 48 28 4E 29 3A 52 |:...").R.RH(N):R|
00001AD0: 48 28 4E 29 B2 52 48 28 4E AA 31 29 3A 52 48 28 |H(N).RH(N.1):RH(|
00001AE0: 4E AA 31 29 B2 52 00 0C 23 2E 04 52 24 B2 52 24 |N.1).R..#..R$.R$|
00001AF0: 28 4E 29 3A 52 24 28 4E 29 B2 52 24 28 4E AA 31 |(N):R$(N).R$(N.1|
00001B00: 29 3A 52 24 28 4E AA 31 29 B2 52 24 00 32 23 33 |):R$(N.1).R$.2#3|
00001B10: 04 53 24 B2 53 24 28 4E 29 3A 53 24 28 4E 29 B2 |.S$.S$(N):S$(N).|
00001B20: 53 24 28 4E AA 31 29 3A 53 24 28 4E AA 31 29 B2 |S$(N.1):S$(N.1).|
00001B30: 53 24 00 56 23 38 04 56 B2 56 48 28 4E 29 3A 56 |S$.V#8.V.VH(N):V|
00001B40: 48 28 4E 29 B2 56 48 28 4E AA 31 29 3A 56 48 28 |H(N).VH(N.1):VH(|
00001B50: 4E AA 31 29 B2 56 00 60 23 3D 04 89 31 30 36 30 |N.1).V.`#=..1060|
00001B60: 00 80 23 B0 04 8F 20 2A 2A 20 47 52 41 50 48 49 |..#... ** GRAPHI|
00001B70: 43 53 20 42 55 49 4C 44 20 41 52 45 41 20 2A 2A |CS BUILD AREA **|
00001B80: 00 96 23 BF 04 41 24 28 31 29 B2 22 CF B7 B7 B7 |..#..A$(1)."....|
00001B90: B7 B7 B7 B7 D0 22 00 B7 23 C4 04 41 24 28 32 29 |....."..#..A$(2)|
00001BA0: B2 22 A5 22 AA 52 24 AA 22 20 22 AA 43 24 AA 22 |.".".R$." ".C$."|
00001BB0: 20 20 20 20 20 A7 22 00 D9 23 C9 04 8B 52 28 4C | ."..#...R(L|
00001BC0: 29 B2 31 31 B0 52 28 4C 29 B2 31 32 B0 52 28 4C |).11.R(L).12.R(L|
00001BD0: 29 B2 31 33 A7 31 32 34 30 00 F4 23 CE 04 41 24 |).13.1240..#..A$|
00001BE0: 28 33 29 B2 22 A5 22 AA 53 24 AA 22 20 20 20 20 |(3).".".S$." |
00001BF0: 20 20 A7 22 00 0F 24 D3 04 41 24 28 39 29 B2 22 | ."..$..A$(9)."|
00001C00: A5 20 20 20 20 20 20 22 AA 53 24 AA 22 A7 22 00 |. ".S$.".".|
00001C10: 2E 24 D8 04 41 24 28 31 30 29 B2 22 A5 20 20 20 |.$..A$(10).". |
00001C20: 20 20 20 22 AA 43 24 AA 52 24 AA 22 A7 22 00 45 | ".C$.R$.".".E|
00001C30: 24 DD 04 41 24 28 31 31 29 B2 22 CC AF AF AF AF |$..A$(11).".....|
00001C40: AF AF AF BA 22 00 4B 24 E2 04 8E 00 61 24 14 05 |....".K$....a$..|
00001C50: 41 24 28 34 29 B2 22 A5 20 20 20 20 20 20 20 A7 |A$(4).". .|
00001C60: 22 00 77 24 19 05 41 24 28 35 29 B2 22 A5 20 20 |".w$..A$(5).". |
00001C70: 20 20 20 20 20 A7 22 00 92 24 1E 05 41 24 28 36 | ."..$..A$(6|
00001C80: 29 B2 22 A5 20 20 20 22 AA 53 24 AA 22 20 20 20 |).". ".S$." |
00001C90: A7 22 00 A8 24 23 05 41 24 28 37 29 B2 22 A5 20 |."..$#.A$(7).". |
00001CA0: 20 20 20 20 20 20 A7 22 00 BE 24 28 05 41 24 28 | ."..$(.A$(|
00001CB0: 38 29 B2 22 A5 20 20 20 20 20 20 20 A7 22 00 C4 |8).". ."..|
00001CC0: 24 2D 05 8E 00 DF 24 46 05 41 24 28 34 29 B2 22 |$-....$F.A$(4)."|
00001CD0: A5 20 20 20 22 AA 53 24 AA 22 20 20 20 A7 22 00 |. ".S$." .".|
00001CE0: F5 24 4B 05 41 24 28 35 29 B2 22 A5 20 20 20 20 |.$K.A$(5).". |
00001CF0: 20 20 20 A7 22 00 0B 25 50 05 41 24 28 36 29 B2 | ."..%P.A$(6).|
00001D00: 22 A5 20 20 20 20 20 20 20 A7 22 00 21 25 55 05 |". .".!%U.|
00001D10: 41 24 28 37 29 B2 22 A5 20 20 20 20 20 20 20 A7 |A$(7).". .|
00001D20: 22 00 3C 25 5A 05 41 24 28 38 29 B2 22 A5 20 20 |".<%Z.A$(8).". |
00001D30: 20 22 AA 53 24 AA 22 20 20 20 A7 22 00 42 25 5F | ".S$." .".B%_|
00001D40: 05 8E 00 5D 25 78 05 41 24 28 34 29 B2 22 A5 20 |...]%x.A$(4).". |
00001D50: 20 20 22 AA 53 24 AA 22 20 20 20 A7 22 00 73 25 | ".S$." .".s%|
00001D60: 7D 05 41 24 28 35 29 B2 22 A5 20 20 20 20 20 20 |}.A$(5).". |
00001D70: 20 A7 22 00 8E 25 82 05 41 24 28 36 29 B2 22 A5 | ."..%..A$(6).".|
00001D80: 20 20 20 22 AA 53 24 AA 22 20 20 20 A7 22 00 A4 | ".S$." ."..|
00001D90: 25 87 05 41 24 28 37 29 B2 22 A5 20 20 20 20 20 |%..A$(7).". |
00001DA0: 20 20 A7 22 00 BF 25 8C 05 41 24 28 38 29 B2 22 | ."..%..A$(8)."|
00001DB0: A5 20 20 20 22 AA 53 24 AA 22 20 20 20 A7 22 00 |. ".S$." .".|
00001DC0: C5 25 91 05 8E 00 E5 25 AA 05 41 24 28 34 29 B2 |.%.....%..A$(4).|
00001DD0: 22 A5 20 22 AA 53 24 AA 22 20 20 20 22 AA 53 24 |". ".S$." ".S$|
00001DE0: AA 22 20 A7 22 00 FB 25 AF 05 41 24 28 35 29 B2 |." ."..%..A$(5).|
00001DF0: 22 A5 20 20 20 20 20 20 20 A7 22 00 11 26 B4 05 |". ."..&..|
00001E00: 41 24 28 36 29 B2 22 A5 20 20 20 20 20 20 20 A7 |A$(6).". .|
00001E10: 22 00 27 26 B9 05 41 24 28 37 29 B2 22 A5 20 20 |".'&..A$(7).". |
00001E20: 20 20 20 20 20 A7 22 00 47 26 BE 05 41 24 28 38 | .".G&..A$(8|
00001E30: 29 B2 22 A5 20 22 AA 53 24 AA 22 20 20 20 22 AA |).". ".S$." ".|
00001E40: 53 24 AA 22 20 A7 22 00 4D 26 C3 05 8E 00 6D 26 |S$." .".M&....m&|
00001E50: DC 05 41 24 28 34 29 B2 22 A5 20 22 AA 53 24 AA |..A$(4).". ".S$.|
00001E60: 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 00 83 26 |" ".S$." ."..&|
00001E70: E1 05 41 24 28 35 29 B2 22 A5 20 20 20 20 20 20 |..A$(5).". |
00001E80: 20 A7 22 00 9E 26 E6 05 41 24 28 36 29 B2 22 A5 | ."..&..A$(6).".|
00001E90: 20 20 20 22 AA 53 24 AA 22 20 20 20 A7 22 00 B4 | ".S$." ."..|
00001EA0: 26 EB 05 41 24 28 37 29 B2 22 A5 20 20 20 20 20 |&..A$(7).". |
00001EB0: 20 20 A7 22 00 D4 26 F0 05 41 24 28 38 29 B2 22 | ."..&..A$(8)."|
00001EC0: A5 20 22 AA 53 24 AA 22 20 20 20 22 AA 53 24 AA |. ".S$." ".S$.|
00001ED0: 22 20 A7 22 00 DA 26 F5 05 8E 00 FA 26 0E 06 41 |" ."..&.....&..A|
00001EE0: 24 28 34 29 B2 22 A5 20 22 AA 53 24 AA 22 20 20 |$(4).". ".S$." |
00001EF0: 20 22 AA 53 24 AA 22 20 A7 22 00 10 27 13 06 41 | ".S$." ."..'..A|
00001F00: 24 28 35 29 B2 22 A5 20 20 20 20 20 20 20 A7 22 |$(5).". ."|
00001F10: 00 30 27 18 06 41 24 28 36 29 B2 22 A5 20 22 AA |.0'..A$(6).". ".|
00001F20: 53 24 AA 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 |S$." ".S$." ."|
00001F30: 00 46 27 1D 06 41 24 28 37 29 B2 22 A5 20 20 20 |.F'..A$(7).". |
00001F40: 20 20 20 20 A7 22 00 66 27 22 06 41 24 28 38 29 | .".f'".A$(8)|
00001F50: B2 22 A5 20 22 AA 53 24 AA 22 20 20 20 22 AA 53 |.". ".S$." ".S|
00001F60: 24 AA 22 20 A7 22 00 6C 27 27 06 8E 00 8C 27 40 |$." .".l''....'@|
00001F70: 06 41 24 28 34 29 B2 22 A5 20 22 AA 53 24 AA 22 |.A$(4).". ".S$."|
00001F80: 20 20 20 22 AA 53 24 AA 22 20 A7 22 00 A7 27 45 | ".S$." ."..'E|
00001F90: 06 41 24 28 35 29 B2 22 A5 20 20 20 22 AA 53 24 |.A$(5).". ".S$|
00001FA0: AA 22 20 20 20 A7 22 00 C7 27 4A 06 41 24 28 36 |." ."..'J.A$(6|
00001FB0: 29 B2 22 A5 20 22 AA 53 24 AA 22 20 20 20 22 AA |).". ".S$." ".|
00001FC0: 53 24 AA 22 20 A7 22 00 DD 27 4F 06 41 24 28 37 |S$." ."..'O.A$(7|
00001FD0: 29 B2 22 A5 20 20 20 20 20 20 20 A7 22 00 FD 27 |).". ."..'|
00001FE0: 54 06 41 24 28 38 29 B2 22 A5 20 22 AA 53 24 AA |T.A$(8).". ".S$.|
00001FF0: 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 00 03 28 |" ".S$." ."..(|
00002000: 59 06 8E 00 23 28 72 06 41 24 28 34 29 B2 22 A5 |Y...#(r.A$(4).".|
00002010: 20 22 AA 53 24 AA 22 20 20 20 22 AA 53 24 AA 22 | ".S$." ".S$."|
00002020: 20 A7 22 00 3E 28 77 06 41 24 28 35 29 B2 22 A5 | .".>(w.A$(5).".|
00002030: 20 20 20 22 AA 53 24 AA 22 20 20 20 A7 22 00 5E | ".S$." .".^|
00002040: 28 7C 06 41 24 28 36 29 B2 22 A5 20 22 AA 53 24 |(|.A$(6).". ".S$|
00002050: AA 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 00 79 |." ".S$." .".y|
00002060: 28 81 06 41 24 28 37 29 B2 22 A5 20 20 20 22 AA |(..A$(7).". ".|
00002070: 53 24 AA 22 20 20 20 A7 22 00 99 28 86 06 41 24 |S$." ."..(..A$|
00002080: 28 38 29 B2 22 A5 20 22 AA 53 24 AA 22 20 20 20 |(8).". ".S$." |
00002090: 22 AA 53 24 AA 22 20 A7 22 00 9F 28 8B 06 8E 00 |".S$." ."..(....|
000020A0: BF 28 A4 06 41 24 28 34 29 B2 22 A5 20 22 AA 53 |.(..A$(4).". ".S|
000020B0: 24 AA 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 00 |$." ".S$." .".|
000020C0: DF 28 A9 06 41 24 28 35 29 B2 22 A5 20 22 AA 53 |.(..A$(5).". ".S|
000020D0: 24 AA 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 00 |$." ".S$." .".|
000020E0: FA 28 AE 06 41 24 28 36 29 B2 22 A5 20 20 20 22 |.(..A$(6).". "|
000020F0: AA 53 24 AA 22 20 20 20 A7 22 00 1A 29 B3 06 41 |.S$." ."..)..A|
00002100: 24 28 37 29 B2 22 A5 20 22 AA 53 24 AA 22 20 20 |$(7).". ".S$." |
00002110: 20 22 AA 53 24 AA 22 20 A7 22 00 3A 29 B8 06 41 | ".S$." .".:)..A|
00002120: 24 28 38 29 B2 22 A5 20 22 AA 53 24 AA 22 20 20 |$(8).". ".S$." |
00002130: 20 22 AA 53 24 AA 22 20 A7 22 00 40 29 BD 06 8E | ".S$." .".@)...|
00002140: 00 60 29 D6 06 41 24 28 34 29 B2 22 A5 20 22 AA |.`)..A$(4).". ".|
00002150: 53 24 AA 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 |S$." ".S$." ."|
00002160: 00 80 29 DB 06 41 24 28 35 29 B2 22 A5 20 22 AA |..)..A$(5).". ".|
00002170: 53 24 AA 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 |S$." ".S$." ."|
00002180: 00 A0 29 E0 06 41 24 28 36 29 B2 22 A5 20 22 AA |..)..A$(6).". ".|
00002190: 53 24 AA 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 |S$." ".S$." ."|
000021A0: 00 C0 29 E5 06 41 24 28 37 29 B2 22 A5 20 22 AA |..)..A$(7).". ".|
000021B0: 53 24 AA 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 |S$." ".S$." ."|
000021C0: 00 E0 29 EA 06 41 24 28 38 29 B2 22 A5 20 22 AA |..)..A$(8).". ".|
000021D0: 53 24 AA 22 20 20 20 22 AA 53 24 AA 22 20 A7 22 |S$." ".S$." ."|
000021E0: 00 E6 29 EF 06 8E 00 05 2A 08 07 41 24 28 33 29 |..).....*..A$(3)|
000021F0: B2 22 A5 12 22 AA 53 24 AA 22 92 A6 A6 20 D7 12 |."..".S$."... ..|
00002200: B4 BB 92 A7 22 00 1F 2A 0D 07 41 24 28 34 29 B2 |...."..*..A$(4).|
00002210: 22 A5 12 20 92 A6 DC 20 D5 12 20 A1 92 A7 22 00 |".. ... .. ...".|
00002220: 3E 2A 12 07 41 24 28 35 29 B2 22 A5 12 20 92 22 |>*..A$(5).".. ."|
00002230: AA 53 24 AA 22 20 20 CF DF 12 A1 92 A7 22 00 58 |.S$." ......".X|
00002240: 2A 17 07 41 24 28 36 29 B2 22 A5 12 AC 92 C0 C0 |*..A$(6)."......|
00002250: C0 C0 C0 12 BE 92 A7 22 00 77 2A 1C 07 41 24 28 |.......".w*..A$(|
00002260: 37 29 B2 22 A5 A1 12 DF 92 BA 20 20 22 AA 53 24 |7)."...... ".S$|
00002270: AA 22 12 20 92 A7 22 00 91 2A 21 07 41 24 28 38 |.". .."..*!.A$(8|
00002280: 29 B2 22 A5 A1 12 20 92 CB 20 A8 A6 12 20 92 A7 |)."... .. ... ..|
00002290: 22 00 B0 2A 26 07 41 24 28 39 29 B2 22 A5 12 BC |"..*&.A$(9)."...|
000022A0: AA 92 D7 20 A6 A6 12 22 AA 53 24 AA 22 92 A7 22 |... ...".S$.".."|
000022B0: 00 B6 2A 2B 07 8E 00 D5 2A 3A 07 41 24 28 33 29 |..*+....*:.A$(3)|
000022C0: B2 22 A5 12 22 AA 53 24 AA 22 92 A6 A6 20 D7 12 |."..".S$."... ..|
000022D0: B4 20 92 A7 22 00 EF 2A 3F 07 41 24 28 34 29 B2 |. .."..*?.A$(4).|
000022E0: 22 A5 12 20 92 A6 DC 20 CA 12 20 20 92 A7 22 00 |".. ... .. ..".|
000022F0: 0E 2B 44 07 41 24 28 35 29 B2 22 A5 12 20 92 22 |.+D.A$(5).".. ."|
00002300: AA 53 24 AA 22 20 20 CF DF 12 BB 92 A7 22 00 28 |.S$." ......".(|
00002310: 2B 49 07 41 24 28 36 29 B2 22 A5 12 AC 92 C0 C0 |+I.A$(6)."......|
00002320: C0 C0 C0 12 BE 92 A7 22 00 47 2B 4E 07 41 24 28 |.......".G+N.A$(|
00002330: 37 29 B2 22 A5 12 BC DF 92 BA 20 20 22 AA 53 24 |7)."...... ".S$|
00002340: AA 22 12 20 92 A7 22 00 61 2B 53 07 41 24 28 38 |.". ..".a+S.A$(8|
00002350: 29 B2 22 A5 12 20 20 92 C9 20 A8 A6 12 20 92 A7 |).".. .. ... ..|
00002360: 22 00 80 2B 58 07 41 24 28 39 29 B2 22 A5 12 20 |"..+X.A$(9).".. |
00002370: A7 92 D7 20 A6 A6 12 22 AA 53 24 AA 22 92 A7 22 |... ...".S$.".."|
00002380: 00 86 2B 5D 07 8E 00 A5 2B 6C 07 41 24 28 33 29 |..+]....+l.A$(3)|
00002390: B2 22 A5 12 22 AA 53 24 AA 22 AA 92 D7 20 A6 A6 |."..".S$."... ..|
000023A0: 12 20 92 A7 22 00 BF 2B 71 07 41 24 28 34 29 B2 |. .."..+q.A$(4).|
000023B0: 22 A5 A1 12 20 92 C9 20 CF A6 12 20 92 A7 22 00 |"... .. ... ..".|
000023C0: DC 2B 76 07 41 24 28 35 29 B2 22 A5 A1 A9 D0 20 |.+v.A$(5).".... |
000023D0: 20 22 AA 53 24 AA 22 12 20 92 A7 22 00 F6 2B 7B | ".S$.". .."..+{|
000023E0: 07 41 24 28 36 29 B2 22 A5 12 BC 92 C0 C0 C0 C0 |.A$(6)."........|
000023F0: C0 12 BB 92 A7 22 00 15 2C 80 07 41 24 28 37 29 |....."..,..A$(7)|
00002400: B2 22 A5 12 20 92 22 AA 53 24 AA 22 20 20 CC 12 |.".. .".S$." ..|
00002410: A9 A1 92 A7 22 00 2F 2C 85 07 41 24 28 38 29 B2 |...."./,..A$(8).|
00002420: 22 A5 12 20 92 A6 BA 20 CA 12 20 A1 92 A7 22 00 |".. ... .. ...".|
00002430: 4E 2C 8A 07 41 24 28 39 29 B2 22 A5 12 20 92 A6 |N,..A$(9).".. ..|
00002440: A6 20 D7 12 B4 22 AA 53 24 AA 22 92 A7 22 00 54 |. ...".S$."..".T|
00002450: 2C 8F 07 8E 00 6A 2C CB 07 8F 20 2A 2A 2A 20 53 |,....j,... *** S|
00002460: 43 4F 52 49 4E 47 20 2A 2A 2A 00 70 2C CC 07 8F |CORING ***.p,...|
00002470: 00 85 2C CD 07 8F 20 2A 2A 20 31 35 20 43 4F 4D |..,... ** 15 COM|
00002480: 42 2E 20 2A 2A 00 B0 2C D0 07 50 31 B2 30 3A 50 |B. **..,..P1.0:P|
00002490: 32 B2 30 3A 50 33 B2 30 3A 50 34 B2 30 3A 50 35 |2.0:P3.0:P4.0:P5|
000024A0: B2 30 3A 50 36 B2 30 3A 54 50 B2 30 3A 4B B2 31 |.0:P6.0:TP.0:K.1|
000024B0: 00 BD 2C DA 07 81 58 B2 4B AA 31 A4 35 00 D9 2C |..,...X.K.1.5..,|
000024C0: DF 07 8B 56 48 28 4B 29 AA 56 48 28 58 29 B2 31 |...VH(K).VH(X).1|
000024D0: 35 A7 50 31 B2 50 31 AA 32 00 E0 2C E4 07 82 58 |5.P1.P1.2..,...X|
000024E0: 00 EE 2C E9 07 8B 4B B2 34 A7 32 30 33 35 00 FE |..,...K.4.2035..|
000024F0: 2C EE 07 4B B2 4B AA 31 3A 89 32 30 31 30 00 09 |,..K.K.1:.2010..|
00002500: 2D F3 07 81 58 B2 33 A4 35 00 2B 2D F8 07 8B 56 |-...X.3.5.+-...V|
00002510: 48 28 31 29 AA 56 48 28 32 29 AA 56 48 28 58 29 |H(1).VH(2).VH(X)|
00002520: B2 31 35 A7 50 31 B2 50 31 AA 32 00 32 2D FD 07 |.15.P1.P1.2.2-..|
00002530: 82 58 00 3D 2D 02 08 81 58 B2 34 A4 35 00 5F 2D |.X.=-...X.4.5._-|
00002540: 07 08 8B 56 48 28 31 29 AA 56 48 28 33 29 AA 56 |...VH(1).VH(3).V|
00002550: 48 28 58 29 B2 31 35 A7 50 31 B2 50 31 AA 32 00 |H(X).15.P1.P1.2.|
00002560: 81 2D 0C 08 8B 56 48 28 32 29 AA 56 48 28 33 29 |.-...VH(2).VH(3)|
00002570: AA 56 48 28 58 29 B2 31 35 A7 50 31 B2 50 31 AA |.VH(X).15.P1.P1.|
00002580: 32 00 A9 2D 11 08 8B 56 48 28 31 29 AA 56 48 28 |2..-...VH(1).VH(|
00002590: 32 29 AA 56 48 28 33 29 AA 56 48 28 58 29 B2 31 |2).VH(3).VH(X).1|
000025A0: 35 A7 50 31 B2 50 31 AA 32 00 B0 2D 16 08 82 58 |5.P1.P1.2..-...X|
000025B0: 00 BB 2D 1B 08 81 58 B2 31 A4 33 00 DD 2D 20 08 |..-...X.1.3..- .|
000025C0: 8B 56 48 28 58 29 AA 56 48 28 34 29 AA 56 48 28 |.VH(X).VH(4).VH(|
000025D0: 35 29 B2 31 35 A7 50 31 B2 50 31 AA 32 00 E4 2D |5).15.P1.P1.2..-|
000025E0: 22 08 82 58 00 EF 2D 25 08 81 58 B2 32 A4 33 00 |"..X..-%..X.2.3.|
000025F0: 17 2E 26 08 8B 56 48 28 31 29 AA 56 48 28 58 29 |..&..VH(1).VH(X)|
00002600: AA 56 48 28 34 29 AA 56 48 28 35 29 B2 31 35 A7 |.VH(4).VH(5).15.|
00002610: 50 31 B2 50 31 AA 32 00 1E 2E 27 08 82 58 00 46 |P1.P1.2...'..X.F|
00002620: 2E 2A 08 8B 56 48 28 32 29 AA 56 48 28 33 29 AA |.*..VH(2).VH(3).|
00002630: 56 48 28 34 29 AA 56 48 28 35 29 B2 31 35 A7 50 |VH(4).VH(5).15.P|
00002640: 31 B2 50 31 AA 32 00 74 2E 2F 08 8B 56 48 28 31 |1.P1.2.t./..VH(1|
00002650: 29 AA 56 48 28 32 29 AA 56 48 28 33 29 AA 56 48 |).VH(2).VH(3).VH|
00002660: 28 34 29 AA 56 48 28 35 29 B2 31 35 A7 50 31 B2 |(4).VH(5).15.P1.|
00002670: 50 31 AA 32 00 8C 2E 31 08 8F 20 2A 20 50 41 49 |P1.2...1.. * PAI|
00002680: 52 53 20 53 43 4F 52 49 4E 47 20 2A 00 94 2E 34 |RS SCORING *...4|
00002690: 08 4B B2 31 00 A1 2E 39 08 81 58 B2 4B AA 31 A4 |.K.1...9..X.K.1.|
000026A0: 35 00 BA 2E 3E 08 8B 52 48 28 4B 29 B2 52 48 28 |5...>..RH(K).RH(|
000026B0: 58 29 A7 50 32 B2 50 32 AA 32 00 C1 2E 43 08 82 |X).P2.P2.2...C..|
000026C0: 58 00 CF 2E 48 08 8B 4B B2 34 A7 32 31 33 35 00 |X...H..K.4.2135.|
000026D0: DF 2E 4D 08 4B B2 4B AA 31 3A 89 32 31 30 35 00 |..M.K.K.1:.2105.|
000026E0: F6 2E 52 08 8F 20 2A 20 53 45 51 2E 20 53 43 4F |..R.. * SEQ. SCO|
000026F0: 52 49 4E 47 20 2A 00 0D 2F 57 08 81 58 B2 31 A4 |RING *../W..X.1.|
00002700: 36 3A 53 51 28 58 29 B2 32 30 3A 82 58 00 2B 2F |6:SQ(X).20:.X.+/|
00002710: 5C 08 58 B2 31 3A 4B B2 31 3A 53 51 28 58 29 B2 |\.X.1:K.1:SQ(X).|
00002720: 52 48 28 4B 29 3A 58 B2 58 AA 31 00 36 2F 61 08 |RH(K):X.X.1.6/a.|
00002730: 81 4B B2 4B A4 34 00 5E 2F 66 08 8B 52 48 28 4B |.K.K.4.^/f..RH(K|
00002740: 29 B3 B1 52 48 28 4B AA 31 29 A7 53 51 28 58 29 |)..RH(K.1).SQ(X)|
00002750: B2 52 48 28 4B AA 31 29 3A 58 B2 58 AA 31 00 65 |.RH(K.1):X.X.1.e|
00002760: 2F 6B 08 82 4B 00 84 2F 70 08 81 58 B2 31 A4 35 |/k..K../p..X.1.5|
00002770: 3A 48 51 28 58 29 B2 31 35 3A 82 58 3A 4B B2 31 |:HQ(X).15:.X:K.1|
00002780: 3A 58 B2 31 00 97 2F 75 08 8B 53 51 28 4B 29 B2 |:X.1../u..SQ(K).|
00002790: 32 30 A7 32 32 36 38 00 B1 2F 7A 08 8B 53 51 28 |20.2268../z..SQ(|
000027A0: 4B 29 B2 53 51 28 4B AA 31 29 AA 31 A7 32 31 38 |K).SQ(K.1).1.218|
000027B0: 30 00 C1 2F 7F 08 4B B2 4B AA 31 3A 89 32 31 36 |0../..K.K.1:.216|
000027C0: 35 00 FE 2F 84 08 8B 53 51 28 4B 29 B2 53 51 28 |5../...SQ(K).SQ(|
000027D0: 4B AA 32 29 AA 32 A7 50 33 B2 50 33 AA 33 3A 81 |K.2).2.P3.P3.3:.|
000027E0: 58 B2 31 A4 33 3A 48 51 28 58 29 B2 53 51 28 4B |X.1.3:HQ(X).SQ(K|
000027F0: AA 58 AB 31 29 3A 82 58 3A 89 32 31 39 30 00 0E |.X.1):.X:.2190..|
00002800: 30 89 08 4B B2 4B AA 31 3A 89 32 31 36 35 00 3F |0..K.K.1:.2165.?|
00002810: 30 8E 08 8B 53 51 28 4B 29 B2 53 51 28 4B AA 33 |0...SQ(K).SQ(K.3|
00002820: 29 AA 33 A7 50 33 B2 50 33 AA 31 3A 48 51 28 58 |).3.P3.P3.1:HQ(X|
00002830: 29 B2 53 51 28 4B AA 33 29 3A 89 32 32 30 30 00 |).SQ(K.3):.2200.|
00002840: 49 30 93 08 89 32 32 30 35 00 66 30 98 08 8B 53 |I0...2205.f0...S|
00002850: 51 28 4B 29 B2 53 51 28 4B AA 34 29 AA 34 A7 50 |Q(K).SQ(K.4).4.P|
00002860: 33 B2 50 33 AA 31 00 77 30 9D 08 58 B2 31 3A 5A |3.P3.1.w0..X.1:Z|
00002870: B2 30 3A 50 52 B2 30 00 82 30 A2 08 81 59 B2 31 |.0:PR.0..0...Y.1|
00002880: A4 34 00 8D 30 A7 08 81 4B B2 58 A4 35 00 A4 30 |.4..0...K.X.5..0|
00002890: AC 08 8B 48 51 28 58 29 B2 52 48 28 4B 29 A7 5A |...HQ(X).RH(K).Z|
000028A0: B2 5A AA 31 00 AB 30 B1 08 82 4B 00 BC 30 B6 08 |.Z.1..0...K..0..|
000028B0: 8B 5A B2 32 A7 50 52 B2 50 52 AA 31 00 CD 30 BB |.Z.2.PR.PR.1..0.|
000028C0: 08 8B 5A B2 33 A7 50 52 B2 50 52 AA 33 00 DB 30 |..Z.3.PR.PR.3..0|
000028D0: C0 08 58 B2 58 AA 31 3A 5A B2 30 00 E2 30 C5 08 |..X.X.1:Z.0..0..|
000028E0: 82 59 00 F4 30 CA 08 8B 50 52 B2 31 A7 50 33 B2 |.Y..0...PR.1.P3.|
000028F0: 50 33 AC 32 00 06 31 CF 08 8B 50 52 B2 32 A7 50 |P3.2..1...PR.2.P|
00002900: 33 B2 50 33 AC 34 00 18 31 D4 08 8B 50 52 B2 33 |3.P3.4..1...PR.3|
00002910: A7 50 33 B2 50 33 AC 33 00 2F 31 D9 08 8F 20 2A |.P3.P3.3./1... *|
00002920: 20 4E 49 42 53 20 53 43 4F 52 49 4E 47 20 2A 00 | NIBS SCORING *.|
00002930: 3D 31 DC 08 8B 57 B2 37 A7 32 33 30 33 00 48 31 |=1...W.7.2303.H1|
00002940: DE 08 81 58 B2 31 A4 44 00 5B 31 E3 08 8B 52 48 |...X.1.D.[1...RH|
00002950: 28 58 29 B2 31 31 A7 32 32 38 35 00 65 31 E8 08 |(X).11.2285.e1..|
00002960: 89 32 32 39 30 00 7C 31 ED 08 8B 53 24 28 58 29 |.2290.|1...S$(X)|
00002970: B2 54 53 24 A7 50 34 B2 50 34 AA 31 00 83 31 F2 |.TS$.P4.P4.1..1.|
00002980: 08 82 58 00 9A 31 F7 08 8F 20 2A 20 4A 41 43 4B |..X..1... * JACK|
00002990: 20 53 43 4F 52 49 4E 47 20 2A 00 AA 31 F8 08 8B | SCORING *..1...|
000029A0: 54 52 B2 31 31 A7 50 34 B2 30 00 B9 31 F9 08 8B |TR.11.P4.0..1...|
000029B0: 53 57 B2 31 A7 32 33 30 33 00 C9 31 FC 08 8B 54 |SW.1.2303..1...T|
000029C0: 52 B2 31 31 A7 50 35 B2 32 00 CF 31 FF 08 8E 00 |R.11.P5.2..1....|
000029D0: E7 31 01 09 8F 20 2A 20 46 4C 55 53 48 20 53 43 |.1... * FLUSH SC|
000029E0: 4F 52 49 4E 47 20 2A 00 04 32 06 09 4B B2 31 3A |ORING *..2..K.1:|
000029F0: 81 58 B2 31 A4 35 3A 48 24 28 58 29 B2 C4 28 58 |.X.1.5:H$(X)..(X|
00002A00: 29 3A 82 58 00 0F 32 0B 09 81 58 B2 31 A4 35 00 |):.X..2...X.1.5.|
00002A10: 23 32 10 09 8B 53 24 28 58 29 B2 54 53 24 A7 32 |#2...S$(X).TS$.2|
00002A20: 33 33 30 00 39 32 15 09 48 24 28 4B 29 B2 53 24 |330.92..H$(K).S$|
00002A30: 28 58 29 3A 4B B2 4B AA 31 00 40 32 1A 09 82 58 |(X):K.K.1.@2...X|
00002A40: 00 52 32 1F 09 5A B2 31 3A 8B 4B B2 31 A7 50 36 |.R2..Z.1:.K.1.P6|
00002A50: B2 35 00 5D 32 24 09 81 4B B2 31 A4 33 00 76 32 |.5.]2$..K.1.3.v2|
00002A60: 29 09 8B 48 24 28 4B 29 B2 48 24 28 4B AA 31 29 |)..H$(K).H$(K.1)|
00002A70: A7 5A B2 5A AA 31 00 7D 32 2E 09 82 4B 00 91 32 |.Z.Z.1.}2...K..2|
00002A80: 33 09 8B 5A B2 34 A7 50 36 B2 34 3A 89 32 33 36 |3..Z.4.P6.4:.236|
00002A90: 35 00 9B 32 38 09 89 32 33 37 30 00 AF 32 3D 09 |5..28..2370..2=.|
00002AA0: 8B 48 24 28 4B 29 B2 54 53 24 A7 50 36 B2 35 00 |.H$(K).TS$.P6.5.|
00002AB0: C8 32 42 09 54 50 B2 50 31 AA 50 32 AA 50 33 AA |.2B.TP.P1.P2.P3.|
00002AC0: 50 34 AA 50 35 AA 50 36 00 E7 32 47 09 47 54 B2 |P4.P5.P6..2G.GT.|
00002AD0: 47 54 AA 54 50 3A 48 41 B2 48 41 AA 54 50 3A 48 |GT.TP:HA.HA.TP:H|
00002AE0: 4C B2 48 4C AA 54 50 00 ED 32 4C 09 8E 00 0A 33 |L.HL.TP..2L....3|
00002AF0: 60 09 8F 20 2A 20 43 52 49 42 20 46 4C 55 53 48 |`.. * CRIB FLUSH|
00002B00: 20 53 43 4F 52 49 4E 47 20 2A 00 12 33 65 09 5A | SCORING *..3e.Z|
00002B10: B2 31 00 1D 33 6A 09 81 58 B2 31 A4 34 00 36 33 |.1..3j..X.1.4.63|
00002B20: 6F 09 8B 53 24 28 58 29 B2 53 24 28 58 AA 31 29 |o..S$(X).S$(X.1)|
00002B30: A7 5A B2 5A AA 31 00 3D 33 74 09 82 58 00 4B 33 |.Z.Z.1.=3t..X.K3|
00002B40: 79 09 8B 5A B2 35 A7 50 36 B2 35 00 64 33 7E 09 |y..Z.5.P6.5.d3~.|
00002B50: 54 50 B2 50 31 AA 50 32 AA 50 33 AA 50 34 AA 50 |TP.P1.P2.P3.P4.P|
00002B60: 35 AA 50 36 00 88 33 83 09 8B 57 B3 37 A7 47 54 |5.P6..3...W.7.GT|
00002B70: B2 47 54 AA 54 50 3A 43 41 B2 43 41 AA 54 50 3A |.GT.TP:CA.CA.TP:|
00002B80: 43 4C B2 43 4C AA 54 50 00 8E 33 88 09 8E 00 BE |CL.CL.TP..3.....|
00002B90: 33 28 0A 99 22 93 1F 4F 42 4A 45 43 54 20 4F 46 |3(.."..OBJECT OF|
00002BA0: 20 54 48 45 20 47 41 4D 45 20 49 53 20 54 4F 20 | THE GAME IS TO |
00002BB0: 53 43 4F 52 45 20 41 53 20 4D 41 4E 59 22 00 EF |SCORE AS MANY"..|
00002BC0: 33 2A 0A 99 22 50 4F 49 4E 54 53 20 41 53 20 50 |3*.."POINTS AS P|
00002BD0: 4F 53 53 49 42 4C 45 20 55 53 49 4E 47 20 54 48 |OSSIBLE USING TH|
00002BE0: 45 20 45 4E 54 49 52 45 20 44 45 43 4B 22 3B 00 |E ENTIRE DECK";.|
00002BF0: 1E 34 2C 0A 99 22 4F 46 20 43 41 52 44 53 2E 20 |.4,.."OF CARDS. |
00002C00: 20 4D 55 4C 54 49 50 4C 45 20 47 41 4D 45 53 20 | MULTIPLE GAMES |
00002C10: 43 41 4E 20 42 45 20 50 4C 41 59 45 44 22 00 4F |CAN BE PLAYED".O|
00002C20: 34 2E 0A 99 22 49 4E 20 57 48 49 43 48 20 54 48 |4..."IN WHICH TH|
00002C30: 45 20 43 4F 4D 50 55 54 45 52 20 4D 41 49 4E 54 |E COMPUTER MAINT|
00002C40: 41 49 4E 53 20 54 48 45 20 47 41 4D 45 22 3B 00 |AINS THE GAME";.|
00002C50: 7A 34 30 0A 99 22 41 56 45 52 41 47 45 53 2C 20 |z40.."AVERAGES, |
00002C60: 4E 4F 2E 20 4F 46 20 47 41 4D 45 53 20 50 4C 41 |NO. OF GAMES PLA|
00002C70: 59 45 44 2C 20 47 41 4D 45 22 00 8C 34 32 0A 99 |YED, GAME"..42..|
00002C80: 22 48 49 47 48 2C 20 45 54 43 2E 22 00 BE 34 3C |"HIGH, ETC."..4<|
00002C90: 0A 99 22 11 50 4F 49 4E 54 53 20 41 52 45 20 53 |..".POINTS ARE S|
00002CA0: 43 4F 52 45 44 20 49 4E 20 54 48 45 20 46 4F 4C |CORED IN THE FOL|
00002CB0: 4C 4F 57 49 4E 47 20 57 41 59 53 3A 22 3B 00 EF |LOWING WAYS:";..|
00002CC0: 34 3E 0A 99 22 20 2A 20 45 41 43 48 20 31 35 20 |4>.." * EACH 15 |
00002CD0: 43 4F 4D 42 49 4E 41 54 49 4F 4E 20 20 1C 12 20 |COMBINATION .. |
00002CE0: 20 32 20 50 54 53 2E 20 20 20 20 20 20 92 22 00 | 2 PTS. .".|
00002CF0: 21 35 40 0A 99 22 1F 20 2A 20 45 41 43 48 20 50 |!5@..". * EACH P|
00002D00: 41 49 52 20 20 20 20 20 20 20 20 20 20 20 20 1C |AIR .|
00002D10: 12 20 20 32 20 50 54 53 2E 20 20 20 20 20 20 92 |. 2 PTS. .|
00002D20: 22 00 53 35 42 0A 99 22 1F 20 2A 20 45 41 43 48 |".S5B..". * EACH|
00002D30: 20 52 55 4E 20 28 33 20 4F 52 20 4D 4F 52 45 29 | RUN (3 OR MORE)|
00002D40: 20 1C 12 20 20 31 20 50 54 2E 2F 43 41 52 44 20 | .. 1 PT./CARD |
00002D50: 20 92 22 00 85 35 44 0A 99 22 1F 20 2A 20 4A 41 | ."..5D..". * JA|
00002D60: 43 4B 20 41 53 20 54 55 52 4E 2D 55 50 20 43 41 |CK AS TURN-UP CA|
00002D70: 52 44 20 1C 12 20 20 32 20 50 54 53 2E 20 20 20 |RD .. 2 PTS. |
00002D80: 20 20 20 92 22 00 B7 35 46 0A 99 22 1F 20 2A 20 | ."..5F..". * |
00002D90: 54 55 52 4E 2D 55 50 20 53 55 49 54 20 4D 41 54 |TURN-UP SUIT MAT|
00002DA0: 43 48 45 53 20 1C 12 20 20 20 20 20 20 20 20 20 |CHES .. |
00002DB0: 20 20 20 20 20 92 22 00 E9 35 48 0A 99 22 1F 20 | ."..5H..". |
00002DC0: 20 20 20 20 4A 41 43 4B 20 49 4E 20 48 41 4E 44 | JACK IN HAND|
00002DD0: 20 20 20 20 20 20 20 1C 12 20 20 31 20 50 54 2E | .. 1 PT.|
00002DE0: 20 20 20 20 20 20 20 92 22 00 1B 36 4A 0A 99 22 | ."..6J.."|
00002DF0: 1F 20 2A 20 46 4C 55 53 48 20 4F 46 20 34 20 4F |. * FLUSH OF 4 O|
00002E00: 52 20 35 20 20 20 20 20 20 1C 12 20 20 31 20 50 |R 5 .. 1 P|
00002E10: 54 2E 2F 43 41 52 44 20 20 92 22 00 33 36 50 0A |T./CARD .".36P.|
00002E20: 99 22 11 1F 53 50 45 43 49 41 4C 20 4E 4F 54 45 |."..SPECIAL NOTE|
00002E30: 53 3A 22 00 60 36 52 0A 99 22 20 DA 20 46 41 43 |S:".`6R.." . FAC|
00002E40: 45 20 43 41 52 44 53 20 48 4F 4C 44 20 41 20 56 |E CARDS HOLD A V|
00002E50: 41 4C 55 45 20 4F 46 20 31 30 20 57 48 45 4E 22 |ALUE OF 10 WHEN"|
00002E60: 00 84 36 54 0A 99 22 20 20 20 20 20 53 43 4F 52 |..6T.." SCOR|
00002E70: 49 4E 47 20 31 35 20 43 4F 4D 42 49 4E 41 54 49 |ING 15 COMBINATI|
00002E80: 4F 4E 53 22 00 B2 36 56 0A 99 22 20 DA 20 52 41 |ONS"..6V.." . RA|
00002E90: 4E 4B 20 28 4C 4F 57 20 54 4F 20 48 49 47 48 29 |NK (LOW TO HIGH)|
00002EA0: 20 49 53 20 41 2C 32 2C 33 2E 2E 2E 31 30 2C 4A | IS A,2,3...10,J|
00002EB0: 2C 22 00 D8 36 58 0A 99 22 20 20 20 20 20 51 2C |,"..6X.." Q,|
00002EC0: 4B 20 49 4E 20 52 55 4E 53 20 4F 46 20 33 20 4F |K IN RUNS OF 3 O|
00002ED0: 52 20 4D 4F 52 45 2E 22 00 05 37 5A 0A 99 22 20 |R MORE."..7Z.." |
00002EE0: DA 20 46 4C 55 53 48 20 49 4E 20 48 41 4E 44 20 |. FLUSH IN HAND |
00002EF0: 4D 41 59 20 42 45 20 34 20 4F 52 20 35 20 43 41 |MAY BE 4 OR 5 CA|
00002F00: 52 44 53 2C 22 00 32 37 5C 0A 99 22 20 20 20 20 |RDS,".27\.." |
00002F10: 20 42 55 54 20 43 52 49 42 20 4D 55 53 54 20 42 | BUT CRIB MUST B|
00002F20: 45 20 35 20 54 4F 20 42 45 20 53 43 4F 52 45 44 |E 5 TO BE SCORED|
00002F30: 2E 22 00 60 37 5E 0A 99 22 11 20 20 20 20 20 20 |.".`7^..". |
00002F40: 48 49 54 20 1C 12 3C 52 45 54 55 52 4E 3E 92 1F |HIT ..<RETURN>..|
00002F50: 20 46 4F 52 20 4E 45 58 54 20 50 41 47 45 22 3B | FOR NEXT PAGE";|
00002F60: 00 74 37 60 0A A1 41 24 3A 8B 41 24 B2 22 22 A7 |.t7`..A$:.A$."".|
00002F70: 32 36 35 36 00 88 37 62 0A 8B 41 24 B3 B1 C7 28 |2656..7b..A$...(|
00002F80: 31 33 29 A7 32 36 35 36 00 B8 37 64 0A 99 22 93 |13).2656..7d..".|
00002F90: 54 48 45 20 50 4F 49 4E 54 53 20 41 52 45 20 43 |THE POINTS ARE C|
00002FA0: 41 4C 43 55 4C 41 54 45 44 20 41 55 54 4F 4D 41 |ALCULATED AUTOMA|
00002FB0: 54 49 43 41 4C 4C 59 22 00 E0 37 66 0A 99 22 46 |TICALLY"..7f.."F|
00002FC0: 4F 52 20 59 4F 55 20 49 4E 20 54 48 49 53 20 47 |OR YOU IN THIS G|
00002FD0: 41 4D 45 2E 20 54 48 45 52 45 46 4F 52 45 2C 22 |AME. THEREFORE,"|
00002FE0: 00 0F 38 68 0A 99 22 45 58 50 45 52 49 45 4E 43 |..8h.."EXPERIENC|
00002FF0: 45 20 57 49 4C 4C 20 54 45 41 43 48 20 59 4F 55 |E WILL TEACH YOU|
00003000: 20 54 4F 20 55 4E 44 45 52 53 54 41 4E 44 22 00 | TO UNDERSTAND".|
00003010: 32 38 6A 0A 99 22 48 4F 57 20 54 48 45 20 50 4F |28j.."HOW THE PO|
00003020: 49 4E 54 53 20 41 52 45 20 43 4F 55 4E 54 45 44 |INTS ARE COUNTED|
00003030: 2E 22 00 5F 38 6E 0A 99 22 11 59 4F 55 20 4D 55 |."._8n..".YOU MU|
00003040: 53 54 20 53 45 4C 45 43 54 20 32 20 43 41 52 44 |ST SELECT 2 CARD|
00003050: 53 20 46 4F 52 20 41 20 53 45 43 4F 4E 44 22 00 |S FOR A SECOND".|
00003060: 89 38 70 0A 99 22 48 41 4E 44 20 43 41 4C 4C 45 |.8p.."HAND CALLE|
00003070: 44 20 41 20 43 52 49 42 20 28 48 45 4E 43 45 20 |D A CRIB (HENCE |
00003080: 54 48 45 20 4E 41 4D 45 22 00 B5 38 72 0A 99 22 |THE NAME"..8r.."|
00003090: 43 52 49 42 42 41 47 45 29 2E 20 59 4F 55 20 57 |CRIBBAGE). YOU W|
000030A0: 49 4C 4C 20 42 45 20 41 42 4C 45 20 54 4F 20 53 |ILL BE ABLE TO S|
000030B0: 43 4F 52 45 22 00 E2 38 74 0A 99 22 54 48 45 53 |CORE"..8t.."THES|
000030C0: 45 20 43 41 52 44 53 20 4C 41 54 45 52 20 4A 55 |E CARDS LATER JU|
000030D0: 53 54 20 41 53 20 59 4F 55 20 44 4F 20 49 4E 20 |ST AS YOU DO IN |
000030E0: 41 22 00 10 39 76 0A 99 22 48 41 4E 44 2E 20 54 |A"..9v.."HAND. T|
000030F0: 4F 20 53 45 4C 45 43 54 2C 20 55 53 45 20 54 48 |O SELECT, USE TH|
00003100: 45 20 52 45 46 45 52 45 4E 43 45 20 4E 4F 2E 22 |E REFERENCE NO."|
00003110: 00 41 39 78 0A 99 22 54 48 41 54 20 50 45 52 54 |.A9x.."THAT PERT|
00003120: 41 49 4E 53 20 54 4F 20 54 48 45 20 44 45 53 49 |AINS TO THE DESI|
00003130: 52 45 44 20 43 41 52 44 2E 20 41 46 54 45 52 22 |RED CARD. AFTER"|
00003140: 3B 00 6D 39 7A 0A 99 22 53 45 4C 45 43 54 49 4F |;.m9z.."SELECTIO|
00003150: 4E 20 49 53 20 4D 41 44 45 2C 20 41 20 54 55 52 |N IS MADE, A TUR|
00003160: 4E 2D 55 50 20 43 41 52 44 20 49 53 22 00 9C 39 |N-UP CARD IS"..9|
00003170: 7C 0A 99 22 44 45 41 4C 54 2E 20 49 54 20 49 53 ||.."DEALT. IT IS|
00003180: 20 54 4F 20 42 45 20 55 53 45 44 20 49 4E 20 53 | TO BE USED IN S|
00003190: 43 4F 52 49 4E 47 20 42 4F 54 48 22 00 B6 39 7E |CORING BOTH"..9~|
000031A0: 0A 99 22 54 48 45 20 48 41 4E 44 20 41 4E 44 20 |.."THE HAND AND |
000031B0: 43 52 49 42 2E 22 00 E4 39 82 0A 99 22 11 53 49 |CRIB."..9...".SI|
000031C0: 58 20 52 4F 55 4E 44 53 20 49 4E 43 4C 55 44 49 |X ROUNDS INCLUDI|
000031D0: 4E 47 20 4C 41 53 54 20 34 20 43 41 52 44 53 20 |NG LAST 4 CARDS |
000031E0: 41 52 45 22 00 13 3A 84 0A 99 22 50 4C 41 59 45 |ARE"..:..."PLAYE|
000031F0: 44 20 54 4F 20 43 4F 4D 50 4C 45 54 45 20 4F 4E |D TO COMPLETE ON|
00003200: 45 20 47 41 4D 45 2E 20 41 20 54 4F 54 41 4C 20 |E GAME. A TOTAL |
00003210: 4F 46 22 00 36 3A 86 0A 99 22 31 32 31 20 50 54 |OF".6:..."121 PT|
00003220: 2E 20 49 53 20 41 20 57 49 4E 4E 49 4E 47 20 53 |. IS A WINNING S|
00003230: 43 4F 52 45 2E 22 00 65 3A 88 0A 99 22 11 11 11 |CORE.".e:..."...|
00003240: 1C DA 20 48 49 4E 54 3A 1F 20 54 48 45 20 32 4E |.. HINT:. THE 2N|
00003250: 44 20 52 4F 55 4E 44 20 54 55 52 4E 2D 55 50 20 |D ROUND TURN-UP |
00003260: 43 41 52 44 22 00 8C 3A 8A 0A 99 22 41 50 50 45 |CARD"..:..."APPE|
00003270: 41 52 53 20 41 47 41 49 4E 20 49 4E 20 54 48 45 |ARS AGAIN IN THE|
00003280: 20 36 54 48 20 52 4F 55 4E 44 2E 22 00 BA 3A 8C | 6TH ROUND."..:.|
00003290: 0A 99 22 11 20 20 20 20 20 20 20 48 49 54 20 1C |..". HIT .|
000032A0: 12 3C 52 45 54 55 52 4E 3E 92 1F 20 54 4F 20 50 |.<RETURN>.. TO P|
000032B0: 4C 41 59 20 47 41 4D 45 22 3B 00 CE 3A 91 0A A1 |LAY GAME";..:...|
000032C0: 41 24 3A 8B 41 24 B2 22 22 A7 32 37 30 35 00 E2 |A$:.A$."".2705..|
000032D0: 3A 94 0A 8B 41 24 B3 B1 C7 28 31 33 29 A7 32 37 |:...A$...(13).27|
000032E0: 30 35 00 E8 3A 96 0A 8E 00 04 3B F0 0A 9F 34 2C |05..:.....;...4,|
000032F0: 34 3A 9D 34 3A 81 49 B2 31 A4 32 30 3A 81 4A B2 |4:.4:.I.1.20:.J.|
00003300: 31 A4 33 33 00 30 3B FA 0A 50 4B B2 C2 28 31 30 |1.33.0;..PK..(10|
00003310: 32 33 AA 49 AC 34 30 AA 4A 29 3A 8B 50 4B B3 33 |23.I.40.J):.PK.3|
00003320: 32 A7 50 4B B2 50 4B AA 36 34 3A 89 32 38 33 30 |2.PK.PK.64:.2830|
00003330: 00 44 3B 04 0B 8B 50 4B B1 36 33 A7 50 4B B2 50 |.D;...PK.63.PK.P|
00003340: 4B AA 33 32 00 60 3B 0E 0B 98 34 2C C7 28 31 34 |K.32.`;...4,.(14|
00003350: 29 C7 28 50 4B 29 3B 3A 82 4A 3A 98 34 3A 82 49 |).(PK);:.J:.4:.I|
00003360: 00 7F 3B 18 0B 98 34 2C C7 28 31 35 29 3B C7 28 |..;...4,.(15);.(|
00003370: 31 32 29 3B 3A 20 A0 34 3A 20 20 20 20 20 8E 00 |12);: .4: ..|
00003380: 93 3B 18 F6 8F 20 20 20 50 4C 41 59 20 41 47 41 |.;... PLAY AGA|
00003390: 49 4E 3F 00 B9 3B 22 F6 99 22 93 11 11 11 44 4F |IN?..;".."....DO|
000033A0: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 50 4C 41 | YOU WANT TO PLA|
000033B0: 59 20 41 47 41 49 4E 3F 22 00 E6 3B 2C F6 97 31 |Y AGAIN?"..;,..1|
000033C0: 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 41 24 3A |98,0:.198,1:.A$:|
000033D0: 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 |.A$.."Y".A$.."N"|
000033E0: A7 36 33 30 32 30 00 F7 3B 36 F6 8B 41 24 B2 22 |.63020..;6..A$."|
000033F0: 59 22 A7 20 31 37 38 00 24 3C 40 F6 99 22 93 11 |Y". 178.$<@.."..|
00003400: 11 11 4C 4F 41 44 22 C7 28 33 34 29 22 31 22 C7 |..LOAD".(34)"1".|
00003410: 28 33 34 29 22 2C 38 22 3A 99 22 11 11 11 11 52 |(34)",8":."....R|
00003420: 55 4E 13 22 00 49 3C 4A F6 97 36 33 31 2C 31 33 |UN.".I<J..631,13|
00003430: 3A 97 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 3A |:.632,13:.198,2:|
00003440: 20 20 20 20 20 20 20 20 80 00 00 00 | .... |
....... **********************.;.... *
*.X.... * CRIBBAGE SOL
ITAIRE *.U.... * (COMMODORE 64) *...
... * BY *...... * CHRIS
CONSTANTINOU *.L.... * FEBRUARY 1984
*...... * *......
**********************...F.LH.999:LC.999
.0.P..53280,11:.53281,15.J.Z.. .B(X)..(X
.10..5).10.V._..54296,15:.54277,68:.5427
3,63:.54272,75...N..A(54),DE(54),A$(11),
RR$(13),V(13),R(13)...X..I.1.13:.RR$(I):
.I.O....I.1.13:.V(I):.I......I.1.13:.R(I
):.I...... A,2,3,4,5,6,7,8,9,10,J,Q,K.).
... 1,2,3,4,5,6,7,8,9,10,10,10,10.M....
1,2,3,4,5,6,7,8,9,10,11,12,13... .."....
. .
."......" . CRIBBAGE SOLITAIRE
."......" .
."......"....
DO YOU WISH TO SEE".".....16)".PLAYIN
G".F.....10)"....O..................P".F
.....10)".IF YES,ENTER Y OR .".......10)
".HIT .RETURN. TO PLAY.".......10)"L....
...............".X....".......
INSTRUCTIONS N...";A$......H(A$,1)."Y
"..2600.#...."... .
.".T...." . CR
IBBAGE SOLITAIRE ."......" .
."...
..."....... SHUFFLING THE DECK OF C
ARDS".O.....13)".IS IN PROCESS"......I.1
.52:A(I).I:.I:I.1:CC.0:S.1:GT.0:HL.0:CL.
0.(....W.1.6:. DEAL RANDOM CARDS TO CRIB
.:.H.CD.0:.I.I.I.1.`....1005:. DEAL RAND
OM CARDS TO CRIB.R....DE(I).39.270......
DE(I).26.280......DE(I).13.290.....R.DE(
I):SC$(CD)."S":.295.S...R.DE(I).39:SC$(C
D)."A":.295.....R.DE(I).26:SC$(CD)."X":.
295...".R.DE(I).13:SC$(CD)."Z".<.'.RC$(C
D).RR$(R):RC(CD).R(R):VC(CD).V(R):.I.T..
.. *** DEAL HAND ***.F...CD.0:.I.I.I.5..
....1005:. ** DEAL RANDOM CARDS **......
DE(I).39.460......DE(I).26.470......DE(I
).13.480...B.R.DE(I):S$(CD)."S":.485...L
.R.DE(I).39:S$(CD)."A":.485...V.R.DE(I).
26:S$(CD)."X":.485.4...R.DE(I).13:S$(CD)
."Z".^...R$(CD).RR$(R):RH(CD).R(R):VH(CD
).V(R).L....I.53.494.U....500.....R$(6).
TR$(1):S$(6).TS$(1):RH(6).TR(1):VH(6).TV
(1):I.54......I...X..".":CC.0:D.6:.1045:
. ** SORT HAND OF CARDS **...B..L.1.6...
L.R$.R$(L):S$.S$(L):R.RH(L).-.V.C$."":.R
$."10".C$.".".S....1215:. ** BUILD GRAPH
ICS ZONE **......R.1300,1350,1400,1450,1
500,1550,1600,1650,1700,1750,1800,1850,1
900...... ** PRINT CARD **.S....".";:.L.
4.TB.CC.8.4:..TB);L......S$."S".S$."Z"..
".";:.663......".";......L.4.666......L.
4.CC.0:."....".-...TB.CC.8.10.D....54276
,129:.J.1.11:..TB);A$(J):.J:.".";:.54276
,128.U....L.3...TB);L.....CC.CC.1:."....
.........":.L:."..".30)".HAND"W"...#.".K
...."....................";.......11)"SE
LECT 2 CARDS FOR"... ...11)"CRIB."......
.11)".GAME POINTS:.";GT.B.....18)"....1S
T:. . ..........";.H....198,0:.1
98,1:.C1$:.C1$."0".63000......E(C1$).1.E
(C1$).6.675.....:......C1$" .2ND:. ..";
:C1.E(C1$).R....C2$:.E(C2$).1.E(C2$).6.C
2$.C1$.679......C2$:C2.E(C2$)......"....
..................... Z HIT ..<RETUR
N>.. TO SCORE HAND Z";.A....A$:.A$."".68
5.]....A$.G(20).A$.G(157).670.P....A$..G
(13).685.....CD.3:K.1:.J.1.6.A....J.C1.J
.C2.RC$(CD).R$(J):SC$(CD).S$(J):RC(CD).R
H(J):.700.J....705.....VC(CD).VH(J):CD.C
D.1:.708.$.A.RS$(K).R$(J):SS$(K).S$(J):R
S(K).RH(J):VS(K).VH(J):K.K.1.+.D..J.K.F.
.K.1.4:R$(K).RS$(K):S$(K).SS$(K):RH(K).R
S(K):VH(K).VS(K):.K...P..W.6.TR$.TR$(2):
TS$.TS$(2):TR.TR(2):TV.TV(2):.760...R..1
005:. ** DEAL TURN-UP **.R.U..DE(I).39.7
45...Z..DE(I).26.750......DE(I).13.755..
...R.DE(I):TS$."S":.757.+...R.DE(I).39:T
S$."A":.757.G...R.DE(I).26:TS$."X":.757.
^...R.DE(I).13:TS$."Z".}...TR$.RR$(R):TR
.R(R):TV.V(R).....I.I.1:R$(5).TR$:S$(5).
TS$:RH(5).TR:VH(5).TV.R...D.5:.1045:. **
SORT HAND OF 5 **.....SW.0:.2000:. ** S
CORE HAND **......2310:. ** SCORE FLUSH
IN HAND **.D...C$.".":."..".15)". HAND #
";W;C$;" ..".N...CC.0:.L.1.5:R$.R$(L):S$
.S$(L):R.RH(L).....C$."":.R$."10".C$."."
......1215:. ** GRAPHICS **......R.1300,
1350,1400,1450,1500,1550,1600,1650,1700,
1750,1800,1850,1900......S$."S".S$."Z"..
".";:.798......".";.N...TB.CC.6.3:.54276
,129:.J.1.11:..TB);A$(J):.J:.54276,128.S
. .CC.CC.1:."............":.L:.".";...".
."...........".E.$...10)"TURN-UP IS:
";:TC$.".":.TS$."Z".TS$."S".TC$.".".Z.
%..TC$.TR$.TS$."."...&...10)".POINTS IN
HAND: ";TP...(...10)".GAME POINTS: ."
;GT.L./...4)"...Z HIT ..<RETURN>.. TO SC
ORE CRIB Z";._.1..A$:.A$."".817.R.4..A$.
.G(13).817...9.. ** MOVE CRIB VAR.TO HAN
D **.T.>..X.1.4:R$(X).RC$(X):S$(X).SC$(X
):RH(X).RC(X):VH(X).VC(X):.X...@.R$(5).T
R$:S$(5).TS$:RH(5).TR:VH(5).TV.#.C.D.5:.
1045:. ** SORT CRIB OF 5 **.E.D.SW.1:.20
00:. ** SCORE CRIB **.C.E..2400:. ** SCO
RE FLUSH **...F.C$.".":."..".15)". CRIB
#";W;C$;" .."...H.CC.0:TB.0:.L.1.5.V.M.R
$.R$(L):S$.S$(L):R.RH(L):C$."":.R$."10".
C$."."...R..1215:. ** GRAPHICS **.9.T..R
.1300,1350,1400,1450,1500,1550,1600,1650
,1700,1750,1800,1850,1900.W.U..S$."S".S$
."Z"..".";:.856.A.V..".";...X.TB.CC.6.3:
.54276,129:.J.1.11:..TB);A$(J):.J:.54276
,128.A.Z.CC.CC.1:."............":.L:."."
;...]...10)"............TURN-UP IS:
";TC$.TR$.TS$."."...^...10)".POINTS IN
CRIB: ";TP.;._...10)".GAME POINTS: ."
;GT.Q.`.."... Z HIT ..<RETURN>.. TO DEAL
ANOTHER HAND Z";...A..A$:.A$."".865...C
..A$..G(13).865...F.. ** STORE TURN-UP I
N HOLD **...P.TR$(S).TR$:TS$(S).TS$:TR(S
).TR:TV(S).TV:S.S.1...Z..W...... *** LAS
T HAND ***.R....X.2.5:R$(X.1).TR$(X):S$(
X.1).TS$(X):RH(X.1).TR(X):VH(X.1).TV(X):
.X.Z...R$(5)."":S$(5)."":RH(5).15:VH(5).
15.....D.4:.1045:. ** SORT LAST HAND **.
.....".".J....2000:. ** SCORE HAND OF 4
**......2310:. ** SCORE FLUSH **......".
.".14)". LAST HAND ..".....CC.0:.L.1.4.J
...R$.R$(L):S$.S$(L):R.RH(L):C$."":.R$."
10".C$.".".E....1215:. ** GRAPHICS **...
...R.1300,1350,1400,1450,1500,1550,1600,
1650,1700,1750,1800,1850,1900.K....S$."S
".S$."Z"..".";:.960.U....".";.....TB.CC.
6.6:.54276,129:.J.1.11:..TB);A$(J):.J:.5
4276,128./.B.CC.CC.1:."............":.L.
U.E...13)".............LAST HAND:";TP.R.
F...11)".GAME POINTS:.";GT...H.."... Z
HIT ..<RETURN>.. TO VIEW GAME TOTALS Z";
...J..A$:.A$."".970.N.K..A$..G(13).970..
.L..GT.GH.GH.GT...M.GC.GC.1:GA.GA.GT...T
.."...".7)"U........................I".E
.U...7)"B .CRIBBAGE SOLITAIRE. .".L.
V...7)"B .STATISTICAL AVERAGES. ."...X
...7)"J........................K "...Y..
.9)"..GAME POINTS : ";GT...Z...9)"LA
ST AVG/HAND: ";.B(HL.6):..B(HL.6).HH.
HH..B(HL.6).2 ....9)"LAST AVG/CRIB: "
;.B(CL.6):..B(CL.6).HC.HC..B(CL.6).Z ...
.9)".AVERAGE/GAME : ";.B(GA.GC).. ...
.9)"AVERAGE/HAND : ";.B(HA.6.GC).. ..
..9)"AVERAGE/CRIB : ";.B(CA.6.GC).. .
...9)".HIGH AVG/HAND: ";HH:..B(HL.6).
LH.LH..B(HL.6)..!....9)"HIGH AVG/CRIB:
";HC:..B(CL.6).LC.LC..B(CL.6).?!....9)
"LOW AVG/HAND : ";LH._!....9)"LOW AVG
/CRIB : ";LC..!....9)".GAMES PLAYED :
"GC:..9)"GAME HIGH : ."GH.I!..
.:." DO YOU WANT TO PRINT YOUR RESULTS?
"..!...A$:.A$.."Y".A$.."N".997..!...A$."
Y"..2800:.63000.."...63000.."...160.*"..
V..((53.I)..(0).1).A"..DE(I).A(V):CD.CD.
1.`"...J.V.(52.I):A(J).A(J.1):.J.F".....
"... *** SORT SUBROUTINE ***.."...M.1.D.
1.."...N.1.D.1.."...RH(N).RH(N.1).1065.B
"$..N:.M:...").R.RH(N):RH(N).RH(N.1):RH(
N.1).R..#..R$.R$(N):R$(N).R$(N.1):R$(N.1
).R$.2#3.S$.S$(N):S$(N).S$(N.1):S$(N.1).
S$.V#8.V.VH(N):VH(N).VH(N.1):VH(N.1).V.`
#=..1060..#... ** GRAPHICS BUILD AREA **
..#..A$(1)."O.......P"..#D.A$(2).".".R$.
" ".C$." .".Y#I..R(L).11.R(L).12.R(L
).13.1240..#N.A$(3).".".S$." ."..$S
.A$(9).". ".S$."."..$X.A$(10).".
".C$.R$.".".E$..A$(11)."L........".K$
....A$..A$(4).". .".W$..A$(5).".
."..$..A$(6).". ".S$." ."..$#.A
$(7).". ."..$(.A$(8).". .".D
$-....$F.A$(4).". ".S$." ."..$K.A$(5
).". ."..%P.A$(6).". .".!%U.
A$(7).". .".<%Z.A$(8).". ".S$."
.".B%_...]%X.A$(4).". ".S$." .".S%
}.A$(5).". ."..%..A$(6).". ".S$.
" ."..%..A$(7).". ."..%..A$(8)."
. ".S$." .".E%.....%..A$(4).". ".S$.
" ".S$." ."..%..A$(5).". ."..&..
A$(6).". .".'&..A$(7).". .".
G&..A$(8).". ".S$." ".S$." .".M&C...M&
..A$(4).". ".S$." ".S$." ."..&..A$(5).
". ."..&..A$(6).". ".S$." ."..
&..A$(7).". .".T&..A$(8).". ".S$."
".S$." .".Z&.....&..A$(4).". ".S$."
".S$." ."..'..A$(5).". .".0'..A$(
6).". ".S$." ".S$." .".F'..A$(7).".
.".F'".A$(8).". ".S$." ".S$." .".L
''....'@.A$(4).". ".S$." ".S$." ."..'E
.A$(5).". ".S$." .".G'J.A$(6).". ".S
$." ".S$." ."..'O.A$(7).". ."..'
T.A$(8).". ".S$." ".S$." ."..(Y...#(R.
A$(4).". ".S$." ".S$." .".>(W.A$(5).".
".S$." .".^(|.A$(6).". ".S$." ".S
$." .".Y(..A$(7).". ".S$." ."..(..A$
(8).". ".S$." ".S$." ."..(.....(..A$(4
).". ".S$." ".S$." ."..(..A$(5).". ".S
$." ".S$." ."..(..A$(6).". ".S$."
."..)..A$(7).". ".S$." ".S$." .".:)..A
$(8).". ".S$." ".S$." .".@)....`)V.A$(
4).". ".S$." ".S$." ."..)..A$(5).". ".
S$." ".S$." .". )..A$(6).". ".S$." "
.S$." ."..)..A$(7).". ".S$." ".S$." ."
..)..A$(8).". ".S$." ".S$." ."..).....
*..A$(3)."..".S$."... W....."..*..A$(4).
".. ... U. ...".>*..A$(5).".. .".S$." O
.....".X*..A$(6).".............".W*..A$(
7)."...... ".S$.". .."..*!.A$(8)."... .
K ... .."..*&.A$(9).".....W ...".S$.".."
..*+...U*:.A$(3)."..".S$."... W.. .."..*
?.A$(4).".. ... J. .."..+D.A$(5).".. ."
.S$." O.....".(+I.A$(6)."............."
.G+N.A$(7)."...... ".S$.". ..".A+S.A$(8
).".. .I ... .."..+X.A$(9).".. ..W ..."
.S$.".."..+]....+L.A$(3)."..".S$."..W ..
. .."..+Q.A$(4)."... .I O.. .."..+V.A$(5
)."...P ".S$.". .."..+{.A$(6)."........
....."..,..A$(7).".. .".S$." L....."./,
..A$(8).".. ... J. ...".N,..A$(9).".. ..
. W..".S$."..".T,....J,K.. *** SCORING *
**.P,L....,M.. ** 15 COMB. **..,P.P1.0:P
2.0:P3.0:P4.0:P5.0:P6.0:TP.0:K.1..,Z..X.
K.1.5.Y,...VH(K).VH(X).15.P1.P1.2..,...X
..,...K.4.2035..,..K.K.1:.2010..-...X.3.
5.+-...VH(1).VH(2).VH(X).15.P1.P1.2.2-..
.X.=-...X.4.5._-...VH(1).VH(3).VH(X).15.
P1.P1.2..-...VH(2).VH(3).VH(X).15.P1.P1.
2..-...VH(1).VH(2).VH(3).VH(X).15.P1.P1.
2..-...X..-...X.1.3..- ..VH(X).VH(4).VH(
5).15.P1.P1.2..-"..X..-%..X.2.3...&..VH(
1).VH(X).VH(4).VH(5).15.P1.P1.2...'..X.F
.*..VH(2).VH(3).VH(4).VH(5).15.P1.P1.2.T
./..VH(1).VH(2).VH(3).VH(4).VH(5).15.P1.
P1.2...1.. * PAIRS SCORING *...4.K.1...9
..X.K.1.5...>..RH(K).RH(X).P2.P2.2.A.C..
X.O.H..K.4.2135...M.K.K.1:.2105...R.. *
SEQ. SCORING *../W..X.1.6:SQ(X).20:.X.+/
\.X.1:K.1:SQ(X).RH(K):X.X.1.6/A..K.K.4.^
/F..RH(K)..RH(K.1).SQ(X).RH(K.1):X.X.1.E
/K..K../P..X.1.5:HQ(X).15:.X:K.1:X.1../U
..SQ(K).20.2268../Z..SQ(K).SQ(K.1).1.218
0.A/.K.K.1:.2165../...SQ(K).SQ(K.2).2.P
3.P3.3:.X.1.3:HQ(X).SQ(K.X.1):.X:.2190..
0..K.K.1:.2165.?0...SQ(K).SQ(K.3).3.P3.P
3.1:HQ(X).SQ(K.3):.2200.I0...2205.F0...S
Q(K).SQ(K.4).4.P3.P3.1.W0..X.1:Z.0:PR.0.
.0...Y.1.4..0...K.X.5..0...HQ(X).RH(K).Z
.Z.1..0...K..0...Z.2.PR.PR.1.M0...Z.3.PR
.PR.3..0..X.X.1:Z.0..0E..Y..0J..PR.1.P3.
P3.2..1O..PR.2.P3.P3.4..1T..PR.3.P3.P3.3
./1Y.. * NIBS SCORING *.=1...W.7.2303.H1
...X.1.D.[1...RH(X).11.2285.E1...2290.|1
...S$(X).TS$.P4.P4.1..1...X..1... * JACK
SCORING *..1...TR.11.P4.0..1...SW.1.230
3.I1...TR.11.P5.2.O1.....1... * FLUSH SC
ORING *..2..K.1:.X.1.5:H$(X).D(X):.X..2.
..X.1.5.#2...S$(X).TS$.2330.92..H$(K).S$
(X):K.K.1.@2...X.R2..Z.1:.K.1.P6.5.]2$..
K.1.3.V2)..H$(K).H$(K.1).Z.Z.1.}2...K..2
3..Z.4.P6.4:.2365..28..2370..2=..H$(K).T
S$.P6.5.H2B.TP.P1.P2.P3.P4.P5.P6..2G.GT.
GT.TP:HA.HA.TP:HL.HL.TP..2L....3`.. * CR
IB FLUSH SCORING *..3E.Z.1..3J..X.1.4.63
O..S$(X).S$(X.1).Z.Z.1.=3T..X.K3Y..Z.5.P
6.5.D3~.TP.P1.P2.P3.P4.P5.P6..3...W.7.GT
.GT.TP:CA.CA.TP:CL.CL.TP..3.....3(.."..O
BJECT OF THE GAME IS TO SCORE AS MANY"..
3*.."POINTS AS POSSIBLE USING THE ENTIRE
DECK";..4,.."OF CARDS. MULTIPLE GAMES
CAN BE PLAYED".O4..."IN WHICH THE COMPUT
ER MAINTAINS THE GAME";.Z40.."AVERAGES,
NO. OF GAMES PLAYED, GAME"..42.."HIGH, E
TC."..4<..".POINTS ARE SCORED IN THE FOL
LOWING WAYS:";..4>.." * EACH 15 COMBINAT
ION .. 2 PTS. .".!5@..". * EACH P
AIR .. 2 PTS. .".S5B.."
. * EACH RUN (3 OR MORE) .. 1 PT./CARD
."..5D..". * JACK AS TURN-UP CARD .. 2
PTS. ."..5F..". * TURN-UP SUIT MAT
CHES .. ."..5H..". JACK
IN HAND .. 1 PT. ."..6J.."
. * FLUSH OF 4 OR 5 .. 1 PT./CARD
.".36P.."..SPECIAL NOTES:".`6R.." Z FAC
E CARDS HOLD A VALUE OF 10 WHEN"..6T.."
SCORING 15 COMBINATIONS"..6V.." Z RA
NK (LOW TO HIGH) IS A,2,3...10,J,".X6X..
" Q,K IN RUNS OF 3 OR MORE."..7Z.."
Z FLUSH IN HAND MAY BE 4 OR 5 CARDS,".27
\.." BUT CRIB MUST BE 5 TO BE SCORED
.".`7^..". HIT ..<RETURN>.. FOR NEX
T PAGE";.T7`..A$:.A$."".2656..7B..A$..G(
13).2656..7D..".THE POINTS ARE CALCULATE
D AUTOMATICALLY"..7F.."FOR YOU IN THIS G
AME. THEREFORE,"..8H.."EXPERIENCE WILL T
EACH YOU TO UNDERSTAND".28J.."HOW THE PO
INTS ARE COUNTED."._8N..".YOU MUST SELEC
T 2 CARDS FOR A SECOND"..8P.."HAND CALLE
D A CRIB (HENCE THE NAME"..8R.."CRIBBAGE
). YOU WILL BE ABLE TO SCORE"..8T.."THES
E CARDS LATER JUST AS YOU DO IN A"..9V..
"HAND. TO SELECT, USE THE REFERENCE NO."
.A9X.."THAT PERTAINS TO THE DESIRED CARD
. AFTER";.M9Z.."SELECTION IS MADE, A TUR
N-UP CARD IS"..9|.."DEALT. IT IS TO BE U
SED IN SCORING BOTH"..9~.."THE HAND AND
CRIB."..9...".SIX ROUNDS INCLUDING LAST
4 CARDS ARE"..:..."PLAYED TO COMPLETE ON
E GAME. A TOTAL OF".6:..."121 PT. IS A W
INNING SCORE.".E:..."....Z HINT:. THE 2N
D ROUND TURN-UP CARD"..:..."APPEARS AGAI
N IN THE 6TH ROUND."..:...". HIT .
.<RETURN>.. TO PLAY GAME";.N:...A$:.A$."
".2705..:...A$..G(13).2705..:.....;...4,
4:.4:.I.1.20:.J.1.33.0;..PK.B(1023.I.40.
J):.PK.32.PK.PK.64:.2830.D;...PK.63.PK.P
K.32.`;...4,G(14)G(PK);:.J:.4:.I.;...4,
G(15);G(12);: 4: ...;... PLAY AGA
IN?..;".."....DO YOU WANT TO PLAY AGAIN?
"..;,..198,0:.198,1:.A$:.A$.."Y".A$.."N"
.63020..;6..A$."Y". 178.$<@.."....LOAD"G
(34)"1"G(34)",8":."....RUN.".I<J..631,13
:.632,13:.198,2: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL