PATIENCE
FILE INFORMATION
FILENAME(S): PATIENCE
FILE TYPE(S): PRG
FILE SIZE: 6.8K
FIRST SEEN: 2025-12-02 00:17:21
APPEARS ON: 2 disk(s)
FILE HASH
299eb45e9d7c57152b11bfcd3694f3aa74c9be15ffaba3798c73328f09cf073b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MATRIX | PATIENCE | PRG | Maestro | 16 | 1 | DOWNLOAD FILE |
| W C S C W A | PATIENCE | PRG | Maestro | 2 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 05 00 8F 22 14 14 14 14 14 14 00 53 |.......".......S| 00000010: 08 0A 00 8F 22 14 14 14 14 14 14 14 50 41 54 49 |....".......PATI| 00000020: 45 4E 43 45 20 2D 20 43 4F 4E 56 45 52 53 49 4F |ENCE - CONVERSIO| 00000030: 4E 20 46 52 4F 4D 20 53 50 45 43 54 52 55 4D 20 |N FROM SPECTRUM | 00000040: 54 4F 20 20 43 4F 4D 4D 4F 44 4F 52 45 20 42 41 |TO COMMODORE BA| 00000050: 53 49 43 00 61 08 0F 00 8F 22 14 14 14 14 14 14 |SIC.a...."......| 00000060: 14 00 95 08 13 00 97 36 35 30 2C 31 32 38 3A 99 |.......650,128:.| 00000070: C7 28 38 29 C7 28 31 34 32 29 3A 97 35 33 32 38 |.(8).(142):.5328| 00000080: 31 2C 37 3A 97 35 33 32 38 30 2C 30 3A 97 38 30 |1,7:.53280,0:.80| 00000090: 38 2C 32 32 35 00 BB 08 14 00 86 53 28 35 32 29 |8,225......S(52)| 000000A0: 2C 46 50 28 34 29 2C 57 50 28 37 2C 32 30 29 2C |,FP(4),WP(7,20),| 000000B0: 50 57 28 37 29 2C 45 50 28 37 29 00 EC 08 1E 00 |PW(7),EP(7).....| 000000C0: 53 4C 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |SL$."...........| 000000D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 43 |.............":C| 000000E0: 4C 24 B2 22 90 05 1C 9F 1E 1F 9E 22 00 2E 09 28 |L$."......."...(| 000000F0: 00 53 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.SP$." | 00000100: 20 20 20 20 20 20 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 22 3A | ":| 00000120: 53 55 24 B2 22 1C D3 90 D8 1C DA 90 C1 22 00 46 |SU$."........".F| 00000130: 09 32 00 53 4E 24 B2 22 41 32 33 34 35 36 37 38 |.2.SN$."A2345678| 00000140: 39 54 4A 51 4B 22 00 7C 09 3C 00 43 4D 24 28 30 |9TJQK".|.<.CM$(0| 00000150: 29 B2 22 53 54 4F 50 20 43 48 45 41 54 49 4E 47 |)."STOP CHEATING| 00000160: 21 22 3A 43 4D 24 28 31 29 B2 22 4C 45 41 52 4E |!":CM$(1)."LEARN| 00000170: 20 54 48 45 20 52 55 4C 45 53 21 22 00 97 09 46 | THE RULES!"...F| 00000180: 00 43 4D 24 28 32 29 B2 22 43 48 45 41 54 49 4E |.CM$(2)."CHEATIN| 00000190: 47 2C 20 45 48 3F 22 00 A1 09 64 00 8D 39 30 30 |G, EH?"...d..900| 000001A0: 30 00 BA 09 6E 00 8F 20 2D 2D 20 53 48 55 46 46 |0...n.. -- SHUFF| 000001B0: 4C 45 20 50 41 43 4B 20 2D 2D 00 E0 09 78 00 99 |LE PACK --...x..| 000001C0: 22 93 11 11 11 11 22 A3 31 30 29 22 50 4C 45 41 |".....".10)"PLEA| 000001D0: 53 45 20 57 41 49 54 20 2D 20 49 27 4D 11 11 22 |SE WAIT - I'M.."| 000001E0: 00 03 0A 82 00 81 4E B2 31 A4 35 32 3A 99 CA 28 |......N.1.52:..(| 000001F0: 43 4C 24 2C B5 28 BB 28 31 29 AC 37 29 AA 31 2C |CL$,.(.(1).7).1,| 00000200: 31 29 3B 00 3D 0A 8C 00 99 22 12 20 53 20 48 20 |1);.=....". S H | 00000210: 55 20 46 20 46 20 4C 20 49 A0 4E 20 47 20 20 20 |U F F L I.N G | 00000220: 54 20 48 20 45 20 20 20 50 20 41 20 43 20 4B 20 |T H E P A C K | 00000230: 2E 20 20 92 22 3B 3A 8D 31 35 30 30 30 00 5D 0A |. .";:.15000.].| 00000240: 96 00 50 B2 B5 28 BB 28 31 29 AC 35 32 29 AA 31 |..P..(.(1).52).1| 00000250: 3A 8B 53 28 50 29 B3 B1 30 A7 31 35 30 00 81 0A |:.S(P)..0.150...| 00000260: A0 00 53 28 50 29 B2 4E 3A 82 3A 81 4E B2 31 A4 |..S(P).N:.:.N.1.| 00000270: 34 3A 46 50 28 4E 29 B2 30 3A 82 3A 53 50 B2 35 |4:FP(N).0:.:SP.5| 00000280: 32 00 BC 0A A5 00 99 22 93 97 31 90 D5 C0 C0 C9 |2......"..1.....| 00000290: 97 32 90 D5 C0 C0 C9 97 33 90 D5 C0 C0 C9 97 34 |.2......3......4| 000002A0: 90 D5 C0 C0 C9 97 35 90 D5 C0 C0 C9 97 36 90 D5 |......5......6..| 000002B0: C0 C0 C9 97 37 90 D5 C0 C0 C9 90 22 00 D4 0A A6 |....7......"....| 000002C0: 00 99 C8 28 53 4C 24 2C 32 33 29 A3 33 36 29 22 |...(SL$,23).36)"| 000002D0: 97 46 5E 22 00 E3 0A A7 00 99 22 11 20 20 50 5E |.F^"......". P^| 000002E0: 90 13 22 00 FF 0A AA 00 43 B2 30 3A 81 4E B2 31 |..".....C.0:.N.1| 000002F0: A4 37 3A 81 4D B2 31 A4 4E 3A 8D 39 35 35 30 00 |.7:.M.1.N:.9550.| 00000300: 2D 0B B4 00 57 50 28 4E 2C 4D 29 B2 53 28 53 50 |-...WP(N,M).S(SP| 00000310: 29 3A 53 50 B2 53 50 AB 31 3A 82 3A 50 57 28 4E |):SP.SP.1:.:PW(N| 00000320: 29 B2 4E 3A 45 50 28 4E 29 B2 4E 3A 82 00 52 0B |).N:EP(N).N:..R.| 00000330: BE 00 81 4E B2 31 A4 37 3A 4D B2 50 57 28 4E 29 |...N.1.7:M.PW(N)| 00000340: 3A 43 B2 57 50 28 4E 2C 4D 29 3A 8D 39 35 35 30 |:C.WP(N,M):.9550| 00000350: 3A 82 00 92 0B C8 00 81 59 B2 32 A4 31 37 A9 35 |:.......Y.2.17.5| 00000360: 3A 58 B2 33 35 3A 43 B2 30 3A 53 31 24 B2 CA 28 |:X.35:C.0:S1$..(| 00000370: 53 55 24 2C 28 28 59 AB 32 29 AD 32 2E 35 29 AA |SU$,((Y.2).2.5).| 00000380: 31 2C 32 29 3A 53 32 24 B2 53 31 24 3A 8D 39 37 |1,2):S2$.S1$:.97| 00000390: 30 30 00 AD 0B CD 00 99 C8 28 53 4C 24 2C 59 AA |00.......(SL$,Y.| 000003A0: 31 29 A3 58 29 22 D5 C0 C0 C9 22 3A 82 00 C0 0B |1).X)"....":....| 000003B0: D2 00 44 43 B2 53 50 3A 47 B2 30 3A 43 48 B2 30 |..DC.SP:G.0:CH.0| 000003C0: 00 D6 0B 2C 01 8F 20 2D 2D 20 4D 41 49 4E 20 4C |...,.. -- MAIN L| 000003D0: 4F 4F 50 20 2D 2D 00 E8 0B 31 01 8B 44 43 B3 30 |OOP --...1..DC.0| 000003E0: A7 44 43 B2 44 43 AA 33 00 09 0C 36 01 47 B2 47 |.DC.DC.3...6.G.G| 000003F0: AA 31 3A 43 B2 53 28 44 43 29 3A 58 B2 31 3A 59 |.1:C.S(DC):X.1:Y| 00000400: B2 31 39 3A 8D 39 36 30 30 00 1F 0C 3B 01 99 C8 |.19:.9600...;...| 00000410: 28 53 4C 24 2C 32 30 29 22 20 D5 C0 C0 C9 22 00 |(SL$,20)" ....".| 00000420: 59 0C 40 01 99 C8 28 53 4C 24 2C 32 31 29 A3 36 |Y.@...(SL$,21).6| 00000430: 29 22 50 4C 45 41 53 45 20 45 4E 54 45 52 20 22 |)"PLEASE ENTER "| 00000440: 3A 99 A3 36 29 22 20 59 4F 55 52 20 4D 4F 56 45 |:..6)" YOUR MOVE| 00000450: 2E 20 20 20 20 20 20 20 22 00 7A 0C 45 01 99 C8 |. ".z.E...| 00000460: 28 53 4C 24 2C 32 33 29 A3 36 29 22 20 20 20 20 |(SL$,23).6)" | 00000470: 20 20 20 20 20 20 20 20 20 22 00 A9 0C 4A 01 99 | "...J..| 00000480: C8 28 53 4C 24 2C 32 33 29 A3 39 29 22 12 20 92 |.(SL$,23).9)". .| 00000490: 22 3B 3A A1 41 24 3A 8B 41 24 B3 22 31 22 B0 41 |";:.A$:.A$."1".A| 000004A0: 24 B1 22 50 22 A7 33 33 30 00 BE 0C 4F 01 50 31 |$."P".330...O.P1| 000004B0: B2 C5 28 41 24 29 3A 99 22 9D 22 41 24 3B 00 D1 |..(A$):."."A$;..| 000004C0: 0C 54 01 8B 50 31 B1 30 AF 50 31 B3 38 A7 33 39 |.T..P1.0.P1.8.39| 000004D0: 30 00 E1 0C 5E 01 8B 41 24 B2 22 50 22 A7 33 39 |0...^..A$."P".39| 000004E0: 30 00 F3 0C 68 01 8B 41 24 B2 22 45 22 A7 31 30 |0...h..A$."E".10| 000004F0: 30 30 30 00 04 0D 72 01 8B 41 24 B2 22 44 22 A7 |000...r..A$."D".| 00000500: 31 30 30 30 00 0D 0D 7C 01 89 33 32 30 00 1D 0D |1000...|..320...| 00000510: 86 01 99 22 20 54 4F 20 12 20 92 22 3B 00 3A 0D |..." TO . .";.:.| 00000520: 90 01 A1 41 24 3A 8B 41 24 B3 C7 28 32 30 29 B0 |...A$:.A$..(20).| 00000530: 41 24 B1 22 46 22 A7 34 30 30 00 51 0D 95 01 8B |A$."F".400.Q....| 00000540: 41 24 B3 B1 C7 28 32 30 29 A7 99 22 9D 22 41 24 |A$...(20).."."A$| 00000550: 3B 00 6C 0D 9A 01 50 32 B2 C5 28 41 24 29 3A 8B |;.l...P2..(A$):.| 00000560: 41 24 B2 C7 28 32 30 29 A7 33 32 30 00 7F 0D A4 |A$..(20).320....| 00000570: 01 8B 50 32 B1 30 AF 50 32 B3 38 A7 34 34 30 00 |..P2.0.P2.8.440.| 00000580: 9A 0D AE 01 8B 41 24 B3 B1 22 46 22 A7 99 22 9D |.....A$.."F"..".| 00000590: 12 20 92 22 3B 3A 89 34 30 30 00 BD 0D B8 01 8F |. .";:.400......| 000005A0: 20 2D 2D 20 49 4E 50 55 54 20 48 41 53 20 56 41 | -- INPUT HAS VA| 000005B0: 4C 49 44 20 53 59 4E 54 41 58 20 2D 2D 00 EC 0D |LID SYNTAX --...| 000005C0: BD 01 8B 50 31 B2 50 32 AF 50 31 B1 30 A7 45 4D |...P1.P2.P1.0.EM| 000005D0: 24 B2 22 57 48 59 20 54 52 59 20 54 48 41 54 3F |$."WHY TRY THAT?| 000005E0: 22 3A 8D 32 30 30 30 3A 89 33 30 30 00 02 0E C2 |":.2000:.300....| 000005F0: 01 8B 50 31 B2 30 AF 50 32 B1 30 A7 8D 31 31 30 |..P1.0.P2.0..110| 00000600: 30 30 00 18 0E CC 01 8B 50 31 B2 30 AF 50 32 B2 |00......P1.0.P2.| 00000610: 30 A7 8D 31 32 30 30 30 00 2E 0E D6 01 8B 50 31 |0..12000......P1| 00000620: B1 30 AF 50 32 B2 30 A7 8D 31 33 30 30 30 00 44 |.0.P2.0..13000.D| 00000630: 0E E0 01 8B 50 31 B1 30 AF 50 32 B1 30 A7 8D 31 |....P1.0.P2.0..1| 00000640: 34 30 30 30 00 63 0E EA 01 46 49 B2 31 3A 81 4E |4000.c...FI.1:.N| 00000650: B2 31 A4 34 3A 8B 46 50 28 4E 29 B3 31 33 A7 46 |.1.4:.FP(N).13.F| 00000660: 49 B2 30 00 73 0E F4 01 82 3A 8B 46 49 B2 30 A7 |I.0.s....:.FI.0.| 00000670: 33 30 30 00 89 0E FE 01 8F 20 2D 2D 20 53 55 43 |300...... -- SUC| 00000680: 43 45 53 53 21 21 20 2D 2D 00 C3 0E 08 02 99 22 |CESS!! --......"| 00000690: 93 11 11 11 11 11 11 11 12 20 20 20 20 43 20 4F |......... C O| 000006A0: 20 4E 20 47 20 52 20 41 20 54 20 55 20 4C 20 41 | N G R A T U L A| 000006B0: 20 54 20 49 20 4F 20 4E 20 53 20 21 20 21 20 20 | T I O N S ! ! | 000006C0: 20 92 22 00 E4 0E 12 02 99 22 11 11 11 22 A3 31 | ."......"...".1| 000006D0: 32 29 22 59 4F 55 27 56 45 20 46 49 4E 49 53 48 |2)"YOU'VE FINISH| 000006E0: 45 44 21 22 00 06 0F 1C 02 99 A3 39 29 22 11 59 |ED!".......9)".Y| 000006F0: 4F 55 20 54 4F 4F 4B 20 22 47 22 20 47 4F 45 53 |OU TOOK "G" GOES| 00000700: 2C 20 41 4E 44 22 00 2C 0F 26 02 8B 43 48 B2 30 |, AND".,.&..CH.0| 00000710: A7 99 A3 31 35 29 22 11 11 44 49 44 4E 27 54 20 |...15)"..DIDN'T | 00000720: 43 48 45 41 54 21 22 3A 89 36 30 30 00 60 0F 30 |CHEAT!":.600.`.0| 00000730: 02 99 A3 38 29 22 12 1C 54 52 49 45 44 20 54 4F |...8)"..TRIED TO| 00000740: 20 43 48 45 41 54 20 22 43 48 22 9D 20 20 54 49 | CHEAT "CH". TI| 00000750: 4D 45 22 3B 3A 8B 43 48 B1 31 A7 99 22 53 22 3B |ME";:.CH.1.."S";| 00000760: 00 6B 0F 3A 02 99 22 2E 92 90 22 00 A0 0F 58 02 |.k.:.."..."...X.| 00000770: 99 22 11 11 11 12 20 20 20 57 4F 55 4C 44 20 59 |.".... WOULD Y| 00000780: 4F 55 20 4C 49 4B 45 20 54 4F 20 54 52 59 20 41 |OU LIKE TO TRY A| 00000790: 47 41 49 4E 3F 20 28 59 2F 4E 29 20 20 20 92 22 |GAIN? (Y/N) ."| 000007A0: 00 BB 0F 62 02 A1 41 24 3A 8B 41 24 B2 22 4E 22 |...b..A$:.A$."N"| 000007B0: B0 41 24 B2 22 CE 22 A7 37 30 30 00 D4 0F 6C 02 |.A$.".".700...l.| 000007C0: 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 D9 22 |.A$.."Y".A$.."."| 000007D0: A7 36 31 30 00 FA 0F 76 02 99 A3 31 30 29 22 11 |.610...v...10)".| 000007E0: 11 4F 2E 4B 2E 20 2D 20 59 4F 55 20 41 53 4B 45 |.O.K. - YOU ASKE| 000007F0: 44 20 46 4F 52 20 49 54 21 22 00 14 10 80 02 81 |D FOR IT!"......| 00000800: 4E B2 30 A4 35 32 3A 53 28 4E 29 B2 30 3A 82 3A |N.0.52:S(N).0:.:| 00000810: 89 31 31 30 00 3D 10 BC 02 99 22 11 11 11 11 20 |.110.=....".... | 00000820: 20 20 20 20 20 20 20 20 20 43 20 4F 20 57 20 41 | C O W A| 00000830: 20 52 20 44 20 21 A0 21 A0 21 A0 21 22 00 82 10 | R D !.!.!.!"...| 00000840: C6 02 99 22 11 11 20 49 20 57 49 4C 4C 20 53 45 |...".. I WILL SE| 00000850: 4C 46 2D 44 45 53 54 52 55 43 54 20 49 4E 20 20 |LF-DESTRUCT IN | 00000860: 20 20 53 45 43 4F 4E 44 53 21 21 22 3A 97 38 30 | SECONDS!!":.80| 00000870: 38 2C 32 33 37 3A 54 49 24 B2 22 30 30 30 30 30 |8,237:TI$."00000| 00000880: 30 22 00 AB 10 D0 02 99 A3 32 34 29 22 91 22 31 |0".......24)"."1| 00000890: 30 AB C5 28 54 49 24 29 22 9D 20 22 3A 8B C5 28 |0..(TI$)". ":..(| 000008A0: 54 49 24 29 B3 31 30 A7 37 32 30 00 BC 10 DA 02 |TI$).10.720.....| 000008B0: 99 22 11 11 12 20 42 41 4E 47 21 22 00 0B 11 E4 |."... BANG!"....| 000008C0: 02 8F 20 54 48 49 53 20 45 4E 44 49 4E 47 20 43 |.. THIS ENDING C| 000008D0: 4F 55 4C 44 20 45 51 55 41 4C 4C 59 20 57 45 4C |OULD EQUALLY WEL| 000008E0: 4C 20 4E 45 57 20 54 48 45 20 50 52 4F 47 52 41 |L NEW THE PROGRA| 000008F0: 4D 20 4F 52 20 52 45 53 45 54 20 54 48 45 20 4D |M OR RESET THE M| 00000900: 41 43 48 49 4E 45 20 57 49 54 48 00 59 11 EE 02 |ACHINE WITH.Y...| 00000910: 8F 20 20 20 20 53 59 53 20 36 34 37 33 38 20 3A |. SYS 64738 :| 00000920: 20 52 45 4D 20 2D 2D 20 52 45 4D 20 54 48 45 20 | REM -- REM THE | 00000930: 53 54 41 52 54 20 4F 46 20 54 48 49 53 20 4C 49 |START OF THIS LI| 00000940: 4E 45 20 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |NE BEFORE RUNNIN| 00000950: 47 20 49 54 21 21 21 21 21 00 6A 11 F8 02 81 54 |G IT!!!!!.j....T| 00000960: B2 31 A4 32 30 30 30 3A 82 54 00 75 11 02 03 99 |.1.2000:.T.u....| 00000970: 22 93 22 3A 80 00 8F 11 E8 03 8F 20 2D 2D 20 44 |".":....... -- D| 00000980: 45 41 4C 20 4E 45 57 20 43 41 52 44 20 2D 2D 00 |EAL NEW CARD --.| 00000990: AA 11 F2 03 44 43 B2 44 43 AB 33 3A 8B 44 43 B3 |....DC.DC.3:.DC.| 000009A0: 31 A7 44 43 B2 44 43 AA 53 50 00 B3 11 FC 03 89 |1.DC.DC.SP......| 000009B0: 33 30 30 00 CC 11 D0 07 8F 20 2D 2D 20 45 52 52 |300...... -- ERR| 000009C0: 4F 52 20 52 45 50 4F 52 54 20 2D 2D 00 07 12 D1 |OR REPORT --....| 000009D0: 07 58 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |.X$." | 000009E0: 20 20 20 20 22 3A 8B 43 48 AD 31 30 B2 B5 28 43 | ":.CH.10..(C| 000009F0: 48 AD 31 30 29 A7 58 24 B2 43 4D 24 28 B5 28 BB |H.10).X$.CM$(.(.| 00000A00: 28 31 29 AC 33 29 29 00 31 12 DA 07 43 48 B2 43 |(1).3)).1...CH.C| 00000A10: 48 AA 31 3A 99 C8 28 53 4C 24 2C 32 31 29 A3 36 |H.1:..(SL$,21).6| 00000A20: 29 22 12 22 45 4D 24 22 92 22 3A 99 A3 36 29 58 |)"."EM$".":..6)X| 00000A30: 24 00 49 12 E4 07 45 4D 24 B2 22 22 3A 4E B2 30 |$.I...EM$."":N.0| 00000A40: 3A 97 35 34 32 37 36 2C 30 00 71 12 EE 07 81 57 |:.54276,0.q....W| 00000A50: 41 B2 31 35 A4 30 A9 AB 31 3A A1 57 24 3A 8B 57 |A.15.0..1:.W$:.W| 00000A60: 24 B3 B1 22 22 A7 57 41 B2 30 3A 4E B2 31 30 30 |$.."".WA.0:N.100| 00000A70: 30 00 AF 12 F3 07 97 35 34 32 39 36 2C 57 41 3A |0......54296,WA:| 00000A80: 97 35 34 32 37 36 2C 31 32 39 3A 97 35 34 32 37 |.54276,129:.5427| 00000A90: 37 2C 31 35 3A 97 35 34 32 37 33 2C 31 35 AB 28 |7,15:.54273,15.(| 00000AA0: 57 41 29 3A 97 35 34 32 37 32 2C 57 41 AC 35 00 |WA):.54272,WA.5.| 00000AB0: C0 12 F8 07 81 4B B2 31 A4 4E 3A 82 3A 82 3A 8E |.....K.1.N:.:.:.| 00000AC0: 00 ED 12 B8 0B 8F 20 2D 2D 20 44 45 52 49 56 45 |...... -- DERIVE| 00000AD0: 20 53 55 49 54 20 26 20 43 41 52 44 20 4E 4F 2E | SUIT & CARD NO.| 00000AE0: 20 46 52 4F 4D 20 44 41 54 41 20 2D 2D 00 15 13 | FROM DATA --...| 00000AF0: C2 0B 53 31 B2 B5 28 28 43 31 AB 31 29 AD 31 33 |..S1..((C1.1).13| 00000B00: 29 AA 31 3A 54 31 B2 43 31 AB 28 31 33 AC 28 53 |).1:T1.C1.(13.(S| 00000B10: 31 AB 31 29 29 00 3D 13 CC 0B 53 32 B2 B5 28 28 |1.1)).=...S2..((| 00000B20: 43 32 AB 31 29 AD 31 33 29 AA 31 3A 54 32 B2 43 |C2.1).13).1:T2.C| 00000B30: 32 AB 28 31 33 AC 28 53 32 AB 31 29 29 00 67 13 |2.(13.(S2.1)).g.| 00000B40: D6 0B 43 31 24 B2 22 90 22 3A 43 32 24 B2 22 90 |..C1$.".":C2$.".| 00000B50: 22 3A 8B 53 31 AD 32 B2 B5 28 53 31 AD 32 29 A7 |":.S1.2..(S1.2).| 00000B60: 43 31 24 B2 22 1C 22 00 81 13 E0 0B 8B 53 32 AD |C1$."."......S2.| 00000B70: 32 B2 B5 28 53 32 AD 32 29 A7 43 32 24 B2 22 1C |2..(S2.2).C2$.".| 00000B80: 22 00 87 13 EA 0B 8E 00 A7 13 A0 0F 8F 20 2D 2D |"............ --| 00000B90: 20 52 45 50 52 49 4E 54 20 43 4F 4C 55 4D 4E 20 | REPRINT COLUMN | 00000BA0: 28 43 4F 29 20 2D 2D 00 BA 13 A5 0F 43 50 B2 31 |(CO) --.....CP.1| 00000BB0: 30 36 30 AA 28 43 4F AC 35 29 00 C4 13 AA 0F 99 |060.(CO.5)......| 00000BC0: 22 13 22 3B 00 DE 13 AB 0F 99 A3 28 28 43 4F AB |".";.......((CO.| 00000BD0: 31 29 AC 35 29 AA 31 29 22 20 20 20 20 22 00 FB |1).5).1)" "..| 00000BE0: 13 AC 0F 8B C2 28 43 50 29 B2 36 36 A7 43 50 B2 |.....(CP).66.CP.| 00000BF0: 43 50 AA 34 30 3A 89 34 30 31 31 00 15 14 AF 0F |CP.40:.4011.....| 00000C00: 99 A3 28 28 43 4F AB 31 29 AC 35 29 AA 31 29 22 |..((CO.1).5).1)"| 00000C10: 20 20 20 20 22 00 2E 14 B4 0F 8B 50 57 28 43 4F | "......PW(CO| 00000C20: 29 B3 31 A7 50 57 28 43 4F 29 B2 30 3A 8E 00 4B |).1.PW(CO).0:..K| 00000C30: 14 BE 0F 99 22 13 22 A3 28 28 43 4F AB 31 29 AC |....".".((CO.1).| 00000C40: 35 29 AA 31 29 22 D5 C0 C0 C9 22 00 76 14 C8 0F |5).1)"....".v...| 00000C50: 4E B2 43 4F 3A 81 4D B2 31 A4 50 57 28 4E 29 3A |N.CO:.M.1.PW(N):| 00000C60: 43 B2 57 50 28 4E 2C 4D 29 3A 8B 4D B3 45 50 28 |C.WP(N,M):.M.EP(| 00000C70: 4E 29 A7 43 B2 30 00 84 14 D2 0F 8D 39 35 35 30 |N).C.0......9550| 00000C80: 3A 82 3A 8E 00 97 14 28 23 8F 20 49 4E 53 54 52 |:.:....(#. INSTR| 00000C90: 55 43 54 49 4F 4E 53 00 B6 14 32 23 99 22 93 22 |UCTIONS...2#."."| 00000CA0: 3B A3 31 33 29 22 90 12 20 50 41 54 49 45 4E 43 |;.13)".. PATIENC| 00000CB0: 45 2E 20 92 11 22 00 E8 14 3C 23 99 22 1C 20 20 |E. .."...<#.". | 00000CC0: 46 52 4F 4D 20 4F 4E 45 20 54 4F 20 53 45 56 45 |FROM ONE TO SEVE| 00000CD0: 4E 20 43 41 52 44 53 20 41 52 45 20 44 45 41 4C |N CARDS ARE DEAL| 00000CE0: 54 20 49 4E 54 4F 22 3B 00 27 15 46 23 99 22 53 |T INTO";.'.F#."S| 00000CF0: 45 56 45 4E 20 43 4F 4C 55 4D 4E 53 2C 20 54 48 |EVEN COLUMNS, TH| 00000D00: 45 20 4C 41 53 54 20 43 41 52 44 20 4F 4E 4C 59 |E LAST CARD ONLY| 00000D10: 20 42 45 49 4E 47 20 44 45 41 4C 54 20 46 41 43 | BEING DEALT FAC| 00000D20: 45 20 55 50 2E 11 22 00 55 15 50 23 99 22 20 20 |E UP..".U.P#." | 00000D30: 45 58 50 4F 53 45 44 20 43 41 52 44 53 20 41 52 |EXPOSED CARDS AR| 00000D40: 45 20 4D 4F 56 45 44 20 49 4E 20 41 53 43 45 4E |E MOVED IN ASCEN| 00000D50: 44 49 4E 47 22 00 80 15 5A 23 99 22 53 55 49 54 |DING"...Z#."SUIT| 00000D60: 20 53 45 51 55 45 4E 43 45 20 54 4F 20 54 48 45 | SEQUENCE TO THE| 00000D70: 20 41 43 45 53 2C 20 41 53 20 54 48 45 53 45 22 | ACES, AS THESE"| 00000D80: 00 AE 15 64 23 99 22 41 50 50 45 41 52 2C 20 41 |...d#."APPEAR, A| 00000D90: 4E 44 20 49 4E 20 41 20 44 45 43 45 4E 44 49 4E |ND IN A DECENDIN| 00000DA0: 47 20 53 45 51 55 45 4E 43 45 20 4F 46 22 00 D7 |G SEQUENCE OF"..| 00000DB0: 15 6E 23 99 22 41 4C 54 45 52 4E 41 54 45 20 43 |.n#."ALTERNATE C| 00000DC0: 4F 4C 4F 55 52 53 20 54 4F 20 54 48 45 20 43 4F |OLOURS TO THE CO| 00000DD0: 4C 55 4D 4E 53 2E 22 00 08 16 78 23 99 22 43 4F |LUMNS."...x#."CO| 00000DE0: 4D 50 4C 45 54 45 20 53 45 51 55 45 4E 43 45 53 |MPLETE SEQUENCES| 00000DF0: 20 4F 46 20 43 41 52 44 53 20 4D 41 59 20 42 45 | OF CARDS MAY BE| 00000E00: 20 4D 4F 56 45 44 22 3B 00 36 16 82 23 99 22 42 | MOVED";.6..#."B| 00000E10: 45 54 57 45 45 4E 20 43 4F 4C 55 4D 4E 53 2C 20 |ETWEEN COLUMNS, | 00000E20: 42 55 54 20 45 4D 50 54 59 20 43 4F 4C 55 4D 4E |BUT EMPTY COLUMN| 00000E30: 53 20 4D 41 59 22 00 7C 16 8C 23 99 22 4F 4E 4C |S MAY".|..#."ONL| 00000E40: 59 20 42 45 20 46 49 4C 4C 45 44 20 42 59 20 53 |Y BE FILLED BY S| 00000E50: 45 51 55 45 4E 43 45 53 20 4F 46 20 43 41 52 44 |EQUENCES OF CARD| 00000E60: 53 20 20 20 20 53 54 41 52 54 49 4E 47 20 57 49 |S STARTING WI| 00000E70: 54 48 20 41 20 4B 49 4E 47 2E 11 22 00 A9 16 96 |TH A KING.."....| 00000E80: 23 99 22 20 20 54 48 45 20 52 45 53 54 20 4F 46 |#." THE REST OF| 00000E90: 20 54 48 45 20 50 41 43 4B 20 49 53 20 44 45 41 | THE PACK IS DEA| 00000EA0: 4C 54 20 54 48 52 45 45 22 00 DA 16 A0 23 99 22 |LT THREE"....#."| 00000EB0: 43 41 52 44 53 20 41 54 20 41 20 54 49 4D 45 20 |CARDS AT A TIME | 00000EC0: 54 4F 20 41 20 57 41 53 54 45 20 50 49 4C 45 2C |TO A WASTE PILE,| 00000ED0: 20 54 48 45 20 54 4F 50 22 3B 00 04 17 AA 23 99 | THE TOP";....#.| 00000EE0: 22 43 41 52 44 20 4F 46 20 57 48 49 43 48 20 49 |"CARD OF WHICH I| 00000EF0: 53 20 41 4C 57 41 59 53 20 41 56 41 49 4C 41 42 |S ALWAYS AVAILAB| 00000F00: 4C 45 2E 22 00 31 17 AF 23 99 22 11 20 20 41 4E |LE.".1..#.". AN| 00000F10: 59 20 4E 55 4D 42 45 52 20 4F 46 20 52 45 44 45 |Y NUMBER OF REDE| 00000F20: 41 4C 53 20 41 52 45 20 41 4C 4C 4F 57 45 44 2E |ALS ARE ALLOWED.| 00000F30: 22 00 3B 17 B4 23 8D 39 35 30 30 00 5B 17 BE 23 |".;..#.9500.[..#| 00000F40: 99 22 93 22 3B A3 31 33 29 22 90 12 20 50 41 54 |.".";.13)".. PAT| 00000F50: 49 45 4E 43 45 2E 20 92 1F 11 22 00 89 17 C8 23 |IENCE. ..."....#| 00000F60: 99 22 20 20 43 41 52 44 53 20 41 52 45 20 4D 4F |." CARDS ARE MO| 00000F70: 56 45 44 20 42 59 20 54 59 50 49 4E 47 20 54 48 |VED BY TYPING TH| 00000F80: 45 20 4E 55 4D 42 45 52 22 00 B7 17 D2 23 99 22 |E NUMBER"....#."| 00000F90: 4F 46 20 54 48 45 20 4F 52 49 47 49 4E 41 4C 20 |OF THE ORIGINAL | 00000FA0: 43 4F 4C 55 4D 4E 2C 20 4F 52 20 27 50 27 20 46 |COLUMN, OR 'P' F| 00000FB0: 4F 52 20 54 48 45 22 00 E6 17 DC 23 99 22 57 41 |OR THE"....#."WA| 00000FC0: 53 54 45 20 50 49 4C 45 2C 20 46 4F 4C 4C 4F 57 |STE PILE, FOLLOW| 00000FD0: 45 44 20 42 59 20 54 48 45 20 44 45 53 54 49 4E |ED BY THE DESTIN| 00000FE0: 41 54 49 4F 4E 22 00 2F 18 E6 23 99 22 43 4F 4C |ATION"./..#."COL| 00000FF0: 55 4D 4E 20 4E 55 4D 42 45 52 2C 20 4F 52 20 27 |UMN NUMBER, OR '| 00001000: 46 27 20 46 4F 52 20 54 48 45 20 46 4F 55 4E 44 |F' FOR THE FOUND| 00001010: 41 54 49 4F 4E 50 49 4C 45 2E 20 28 41 43 45 53 |ATIONPILE. (ACES| 00001020: 20 47 4F 49 4E 47 20 55 50 2E 29 11 11 11 22 00 | GOING UP.)...".| 00001030: 57 18 F0 23 99 22 20 20 20 20 20 20 20 20 20 4F |W..#." O| 00001040: 54 48 45 52 20 43 4F 4D 4D 41 4E 44 53 20 41 52 |THER COMMANDS AR| 00001050: 45 20 3A 2D 11 11 22 00 85 18 FA 23 99 22 20 27 |E :-.."....#." '| 00001060: 44 27 20 2D 20 44 45 41 4C 53 20 41 4E 4F 54 48 |D' - DEALS ANOTH| 00001070: 45 52 20 47 52 4F 55 50 20 4F 46 20 33 20 43 41 |ER GROUP OF 3 CA| 00001080: 52 44 53 2E 22 00 B5 18 04 24 99 22 11 20 27 45 |RDS."....$.". 'E| 00001090: 27 20 2D 20 45 4E 44 53 20 54 48 45 20 47 41 4D |' - ENDS THE GAM| 000010A0: 45 20 28 49 46 20 59 4F 55 20 47 45 54 20 53 54 |E (IF YOU GET ST| 000010B0: 55 43 4B 29 22 00 E8 18 1C 25 99 53 4C 24 22 20 |UCK)"....%.SL$" | 000010C0: 20 20 12 20 50 4C 45 41 53 45 20 50 52 45 53 53 | . PLEASE PRESS| 000010D0: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT| 000010E0: 49 4E 55 45 20 92 22 3B 00 F5 18 26 25 99 53 4C |INUE .";...&%.SL| 000010F0: 24 53 50 24 3B 00 09 19 30 25 A1 57 24 3A 8B 57 |$SP$;...0%.W$:.W| 00001100: 24 B2 22 22 A7 39 35 30 30 00 0F 19 3A 25 8E 00 |$."".9500...:%..| 00001110: 41 19 4E 25 8F 20 2D 2D 20 50 52 49 4E 54 20 43 |A.N%. -- PRINT C| 00001120: 41 52 44 20 28 43 29 20 41 54 20 43 4F 4C 20 28 |ARD (C) AT COL (| 00001130: 4E 29 2C 20 4E 55 4D 42 45 52 20 28 4D 29 20 2D |N), NUMBER (M) -| 00001140: 2D 00 59 19 58 25 58 B2 28 28 4E AB 31 29 AC 35 |-.Y.X%X.((N.1).5| 00001150: 29 AA 31 3A 59 B2 4D AB 31 00 78 19 80 25 8F 20 |).1:Y.M.1.x..%. | 00001160: 2D 2D 20 44 52 41 57 20 43 41 52 44 20 43 20 41 |-- DRAW CARD C A| 00001170: 54 20 58 2C 59 20 2D 2D 00 93 19 85 25 46 24 B2 |T X,Y --....%F$.| 00001180: 22 20 20 22 3A 8B 43 B2 30 A7 46 24 B2 22 1F D6 |" ":.C.0.F$."..| 00001190: D6 90 22 00 B6 19 8A 25 8B 43 B2 30 A7 53 31 24 |.."....%.C.0.S1$| 000011A0: B2 22 1F D6 90 22 3A 53 32 24 B2 22 1F D6 90 22 |."...":S2$."..."| 000011B0: 3A 89 39 37 30 30 00 DF 19 94 25 53 B2 B5 28 28 |:.9700....%S..((| 000011C0: 43 AB 31 29 AD 31 33 29 AA 31 3A 53 32 24 B2 CA |C.1).13).1:S2$..| 000011D0: 28 53 55 24 2C 28 53 AC 32 29 AB 31 2C 32 29 00 |(SU$,(S.2).1,2).| 000011E0: 01 1A 9E 25 54 B2 43 AB 28 31 33 AC 28 53 AB 31 |...%T.C.(13.(S.1| 000011F0: 29 29 3A 53 31 24 B2 CA 28 53 4E 24 2C 54 2C 31 |)):S1$..(SN$,T,1| 00001200: 29 00 27 1A E4 25 99 C8 28 53 4C 24 2C 59 AA 32 |).'..%..(SL$,Y.2| 00001210: 29 A3 58 29 22 C2 22 53 32 24 22 9D 22 53 31 24 |).X)"."S2$"."S1$| 00001220: 53 32 24 22 90 C8 22 00 56 1A EE 25 99 A3 58 29 |S2$"..".V..%..X)| 00001230: 22 C2 22 46 24 22 C8 22 3A 99 A3 58 29 22 C2 22 |"."F$".":..X)"."| 00001240: 53 32 24 53 31 24 22 90 C8 22 3A 99 A3 58 29 22 |S2$S1$"..":..X)"| 00001250: CA C6 C6 CB 22 3B 00 66 1A F8 25 8B 43 B1 30 A7 |....";.f..%.C.0.| 00001260: 8D 31 35 30 30 30 00 6C 1A 02 26 8E 00 90 1A 10 |.15000.l..&.....| 00001270: 27 8F 20 2D 2D 20 45 4E 44 20 52 4F 55 54 49 4E |'. -- END ROUTIN| 00001280: 45 20 28 45 20 50 52 45 53 53 45 44 29 20 2D 2D |E (E PRESSED) --| 00001290: 00 B1 1A 11 27 99 C8 28 53 4C 24 2C 32 31 29 A3 |....'..(SL$,21).| 000012A0: 36 29 22 41 52 45 20 59 4F 55 20 53 55 52 45 3F |6)"ARE YOU SURE?| 000012B0: 22 00 D6 1A 12 27 99 A3 36 29 22 20 20 20 28 59 |"....'..6)" (Y| 000012C0: 2F 4E 29 20 20 20 20 22 3A 99 A3 36 29 22 20 20 |/N) ":..6)" | 000012D0: 20 20 45 4E 44 22 00 EC 1A 13 27 A1 41 24 3A 8B | END"....'.A$:.| 000012E0: 41 24 B2 22 59 22 A7 31 30 30 31 30 00 FC 1A 14 |A$."Y".10010....| 000012F0: 27 8B 41 24 B2 22 4E 22 A7 33 30 30 00 07 1B 15 |'.A$."N".300....| 00001300: 27 89 31 30 30 30 33 00 20 1B 1A 27 45 4D 24 B2 |'.10003. ..'EM$.| 00001310: 22 22 3A 8D 32 30 30 30 3A 43 48 B2 43 48 AB 31 |"":.2000:CH.CH.1| 00001320: 00 4E 1B 24 27 99 C8 28 53 4C 24 2C 32 31 29 A3 |.N.$'..(SL$,21).| 00001330: 36 29 22 20 20 20 54 48 45 20 43 41 52 44 53 20 |6)" THE CARDS | 00001340: 57 45 52 45 20 4C 41 49 44 20 4F 55 54 22 00 67 |WERE LAID OUT".g| 00001350: 1B 26 27 99 A3 31 35 29 22 4C 49 4B 45 20 54 48 |.&'..15)"LIKE TH| 00001360: 49 53 20 2E 2E 2E 22 00 8E 1B 29 27 99 A3 36 29 |IS ..."...)'..6)| 00001370: 22 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |" PRESS ANY KEY| 00001380: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 AB | TO CONTINUE."..| 00001390: 1B 2E 27 81 43 4F B2 31 A4 37 3A 45 50 28 43 4F |..'.CO.1.7:EP(CO| 000013A0: 29 B2 30 3A 8D 34 30 30 30 3A 82 00 C0 1B 38 27 |).0:.4000:....8'| 000013B0: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 30 34 30 |.A$:.A$."".10040| 000013C0: 00 C9 1B 42 27 99 22 13 22 00 E1 1B 4C 27 81 4E |...B'."."...L'.N| 000013D0: B2 31 A4 32 35 3A 99 22 12 1C 22 53 50 24 3B 3A |.1.25:.".."SP$;:| 000013E0: 82 00 FB 1B 56 27 81 4E B2 31 A4 32 35 3A 99 22 |....V'.N.1.25:."| 000013F0: 91 91 12 9C 22 53 50 24 3B 3A 82 00 2E 1C 60 27 |...."SP$;:....`'| 00001400: 99 22 90 11 11 20 20 20 20 57 45 4C 4C 20 2D 20 |."... WELL - | 00001410: 49 20 57 4F 55 4C 44 20 48 41 56 45 20 43 41 52 |I WOULD HAVE CAR| 00001420: 52 49 45 44 20 4F 4E 20 20 20 20 20 20 22 00 58 |RIED ON ".X| 00001430: 1C 65 27 99 22 11 20 20 20 20 20 20 41 20 42 49 |.e'.". A BI| 00001440: 54 20 4C 4F 4E 47 45 52 20 26 20 46 49 4E 49 53 |T LONGER & FINIS| 00001450: 48 45 44 20 49 54 21 22 00 8C 1C 66 27 99 22 12 |HED IT!"...f'.".| 00001460: 1C 11 42 55 54 20 54 48 45 4E 2C 20 59 4F 55 20 |..BUT THEN, YOU | 00001470: 48 41 56 45 4E 27 54 20 47 4F 54 20 4D 55 43 48 |HAVEN'T GOT MUCH| 00001480: 20 50 41 54 49 45 4E 43 45 21 11 22 00 95 1C 6A | PATIENCE!."...j| 00001490: 27 89 35 34 30 00 B7 1C F8 2A 8F 20 2D 2D 20 50 |'.540....*. -- P| 000014A0: 41 43 4B 20 2D 3E 20 57 4F 52 4B 49 4E 47 20 50 |ACK -> WORKING P| 000014B0: 49 4C 45 53 20 2D 2D 00 DB 1C FD 2A 8B 53 50 B3 |ILES --....*.SP.| 000014C0: 31 A7 45 4D 24 B2 22 20 20 4E 4F 20 43 41 52 44 |1.EM$." NO CARD| 000014D0: 53 21 20 20 22 3A 89 32 30 30 30 00 FF 1C 02 2B |S! ":.2000....+| 000014E0: 43 31 B2 53 28 44 43 29 3A 43 32 B2 57 50 28 50 |C1.S(DC):C2.WP(P| 000014F0: 32 2C 50 57 28 50 32 29 29 3A 8D 33 30 30 30 00 |2,PW(P2)):.3000.| 00001500: 27 1D 07 2B 8B 28 54 31 B2 31 33 29 AF 28 50 57 |'..+.(T1.13).(PW| 00001510: 28 50 32 29 B3 31 29 A7 50 57 28 50 32 29 B2 30 |(P2).1).PW(P2).0| 00001520: 3A 89 31 31 30 34 30 00 5A 1D 0C 2B 8B 28 54 31 |:.11040.Z..+.(T1| 00001530: B3 B1 54 32 AB 31 29 B0 50 57 28 50 32 29 B3 31 |..T2.1).PW(P2).1| 00001540: A7 45 4D 24 B2 22 49 4C 4C 45 47 41 4C 20 4D 4F |.EM$."ILLEGAL MO| 00001550: 56 45 21 22 3A 89 32 30 30 30 00 8C 1D 16 2B 44 |VE!":.2000....+D| 00001560: B2 53 31 AB 53 32 3A 8B 44 AD 32 B2 B5 28 44 AD |.S1.S2:.D.2..(D.| 00001570: 32 29 A7 45 4D 24 B2 22 57 52 4F 4E 47 20 43 4F |2).EM$."WRONG CO| 00001580: 4C 4F 55 52 21 22 3A 89 32 30 30 30 00 B7 1D 20 |LOUR!":.2000... | 00001590: 2B 50 57 28 50 32 29 B2 50 57 28 50 32 29 AA 31 |+PW(P2).PW(P2).1| 000015A0: 3A 57 50 28 50 32 2C 50 57 28 50 32 29 29 B2 43 |:WP(P2,PW(P2)).C| 000015B0: 31 3A 43 4F B2 50 32 00 CE 1D 2A 2B 43 B2 30 3A |1:CO.P2...*+C.0:| 000015C0: 58 B2 31 3A 59 B2 31 39 3A 8D 39 36 30 30 00 F7 |X.1:Y.19:.9600..| 000015D0: 1D 34 2B 53 50 B2 53 50 AB 31 3A 81 4E B2 44 43 |.4+SP.SP.1:.N.DC| 000015E0: A4 53 50 3A 53 28 4E 29 B2 53 28 4E AA 31 29 3A |.SP:S(N).S(N.1):| 000015F0: 82 3A 8D 34 30 30 30 00 08 1E 3E 2B 8B 44 43 B1 |.:.4000...>+.DC.| 00001600: 53 50 A7 44 43 B2 53 50 00 0E 1E 48 2B 8E 00 2D |SP.DC.SP...H+..-| 00001610: 1E E0 2E 8F 20 2D 2D 20 50 41 43 4B 20 2D 3E 20 |.... -- PACK -> | 00001620: 46 4F 55 4E 44 41 54 49 4F 4E 20 2D 2D 00 51 1E |FOUNDATION --.Q.| 00001630: E5 2E 8B 53 50 B3 31 A7 45 4D 24 B2 22 20 20 4E |...SP.1.EM$." N| 00001640: 4F 20 43 41 52 44 53 21 20 20 22 3A 89 32 30 30 |O CARDS! ":.200| 00001650: 30 00 64 1E EA 2E 43 31 B2 53 28 44 43 29 3A 8D |0.d...C1.S(DC):.| 00001660: 33 30 30 30 00 90 1E F4 2E 8B 46 50 28 53 31 29 |3000......FP(S1)| 00001670: B3 B1 54 31 AB 31 A7 45 4D 24 B2 22 49 4C 4C 45 |..T1.1.EM$."ILLE| 00001680: 47 41 4C 20 4D 4F 56 45 21 22 3A 89 32 30 30 30 |GAL MOVE!":.2000| 00001690: 00 B1 1E FE 2E 46 50 28 53 31 29 B2 54 31 3A 43 |.....FP(S1).T1:C| 000016A0: B2 30 3A 58 B2 31 3A 59 B2 31 39 3A 8D 39 36 30 |.0:X.1:Y.19:.960| 000016B0: 30 00 E1 1E 08 2F 53 50 B2 53 50 AB 31 3A 81 4E |0..../SP.SP.1:.N| 000016C0: B2 44 43 A4 53 50 3A 53 28 4E 29 B2 53 28 4E AA |.DC.SP:S(N).S(N.| 000016D0: 31 29 3A 82 3A 8B 44 43 B1 53 50 A7 44 43 B2 53 |1):.:.DC.SP.DC.S| 000016E0: 50 00 02 1F 12 2F 43 B2 43 31 3A 58 B2 33 35 3A |P..../C.C1:X.35:| 000016F0: 59 B2 28 53 31 AC 35 29 AB 33 3A 8D 39 36 30 30 |Y.(S1.5).3:.9600| 00001700: 3A 8E 00 29 1F C8 32 8F 20 2D 2D 20 57 4F 52 4B |:..)..2. -- WORK| 00001710: 49 4E 47 20 50 41 43 4B 20 2D 3E 20 46 4F 55 4E |ING PACK -> FOUN| 00001720: 44 41 54 49 4F 4E 20 2D 2D 00 44 1F D2 32 43 31 |DATION --.D..2C1| 00001730: B2 57 50 28 50 31 2C 50 57 28 50 31 29 29 3A 8D |.WP(P1,PW(P1)):.| 00001740: 33 30 30 30 00 70 1F DC 32 8B 46 50 28 53 31 29 |3000.p..2.FP(S1)| 00001750: B3 B1 54 31 AB 31 A7 45 4D 24 B2 22 49 4C 4C 45 |..T1.1.EM$."ILLE| 00001760: 47 41 4C 20 4D 4F 56 45 21 22 3A 89 32 30 30 30 |GAL MOVE!":.2000| 00001770: 00 91 1F E6 32 46 50 28 53 31 29 B2 54 31 3A 43 |....2FP(S1).T1:C| 00001780: B2 30 3A 58 B2 31 3A 59 B2 31 39 3A 8D 39 36 30 |.0:X.1:Y.19:.960| 00001790: 30 00 C2 1F F0 32 50 57 28 50 31 29 B2 50 57 28 |0....2PW(P1).PW(| 000017A0: 50 31 29 AB 31 3A 8B 45 50 28 50 31 29 B1 50 57 |P1).1:.EP(P1).PW| 000017B0: 28 50 31 29 A7 45 50 28 50 31 29 B2 50 57 28 50 |(P1).EP(P1).PW(P| 000017C0: 31 29 00 D9 1F FA 32 43 4F B2 50 31 3A 8D 34 30 |1)....2CO.P1:.40| 000017D0: 30 30 3A 89 31 32 30 35 30 00 02 20 B0 36 8F 20 |00:.12050.. .6. | 000017E0: 2D 2D 20 57 4F 52 4B 49 4E 47 20 50 41 43 4B 20 |-- WORKING PACK | 000017F0: 2D 3E 20 57 4F 52 4B 49 4E 47 20 50 41 43 4B 20 |-> WORKING PACK | 00001800: 2D 2D 00 22 20 B5 36 8B 45 50 28 50 31 29 B3 31 |--." .6.EP(P1).1| 00001810: AF 50 57 28 50 31 29 B1 30 A7 45 50 28 50 31 29 |.PW(P1).0.EP(P1)| 00001820: B2 31 00 4E 20 BA 36 43 31 B2 57 50 28 50 31 2C |.1.N .6C1.WP(P1,| 00001830: 45 50 28 50 31 29 29 3A 43 32 B2 57 50 28 50 32 |EP(P1)):C2.WP(P2| 00001840: 2C 50 57 28 50 32 29 29 3A 8D 33 30 30 30 00 76 |,PW(P2)):.3000.v| 00001850: 20 BF 36 8B 28 54 31 B2 31 33 29 AF 28 50 57 28 | .6.(T1.13).(PW(| 00001860: 50 32 29 B3 31 29 A7 50 57 28 50 32 29 B2 30 3A |P2).1).PW(P2).0:| 00001870: 89 31 34 30 34 30 00 A9 20 C4 36 8B 28 54 31 B3 |.14040.. .6.(T1.| 00001880: B1 54 32 AB 31 29 B0 50 57 28 50 32 29 B3 31 A7 |.T2.1).PW(P2).1.| 00001890: 45 4D 24 B2 22 49 4C 4C 45 47 41 4C 20 4D 4F 56 |EM$."ILLEGAL MOV| 000018A0: 45 21 22 3A 89 32 30 30 30 00 DB 20 CE 36 44 B2 |E!":.2000.. .6D.| 000018B0: 53 31 AB 53 32 3A 8B 44 AD 32 B2 B5 28 44 AD 32 |S1.S2:.D.2..(D.2| 000018C0: 29 A7 45 4D 24 B2 22 57 52 4F 4E 47 20 43 4F 4C |).EM$."WRONG COL| 000018D0: 4F 55 52 21 22 3A 89 32 30 30 30 00 FA 20 D8 36 |OUR!":.2000.. .6| 000018E0: 4D B2 30 3A 81 4E B2 45 50 28 50 31 29 A4 50 57 |M.0:.N.EP(P1).PW| 000018F0: 28 50 31 29 3A 4D B2 4D AA 31 00 19 21 E2 36 57 |(P1):M.M.1..!.6W| 00001900: 50 28 50 32 2C 50 57 28 50 32 29 AA 4D 29 B2 57 |P(P2,PW(P2).M).W| 00001910: 50 28 50 31 2C 4E 29 3A 82 00 5A 21 EC 36 50 57 |P(P1,N):..Z!.6PW| 00001920: 28 50 32 29 B2 50 57 28 50 32 29 AA 4D 3A 50 57 |(P2).PW(P2).M:PW| 00001930: 28 50 31 29 B2 50 57 28 50 31 29 AB 4D 3A 8B 50 |(P1).PW(P1).M:.P| 00001940: 57 28 50 31 29 B3 45 50 28 50 31 29 A7 45 50 28 |W(P1).EP(P1).EP(| 00001950: 50 31 29 B2 50 57 28 50 31 29 00 78 21 F6 36 43 |P1).PW(P1).x!.6C| 00001960: 4F B2 50 31 3A 8D 34 30 30 30 3A 43 4F B2 50 32 |O.P1:.4000:CO.P2| 00001970: 3A 8D 34 30 30 30 3A 8E 00 9B 21 98 3A 8F 20 2D |:.4000:...!.:. -| 00001980: 2D 20 53 4F 55 4E 44 20 46 4F 52 20 43 41 52 44 |- SOUND FOR CARD| 00001990: 20 54 55 52 4E 49 4E 47 20 2D 2D 00 C7 21 A2 3A | TURNING --..!.:| 000019A0: 56 B2 35 34 32 39 36 3A 57 B2 35 34 32 37 36 3A |V.54296:W.54276:| 000019B0: 41 B2 35 34 32 37 37 3A 48 B2 35 34 32 37 33 3A |A.54277:H.54273:| 000019C0: 4C B2 35 34 32 37 32 00 D6 21 AC 3A 97 57 2C 30 |L.54272..!.:.W,0| 000019D0: 3A 97 56 2C 31 30 00 01 22 B6 3A 81 43 53 B2 31 |:.V,10..".:.CS.1| 000019E0: 35 A4 35 35 A9 35 3A 97 57 2C 31 32 39 3A 97 41 |5.55.5:.W,129:.A| 000019F0: 2C 31 32 37 3A 97 48 2C 43 53 3A 97 4C 2C 30 3A |,127:.H,CS:.L,0:| 00001A00: 82 00 0C 22 C0 3A 97 56 2C 30 3A 8E 00 21 22 60 |...".:.V,0:..!"`| 00001A10: EA 94 22 50 41 54 49 45 4E 43 45 20 36 34 22 2C |.."PATIENCE 64",| 00001A20: 38 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |8...............| 00001A30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 00001AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
.......".......S....".......PATIENCE - C
ONVERSION FROM SPECTRUM TO COMMODORE BA
SIC.A....".............650,128:.G(8)G(14
2):.53281,7:.53280,0:.808,225......S(52)
,FP(4),WP(7,20),PW(7),EP(7).....SL$."...
.....................":CL$."......."...(
.SP$."
":SU$.".S.X.Z.A".F.2.SN$."A2345678
9TJQK".|.<.CM$(0)."STOP CHEATING!":CM$(1
)."LEARN THE RULES!"...F.CM$(2)."CHEATIN
G, EH?"...D..9000...N.. -- SHUFFLE PACK
--...X..".....".10)"PLEASE WAIT - I'M.."
......N.1.52:.J(CL$,.(.(1).7).1,1);.=...
.". S H U F F L I N G T H E P A C K
. .";:.15000.]...P..(.(1).52).1:.S(P)..
0.150... .S(P).N:.:.N.1.4:FP(N).0:.:SP.5
2......"..1.U..I.2.U..I.3.U..I.4.U..I.5.
U..I.6.U..I.7.U..I.".T....H(SL$,23).36)"
.F^"......". P^..".....C.0:.N.1.7:.M.1.
N:.9550.-...WP(N,M).S(SP):SP.SP.1:.:PW(N
).N:EP(N).N:..R....N.1.7:M.PW(N):C.WP(N,
M):.9550:....H..Y.2.17.5:X.35:C.0:S1$.J(
SU$,((Y.2).2.5).1,2):S2$.S1$:.9700...M..
H(SL$,Y.1).X)"U..I":....R.DC.SP:G.0:CH.0
.V.,.. -- MAIN LOOP --...1..DC.0.DC.DC.3
...6.G.G.1:C.S(DC):X.1:Y.19:.9600...;..H
(SL$,20)" U..I".Y.@..H(SL$,21).6)"PLEASE
ENTER ":..6)" YOUR MOVE. ".Z.E..H
(SL$,23).6)" "...J..H(SL$,23
).9)". .";:.A$:.A$."1".A$."P".330...O.P1
.E(A$):."."A$;.Q.T..P1.0.P1.8.390...^..A
$."P".390...H..A$."E".10000...R..A$."D".
1000...|..320......" TO . .";.:....A$:.A
$.G(20).A$."F".400.Q....A$..G(20).."."A$
;.L...P2.E(A$):.A$.G(20).320.....P2.0.P
2.8.440......A$.."F"..".. .";:.400......
-- INPUT HAS VALID SYNTAX --......P1.P2
.P1.0.EM$."WHY TRY THAT?":.2000:.300...B
..P1.0.P2.0..11000...L..P1.0.P2.0..12000
...V..P1.0.P2.0..13000.D....P1.0.P2.0..1
4000.C...FI.1:.N.1.4:.FP(N).13.FI.0.S...
.:.FI.0.300...... -- SUCCESS!! --.C...."
......... C O N G R A T U L A T I O N
S ! ! ."......"...".12)"YOU'VE FINISH
ED!".......9)".YOU TOOK "G" GOES, AND".,
.&..CH.0...15)"..DIDN'T CHEAT!":.600.`.0
...8)"..TRIED TO CHEAT "CH". TIME";:.CH
.1.."S";.K.:.."...". .X..".... WOULD Y
OU LIKE TO TRY AGAIN? (Y/N) ."...B..A$
:.A$."N".A$."N".700.T.L..A$.."Y".A$.."Y"
.610...V...10)"..O.K. - YOU ASKED FOR IT
!"......N.0.52:S(N).0:.:.110.=...."....
C O W A R D ! ! ! !"...F..".. I
WILL SELF-DESTRUCT IN SECONDS!!":.80
8,237:TI$."000000"...P...24)"."10.E(TI$)
". ":.E(TI$).10.720...Z.."... BANG!"....
.. THIS ENDING COULD EQUALLY WELL NEW TH
E PROGRAM OR RESET THE MACHINE WITH.Y...
. SYS 64738 : REM -- REM THE START OF
THIS LINE BEFORE RUNNING IT!!!!!.J....T
.1.2000:.T.U....".":....... -- DEAL NEW
CARD --.....DC.DC.3:.DC.1.DC.DC.SP......
300.L.P.. -- ERROR REPORT --...Q.X$."
":.CH.10..(CH.10).X$.CM$(.(.
(1).3)).1.Z.CH.CH.1:.H(SL$,21).6)"."EM$"
.":..6)X$.I...EM$."":N.0:.54276,0.Q....W
A.15.0..1:.W$:.W$.."".WA.0:N.1000......5
4296,WA:.54276,129:.54277,15:.54273,15.(
WA):.54272,WA.5......K.1.N:.:.:....... -
- DERIVE SUIT & CARD NO. FROM DATA --...
B.S1..((C1.1).13).1:T1.C1.(13.(S1.1)).=.
L.S2..((C2.1).13).1:T2.C2.(13.(S2.1)).G.
V.C1$.".":C2$.".":.S1.2..(S1.2).C1$.".".
.....S2.2..(S2.2).C2$."."......... .. --
REPRINT COLUMN (CO) --.....CP.1060.(CO.
5).D....".";.......((CO.1).5).1)" "..
....B(CP).66.CP.CP.40:.4011.......((CO.1
).5).1)" "......PW(CO).1.PW(CO).0:..K
....".".((CO.1).5).1)"U..I".V.H.N.CO:.M.
1.PW(N):C.WP(N,M):.M.EP(N).C.0...R..9550
:.:....(#. INSTRUCTIONS...2#.".";.13)"..
PATIENCE. .."...<#.". FROM ONE TO SEVE
N CARDS ARE DEALT INTO";.'.F#."SEVEN COL
UMNS, THE LAST CARD ONLY BEING DEALT FAC
E UP..".U.P#." EXPOSED CARDS ARE MOVED
IN ASCENDING"...Z#."SUIT SEQUENCE TO THE
ACES, AS THESE"...D#."APPEAR, AND IN A
DECENDING SEQUENCE OF".W.N#."ALTERNATE C
OLOURS TO THE COLUMNS."...X#."COMPLETE S
EQUENCES OF CARDS MAY BE MOVED";.6..#."B
ETWEEN COLUMNS, BUT EMPTY COLUMNS MAY".|
..#."ONLY BE FILLED BY SEQUENCES OF CARD
S STARTING WITH A KING.."....#." THE
REST OF THE PACK IS DEALT THREE".Z. #."
CARDS AT A TIME TO A WASTE PILE, THE TOP
";....#."CARD OF WHICH IS ALWAYS AVAILAB
LE.".1..#.". ANY NUMBER OF REDEALS ARE
ALLOWED.".;..#.9500.[..#.".";.13)".. PAT
IENCE. ..."...H#." CARDS ARE MOVED BY T
YPING THE NUMBER"...R#."OF THE ORIGINAL
COLUMN, OR 'P' FOR THE"....#."WASTE PILE
, FOLLOWED BY THE DESTINATION"./..#."COL
UMN NUMBER, OR 'F' FOR THE FOUNDATIONPIL
E. (ACES GOING UP.)...".W..#." O
THER COMMANDS ARE :-.."....#." 'D' - DEA
LS ANOTHER GROUP OF 3 CARDS."....$.". 'E
' - ENDS THE GAME (IF YOU GET STUCK)"...
.%.SL$" . PLEASE PRESS ANY KEY TO CONT
INUE .";...&%.SL$SP$;...0%.W$:.W$."".950
0...:%..A.N%. -- PRINT CARD (C) AT COL (
N), NUMBER (M) --.Y.X%X.((N.1).5).1:Y.M.
1.X..%. -- DRAW CARD C AT X,Y --....%F$.
" ":.C.0.F$.".VV."....%.C.0.S1$.".V.":S
2$.".V.":.9700....%S..((C.1).13).1:S2$.J
(SU$,(S.2).1,2)....%T.C.(13.(S.1)):S1$.J
(SN$,T,1).'..%.H(SL$,Y.2).X)"B"S2$"."S1$
S2$".H".V..%..X)"B"F$"H":..X)"B"S2$S1$".
H":..X)"JFFK";.F..%.C.0..15000.L..&.....
'. -- END ROUTINE (E PRESSED) --....'.H(
SL$,21).6)"ARE YOU SURE?".V..'..6)" (Y
/N) ":..6)" END"....'.A$:.A$."Y".1
0010....'.A$."N".300....'.10003. ..'EM$.
"":.2000:CH.CH.1.N.$'.H(SL$,21).6)" TH
E CARDS WERE LAID OUT".G.&'..15)"LIKE TH
IS ..."...)'..6)" PRESS ANY KEY TO CONT
INUE."....'.CO.1.7:EP(CO).0:.4000:....8'
.A$:.A$."".10040.I.B'."."...L'.N.1.25:."
.."SP$;:....V'.N.1.25:."...."SP$;:....`'
."... WELL - I WOULD HAVE CARRIED ON
".X.E'.". A BIT LONGER & FINIS
HED IT!"...F'."...BUT THEN, YOU HAVEN'T
GOT MUCH PATIENCE!."...J'.540....*. -- P
ACK -> WORKING PILES --....*.SP.1.EM$."
NO CARDS! ":.2000....+C1.S(DC):C2.WP(P
2,PW(P2)):.3000.'..+.(T1.13).(PW(P2).1).
PW(P2).0:.11040.Z..+.(T1..T2.1).PW(P2).1
.EM$."ILLEGAL MOVE!":.2000....+D.S1.S2:.
D.2..(D.2).EM$."WRONG COLOUR!":.2000...
+PW(P2).PW(P2).1:WP(P2,PW(P2)).C1:CO.P2.
N.*+C.0:X.1:Y.19:.9600...4+SP.SP.1:.N.DC
.SP:S(N).S(N.1):.:.4000...>+.DC.SP.DC.SP
...H+..-.... -- PACK -> FOUNDATION --.Q.
...SP.1.EM$." NO CARDS! ":.2000.D...C1
.S(DC):.3000......FP(S1)..T1.1.EM$."ILLE
GAL MOVE!":.2000.....FP(S1).T1:C.0:X.1:Y
.19:.9600..../SP.SP.1:.N.DC.SP:S(N).S(N.
1):.:.DC.SP.DC.SP..../C.C1:X.35:Y.(S1.5)
.3:.9600:..).H2. -- WORKING PACK -> FOUN
DATION --.D.R2C1.WP(P1,PW(P1)):.3000.P..
2.FP(S1)..T1.1.EM$."ILLEGAL MOVE!":.2000
....2FP(S1).T1:C.0:X.1:Y.19:.9600.B..2PW
(P1).PW(P1).1:.EP(P1).PW(P1).EP(P1).PW(P
1).Y..2CO.P1:.4000:.12050.. .6. -- WORKI
NG PACK -> WORKING PACK --." .6.EP(P1).1
.PW(P1).0.EP(P1).1.N .6C1.WP(P1,EP(P1)):
C2.WP(P2,PW(P2)):.3000.V .6.(T1.13).(PW(
P2).1).PW(P2).0:.14040.. D6.(T1..T2.1).P
W(P2).1.EM$."ILLEGAL MOVE!":.2000.. N6D.
S1.S2:.D.2..(D.2).EM$."WRONG COLOUR!":.2
000.. X6M.0:.N.EP(P1).PW(P1):M.M.1..!.6W
P(P2,PW(P2).M).WP(P1,N):..Z!.6PW(P2).PW(
P2).M:PW(P1).PW(P1).M:.PW(P1).EP(P1).EP(
P1).PW(P1).X!.6CO.P1:.4000:CO.P2:.4000:.
..!.:. -- SOUND FOR CARD TURNING --.G!.:
V.54296:W.54276:A.54277:H.54273:L.54272.
V!.:.W,0:.V,10..".:.CS.15.55.5:.W,129:.A
,127:.H,CS:.L,0:...".:.V,0:..!"`.."PATIE
NCE 64",8...............................
........................................
........................................
........................................
........................................
................................
> CLICK IMAGE PREVIEW FOR FULL MODAL