� >Scorpion Patience
� by Michael Leete
� (c) The Micro User
(!� With mods by Richard Dimond
2:
<� �<&8000 � �>&1100 � �dJH
F � � � �=17 � � �:�" at ";�:�
PZ=�(-�)
Z�0,128:�
d�1:� b$(7),c%(7)
n�23,1,0;0;0;0;0;19,0,4;0;
x�d
�A�0,6)"Enter Deal No."''"or press RETURN"'"for a random deal"
�
�15,6)M%
��M%=0 M%=�(�(-�))
�%k$="":v$="#A23456789"+�229+"JQK0"
��p$="2H2S2D2C3H3S3D3C4H4S4D4C5H5S5D5C6H6S6D6C7H7S7D7C8H8S8D8C9H9S9D9C"+�229+"H"+�229+"S"+�229+"D"+�229+"CJHJSJDJCQHQSQDQCKHKSKDKCAHASADAC"
�z$=�(228)+�(228)+�(228)
��1:A%=�(-M%)
�%�23;8202;0;0;0;19,2,4;0;19,3,7;0;
�	�init
��0,130:�130:�
��d:�s:�tableau
��3:�21,31)"Deal No. ";M%;
��:�0

�16,29)�4

� A$=�:� �"1234567D",A$)<>0

K� A$="D" �Deal:� �DTA:� �16,29)"from ";A$:f%=�(A$):�23,29)"to ":*FX21

"� B$=�:� �"1234567",B$)<>0

,�26,29)B$:t%=�(B$):*FX21

6� A$=B$ p%=0

@A%=�m(f%,t%)

J� �A% �e � �tck

T�21,29)�(10):�end:� I%

^5�1:�7,27)"Congratulations - You win.":�28)�(32)

h�1,30)�(12)

r6� X=1 � 10:�1,-5-X,110+X,1:�1,-5-X,130+X,1:�:*FX21

|�12,30)"Play again? (Y/N)"

�+� A=�:� A=78�A=89:� A=89 � � �"SPcheck"

�:

���f(C%):R%=0

�y%=�(b$(C%))

�r�y%=0 �31,5*C%-4,y%/2+4:�3:�31,5*C%-4,y%/2+5:�3:�31,5*C%-4,y%/2+6:�3:�31,5*C%-4,y%/2+7:�3:�:�c$=�b$(C%),2)

�� y%>40 C%=8:y%=y%-38

��"HD",�c$,1))�1��0

��131

և�"H",�c$,1)) � c$=�c$,1)+" "+�224 � � �"D",�c$,1)) � c$=�c$,1)+" "+�226 � � �"S",�c$,1)) � c$=�c$,1)+" "+�225 � c$=�c$,1)+" "+�227

��31,C%*5-4,y%/2+3:�c$

��31,C%*5-4,y%/2+4:�3

��31,C%*5-4,y%/2+5:�3

�$t$=�c$,1):c$=c$+" "+t$:c$=�c$,3)
�31,C%*5-4,y%/2+6:�c$
	�card
�130
&�31,5*C%-4,y%/2+7:�3
0�31,5*C%-4,y%/2+8:�3
:� S%=1 � 7
Dy%=�(b$(S%))
N� y%<41 R%=R%+1
X�
b"� R%=7 � T%=3 � 8:�35,T%)�4:�
l�
v:
�ݤm(s%,d%)
�l$=�b$(d%),2):�l$=""l$="0"
�flag%=0
�n$=�v$,�v$,�l$,1))-1,1)
�
o$=�l$,1)
�
g$=b$(s%)
�p%=1:� s%<5 p%=c%(s%)*2-1
�� p%>�(g$)-1:=�
��J%=p%� �(g$) �2
�x$=�g$,J%,1):y$=�g$,J%+1,1)
�� n$="K" o$=y$
�"�(x$=n$�y$=o$) �p%=J%:J%=�(g$)
��
(� x$="K" �king:� flag%:p%=p%+2:�dFB
L�p%<1�=0�c$=�b$(s%),p%,2):�c$,n$)=0�=0 � � �T �=0�q$=�g$,p%,�(g$)-p%+1)
E�X%=1��(q$)�2:b$(d%)=b$(d%)+�q$,X%,2):b$(s%)=�b$(s%),�(b$(s%))-2)
 �f(d%):�f(s%)
*�
4,� �(b$(s%))=c%(s%)*2-2 � c%(s%)=c%(s%)-1
>� c%(s%)<0 c%(s%)=0
H=�
R:
\��e
f*�1,-7,9,3:�1:�14,30)"Move disallowed"
pn=�:� � �>n+120
z�130:�14,30)�(15)
��
�:
���king:� 1
�� n$<>"K" �
��14,30)n$+y$;"? Y/N":�7
�� A=�:� A=78 � A=89
�� A=78 flag%=1:� flag%=0
�� 0
��14,30)�(9)
��
�:
�ݤT
�
d$=�l$,1)

e$=�c$,1)
� b$(d%)="" � =0
� d$<>e$ �=� �=0
$:
.
��Deal
8� f$="" �e:�
B�1,30)"or ESCAPE"
L� I%=1 � 3
Vb$(I%)=b$(I%)+�f$,2*I%-1,2)
`�f(I%):�tck
j
�:f$="":�
t:
~��end:I%=0
�� J%=1 � 7
�K%=�(b$(J%))
�� K%=26 I%=I%+1
��
�� I%<>4 I%=0:�
�I%=0:p$=�v$,2,13)
�� J%=1 � 7
�K%=�(b$(J%))
�� K%=0 � �TrE
�M$=�b$(J%),1)
�� L%=23 � 1 �-2
�N$=�b$(J%),L%+1,1)
� N$<>M$ I%=1

M%=�p$,(�b$(J%),L%,1)))
N%=�p$,(�b$(J%),L%+2,1)))
� M%-N%<>1 � I%=1
(�
2�
<� I% � I%=0:� � I%=1:�
F:
P$��tck:�0,-5,5,1:� Z%=1 � 600:�:�
Z:
d
��tableau
n<�5:�54,960:�0,3:�"1    2    3    4    5    6    7   ctn"
x�4
�(�r%=7�1 �-1:�C%=1�7:�31,C%*5-4,11-r%
�*b$(C%)=b$(C%)+�f$,2):f$=�f$,(�(f$)-2))
�2� c%(C%) �1:�131:�y$:� X=1�200:�:� �130:�f(C%)
�<�1:�131:� C%<5 � r%>3 � r%<7 �31,C%*5-4,11-r%-1:�z$:�130
�'c%(C%)=c%(C%)-1:� c%(C%)<1 c%(C%)=0
��tck
��
��
�� I%=1 � 4
�c%(I%)=4
��
��0:�130
��31,1,29:�"Make your move"
�31,1,30:�"or Deal"
�
:
"��s
,f$="":D%=52
6�I%=1�52
@A%=�(�(1)*D%+1)
Jf$=f$+�p$,2*A%-1,2)
TL$=�p$,(A%-1)*2)
^R$=�p$,(�(p$)/2-A%)*2)
hp$=L$+R$
rD%=D%-1
|�
�	p$=f$
��
�:
�
��init
��I%=1�7
�b$(I%)=�52,"  ")
�
b$(I%)=""
�c%(I%)=0
��
�� I%=1 � 4
�c%(I%)=3
��
�U%=0
p%=1:c$="  "
z$=�(230)+�(231)+�(232)
*FX212,216
&iy$=�230+�231+�232+�10+�8+�8+�8+�237+�238+�233+�10+�8+�8+�8+�237+�228+�233+�10+�8+�8+�8+�236+�235+�234
0�
::
D��d
N�0,3
X�5:�392,1000
b�"SCORPION PATIENCE"
l�5
v�
�
��card
�,�t$=�229 �31,5*C%-3,y%/2+3:�five:�five:�
�;�t$="9" �31,5*C%-3,y%/2+3:�;�240;�8;�10;:�five:�;�240:�
�+�t$="8" �31,5*C%-3,y%/2+3:�four:�four:�
�4�t$="7" �31,5*C%-3,y%/2+3:�;�241;�8;�10;:�four:�
�4�t$="6" �31,5*C%-3,y%/2+3:�;�240;�8;�10;:�four:�
�%�t$="5" �31,5*C%-3,y%/2+4:�five:�
�%�t$="4" �31,5*C%-3,y%/2+4:�four:�
�>�t$="3" �31,5*C%-3,y%/2+3:�;�239;�8;�10;�239;�8;�10;�239:�
�=�t$="2" �31,5*C%-3,y%/2+3:�;�239;�8;�10;�32;�8;�10;�239:�
�'�t$="A" �31,5*C%-3,y%/2+4:�c$,1):�
R5�t$="J" C$=�242 ��t$="Q" C$=�243 ��t$="K" C$=�244
\S�t$="J" D$=�248+�249+�252 ��t$="Q" D$=�248+�250+�252 ��t$="K" D$=�248+�251+�252
f�31,5*C%-3,y%/2+3:�C$
p%�31,5*C%-4,y%/2+4:�245+�246+�247
z�0,0:�31,5*C%-4,y%/2+5:�D$
��31,5*C%-3,y%/2+6:�253:�
�
��four
��;�240;�8;�10;�240;�8;�10;
��
�
��five
��;�241;�8;�10;�240;�8;�10;
��
��0:� Downloader
�\*K.0 *T.|MI%=PAGE-&1100:FORJ%=PAGE TO TOP STEP4:!(J%-I%)=!J%:NEXT:PAGE=&1100|MOLD|MRUN|M
�*FX138,0,128
�

00000000  0d 00 0a 18 f4 20 3e 53  63 6f 72 70 69 6f 6e 20  |..... >Scorpion |
00000010  50 61 74 69 65 6e 63 65  0d 00 14 16 f4 20 62 79  |Patience..... by|
00000020  20 4d 69 63 68 61 65 6c  20 4c 65 65 74 65 0d 00  | Michael Leete..|
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 21 f4 20 57 69 74 68  |o User..(!. With|
00000050  20 6d 6f 64 73 20 62 79  20 52 69 63 68 61 72 64  | mods by Richard|
00000060  20 44 69 6d 6f 6e 64 0d  00 32 05 3a 0d 00 3c 1f  | Dimond..2.:..<.|
00000070  e7 20 90 3c 26 38 30 30  30 20 e7 20 90 3e 26 31  |. .<&8000 . .>&1|
00000080  31 30 30 20 8c 20 e5 8d  64 4a 48 0d 00 46 20 ee  |100 . ..dJH..F .|
00000090  20 85 20 e7 20 9f 3d 31  37 20 f9 20 8b 20 f6 3a  | . . .=17 . . .:|
000000a0  f1 22 20 61 74 20 22 3b  9e 3a e0 0d 00 50 0b 5a  |." at ";.:...P.Z|
000000b0  3d b3 28 2d 91 29 0d 00  5a 0c e6 30 2c 31 32 38  |=.(-.)..Z..0,128|
000000c0  3a db 0d 00 64 14 eb 31  3a de 20 62 24 28 37 29  |:...d..1:. b$(7)|
000000d0  2c 63 25 28 37 29 0d 00  6e 1d ef 32 33 2c 31 2c  |,c%(7)..n..23,1,|
000000e0  30 3b 30 3b 30 3b 30 3b  30 3b 31 39 2c 30 2c 34  |0;0;0;0;0;19,0,4|
000000f0  3b 30 3b 0d 00 78 06 f2  64 0d 00 82 41 f1 8a 30  |;0;..x..d...A..0|
00000100  2c 36 29 22 45 6e 74 65  72 20 44 65 61 6c 20 4e  |,6)"Enter Deal N|
00000110  6f 2e 22 27 27 22 6f 72  20 70 72 65 73 73 20 52  |o."''"or press R|
00000120  45 54 55 52 4e 22 27 22  66 6f 72 20 61 20 72 61  |ETURN"'"for a ra|
00000130  6e 64 6f 6d 20 64 65 61  6c 22 0d 00 8c 0d e8 8a  |ndom deal"......|
00000140  31 35 2c 36 29 4d 25 0d  00 96 15 e7 4d 25 3d 30  |15,6)M%.....M%=0|
00000150  20 4d 25 3d 94 28 b3 28  2d 91 29 29 0d 00 a0 25  | M%=.(.(-.))...%|
00000160  6b 24 3d 22 22 3a 76 24  3d 22 23 41 32 33 34 35  |k$="":v$="#A2345|
00000170  36 37 38 39 22 2b bd 32  32 39 2b 22 4a 51 4b 30  |6789"+.229+"JQK0|
00000180  22 0d 00 aa 8d 70 24 3d  22 32 48 32 53 32 44 32  |"....p$="2H2S2D2|
00000190  43 33 48 33 53 33 44 33  43 34 48 34 53 34 44 34  |C3H3S3D3C4H4S4D4|
000001a0  43 35 48 35 53 35 44 35  43 36 48 36 53 36 44 36  |C5H5S5D5C6H6S6D6|
000001b0  43 37 48 37 53 37 44 37  43 38 48 38 53 38 44 38  |C7H7S7D7C8H8S8D8|
000001c0  43 39 48 39 53 39 44 39  43 22 2b bd 32 32 39 2b  |C9H9S9D9C"+.229+|
000001d0  22 48 22 2b bd 32 32 39  2b 22 53 22 2b bd 32 32  |"H"+.229+"S"+.22|
000001e0  39 2b 22 44 22 2b bd 32  32 39 2b 22 43 4a 48 4a  |9+"D"+.229+"CJHJ|
000001f0  53 4a 44 4a 43 51 48 51  53 51 44 51 43 4b 48 4b  |SJDJCQHQSQDQCKHK|
00000200  53 4b 44 4b 43 41 48 41  53 41 44 41 43 22 0d 00  |SKDKCAHASADAC"..|
00000210  b4 1b 7a 24 3d bd 28 32  32 38 29 2b bd 28 32 32  |..z$=.(228)+.(22|
00000220  38 29 2b bd 28 32 32 38  29 0d 00 be 10 eb 31 3a  |8)+.(228).....1:|
00000230  41 25 3d b3 28 2d 4d 25  29 0d 00 c8 25 ef 32 33  |A%=.(-M%)...%.23|
00000240  3b 38 32 30 32 3b 30 3b  30 3b 30 3b 31 39 2c 32  |;8202;0;0;0;19,2|
00000250  2c 34 3b 30 3b 31 39 2c  33 2c 37 3b 30 3b 0d 00  |,4;0;19,3,7;0;..|
00000260  d2 09 f2 69 6e 69 74 0d  00 dc 11 e6 30 2c 31 33  |...init.....0,13|
00000270  30 3a fb 31 33 30 3a da  0d 00 e6 12 f2 64 3a f2  |0:.130:......d:.|
00000280  73 3a f2 74 61 62 6c 65  61 75 0d 00 f0 1e fb 33  |s:.tableau.....3|
00000290  3a f1 8a 32 31 2c 33 31  29 22 44 65 61 6c 20 4e  |:..21,31)"Deal N|
000002a0  6f 2e 20 22 3b 4d 25 3b  0d 00 fa 08 f5 3a fb 30  |o. ";M%;.....:.0|
000002b0  0d 01 04 0e f1 8a 31 36  2c 32 39 29 89 34 0d 01  |......16,29).4..|
000002c0  0e 1f f5 20 41 24 3d be  3a fd 20 a7 22 31 32 33  |... A$=.:. ."123|
000002d0  34 35 36 37 44 22 2c 41  24 29 3c 3e 30 0d 01 18  |4567D",A$)<>0...|
000002e0  4b e7 20 41 24 3d 22 44  22 20 f2 44 65 61 6c 3a  |K. A$="D" .Deal:|
000002f0  e5 20 8d 44 54 41 3a 8b  20 f1 8a 31 36 2c 32 39  |. .DTA:. ..16,29|
00000300  29 22 66 72 6f 6d 20 22  3b 41 24 3a 66 25 3d bb  |)"from ";A$:f%=.|
00000310  28 41 24 29 3a f1 8a 32  33 2c 32 39 29 22 74 6f  |(A$):..23,29)"to|
00000320  20 22 3a 2a 46 58 32 31  0d 01 22 1e f5 20 42 24  | ":*FX21..".. B$|
00000330  3d be 3a fd 20 a7 22 31  32 33 34 35 36 37 22 2c  |=.:. ."1234567",|
00000340  42 24 29 3c 3e 30 0d 01  2c 1d f1 8a 32 36 2c 32  |B$)<>0..,...26,2|
00000350  39 29 42 24 3a 74 25 3d  bb 28 42 24 29 3a 2a 46  |9)B$:t%=.(B$):*F|
00000360  58 32 31 0d 01 36 10 e7  20 41 24 3d 42 24 20 70  |X21..6.. A$=B$ p|
00000370  25 3d 30 0d 01 40 10 41  25 3d a4 6d 28 66 25 2c  |%=0..@.A%=.m(f%,|
00000380  74 25 29 0d 01 4a 13 e7  20 ac 41 25 20 f2 65 20  |t%)..J.. .A% .e |
00000390  8b 20 f2 74 63 6b 0d 01  54 1b f1 8a 32 31 2c 32  |. .tck..T...21,2|
000003a0  39 29 89 28 31 30 29 3a  f2 65 6e 64 3a fd 20 49  |9).(10):.end:. I|
000003b0  25 0d 01 5e 35 fb 31 3a  f1 8a 37 2c 32 37 29 22  |%..^5.1:..7,27)"|
000003c0  43 6f 6e 67 72 61 74 75  6c 61 74 69 6f 6e 73 20  |Congratulations |
000003d0  2d 20 59 6f 75 20 77 69  6e 2e 22 3a f1 8a 32 38  |- You win.":..28|
000003e0  29 89 28 33 32 29 0d 01  68 10 f1 8a 31 2c 33 30  |).(32)..h...1,30|
000003f0  29 89 28 31 32 29 0d 01  72 36 e3 20 58 3d 31 20  |).(12)..r6. X=1 |
00000400  b8 20 31 30 3a d4 31 2c  2d 35 2d 58 2c 31 31 30  |. 10:.1,-5-X,110|
00000410  2b 58 2c 31 3a d4 31 2c  2d 35 2d 58 2c 31 33 30  |+X,1:.1,-5-X,130|
00000420  2b 58 2c 31 3a ed 3a 2a  46 58 32 31 0d 01 7c 1f  |+X,1:.:*FX21..|.|
00000430  f1 8a 31 32 2c 33 30 29  22 50 6c 61 79 20 61 67  |..12,30)"Play ag|
00000440  61 69 6e 3f 20 28 59 2f  4e 29 22 0d 01 86 2b f5  |ain? (Y/N)"...+.|
00000450  20 41 3d a5 3a fd 20 41  3d 37 38 84 41 3d 38 39  | A=.:. A=78.A=89|
00000460  3a e7 20 41 3d 38 39 20  f9 20 8b 20 d7 22 53 50  |:. A=89 . . ."SP|
00000470  63 68 65 63 6b 22 0d 01  90 05 3a 0d 01 9a 10 dd  |check"....:.....|
00000480  f2 66 28 43 25 29 3a 52  25 3d 30 0d 01 a4 10 79  |.f(C%):R%=0....y|
00000490  25 3d a9 28 62 24 28 43  25 29 29 0d 01 ae 72 e7  |%=.(b$(C%))...r.|
000004a0  79 25 3d 30 20 ef 33 31  2c 35 2a 43 25 2d 34 2c  |y%=0 .31,5*C%-4,|
000004b0  79 25 2f 32 2b 34 3a f1  89 33 3a ef 33 31 2c 35  |y%/2+4:..3:.31,5|
000004c0  2a 43 25 2d 34 2c 79 25  2f 32 2b 35 3a f1 89 33  |*C%-4,y%/2+5:..3|
000004d0  3a ef 33 31 2c 35 2a 43  25 2d 34 2c 79 25 2f 32  |:.31,5*C%-4,y%/2|
000004e0  2b 36 3a f1 89 33 3a ef  33 31 2c 35 2a 43 25 2d  |+6:..3:.31,5*C%-|
000004f0  34 2c 79 25 2f 32 2b 37  3a f1 89 33 3a e1 3a 8b  |4,y%/2+7:..3:.:.|
00000500  63 24 3d c2 62 24 28 43  25 29 2c 32 29 0d 01 b8  |c$=.b$(C%),2)...|
00000510  19 e7 20 79 25 3e 34 30  20 43 25 3d 38 3a 79 25  |.. y%>40 C%=8:y%|
00000520  3d 79 25 2d 33 38 0d 01  c2 17 e7 a7 22 48 44 22  |=y%-38......"HD"|
00000530  2c c2 63 24 2c 31 29 29  fb 31 8b fb 30 0d 01 cc  |,.c$,1)).1..0...|
00000540  08 fb 31 33 31 0d 01 d6  87 e7 a7 22 48 22 2c c2  |..131......"H",.|
00000550  63 24 2c 31 29 29 20 8c  20 63 24 3d c0 63 24 2c  |c$,1)) . c$=.c$,|
00000560  31 29 2b 22 20 22 2b bd  32 32 34 20 8b 20 e7 20  |1)+" "+.224 . . |
00000570  a7 22 44 22 2c c2 63 24  2c 31 29 29 20 8c 20 63  |."D",.c$,1)) . c|
00000580  24 3d c0 63 24 2c 31 29  2b 22 20 22 2b bd 32 32  |$=.c$,1)+" "+.22|
00000590  36 20 8b 20 e7 20 a7 22  53 22 2c c2 63 24 2c 31  |6 . . ."S",.c$,1|
000005a0  29 29 20 8c 20 63 24 3d  c0 63 24 2c 31 29 2b 22  |)) . c$=.c$,1)+"|
000005b0  20 22 2b bd 32 32 35 20  8b 20 63 24 3d c0 63 24  | "+.225 . c$=.c$|
000005c0  2c 31 29 2b 22 20 22 2b  bd 32 32 37 0d 01 e0 19  |,1)+" "+.227....|
000005d0  ef 33 31 2c 43 25 2a 35  2d 34 2c 79 25 2f 32 2b  |.31,C%*5-4,y%/2+|
000005e0  33 3a f1 63 24 0d 01 ea  19 ef 33 31 2c 43 25 2a  |3:.c$.....31,C%*|
000005f0  35 2d 34 2c 79 25 2f 32  2b 34 3a f1 89 33 0d 01  |5-4,y%/2+4:..3..|
00000600  f4 19 ef 33 31 2c 43 25  2a 35 2d 34 2c 79 25 2f  |...31,C%*5-4,y%/|
00000610  32 2b 35 3a f1 89 33 0d  01 fe 24 74 24 3d c0 63  |2+5:..3...$t$=.c|
00000620  24 2c 31 29 3a 63 24 3d  63 24 2b 22 20 22 2b 74  |$,1):c$=c$+" "+t|
00000630  24 3a 63 24 3d c2 63 24  2c 33 29 0d 02 08 19 ef  |$:c$=.c$,3).....|
00000640  33 31 2c 43 25 2a 35 2d  34 2c 79 25 2f 32 2b 36  |31,C%*5-4,y%/2+6|
00000650  3a f1 63 24 0d 02 12 09  f2 63 61 72 64 0d 02 1c  |:.c$.....card...|
00000660  08 fb 31 33 30 0d 02 26  19 ef 33 31 2c 35 2a 43  |..130..&..31,5*C|
00000670  25 2d 34 2c 79 25 2f 32  2b 37 3a f1 89 33 0d 02  |%-4,y%/2+7:..3..|
00000680  30 19 ef 33 31 2c 35 2a  43 25 2d 34 2c 79 25 2f  |0..31,5*C%-4,y%/|
00000690  32 2b 38 3a f1 89 33 0d  02 3a 0e e3 20 53 25 3d  |2+8:..3..:.. S%=|
000006a0  31 20 b8 20 37 0d 02 44  10 79 25 3d a9 28 62 24  |1 . 7..D.y%=.(b$|
000006b0  28 53 25 29 29 0d 02 4e  13 e7 20 79 25 3c 34 31  |(S%))..N.. y%<41|
000006c0  20 52 25 3d 52 25 2b 31  0d 02 58 05 ed 0d 02 62  | R%=R%+1..X....b|
000006d0  22 e7 20 52 25 3d 37 20  e3 20 54 25 3d 33 20 b8  |". R%=7 . T%=3 .|
000006e0  20 38 3a f1 8a 33 35 2c  54 25 29 89 34 3a ed 0d  | 8:..35,T%).4:..|
000006f0  02 6c 05 e1 0d 02 76 05  3a 0d 02 80 0e dd a4 6d  |.l....v.:......m|
00000700  28 73 25 2c 64 25 29 0d  02 8a 1e 6c 24 3d c2 62  |(s%,d%)....l$=.b|
00000710  24 28 64 25 29 2c 32 29  3a e7 6c 24 3d 22 22 6c  |$(d%),2):.l$=""l|
00000720  24 3d 22 30 22 0d 02 94  0b 66 6c 61 67 25 3d 30  |$="0"....flag%=0|
00000730  0d 02 9e 1b 6e 24 3d c1  76 24 2c a7 76 24 2c c0  |....n$=.v$,.v$,.|
00000740  6c 24 2c 31 29 29 2d 31  2c 31 29 0d 02 a8 0d 6f  |l$,1))-1,1)....o|
00000750  24 3d c2 6c 24 2c 31 29  0d 02 b2 0d 67 24 3d 62  |$=.l$,1)....g$=b|
00000760  24 28 73 25 29 0d 02 bc  1d 70 25 3d 31 3a e7 20  |$(s%)....p%=1:. |
00000770  73 25 3c 35 20 70 25 3d  63 25 28 73 25 29 2a 32  |s%<5 p%=c%(s%)*2|
00000780  2d 31 0d 02 c6 13 e7 20  70 25 3e a9 28 67 24 29  |-1..... p%>.(g$)|
00000790  2d 31 3a 3d a3 0d 02 d0  14 e3 4a 25 3d 70 25 b8  |-1:=......J%=p%.|
000007a0  20 a9 28 67 24 29 20 88  32 0d 02 da 1f 78 24 3d  | .(g$) .2....x$=|
000007b0  c1 67 24 2c 4a 25 2c 31  29 3a 79 24 3d c1 67 24  |.g$,J%,1):y$=.g$|
000007c0  2c 4a 25 2b 31 2c 31 29  0d 02 e4 12 e7 20 6e 24  |,J%+1,1)..... n$|
000007d0  3d 22 4b 22 20 6f 24 3d  79 24 0d 02 ee 22 e7 28  |="K" o$=y$...".(|
000007e0  78 24 3d 6e 24 80 79 24  3d 6f 24 29 20 8c 70 25  |x$=n$.y$=o$) .p%|
000007f0  3d 4a 25 3a 4a 25 3d a9  28 67 24 29 0d 02 f8 05  |=J%:J%=.(g$)....|
00000800  ed 0d 03 02 28 e7 20 78  24 3d 22 4b 22 20 f2 6b  |....(. x$="K" .k|
00000810  69 6e 67 3a e7 20 66 6c  61 67 25 3a 70 25 3d 70  |ing:. flag%:p%=p|
00000820  25 2b 32 3a e5 8d 64 46  42 0d 03 0c 4c e7 70 25  |%+2:..dFB...L.p%|
00000830  3c 31 8c 3d 30 8b 63 24  3d c1 62 24 28 73 25 29  |<1.=0.c$=.b$(s%)|
00000840  2c 70 25 2c 32 29 3a e7  a7 63 24 2c 6e 24 29 3d  |,p%,2):..c$,n$)=|
00000850  30 8c 3d 30 20 8b 20 e7  20 a4 54 20 8c 3d 30 8b  |0.=0 . . .T .=0.|
00000860  71 24 3d c1 67 24 2c 70  25 2c a9 28 67 24 29 2d  |q$=.g$,p%,.(g$)-|
00000870  70 25 2b 31 29 0d 03 16  45 e3 58 25 3d 31 b8 a9  |p%+1)...E.X%=1..|
00000880  28 71 24 29 88 32 3a 62  24 28 64 25 29 3d 62 24  |(q$).2:b$(d%)=b$|
00000890  28 64 25 29 2b c1 71 24  2c 58 25 2c 32 29 3a 62  |(d%)+.q$,X%,2):b|
000008a0  24 28 73 25 29 3d c0 62  24 28 73 25 29 2c a9 28  |$(s%)=.b$(s%),.(|
000008b0  62 24 28 73 25 29 29 2d  32 29 0d 03 20 11 f2 66  |b$(s%))-2).. ..f|
000008c0  28 64 25 29 3a f2 66 28  73 25 29 0d 03 2a 05 ed  |(d%):.f(s%)..*..|
000008d0  0d 03 34 2c e7 20 a9 28  62 24 28 73 25 29 29 3d  |..4,. .(b$(s%))=|
000008e0  63 25 28 73 25 29 2a 32  2d 32 20 8c 20 63 25 28  |c%(s%)*2-2 . c%(|
000008f0  73 25 29 3d 63 25 28 73  25 29 2d 31 0d 03 3e 17  |s%)=c%(s%)-1..>.|
00000900  e7 20 63 25 28 73 25 29  3c 30 20 63 25 28 73 25  |. c%(s%)<0 c%(s%|
00000910  29 3d 30 0d 03 48 06 3d  b9 0d 03 52 05 3a 0d 03  |)=0..H.=...R.:..|
00000920  5c 07 dd f2 65 0d 03 66  2a d4 31 2c 2d 37 2c 39  |\...e..f*.1,-7,9|
00000930  2c 33 3a fb 31 3a f1 8a  31 34 2c 33 30 29 22 4d  |,3:.1:..14,30)"M|
00000940  6f 76 65 20 64 69 73 61  6c 6c 6f 77 65 64 22 0d  |ove disallowed".|
00000950  03 70 13 6e 3d 91 3a f5  20 fd 20 91 3e 6e 2b 31  |.p.n=.:. . .>n+1|
00000960  32 30 0d 03 7a 16 fb 31  33 30 3a f1 8a 31 34 2c  |20..z..130:..14,|
00000970  33 30 29 89 28 31 35 29  0d 03 84 05 e1 0d 03 8e  |30).(15)........|
00000980  05 3a 0d 03 98 0e dd f2  6b 69 6e 67 3a fb 20 31  |.:......king:. 1|
00000990  0d 03 a2 0f e7 20 6e 24  3c 3e 22 4b 22 20 e1 0d  |..... n$<>"K" ..|
000009a0  03 ac 1c f1 8a 31 34 2c  33 30 29 6e 24 2b 79 24  |.....14,30)n$+y$|
000009b0  3b 22 3f 20 59 2f 4e 22  3a ef 37 0d 03 b6 17 f5  |;"? Y/N":.7.....|
000009c0  20 41 3d a5 3a fd 20 41  3d 37 38 20 84 20 41 3d  | A=.:. A=78 . A=|
000009d0  38 39 0d 03 c0 1c e7 20  41 3d 37 38 20 66 6c 61  |89..... A=78 fla|
000009e0  67 25 3d 31 3a 8b 20 66  6c 61 67 25 3d 30 0d 03  |g%=1:. flag%=0..|
000009f0  ca 07 fb 20 30 0d 03 d4  10 f1 8a 31 34 2c 33 30  |... 0......14,30|
00000a00  29 89 28 39 29 0d 03 de  05 e1 0d 03 e8 05 3a 0d  |).(9).........:.|
00000a10  03 f2 07 dd a4 54 0d 03  fc 0d 64 24 3d c2 6c 24  |.....T....d$=.l$|
00000a20  2c 31 29 0d 04 06 0d 65  24 3d c2 63 24 2c 31 29  |,1)....e$=.c$,1)|
00000a30  0d 04 10 14 e7 20 62 24  28 64 25 29 3d 22 22 20  |..... b$(d%)="" |
00000a40  8c 20 3d 30 0d 04 1a 14  e7 20 64 24 3c 3e 65 24  |. =0..... d$<>e$|
00000a50  20 8c 3d b9 20 8b 3d 30  0d 04 24 05 3a 0d 04 2e  | .=. .=0..$.:...|
00000a60  0a dd f2 44 65 61 6c 0d  04 38 10 e7 20 66 24 3d  |...Deal..8.. f$=|
00000a70  22 22 20 f2 65 3a e1 0d  04 42 16 f1 8a 31 2c 33  |"" .e:...B...1,3|
00000a80  30 29 22 6f 72 20 45 53  43 41 50 45 22 0d 04 4c  |0)"or ESCAPE"..L|
00000a90  0e e3 20 49 25 3d 31 20  b8 20 33 0d 04 56 1f 62  |.. I%=1 . 3..V.b|
00000aa0  24 28 49 25 29 3d 62 24  28 49 25 29 2b c1 66 24  |$(I%)=b$(I%)+.f$|
00000ab0  2c 32 2a 49 25 2d 31 2c  32 29 0d 04 60 0f f2 66  |,2*I%-1,2)..`..f|
00000ac0  28 49 25 29 3a f2 74 63  6b 0d 04 6a 0d ed 3a 66  |(I%):.tck..j..:f|
00000ad0  24 3d 22 22 3a e1 0d 04  74 05 3a 0d 04 7e 0e dd  |$="":...t.:..~..|
00000ae0  f2 65 6e 64 3a 49 25 3d  30 0d 04 88 0e e3 20 4a  |.end:I%=0..... J|
00000af0  25 3d 31 20 b8 20 37 0d  04 92 10 4b 25 3d a9 28  |%=1 . 7....K%=.(|
00000b00  62 24 28 4a 25 29 29 0d  04 9c 13 e7 20 4b 25 3d  |b$(J%))..... K%=|
00000b10  32 36 20 49 25 3d 49 25  2b 31 0d 04 a6 05 ed 0d  |26 I%=I%+1......|
00000b20  04 b0 12 e7 20 49 25 3c  3e 34 20 49 25 3d 30 3a  |.... I%<>4 I%=0:|
00000b30  e1 0d 04 ba 15 49 25 3d  30 3a 70 24 3d c1 76 24  |.....I%=0:p$=.v$|
00000b40  2c 32 2c 31 33 29 0d 04  c4 0e e3 20 4a 25 3d 31  |,2,13)..... J%=1|
00000b50  20 b8 20 37 0d 04 ce 10  4b 25 3d a9 28 62 24 28  | . 7....K%=.(b$(|
00000b60  4a 25 29 29 0d 04 d8 12  e7 20 4b 25 3d 30 20 8c  |J%))..... K%=0 .|
00000b70  20 e5 8d 54 72 45 0d 04  e2 11 4d 24 3d c2 62 24  | ..TrE....M$=.b$|
00000b80  28 4a 25 29 2c 31 29 0d  04 ec 13 e3 20 4c 25 3d  |(J%),1)..... L%=|
00000b90  32 33 20 b8 20 31 20 88  2d 32 0d 04 f6 16 4e 24  |23 . 1 .-2....N$|
00000ba0  3d c1 62 24 28 4a 25 29  2c 4c 25 2b 31 2c 31 29  |=.b$(J%),L%+1,1)|
00000bb0  0d 05 00 11 e7 20 4e 24  3c 3e 4d 24 20 49 25 3d  |..... N$<>M$ I%=|
00000bc0  31 0d 05 0a 1b 4d 25 3d  a7 70 24 2c 28 c1 62 24  |1....M%=.p$,(.b$|
00000bd0  28 4a 25 29 2c 4c 25 2c  31 29 29 29 0d 05 14 1d  |(J%),L%,1)))....|
00000be0  4e 25 3d a7 70 24 2c 28  c1 62 24 28 4a 25 29 2c  |N%=.p$,(.b$(J%),|
00000bf0  4c 25 2b 32 2c 31 29 29  29 0d 05 1e 15 e7 20 4d  |L%+2,1)))..... M|
00000c00  25 2d 4e 25 3c 3e 31 20  8c 20 49 25 3d 31 0d 05  |%-N%<>1 . I%=1..|
00000c10  28 05 ed 0d 05 32 05 ed  0d 05 3c 1a e7 20 49 25  |(....2....<.. I%|
00000c20  20 8c 20 49 25 3d 30 3a  e1 20 8b 20 49 25 3d 31  | . I%=0:. . I%=1|
00000c30  3a e1 0d 05 46 05 3a 0d  05 50 24 dd f2 74 63 6b  |:...F.:..P$..tck|
00000c40  3a d4 30 2c 2d 35 2c 35  2c 31 3a e3 20 5a 25 3d  |:.0,-5,5,1:. Z%=|
00000c50  31 20 b8 20 36 30 30 3a  ed 3a e1 0d 05 5a 05 3a  |1 . 600:.:...Z.:|
00000c60  0d 05 64 0d dd f2 74 61  62 6c 65 61 75 0d 05 6e  |..d...tableau..n|
00000c70  3c ef 35 3a ec 35 34 2c  39 36 30 3a e6 30 2c 33  |<.5:.54,960:.0,3|
00000c80  3a f1 22 31 20 20 20 20  32 20 20 20 20 33 20 20  |:."1    2    3  |
00000c90  20 20 34 20 20 20 20 35  20 20 20 20 36 20 20 20  |  4    5    6   |
00000ca0  20 37 20 20 20 63 74 6e  22 0d 05 78 06 ef 34 0d  | 7   ctn"..x..4.|
00000cb0  05 82 28 e3 72 25 3d 37  b8 31 20 88 2d 31 3a e3  |..(.r%=7.1 .-1:.|
00000cc0  43 25 3d 31 b8 37 3a ef  33 31 2c 43 25 2a 35 2d  |C%=1.7:.31,C%*5-|
00000cd0  34 2c 31 31 2d 72 25 0d  05 8c 2a 62 24 28 43 25  |4,11-r%...*b$(C%|
00000ce0  29 3d 62 24 28 43 25 29  2b c2 66 24 2c 32 29 3a  |)=b$(C%)+.f$,2):|
00000cf0  66 24 3d c0 66 24 2c 28  a9 28 66 24 29 2d 32 29  |f$=.f$,(.(f$)-2)|
00000d00  29 0d 05 96 32 e7 20 63  25 28 43 25 29 20 fb 31  |)...2. c%(C%) .1|
00000d10  3a fb 31 33 31 3a f1 79  24 3a e3 20 58 3d 31 b8  |:.131:.y$:. X=1.|
00000d20  32 30 30 3a ed 3a 8b 20  fb 31 33 30 3a f2 66 28  |200:.:. .130:.f(|
00000d30  43 25 29 0d 05 a0 3c fb  31 3a fb 31 33 31 3a e7  |C%)...<.1:.131:.|
00000d40  20 43 25 3c 35 20 80 20  72 25 3e 33 20 80 20 72  | C%<5 . r%>3 . r|
00000d50  25 3c 37 20 ef 33 31 2c  43 25 2a 35 2d 34 2c 31  |%<7 .31,C%*5-4,1|
00000d60  31 2d 72 25 2d 31 3a f1  7a 24 3a fb 31 33 30 0d  |1-r%-1:.z$:.130.|
00000d70  05 aa 27 63 25 28 43 25  29 3d 63 25 28 43 25 29  |..'c%(C%)=c%(C%)|
00000d80  2d 31 3a e7 20 63 25 28  43 25 29 3c 31 20 63 25  |-1:. c%(C%)<1 c%|
00000d90  28 43 25 29 3d 30 0d 05  b4 08 f2 74 63 6b 0d 05  |(C%)=0.....tck..|
00000da0  be 05 ed 0d 05 c8 05 ed  0d 05 d2 0e e3 20 49 25  |............. I%|
00000db0  3d 31 20 b8 20 34 0d 05  dc 0c 63 25 28 49 25 29  |=1 . 4....c%(I%)|
00000dc0  3d 34 0d 05 e6 05 ed 0d  05 f0 0b fb 30 3a fb 31  |=4..........0:.1|
00000dd0  33 30 0d 05 fa 1e ef 33  31 2c 31 2c 32 39 3a f1  |30.....31,1,29:.|
00000de0  22 4d 61 6b 65 20 79 6f  75 72 20 6d 6f 76 65 22  |"Make your move"|
00000df0  0d 06 04 17 ef 33 31 2c  31 2c 33 30 3a f1 22 6f  |.....31,1,30:."o|
00000e00  72 20 44 65 61 6c 22 0d  06 0e 05 e1 0d 06 18 05  |r Deal".........|
00000e10  3a 0d 06 22 07 dd f2 73  0d 06 2c 0f 66 24 3d 22  |:.."...s..,.f$="|
00000e20  22 3a 44 25 3d 35 32 0d  06 36 0c e3 49 25 3d 31  |":D%=52..6..I%=1|
00000e30  b8 35 32 0d 06 40 13 41  25 3d a8 28 b3 28 31 29  |.52..@.A%=.(.(1)|
00000e40  2a 44 25 2b 31 29 0d 06  4a 17 66 24 3d 66 24 2b  |*D%+1)..J.f$=f$+|
00000e50  c1 70 24 2c 32 2a 41 25  2d 31 2c 32 29 0d 06 54  |.p$,2*A%-1,2)..T|
00000e60  14 4c 24 3d c0 70 24 2c  28 41 25 2d 31 29 2a 32  |.L$=.p$,(A%-1)*2|
00000e70  29 0d 06 5e 1a 52 24 3d  c2 70 24 2c 28 a9 28 70  |)..^.R$=.p$,(.(p|
00000e80  24 29 2f 32 2d 41 25 29  2a 32 29 0d 06 68 0c 70  |$)/2-A%)*2)..h.p|
00000e90  24 3d 4c 24 2b 52 24 0d  06 72 0b 44 25 3d 44 25  |$=L$+R$..r.D%=D%|
00000ea0  2d 31 0d 06 7c 05 ed 0d  06 86 09 70 24 3d 66 24  |-1..|......p$=f$|
00000eb0  0d 06 90 05 e1 0d 06 9a  05 3a 0d 06 a4 0a dd f2  |.........:......|
00000ec0  69 6e 69 74 0d 06 ae 0b  e3 49 25 3d 31 b8 37 0d  |init.....I%=1.7.|
00000ed0  06 b8 14 62 24 28 49 25  29 3d c4 35 32 2c 22 20  |...b$(I%)=.52," |
00000ee0  20 22 29 0d 06 c2 0d 62  24 28 49 25 29 3d 22 22  | ")....b$(I%)=""|
00000ef0  0d 06 cc 0c 63 25 28 49  25 29 3d 30 0d 06 d6 05  |....c%(I%)=0....|
00000f00  ed 0d 06 e0 0e e3 20 49  25 3d 31 20 b8 20 34 0d  |...... I%=1 . 4.|
00000f10  06 ea 0c 63 25 28 49 25  29 3d 33 0d 06 f4 05 ed  |...c%(I%)=3.....|
00000f20  0d 06 fe 08 55 25 3d 30  0d 07 08 10 70 25 3d 31  |....U%=0....p%=1|
00000f30  3a 63 24 3d 22 20 20 22  0d 07 12 1b 7a 24 3d bd  |:c$="  "....z$=.|
00000f40  28 32 33 30 29 2b bd 28  32 33 31 29 2b bd 28 32  |(230)+.(231)+.(2|
00000f50  33 32 29 0d 07 1c 0e 2a  46 58 32 31 32 2c 32 31  |32)....*FX212,21|
00000f60  36 0d 07 26 69 79 24 3d  bd 32 33 30 2b bd 32 33  |6..&iy$=.230+.23|
00000f70  31 2b bd 32 33 32 2b bd  31 30 2b bd 38 2b bd 38  |1+.232+.10+.8+.8|
00000f80  2b bd 38 2b bd 32 33 37  2b bd 32 33 38 2b bd 32  |+.8+.237+.238+.2|
00000f90  33 33 2b bd 31 30 2b bd  38 2b bd 38 2b bd 38 2b  |33+.10+.8+.8+.8+|
00000fa0  bd 32 33 37 2b bd 32 32  38 2b bd 32 33 33 2b bd  |.237+.228+.233+.|
00000fb0  31 30 2b bd 38 2b bd 38  2b bd 38 2b bd 32 33 36  |10+.8+.8+.8+.236|
00000fc0  2b bd 32 33 35 2b bd 32  33 34 0d 07 30 05 e1 0d  |+.235+.234..0...|
00000fd0  07 3a 05 3a 0d 07 44 07  dd f2 64 0d 07 4e 08 e6  |.:.:..D...d..N..|
00000fe0  30 2c 33 0d 07 58 10 ef  35 3a ec 33 39 32 2c 31  |0,3..X..5:.392,1|
00000ff0  30 30 30 0d 07 62 18 f1  22 53 43 4f 52 50 49 4f  |000..b.."SCORPIO|
00001000  4e 20 50 41 54 49 45 4e  43 45 22 0d 07 6c 06 ef  |N PATIENCE"..l..|
00001010  35 0d 07 76 05 e1 0d 07  80 0a dd f2 63 61 72 64  |5..v........card|
00001020  0d 07 8a 2c e7 74 24 3d  bd 32 32 39 20 ef 33 31  |...,.t$=.229 .31|
00001030  2c 35 2a 43 25 2d 33 2c  79 25 2f 32 2b 33 3a f2  |,5*C%-3,y%/2+3:.|
00001040  66 69 76 65 3a f2 66 69  76 65 3a e1 0d 07 94 3b  |five:.five:....;|
00001050  e7 74 24 3d 22 39 22 20  ef 33 31 2c 35 2a 43 25  |.t$="9" .31,5*C%|
00001060  2d 33 2c 79 25 2f 32 2b  33 3a f1 3b bd 32 34 30  |-3,y%/2+3:.;.240|
00001070  3b bd 38 3b bd 31 30 3b  3a f2 66 69 76 65 3a f1  |;.8;.10;:.five:.|
00001080  3b bd 32 34 30 3a e1 0d  07 9e 2b e7 74 24 3d 22  |;.240:....+.t$="|
00001090  38 22 20 ef 33 31 2c 35  2a 43 25 2d 33 2c 79 25  |8" .31,5*C%-3,y%|
000010a0  2f 32 2b 33 3a f2 66 6f  75 72 3a f2 66 6f 75 72  |/2+3:.four:.four|
000010b0  3a e1 0d 07 a8 34 e7 74  24 3d 22 37 22 20 ef 33  |:....4.t$="7" .3|
000010c0  31 2c 35 2a 43 25 2d 33  2c 79 25 2f 32 2b 33 3a  |1,5*C%-3,y%/2+3:|
000010d0  f1 3b bd 32 34 31 3b bd  38 3b bd 31 30 3b 3a f2  |.;.241;.8;.10;:.|
000010e0  66 6f 75 72 3a e1 0d 07  b2 34 e7 74 24 3d 22 36  |four:....4.t$="6|
000010f0  22 20 ef 33 31 2c 35 2a  43 25 2d 33 2c 79 25 2f  |" .31,5*C%-3,y%/|
00001100  32 2b 33 3a f1 3b bd 32  34 30 3b bd 38 3b bd 31  |2+3:.;.240;.8;.1|
00001110  30 3b 3a f2 66 6f 75 72  3a e1 0d 07 bc 25 e7 74  |0;:.four:....%.t|
00001120  24 3d 22 35 22 20 ef 33  31 2c 35 2a 43 25 2d 33  |$="5" .31,5*C%-3|
00001130  2c 79 25 2f 32 2b 34 3a  f2 66 69 76 65 3a e1 0d  |,y%/2+4:.five:..|
00001140  07 c6 25 e7 74 24 3d 22  34 22 20 ef 33 31 2c 35  |..%.t$="4" .31,5|
00001150  2a 43 25 2d 33 2c 79 25  2f 32 2b 34 3a f2 66 6f  |*C%-3,y%/2+4:.fo|
00001160  75 72 3a e1 0d 07 d0 3e  e7 74 24 3d 22 33 22 20  |ur:....>.t$="3" |
00001170  ef 33 31 2c 35 2a 43 25  2d 33 2c 79 25 2f 32 2b  |.31,5*C%-3,y%/2+|
00001180  33 3a f1 3b bd 32 33 39  3b bd 38 3b bd 31 30 3b  |3:.;.239;.8;.10;|
00001190  bd 32 33 39 3b bd 38 3b  bd 31 30 3b bd 32 33 39  |.239;.8;.10;.239|
000011a0  3a e1 0d 07 da 3d e7 74  24 3d 22 32 22 20 ef 33  |:....=.t$="2" .3|
000011b0  31 2c 35 2a 43 25 2d 33  2c 79 25 2f 32 2b 33 3a  |1,5*C%-3,y%/2+3:|
000011c0  f1 3b bd 32 33 39 3b bd  38 3b bd 31 30 3b bd 33  |.;.239;.8;.10;.3|
000011d0  32 3b bd 38 3b bd 31 30  3b bd 32 33 39 3a e1 0d  |2;.8;.10;.239:..|
000011e0  07 e4 27 e7 74 24 3d 22  41 22 20 ef 33 31 2c 35  |..'.t$="A" .31,5|
000011f0  2a 43 25 2d 33 2c 79 25  2f 32 2b 34 3a f1 c0 63  |*C%-3,y%/2+4:..c|
00001200  24 2c 31 29 3a e1 0d 08  52 35 e7 74 24 3d 22 4a  |$,1):...R5.t$="J|
00001210  22 20 43 24 3d bd 32 34  32 20 8b e7 74 24 3d 22  |" C$=.242 ..t$="|
00001220  51 22 20 43 24 3d bd 32  34 33 20 8b e7 74 24 3d  |Q" C$=.243 ..t$=|
00001230  22 4b 22 20 43 24 3d bd  32 34 34 0d 08 5c 53 e7  |"K" C$=.244..\S.|
00001240  74 24 3d 22 4a 22 20 44  24 3d bd 32 34 38 2b bd  |t$="J" D$=.248+.|
00001250  32 34 39 2b bd 32 35 32  20 8b e7 74 24 3d 22 51  |249+.252 ..t$="Q|
00001260  22 20 44 24 3d bd 32 34  38 2b bd 32 35 30 2b bd  |" D$=.248+.250+.|
00001270  32 35 32 20 8b e7 74 24  3d 22 4b 22 20 44 24 3d  |252 ..t$="K" D$=|
00001280  bd 32 34 38 2b bd 32 35  31 2b bd 32 35 32 0d 08  |.248+.251+.252..|
00001290  66 19 ef 33 31 2c 35 2a  43 25 2d 33 2c 79 25 2f  |f..31,5*C%-3,y%/|
000012a0  32 2b 33 3a f1 43 24 0d  08 70 25 ef 33 31 2c 35  |2+3:.C$..p%.31,5|
000012b0  2a 43 25 2d 34 2c 79 25  2f 32 2b 34 3a f1 bd 32  |*C%-4,y%/2+4:..2|
000012c0  34 35 2b bd 32 34 36 2b  bd 32 34 37 0d 08 7a 1e  |45+.246+.247..z.|
000012d0  e6 30 2c 30 3a ef 33 31  2c 35 2a 43 25 2d 34 2c  |.0,0:.31,5*C%-4,|
000012e0  79 25 2f 32 2b 35 3a f1  44 24 0d 08 84 1d ef 33  |y%/2+5:.D$.....3|
000012f0  31 2c 35 2a 43 25 2d 33  2c 79 25 2f 32 2b 36 3a  |1,5*C%-3,y%/2+6:|
00001300  f1 bd 32 35 33 3a e1 0d  08 8e 0a dd f2 66 6f 75  |..253:.......fou|
00001310  72 0d 08 98 1e f1 3b bd  32 34 30 3b bd 38 3b bd  |r.....;.240;.8;.|
00001320  31 30 3b bd 32 34 30 3b  bd 38 3b bd 31 30 3b 0d  |10;.240;.8;.10;.|
00001330  08 a2 05 e1 0d 08 ac 0a  dd f2 66 69 76 65 0d 08  |..........five..|
00001340  b6 1e f1 3b bd 32 34 31  3b bd 38 3b bd 31 30 3b  |...;.241;.8;.10;|
00001350  bd 32 34 30 3b bd 38 3b  bd 31 30 3b 0d 08 c0 05  |.240;.8;.10;....|
00001360  e1 0d 08 ca 13 fb 30 3a  f4 20 44 6f 77 6e 6c 6f  |......0:. Downlo|
00001370  61 64 65 72 0d 08 d4 5c  2a 4b 2e 30 20 2a 54 2e  |ader...\*K.0 *T.|
00001380  7c 4d 49 25 3d 50 41 47  45 2d 26 31 31 30 30 3a  ||MI%=PAGE-&1100:|
00001390  46 4f 52 4a 25 3d 50 41  47 45 20 54 4f 20 54 4f  |FORJ%=PAGE TO TO|
000013a0  50 20 53 54 45 50 34 3a  21 28 4a 25 2d 49 25 29  |P STEP4:!(J%-I%)|
000013b0  3d 21 4a 25 3a 4e 45 58  54 3a 50 41 47 45 3d 26  |=!J%:NEXT:PAGE=&|
000013c0  31 31 30 30 7c 4d 4f 4c  44 7c 4d 52 55 4e 7c 4d  |1100|MOLD|MRUN|M|
000013d0  0d 08 de 10 2a 46 58 31  33 38 2c 30 2c 31 32 38  |....*FX138,0,128|
000013e0  0d ff                                             |..|
000013e2