Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_51.ADF » G/SCORPIO

G/SCORPIO

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_51.ADF
Filename: G/SCORPIO
Read OK: ✔
File size: 141C bytes
Load address: FFFF1100
Exec address: FFFF802B
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM >Scorpion Patience
   20REM by Michael Leete
   30REM (c) The Micro User
   40REM With mods by Richard Dimond
   50REM With revised cards - May 2000
   60:
   70IF PAGE<&8000 IF PAGE>&1100 THEN GOTO2250
   80ON ERROR IF ERR=17 RUN ELSE REPORT:PRINT" at ";ERL:END
   90*FX200,0
  100MODE1:DIM b$(7),c%(7)
  110VDU23;8202;0;0;0;
  120k$="":v$="#A23456789"+CHR$229+"JQK0"
  130p$="2H2S2D2C3H3S3D3C4H4S4D4C5H5S5D5C6H6S6D6C7H7S7D7C8H8S8D8C9H9S9D9C"+CHR$229+"H"+CHR$229+"S"+CHR$229+"D"+CHR$229+"CJHJSJDJCQHQSQDQCKHKSKDKCAHASADAC"
  140z$=CHR$(228)+CHR$(228)+CHR$(228)
  150MODE1:A%=RND(-M%)
  160VDU23;8202;0;0;0;19,2,4;0;19,3,7;0;
  170PROCinit
  180GCOL0,130:COLOUR130:CLG
  190PROCd
  200MOVE392,968:PRINTSTRING$(17,"~")
  210INPUT''"Enter Deal No.";M%
  220IFM%=0 M%=ABS(RND(-TIME))
  230G=RND(-M%)
  240CLG
  250PROCd:PROCs:PROCtableau
  260PRINTTAB(24,30)"Deal No ";M%
  270REPEAT:COLOUR0
  280PRINTTAB(16,29)SPC4
  290REPEAT A$=GET$:UNTIL INSTR("1234567DR",A$)<>0
  300REMIF A$="R" CHAIN"SPcheck"
  310IF A$="D" PROCDeal:GOTO 370:ELSE PRINTTAB(16,29)"from ";A$:f%=VAL(A$):PRINTTAB(23,29)"to ":*FX21
  320REPEAT B$=GET$:UNTIL INSTR("1234567",B$)<>0
  330PRINTTAB(26,29)B$:t%=VAL(B$):*FX21
  340IF A$=B$ p%=0
  350A%=FNm(f%,t%)
  360IF NOTA% PROCe ELSE PROCtck
  370PRINTTAB(21,29)SPC(10):PROCend:UNTIL I%
  380COLOUR1:PRINTTAB(7,27)"Congratulations - You win.":PRINTTAB(28)SPC(32)
  390PRINTTAB(1,30)SPC(12)
  400FOR X=1 TO 10:SOUND1,-5-X,110+X,1:SOUND1,-5-X,130+X,1:NEXT:*FX21
  410PRINTTAB(12,30)"Play again? (Y/N)"
  420REPEAT A=GET:UNTIL A=78ORA=89
  430IFA=89 THENRUN ELSEEND
  440:
  450DEFPROCf(C%):R%=0
  460y%=LEN(b$(C%))
  470IFy%=0 VDU31,5*C%-4,y%/2+4:PRINTSPC3:VDU31,5*C%-4,y%/2+5:PRINTSPC3:VDU31,5*C%-4,y%/2+6:PRINTSPC3:VDU31,5*C%-4,y%/2+7:PRINTSPC3:ENDPROC:ELSEc$=RIGHT$(b$(C%),2)
  480IF y%>40 C%=8:y%=y%-38
  490IFINSTR("HD",RIGHT$(c$,1))COLOUR1ELSECOLOUR0
  500COLOUR131
  510IFINSTR("H",RIGHT$(c$,1)) THEN c$=LEFT$(c$,1)+" "+CHR$224 ELSE IF INSTR("D",RIGHT$(c$,1)) THEN c$=LEFT$(c$,1)+" "+CHR$226 ELSE IF INSTR("S",RIGHT$(c$,1)) THEN c$=LEFT$(c$,1)+" "+CHR$225 ELSE c$=LEFT$(c$,1)+" "+CHR$227
  520VDU31,C%*5-4,y%/2+3:PRINTc$
  530VDU31,C%*5-4,y%/2+4:PRINTSPC3
  540VDU31,C%*5-4,y%/2+5:PRINTSPC3
  550t$=LEFT$(c$,1):c$=c$+" "+t$:c$=RIGHT$(c$,3)
  560VDU31,C%*5-4,y%/2+6:PRINTc$
  570PROCcard
  580COLOUR130
  590VDU31,5*C%-4,y%/2+7:PRINTSPC3
  600VDU31,5*C%-4,y%/2+8:PRINTSPC3
  610FOR S%=1 TO 7
  620y%=LEN(b$(S%))
  630IF y%<41 R%=R%+1
  640NEXT
  650IF R%=7 FOR T%=3 TO 8:PRINTTAB(35,T%)SPC4:NEXT
  660ENDPROC
  670:
  680DEFFNm(s%,d%)
  690l$=RIGHT$(b$(d%),2):IFl$=""l$="0"
  700flag%=0
  710n$=MID$(v$,INSTR(v$,LEFT$(l$,1))-1,1)
  720o$=RIGHT$(l$,1)
  730g$=b$(s%)
  740p%=1:IF s%<5 p%=c%(s%)*2-1
  750IF p%>LEN(g$)-1:=FALSE
  760FORJ%=p%TO LEN(g$) STEP2
  770x$=MID$(g$,J%,1):y$=MID$(g$,J%+1,1)
  780IF n$="K" o$=y$
  790IF(x$=n$ANDy$=o$) THENp%=J%:J%=LEN(g$)
  800NEXT
  810IF x$="K" PROCking:IF flag%:p%=p%+2:GOTO750
  820IFp%<1THEN=0ELSEc$=MID$(b$(s%),p%,2):IFINSTR(c$,n$)=0THEN=0 ELSE IF FNT THEN=0ELSEq$=MID$(g$,p%,LEN(g$)-p%+1)
  830FORX%=1TOLEN(q$)STEP2:b$(d%)=b$(d%)+MID$(q$,X%,2):b$(s%)=LEFT$(b$(s%),LEN(b$(s%))-2)
  840PROCf(d%):PROCf(s%)
  850NEXT
  860IF LEN(b$(s%))=c%(s%)*2-2 THEN c%(s%)=c%(s%)-1
  870IF c%(s%)<0 c%(s%)=0
  880=TRUE
  890:
  900DEFPROCe
  910SOUND1,-7,9,3:COLOUR1:PRINTTAB(14,30)"Move disallowed"
  920n=TIME:REPEAT UNTIL TIME>n+120
  930COLOUR130:PRINTTAB(14,30)SPC(15)
  940ENDPROC
  950:
  960DEFPROCking:COLOUR 1
  970IF n$<>"K" ENDPROC
  980PRINTTAB(14,30)n$+y$;"? Y/N":VDU7
  990REPEAT A=GET:UNTIL A=78 OR A=89
 1000IF A=78 flag%=1:ELSE flag%=0
 1010COLOUR 0
 1020PRINTTAB(14,30)SPC(9)
 1030ENDPROC
 1040:
 1050DEFFNT
 1060d$=RIGHT$(l$,1)
 1070e$=RIGHT$(c$,1)
 1080IF b$(d%)="" THEN =0
 1090IF d$<>e$ THEN=TRUE ELSE=0
 1100:
 1110DEFPROCDeal
 1120IF f$="" PROCe:ENDPROC
 1130PRINTTAB(1,30)"or ESCAPE"
 1140FOR I%=1 TO 3
 1150b$(I%)=b$(I%)+MID$(f$,2*I%-1,2)
 1160PROCf(I%):PROCtck
 1170NEXT:f$="":ENDPROC
 1180:
 1190DEFPROCend:I%=0
 1200FOR J%=1 TO 7
 1210K%=LEN(b$(J%))
 1220IF K%=26 I%=I%+1
 1230NEXT
 1240IF I%<>4 I%=0:ENDPROC
 1250I%=0:p$=MID$(v$,2,13)
 1260FOR J%=1 TO 7
 1270K%=LEN(b$(J%))
 1280IF K%=0 THEN GOTO1370
 1290M$=RIGHT$(b$(J%),1)
 1300FOR L%=23 TO 1 STEP-2
 1310N$=MID$(b$(J%),L%+1,1)
 1320IF N$<>M$ I%=1
 1330M%=INSTR(p$,(MID$(b$(J%),L%,1)))
 1340N%=INSTR(p$,(MID$(b$(J%),L%+2,1)))
 1350IF M%-N%<>1 THEN I%=1
 1360NEXT
 1370NEXT
 1380IF I% THEN I%=0:ENDPROC ELSE I%=1:ENDPROC
 1390:
 1400DEFPROCtck:SOUND0,-5,5,1:FOR Z%=1 TO 600:NEXT:ENDPROC
 1410:
 1420DEFPROCtableau
 1430VDU5:MOVE54,960:GCOL0,3:PRINT"1    2    3    4    5    6    7   ctn"
 1440VDU4
 1450FORr%=7TO1 STEP-1:FORC%=1TO7:VDU31,C%*5-4,11-r%
 1460b$(C%)=b$(C%)+RIGHT$(f$,2):f$=LEFT$(f$,(LEN(f$)-2))
 1470IF c%(C%) COLOUR1:COLOUR131:PRINTy$:FOR X=1TO200:NEXT:ELSE COLOUR130:PROCf(C%)
 1480COLOUR1:COLOUR131:IF C%<5 AND r%>3 AND r%<7 VDU31,C%*5-4,11-r%-1:PRINTz$:COLOUR130
 1490c%(C%)=c%(C%)-1:IF c%(C%)<1 c%(C%)=0
 1500PROCtck
 1510NEXT
 1520NEXT
 1530FOR I%=1 TO 4
 1540c%(I%)=4
 1550NEXT
 1560COLOUR0:COLOUR130
 1570VDU31,1,29:PRINT"Make your move"
 1580VDU31,1,30:PRINT"or Deal"
 1590ENDPROC
 1600:
 1610DEFPROCs
 1620f$="":D%=52
 1630FORI%=1TO52
 1640A%=INT(RND(1)*D%+1)
 1650f$=f$+MID$(p$,2*A%-1,2)
 1660L$=LEFT$(p$,(A%-1)*2)
 1670R$=RIGHT$(p$,(LEN(p$)/2-A%)*2)
 1680p$=L$+R$
 1690D%=D%-1
 1700NEXT
 1710p$=f$
 1720ENDPROC
 1730:
 1740DEFPROCinit
 1750FORI%=1TO7
 1760b$(I%)=STRING$(52,"  ")
 1770b$(I%)=""
 1780c%(I%)=0
 1790NEXT
 1800FOR I%=1 TO 4
 1810c%(I%)=3
 1820NEXT
 1830U%=0
 1840p%=1:c$="  "
 1850z$=CHR$(230)+CHR$(231)+CHR$(232)
 1860*FX212,216
 1870y$=CHR$230+CHR$231+CHR$232+CHR$10+CHR$8+CHR$8+CHR$8+CHR$237+CHR$238+CHR$233+CHR$10+CHR$8+CHR$8+CHR$8+CHR$237+CHR$228+CHR$233+CHR$10+CHR$8+CHR$8+CHR$8+CHR$236+CHR$235+CHR$234
 1880ENDPROC
 1890:
 1900DEFPROCd
 1910GCOL0,3
 1920VDU5:MOVE392,1000
 1930PRINT"SCORPION PATIENCE"
 1940VDU5
 1950ENDPROC
 1960DEFPROCcard
 1970IFt$=CHR$229 VDU31,5*C%-3,y%/2+3:PROCfive:PROCfive
 1980IFt$="9" VDU31,5*C%-3,y%/2+3:PRINT;CHR$240;CHR$8;CHR$10;:PROCfive:PRINT;CHR$240
 1990IFt$="8" VDU31,5*C%-3,y%/2+3:PROCfour:PROCfour
 2000IFt$="7" VDU31,5*C%-3,y%/2+3:PRINT;CHR$241;CHR$8;CHR$10;:PROCfour
 2010IFt$="6" VDU31,5*C%-3,y%/2+3:PRINT;CHR$240;CHR$8;CHR$10;:PROCfour
 2020IFt$="5" VDU31,5*C%-3,y%/2+4:PROCfive
 2030IFt$="4" VDU31,5*C%-3,y%/2+4:PROCfour
 2040IFt$="3" VDU31,5*C%-3,y%/2+3:PRINT;CHR$239;CHR$8;CHR$10;CHR$239;CHR$8;CHR$10;CHR$239
 2050IFt$="2" VDU31,5*C%-3,y%/2+3:PRINT;CHR$239;CHR$8;CHR$10;CHR$32;CHR$8;CHR$10;CHR$239
 2060IFt$="A" VDU31,5*C%-3,y%/2+4:PRINTLEFT$(c$,1)
 2070C$="":D$=""
 2080IFt$="J" C$=CHR$242 ELSEIFt$="Q" C$=CHR$243 ELSEIFt$="K" C$=CHR$244
 2090IFt$="J" D$=CHR$248+CHR$249+CHR$252:PROCcourt
 2100IFt$="Q" D$=CHR$248+CHR$250+CHR$252:PROCcourt
 2110IFt$="K" D$=CHR$248+CHR$251+CHR$252:PROCcourt
 2120ENDPROC
 2130DEFPROCfour
 2140PRINT;CHR$240;CHR$8;CHR$10;CHR$240;CHR$8;CHR$10;
 2150ENDPROC
 2160DEFPROCfive
 2170PRINT;CHR$241;CHR$8;CHR$10;CHR$240;CHR$8;CHR$10;
 2180ENDPROC
 2190DEFPROCcourt
 2200VDU31,5*C%-3,y%/2+3:PRINT;C$
 2210COLOUR1:VDU31,5*C%-4,y%/2+4:PRINTCHR$245+CHR$246+CHR$247
 2220COLOUR0:VDU31,5*C%-4,y%/2+5:PRINT;D$
 2230VDU31,5*C%-3,y%/2+6:PRINTCHR$253
 2240ENDPROC
 2250REM Downloader
 2260*K.0 *T.|MI%=PAGE-&1100:FORJ%=PAGE TO TOP STEP4:!(J%-I%)=!J%:NEXT:PAGE=&1100|MOLD|MRUN|M
 2270*FX138,0,128


� >Scorpion Patience
� by Michael Leete
� (c) The Micro User
(!� With mods by Richard Dimond
2#� With revised cards - May 2000
<:
F� �<&8000 � �>&1100 � �dJH
P � � � �=17 � � �:�" at ";�:�
Z*FX200,0
d�1:� b$(7),c%(7)
n�23;8202;0;0;0;
x%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
��392,968:��17,"~")
��''"Enter Deal No.";M%
��M%=0 M%=�(�(-�))
�G=�(-M%)
��
��d:�s:�tableau
�24,30)"Deal No ";M%
�:�0
�16,29)�4
" � A$=�:� �"1234567DR",A$)<>0
,�IF A$="R" CHAIN"SPcheck"
6K� A$="D" �Deal:� �DrA:� �16,29)"from ";A$:f%=�(A$):�23,29)"to ":*FX21
@� B$=�:� �"1234567",B$)<>0
J�26,29)B$:t%=�(B$):*FX21
T� A$=B$ p%=0
^A%=�m(f%,t%)
h� �A% �e � �tck
r�21,29)�(10):�end:� I%
|5�1:�7,27)"Congratulations - You win.":�28)�(32)
��1,30)�(12)
�6� 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 �� ��
�:
���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)
0�31,C%*5-4,y%/2+6:�c$
:	�card
D�130
N�31,5*C%-4,y%/2+7:�3
X�31,5*C%-4,y%/2+8:�3
b� S%=1 � 7
ly%=�(b$(S%))
v� y%<41 R%=R%+1
��
�"� R%=7 � T%=3 � 8:�35,T%)�4:�
��
�:
�ݤ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:�dnB
4L�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)
H�f(d%):�f(s%)
R�
\,� �(b$(s%))=c%(s%)*2-2 � c%(s%)=c%(s%)-1
f� c%(s%)<0 c%(s%)=0
p=�
z:
���e
�*�1,-7,9,3:�1:�14,30)"Move disallowed"
�n=�:� � �>n+120
��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)
8� b$(d%)="" � =0
B� d$<>e$ �=� �=0
L:
V
��Deal
`� f$="" �e:�
j�1,30)"or ESCAPE"
t� I%=1 � 3
~b$(I%)=b$(I%)+�f$,2*I%-1,2)
��f(I%):�tck
�
�:f$="":�
�:
���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 � �DZE

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

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .