� Orthogonal Patience
� By Gyles Harvey
� (c) The Micro User
(�1
2
�computer
<	�init
F�screen
P�shuffle
Z	�deal
d	�keys
n� K%=6:�
x�mess(16,16,"YOU WIN")
�
K%=�:�
�
��init
��l(4,1)
��M%10,p 52,O%52,s 52,B%4
��A%=0�4:B%?A%=0:�
��A%=0�52:p?A%=0:�
�
s$="CDHS"
�n$="A23456789TJQK"
�d=-1:U%=0:V%=0
��
���shuffle:�T%
�-�C%=0�51:�p?C%<>255p?C%=0:s?T%=C%:T%=T%+1
��

�R%=0�3:�D%=B%?R%�12

�E%=�(T%)-1:�s?E%<>255

O%?(R%*13+D%)=s?E%:s?E%=255

"	�:�:�

,��deal:� X%,Y%

6d=d+1:�score

@�Y%=0�3:�X%=B%?Y%�12

J�draw(X%,Y%+1):�:�

T�

^
��keys

h� �

rK%=�"1234 "+�13,�)

|	�K%>0

��mess(20,20,""):�score

��K%<5:�swap(K%)

��K%=5:�redeal

�
�score

�	�K%>5

��

���redeal

��howcomplete

�� F%,R%:F%=�

��R%=0�3:�B%?R%<>12:F%=�

��

��F%K%=7 ��shuffle:�deal

��
��swap(N%)
!G%=l(N%,0):H%=l(N%,1):V%=V%+1
�G%=0�whichtwo:�DDB
&F%=O%?(G%-1+13*H%)
0>�F%�13=12:�mess(3,3,"You cannot swap next to a King..."):�
:>�F%�13=0:�mess(2,3,"You cannot swap next to a Space..."):�
D�X%,Y%:�X%=0�12:�Y%=0�3
N.�O%?(X%+13*Y%)=F%+1:I%=X%:J%=Y%:X%=13:Y%=4
X�:�:U%=U%+1
bAC%=O%?(I%+13*J%):O%?(I%+13*J%)=O%?(G%+13*H%):O%?(G%+13*H%)=C%
l!�draw(G%,H%+1):�draw(I%,J%+1)
v�
���whichtwo
�,�mess(5,0,"Which 2 ...? (C/D/H/S) ... ")
��N%=�s$,�(��&DF))
��N%>0:F%=(N%-1)*13:�
���howcomplete
��R%=0�3:B%?R%=0
�N%=O%?(13*R%)
��N%�13<>1��dxB
�B%?R%=1:p?N%=255
��D%=1�11
�7�O%?(13*R%+D%)=N%+D%:p?(N%+D%)=255:B%?R%=D%+1�D%=13
��
��

�score
�
���suit(S%)
��S%�d|C,�TnD,�D`D,�tRD
�"�23,128,0,1,7,15,15,55,123,125
'�23,129,0,0,192,224,224,216,188,124
"�23,130,255,125,121,51,3,3,7,0
(�23,131,254,124,60,152,128,128,192,0
$�
. �23,128,0,1,3,7,15,31,63,127
8'�23,129,0,0,128,192,224,240,248,252
B�23,130,63,31,15,7,3,1,0,0
L%�23,131,248,240,224,192,128,0,0,0
V�
`'�23,128,0,24,60,126,127,255,127,127
j(�23,129,0,48,120,252,252,254,252,252
t �23,130,63,63,31,31,15,7,1,0
~'�23,131,248,248,240,240,224,192,0,0
��
��23,128,0,1,3,7,15,31,63,63
�'�23,129,0,0,128,192,224,240,248,248
��23,130,63,61,25,3,3,3,7,0
�(�23,131,248,120,48,128,128,128,192,0
��
���chars
��23,136,0,0,0,0,0,3,6,4
��23,137,0,0,0,0,0,255,0,0
��23,138,0,0,0,0,0,192,96,32
��23,139,4,6,3,0,0,0,0,0
��23,140,0,0,255,0,0,0,0,0
�23,141,32,96,192,0,0,0,0,0

�23,142,4,4,4,4,4,4,4,4
#�23,143,32,32,32,32,32,32,32,32
�23,144,0,0,0,0,0,0,1,3
(�23,145,0,0,0,0,0,0,255,255
2�23,146,0,0,0,0,0,0,128,192
<�23,147,3,1,0,0,0,0,0,0
F�23,148,255,255,0,0,0,0,0,0
P�23,149,192,128,0,0,0,0,0,0
Z�23,150,3,3,3,3,3,3,3,3
d+�23,151,192,192,192,192,192,192,192,192
n+�23,159,255,255,255,255,255,255,255,255
x�
���screen
�7�23;8202;0;0;0;19,0,2;0;19,1,1;0;19,2,0;0;19,3,7;0;
�#�0,1024:�b$:�0,1024:�0,3:�i$;�4
��31,1,1:�131:�1:�expand(79)
��31,1,3:�expand(80)
��31,4,1:�boxes("RTHOGONAL")
��31,4,3:�boxes("ATIENCE")
�2�1,7)"Press Space to re-deal, Return to run."
�$�128:�2:�24,1)"By Gyles Harvey"
�5�3:�20,3)"deals :"�20,4)"cards :"�20,5)"turns :"
�	�grid
��
���boxes(t$)
�X%:�X%=1��t$
�t$,X%)9:�:�
��card(P%,R%,D%)
"	�0,D%
,�31,P%*3+1,R%*6+3
6�P%*96,(30-R%*6)*32
@�i$;�4;
J�
T��grid:�X%,Y%
^�X%=0�12:�Y%=1�4
h�X%*96,(30-Y%*6)*32
r�b$�4;:�:�:�
|��draw(P%,R%)
�E%=O%?(P%+13*(R%-1))
�S%=E%�13+1
�E%=E%�13+1
��E%=1��djF
��card(P%,R%,3)
�
�suit(S%)
��131:�S%=1�S%=4�2��1
�3�31,P%*3+1,R%*6+3,128,129,8,8,10,130,131,8,8,10
��expand(��n$,E%))
��
��card(P%,R%,0)
��128:�3
��31,P%*3+1,R%*6+4
�expand(48+S%)
l(S%,0)=P%:l(S%,1)=R%-1
�
&ݤa(C%):�T%
0�C%�128T%=T%+192
:�C%�64T%=T%+48
D�C%�32T%=T%+12
N�C%�16T%=T%+3
X=T%
bݤb(C%):�T%
l�C%�8T%=T%+192
v�C%�4T%=T%+48
��C%�2T%=T%+12
��C%�1T%=T%+3
�=T%
���expand(!M%)
��A%,L%,X%,Y%:A%=10
�X%=M%:Y%=M%�256:�&FFF1
��23,132:�L%=1�4
�A%=�a(M%?L%):�A%A%:�
��23,133:�L%=1�4
�A%=�b(M%?L%):�A%A%:�
��23,134:�L%=5�8
�A%=�a(M%?L%):�A%A%:�
��23,135:�L%=5�8
A%=�b(M%?L%):�A%A%:�
�132,133,8,8,10,134,135
�
 ��score
*�3:�128:�28,3);d;�28,4);
4�L%=0�3:�;B%?L%�1;:�
>�28,5);U%;" ";V%
H�
R ��mess(before,after,string$)
\+�128:�3:�0,6)�(before)string$�(after);
f�
p��computer
z
�chars
�S%=�(-�)
�db$=�5+�18+�0+�2+�136+�137+�137+�138+�4,�4,�8)+�10+�142+"  "+�143)+�4,�8)+�10+�139+�140+�140+�141
�_i$=�5+�144+�145+�145+�146+�4,�4,�8)+�10+�150+�159+�159+�151)+�4,�8)+�10+�147+�148+�148+�149
��
�

00000000  0d 00 0a 19 f4 20 4f 72  74 68 6f 67 6f 6e 61 6c  |..... Orthogonal|
00000010  20 50 61 74 69 65 6e 63  65 0d 00 14 15 f4 20 42  | Patience..... B|
00000020  79 20 47 79 6c 65 73 20  48 61 72 76 65 79 0d 00  |y Gyles Harvey..|
00000030  1e 18 f4 20 28 63 29 20  54 68 65 20 4d 69 63 72  |... (c) The Micr|
00000040  6f 20 55 73 65 72 0d 00  28 06 eb 31 0d 00 32 0d  |o User..(..1..2.|
00000050  f2 63 6f 6d 70 75 74 65  72 0d 00 3c 09 f2 69 6e  |.computer..<..in|
00000060  69 74 0d 00 46 0b f2 73  63 72 65 65 6e 0d 00 50  |it..F..screen..P|
00000070  0c f2 73 68 75 66 66 6c  65 0d 00 5a 09 f2 64 65  |..shuffle..Z..de|
00000080  61 6c 0d 00 64 09 f2 6b  65 79 73 0d 00 6e 0c e7  |al..d..keys..n..|
00000090  20 4b 25 3d 36 3a f9 0d  00 78 1a f2 6d 65 73 73  | K%=6:...x..mess|
000000a0  28 31 36 2c 31 36 2c 22  59 4f 55 20 57 49 4e 22  |(16,16,"YOU WIN"|
000000b0  29 0d 00 82 0a 4b 25 3d  a5 3a f9 0d 00 8c 0a dd  |)....K%=.:......|
000000c0  f2 69 6e 69 74 0d 00 96  0b de 6c 28 34 2c 31 29  |.init.....l(4,1)|
000000d0  0d 00 a0 1c de 4d 25 31  30 2c 70 20 35 32 2c 4f  |.....M%10,p 52,O|
000000e0  25 35 32 2c 73 20 35 32  2c 42 25 34 0d 00 aa 15  |%52,s 52,B%4....|
000000f0  e3 41 25 3d 30 b8 34 3a  42 25 3f 41 25 3d 30 3a  |.A%=0.4:B%?A%=0:|
00000100  ed 0d 00 b4 15 e3 41 25  3d 30 b8 35 32 3a 70 3f  |......A%=0.52:p?|
00000110  41 25 3d 30 3a ed 0d 00  be 0d 73 24 3d 22 43 44  |A%=0:.....s$="CD|
00000120  48 53 22 0d 00 c8 16 6e  24 3d 22 41 32 33 34 35  |HS"....n$="A2345|
00000130  36 37 38 39 54 4a 51 4b  22 0d 00 d2 12 64 3d 2d  |6789TJQK"....d=-|
00000140  31 3a 55 25 3d 30 3a 56  25 3d 30 0d 00 dc 05 e1  |1:U%=0:V%=0.....|
00000150  0d 00 e6 11 dd f2 73 68  75 66 66 6c 65 3a ea 54  |......shuffle:.T|
00000160  25 0d 00 f0 2d e3 43 25  3d 30 b8 35 31 3a e7 70  |%...-.C%=0.51:.p|
00000170  3f 43 25 3c 3e 32 35 35  70 3f 43 25 3d 30 3a 73  |?C%<>255p?C%=0:s|
00000180  3f 54 25 3d 43 25 3a 54  25 3d 54 25 2b 31 0d 00  |?T%=C%:T%=T%+1..|
00000190  fa 05 ed 0d 01 04 18 e3  52 25 3d 30 b8 33 3a e3  |........R%=0.3:.|
000001a0  44 25 3d 42 25 3f 52 25  b8 31 32 0d 01 0e 1a f5  |D%=B%?R%.12.....|
000001b0  45 25 3d b3 28 54 25 29  2d 31 3a fd 73 3f 45 25  |E%=.(T%)-1:.s?E%|
000001c0  3c 3e 32 35 35 0d 01 18  1f 4f 25 3f 28 52 25 2a  |<>255....O%?(R%*|
000001d0  31 33 2b 44 25 29 3d 73  3f 45 25 3a 73 3f 45 25  |13+D%)=s?E%:s?E%|
000001e0  3d 32 35 35 0d 01 22 09  ed 3a ed 3a e1 0d 01 2c  |=255.."..:.:...,|
000001f0  12 dd f2 64 65 61 6c 3a  ea 20 58 25 2c 59 25 0d  |...deal:. X%,Y%.|
00000200  01 36 10 64 3d 64 2b 31  3a f2 73 63 6f 72 65 0d  |.6.d=d+1:.score.|
00000210  01 40 18 e3 59 25 3d 30  b8 33 3a e3 58 25 3d 42  |.@..Y%=0.3:.X%=B|
00000220  25 3f 59 25 b8 31 32 0d  01 4a 16 f2 64 72 61 77  |%?Y%.12..J..draw|
00000230  28 58 25 2c 59 25 2b 31  29 3a ed 3a ed 0d 01 54  |(X%,Y%+1):.:...T|
00000240  05 e1 0d 01 5e 0a dd f2  6b 65 79 73 0d 01 68 07  |....^...keys..h.|
00000250  f5 20 f5 0d 01 72 16 4b  25 3d a7 22 31 32 33 34  |. ...r.K%=."1234|
00000260  20 22 2b bd 31 33 2c be  29 0d 01 7c 09 fd 4b 25  | "+.13,.)..|..K%|
00000270  3e 30 0d 01 86 1a f2 6d  65 73 73 28 32 30 2c 32  |>0.....mess(20,2|
00000280  30 2c 22 22 29 3a f2 73  63 6f 72 65 0d 01 90 13  |0,""):.score....|
00000290  e7 4b 25 3c 35 3a f2 73  77 61 70 28 4b 25 29 0d  |.K%<5:.swap(K%).|
000002a0  01 9a 11 e7 4b 25 3d 35  3a f2 72 65 64 65 61 6c  |....K%=5:.redeal|
000002b0  0d 01 a4 0a f2 73 63 6f  72 65 0d 01 ae 09 fd 4b  |.....score.....K|
000002c0  25 3e 35 0d 01 b8 05 e1  0d 01 c2 0c dd f2 72 65  |%>5...........re|
000002d0  64 65 61 6c 0d 01 cc 10  f2 68 6f 77 63 6f 6d 70  |deal.....howcomp|
000002e0  6c 65 74 65 0d 01 d6 10  ea 20 46 25 2c 52 25 3a  |lete..... F%,R%:|
000002f0  46 25 3d b9 0d 01 e0 1b  e3 52 25 3d 30 b8 33 3a  |F%=......R%=0.3:|
00000300  e7 42 25 3f 52 25 3c 3e  31 32 3a 46 25 3d a3 0d  |.B%?R%<>12:F%=..|
00000310  01 ea 05 ed 0d 01 f4 1b  e7 46 25 4b 25 3d 37 20  |.........F%K%=7 |
00000320  8b f2 73 68 75 66 66 6c  65 3a f2 64 65 61 6c 0d  |..shuffle:.deal.|
00000330  01 fe 05 e1 0d 02 08 0e  dd f2 73 77 61 70 28 4e  |..........swap(N|
00000340  25 29 0d 02 12 21 47 25  3d 6c 28 4e 25 2c 30 29  |%)...!G%=l(N%,0)|
00000350  3a 48 25 3d 6c 28 4e 25  2c 31 29 3a 56 25 3d 56  |:H%=l(N%,1):V%=V|
00000360  25 2b 31 0d 02 1c 18 e7  47 25 3d 30 f2 77 68 69  |%+1.....G%=0.whi|
00000370  63 68 74 77 6f 3a e5 8d  44 44 42 0d 02 26 16 46  |chtwo:..DDB..&.F|
00000380  25 3d 4f 25 3f 28 47 25  2d 31 2b 31 33 2a 48 25  |%=O%?(G%-1+13*H%|
00000390  29 0d 02 30 3e e7 46 25  83 31 33 3d 31 32 3a f2  |)..0>.F%.13=12:.|
000003a0  6d 65 73 73 28 33 2c 33  2c 22 59 6f 75 20 63 61  |mess(3,3,"You ca|
000003b0  6e 6e 6f 74 20 73 77 61  70 20 6e 65 78 74 20 74  |nnot swap next t|
000003c0  6f 20 61 20 4b 69 6e 67  2e 2e 2e 22 29 3a e1 0d  |o a King..."):..|
000003d0  02 3a 3e e7 46 25 83 31  33 3d 30 3a f2 6d 65 73  |.:>.F%.13=0:.mes|
000003e0  73 28 32 2c 33 2c 22 59  6f 75 20 63 61 6e 6e 6f  |s(2,3,"You canno|
000003f0  74 20 73 77 61 70 20 6e  65 78 74 20 74 6f 20 61  |t swap next to a|
00000400  20 53 70 61 63 65 2e 2e  2e 22 29 3a e1 0d 02 44  | Space..."):...D|
00000410  1b ea 58 25 2c 59 25 3a  e3 58 25 3d 30 b8 31 32  |..X%,Y%:.X%=0.12|
00000420  3a e3 59 25 3d 30 b8 33  0d 02 4e 2e e7 4f 25 3f  |:.Y%=0.3..N..O%?|
00000430  28 58 25 2b 31 33 2a 59  25 29 3d 46 25 2b 31 3a  |(X%+13*Y%)=F%+1:|
00000440  49 25 3d 58 25 3a 4a 25  3d 59 25 3a 58 25 3d 31  |I%=X%:J%=Y%:X%=1|
00000450  33 3a 59 25 3d 34 0d 02  58 0f ed 3a ed 3a 55 25  |3:Y%=4..X..:.:U%|
00000460  3d 55 25 2b 31 0d 02 62  41 43 25 3d 4f 25 3f 28  |=U%+1..bAC%=O%?(|
00000470  49 25 2b 31 33 2a 4a 25  29 3a 4f 25 3f 28 49 25  |I%+13*J%):O%?(I%|
00000480  2b 31 33 2a 4a 25 29 3d  4f 25 3f 28 47 25 2b 31  |+13*J%)=O%?(G%+1|
00000490  33 2a 48 25 29 3a 4f 25  3f 28 47 25 2b 31 33 2a  |3*H%):O%?(G%+13*|
000004a0  48 25 29 3d 43 25 0d 02  6c 21 f2 64 72 61 77 28  |H%)=C%..l!.draw(|
000004b0  47 25 2c 48 25 2b 31 29  3a f2 64 72 61 77 28 49  |G%,H%+1):.draw(I|
000004c0  25 2c 4a 25 2b 31 29 0d  02 76 05 e1 0d 02 80 0e  |%,J%+1)..v......|
000004d0  dd f2 77 68 69 63 68 74  77 6f 0d 02 8a 2c f2 6d  |..whichtwo...,.m|
000004e0  65 73 73 28 35 2c 30 2c  22 57 68 69 63 68 20 32  |ess(5,0,"Which 2|
000004f0  20 2e 2e 2e 3f 20 28 43  2f 44 2f 48 2f 53 29 20  | ...? (C/D/H/S) |
00000500  2e 2e 2e 20 22 29 0d 02  94 15 f5 4e 25 3d a7 73  |... ").....N%=.s|
00000510  24 2c bd 28 a5 80 26 44  46 29 29 0d 02 9e 18 fd  |$,.(..&DF)).....|
00000520  4e 25 3e 30 3a 46 25 3d  28 4e 25 2d 31 29 2a 31  |N%>0:F%=(N%-1)*1|
00000530  33 3a e1 0d 02 a8 11 dd  f2 68 6f 77 63 6f 6d 70  |3:.......howcomp|
00000540  6c 65 74 65 0d 02 b2 13  e3 52 25 3d 30 b8 33 3a  |lete.....R%=0.3:|
00000550  42 25 3f 52 25 3d 30 0d  02 bc 11 4e 25 3d 4f 25  |B%?R%=0....N%=O%|
00000560  3f 28 31 33 2a 52 25 29  0d 02 c6 12 e7 4e 25 83  |?(13*R%).....N%.|
00000570  31 33 3c 3e 31 8c 8d 64  78 42 0d 02 d0 14 42 25  |13<>1..dxB....B%|
00000580  3f 52 25 3d 31 3a 70 3f  4e 25 3d 32 35 35 0d 02  |?R%=1:p?N%=255..|
00000590  da 0c e3 44 25 3d 31 b8  31 31 0d 02 e4 37 e7 4f  |...D%=1.11...7.O|
000005a0  25 3f 28 31 33 2a 52 25  2b 44 25 29 3d 4e 25 2b  |%?(13*R%+D%)=N%+|
000005b0  44 25 3a 70 3f 28 4e 25  2b 44 25 29 3d 32 35 35  |D%:p?(N%+D%)=255|
000005c0  3a 42 25 3f 52 25 3d 44  25 2b 31 8b 44 25 3d 31  |:B%?R%=D%+1.D%=1|
000005d0  33 0d 02 ee 05 ed 0d 02  f8 05 ed 0d 03 02 0a f2  |3...............|
000005e0  73 63 6f 72 65 0d 03 0c  05 e1 0d 03 e8 0e dd f2  |score...........|
000005f0  73 75 69 74 28 53 25 29  0d 03 f2 1b ee 53 25 e5  |suit(S%).....S%.|
00000600  8d 64 7c 43 2c 8d 54 6e  44 2c 8d 44 60 44 2c 8d  |.d|C,.TnD,.D`D,.|
00000610  74 52 44 0d 03 fc 22 ef  32 33 2c 31 32 38 2c 30  |tRD...".23,128,0|
00000620  2c 31 2c 37 2c 31 35 2c  31 35 2c 35 35 2c 31 32  |,1,7,15,15,55,12|
00000630  33 2c 31 32 35 0d 04 06  27 ef 32 33 2c 31 32 39  |3,125...'.23,129|
00000640  2c 30 2c 30 2c 31 39 32  2c 32 32 34 2c 32 32 34  |,0,0,192,224,224|
00000650  2c 32 31 36 2c 31 38 38  2c 31 32 34 0d 04 10 22  |,216,188,124..."|
00000660  ef 32 33 2c 31 33 30 2c  32 35 35 2c 31 32 35 2c  |.23,130,255,125,|
00000670  31 32 31 2c 35 31 2c 33  2c 33 2c 37 2c 30 0d 04  |121,51,3,3,7,0..|
00000680  1a 28 ef 32 33 2c 31 33  31 2c 32 35 34 2c 31 32  |.(.23,131,254,12|
00000690  34 2c 36 30 2c 31 35 32  2c 31 32 38 2c 31 32 38  |4,60,152,128,128|
000006a0  2c 31 39 32 2c 30 0d 04  24 05 e1 0d 04 2e 20 ef  |,192,0..$..... .|
000006b0  32 33 2c 31 32 38 2c 30  2c 31 2c 33 2c 37 2c 31  |23,128,0,1,3,7,1|
000006c0  35 2c 33 31 2c 36 33 2c  31 32 37 0d 04 38 27 ef  |5,31,63,127..8'.|
000006d0  32 33 2c 31 32 39 2c 30  2c 30 2c 31 32 38 2c 31  |23,129,0,0,128,1|
000006e0  39 32 2c 32 32 34 2c 32  34 30 2c 32 34 38 2c 32  |92,224,240,248,2|
000006f0  35 32 0d 04 42 1e ef 32  33 2c 31 33 30 2c 36 33  |52..B..23,130,63|
00000700  2c 33 31 2c 31 35 2c 37  2c 33 2c 31 2c 30 2c 30  |,31,15,7,3,1,0,0|
00000710  0d 04 4c 25 ef 32 33 2c  31 33 31 2c 32 34 38 2c  |..L%.23,131,248,|
00000720  32 34 30 2c 32 32 34 2c  31 39 32 2c 31 32 38 2c  |240,224,192,128,|
00000730  30 2c 30 2c 30 0d 04 56  05 e1 0d 04 60 27 ef 32  |0,0,0..V....`'.2|
00000740  33 2c 31 32 38 2c 30 2c  32 34 2c 36 30 2c 31 32  |3,128,0,24,60,12|
00000750  36 2c 31 32 37 2c 32 35  35 2c 31 32 37 2c 31 32  |6,127,255,127,12|
00000760  37 0d 04 6a 28 ef 32 33  2c 31 32 39 2c 30 2c 34  |7..j(.23,129,0,4|
00000770  38 2c 31 32 30 2c 32 35  32 2c 32 35 32 2c 32 35  |8,120,252,252,25|
00000780  34 2c 32 35 32 2c 32 35  32 0d 04 74 20 ef 32 33  |4,252,252..t .23|
00000790  2c 31 33 30 2c 36 33 2c  36 33 2c 33 31 2c 33 31  |,130,63,63,31,31|
000007a0  2c 31 35 2c 37 2c 31 2c  30 0d 04 7e 27 ef 32 33  |,15,7,1,0..~'.23|
000007b0  2c 31 33 31 2c 32 34 38  2c 32 34 38 2c 32 34 30  |,131,248,248,240|
000007c0  2c 32 34 30 2c 32 32 34  2c 31 39 32 2c 30 2c 30  |,240,224,192,0,0|
000007d0  0d 04 88 05 e1 0d 04 92  1f ef 32 33 2c 31 32 38  |..........23,128|
000007e0  2c 30 2c 31 2c 33 2c 37  2c 31 35 2c 33 31 2c 36  |,0,1,3,7,15,31,6|
000007f0  33 2c 36 33 0d 04 9c 27  ef 32 33 2c 31 32 39 2c  |3,63...'.23,129,|
00000800  30 2c 30 2c 31 32 38 2c  31 39 32 2c 32 32 34 2c  |0,0,128,192,224,|
00000810  32 34 30 2c 32 34 38 2c  32 34 38 0d 04 a6 1e ef  |240,248,248.....|
00000820  32 33 2c 31 33 30 2c 36  33 2c 36 31 2c 32 35 2c  |23,130,63,61,25,|
00000830  33 2c 33 2c 33 2c 37 2c  30 0d 04 b0 28 ef 32 33  |3,3,3,7,0...(.23|
00000840  2c 31 33 31 2c 32 34 38  2c 31 32 30 2c 34 38 2c  |,131,248,120,48,|
00000850  31 32 38 2c 31 32 38 2c  31 32 38 2c 31 39 32 2c  |128,128,128,192,|
00000860  30 0d 04 ba 05 e1 0d 04  c4 0b dd f2 63 68 61 72  |0...........char|
00000870  73 0d 04 ce 1b ef 32 33  2c 31 33 36 2c 30 2c 30  |s.....23,136,0,0|
00000880  2c 30 2c 30 2c 30 2c 33  2c 36 2c 34 0d 04 d8 1d  |,0,0,0,3,6,4....|
00000890  ef 32 33 2c 31 33 37 2c  30 2c 30 2c 30 2c 30 2c  |.23,137,0,0,0,0,|
000008a0  30 2c 32 35 35 2c 30 2c  30 0d 04 e2 1f ef 32 33  |0,255,0,0.....23|
000008b0  2c 31 33 38 2c 30 2c 30  2c 30 2c 30 2c 30 2c 31  |,138,0,0,0,0,0,1|
000008c0  39 32 2c 39 36 2c 33 32  0d 04 ec 1b ef 32 33 2c  |92,96,32.....23,|
000008d0  31 33 39 2c 34 2c 36 2c  33 2c 30 2c 30 2c 30 2c  |139,4,6,3,0,0,0,|
000008e0  30 2c 30 0d 04 f6 1d ef  32 33 2c 31 34 30 2c 30  |0,0.....23,140,0|
000008f0  2c 30 2c 32 35 35 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,255,0,0,0,0,0|
00000900  0d 05 00 1f ef 32 33 2c  31 34 31 2c 33 32 2c 39  |.....23,141,32,9|
00000910  36 2c 31 39 32 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |6,192,0,0,0,0,0.|
00000920  05 0a 1b ef 32 33 2c 31  34 32 2c 34 2c 34 2c 34  |....23,142,4,4,4|
00000930  2c 34 2c 34 2c 34 2c 34  2c 34 0d 05 14 23 ef 32  |,4,4,4,4,4...#.2|
00000940  33 2c 31 34 33 2c 33 32  2c 33 32 2c 33 32 2c 33  |3,143,32,32,32,3|
00000950  32 2c 33 32 2c 33 32 2c  33 32 2c 33 32 0d 05 1e  |2,32,32,32,32...|
00000960  1b ef 32 33 2c 31 34 34  2c 30 2c 30 2c 30 2c 30  |..23,144,0,0,0,0|
00000970  2c 30 2c 30 2c 31 2c 33  0d 05 28 1f ef 32 33 2c  |,0,0,1,3..(..23,|
00000980  31 34 35 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |145,0,0,0,0,0,0,|
00000990  32 35 35 2c 32 35 35 0d  05 32 1f ef 32 33 2c 31  |255,255..2..23,1|
000009a0  34 36 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 31  |46,0,0,0,0,0,0,1|
000009b0  32 38 2c 31 39 32 0d 05  3c 1b ef 32 33 2c 31 34  |28,192..<..23,14|
000009c0  37 2c 33 2c 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |7,3,1,0,0,0,0,0,|
000009d0  30 0d 05 46 1f ef 32 33  2c 31 34 38 2c 32 35 35  |0..F..23,148,255|
000009e0  2c 32 35 35 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,255,0,0,0,0,0,0|
000009f0  0d 05 50 1f ef 32 33 2c  31 34 39 2c 31 39 32 2c  |..P..23,149,192,|
00000a00  31 32 38 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 0d  |128,0,0,0,0,0,0.|
00000a10  05 5a 1b ef 32 33 2c 31  35 30 2c 33 2c 33 2c 33  |.Z..23,150,3,3,3|
00000a20  2c 33 2c 33 2c 33 2c 33  2c 33 0d 05 64 2b ef 32  |,3,3,3,3,3..d+.2|
00000a30  33 2c 31 35 31 2c 31 39  32 2c 31 39 32 2c 31 39  |3,151,192,192,19|
00000a40  32 2c 31 39 32 2c 31 39  32 2c 31 39 32 2c 31 39  |2,192,192,192,19|
00000a50  32 2c 31 39 32 0d 05 6e  2b ef 32 33 2c 31 35 39  |2,192..n+.23,159|
00000a60  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,255,255,255,255|
*
00000a80  0d 05 78 05 e1 0d 05 82  0c dd f2 73 63 72 65 65  |..x........scree|
00000a90  6e 0d 05 8c 37 ef 32 33  3b 38 32 30 32 3b 30 3b  |n...7.23;8202;0;|
00000aa0  30 3b 30 3b 31 39 2c 30  2c 32 3b 30 3b 31 39 2c  |0;0;19,0,2;0;19,|
00000ab0  31 2c 31 3b 30 3b 31 39  2c 32 2c 30 3b 30 3b 31  |1,1;0;19,2,0;0;1|
00000ac0  39 2c 33 2c 37 3b 30 3b  0d 05 96 23 ec 30 2c 31  |9,3,7;0;...#.0,1|
00000ad0  30 32 34 3a f1 62 24 3a  ec 30 2c 31 30 32 34 3a  |024:.b$:.0,1024:|
00000ae0  e6 30 2c 33 3a f1 69 24  3b bd 34 0d 05 a0 1f ef  |.0,3:.i$;.4.....|
00000af0  33 31 2c 31 2c 31 3a fb  31 33 31 3a fb 31 3a f2  |31,1,1:.131:.1:.|
00000b00  65 78 70 61 6e 64 28 37  39 29 0d 05 aa 17 ef 33  |expand(79).....3|
00000b10  31 2c 31 2c 33 3a f2 65  78 70 61 6e 64 28 38 30  |1,1,3:.expand(80|
00000b20  29 0d 05 b4 1f ef 33 31  2c 34 2c 31 3a f2 62 6f  |).....31,4,1:.bo|
00000b30  78 65 73 28 22 52 54 48  4f 47 4f 4e 41 4c 22 29  |xes("RTHOGONAL")|
00000b40  0d 05 be 1d ef 33 31 2c  34 2c 33 3a f2 62 6f 78  |.....31,4,3:.box|
00000b50  65 73 28 22 41 54 49 45  4e 43 45 22 29 0d 05 c8  |es("ATIENCE")...|
00000b60  32 f1 8a 31 2c 37 29 22  50 72 65 73 73 20 53 70  |2..1,7)"Press Sp|
00000b70  61 63 65 20 74 6f 20 72  65 2d 64 65 61 6c 2c 20  |ace to re-deal, |
00000b80  52 65 74 75 72 6e 20 74  6f 20 72 75 6e 2e 22 0d  |Return to run.".|
00000b90  05 d2 24 fb 31 32 38 3a  fb 32 3a f1 8a 32 34 2c  |..$.128:.2:..24,|
00000ba0  31 29 22 42 79 20 47 79  6c 65 73 20 48 61 72 76  |1)"By Gyles Harv|
00000bb0  65 79 22 0d 05 dc 35 fb  33 3a f1 8a 32 30 2c 33  |ey"...5.3:..20,3|
00000bc0  29 22 64 65 61 6c 73 20  3a 22 8a 32 30 2c 34 29  |)"deals :".20,4)|
00000bd0  22 63 61 72 64 73 20 3a  22 8a 32 30 2c 35 29 22  |"cards :".20,5)"|
00000be0  74 75 72 6e 73 20 3a 22  0d 05 e6 09 f2 67 72 69  |turns :".....gri|
00000bf0  64 0d 05 f0 05 e1 0d 05  fa 0f dd f2 62 6f 78 65  |d...........boxe|
00000c00  73 28 74 24 29 0d 06 04  11 ea 58 25 3a e3 58 25  |s(t$).....X%:.X%|
00000c10  3d 31 b8 a9 74 24 0d 06  0e 12 ef 97 c1 74 24 2c  |=1..t$.......t$,|
00000c20  58 25 29 39 3a ed 3a e1  0d 06 18 14 dd f2 63 61  |X%)9:.:.......ca|
00000c30  72 64 28 50 25 2c 52 25  2c 44 25 29 0d 06 22 09  |rd(P%,R%,D%)..".|
00000c40  e6 30 2c 44 25 0d 06 2c  15 ef 33 31 2c 50 25 2a  |.0,D%..,..31,P%*|
00000c50  33 2b 31 2c 52 25 2a 36  2b 33 0d 06 36 17 ec 50  |3+1,R%*6+3..6..P|
00000c60  25 2a 39 36 2c 28 33 30  2d 52 25 2a 36 29 2a 33  |%*96,(30-R%*6)*3|
00000c70  32 0d 06 40 0b f1 69 24  3b bd 34 3b 0d 06 4a 05  |2..@..i$;.4;..J.|
00000c80  e1 0d 06 54 11 dd f2 67  72 69 64 3a ea 58 25 2c  |...T...grid:.X%,|
00000c90  59 25 0d 06 5e 14 e3 58  25 3d 30 b8 31 32 3a e3  |Y%..^..X%=0.12:.|
00000ca0  59 25 3d 31 b8 34 0d 06  68 17 ec 58 25 2a 39 36  |Y%=1.4..h..X%*96|
00000cb0  2c 28 33 30 2d 59 25 2a  36 29 2a 33 32 0d 06 72  |,(30-Y%*6)*32..r|
00000cc0  10 f1 62 24 bd 34 3b 3a  ed 3a ed 3a e1 0d 06 7c  |..b$.4;:.:.:...||
00000cd0  11 dd f2 64 72 61 77 28  50 25 2c 52 25 29 0d 06  |...draw(P%,R%)..|
00000ce0  86 18 45 25 3d 4f 25 3f  28 50 25 2b 31 33 2a 28  |..E%=O%?(P%+13*(|
00000cf0  52 25 2d 31 29 29 0d 06  90 0e 53 25 3d 45 25 81  |R%-1))....S%=E%.|
00000d00  31 33 2b 31 0d 06 9a 0e  45 25 3d 45 25 83 31 33  |13+1....E%=E%.13|
00000d10  2b 31 0d 06 a4 0e e7 45  25 3d 31 8c 8d 64 6a 46  |+1.....E%=1..djF|
00000d20  0d 06 ae 12 f2 63 61 72  64 28 50 25 2c 52 25 2c  |.....card(P%,R%,|
00000d30  33 29 0d 06 b8 0d f2 73  75 69 74 28 53 25 29 0d  |3).....suit(S%).|
00000d40  06 c2 18 fb 31 33 31 3a  e7 53 25 3d 31 84 53 25  |....131:.S%=1.S%|
00000d50  3d 34 fb 32 8b fb 31 0d  06 cc 33 ef 33 31 2c 50  |=4.2..1...3.31,P|
00000d60  25 2a 33 2b 31 2c 52 25  2a 36 2b 33 2c 31 32 38  |%*3+1,R%*6+3,128|
00000d70  2c 31 32 39 2c 38 2c 38  2c 31 30 2c 31 33 30 2c  |,129,8,8,10,130,|
00000d80  31 33 31 2c 38 2c 38 2c  31 30 0d 06 d6 15 f2 65  |131,8,8,10.....e|
00000d90  78 70 61 6e 64 28 97 c1  6e 24 2c 45 25 29 29 0d  |xpand(..n$,E%)).|
00000da0  06 e0 05 e1 0d 06 ea 12  f2 63 61 72 64 28 50 25  |.........card(P%|
00000db0  2c 52 25 2c 30 29 0d 06  f4 0b fb 31 32 38 3a fb  |,R%,0).....128:.|
00000dc0  33 0d 06 fe 15 ef 33 31  2c 50 25 2a 33 2b 31 2c  |3.....31,P%*3+1,|
00000dd0  52 25 2a 36 2b 34 0d 07  08 12 f2 65 78 70 61 6e  |R%*6+4.....expan|
00000de0  64 28 34 38 2b 53 25 29  0d 07 12 1b 6c 28 53 25  |d(48+S%)....l(S%|
00000df0  2c 30 29 3d 50 25 3a 6c  28 53 25 2c 31 29 3d 52  |,0)=P%:l(S%,1)=R|
00000e00  25 2d 31 0d 07 1c 05 e1  0d 07 26 0f dd a4 61 28  |%-1.......&...a(|
00000e10  43 25 29 3a ea 54 25 0d  07 30 14 e7 43 25 80 31  |C%):.T%..0..C%.1|
00000e20  32 38 54 25 3d 54 25 2b  31 39 32 0d 07 3a 12 e7  |28T%=T%+192..:..|
00000e30  43 25 80 36 34 54 25 3d  54 25 2b 34 38 0d 07 44  |C%.64T%=T%+48..D|
00000e40  12 e7 43 25 80 33 32 54  25 3d 54 25 2b 31 32 0d  |..C%.32T%=T%+12.|
00000e50  07 4e 11 e7 43 25 80 31  36 54 25 3d 54 25 2b 33  |.N..C%.16T%=T%+3|
00000e60  0d 07 58 07 3d 54 25 0d  07 62 0f dd a4 62 28 43  |..X.=T%..b...b(C|
00000e70  25 29 3a ea 54 25 0d 07  6c 12 e7 43 25 80 38 54  |%):.T%..l..C%.8T|
00000e80  25 3d 54 25 2b 31 39 32  0d 07 76 11 e7 43 25 80  |%=T%+192..v..C%.|
00000e90  34 54 25 3d 54 25 2b 34  38 0d 07 80 11 e7 43 25  |4T%=T%+48.....C%|
00000ea0  80 32 54 25 3d 54 25 2b  31 32 0d 07 8a 10 e7 43  |.2T%=T%+12.....C|
00000eb0  25 80 31 54 25 3d 54 25  2b 33 0d 07 94 07 3d 54  |%.1T%=T%+3....=T|
00000ec0  25 0d 07 9e 11 dd f2 65  78 70 61 6e 64 28 21 4d  |%......expand(!M|
00000ed0  25 29 0d 07 a8 16 ea 41  25 2c 4c 25 2c 58 25 2c  |%).....A%,L%,X%,|
00000ee0  59 25 3a 41 25 3d 31 30  0d 07 b2 1a 58 25 3d 4d  |Y%:A%=10....X%=M|
00000ef0  25 3a 59 25 3d 4d 25 81  32 35 36 3a d6 26 46 46  |%:Y%=M%.256:.&FF|
00000f00  46 31 0d 07 bc 13 ef 32  33 2c 31 33 32 3a e3 4c  |F1.....23,132:.L|
00000f10  25 3d 31 b8 34 0d 07 c6  18 41 25 3d a4 61 28 4d  |%=1.4....A%=.a(M|
00000f20  25 3f 4c 25 29 3a ef 41  25 41 25 3a ed 0d 07 d0  |%?L%):.A%A%:....|
00000f30  13 ef 32 33 2c 31 33 33  3a e3 4c 25 3d 31 b8 34  |..23,133:.L%=1.4|
00000f40  0d 07 da 18 41 25 3d a4  62 28 4d 25 3f 4c 25 29  |....A%=.b(M%?L%)|
00000f50  3a ef 41 25 41 25 3a ed  0d 07 e4 13 ef 32 33 2c  |:.A%A%:......23,|
00000f60  31 33 34 3a e3 4c 25 3d  35 b8 38 0d 07 ee 18 41  |134:.L%=5.8....A|
00000f70  25 3d a4 61 28 4d 25 3f  4c 25 29 3a ef 41 25 41  |%=.a(M%?L%):.A%A|
00000f80  25 3a ed 0d 07 f8 13 ef  32 33 2c 31 33 35 3a e3  |%:......23,135:.|
00000f90  4c 25 3d 35 b8 38 0d 08  02 18 41 25 3d a4 62 28  |L%=5.8....A%=.b(|
00000fa0  4d 25 3f 4c 25 29 3a ef  41 25 41 25 3a ed 0d 08  |M%?L%):.A%A%:...|
00000fb0  0c 1b ef 31 33 32 2c 31  33 33 2c 38 2c 38 2c 31  |...132,133,8,8,1|
00000fc0  30 2c 31 33 34 2c 31 33  35 0d 08 16 05 e1 0d 08  |0,134,135.......|
00000fd0  20 0b dd f2 73 63 6f 72  65 0d 08 2a 1d fb 33 3a  | ...score..*..3:|
00000fe0  fb 31 32 38 3a f1 8a 32  38 2c 33 29 3b 64 3b 8a  |.128:..28,3);d;.|
00000ff0  32 38 2c 34 29 3b 0d 08  34 18 e3 4c 25 3d 30 b8  |28,4);..4..L%=0.|
00001000  33 3a f1 3b 42 25 3f 4c  25 89 31 3b 3a ed 0d 08  |3:.;B%?L%.1;:...|
00001010  3e 15 f1 8a 32 38 2c 35  29 3b 55 25 3b 22 20 22  |>...28,5);U%;" "|
00001020  3b 56 25 0d 08 48 05 e1  0d 08 52 20 dd f2 6d 65  |;V%..H....R ..me|
00001030  73 73 28 62 65 66 6f 72  65 2c 61 66 74 65 72 2c  |ss(before,after,|
00001040  73 74 72 69 6e 67 24 29  0d 08 5c 2b fb 31 32 38  |string$)..\+.128|
00001050  3a fb 33 3a f1 8a 30 2c  36 29 89 28 62 65 66 6f  |:.3:..0,6).(befo|
00001060  72 65 29 73 74 72 69 6e  67 24 89 28 61 66 74 65  |re)string$.(afte|
00001070  72 29 3b 0d 08 66 05 e1  0d 08 70 0e dd f2 63 6f  |r);..f....p...co|
00001080  6d 70 75 74 65 72 0d 08  7a 0a f2 63 68 61 72 73  |mputer..z..chars|
00001090  0d 08 84 0c 53 25 3d b3  28 2d 91 29 0d 08 8e 64  |....S%=.(-.)...d|
000010a0  62 24 3d bd 35 2b bd 31  38 2b bd 30 2b bd 32 2b  |b$=.5+.18+.0+.2+|
000010b0  bd 31 33 36 2b bd 31 33  37 2b bd 31 33 37 2b bd  |.136+.137+.137+.|
000010c0  31 33 38 2b c4 34 2c c4  34 2c bd 38 29 2b bd 31  |138+.4,.4,.8)+.1|
000010d0  30 2b bd 31 34 32 2b 22  20 20 22 2b bd 31 34 33  |0+.142+"  "+.143|
000010e0  29 2b c4 34 2c bd 38 29  2b bd 31 30 2b bd 31 33  |)+.4,.8)+.10+.13|
000010f0  39 2b bd 31 34 30 2b bd  31 34 30 2b bd 31 34 31  |9+.140+.140+.141|
00001100  0d 08 98 5f 69 24 3d bd  35 2b bd 31 34 34 2b bd  |..._i$=.5+.144+.|
00001110  31 34 35 2b bd 31 34 35  2b bd 31 34 36 2b c4 34  |145+.145+.146+.4|
00001120  2c c4 34 2c bd 38 29 2b  bd 31 30 2b bd 31 35 30  |,.4,.8)+.10+.150|
00001130  2b bd 31 35 39 2b bd 31  35 39 2b bd 31 35 31 29  |+.159+.159+.151)|
00001140  2b c4 34 2c bd 38 29 2b  bd 31 30 2b bd 31 34 37  |+.4,.8)+.10+.147|
00001150  2b bd 31 34 38 2b bd 31  34 38 2b bd 31 34 39 0d  |+.148+.148+.149.|
00001160  08 a2 05 e1 0d ff                                 |......|
00001166