@�:�"�7CARD Oct86�V2Dec86�    DO NOT RENUMBER THIS PROGRAM!
��7:�23;8202;0;0;0;23,224,54,127,127,127,62,28,8,0,23,225,8,28,62,127,127,127,28,62,23,226,0,8,28,62,127,62,28,8,23,227,8,28,28,107,127,107,8,28,23,228,0,255,255,255,255,255,255,0,23,229,78,91,81,81,81,91,78,0:�b$(7),s$(4),c%(7):R=0
�P$="��7 CARD PATIENCE":�'�9P$'�9P$''"KEYS"'"===="''"D=Deal(3 at a time)"�2"S=Stack"''"1-7=Columns"�10"P=Pile"''"ESCAPE=Restart"�6"�Beep=Illegal move"''"Alternate colour of cards in columns"'"in decreasing numerical sequence"
#��'"Kings only may be moved to vacant column"'"Place all of each suit on it's own ace  in the piles to win"''�12"�Press SPACE";:A=�:k$="":v$="#A23456789�JQK0":��tPA:�p$
(h�1:A%=�(-�):�23;8202;0;0;0;19,2,4;0;19,3,7;0;:��i:�4:�0,130:�130:�:�d:�s:�l:��3:�25,12)"From":*FX21
2o�A$=�:��"1234567SD",A$)<>0:�A$="D"�D:�DP@��35,12)A$:f%=�(A$):�25,14)"To"�25,17);R;�29,17)"Removed":*FX21
<\�B$=�:��"1234567P",B$)<>0:�35,14)B$:t%=�(B$):�B$="P"�t:�DP@��A$="S"A%=�f:�A%=�m(f%,t%)
F
�A%�e
P~�35,12)�1�35,14)�1:�R=52:�1:�23,16)"Congratulations"�25,18)"Play again?":�X=1�10:�1,-5-X,110+X,1:�1,-5-X,130+X,1:�:*FX21
Z �A=�:�A=78�A=89:�A=89�:��7:�
d)ݤm(s%,d%):l$=�b$(d%),2):�l$=""l$="0"
n�n$=�v$,�v$,�l$,1))-1,1):g$=b$(s%):p%=c%(s%)*2-1:�p%<1�=0�c$=�b$(s%),p%,2):�c$,n$)=0�=0�笤T �=0�q$=�g$,p%,�(g$)-p%+1):�X%=1��(q$)�2:b$(d%)=b$(d%)+�q$,X%,2):b$(s%)=�b$(s%),�(b$(s%))-2)
xA�f(d%):�f(s%):�31,s%*3-2,p%�2+3+X%�2:�2:�:c%(s%)=c%(s%)-1:=�
�8ݤf:�(k$)<1�=0�c$=�k$,2):l$=�b$(t%),2):�l$=""l$="0"
�jn$=�v$,�v$,�l$,1))-1,1):�n$=""�=0��c$,n$)=0�=0�笤T �=0�b$(t%)=b$(t%)+c$:�f(t%):k$=�k$,�(k$)-2):�S:=�
�ZݤT:d$=�l$,1):e$=�c$,1):�"SC",d$)<>0��"SC",e$)<>0�=0��"DH",d$)<>0��"DH",e$)<>0�=0�=�
�X��f(C%):y%=�(b$(C%)):�y%=0�31,3*C%-2,y%/2+2:�2:�:�c$=�b$(C%),2):�"HD",�c$,1))�1��0
�1�31,3*C%-2,y%/2+1:�c$:�31,3*C%-2,y%/2+2:�2:�
�#��D:�l%=1�3:�(f$)=0f$=k$:k$=""
�1k$=�f$,2)+k$:f$=�f$,�(f$)-2):�:c$=�k$,2):�S:�
ȃ��s:f$="":D%=52:�I%=1�52:A%=�(�(1)*D%+1):f$=f$+�p$,2*A%-1,2):L$=�p$,(A%-1)*2):R$=�p$,(�(p$)/2-A%)*2):p$=L$+R$:D%=D%-1:�:p$=f$:�
ҽ��l:�5:�54,994:�0,3:�"1  2  3  4  5  6  7":�4:�3:�r%=7�1�-1:�C%=1�r%:b$(C%)=b$(C%)+�f$,2):f$=�f$,�(f$)-2):�31,C%*3-2,9-r%:�"��";:�,:�31,1,21:�"S=STACK"�13"P=PILES":�S:�I%=1�7:�f(I%):�:�
���S:�p(�k$,2),44,32):�
�X��i:�I%=1�7:b$(I%)=�38," "):�:�I%=1�4:s$(I%)="#":�:�I%=1�7:b$(I%)="":c%(I%)=8-I%:�:�
���p(c$,x%,y%):�c$="#"c$=""
���29,x%;y%;24,-4;0;192;227;:�0,131:�:�5:�c$=""�0,1:�16,128:�"EMPTY":�4:�:�V$=�c$,1):v%=�"A23456789�JQK",V$):S$=�(223+�"HSDC",�c$,1))):�"HD",�c$,1))�0,1��0,0

'�0,223:�V$:�160,32:�V$:�v%>10�P:��n

�4:�

2��n:�v%+400:��x%,y%:�x%<>0�x%*4-16,y%*4+16:�S$

"�x%=0:�

,Z��P:�V$="J"V$="JACK":�32,124:�V$:��V$="Q"V$="QUEEN":�16,124:�V$:�V$="KING":�32,124:�V$

6�0,190:�S$:�158,68:�S$:�

@3��R(S%):R=R+1:�25,17);R:�p(c$,S%*224+148,32):�

J&��t:�A$="S"c$=�k$,2)�c$=�b$(f%),2)

T�c$=""�e:�

^�S%=�"HSDC",�c$,1)):n$=�v$,�v$,�c$,1))-1,1):�s$(S%),1)<>n$�e:�:�s$(S%)=c$:�R(S%):�A$="S"k$=�k$,�(k$)-2):�S:�:�c$=b$(f%):b$(f%)=�c$,�(c$)-2):�(c$)/2-1<c%(f%)c%(f%)=c%(f%)-1

h�f(f%):�

r���d:�0,3:�0,0:�0,1023:�1279,1023:�1279,0:�0,0:�24,24:�24,318:�256,318:�256,24:�24,24:�348,24:�348,318:�1255,318:�1255,24:�348,24:�5:�50,302:�"D=Deal";:�0,1:�4"Hearts ";:�0,0

|��"Spades ";:�0,1:�"Diamds";:�0,0:�"  Clubs":�0,3:�690,990:�1255,990:�1255,390:�690,390:�690,990:�690,720:�1255,720:�4:�26,2)"7 C A R D"�23,4)"P A T I E N C E"�29,6)"b y"�23,8)"Dick Bloodworth"

��27,10)"M O V E":�

�m�2H2S2D2C3H3S3D3C4H4S4D4C5H5S5D5C6H6S6D6C7H7S7D7C8H8S8D8C9H9S9D9C�H�S�D�CJHJSJDJCQHQSQDQCKHKSKDKCAHASADAC

��24,27,0

��24,48,24,8,0

��24,48,24,27,24,8,0

��13,48,35,48,13,8,35,8,0

�"�13,48,35,48,13,8,35,8,24,27,0

�(�13,48,35,48,13,8,35,8,13,27,35,27,0

�.�13,48,35,48,13,8,35,8,13,27,35,27,24,38,0

�4�13,48,35,48,13,8,35,8,13,27,35,27,24,38,24,18,0

�:�13,48,35,48,13,8,35,8,24,27,13,35,35,35,13,21,35,21,0

�B�13,48,35,48,13,8,35,8,13,35,35,35,13,21,35,21,24,38,24,18,0,0

�?��e:�7:�1:�27,11)"Illegal":n=�:���>n+300:�130:�27,11)�7:�
�

00000000  0d 00 0a 40 ee 85 f9 3a  f4 22 83 37 43 41 52 44  |...@...:.".7CARD|
00000010  20 4f 63 74 38 36 82 56  32 44 65 63 38 36 81 20  | Oct86.V2Dec86. |
00000020  20 20 20 44 4f 20 4e 4f  54 20 52 45 4e 55 4d 42  |   DO NOT RENUMB|
00000030  45 52 20 54 48 49 53 20  50 52 4f 47 52 41 4d 21  |ER THIS PROGRAM!|
00000040  0d 00 14 eb eb 37 3a ef  32 33 3b 38 32 30 32 3b  |.....7:.23;8202;|
00000050  30 3b 30 3b 30 3b 32 33  2c 32 32 34 2c 35 34 2c  |0;0;0;23,224,54,|
00000060  31 32 37 2c 31 32 37 2c  31 32 37 2c 36 32 2c 32  |127,127,127,62,2|
00000070  38 2c 38 2c 30 2c 32 33  2c 32 32 35 2c 38 2c 32  |8,8,0,23,225,8,2|
00000080  38 2c 36 32 2c 31 32 37  2c 31 32 37 2c 31 32 37  |8,62,127,127,127|
00000090  2c 32 38 2c 36 32 2c 32  33 2c 32 32 36 2c 30 2c  |,28,62,23,226,0,|
000000a0  38 2c 32 38 2c 36 32 2c  31 32 37 2c 36 32 2c 32  |8,28,62,127,62,2|
000000b0  38 2c 38 2c 32 33 2c 32  32 37 2c 38 2c 32 38 2c  |8,8,23,227,8,28,|
000000c0  32 38 2c 31 30 37 2c 31  32 37 2c 31 30 37 2c 38  |28,107,127,107,8|
000000d0  2c 32 38 2c 32 33 2c 32  32 38 2c 30 2c 32 35 35  |,28,23,228,0,255|
000000e0  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
000000f0  2c 32 35 35 2c 30 2c 32  33 2c 32 32 39 2c 37 38  |,255,0,23,229,78|
00000100  2c 39 31 2c 38 31 2c 38  31 2c 38 31 2c 39 31 2c  |,91,81,81,81,91,|
00000110  37 38 2c 30 3a de 62 24  28 37 29 2c 73 24 28 34  |78,0:.b$(7),s$(4|
00000120  29 2c 63 25 28 37 29 3a  52 3d 30 0d 00 1e e4 50  |),c%(7):R=0....P|
00000130  24 3d 22 8d 82 37 20 43  41 52 44 20 50 41 54 49  |$="..7 CARD PATI|
00000140  45 4e 43 45 22 3a f1 27  89 39 50 24 27 89 39 50  |ENCE":.'.9P$'.9P|
00000150  24 27 27 22 4b 45 59 53  22 27 22 3d 3d 3d 3d 22  |$''"KEYS"'"===="|
00000160  27 27 22 44 3d 44 65 61  6c 28 33 20 61 74 20 61  |''"D=Deal(3 at a|
00000170  20 74 69 6d 65 29 22 89  32 22 53 3d 53 74 61 63  | time)".2"S=Stac|
00000180  6b 22 27 27 22 31 2d 37  3d 43 6f 6c 75 6d 6e 73  |k"''"1-7=Columns|
00000190  22 89 31 30 22 50 3d 50  69 6c 65 22 27 27 22 45  |".10"P=Pile"''"E|
000001a0  53 43 41 50 45 3d 52 65  73 74 61 72 74 22 89 36  |SCAPE=Restart".6|
000001b0  22 81 42 65 65 70 3d 49  6c 6c 65 67 61 6c 20 6d  |".Beep=Illegal m|
000001c0  6f 76 65 22 27 27 22 41  6c 74 65 72 6e 61 74 65  |ove"''"Alternate|
000001d0  20 63 6f 6c 6f 75 72 20  6f 66 20 63 61 72 64 73  | colour of cards|
000001e0  20 69 6e 20 63 6f 6c 75  6d 6e 73 22 27 22 69 6e  | in columns"'"in|
000001f0  20 64 65 63 72 65 61 73  69 6e 67 20 6e 75 6d 65  | decreasing nume|
00000200  72 69 63 61 6c 20 73 65  71 75 65 6e 63 65 22 0d  |rical sequence".|
00000210  00 23 ab f1 27 22 4b 69  6e 67 73 20 6f 6e 6c 79  |.#..'"Kings only|
00000220  20 6d 61 79 20 62 65 20  6d 6f 76 65 64 20 74 6f  | may be moved to|
00000230  20 76 61 63 61 6e 74 20  63 6f 6c 75 6d 6e 22 27  | vacant column"'|
00000240  22 50 6c 61 63 65 20 61  6c 6c 20 6f 66 20 65 61  |"Place all of ea|
00000250  63 68 20 73 75 69 74 20  6f 6e 20 69 74 27 73 20  |ch suit on it's |
00000260  6f 77 6e 20 61 63 65 20  20 69 6e 20 74 68 65 20  |own ace  in the |
00000270  70 69 6c 65 73 20 74 6f  20 77 69 6e 22 27 27 89  |piles to win"''.|
00000280  31 32 22 83 50 72 65 73  73 20 53 50 41 43 45 22  |12".Press SPACE"|
00000290  3b 3a 41 3d a5 3a 6b 24  3d 22 22 3a 76 24 3d 22  |;:A=.:k$="":v$="|
000002a0  23 41 32 33 34 35 36 37  38 39 e5 4a 51 4b 30 22  |#A23456789.JQK0"|
000002b0  3a f7 8d 74 50 41 3a f3  70 24 0d 00 28 68 eb 31  |:..tPA:.p$..(h.1|
000002c0  3a 41 25 3d b3 28 2d 91  29 3a ef 32 33 3b 38 32  |:A%=.(-.):.23;82|
000002d0  30 32 3b 30 3b 30 3b 30  3b 31 39 2c 32 2c 34 3b  |02;0;0;0;19,2,4;|
000002e0  30 3b 31 39 2c 33 2c 37  3b 30 3b 3a f5 f2 69 3a  |0;19,3,7;0;:..i:|
000002f0  ef 34 3a e6 30 2c 31 33  30 3a fb 31 33 30 3a da  |.4:.0,130:.130:.|
00000300  3a f2 64 3a f2 73 3a f2  6c 3a f5 fb 33 3a f1 8a  |:.d:.s:.l:..3:..|
00000310  32 35 2c 31 32 29 22 46  72 6f 6d 22 3a 2a 46 58  |25,12)"From":*FX|
00000320  32 31 0d 00 32 6f f5 41  24 3d be 3a fd a7 22 31  |21..2o.A$=.:.."1|
00000330  32 33 34 35 36 37 53 44  22 2c 41 24 29 3c 3e 30  |234567SD",A$)<>0|
00000340  3a e7 41 24 3d 22 44 22  f2 44 3a e5 8d 44 50 40  |:.A$="D".D:..DP@|
00000350  8b f1 8a 33 35 2c 31 32  29 41 24 3a 66 25 3d bb  |...35,12)A$:f%=.|
00000360  28 41 24 29 3a f1 8a 32  35 2c 31 34 29 22 54 6f  |(A$):..25,14)"To|
00000370  22 8a 32 35 2c 31 37 29  3b 52 3b 8a 32 39 2c 31  |".25,17);R;.29,1|
00000380  37 29 22 52 65 6d 6f 76  65 64 22 3a 2a 46 58 32  |7)"Removed":*FX2|
00000390  31 0d 00 3c 5c f5 42 24  3d be 3a fd a7 22 31 32  |1..<\.B$=.:.."12|
000003a0  33 34 35 36 37 50 22 2c  42 24 29 3c 3e 30 3a f1  |34567P",B$)<>0:.|
000003b0  8a 33 35 2c 31 34 29 42  24 3a 74 25 3d bb 28 42  |.35,14)B$:t%=.(B|
000003c0  24 29 3a e7 42 24 3d 22  50 22 f2 74 3a e5 8d 44  |$):.B$="P".t:..D|
000003d0  50 40 8b e7 41 24 3d 22  53 22 41 25 3d a4 66 3a  |P@..A$="S"A%=.f:|
000003e0  8b 41 25 3d a4 6d 28 66  25 2c 74 25 29 0d 00 46  |.A%=.m(f%,t%)..F|
000003f0  0a e7 ac 41 25 f2 65 0d  00 50 7e f1 8a 33 35 2c  |...A%.e..P~..35,|
00000400  31 32 29 89 31 8a 33 35  2c 31 34 29 89 31 3a fd  |12).1.35,14).1:.|
00000410  52 3d 35 32 3a fb 31 3a  f1 8a 32 33 2c 31 36 29  |R=52:.1:..23,16)|
00000420  22 43 6f 6e 67 72 61 74  75 6c 61 74 69 6f 6e 73  |"Congratulations|
00000430  22 8a 32 35 2c 31 38 29  22 50 6c 61 79 20 61 67  |".25,18)"Play ag|
00000440  61 69 6e 3f 22 3a e3 58  3d 31 b8 31 30 3a d4 31  |ain?":.X=1.10:.1|
00000450  2c 2d 35 2d 58 2c 31 31  30 2b 58 2c 31 3a d4 31  |,-5-X,110+X,1:.1|
00000460  2c 2d 35 2d 58 2c 31 33  30 2b 58 2c 31 3a ed 3a  |,-5-X,130+X,1:.:|
00000470  2a 46 58 32 31 0d 00 5a  20 f5 41 3d a5 3a fd 41  |*FX21..Z .A=.:.A|
00000480  3d 37 38 84 41 3d 38 39  3a e7 41 3d 38 39 f9 3a  |=78.A=89:.A=89.:|
00000490  8b eb 37 3a e0 0d 00 64  29 dd a4 6d 28 73 25 2c  |..7:...d)..m(s%,|
000004a0  64 25 29 3a 6c 24 3d c2  62 24 28 64 25 29 2c 32  |d%):l$=.b$(d%),2|
000004b0  29 3a e7 6c 24 3d 22 22  6c 24 3d 22 30 22 0d 00  |):.l$=""l$="0"..|
000004c0  6e bc 6e 24 3d c1 76 24  2c a7 76 24 2c c0 6c 24  |n.n$=.v$,.v$,.l$|
000004d0  2c 31 29 29 2d 31 2c 31  29 3a 67 24 3d 62 24 28  |,1))-1,1):g$=b$(|
000004e0  73 25 29 3a 70 25 3d 63  25 28 73 25 29 2a 32 2d  |s%):p%=c%(s%)*2-|
000004f0  31 3a e7 70 25 3c 31 8c  3d 30 8b 63 24 3d c1 62  |1:.p%<1.=0.c$=.b|
00000500  24 28 73 25 29 2c 70 25  2c 32 29 3a e7 a7 63 24  |$(s%),p%,2):..c$|
00000510  2c 6e 24 29 3d 30 8c 3d  30 8b e7 ac a4 54 20 8c  |,n$)=0.=0....T .|
00000520  3d 30 8b 71 24 3d c1 67  24 2c 70 25 2c a9 28 67  |=0.q$=.g$,p%,.(g|
00000530  24 29 2d 70 25 2b 31 29  3a e3 58 25 3d 31 b8 a9  |$)-p%+1):.X%=1..|
00000540  28 71 24 29 88 32 3a 62  24 28 64 25 29 3d 62 24  |(q$).2:b$(d%)=b$|
00000550  28 64 25 29 2b c1 71 24  2c 58 25 2c 32 29 3a 62  |(d%)+.q$,X%,2):b|
00000560  24 28 73 25 29 3d c0 62  24 28 73 25 29 2c a9 28  |$(s%)=.b$(s%),.(|
00000570  62 24 28 73 25 29 29 2d  32 29 0d 00 78 41 f2 66  |b$(s%))-2)..xA.f|
00000580  28 64 25 29 3a f2 66 28  73 25 29 3a ef 33 31 2c  |(d%):.f(s%):.31,|
00000590  73 25 2a 33 2d 32 2c 70  25 81 32 2b 33 2b 58 25  |s%*3-2,p%.2+3+X%|
000005a0  81 32 3a f1 89 32 3a ed  3a 63 25 28 73 25 29 3d  |.2:..2:.:c%(s%)=|
000005b0  63 25 28 73 25 29 2d 31  3a 3d b9 0d 00 82 38 dd  |c%(s%)-1:=....8.|
000005c0  a4 66 3a e7 a9 28 6b 24  29 3c 31 8c 3d 30 8b 63  |.f:..(k$)<1.=0.c|
000005d0  24 3d c0 6b 24 2c 32 29  3a 6c 24 3d c2 62 24 28  |$=.k$,2):l$=.b$(|
000005e0  74 25 29 2c 32 29 3a e7  6c 24 3d 22 22 6c 24 3d  |t%),2):.l$=""l$=|
000005f0  22 30 22 0d 00 8c 6a 6e  24 3d c1 76 24 2c a7 76  |"0"...jn$=.v$,.v|
00000600  24 2c c0 6c 24 2c 31 29  29 2d 31 2c 31 29 3a e7  |$,.l$,1))-1,1):.|
00000610  6e 24 3d 22 22 8c 3d 30  8b e7 a7 63 24 2c 6e 24  |n$="".=0...c$,n$|
00000620  29 3d 30 8c 3d 30 8b e7  ac a4 54 20 8c 3d 30 8b  |)=0.=0....T .=0.|
00000630  62 24 28 74 25 29 3d 62  24 28 74 25 29 2b 63 24  |b$(t%)=b$(t%)+c$|
00000640  3a f2 66 28 74 25 29 3a  6b 24 3d c2 6b 24 2c a9  |:.f(t%):k$=.k$,.|
00000650  28 6b 24 29 2d 32 29 3a  f2 53 3a 3d b9 0d 00 96  |(k$)-2):.S:=....|
00000660  5a dd a4 54 3a 64 24 3d  c2 6c 24 2c 31 29 3a 65  |Z..T:d$=.l$,1):e|
00000670  24 3d c2 63 24 2c 31 29  3a e7 a7 22 53 43 22 2c  |$=.c$,1):.."SC",|
00000680  64 24 29 3c 3e 30 80 a7  22 53 43 22 2c 65 24 29  |d$)<>0.."SC",e$)|
00000690  3c 3e 30 8c 3d 30 8b e7  a7 22 44 48 22 2c 64 24  |<>0.=0..."DH",d$|
000006a0  29 3c 3e 30 80 a7 22 44  48 22 2c 65 24 29 3c 3e  |)<>0.."DH",e$)<>|
000006b0  30 8c 3d 30 8b 3d b9 0d  00 a0 58 dd f2 66 28 43  |0.=0.=....X..f(C|
000006c0  25 29 3a 79 25 3d a9 28  62 24 28 43 25 29 29 3a  |%):y%=.(b$(C%)):|
000006d0  e7 79 25 3d 30 ef 33 31  2c 33 2a 43 25 2d 32 2c  |.y%=0.31,3*C%-2,|
000006e0  79 25 2f 32 2b 32 3a f1  89 32 3a e1 3a 8b 63 24  |y%/2+2:..2:.:.c$|
000006f0  3d c2 62 24 28 43 25 29  2c 32 29 3a e7 a7 22 48  |=.b$(C%),2):.."H|
00000700  44 22 2c c2 63 24 2c 31  29 29 fb 31 8b fb 30 0d  |D",.c$,1)).1..0.|
00000710  00 aa 31 ef 33 31 2c 33  2a 43 25 2d 32 2c 79 25  |..1.31,3*C%-2,y%|
00000720  2f 32 2b 31 3a f1 63 24  3a ef 33 31 2c 33 2a 43  |/2+1:.c$:.31,3*C|
00000730  25 2d 32 2c 79 25 2f 32  2b 32 3a f1 89 32 3a e1  |%-2,y%/2+2:..2:.|
00000740  0d 00 b4 23 dd f2 44 3a  e3 6c 25 3d 31 b8 33 3a  |...#..D:.l%=1.3:|
00000750  e7 a9 28 66 24 29 3d 30  66 24 3d 6b 24 3a 6b 24  |..(f$)=0f$=k$:k$|
00000760  3d 22 22 0d 00 be 31 6b  24 3d c2 66 24 2c 32 29  |=""...1k$=.f$,2)|
00000770  2b 6b 24 3a 66 24 3d c0  66 24 2c a9 28 66 24 29  |+k$:f$=.f$,.(f$)|
00000780  2d 32 29 3a ed 3a 63 24  3d c0 6b 24 2c 32 29 3a  |-2):.:c$=.k$,2):|
00000790  f2 53 3a e1 0d 00 c8 83  dd f2 73 3a 66 24 3d 22  |.S:.......s:f$="|
000007a0  22 3a 44 25 3d 35 32 3a  e3 49 25 3d 31 b8 35 32  |":D%=52:.I%=1.52|
000007b0  3a 41 25 3d a8 28 b3 28  31 29 2a 44 25 2b 31 29  |:A%=.(.(1)*D%+1)|
000007c0  3a 66 24 3d 66 24 2b c1  70 24 2c 32 2a 41 25 2d  |:f$=f$+.p$,2*A%-|
000007d0  31 2c 32 29 3a 4c 24 3d  c0 70 24 2c 28 41 25 2d  |1,2):L$=.p$,(A%-|
000007e0  31 29 2a 32 29 3a 52 24  3d c2 70 24 2c 28 a9 28  |1)*2):R$=.p$,(.(|
000007f0  70 24 29 2f 32 2d 41 25  29 2a 32 29 3a 70 24 3d  |p$)/2-A%)*2):p$=|
00000800  4c 24 2b 52 24 3a 44 25  3d 44 25 2d 31 3a ed 3a  |L$+R$:D%=D%-1:.:|
00000810  70 24 3d 66 24 3a e1 0d  00 d2 bd dd f2 6c 3a ef  |p$=f$:.......l:.|
00000820  35 3a ec 35 34 2c 39 39  34 3a e6 30 2c 33 3a f1  |5:.54,994:.0,3:.|
00000830  22 31 20 20 32 20 20 33  20 20 34 20 20 35 20 20  |"1  2  3  4  5  |
00000840  36 20 20 37 22 3a ef 34  3a fb 33 3a e3 72 25 3d  |6  7":.4:.3:.r%=|
00000850  37 b8 31 88 2d 31 3a e3  43 25 3d 31 b8 72 25 3a  |7.1.-1:.C%=1.r%:|
00000860  62 24 28 43 25 29 3d 62  24 28 43 25 29 2b c2 66  |b$(C%)=b$(C%)+.f|
00000870  24 2c 32 29 3a 66 24 3d  c0 66 24 2c a9 28 66 24  |$,2):f$=.f$,.(f$|
00000880  29 2d 32 29 3a ef 33 31  2c 43 25 2a 33 2d 32 2c  |)-2):.31,C%*3-2,|
00000890  39 2d 72 25 3a f1 22 e4  e4 22 3b 3a ed 2c 3a ef  |9-r%:."..";:.,:.|
000008a0  33 31 2c 31 2c 32 31 3a  f1 22 53 3d 53 54 41 43  |31,1,21:."S=STAC|
000008b0  4b 22 89 31 33 22 50 3d  50 49 4c 45 53 22 3a f2  |K".13"P=PILES":.|
000008c0  53 3a e3 49 25 3d 31 b8  37 3a f2 66 28 49 25 29  |S:.I%=1.7:.f(I%)|
000008d0  3a ed 3a e1 0d 00 dc 1a  dd f2 53 3a f2 70 28 c0  |:.:.......S:.p(.|
000008e0  6b 24 2c 32 29 2c 34 34  2c 33 32 29 3a e1 0d 00  |k$,2),44,32):...|
000008f0  e6 58 dd f2 69 3a e3 49  25 3d 31 b8 37 3a 62 24  |.X..i:.I%=1.7:b$|
00000900  28 49 25 29 3d c4 33 38  2c 22 20 22 29 3a ed 3a  |(I%)=.38," "):.:|
00000910  e3 49 25 3d 31 b8 34 3a  73 24 28 49 25 29 3d 22  |.I%=1.4:s$(I%)="|
00000920  23 22 3a ed 3a e3 49 25  3d 31 b8 37 3a 62 24 28  |#":.:.I%=1.7:b$(|
00000930  49 25 29 3d 22 22 3a 63  25 28 49 25 29 3d 38 2d  |I%)="":c%(I%)=8-|
00000940  49 25 3a ed 3a e1 0d 00  f0 1e dd f2 70 28 63 24  |I%:.:.......p(c$|
00000950  2c 78 25 2c 79 25 29 3a  e7 63 24 3d 22 23 22 63  |,x%,y%):.c$="#"c|
00000960  24 3d 22 22 0d 00 fa a0  ef 32 39 2c 78 25 3b 79  |$="".....29,x%;y|
00000970  25 3b 32 34 2c 2d 34 3b  30 3b 31 39 32 3b 32 32  |%;24,-4;0;192;22|
00000980  37 3b 3a e6 30 2c 31 33  31 3a da 3a ef 35 3a e7  |7;:.0,131:.:.5:.|
00000990  63 24 3d 22 22 e6 30 2c  31 3a ec 31 36 2c 31 32  |c$="".0,1:.16,12|
000009a0  38 3a f1 22 45 4d 50 54  59 22 3a ef 34 3a e1 3a  |8:."EMPTY":.4:.:|
000009b0  8b 56 24 3d c0 63 24 2c  31 29 3a 76 25 3d a7 22  |.V$=.c$,1):v%=."|
000009c0  41 32 33 34 35 36 37 38  39 e5 4a 51 4b 22 2c 56  |A23456789.JQK",V|
000009d0  24 29 3a 53 24 3d bd 28  32 32 33 2b a7 22 48 53  |$):S$=.(223+."HS|
000009e0  44 43 22 2c c2 63 24 2c  31 29 29 29 3a e7 a7 22  |DC",.c$,1))):.."|
000009f0  48 44 22 2c c2 63 24 2c  31 29 29 e6 30 2c 31 8b  |HD",.c$,1)).0,1.|
00000a00  e6 30 2c 30 0d 01 04 27  ec 30 2c 32 32 33 3a f1  |.0,0...'.0,223:.|
00000a10  56 24 3a ec 31 36 30 2c  33 32 3a f1 56 24 3a e7  |V$:.160,32:.V$:.|
00000a20  76 25 3e 31 30 f2 50 3a  8b f2 6e 0d 01 0e 08 ef  |v%>10.P:..n.....|
00000a30  34 3a e1 0d 01 18 32 dd  f2 6e 3a f7 76 25 2b 34  |4:....2..n:.v%+4|
00000a40  30 30 3a f5 f3 78 25 2c  79 25 3a e7 78 25 3c 3e  |00:..x%,y%:.x%<>|
00000a50  30 ec 78 25 2a 34 2d 31  36 2c 79 25 2a 34 2b 31  |0.x%*4-16,y%*4+1|
00000a60  36 3a f1 53 24 0d 01 22  0b fd 78 25 3d 30 3a e1  |6:.S$.."..x%=0:.|
00000a70  0d 01 2c 5a dd f2 50 3a  e7 56 24 3d 22 4a 22 56  |..,Z..P:.V$="J"V|
00000a80  24 3d 22 4a 41 43 4b 22  3a ec 33 32 2c 31 32 34  |$="JACK":.32,124|
00000a90  3a f1 56 24 3a 8b e7 56  24 3d 22 51 22 56 24 3d  |:.V$:..V$="Q"V$=|
00000aa0  22 51 55 45 45 4e 22 3a  ec 31 36 2c 31 32 34 3a  |"QUEEN":.16,124:|
00000ab0  f1 56 24 3a 8b 56 24 3d  22 4b 49 4e 47 22 3a ec  |.V$:.V$="KING":.|
00000ac0  33 32 2c 31 32 34 3a f1  56 24 0d 01 36 1c ec 30  |32,124:.V$..6..0|
00000ad0  2c 31 39 30 3a f1 53 24  3a ec 31 35 38 2c 36 38  |,190:.S$:.158,68|
00000ae0  3a f1 53 24 3a e1 0d 01  40 33 dd f2 52 28 53 25  |:.S$:...@3..R(S%|
00000af0  29 3a 52 3d 52 2b 31 3a  f1 8a 32 35 2c 31 37 29  |):R=R+1:..25,17)|
00000b00  3b 52 3a f2 70 28 63 24  2c 53 25 2a 32 32 34 2b  |;R:.p(c$,S%*224+|
00000b10  31 34 38 2c 33 32 29 3a  e1 0d 01 4a 26 dd f2 74  |148,32):...J&..t|
00000b20  3a e7 41 24 3d 22 53 22  63 24 3d c0 6b 24 2c 32  |:.A$="S"c$=.k$,2|
00000b30  29 8b 63 24 3d c2 62 24  28 66 25 29 2c 32 29 0d  |).c$=.b$(f%),2).|
00000b40  01 54 0e e7 63 24 3d 22  22 f2 65 3a e1 0d 01 5e  |.T..c$="".e:...^|
00000b50  b0 53 25 3d a7 22 48 53  44 43 22 2c c2 63 24 2c  |.S%=."HSDC",.c$,|
00000b60  31 29 29 3a 6e 24 3d c1  76 24 2c a7 76 24 2c c0  |1)):n$=.v$,.v$,.|
00000b70  63 24 2c 31 29 29 2d 31  2c 31 29 3a e7 c0 73 24  |c$,1))-1,1):..s$|
00000b80  28 53 25 29 2c 31 29 3c  3e 6e 24 f2 65 3a e1 3a  |(S%),1)<>n$.e:.:|
00000b90  8b 73 24 28 53 25 29 3d  63 24 3a f2 52 28 53 25  |.s$(S%)=c$:.R(S%|
00000ba0  29 3a e7 41 24 3d 22 53  22 6b 24 3d c2 6b 24 2c  |):.A$="S"k$=.k$,|
00000bb0  a9 28 6b 24 29 2d 32 29  3a f2 53 3a e1 3a 8b 63  |.(k$)-2):.S:.:.c|
00000bc0  24 3d 62 24 28 66 25 29  3a 62 24 28 66 25 29 3d  |$=b$(f%):b$(f%)=|
00000bd0  c0 63 24 2c a9 28 63 24  29 2d 32 29 3a e7 a9 28  |.c$,.(c$)-2):..(|
00000be0  63 24 29 2f 32 2d 31 3c  63 25 28 66 25 29 63 25  |c$)/2-1<c%(f%)c%|
00000bf0  28 66 25 29 3d 63 25 28  66 25 29 2d 31 0d 01 68  |(f%)=c%(f%)-1..h|
00000c00  0c f2 66 28 66 25 29 3a  e1 0d 01 72 b2 dd f2 64  |..f(f%):...r...d|
00000c10  3a e6 30 2c 33 3a ec 30  2c 30 3a df 30 2c 31 30  |:.0,3:.0,0:.0,10|
00000c20  32 33 3a df 31 32 37 39  2c 31 30 32 33 3a df 31  |23:.1279,1023:.1|
00000c30  32 37 39 2c 30 3a df 30  2c 30 3a ec 32 34 2c 32  |279,0:.0,0:.24,2|
00000c40  34 3a df 32 34 2c 33 31  38 3a df 32 35 36 2c 33  |4:.24,318:.256,3|
00000c50  31 38 3a df 32 35 36 2c  32 34 3a df 32 34 2c 32  |18:.256,24:.24,2|
00000c60  34 3a ec 33 34 38 2c 32  34 3a df 33 34 38 2c 33  |4:.348,24:.348,3|
00000c70  31 38 3a df 31 32 35 35  2c 33 31 38 3a df 31 32  |18:.1255,318:.12|
00000c80  35 35 2c 32 34 3a df 33  34 38 2c 32 34 3a ef 35  |55,24:.348,24:.5|
00000c90  3a ec 35 30 2c 33 30 32  3a f1 22 44 3d 44 65 61  |:.50,302:."D=Dea|
00000ca0  6c 22 3b 3a e6 30 2c 31  3a f1 89 34 22 48 65 61  |l";:.0,1:..4"Hea|
00000cb0  72 74 73 20 22 3b 3a e6  30 2c 30 0d 01 7c c5 f1  |rts ";:.0,0..|..|
00000cc0  22 53 70 61 64 65 73 20  22 3b 3a e6 30 2c 31 3a  |"Spades ";:.0,1:|
00000cd0  f1 22 44 69 61 6d 64 73  22 3b 3a e6 30 2c 30 3a  |."Diamds";:.0,0:|
00000ce0  f1 22 20 20 43 6c 75 62  73 22 3a e6 30 2c 33 3a  |."  Clubs":.0,3:|
00000cf0  ec 36 39 30 2c 39 39 30  3a df 31 32 35 35 2c 39  |.690,990:.1255,9|
00000d00  39 30 3a df 31 32 35 35  2c 33 39 30 3a df 36 39  |90:.1255,390:.69|
00000d10  30 2c 33 39 30 3a df 36  39 30 2c 39 39 30 3a ec  |0,390:.690,990:.|
00000d20  36 39 30 2c 37 32 30 3a  df 31 32 35 35 2c 37 32  |690,720:.1255,72|
00000d30  30 3a ef 34 3a f1 8a 32  36 2c 32 29 22 37 20 43  |0:.4:..26,2)"7 C|
00000d40  20 41 20 52 20 44 22 8a  32 33 2c 34 29 22 50 20  | A R D".23,4)"P |
00000d50  41 20 54 20 49 20 45 20  4e 20 43 20 45 22 8a 32  |A T I E N C E".2|
00000d60  39 2c 36 29 22 62 20 79  22 8a 32 33 2c 38 29 22  |9,6)"b y".23,8)"|
00000d70  44 69 63 6b 20 42 6c 6f  6f 64 77 6f 72 74 68 22  |Dick Bloodworth"|
00000d80  0d 01 86 17 f1 8a 32 37  2c 31 30 29 22 4d 20 4f  |......27,10)"M O|
00000d90  20 56 20 45 22 3a e1 0d  01 90 6d dc 32 48 32 53  | V E":....m.2H2S|
00000da0  32 44 32 43 33 48 33 53  33 44 33 43 34 48 34 53  |2D2C3H3S3D3C4H4S|
00000db0  34 44 34 43 35 48 35 53  35 44 35 43 36 48 36 53  |4D4C5H5S5D5C6H6S|
00000dc0  36 44 36 43 37 48 37 53  37 44 37 43 38 48 38 53  |6D6C7H7S7D7C8H8S|
00000dd0  38 44 38 43 39 48 39 53  39 44 39 43 e5 48 e5 53  |8D8C9H9S9D9C.H.S|
00000de0  e5 44 e5 43 4a 48 4a 53  4a 44 4a 43 51 48 51 53  |.D.CJHJSJDJCQHQS|
00000df0  51 44 51 43 4b 48 4b 53  4b 44 4b 43 41 48 41 53  |QDQCKHKSKDKCAHAS|
00000e00  41 44 41 43 0d 01 91 0c  dc 32 34 2c 32 37 2c 30  |ADAC.....24,27,0|
00000e10  0d 01 92 11 dc 32 34 2c  34 38 2c 32 34 2c 38 2c  |.....24,48,24,8,|
00000e20  30 0d 01 93 17 dc 32 34  2c 34 38 2c 32 34 2c 32  |0.....24,48,24,2|
00000e30  37 2c 32 34 2c 38 2c 30  0d 01 94 1c dc 31 33 2c  |7,24,8,0.....13,|
00000e40  34 38 2c 33 35 2c 34 38  2c 31 33 2c 38 2c 33 35  |48,35,48,13,8,35|
00000e50  2c 38 2c 30 0d 01 95 22  dc 31 33 2c 34 38 2c 33  |,8,0...".13,48,3|
00000e60  35 2c 34 38 2c 31 33 2c  38 2c 33 35 2c 38 2c 32  |5,48,13,8,35,8,2|
00000e70  34 2c 32 37 2c 30 0d 01  96 28 dc 31 33 2c 34 38  |4,27,0...(.13,48|
00000e80  2c 33 35 2c 34 38 2c 31  33 2c 38 2c 33 35 2c 38  |,35,48,13,8,35,8|
00000e90  2c 31 33 2c 32 37 2c 33  35 2c 32 37 2c 30 0d 01  |,13,27,35,27,0..|
00000ea0  97 2e dc 31 33 2c 34 38  2c 33 35 2c 34 38 2c 31  |...13,48,35,48,1|
00000eb0  33 2c 38 2c 33 35 2c 38  2c 31 33 2c 32 37 2c 33  |3,8,35,8,13,27,3|
00000ec0  35 2c 32 37 2c 32 34 2c  33 38 2c 30 0d 01 98 34  |5,27,24,38,0...4|
00000ed0  dc 31 33 2c 34 38 2c 33  35 2c 34 38 2c 31 33 2c  |.13,48,35,48,13,|
00000ee0  38 2c 33 35 2c 38 2c 31  33 2c 32 37 2c 33 35 2c  |8,35,8,13,27,35,|
00000ef0  32 37 2c 32 34 2c 33 38  2c 32 34 2c 31 38 2c 30  |27,24,38,24,18,0|
00000f00  0d 01 99 3a dc 31 33 2c  34 38 2c 33 35 2c 34 38  |...:.13,48,35,48|
00000f10  2c 31 33 2c 38 2c 33 35  2c 38 2c 32 34 2c 32 37  |,13,8,35,8,24,27|
00000f20  2c 31 33 2c 33 35 2c 33  35 2c 33 35 2c 31 33 2c  |,13,35,35,35,13,|
00000f30  32 31 2c 33 35 2c 32 31  2c 30 0d 01 9a 42 dc 31  |21,35,21,0...B.1|
00000f40  33 2c 34 38 2c 33 35 2c  34 38 2c 31 33 2c 38 2c  |3,48,35,48,13,8,|
00000f50  33 35 2c 38 2c 31 33 2c  33 35 2c 33 35 2c 33 35  |35,8,13,35,35,35|
00000f60  2c 31 33 2c 32 31 2c 33  35 2c 32 31 2c 32 34 2c  |,13,21,35,21,24,|
00000f70  33 38 2c 32 34 2c 31 38  2c 30 2c 30 0d 01 a4 3f  |38,24,18,0,0...?|
00000f80  dd f2 65 3a ef 37 3a fb  31 3a f1 8a 32 37 2c 31  |..e:.7:.1:..27,1|
00000f90  31 29 22 49 6c 6c 65 67  61 6c 22 3a 6e 3d 91 3a  |1)"Illegal":n=.:|
00000fa0  f5 fd 91 3e 6e 2b 33 30  30 3a fb 31 33 30 3a f1  |...>n+300:.130:.|
00000fb0  8a 32 37 2c 31 31 29 89  37 3a e1 0d ff           |.27,11).7:...|
00000fbd