KORTSPIL
FILE INFORMATION
FILENAME(S): KORTSPIL
FILE TYPE(S): PRG
FILE SIZE: 6.7K
FIRST SEEN: 2025-11-30 20:08:42
APPEARS ON: 1 disk(s)
FILE HASH
718f82ebac8fb5c27be034f38dc36b611dde15fda529166f0205248a52964b10
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPIL | KORTSPIL | PRG | Curtcool, K-Fly | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2C 08 01 00 9C 3A 97 35 36 2C 31 35 39 3A |..,....:.56,159:|
00000010: 97 35 33 2C C2 28 35 35 29 3A 97 35 34 2C 31 35 |.53,.(55):.54,15|
00000020: 39 3A 9C 3A 97 38 30 39 2C 32 35 35 00 44 08 02 |9:.:.809,255.D..|
00000030: 00 9C 3A 97 37 37 30 2C 32 32 36 3A 97 37 37 31 |..:.770,226:.771|
00000040: 2C 32 35 32 00 56 08 03 00 8F 2A 2A 50 41 54 49 |,252.V....**PATI|
00000050: 45 4E 43 45 2A 2A 00 68 08 04 00 8F 2A 2A 4D 20 |ENCE**.h....**M |
00000060: 4A 20 4C 49 4E 45 2A 2A 00 7A 08 05 00 8F 2A 2A |J LINE**.z....**|
00000070: 4D 41 59 20 31 39 38 33 2A 2A 00 8C 08 06 00 8F |MAY 1983**......|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C3 08 07 |************....|
00000090: 00 43 24 B2 C7 28 31 34 29 3A 42 B2 30 3A 97 35 |.C$..(14):B.0:.5|
000000A0: 33 32 38 30 2C 31 35 3A 97 35 33 32 38 31 2C 31 |3280,15:.53281,1|
000000B0: 35 3A 89 31 35 3A 8F 2A 2A 2A 46 52 41 4D 45 53 |5:.15:.***FRAMES|
000000C0: 55 42 2A 00 FE 08 08 00 99 22 93 1F B0 C0 C0 C0 |UB*......"......|
000000D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000000F0: C0 C0 C0 AE 22 3B 3A 81 49 B2 31 A4 32 32 00 31 |....";:.I.1.22.1|
00000100: 09 09 00 99 22 DD 20 20 20 20 20 20 20 20 20 20 |....". |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 3B 3A | .";:|
00000130: 82 00 6B 09 0A 00 99 22 AD C0 C0 C0 C0 C0 C0 C0 |..k...."........|
00000140: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000150: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD |................|
00000160: 13 22 C7 28 31 34 32 29 3B 3A 8E 00 7F 09 0B 00 |.".(142);:......|
00000170: 8F 2A 2A 2A 47 45 54 41 24 53 55 42 2A 2A 2A 00 |.***GETA$SUB***.|
00000180: BF 09 0C 00 99 22 13 11 11 11 11 11 11 11 11 11 |....."..........|
00000190: 11 11 11 11 11 11 11 11 11 11 11 11 11 1D 20 20 |.............. |
000001A0: 20 20 20 20 20 20 20 D0 D2 C5 D3 D3 20 1C C3 1F | ..... ...|
000001B0: 20 D4 CF A0 C3 CF CE D4 C9 CE D5 C5 13 22 3B 00 | ............";.|
000001C0: D3 09 0D 00 A1 41 24 3A 8B 41 24 B3 B1 22 43 22 |.....A$:.A$.."C"|
000001D0: A7 31 33 00 D9 09 0E 00 8E 00 0F 0A 0F 00 8D 38 |.13............8|
000001E0: 3A 99 22 11 11 1D 20 20 20 20 20 20 20 20 20 20 |:."... |
000001F0: 20 20 20 20 20 50 41 54 49 45 4E 43 45 9D 9D 9D | PATIENCE...|
00000200: 9D 9D 9D 9D 9D 11 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |..............".|
00000210: 37 0A 10 00 99 22 11 11 11 1D 20 20 20 20 20 20 |7....".... |
00000220: 20 20 20 20 12 49 92 20 3D 20 49 4E 53 54 52 55 | .I. = INSTRU|
00000230: 43 54 49 4F 4E 53 22 00 60 0A 11 00 99 22 11 11 |CTIONS".`...."..|
00000240: 11 1D 20 20 20 20 20 20 20 20 20 20 12 50 92 20 |.. .P. |
00000250: 3D 20 50 4C 41 59 20 50 41 54 49 45 4E 43 45 22 |= PLAY PATIENCE"|
00000260: 00 80 0A 12 00 99 22 11 11 11 1D 20 20 20 20 20 |......".... |
00000270: 54 59 50 45 20 1C 49 1F 20 4F 52 20 1C 50 1F 22 |TYPE .I. OR .P."|
00000280: 00 93 0A 13 00 A1 41 24 3A 8B 41 24 B2 22 49 22 |......A$:.A$."I"|
00000290: A7 32 32 00 A3 0A 14 00 8B 41 24 B3 B1 22 50 22 |.22......A$.."P"|
000002A0: A7 31 39 00 AB 0A 15 00 89 36 38 00 BC 0A 16 00 |.19......68.....|
000002B0: 8F 2A 2A 2A 50 41 47 45 31 2A 2A 2A 00 F3 0A 17 |.***PAGE1***....|
000002C0: 00 8D 38 3A 99 43 24 22 11 11 1D 1D 20 20 D0 C1 |..8:.C$".... ..|
000002D0: D4 C9 C5 CE C3 C5 20 49 53 20 41 20 43 41 52 44 |...... IS A CARD|
000002E0: 20 47 41 4D 45 20 50 52 4F 47 52 41 4D 2E 20 20 | GAME PROGRAM. |
000002F0: 20 1D 22 00 24 0B 18 00 99 22 1D D4 48 45 20 4F | .".$...."..HE O|
00000300: 42 4A 45 43 54 20 4F 46 20 54 48 45 20 47 41 4D |BJECT OF THE GAM|
00000310: 45 20 49 53 20 54 4F 20 54 55 52 4E 20 4F 56 45 |E IS TO TURN OVE|
00000320: 52 1D 22 3B 00 55 0B 19 00 99 22 1D 41 4C 4C 20 |R.";.U....".ALL |
00000330: 54 48 45 20 43 41 52 44 53 20 57 48 49 43 48 20 |THE CARDS WHICH |
00000340: 41 52 45 20 46 41 43 49 4E 47 20 44 4F 57 4E 2E |ARE FACING DOWN.|
00000350: 20 20 1D 22 3B 00 87 0B 1A 00 99 22 11 1D 20 D4 | .";......".. .|
00000360: 48 45 20 47 41 4D 45 20 49 53 20 50 4C 41 59 45 |HE GAME IS PLAYE|
00000370: 44 20 4F 4E 20 41 20 53 43 52 45 45 4E 20 4D 41 |D ON A SCREEN MA|
00000380: 54 52 49 58 1D 22 3B 00 B8 0B 1B 00 99 22 1D 37 |TRIX.";......".7|
00000390: 20 43 4F 4C 55 4D 4E 53 20 2A 20 31 37 20 52 4F | COLUMNS * 17 RO|
000003A0: 57 53 20 49 4E 20 44 49 4D 45 4E 53 49 4F 4E 2E |WS IN DIMENSION.|
000003B0: 20 20 20 20 20 1D 22 3B 00 EA 0B 1C 00 99 22 11 | .";......".|
000003C0: 1D C3 41 52 44 53 20 4D 55 53 54 20 42 45 20 50 |..ARDS MUST BE P|
000003D0: 4C 41 59 45 44 20 49 4E 20 41 20 44 45 53 43 45 |LAYED IN A DESCE|
000003E0: 4E 44 49 4E 47 20 20 1D 22 3B 00 1F 0C 1D 00 99 |NDING .";......|
000003F0: 22 1D 4F 52 44 45 52 2E 20 D4 48 45 20 53 45 51 |".ORDER. .HE SEQ|
00000400: 55 45 4E 43 45 20 49 53 20 1C 52 45 44 1F 20 4F |UENCE IS .RED. O|
00000410: 4E 20 90 42 4C 41 43 4B 1F 2C 20 20 1D 22 3B 00 |N .BLACK., .";.|
00000420: 54 0C 1E 00 99 22 1D 90 42 4C 41 43 4B 1F 20 4F |T...."..BLACK. O|
00000430: 4E 20 1C 52 45 44 1F 2E 20 D7 48 45 4E 20 41 20 |N .RED.. .HEN A |
00000440: 43 4F 4C 55 4D 4E 20 49 53 20 45 4D 50 54 59 2C |COLUMN IS EMPTY,|
00000450: 20 1D 22 3B 00 85 0C 1F 00 99 22 1D 4F 4E 4C 59 | .";......".ONLY|
00000460: 20 41 20 4B 49 4E 47 20 4D 41 59 20 42 45 20 4D | A KING MAY BE M|
00000470: 4F 56 45 44 20 49 4E 54 4F 20 49 54 2E 20 20 20 |OVED INTO IT. |
00000480: 20 20 1D 22 3B 00 B7 0C 20 00 99 22 11 1D 20 D4 | .";... ..".. .|
00000490: 4F 57 41 52 44 53 20 54 48 45 20 42 4F 54 54 4F |OWARDS THE BOTTO|
000004A0: 4D 20 4F 46 20 54 48 45 20 53 43 52 45 45 4E 20 |M OF THE SCREEN |
000004B0: 49 53 20 41 1D 22 3B 00 E8 0C 21 00 99 22 1D 43 |IS A.";...!..".C|
000004C0: 4F 4D 4D 41 4E 44 20 50 52 4F 4D 50 54 49 4E 47 |OMMAND PROMPTING|
000004D0: 20 41 52 45 41 2C 20 41 20 44 45 41 4C 45 52 20 | AREA, A DEALER |
000004E0: 46 4F 52 20 20 1D 22 3B 00 19 0D 22 00 99 22 1D |FOR .";..."..".|
000004F0: 4E 45 57 20 43 41 52 44 53 2C 20 41 4E 44 20 46 |NEW CARDS, AND F|
00000500: 4F 55 52 20 53 55 49 54 53 20 48 45 41 50 53 20 |OUR SUITS HEAPS |
00000510: 57 48 45 52 45 20 1D 22 3B 00 4D 0D 23 00 99 22 |WHERE .";.M.#.."|
00000520: 1D 43 41 52 44 53 20 57 49 4C 4C 20 42 45 20 53 |.CARDS WILL BE S|
00000530: 54 41 43 4B 45 44 20 44 55 52 49 4E 47 20 54 48 |TACKED DURING TH|
00000540: 45 20 47 41 4D 45 2E 13 22 3A 8D 31 31 00 5E 0D |E GAME..":.11.^.|
00000550: 24 00 8F 2A 2A 2A 50 41 47 45 32 2A 2A 2A 00 96 |$..***PAGE2***..|
00000560: 0D 25 00 8D 38 3A 99 43 24 22 11 11 1D 20 C1 20 |.%..8:.C$"... . |
00000570: 4E 45 57 20 47 41 4D 45 20 4D 41 59 20 42 45 20 |NEW GAME MAY BE |
00000580: 44 45 41 4C 54 20 41 54 20 41 4E 59 20 54 49 4D |DEALT AT ANY TIM|
00000590: 45 20 20 1D 22 3B 00 C9 0D 26 00 99 22 1D 42 59 |E .";...&..".BY|
000005A0: 20 50 52 45 53 53 49 4E 47 20 1E C3 1F 20 54 4F | PRESSING ... TO|
000005B0: 20 41 42 41 4E 44 4F 4E 20 54 48 45 20 47 41 4D | ABANDON THE GAM|
000005C0: 45 20 49 4E 20 20 1D 22 3B 00 FA 0D 27 00 99 22 |E IN .";...'.."|
000005D0: 1D 50 52 4F 47 52 45 53 53 20 4F 52 20 4F 4E 45 |.PROGRESS OR ONE|
000005E0: 20 41 42 4F 55 54 20 54 4F 20 42 45 20 53 54 41 | ABOUT TO BE STA|
000005F0: 52 54 45 44 2E 20 20 1D 22 3B 00 2C 0E 28 00 99 |RTED. .";.,.(..|
00000600: 22 11 1D 20 D4 48 45 20 42 4F 54 54 4F 4D 20 46 |".. .HE BOTTOM F|
00000610: 41 43 45 20 44 4F 57 4E 20 43 41 52 44 20 49 4E |ACE DOWN CARD IN|
00000620: 20 41 20 43 4F 4C 55 4D 4E 1D 22 3B 00 5D 0E 29 | A COLUMN.";.].)|
00000630: 00 99 22 1D 54 55 52 4E 53 20 4F 56 45 52 20 49 |..".TURNS OVER I|
00000640: 46 20 54 48 45 20 46 41 43 45 20 55 50 20 43 41 |F THE FACE UP CA|
00000650: 52 44 53 20 4F 4E 20 49 54 20 1D 22 3B 00 8E 0E |RDS ON IT .";...|
00000660: 2A 00 99 22 1D 41 52 45 20 4D 4F 56 45 44 20 49 |*..".ARE MOVED I|
00000670: 4E 54 4F 20 45 49 54 48 45 52 20 54 48 45 20 53 |NTO EITHER THE S|
00000680: 55 49 54 20 41 52 45 41 20 4F 52 1D 22 3B 00 BF |UIT AREA OR.";..|
00000690: 0E 2B 00 99 22 1D 49 4E 54 4F 20 41 4E 4F 54 48 |.+..".INTO ANOTH|
000006A0: 45 52 20 43 4F 4C 55 4D 4E 2E 20 20 20 20 20 20 |ER COLUMN. |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 1D 22 3B 00 | .";.|
000006C0: F1 0E 2C 00 99 22 11 1D 20 D4 48 45 20 54 4F 50 |..,..".. .HE TOP|
000006D0: 20 46 41 43 45 20 55 50 20 43 41 52 44 20 4D 55 | FACE UP CARD MU|
000006E0: 53 54 20 42 45 20 4F 4E 45 20 4C 45 53 53 1D 22 |ST BE ONE LESS."|
000006F0: 3B 00 22 0F 2D 00 99 22 1D 49 4E 20 46 41 43 45 |;.".-..".IN FACE|
00000700: 20 56 41 4C 55 45 20 54 48 41 4E 20 54 48 45 20 | VALUE THAN THE |
00000710: 42 4F 54 54 4F 4D 20 46 41 43 45 2D 55 50 20 1D |BOTTOM FACE-UP .|
00000720: 22 3B 00 53 0F 2E 00 99 22 1D 43 41 52 44 20 4F |";.S....".CARD O|
00000730: 46 20 54 48 45 20 43 4F 4C 55 4D 4E 20 49 54 20 |F THE COLUMN IT |
00000740: 49 53 20 53 45 4E 54 20 54 4F 20 46 4F 52 20 20 |IS SENT TO FOR |
00000750: 1D 22 3B 00 84 0F 2F 00 99 22 1D 54 48 45 20 4D |.";.../..".THE M|
00000760: 4F 56 45 20 54 4F 20 42 45 20 41 4C 4C 4F 57 45 |OVE TO BE ALLOWE|
00000770: 44 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |D. |
00000780: 20 1D 22 3B 00 B6 0F 30 00 99 22 11 1D 20 CD 4F | .";...0..".. .O|
00000790: 56 45 53 20 41 52 45 20 52 45 4A 45 43 54 45 44 |VES ARE REJECTED|
000007A0: 20 57 48 45 4E 20 31 37 2B 20 43 41 52 44 53 20 | WHEN 17+ CARDS |
000007B0: 20 20 20 1D 22 3B 00 E7 0F 31 00 99 22 1D 57 4F | .";...1..".WO|
000007C0: 55 4C 44 20 42 45 20 48 45 4C 44 20 49 4E 20 41 |ULD BE HELD IN A|
000007D0: 20 43 4F 4C 55 4D 4E 20 49 46 20 54 48 45 20 4D | COLUMN IF THE M|
000007E0: 4F 56 45 20 1D 22 3B 00 0E 10 32 00 99 22 1D 57 |OVE .";...2..".W|
000007F0: 45 52 45 20 41 4C 4C 4F 57 45 44 20 54 4F 20 43 |ERE ALLOWED TO C|
00000800: 4F 4E 54 49 4E 55 45 2E 13 22 3A 8D 31 31 00 1F |ONTINUE..":.11..|
00000810: 10 33 00 8F 2A 2A 2A 50 41 47 45 33 2A 2A 2A 00 |.3..***PAGE3***.|
00000820: 59 10 34 00 8D 38 3A 99 43 24 22 11 11 1E 1D 20 |Y.4..8:.C$".... |
00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C3 CF | ..|
00000840: CD CD C1 CE C4 D3 9D 9D 9D 9D 9D 9D 9D 9D 11 1F |................|
00000850: A3 A3 A3 A3 A3 A3 A3 A3 22 00 8C 10 35 00 99 22 |........"...5.."|
00000860: 1D 1E 20 CD 20 1F 4D 4F 56 45 53 20 43 41 52 44 |.. . .MOVES CARD|
00000870: 53 20 46 52 4F 4D 20 43 4F 4C 55 4D 4E 20 54 4F |S FROM COLUMN TO|
00000880: 20 43 4F 4C 55 4D 4E 2E 20 1D 22 3B 00 C0 10 36 | COLUMN. .";...6|
00000890: 00 99 22 11 1D 1E 20 D0 20 1F 50 4C 41 59 53 20 |.."... . .PLAYS |
000008A0: 44 45 41 4C 54 20 43 41 52 44 53 20 49 4E 54 4F |DEALT CARDS INTO|
000008B0: 20 43 4F 4C 55 4D 4E 53 2E 20 20 20 20 1D 22 3B | COLUMNS. .";|
000008C0: 00 F4 10 37 00 99 22 11 1D 1E 20 C4 20 1F 44 45 |...7.."... . .DE|
000008D0: 41 4C 53 20 41 20 4E 45 57 20 43 41 52 44 2E 20 |ALS A NEW CARD. |
000008E0: 28 45 56 45 52 59 20 33 52 44 20 43 41 52 44 29 |(EVERY 3RD CARD)|
000008F0: 20 1D 22 3B 00 28 11 38 00 99 22 11 1D 1E 20 D3 | .";.(.8.."... .|
00000900: 20 1F 4D 4F 56 45 53 20 43 41 52 44 53 20 46 52 | .MOVES CARDS FR|
00000910: 4F 4D 20 43 4F 4C 55 4D 4E 53 20 4F 52 20 44 45 |OM COLUMNS OR DE|
00000920: 41 4C 45 52 20 1D 22 3B 00 59 11 39 00 99 22 1D |ALER .";.Y.9..".|
00000930: 20 20 20 54 4F 20 53 55 49 54 20 48 45 41 50 53 | TO SUIT HEAPS|
00000940: 20 49 4E 20 C1 43 45 20 54 4F 20 CB 49 4E 47 20 | IN .CE TO .ING |
00000950: 4F 52 44 45 52 2E 1D 22 3B 00 8D 11 3A 00 99 22 |ORDER..";...:.."|
00000960: 11 1D 20 20 28 1C D7 C1 D2 CE C9 CE C7 1F 20 41 |.. (......... A|
00000970: 4C 4C 20 56 41 4C 49 44 20 4D 4F 56 45 53 20 41 |LL VALID MOVES A|
00000980: 52 45 20 4D 41 44 45 29 21 20 1D 22 3B 00 B4 11 |RE MADE)! .";...|
00000990: 3B 00 99 22 11 1D 1E 20 C3 20 1F 44 45 41 4C 53 |;.."... . .DEALS|
000009A0: 20 55 50 20 41 20 4E 45 57 20 47 41 4D 45 2E 22 | UP A NEW GAME."|
000009B0: 3A 8D 31 31 00 C5 11 3C 00 8F 2A 2A 2A 50 41 47 |:.11...<..***PAG|
000009C0: 45 34 2A 2A 2A 00 FF 11 3D 00 8D 38 3A 99 43 24 |E4***...=..8:.C$|
000009D0: 22 11 11 1D 20 D4 48 45 20 1E C3 1F 20 C3 C1 CE |"... .HE ... ...|
000009E0: C3 C5 CC 20 4C 49 4E 45 20 41 54 20 54 48 45 20 |... LINE AT THE |
000009F0: 42 4F 54 54 4F 4D 20 4F 46 20 20 20 1D 22 3B 00 |BOTTOM OF .";.|
00000A00: 30 12 3E 00 99 22 1D 54 48 45 20 53 43 52 45 45 |0.>..".THE SCREE|
00000A10: 4E 20 41 4C 53 4F 20 53 45 52 56 45 53 20 41 53 |N ALSO SERVES AS|
00000A20: 20 41 20 50 52 4F 4D 50 54 49 4E 47 20 1D 22 3B | A PROMPTING .";|
00000A30: 00 61 12 3F 00 99 22 1D 41 52 45 41 20 57 48 45 |.a.?..".AREA WHE|
00000A40: 52 45 20 50 52 4F 4D 50 54 20 54 45 58 54 20 49 |RE PROMPT TEXT I|
00000A50: 53 20 44 49 53 50 4C 41 59 45 44 20 20 20 1D 22 |S DISPLAYED ."|
00000A60: 3B 00 92 12 40 00 99 22 1D 57 48 45 4E 20 54 48 |;...@..".WHEN TH|
00000A70: 45 20 50 52 4F 47 52 41 4D 20 4E 45 45 44 53 20 |E PROGRAM NEEDS |
00000A80: 49 4E 46 4F 52 4D 41 54 49 4F 4E 2E 20 20 20 1D |INFORMATION. .|
00000A90: 22 3B 00 C4 12 41 00 99 22 11 1D 20 C3 4F 4C 55 |";...A..".. .OLU|
00000AA0: 4D 4E 20 4E 55 4D 42 45 52 53 20 41 52 45 20 55 |MN NUMBERS ARE U|
00000AB0: 53 45 44 20 54 4F 20 4D 4F 56 45 20 41 4E 44 20 |SED TO MOVE AND |
00000AC0: 20 1D 22 3B 00 F5 12 42 00 99 22 1D 50 4C 41 59 | .";...B..".PLAY|
00000AD0: 20 43 41 52 44 53 2E 20 20 20 20 20 20 20 20 20 | CARDS. |
00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AF0: 20 20 1D 22 3B 00 2C 13 43 00 99 22 1D 11 11 11 | .";.,.C.."....|
00000B00: 1E 20 20 20 20 D3 D9 CD C2 CF CC D3 20 C1 D2 C5 |. ....... ...|
00000B10: 20 20 20 20 1F C1 32 33 34 35 36 37 38 39 D4 CA | ..23456789..|
00000B20: D1 CB 13 22 3A 8D 31 31 3A 89 31 35 00 46 13 44 |...":.11:.15.F.D|
00000B30: 00 9C 3A 8F 20 4D 41 49 4E 20 50 52 4F 47 52 41 |..:. MAIN PROGRA|
00000B40: 4D 20 48 45 52 45 00 89 13 45 00 97 35 33 32 38 |M HERE...E..5328|
00000B50: 30 2C 31 35 3A 97 35 33 32 38 31 2C 31 35 3A 9C |0,15:.53281,15:.|
00000B60: 3A 43 4F 24 28 30 29 B2 22 90 22 3A 43 4F 24 28 |:CO$(0).".":CO$(|
00000B70: 31 29 B2 22 1C 22 3A 52 B2 BB 28 AB 54 49 29 3A |1).".":R..(.TI):|
00000B80: 97 35 34 32 39 36 2C 31 35 00 C1 13 46 00 45 24 |.54296,15...F.E$|
00000B90: B2 22 31 32 33 34 35 36 37 36 35 34 33 32 31 32 |."12345676543212|
00000BA0: 33 34 35 36 37 36 35 34 33 32 31 22 3A 97 35 34 |34567654321":.54|
00000BB0: 32 37 37 2C 31 35 3A 97 35 34 32 37 38 2C 31 32 |277,15:.54278,12|
00000BC0: 38 00 F9 13 47 00 81 49 B2 31 A4 37 3A 4C 28 49 |8...G..I.1.7:L(I|
00000BD0: 29 B2 C5 28 CA 28 22 30 37 35 30 35 32 30 39 37 |)..(.("075052097|
00000BE0: 31 34 39 30 37 35 30 35 32 30 39 37 22 2C 49 AC |149075052097",I.|
00000BF0: 33 AB 32 2C 33 29 29 3A 82 00 31 14 48 00 81 49 |3.2,3)):..1.H..I|
00000C00: B2 31 A4 37 3A 48 28 49 29 B2 C5 28 CA 28 22 30 |.1.7:H(I)..(.("0|
00000C10: 33 34 30 34 33 30 35 31 30 36 38 30 38 36 31 30 |3404305106808610|
00000C20: 32 31 33 36 22 2C 49 AC 33 AB 32 2C 33 29 29 3A |2136",I.3.2,3)):|
00000C30: 82 00 50 14 49 00 48 49 B2 35 34 32 37 33 3A 4C |..P.I.HI.54273:L|
00000C40: 4F B2 35 34 32 37 32 3A 56 4F B2 35 34 32 37 36 |O.54272:VO.54276|
00000C50: 00 92 14 4A 00 43 4E 24 B2 22 30 41 32 33 34 35 |...J.CN$."0A2345|
00000C60: 36 37 38 39 54 4A 51 4B 22 3A 57 B2 37 3A 81 49 |6789TJQK":W.7:.I|
00000C70: B2 31 A4 34 3A 53 24 28 49 29 B2 CA 28 22 30 DA |.1.4:S$(I)..("0.|
00000C80: 30 D8 30 D3 30 C1 22 2C 49 AC 32 AB 31 2C 32 29 |0.0.0.",I.2.1,2)|
00000C90: 3A 82 00 E4 14 4B 00 43 24 B2 22 90 41 D8 90 32 |:....K.C$.".A..2|
00000CA0: D8 90 33 D8 90 34 D8 90 35 D8 90 36 D8 90 37 D8 |..3..4..5..6..7.|
00000CB0: 90 38 D8 90 39 D8 90 54 D8 90 4A D8 90 51 D8 90 |.8..9..T..J..Q..|
00000CC0: 4B D8 90 41 C1 90 32 C1 90 33 C1 90 34 C1 90 35 |K..A..2..3..4..5|
00000CD0: C1 90 36 C1 90 37 C1 90 38 C1 90 39 C1 90 54 C1 |..6..7..8..9..T.|
00000CE0: 90 4A C1 22 00 1E 15 4C 00 43 24 B2 43 24 AA 22 |.J."...L.C$.C$."|
00000CF0: 90 51 C1 90 4B C1 1C 41 DA 1C 32 DA 1C 33 DA 1C |.Q..K..A..2..3..|
00000D00: 34 DA 1C 35 DA 1C 36 DA 1C 37 DA 1C 38 DA 1C 39 |4..5..6..7..8..9|
00000D10: DA 1C 54 DA 1C 4A DA 1C 51 DA 1C 4B DA 22 00 40 |..T..J..Q..K.".@|
00000D20: 15 4D 00 43 24 B2 43 24 AA 22 1C 41 D3 1C 32 D3 |.M.C$.C$.".A..2.|
00000D30: 1C 33 D3 1C 34 D3 1C 35 D3 1C 36 D3 1C 37 D3 22 |.3..4..5..6..7."|
00000D40: 00 5F 15 4E 00 43 24 B2 43 24 AA 22 1C 38 D3 1C |._.N.C$.C$.".8..|
00000D50: 39 D3 1C 54 D3 1C 4A D3 1C 51 D3 1C 4B D3 22 00 |9..T..J..Q..K.".|
00000D60: 94 15 4F 00 99 22 93 1F 20 20 B0 C0 C0 C0 C0 B2 |..O..".. ......|
00000D70: C0 C0 C0 C0 B2 C0 C0 C0 C0 B2 C0 C0 C0 C0 B2 C0 |................|
00000D80: C0 C0 C0 B2 C0 C0 C0 C0 B2 C0 C0 C0 C0 AE 20 20 |.............. |
00000D90: 20 20 22 3B 00 AD 15 50 00 81 49 B2 31 A4 31 32 | ";...P..I.1.12|
00000DA0: 38 3A 99 22 DD 20 20 20 20 22 3B 3A 82 00 DE 15 |8:.". ";:....|
00000DB0: 51 00 99 22 DD 20 20 31 20 DD 20 20 32 20 DD 20 |Q..". 1 . 2 . |
00000DC0: 20 33 20 DD 20 20 34 20 DD 20 20 35 20 DD 20 20 | 3 . 4 . 5 . |
00000DD0: 36 20 DD 20 20 37 20 DD 20 20 20 20 22 3B 00 0F |6 . 7 . ";..|
00000DE0: 16 52 00 99 22 AB C0 C0 C0 C0 B1 C0 C0 C0 C0 B1 |.R.."...........|
00000DF0: C0 C0 C0 C0 B1 C0 C0 C0 C0 DB C0 C0 C0 C0 B1 C0 |................|
00000E00: B2 C0 C0 B1 C0 C0 C0 C0 B3 20 20 20 20 22 3B 00 |......... ";.|
00000E10: 42 16 53 00 99 22 DD 1E 4D 1F 20 3D 20 4D 4F 56 |B.S.."..M. = MOV|
00000E20: 45 20 20 20 20 20 20 20 20 20 20 20 DD 20 44 45 |E . DE|
00000E30: 41 4C 20 DD 20 53 55 49 54 53 20 DD 20 20 20 20 |AL . SUITS . |
00000E40: 22 3B 00 75 16 54 00 99 22 DD 1E 50 1F 20 3D 20 |";.u.T.."..P. = |
00000E50: 50 4C 41 59 20 20 20 20 20 20 20 20 20 20 20 DD |PLAY .|
00000E60: 20 D5 C0 C0 C9 20 DD 20 20 20 20 20 20 20 DD 20 | .... . . |
00000E70: 20 20 20 22 3B 00 AC 16 55 00 99 22 DD 1E 53 1F | ";...U.."..S.|
00000E80: 20 3D 20 53 55 49 54 53 20 20 20 20 20 20 20 20 | = SUITS |
00000E90: 20 20 DD 20 DD 98 A6 A6 1F DD 20 DD 20 98 A6 A6 | . ...... . ...|
00000EA0: 20 A6 A6 1F 20 DD 20 20 20 20 22 3B 00 E1 16 56 | ... . ";...V|
00000EB0: 00 99 22 DD 1E 44 1F 20 3D 20 44 45 41 4C 45 52 |.."..D. = DEALER|
00000EC0: 20 20 20 20 20 20 20 20 20 DD 20 DD 98 A6 A6 1F | . .....|
00000ED0: DD 20 DD 20 20 20 20 20 20 20 DD 20 20 20 20 22 |. . . "|
00000EE0: 3B 00 16 17 57 00 99 22 DD 1E 43 1F 20 3D 20 43 |;...W.."..C. = C|
00000EF0: 41 4E 43 45 4C 20 20 20 20 20 20 20 20 20 DD 20 |ANCEL . |
00000F00: CA C0 C0 CB 20 DD 20 98 A6 A6 20 A6 A6 1F 20 DD |.... . ... ... .|
00000F10: 20 20 20 20 22 3B 00 44 17 58 00 99 22 AD C0 C0 | ";.D.X.."...|
00000F20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F30: C0 B1 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 |................|
00000F40: BD 13 22 3B 00 52 17 59 00 86 43 24 28 31 37 2C |..";.R.Y..C$(17,|
00000F50: 37 29 00 92 17 5A 00 81 49 B2 31 A4 37 3A 4D 28 |7)...Z..I.1.7:M(|
00000F60: 49 29 B2 38 AB 49 3A 54 28 49 29 B2 4D 28 49 29 |I).8.I:T(I).M(I)|
00000F70: 3A 81 4A B2 31 A4 4D 28 49 29 3A 52 B2 33 AC B5 |:.J.1.M(I):R.3..|
00000F80: 28 C3 28 43 24 29 AC BB 28 31 29 AD 33 AA 31 29 |(.(C$)..(1).3.1)|
00000F90: AB 32 00 C0 17 5B 00 54 24 B2 22 22 3A 43 24 28 |.2...[.T$."":C$(|
00000FA0: 4A 2C 49 29 B2 CA 28 43 24 2C 52 2C 33 29 3A 8B |J,I)..(C$,R,3):.|
00000FB0: 52 B1 31 A7 54 24 B2 C8 28 43 24 2C 52 AB 31 29 |R.1.T$..(C$,R.1)|
00000FC0: 00 D9 17 5C 00 43 24 B2 54 24 AA CA 28 43 24 2C |...\.C$.T$..(C$,|
00000FD0: 52 AA 33 29 3A 82 4A 2C 49 00 F5 17 5D 00 52 B2 |R.3):.J,I...].R.|
00000FE0: 33 AC B5 28 C3 28 43 24 29 AC BB 28 31 29 AD 33 |3..(.(C$)..(1).3|
00000FF0: AA 31 29 AB 32 00 21 18 5E 00 54 24 B2 22 22 3A |.1).2.!.^.T$."":|
00001000: 44 24 B2 44 24 AA CA 28 43 24 2C 52 2C 33 29 3A |D$.D$..(C$,R,3):|
00001010: 8B 52 B1 31 A7 54 24 B2 C8 28 43 24 2C 52 AB 31 |.R.1.T$..(C$,R.1|
00001020: 29 00 41 18 5F 00 43 24 B2 54 24 AA CA 28 43 24 |).A._.C$.T$..(C$|
00001030: 2C 52 AA 33 29 3A 8B C3 28 43 24 29 B1 31 A7 39 |,R.3):..(C$).1.9|
00001040: 33 00 74 18 60 00 99 22 13 1D 1D 1D 1D 22 3B 3A |3.t.`..".....";:|
00001050: 81 49 B2 31 A4 38 AB 57 3A 99 22 11 22 3B 3A 82 |.I.1.8.W:.".";:.|
00001060: 3A 81 49 B2 31 A4 57 3A 99 22 12 98 A8 A8 1D 1D |:.I.1.W:."......|
00001070: 1D 92 22 3B 00 A8 18 61 00 97 56 4F 2C 31 37 3A |..";...a..VO,17:|
00001080: 97 4C 4F 2C 4C 28 49 29 3A 97 48 49 2C 48 28 49 |.LO,L(I):.HI,H(I|
00001090: 29 3A 97 56 4F 2C 30 3A 82 3A 8B 57 B1 31 A7 57 |):.VO,0:.:.W.1.W|
000010A0: B2 57 AB 31 3A 89 39 36 00 B1 18 62 00 89 31 35 |.W.1:.96...b..15|
000010B0: 31 00 DF 18 63 00 99 22 13 22 3B 3A 81 49 B2 31 |1...c..".";:.I.1|
000010C0: A4 32 33 3A 99 22 11 22 3B 3A 82 3A 99 22 1F 1D |.23:.".";:.:."..|
000010D0: 1D 1D 43 4F 4C 20 3F 20 20 20 20 20 20 22 3B 00 |..COL ? ";.|
000010E0: FA 18 64 00 A1 41 24 3A 8B 41 24 B1 22 37 22 B0 |..d..A$:.A$."7".|
000010F0: 41 24 B3 22 31 22 A7 31 30 30 00 08 19 65 00 41 |A$."1".100...e.A|
00001100: B2 C5 28 41 24 29 3A 8E 00 30 19 66 00 81 49 B2 |..(A$):..0.f..I.|
00001110: 31 A4 37 3A 8B 4D 28 49 29 B3 31 B0 43 24 28 4D |1.7:.M(I).1.C$(M|
00001120: 28 49 29 AA 31 2C 49 29 B3 B1 22 22 A7 31 30 36 |(I).1,I).."".106|
00001130: 00 63 19 67 00 99 22 13 11 1D 1D 1D 22 3B 3A 81 |.c.g..".....";:.|
00001140: 44 B2 31 A4 4D 28 49 29 3A 99 22 11 22 3B 3A 82 |D.1.M(I):.".";:.|
00001150: 3A 81 52 B2 31 A4 49 AC 35 AB 34 3A 99 22 1D 22 |:.R.1.I.5.4:."."|
00001160: 3B 3A 82 00 76 19 68 00 99 22 91 22 43 24 28 4D |;:..v.h.."."C$(M|
00001170: 28 49 29 2C 49 29 00 98 19 69 00 4D 28 49 29 B2 |(I),I)...i.M(I).|
00001180: 4D 28 49 29 AB 31 3A 55 B2 55 AA 31 3A 8B 55 B1 |M(I).1:U.U.1:.U.|
00001190: B2 32 38 A7 45 4E B2 31 00 A1 19 6A 00 82 49 3A |.28.EN.1...j..I:|
000011A0: 8E 00 B1 19 6B 00 8F 2A 2A 2A 44 45 41 4C 2A 2A |....k..***DEAL**|
000011B0: 2A 00 CC 19 6C 00 44 B2 39 3A 8B 44 24 B2 22 22 |*...l.D.9:.D$.""|
000011C0: A7 44 24 B2 48 24 3A 48 24 B2 22 22 00 E5 19 6D |.D$.H$:H$.""...m|
000011D0: 00 8B 44 24 B2 22 22 A7 44 49 24 B2 22 A6 A6 22 |..D$."".DI$.".."|
000011E0: 3A 89 31 31 34 00 FA 19 6E 00 8B C3 28 44 24 29 |:.114...n...(D$)|
000011F0: B3 39 A7 44 B2 C3 28 44 24 29 00 3A 1A 6F 00 44 |.9.D..(D$).:.o.D|
00001200: 31 24 B2 C8 28 44 24 2C 44 29 3A 44 24 B2 CA 28 |1$..(D$,D):D$..(|
00001210: 44 24 2C 44 AA 31 29 3A 42 24 B2 22 22 3A 81 49 |D$,D.1):B$."":.I|
00001220: B2 44 AB 32 A4 31 A9 AB 33 3A 42 24 B2 42 24 AA |.D.2.1..3:B$.B$.|
00001230: CA 28 44 31 24 2C 49 2C 33 29 00 49 1A 70 00 82 |.(D1$,I,3).I.p..|
00001240: 3A 48 24 B2 48 24 AA 42 24 00 64 1A 71 00 44 49 |:H$.H$.B$.d.q.DI|
00001250: 24 B2 C9 28 48 24 2C 33 29 3A 8B 48 24 B2 22 22 |$..(H$,3):.H$.""|
00001260: A7 31 30 37 00 99 1A 72 00 99 22 13 22 3B 3A 81 |.107...r..".";:.|
00001270: 49 B2 31 A4 32 31 3A 99 22 11 22 3B 3A 82 3A 81 |I.1.21:.".";:.:.|
00001280: 49 B2 31 A4 32 35 3A 99 22 1D 22 3B 3A 82 3A 99 |I.1.25:.".";:.:.|
00001290: 44 49 24 22 11 9D 9D 22 3B 00 B7 1A 73 00 99 C9 |DI$"...";...s...|
000012A0: 28 44 49 24 2C 31 29 CA 28 44 49 24 2C 32 2C 31 |(DI$,1).(DI$,2,1|
000012B0: 29 22 13 1F 22 3A 8E 00 E5 1A 74 00 46 31 B2 31 |)"..":....t.F1.1|
000012C0: 3A 8B 28 53 43 24 B2 22 D3 22 B0 53 43 24 B2 22 |:.(SC$.".".SC$."|
000012D0: DA 22 29 AF 28 53 24 B2 22 D3 22 B0 53 24 B2 22 |.").(S$.".".S$."|
000012E0: DA 22 29 A7 8E 00 0E 1B 75 00 8B 28 53 43 24 B2 |.").....u..(SC$.|
000012F0: 22 C1 22 B0 53 43 24 B2 22 D8 22 29 AF 28 53 24 |".".SC$.".").(S$|
00001300: B2 22 C1 22 B0 53 24 B2 22 D8 22 29 A7 8E 00 36 |.".".S$.".")...6|
00001310: 1B 76 00 81 49 B2 31 A4 31 35 3A 8B CA 28 43 4E |.v..I.1.15:..(CN|
00001320: 24 2C 49 2C 31 29 B2 4E 43 24 A7 4E 43 B2 49 AB |$,I,1).NC$.NC.I.|
00001330: 31 3A 49 B2 31 35 00 54 1B 77 00 82 3A 8B 4E 24 |1:I.15.T.w..:.N$|
00001340: B3 B1 CA 28 43 4E 24 2C 4E 43 2C 31 29 B0 42 B2 |...(CN$,NC,1).B.|
00001350: 31 36 A7 8E 00 86 1B 78 00 46 31 B2 30 3A 97 48 |16.....x.F1.0:.H|
00001360: 49 2C 48 28 41 29 3A 97 4C 4F 2C 4C 28 41 29 3A |I,H(A):.LO,L(A):|
00001370: 97 56 4F 2C 31 37 3A 81 49 B2 31 A4 39 30 3A 82 |.VO,17:.I.1.90:.|
00001380: 3A 97 56 4F 2C 30 00 8C 1B 79 00 8E 00 C8 1B 7A |:.VO,0...y.....z|
00001390: 00 8D 39 39 3A 4E 24 B2 CA 28 44 49 24 2C 32 2C |..99:N$..(DI$,2,|
000013A0: 31 29 3A 53 24 B2 C9 28 44 49 24 2C 31 29 3A 42 |1):S$..(DI$,1):B|
000013B0: B2 54 28 41 29 3A 4E 43 24 B2 CA 28 43 24 28 42 |.T(A):NC$..(C$(B|
000013C0: 2C 41 29 2C 32 2C 31 29 00 EF 1B 7B 00 53 43 24 |,A),2,1)...{.SC$|
000013D0: B2 C9 28 43 24 28 42 2C 41 29 2C 31 29 3A 8D 31 |..(C$(B,A),1):.1|
000013E0: 31 36 3A 8B 46 31 A7 54 28 41 29 B2 42 3A 8E 00 |16:.F1.T(A).B:..|
000013F0: 2B 1C 7C 00 42 B2 42 AA 31 3A 43 24 28 42 2C 41 |+.|.B.B.1:C$(B,A|
00001400: 29 B2 44 49 24 3A 99 22 13 22 3B 3A 81 49 B2 31 |).DI$:.".";:.I.1|
00001410: A4 42 3A 99 22 11 22 3B 3A 82 3A 81 49 B2 31 A4 |.B:.".";:.:.I.1.|
00001420: 41 AC 35 AB 31 3A 99 22 1D 22 3B 00 59 1C 7D 00 |A.5.1:.".";.Y.}.|
00001430: 82 3A 99 43 24 28 42 2C 41 29 3A 48 24 B2 C8 28 |.:.C$(B,A):H$..(|
00001440: 48 24 2C C3 28 48 24 29 AB 33 29 3A 8D 31 31 33 |H$,.(H$).3):.113|
00001450: 3A 54 28 41 29 B2 42 3A 8E 00 89 1C 7E 00 8D 39 |:T(A).B:....~..9|
00001460: 39 3A 4D 24 B2 43 24 28 4D 28 41 29 AA 31 2C 41 |9:M$.C$(M(A).1,A|
00001470: 29 3A 4E 24 B2 CA 28 4D 24 2C 32 2C 31 29 3A 53 |):N$..(M$,2,1):S|
00001480: 24 B2 C9 28 4D 24 2C 31 29 00 AD 1C 7F 00 99 22 |$..(M$,1)......"|
00001490: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 1F 54 4F 20 43 |............TO C|
000014A0: 4F 4C 20 3F 20 20 13 11 1D 1D 1D 22 3B 00 C8 1C |OL ? .....";...|
000014B0: 80 00 A1 41 24 3A 8B 41 24 B1 22 37 22 B0 41 24 |...A$:.A$."7".A$|
000014C0: B3 22 31 22 A7 31 32 38 00 09 1D 81 00 42 B2 C5 |."1".128.....B..|
000014D0: 28 41 24 29 3A 54 B2 54 28 42 29 AA 31 3A 54 24 |(A$):T.T(B).1:T$|
000014E0: B2 43 24 28 54 AB 31 2C 42 29 3A 4E 43 24 B2 CA |.C$(T.1,B):NC$..|
000014F0: 28 54 24 2C 32 2C 31 29 3A 53 43 24 B2 C9 28 54 |(T$,2,1):SC$..(T|
00001500: 24 2C 31 29 3A 8D 31 31 36 00 13 1D 82 00 8B 46 |$,1):.116......F|
00001510: 31 A7 8E 00 57 1D 83 00 4D 24 B2 22 22 3A 81 49 |1...W...M$."":.I|
00001520: B2 4D 28 41 29 AA 31 A4 54 28 41 29 3A 4D 24 B2 |.M(A).1.T(A):M$.|
00001530: 4D 24 AA 43 24 28 49 2C 41 29 3A 43 24 28 49 2C |M$.C$(I,A):C$(I,|
00001540: 41 29 B2 22 22 3A 82 3A 81 49 B2 31 A4 4D 28 41 |A)."":.:.I.1.M(A|
00001550: 29 3A 99 22 11 22 3B 00 7E 1D 84 00 82 3A 81 49 |):.".";.~....:.I|
00001560: B2 31 A4 41 AC 35 AB 34 3A 99 22 1D 22 3B 3A 82 |.1.A.5.4:.".";:.|
00001570: 3A 8B 4D 28 41 29 B2 30 A7 99 22 91 22 3B 00 BE |:.M(A).0..".";..|
00001580: 1D 85 00 8B C3 28 4D 24 29 AD 33 AA 54 AB 31 B1 |.....(M$).3.T.1.|
00001590: 31 36 A7 81 52 B2 31 A4 C3 28 4D 24 29 AD 33 3A |16..R.1..(M$).3:|
000015A0: 43 24 28 4D 28 41 29 AA 52 2C 41 29 B2 CA 28 4D |C$(M(A).R,A)..(M|
000015B0: 24 2C 52 AC 33 AB 32 2C 33 29 3A 82 3A 8E 00 E4 |$,R.3.2,3):.:...|
000015C0: 1D 86 00 81 49 B2 31 A4 C3 28 4D 24 29 AD 33 3A |....I.1..(M$).3:|
000015D0: 99 22 20 20 11 9D 9D 22 3B 3A 82 3A 99 22 13 1D |." ...";:.:."..|
000015E0: 1D 1D 22 3B 00 0A 1E 87 00 81 49 B2 31 A4 54 3A |..";......I.1.T:|
000015F0: 99 22 11 22 3B 3A 82 3A 81 49 B2 31 A4 42 AC 35 |.".";:.:.I.1.B.5|
00001600: AB 34 3A 99 22 1D 22 3B 3A 82 00 46 1E 88 00 81 |.4:.".";:..F....|
00001610: 49 B2 31 A4 C3 28 4D 24 29 A9 33 3A 99 CA 28 4D |I.1..(M$).3:..(M|
00001620: 24 2C 49 2C 33 29 3B 22 11 9D 9D 22 3B 3A 43 24 |$,I,3);"...";:C$|
00001630: 28 54 AA B5 28 49 AD 33 29 2C 42 29 B2 CA 28 4D |(T..(I.3),B)..(M|
00001640: 24 2C 49 2C 33 29 00 75 1E 89 00 82 3A 58 B2 C3 |$,I,3).u....:X..|
00001650: 28 4D 24 29 AD 33 3A 8D 31 30 32 3A 54 28 41 29 |(M$).3:.102:T(A)|
00001660: B2 54 28 41 29 AB 58 3A 54 28 42 29 B2 54 28 42 |.T(A).X:T(B).T(B|
00001670: 29 AA 58 3A 8E 00 9B 1E 8A 00 46 31 B2 30 3A 81 |).X:......F1.0:.|
00001680: 53 B2 31 A4 34 3A 54 24 B2 C8 28 53 24 28 53 29 |S.1.4:T$..(S$(S)|
00001690: 2C 31 29 3A 81 54 B2 31 A4 31 35 00 C3 1E 8B 00 |,1):.T.1.15.....|
000016A0: 8B CA 28 43 4E 24 2C 54 2C 31 29 B2 54 24 A7 4E |..(CN$,T,1).T$.N|
000016B0: 24 B2 CA 28 43 4E 24 2C 54 AA 31 2C 31 29 3A 54 |$..(CN$,T.1,1):T|
000016C0: B2 31 35 00 F5 1E 8C 00 82 3A 4E 24 B2 43 4F 24 |.15......:N$.CO$|
000016D0: 28 B6 28 B5 28 53 AD 32 29 AC 32 B3 B1 53 29 29 |(.(.(S.2).2..S))|
000016E0: AA 4E 24 AA C9 28 53 24 28 53 29 2C 31 29 3A 81 |.N$..(S$(S),1):.|
000016F0: 4C B2 31 A4 37 00 27 1F 8D 00 8B 4E 24 B2 44 49 |L.1.7.'....N$.DI|
00001700: 24 A7 48 24 B2 C8 28 48 24 2C C3 28 48 24 29 AB |$.H$..(H$,.(H$).|
00001710: 33 29 3A 8D 31 31 33 3A 46 31 B2 31 3A 99 22 13 |3):.113:F1.1:.".|
00001720: 22 3B 3A 89 31 34 35 00 3F 1F 8E 00 8B 43 24 28 |";:.145.?....C$(|
00001730: 54 28 4C 29 2C 4C 29 B3 B1 4E 24 A7 31 34 39 00 |T(L),L)..N$.149.|
00001740: 77 1F 8F 00 46 31 B2 31 3A 99 22 13 11 1D 1D 1D |w...F1.1:.".....|
00001750: 22 3B 3A 81 44 B2 31 A4 54 28 4C 29 3A 99 22 11 |";:.D.1.T(L):.".|
00001760: 22 3B 3A 82 3A 81 44 B2 31 A4 4C AC 35 AB 34 3A |";:.:.D.1.L.5.4:|
00001770: 99 22 1D 22 3B 3A 82 00 90 1F 90 00 99 22 91 20 |.".";:.......". |
00001780: 20 13 22 3B 3A 54 28 4C 29 B2 54 28 4C 29 AB 31 | .";:T(L).T(L).1|
00001790: 00 C5 1F 91 00 81 44 B2 31 A4 32 31 3A 99 22 11 |......D.1.21:.".|
000017A0: 22 3B 3A 82 3A 81 44 B2 31 A4 33 31 3A 99 22 1D |";:.:.D.1.31:.".|
000017B0: 22 3B 3A 82 3A 8B 53 B2 32 B0 53 B2 34 A7 99 22 |";:.:.S.2.S.4.."|
000017C0: 1D 1D 1D 22 3B 00 D5 1F 92 00 8B 53 B1 32 A7 99 |...";......S.2..|
000017D0: 22 11 11 22 3B 00 16 20 93 00 99 4E 24 22 13 22 |"..";.. ...N$"."|
000017E0: 3A 53 24 28 53 29 B2 CA 28 4E 24 2C 32 2C 32 29 |:S$(S)..(N$,2,2)|
000017F0: 3A 8B 43 24 28 54 28 4C 29 AA 31 2C 4C 29 B2 4E |:.C$(T(L).1,L).N|
00001800: 24 A7 43 24 28 54 28 4C 29 AA 31 2C 4C 29 B2 22 |$.C$(T(L).1,L)."|
00001810: 22 3A 8D 31 30 32 00 43 20 94 00 97 48 49 2C 48 |":.102.C ...HI,H|
00001820: 28 53 29 3A 97 4C 4F 2C 4C 28 53 29 3A 97 56 4F |(S):.LO,L(S):.VO|
00001830: 2C 31 37 3A 81 49 B2 31 A4 35 30 3A 82 3A 97 56 |,17:.I.1.50:.:.V|
00001840: 4F 2C 30 00 54 20 95 00 82 4C 2C 53 3A 8B 46 31 |O,0.T ...L,S:.F1|
00001850: A7 31 33 38 00 5F 20 96 00 8D 31 30 32 3A 8E 00 |.138._ ...102:..|
00001860: 68 20 97 00 8D 31 30 32 00 7B 20 98 00 A1 41 24 |h ...102.{ ...A$|
00001870: 3A 8B 41 24 B2 22 22 A7 31 35 32 00 B0 20 99 00 |:.A$."".152.. ..|
00001880: 8B 41 24 B2 22 43 22 A7 8D 31 36 39 3A 99 22 93 |.A$."C"..169:.".|
00001890: 81 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000018A0: 1D 48 41 52 44 20 4C 55 43 4B 22 3A 89 31 36 34 |.HARD LUCK":.164|
000018B0: 00 C1 20 9A 00 8B 41 24 B2 22 50 22 A7 8D 31 32 |.. ...A$."P"..12|
000018C0: 32 00 D2 20 9B 00 8B 41 24 B2 22 4D 22 A7 8D 31 |2.. ...A$."M"..1|
000018D0: 32 36 00 E3 20 9C 00 8B 41 24 B2 22 44 22 A7 8D |26.. ...A$."D"..|
000018E0: 31 30 37 00 FC 20 9D 00 8B 41 24 B2 22 53 22 A7 |107.. ...A$."S".|
000018F0: 8D 31 33 38 3A 8B 45 4E A7 31 35 39 00 30 21 9E |.138:.EN.159.0!.|
00001900: 00 99 22 13 22 3B 3A 81 49 B2 31 A4 32 33 3A 99 |..".";:.I.1.23:.|
00001910: 22 11 22 3B 3A 82 3A 99 22 1F 1D 1D 1D 1E 43 1F |".";:.:.".....C.|
00001920: 20 3D 20 43 41 4E 43 45 4C 13 22 3A 89 31 35 32 | = CANCEL.":.152|
00001930: 00 3F 21 9F 00 8F 2A 2A 2A 45 4E 44 2A 2A 2A 00 |.?!...***END***.|
00001940: 6C 21 A0 00 51 24 B2 22 57 45 4C 4C 20 50 4C 41 |l!..Q$."WELL PLA|
00001950: 59 45 44 22 3A 43 4C 24 B2 22 81 1C 90 1C 9C 1E |YED":CL$."......|
00001960: 1F 96 9A 98 95 22 3A 99 22 93 22 3B 00 A5 21 A1 |.....":.".";..!.|
00001970: 00 81 49 B2 31 A4 32 35 3A 99 22 13 11 11 11 1D |..I.1.25:.".....|
00001980: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 41 B2 |...........";:A.|
00001990: C5 28 CA 28 45 24 2C 49 2C 31 29 29 3A 97 48 49 |.(.(E$,I,1)):.HI|
000019A0: 2C 48 28 41 29 00 D6 21 A2 00 97 4C 4F 2C 4C 28 |,H(A)..!...LO,L(|
000019B0: 41 29 3A 97 56 4F 2C 31 37 3A 81 4A B2 31 A4 C3 |A):.VO,17:.J.1..|
000019C0: 28 51 24 29 3A 52 B2 B5 28 C3 28 51 24 29 AC BB |(Q$):R..(.(Q$)..|
000019D0: 28 31 29 29 AA 31 00 FB 21 A3 00 99 CA 28 43 4C |(1)).1..!....(CL|
000019E0: 24 2C 52 2C 31 29 3B CA 28 51 24 2C 4A 2C 31 29 |$,R,1);.(Q$,J,1)|
000019F0: 3B 3A 82 3A 97 56 4F 2C 30 3A 82 00 28 22 A4 00 |;:.:.VO,0:..("..|
00001A00: 99 22 13 11 11 11 11 11 11 11 11 1F 44 4F 20 59 |."..........DO Y|
00001A10: 4F 55 20 57 41 4E 54 20 41 4E 4F 54 48 45 52 20 |OU WANT ANOTHER |
00001A20: 44 45 41 4C 20 20 3F 22 00 3B 22 A5 00 A1 41 24 |DEAL ?".;"...A$|
00001A30: 3A 8B 41 24 B2 22 22 A7 31 36 35 00 49 22 A6 00 |:.A$."".165.I"..|
00001A40: 8B 41 24 B2 22 59 22 A7 8A 00 71 22 A7 00 8B 41 |.A$."Y"...q"...A|
00001A50: 24 B2 22 4E 22 A7 99 22 93 11 11 11 11 11 1D 1D |$."N".."........|
00001A60: 1D 1D 1D 8E 47 4F 4F 44 42 59 45 21 11 11 22 3A |....GOODBYE!..":|
00001A70: 80 00 7A 22 A8 00 89 31 36 35 00 A8 22 A9 00 99 |..z"...165.."...|
00001A80: 22 13 22 3B 3A 97 48 49 2C 31 32 3A 97 4C 4F 2C |".";:.HI,12:.LO,|
00001A90: 30 3A 97 56 4F 2C 31 37 3A 81 49 B2 31 A4 31 30 |0:.VO,17:.I.1.10|
00001AA0: 30 30 3A 99 22 20 22 3B 00 B6 22 AA 00 82 3A 97 |00:." ";.."...:.|
00001AB0: 56 4F 2C 30 3A 8E 00 BC 22 00 |VO,0:...". |
..,....:.56,159:.53,B(55):.54,159:.:.809
,255.D....:.770,226:.771,252.V....**PATI
ENCE**.H....**M J LINE**.Z....**MAY 1983
**......************.C...C$.G(14):B.0:.5
3280,15:.53281,15:.15:.***FRAMESUB*.....
."......................................
....";:.I.1.22.1....".
.";:..K...."........
................................."G(142)
;:......***GETA$SUB***......"..........
.............. PRESS .C. TO CONT
INUE.";.S....A$:.A$.."C".13.Y..........8
:."... PATIENCE...........
......".7....".... .I. = INSTRU
CTIONS".`....".... .P. = PLAY P
ATIENCE"......".... TYPE .I. OR .P."
......A$:.A$."I".22......A$.."P".19.....
.68......***PAGE1***......8:.C$".... PA
TIENCE IS A CARD GAME PROGRAM. .".$...
.".THE OBJECT OF THE GAME IS TO TURN OVE
R.";.U....".ALL THE CARDS WHICH ARE FACI
NG DOWN. .";......".. THE GAME IS PLAYE
D ON A SCREEN MATRIX.";......".7 COLUMNS
* 17 ROWS IN DIMENSION. .";......".
.CARDS MUST BE PLAYED IN A DESCENDING .
";......".ORDER. THE SEQUENCE IS .RED. O
N .BLACK., .";.T...."..BLACK. ON .RED..
WHEN A COLUMN IS EMPTY, .";......".ONLY
A KING MAY BE MOVED INTO IT. .";...
..".. TOWARDS THE BOTTOM OF THE SCREEN
IS A.";...!..".COMMAND PROMPTING AREA, A
DEALER FOR .";..."..".NEW CARDS, AND F
OUR SUITS HEAPS WHERE .";.M.#..".CARDS W
ILL BE STACKED DURING THE GAME..":.11.^.
$..***PAGE2***...%..8:.C$"... A NEW GAME
MAY BE DEALT AT ANY TIME .";.I.&..".BY
PRESSING .C. TO ABANDON THE GAME IN ."
;...'..".PROGRESS OR ONE ABOUT TO BE STA
RTED. .";.,.(..".. THE BOTTOM FACE DOWN
CARD IN A COLUMN.";.].)..".TURNS OVER I
F THE FACE UP CARDS ON IT .";...*..".ARE
MOVED INTO EITHER THE SUIT AREA OR.";..
.+..".INTO ANOTHER COLUMN.
.";...,..".. THE TOP FACE UP CARD MU
ST BE ONE LESS.";.".-..".IN FACE VALUE T
HAN THE BOTTOM FACE-UP .";.S....".CARD O
F THE COLUMN IT IS SENT TO FOR .";.../.
.".THE MOVE TO BE ALLOWED.
.";...0..".. MOVES ARE REJECTED WHEN 17
+ CARDS .";...1..".WOULD BE HELD IN A
COLUMN IF THE MOVE .";...2..".WERE ALLO
WED TO CONTINUE..":.11...3..***PAGE3***.
Y.4..8:.C$".... COMMANDS..
................"...5..".. M .MOVES CARD
S FROM COLUMN TO COLUMN. .";...6.."... P
.PLAYS DEALT CARDS INTO COLUMNS. .";
...7.."... D .DEALS A NEW CARD. (EVERY 3
RD CARD) .";.(.8.."... S .MOVES CARDS FR
OM COLUMNS OR DEALER .";.Y.9..". TO SU
IT HEAPS IN ACE TO KING ORDER..";...:.."
.. (.WARNING. ALL VALID MOVES ARE MADE)
! .";...;.."... C .DEALS UP A NEW GAME."
:.11.E.<..***PAGE4***...=..8:.C$"... THE
.C. CANCEL LINE AT THE BOTTOM OF .";.
0.>..".THE SCREEN ALSO SERVES AS A PROMP
TING .";.A.?..".AREA WHERE PROMPT TEXT I
S DISPLAYED .";...@..".WHEN THE PROGRA
M NEEDS INFORMATION. .";.D.A..".. COLU
MN NUMBERS ARE USED TO MOVE AND .";...B
..".PLAY CARDS.
.";.,.C.."..... SYMBOLS ARE .A23
456789TJQK.":.11:.15.F.D..:. MAIN PROGRA
M HERE...E..53280,15:.53281,15:.:CO$(0).
".":CO$(1).".":R..(.TI):.54296,15.A.F.E$
."1234567654321234567654321":.54277,15:.
54278,128...G..I.1.7:L(I).E(J("075052097
149075052097",I.3.2,3)):..1.H..I.1.7:H(I
).E(J("034043051068086102136",I.3.2,3)):
..P.I.HI.54273:LO.54272:VO.54276...J.CN$
."0A23456789TJQK":W.7:.I.1.4:S$(I).J("0Z
0X0S0A",I.2.1,2):....K.C$.".AX.2X.3X.4X.
5X.6X.7X.8X.9X.TX.JX.QX.KX.AA.2A.3A.4A.5
A.6A.7A.8A.9A.TA.JA"...L.C$.C$.".QA.KA.A
Z.2Z.3Z.4Z.5Z.6Z.7Z.8Z.9Z.TZ.JZ.QZ.KZ".@
.M.C$.C$.".AS.2S.3S.4S.5S.6S.7S"._.N.C$.
C$.".8S.9S.TS.JS.QS.KS"...O..".. ......
.............................. ";...P
..I.1.128:.". ";:....Q..". 1 . 2 .
3 . 4 . 5 . 6 . 7 . ";...R.."...
................................. ";.
B.S.."..M. = MOVE . DEAL . SUI
TS . ";.U.T.."..P. = PLAY .
U..I . . ";...U.."..S. = SUITS
. ...... . ... ... . ";...V
.."..D. = DEALER . ...... .
. ";...W.."..C. = CANCEL .
J..K . ... ... . ";.D.X.."...........
..........................";.R.Y..C$(17,
7)...Z..I.1.7:M(I).8.I:T(I).M(I):.J.1.M(
I):R.3..(C(C$)..(1).3.1).2...[.T$."":C$(
J,I).J(C$,R,3):.R.1.T$.H(C$,R.1).Y.\.C$.
T$.J(C$,R.3):.J,I...].R.3..(C(C$)..(1).3
.1).2.!.^.T$."":D$.D$.J(C$,R,3):.R.1.T$.
H(C$,R.1).A._.C$.T$.J(C$,R.3):.C(C$).1.9
3.T.`..".....";:.I.1.8.W:.".";:.:.I.1.W:
."........";...A..VO,17:.LO,L(I):.HI,H(I
):.VO,0:.:.W.1.W.W.1:.96...B..151...C.."
.";:.I.1.23:.".";:.:."....COL ? ";.
..D..A$:.A$."7".A$."1".100...E.A.E(A$):.
.0.F..I.1.7:.M(I).1.C$(M(I).1,I).."".106
.C.G..".....";:.D.1.M(I):.".";:.:.R.1.I.
5.4:.".";:..V.H.."."C$(M(I),I)...I.M(I).
M(I).1:U.U.1:.U..28.EN.1...J..I:....K..*
**DEAL***.L.L.D.9:.D$."".D$.H$:H$.""...M
..D$."".DI$."..":.114...N..C(D$).9.D.C(D
$).:.O.D1$.H(D$,D):D$.J(D$,D.1):B$."":.I
.D.2.1..3:B$.B$.J(D1$,I,3).I.P..:H$.H$.B
$.D.Q.DI$.I(H$,3):.H$."".107...R..".";:.
I.1.21:.".";:.:.I.1.25:.".";:.:.DI$"..."
;...S..I(DI$,1)J(DI$,2,1)"..":....T.F1.1
:.(SC$."S".SC$."Z").(S$."S".S$."Z").....
U..(SC$."A".SC$."X").(S$."A".S$."X")...6
.V..I.1.15:.J(CN$,I,1).NC$.NC.I.1:I.15.T
.W..:.N$..J(CN$,NC,1).B.16.....X.F1.0:.H
I,H(A):.LO,L(A):.VO,17:.I.1.90:.:.VO,0..
.Y...H.Z..99:N$.J(DI$,2,1):S$.I(DI$,1):B
.T(A):NC$.J(C$(B,A),2,1)...{.SC$.I(C$(B,
A),1):.116:.F1.T(A).B:..+.|.B.B.1:C$(B,A
).DI$:.".";:.I.1.B:.".";:.:.I.1.A.5.1:."
.";.Y.}..:.C$(B,A):H$.H(H$,C(H$).3):.113
:T(A).B:....~..99:M$.C$(M(A).1,A):N$.J(M
$,2,1):S$.I(M$,1)....."............TO C
OL ? .....";.H....A$:.A$."7".A$."1".128
.....B.E(A$):T.T(B).1:T$.C$(T.1,B):NC$.J
(T$,2,1):SC$.I(T$,1):.116......F1...W...
M$."":.I.M(A).1.T(A):M$.M$.C$(I,A):C$(I,
A)."":.:.I.1.M(A):.".";.~....:.I.1.A.5.4
:.".";:.:.M(A).0..".";......C(M$).3.T.1.
16..R.1.C(M$).3:C$(M(A).R,A).J(M$,R.3.2,
3):.:.......I.1.C(M$).3:." ...";:.:."..
..";......I.1.T:.".";:.:.I.1.B.5.4:.".";
:..F....I.1.C(M$).3:.J(M$,I,3);"...";:C$
(T..(I.3),B).J(M$,I,3).U....:X.C(M$).3:.
102:T(A).T(A).X:T(B).T(B).X:......F1.0:.
S.1.4:T$.H(S$(S),1):.T.1.15.C....J(CN$,T
,1).T$.N$.J(CN$,T.1,1):T.15......:N$.CO$
(.(.(S.2).2..S)).N$.I(S$(S),1):.L.1.7.'.
...N$.DI$.H$.H(H$,C(H$).3):.113:F1.1:.".
";:.145.?....C$(T(L),L)..N$.149.W...F1.1
:.".....";:.D.1.T(L):.".";:.:.D.1.L.5.4:
.".";:.......". .";:T(L).T(L).1.E....D.
1.21:.".";:.:.D.1.31:.".";:.:.S.2.S.4.."
...";.U....S.2.."..";.. ...N$".":S$(S).J
(N$,2,2):.C$(T(L).1,L).N$.C$(T(L).1,L)."
":.102.C ...HI,H(S):.LO,L(S):.VO,17:.I.1
.50:.:.VO,0.T ...L,S:.F1.138._ ...102:..
H ...102.{ ...A$:.A$."".152.. ...A$."C".
.169:."..................HARD LUCK":.164
.A ...A$."P"..122.R ...A$."M"..126.. ...
A$."D"..107.. ...A$."S"..138:.EN.159.0!.
..".";:.I.1.23:.".";:.:.".....C. = CANCE
L.":.152.?!...***END***.L! .Q$."WELL PLA
YED":CL$."...........":.".";..!...I.1.25
:."................";:A.E(J(E$,I,1)):.HI
,H(A).V!...LO,L(A):.VO,17:.J.1.C(Q$):R..
(C(Q$)..(1)).1..!...J(CL$,R,1);J(Q$,J,1)
;:.:.VO,0:..("..."..........DO YOU WANT
ANOTHER DEAL ?".;"...A$:.A$."".165.I"..
.A$."Y"...Q"...A$."N".."............GOOD
BYE!..":..Z"...165.."...".";:.HI,12:.LO,
0:.VO,17:.I.1.1000:." ";.."...:.VO,0:...
".
> CLICK IMAGE PREVIEW FOR FULL MODAL