G/BLKHOL

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

G/BLKHOL

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/BLKHOL
Read OK:	✔
File size:	1178 bytes
Load address:	FFFF0E00
Exec address:	FFFF802B

Duplicates

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

AEW website » eug » eug_3_5_discs_Eug-51_A-EUG51.adf » G/BLKHOL
AEW website » eug » eug_5_25_discs_Eug-51_D-EUG51.dsd » G.BLKHOL
Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_51.ADF » G/BLKHOL

File contents

   10REM **************************
   20REM Blackhole
   30REM By R.A.Dimond
   40REM (c) Version 2 May 2000
   50REM **************************
   60ONERROR IFERR=17 RUN ELSEMODE6:REPORT:PRINT" at line ";ERL:END
   70*FX21,0
   75*FX200,0
   80IF PAGE>&E00 GOTO1820
   90MODE1:VDU23;8202;0;0;0;
  100VDU19,0,4;0;19,2,0;0;
  110DIM N%(51),c%(51),s%(51),C%(17,3),S%(17,3),D%(17),TC%(52),TS%(52)
  120m$="":move%=0
  130REPEAT:VDU26,4:CLS:PROCrandom:PROCinit:PROCdeal:win%=FALSE
  140REPEAT:VDU26,4
  150PROCkey
  160PROCmove
  170UNTIL0
  180END
  190:
  200DEFPROCtitle
  210VDU5:MOVE430,1000:PRINT"BLACKHOLE"
  220MOVE430,968:PRINTSTRING$(9,"~")
  230ENDPROC
  240:
  250DEFPROCrandom
  260*FX15
  270PROCtitle
  280INPUT''"Enter Deal No. "M%
  290IFM%=0 M%=ABS(RND(-TIME))
  300G=RND(-M%)
  310FORI%=1TO51:N%(I%)=I%:NEXT:FORI%=51TO2STEP-1:D%=RND(I%):T%=N%(D%):N%(D%)=N%(I%):N%(I%)=T%:NEXTI%
  320RESTORE:FORi%=1TO51:READc%(i%),s%(i%):NEXT
  330CLS
  340ENDPROC
  350:
  360DATA8,1,3,2,11,4,12,1,4,2,9,1,6,2,2,3,7,3,10,3,5,2,13,2,5,1,2,4,10,2,8,2,6,1,3,1,9,4,11,3,7,2,13,4,4,3,12,2,1,1,1,3
  370DATA10,1,12,4,4,1,13,1,8,3,2,1,7,1,11,2,3,4,9,2,6,4,13,3,7,4,2,2,11,1,5,3,9,3,6,3,4,4,10,4,3,3,8,4,5,4,12,3,1,2
  380:
  390DEFPROCfive
  400PRINT;CHR$241;CHR$8;CHR$10;CHR$240;CHR$8;CHR$10;
  410ENDPROC
  420:
  430DEFPROCcard(card%,suit%)
  440VDU5
  450IF(suit%=1 ORsuit%=3) col%=1 ELSEIF(suit%=2 ORsuit%=4) col%=2
  460suit%=suit%+223
  470VDU24,X%-4;Y%-4;X%+100;Y%+132;:GCOL0,131:CLG
  480GCOL0,2:MOVEX%-4,Y%-4:DRAWX%-4,Y%+132:DRAWX%+100,Y%+132:DRAWX%+100,Y%-4:DRAWX%-4,Y%-4
  490IFcard%=1 cd%=65
  500IFcard%=11 cd%=ASC"J"
  510IFcard%=12 cd%=ASC"Q"
  520IFcard%=13 cd%=ASC"K"
  530IFcard%>1 ANDcard%<10 cd%=card%+48
  540IFcard%=10 cd%=229
  550PROCp
  560PROCpp
  570ENDPROC
  580:
  590DEFPROCp
  600MOVEX%,Y%+28:GCOL0,col%:PRINT;CHR$suit%:MOVEX%,Y%+128:PRINT;CHR$cd%
  610MOVEX%+64,Y%+28:PRINT;CHR$cd%:MOVEX%+64,Y%+128:PRINT;CHR$suit%
  620ENDPROC
  630:
  640DEFPROCpp
  650IFcard%=1 MOVEX%+32,Y%+80:PRINT;CHR$suit%:ENDPROC
  660IFcard%=2 MOVEX%+32,Y%+120:PRINT;CHR$239;:MOVEX%+32,Y%+56:PRINT;CHR$239:ENDPROC
  670IFcard%=3 MOVEX%+32,Y%+120:PRINT;CHR$239;:MOVEX%+32,Y%+88:PRINT;CHR$239;:MOVEX%+32,Y%+56:PRINT;CHR$239:ENDPROC
  680IFcard%=4 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  690IFcard%=5 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+88:PRINT;CHR$239;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  700IFcard%=6 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+72:PRINT;CHR$240;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  710IFcard%=7 MOVEX%+32,Y%+104:PROCfive:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  720IFcard%=8 MOVEX%+32,Y%+104:PRINT;CHR$241;:MOVEX%+32,Y%+72:PROCfive:ENDPROC
  730IFcard%=9 MOVEX%+32,Y%+112:PRINT;CHR$240;:MOVEX%+32,Y%+88:PROCfive:MOVEX%+32,Y%+32:PRINT;CHR$240:ENDPROC
  740IFcard%=10 MOVEX%+32,Y%+112:PROCfive:MOVEX%+32,Y%+66:PROCfive:ENDPROC
  750IFcard%=11 C$=CHR$242 ELSEIFcard%=12 C$=CHR$243 ELSEIFcard%=13 C$=CHR$244
  760IFcard%=11 D$=CHR$248+CHR$249+CHR$252 ELSEIFcard%=12 D$=CHR$248+CHR$250+CHR$252 ELSEIFcard%=13 D$=CHR$248+CHR$251+CHR$252
  770MOVEX%+32,Y%+128:PRINTC$
  780MOVEX%,Y%+96:PRINTCHR$245+CHR$246+CHR$247
  790GCOL0,0:MOVEX%,Y%+64:PRINTD$:GCOL0,col%
  800MOVEX%+32,Y%+32:PRINTCHR$253:ENDPROC
  810:
  820DEFPROCinit
  830VDU5:PROCtitle
  840MOVE400,944:PRINT"Deal No. ";M%
  850n%=1:FORI%=1TO17:FORJ%=1TO3
  860C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
  870NEXT:NEXT
  880FORN%=1TO17:D%(N%)=3:NEXT
  890to%=1:TC%(1)=1:TS%(1)=4
  900ENDPROC
  910:
  920DEFPROCdeal
  930x%=126:y%=848
  940VDU5:FORz%=1TO5
  950MOVEx%,y%:PRINTCHR$(64+z%)
  960x%=x%+252
  970NEXT
  980x%=126:y%=656:n%=69
  990FORm%=1TO2
 1000FORl%=1TO2
 1010FORz%=1TO2
 1020MOVEx%,y%:PRINTCHR$(n%+z%)
 1030x%=x%+252
 1040NEXT
 1050x%=x%+252:n%=n%+2
 1060NEXT
 1070y%=y%-192:x%=126
 1080NEXT
 1090x%=270
 1100FORz%=1TO4
 1110MOVEx%,y%:PRINTCHR$(77+z%)
 1120x%=x%+252
 1130NEXT
 1140Y%=684:X%=36
 1150FORI%=1TO5
 1160PROCdeal3
 1170X%=X%+144
 1180NEXT
 1190Y%=Y%-192:X%=36
 1200FORI%=6TO9
 1210PROCdeal3
 1220X%=X%+144
 1230IFI%=7 X%=X%+252
 1240NEXT
 1250Y%=Y%-192:X%=36
 1260FORI%=10TO13
 1270PROCdeal3
 1280X%=X%+144
 1290IFI%=11 X%=X%+252
 1300NEXT
 1310Y%=Y%-192:X%=176
 1320FORI%=14TO17
 1330PROCdeal3
 1340X%=X%+144
 1350NEXT
 1360Y%=408:X%=578
 1370S%=4:C%=1
 1380PROCcard(C%,S%)
 1390:
 1400ENDPROC
 1410DEFPROCdeal3
 1420n%=n%+1
 1430FORJ%=1TO3
 1440C%=C%(I%,J%):S%=S%(I%,J%)
 1450PROCcard(C%,S%)
 1460X%=X%+36
 1470NEXT
 1480ENDPROC
 1490DEFPROCkey
 1500REPEAT:a%=INSTR("ABCDEFGHIJKLMNOPQ",GET$):UNTILa%
 1510from%=a%
 1520ENDPROC
 1530DEFPROCmove:M%=TRUE
 1540IFD%(from%)=-1 M%=FALSE:ENDPROC
 1550IFC%(from%,D%(from%))=1 ANDTC%(to%)=13 GOTO1580
 1560IFC%(from%,D%(from%))=13 ANDTC%(to%)=1 GOTO1580
 1570IFC%(from%,D%(from%))-1=TC%(to%) ORC%(from%,D%(from%))+1=TC%(to%) GOTO1580 ELSEENDPROC
 1580:
 1590C1%=C%(from%,D%(from%)):S1%=S%(from%,D%(from%))
 1600D%(from%)=D%(from%)-1:D%=D%(from%)
 1610IFfrom%<6 Y%=684:X%=252*(from%-1)
 1620IFfrom%>5 ANDfrom%<10 Y%=492:X%=252*(from%-6)+(252 ANDfrom%>7)
 1630IFfrom%>9 ANDfrom%<14 Y%=300:X%=252*(from%-10)+(252 ANDfrom%>11)
 1640IFfrom%>13 Y%=108:X%=252*(from%-14) +144
 1650XX%=X%
 1660PROCblank
 1670FORJ%=1TOD%
 1680C%=C%(from%,J%):S%=S%(from%,J%)
 1690X%=X%+36
 1700PROCcard(C%,S%)
 1710NEXT
 1720IFD%(from%)=0 PROCblank
 1730to%=to%+1
 1740TC%(to%)=C1%:TS%(to%)=S1%
 1750C%=TC%(to%):S%=TS%(to%)
 1760Y%=408:X%=578
 1770PROCcard(C%,S%)
 1780ENDPROC
 1790DEFPROCblank
 1800VDU5,24,XX%+16;Y%-4;XX%+216;Y%+136;:GCOL0,128:CLG
 1810ENDPROC
 1820*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
 1830*FX138,0,128
 1840END
 1850DEFPROCwin:VDU23,1,0;0;0;0;
 1860PRINTTAB(11,4)"CONGRATULATIONS!!"
 1870PRINTTAB(11,5)"-----------------"
 1880PRINTTAB(4,8)"You have completed Deal no. ";M%
 1890PRINTTAB(13,10)"in ";move%;" moves"
 1900PRINTTAB(10,14)"Another deal?  (Y/N)"
 1910REPEAT:K$=INKEY$0:UNTILK$="Y" ORK$="N"
 1920move%=0:ENDPROC
 1930,


 � **************************
� Blackhole
� By R.A.Dimond
(� (c) Version 2 May 2000
2 � **************************
<%� �=17 � ��6:�:�" at line ";�:�
F*FX21,0
K*FX200,0
P� �>&E00 �T\G
Z�1:�23;8202;0;0;0;
d�19,0,4;0;19,2,0;0;
nC� N%(51),c%(51),s%(51),C%(17,3),S%(17,3),D%(17),TC%(52),TS%(52)
xm$="":move%=0
�(�:�26,4:�:�random:�init:�deal:win%=�
��:�26,4
��key
�	�move
��0
��
�:
���title
��5:�430,1000:�"BLACKHOLE"
��430,968:��9,"~")
��
�:
���random
	*FX15

�title
�''"Enter Deal No. "M%
"�M%=0 M%=�(�(-�))
,G=�(-M%)
6S�I%=1�51:N%(I%)=I%:�:�I%=51�2�-1:D%=�(I%):T%=N%(D%):N%(D%)=N%(I%):N%(I%)=T%:�I%
@�:�i%=1�51:�c%(i%),s%(i%):�
J�
T�
^:
ht�8,1,3,2,11,4,12,1,4,2,9,1,6,2,2,3,7,3,10,3,5,2,13,2,5,1,2,4,10,2,8,2,6,1,3,1,9,4,11,3,7,2,13,4,4,3,12,2,1,1,1,3
rp�10,1,12,4,4,1,13,1,8,3,2,1,7,1,11,2,3,4,9,2,6,4,13,3,7,4,2,2,11,1,5,3,9,3,6,3,4,4,10,4,3,3,8,4,5,4,12,3,1,2
|:
�
��five
��;�241;�8;�10;�240;�8;�10;
��
�:
���card(card%,suit%)
��5
�:�(suit%=1 �suit%=3) col%=1 ��(suit%=2 �suit%=4) col%=2
�suit%=suit%+223
�)�24,X%-4;Y%-4;X%+100;Y%+132;:�0,131:�
�G�0,2:�X%-4,Y%-4:�X%-4,Y%+132:�X%+100,Y%+132:�X%+100,Y%-4:�X%-4,Y%-4
��card%=1 cd%=65
��card%=11 cd%=�"J"
��card%=12 cd%=�"Q"
�card%=13 cd%=�"K"
#�card%>1 �card%<10 cd%=card%+48
�card%=10 cd%=229
&�p
0�pp
:�
D:
N��p
X0�X%,Y%+28:�0,col%:�;�suit%:�X%,Y%+128:�;�cd%
b.�X%+64,Y%+28:�;�cd%:�X%+64,Y%+128:�;�suit%
l�
v:
���pp
�$�card%=1 �X%+32,Y%+80:�;�suit%:�
�8�card%=2 �X%+32,Y%+120:�;�239;:�X%+32,Y%+56:�;�239:�
�M�card%=3 �X%+32,Y%+120:�;�239;:�X%+32,Y%+88:�;�239;:�X%+32,Y%+56:�;�239:�
�8�card%=4 �X%+32,Y%+104:�;�240;:�X%+32,Y%+40:�;�240:�
�M�card%=5 �X%+32,Y%+104:�;�240;:�X%+32,Y%+88:�;�239;:�X%+32,Y%+40:�;�240:�
�M�card%=6 �X%+32,Y%+104:�;�240;:�X%+32,Y%+72:�;�240;:�X%+32,Y%+40:�;�240:�
�6�card%=7 �X%+32,Y%+104:�five:�X%+32,Y%+40:�;�240:�
�7�card%=8 �X%+32,Y%+104:�;�241;:�X%+32,Y%+72:�five:�
�K�card%=9 �X%+32,Y%+112:�;�240;:�X%+32,Y%+88:�five:�X%+32,Y%+32:�;�240:�
�6�card%=10 �X%+32,Y%+112:�five:�X%+32,Y%+66:�five:�
�;�card%=11 C$=�242 ��card%=12 C$=�243 ��card%=13 C$=�244
�Y�card%=11 D$=�248+�249+�252 ��card%=12 D$=�248+�250+�252 ��card%=13 D$=�248+�251+�252
�X%+32,Y%+128:�C$
�X%,Y%+96:�245+�246+�247
�0,0:�X%,Y%+64:�D$:�0,col%
 �X%+32,Y%+32:�253:�
*:
4
��init
>
�5:�title
H�400,944:�"Deal No. ";M%
Rn%=1:�I%=1�17:�J%=1�3
\5C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
f�:�
p�N%=1�17:D%(N%)=3:�
zto%=1:TC%(1)=1:TS%(1)=4
��
�:
�
��deal
�x%=126:y%=848
��5:�z%=1�5
��x%,y%:�(64+z%)
�
x%=x%+252
��
�x%=126:y%=656:n%=69
��m%=1�2
��l%=1�2
��z%=1�2
��x%,y%:�(n%+z%)

x%=x%+252
�
x%=x%+252:n%=n%+2
$�
.y%=y%-192:x%=126
8�
B
x%=270
L�z%=1�4
V�x%,y%:�(77+z%)
`
x%=x%+252
j�
tY%=684:X%=36
~�I%=1�5
�
�deal3
�
X%=X%+144
��
�Y%=Y%-192:X%=36
��I%=6�9
�
�deal3
�
X%=X%+144
��I%=7 X%=X%+252
��
�Y%=Y%-192:X%=36
�
�I%=10�13
�
�deal3

X%=X%+144

�I%=11 X%=X%+252
�
Y%=Y%-192:X%=176
(
�I%=14�17
2
�deal3
<
X%=X%+144
F�
PY%=408:X%=578
Z
S%=4:C%=1
d�card(C%,S%)
n:
x�
���deal3
�n%=n%+1
��J%=1�3
�C%=C%(I%,J%):S%=S%(I%,J%)
��card(C%,S%)
�X%=X%+36
��
��
�	��key
�$�:a%=�"ABCDEFGHIJKLMNOPQ",�):�a%
�from%=a%
��
���move:M%=�
�D%(from%)=-1 M%=�:�
-�C%(from%,D%(from%))=1 �TC%(to%)=13 �TlF
-�C%(from%,D%(from%))=13 �TC%(to%)=1 �TlF
"L�C%(from%,D%(from%))-1=TC%(to%) �C%(from%,D%(from%))+1=TC%(to%) �TlF ��
,:
63C1%=C%(from%,D%(from%)):S1%=S%(from%,D%(from%))
@&D%(from%)=D%(from%)-1:D%=D%(from%)
J$�from%<6 Y%=684:X%=252*(from%-1)
T=�from%>5 �from%<10 Y%=492:X%=252*(from%-6)+(252 �from%>7)
^?�from%>9 �from%<14 Y%=300:X%=252*(from%-10)+(252 �from%>11)
h+�from%>13 Y%=108:X%=252*(from%-14) +144
r
XX%=X%
|
�blank
��J%=1�D%
�#C%=C%(from%,J%):S%=S%(from%,J%)
�X%=X%+36
��card(C%,S%)
��
��D%(from%)=0 �blank
�
to%=to%+1
�TC%(to%)=C1%:TS%(to%)=S1%
�C%=TC%(to%):S%=TS%(to%)
�Y%=408:X%=578
��card(C%,S%)
��
���blank
.�5,24,XX%+16;Y%-4;XX%+216;Y%+136;:�0,128:�
�
R*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
&*FX138,0,128
0�
:��win:�23,1,0;0;0;0;
D�11,4)"CONGRATULATIONS!!"
N�11,5)"-----------------"
X+�4,8)"You have completed Deal no. ";M%
b �13,10)"in ";move%;" moves"
l"�10,14)"Another deal?  (Y/N)"
v�:K$=�0:�K$="Y" �K$="N"
�
move%=0:�
�,
�

00000000  0d 00 0a 20 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |... . **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000020  0d 00 14 0f f4 20 42 6c  61 63 6b 68 6f 6c 65 0d  |..... Blackhole.|
00000030  00 1e 13 f4 20 42 79 20  52 2e 41 2e 44 69 6d 6f  |.... By R.A.Dimo|
00000040  6e 64 0d 00 28 1c f4 20  28 63 29 20 56 65 72 73  |nd..(.. (c) Vers|
00000050  69 6f 6e 20 32 20 4d 61  79 20 32 30 30 30 0d 00  |ion 2 May 2000..|
00000060  32 20 f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |2 . ************|
00000070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 00  |**************..|
00000080  3c 25 ee 85 20 e7 9f 3d  31 37 20 f9 20 8b eb 36  |<%.. ..=17 . ..6|
00000090  3a f6 3a f1 22 20 61 74  20 6c 69 6e 65 20 22 3b  |:.:." at line ";|
000000a0  9e 3a e0 0d 00 46 0b 2a  46 58 32 31 2c 30 0d 00  |.:...F.*FX21,0..|
000000b0  4b 0c 2a 46 58 32 30 30  2c 30 0d 00 50 12 e7 20  |K.*FX200,0..P.. |
000000c0  90 3e 26 45 30 30 20 e5  8d 54 5c 47 0d 00 5a 16  |.>&E00 ..T\G..Z.|
000000d0  eb 31 3a ef 32 33 3b 38  32 30 32 3b 30 3b 30 3b  |.1:.23;8202;0;0;|
000000e0  30 3b 0d 00 64 17 ef 31  39 2c 30 2c 34 3b 30 3b  |0;..d..19,0,4;0;|
000000f0  31 39 2c 32 2c 30 3b 30  3b 0d 00 6e 43 de 20 4e  |19,2,0;0;..nC. N|
00000100  25 28 35 31 29 2c 63 25  28 35 31 29 2c 73 25 28  |%(51),c%(51),s%(|
00000110  35 31 29 2c 43 25 28 31  37 2c 33 29 2c 53 25 28  |51),C%(17,3),S%(|
00000120  31 37 2c 33 29 2c 44 25  28 31 37 29 2c 54 43 25  |17,3),D%(17),TC%|
00000130  28 35 32 29 2c 54 53 25  28 35 32 29 0d 00 78 11  |(52),TS%(52)..x.|
00000140  6d 24 3d 22 22 3a 6d 6f  76 65 25 3d 30 0d 00 82  |m$="":move%=0...|
00000150  28 f5 3a ef 32 36 2c 34  3a db 3a f2 72 61 6e 64  |(.:.26,4:.:.rand|
00000160  6f 6d 3a f2 69 6e 69 74  3a f2 64 65 61 6c 3a 77  |om:.init:.deal:w|
00000170  69 6e 25 3d a3 0d 00 8c  0b f5 3a ef 32 36 2c 34  |in%=......:.26,4|
00000180  0d 00 96 08 f2 6b 65 79  0d 00 a0 09 f2 6d 6f 76  |.....key.....mov|
00000190  65 0d 00 aa 06 fd 30 0d  00 b4 05 e0 0d 00 be 05  |e.....0.........|
000001a0  3a 0d 00 c8 0b dd f2 74  69 74 6c 65 0d 00 d2 1d  |:......title....|
000001b0  ef 35 3a ec 34 33 30 2c  31 30 30 30 3a f1 22 42  |.5:.430,1000:."B|
000001c0  4c 41 43 4b 48 4f 4c 45  22 0d 00 dc 15 ec 34 33  |LACKHOLE".....43|
000001d0  30 2c 39 36 38 3a f1 c4  39 2c 22 7e 22 29 0d 00  |0,968:..9,"~")..|
000001e0  e6 05 e1 0d 00 f0 05 3a  0d 00 fa 0c dd f2 72 61  |.......:......ra|
000001f0  6e 64 6f 6d 0d 01 04 09  2a 46 58 31 35 0d 01 0e  |ndom....*FX15...|
00000200  0a f2 74 69 74 6c 65 0d  01 18 1a e8 27 27 22 45  |..title.....''"E|
00000210  6e 74 65 72 20 44 65 61  6c 20 4e 6f 2e 20 22 4d  |nter Deal No. "M|
00000220  25 0d 01 22 15 e7 4d 25  3d 30 20 4d 25 3d 94 28  |%.."..M%=0 M%=.(|
00000230  b3 28 2d 91 29 29 0d 01  2c 0c 47 3d b3 28 2d 4d  |.(-.))..,.G=.(-M|
00000240  25 29 0d 01 36 53 e3 49  25 3d 31 b8 35 31 3a 4e  |%)..6S.I%=1.51:N|
00000250  25 28 49 25 29 3d 49 25  3a ed 3a e3 49 25 3d 35  |%(I%)=I%:.:.I%=5|
00000260  31 b8 32 88 2d 31 3a 44  25 3d b3 28 49 25 29 3a  |1.2.-1:D%=.(I%):|
00000270  54 25 3d 4e 25 28 44 25  29 3a 4e 25 28 44 25 29  |T%=N%(D%):N%(D%)|
00000280  3d 4e 25 28 49 25 29 3a  4e 25 28 49 25 29 3d 54  |=N%(I%):N%(I%)=T|
00000290  25 3a ed 49 25 0d 01 40  1f f7 3a e3 69 25 3d 31  |%:.I%..@..:.i%=1|
000002a0  b8 35 31 3a f3 63 25 28  69 25 29 2c 73 25 28 69  |.51:.c%(i%),s%(i|
000002b0  25 29 3a ed 0d 01 4a 05  db 0d 01 54 05 e1 0d 01  |%):...J....T....|
000002c0  5e 05 3a 0d 01 68 74 dc  38 2c 31 2c 33 2c 32 2c  |^.:..ht.8,1,3,2,|
000002d0  31 31 2c 34 2c 31 32 2c  31 2c 34 2c 32 2c 39 2c  |11,4,12,1,4,2,9,|
000002e0  31 2c 36 2c 32 2c 32 2c  33 2c 37 2c 33 2c 31 30  |1,6,2,2,3,7,3,10|
000002f0  2c 33 2c 35 2c 32 2c 31  33 2c 32 2c 35 2c 31 2c  |,3,5,2,13,2,5,1,|
00000300  32 2c 34 2c 31 30 2c 32  2c 38 2c 32 2c 36 2c 31  |2,4,10,2,8,2,6,1|
00000310  2c 33 2c 31 2c 39 2c 34  2c 31 31 2c 33 2c 37 2c  |,3,1,9,4,11,3,7,|
00000320  32 2c 31 33 2c 34 2c 34  2c 33 2c 31 32 2c 32 2c  |2,13,4,4,3,12,2,|
00000330  31 2c 31 2c 31 2c 33 0d  01 72 70 dc 31 30 2c 31  |1,1,1,3..rp.10,1|
00000340  2c 31 32 2c 34 2c 34 2c  31 2c 31 33 2c 31 2c 38  |,12,4,4,1,13,1,8|
00000350  2c 33 2c 32 2c 31 2c 37  2c 31 2c 31 31 2c 32 2c  |,3,2,1,7,1,11,2,|
00000360  33 2c 34 2c 39 2c 32 2c  36 2c 34 2c 31 33 2c 33  |3,4,9,2,6,4,13,3|
00000370  2c 37 2c 34 2c 32 2c 32  2c 31 31 2c 31 2c 35 2c  |,7,4,2,2,11,1,5,|
00000380  33 2c 39 2c 33 2c 36 2c  33 2c 34 2c 34 2c 31 30  |3,9,3,6,3,4,4,10|
00000390  2c 34 2c 33 2c 33 2c 38  2c 34 2c 35 2c 34 2c 31  |,4,3,3,8,4,5,4,1|
000003a0  32 2c 33 2c 31 2c 32 0d  01 7c 05 3a 0d 01 86 0a  |2,3,1,2..|.:....|
000003b0  dd f2 66 69 76 65 0d 01  90 1e f1 3b bd 32 34 31  |..five.....;.241|
000003c0  3b bd 38 3b bd 31 30 3b  bd 32 34 30 3b bd 38 3b  |;.8;.10;.240;.8;|
000003d0  bd 31 30 3b 0d 01 9a 05  e1 0d 01 a4 05 3a 0d 01  |.10;.........:..|
000003e0  ae 17 dd f2 63 61 72 64  28 63 61 72 64 25 2c 73  |....card(card%,s|
000003f0  75 69 74 25 29 0d 01 b8  06 ef 35 0d 01 c2 3a e7  |uit%).....5...:.|
00000400  28 73 75 69 74 25 3d 31  20 84 73 75 69 74 25 3d  |(suit%=1 .suit%=|
00000410  33 29 20 63 6f 6c 25 3d  31 20 8b e7 28 73 75 69  |3) col%=1 ..(sui|
00000420  74 25 3d 32 20 84 73 75  69 74 25 3d 34 29 20 63  |t%=2 .suit%=4) c|
00000430  6f 6c 25 3d 32 0d 01 cc  13 73 75 69 74 25 3d 73  |ol%=2....suit%=s|
00000440  75 69 74 25 2b 32 32 33  0d 01 d6 29 ef 32 34 2c  |uit%+223...).24,|
00000450  58 25 2d 34 3b 59 25 2d  34 3b 58 25 2b 31 30 30  |X%-4;Y%-4;X%+100|
00000460  3b 59 25 2b 31 33 32 3b  3a e6 30 2c 31 33 31 3a  |;Y%+132;:.0,131:|
00000470  da 0d 01 e0 47 e6 30 2c  32 3a ec 58 25 2d 34 2c  |....G.0,2:.X%-4,|
00000480  59 25 2d 34 3a df 58 25  2d 34 2c 59 25 2b 31 33  |Y%-4:.X%-4,Y%+13|
00000490  32 3a df 58 25 2b 31 30  30 2c 59 25 2b 31 33 32  |2:.X%+100,Y%+132|
000004a0  3a df 58 25 2b 31 30 30  2c 59 25 2d 34 3a df 58  |:.X%+100,Y%-4:.X|
000004b0  25 2d 34 2c 59 25 2d 34  0d 01 ea 13 e7 63 61 72  |%-4,Y%-4.....car|
000004c0  64 25 3d 31 20 63 64 25  3d 36 35 0d 01 f4 16 e7  |d%=1 cd%=65.....|
000004d0  63 61 72 64 25 3d 31 31  20 63 64 25 3d 97 22 4a  |card%=11 cd%=."J|
000004e0  22 0d 01 fe 16 e7 63 61  72 64 25 3d 31 32 20 63  |".....card%=12 c|
000004f0  64 25 3d 97 22 51 22 0d  02 08 16 e7 63 61 72 64  |d%=."Q".....card|
00000500  25 3d 31 33 20 63 64 25  3d 97 22 4b 22 0d 02 12  |%=13 cd%=."K"...|
00000510  23 e7 63 61 72 64 25 3e  31 20 80 63 61 72 64 25  |#.card%>1 .card%|
00000520  3c 31 30 20 63 64 25 3d  63 61 72 64 25 2b 34 38  |<10 cd%=card%+48|
00000530  0d 02 1c 15 e7 63 61 72  64 25 3d 31 30 20 63 64  |.....card%=10 cd|
00000540  25 3d 32 32 39 0d 02 26  06 f2 70 0d 02 30 07 f2  |%=229..&..p..0..|
00000550  70 70 0d 02 3a 05 e1 0d  02 44 05 3a 0d 02 4e 07  |pp..:....D.:..N.|
00000560  dd f2 70 0d 02 58 30 ec  58 25 2c 59 25 2b 32 38  |..p..X0.X%,Y%+28|
00000570  3a e6 30 2c 63 6f 6c 25  3a f1 3b bd 73 75 69 74  |:.0,col%:.;.suit|
00000580  25 3a ec 58 25 2c 59 25  2b 31 32 38 3a f1 3b bd  |%:.X%,Y%+128:.;.|
00000590  63 64 25 0d 02 62 2e ec  58 25 2b 36 34 2c 59 25  |cd%..b..X%+64,Y%|
000005a0  2b 32 38 3a f1 3b bd 63  64 25 3a ec 58 25 2b 36  |+28:.;.cd%:.X%+6|
000005b0  34 2c 59 25 2b 31 32 38  3a f1 3b bd 73 75 69 74  |4,Y%+128:.;.suit|
000005c0  25 0d 02 6c 05 e1 0d 02  76 05 3a 0d 02 80 08 dd  |%..l....v.:.....|
000005d0  f2 70 70 0d 02 8a 24 e7  63 61 72 64 25 3d 31 20  |.pp...$.card%=1 |
000005e0  ec 58 25 2b 33 32 2c 59  25 2b 38 30 3a f1 3b bd  |.X%+32,Y%+80:.;.|
000005f0  73 75 69 74 25 3a e1 0d  02 94 38 e7 63 61 72 64  |suit%:....8.card|
00000600  25 3d 32 20 ec 58 25 2b  33 32 2c 59 25 2b 31 32  |%=2 .X%+32,Y%+12|
00000610  30 3a f1 3b bd 32 33 39  3b 3a ec 58 25 2b 33 32  |0:.;.239;:.X%+32|
00000620  2c 59 25 2b 35 36 3a f1  3b bd 32 33 39 3a e1 0d  |,Y%+56:.;.239:..|
00000630  02 9e 4d e7 63 61 72 64  25 3d 33 20 ec 58 25 2b  |..M.card%=3 .X%+|
00000640  33 32 2c 59 25 2b 31 32  30 3a f1 3b bd 32 33 39  |32,Y%+120:.;.239|
00000650  3b 3a ec 58 25 2b 33 32  2c 59 25 2b 38 38 3a f1  |;:.X%+32,Y%+88:.|
00000660  3b bd 32 33 39 3b 3a ec  58 25 2b 33 32 2c 59 25  |;.239;:.X%+32,Y%|
00000670  2b 35 36 3a f1 3b bd 32  33 39 3a e1 0d 02 a8 38  |+56:.;.239:....8|
00000680  e7 63 61 72 64 25 3d 34  20 ec 58 25 2b 33 32 2c  |.card%=4 .X%+32,|
00000690  59 25 2b 31 30 34 3a f1  3b bd 32 34 30 3b 3a ec  |Y%+104:.;.240;:.|
000006a0  58 25 2b 33 32 2c 59 25  2b 34 30 3a f1 3b bd 32  |X%+32,Y%+40:.;.2|
000006b0  34 30 3a e1 0d 02 b2 4d  e7 63 61 72 64 25 3d 35  |40:....M.card%=5|
000006c0  20 ec 58 25 2b 33 32 2c  59 25 2b 31 30 34 3a f1  | .X%+32,Y%+104:.|
000006d0  3b bd 32 34 30 3b 3a ec  58 25 2b 33 32 2c 59 25  |;.240;:.X%+32,Y%|
000006e0  2b 38 38 3a f1 3b bd 32  33 39 3b 3a ec 58 25 2b  |+88:.;.239;:.X%+|
000006f0  33 32 2c 59 25 2b 34 30  3a f1 3b bd 32 34 30 3a  |32,Y%+40:.;.240:|
00000700  e1 0d 02 bc 4d e7 63 61  72 64 25 3d 36 20 ec 58  |....M.card%=6 .X|
00000710  25 2b 33 32 2c 59 25 2b  31 30 34 3a f1 3b bd 32  |%+32,Y%+104:.;.2|
00000720  34 30 3b 3a ec 58 25 2b  33 32 2c 59 25 2b 37 32  |40;:.X%+32,Y%+72|
00000730  3a f1 3b bd 32 34 30 3b  3a ec 58 25 2b 33 32 2c  |:.;.240;:.X%+32,|
00000740  59 25 2b 34 30 3a f1 3b  bd 32 34 30 3a e1 0d 02  |Y%+40:.;.240:...|
00000750  c6 36 e7 63 61 72 64 25  3d 37 20 ec 58 25 2b 33  |.6.card%=7 .X%+3|
00000760  32 2c 59 25 2b 31 30 34  3a f2 66 69 76 65 3a ec  |2,Y%+104:.five:.|
00000770  58 25 2b 33 32 2c 59 25  2b 34 30 3a f1 3b bd 32  |X%+32,Y%+40:.;.2|
00000780  34 30 3a e1 0d 02 d0 37  e7 63 61 72 64 25 3d 38  |40:....7.card%=8|
00000790  20 ec 58 25 2b 33 32 2c  59 25 2b 31 30 34 3a f1  | .X%+32,Y%+104:.|
000007a0  3b bd 32 34 31 3b 3a ec  58 25 2b 33 32 2c 59 25  |;.241;:.X%+32,Y%|
000007b0  2b 37 32 3a f2 66 69 76  65 3a e1 0d 02 da 4b e7  |+72:.five:....K.|
000007c0  63 61 72 64 25 3d 39 20  ec 58 25 2b 33 32 2c 59  |card%=9 .X%+32,Y|
000007d0  25 2b 31 31 32 3a f1 3b  bd 32 34 30 3b 3a ec 58  |%+112:.;.240;:.X|
000007e0  25 2b 33 32 2c 59 25 2b  38 38 3a f2 66 69 76 65  |%+32,Y%+88:.five|
000007f0  3a ec 58 25 2b 33 32 2c  59 25 2b 33 32 3a f1 3b  |:.X%+32,Y%+32:.;|
00000800  bd 32 34 30 3a e1 0d 02  e4 36 e7 63 61 72 64 25  |.240:....6.card%|
00000810  3d 31 30 20 ec 58 25 2b  33 32 2c 59 25 2b 31 31  |=10 .X%+32,Y%+11|
00000820  32 3a f2 66 69 76 65 3a  ec 58 25 2b 33 32 2c 59  |2:.five:.X%+32,Y|
00000830  25 2b 36 36 3a f2 66 69  76 65 3a e1 0d 02 ee 3b  |%+66:.five:....;|
00000840  e7 63 61 72 64 25 3d 31  31 20 43 24 3d bd 32 34  |.card%=11 C$=.24|
00000850  32 20 8b e7 63 61 72 64  25 3d 31 32 20 43 24 3d  |2 ..card%=12 C$=|
00000860  bd 32 34 33 20 8b e7 63  61 72 64 25 3d 31 33 20  |.243 ..card%=13 |
00000870  43 24 3d bd 32 34 34 0d  02 f8 59 e7 63 61 72 64  |C$=.244...Y.card|
00000880  25 3d 31 31 20 44 24 3d  bd 32 34 38 2b bd 32 34  |%=11 D$=.248+.24|
00000890  39 2b bd 32 35 32 20 8b  e7 63 61 72 64 25 3d 31  |9+.252 ..card%=1|
000008a0  32 20 44 24 3d bd 32 34  38 2b bd 32 35 30 2b bd  |2 D$=.248+.250+.|
000008b0  32 35 32 20 8b e7 63 61  72 64 25 3d 31 33 20 44  |252 ..card%=13 D|
000008c0  24 3d bd 32 34 38 2b bd  32 35 31 2b bd 32 35 32  |$=.248+.251+.252|
000008d0  0d 03 02 15 ec 58 25 2b  33 32 2c 59 25 2b 31 32  |.....X%+32,Y%+12|
000008e0  38 3a f1 43 24 0d 03 0c  1d ec 58 25 2c 59 25 2b  |8:.C$.....X%,Y%+|
000008f0  39 36 3a f1 bd 32 34 35  2b bd 32 34 36 2b bd 32  |96:..245+.246+.2|
00000900  34 37 0d 03 16 1e e6 30  2c 30 3a ec 58 25 2c 59  |47.....0,0:.X%,Y|
00000910  25 2b 36 34 3a f1 44 24  3a e6 30 2c 63 6f 6c 25  |%+64:.D$:.0,col%|
00000920  0d 03 20 18 ec 58 25 2b  33 32 2c 59 25 2b 33 32  |.. ..X%+32,Y%+32|
00000930  3a f1 bd 32 35 33 3a e1  0d 03 2a 05 3a 0d 03 34  |:..253:...*.:..4|
00000940  0a dd f2 69 6e 69 74 0d  03 3e 0d ef 35 3a f2 74  |...init..>..5:.t|
00000950  69 74 6c 65 0d 03 48 1c  ec 34 30 30 2c 39 34 34  |itle..H..400,944|
00000960  3a f1 22 44 65 61 6c 20  4e 6f 2e 20 22 3b 4d 25  |:."Deal No. ";M%|
00000970  0d 03 52 19 6e 25 3d 31  3a e3 49 25 3d 31 b8 31  |..R.n%=1:.I%=1.1|
00000980  37 3a e3 4a 25 3d 31 b8  33 0d 03 5c 35 43 25 28  |7:.J%=1.3..\5C%(|
00000990  49 25 2c 4a 25 29 3d 63  25 28 4e 25 28 6e 25 29  |I%,J%)=c%(N%(n%)|
000009a0  29 3a 53 25 28 49 25 2c  4a 25 29 3d 73 25 28 4e  |):S%(I%,J%)=s%(N|
000009b0  25 28 6e 25 29 29 3a 6e  25 3d 6e 25 2b 31 0d 03  |%(n%)):n%=n%+1..|
000009c0  66 07 ed 3a ed 0d 03 70  17 e3 4e 25 3d 31 b8 31  |f..:...p..N%=1.1|
000009d0  37 3a 44 25 28 4e 25 29  3d 33 3a ed 0d 03 7a 1b  |7:D%(N%)=3:...z.|
000009e0  74 6f 25 3d 31 3a 54 43  25 28 31 29 3d 31 3a 54  |to%=1:TC%(1)=1:T|
000009f0  53 25 28 31 29 3d 34 0d  03 84 05 e1 0d 03 8e 05  |S%(1)=4.........|
00000a00  3a 0d 03 98 0a dd f2 64  65 61 6c 0d 03 a2 11 78  |:......deal....x|
00000a10  25 3d 31 32 36 3a 79 25  3d 38 34 38 0d 03 ac 0e  |%=126:y%=848....|
00000a20  ef 35 3a e3 7a 25 3d 31  b8 35 0d 03 b6 14 ec 78  |.5:.z%=1.5.....x|
00000a30  25 2c 79 25 3a f1 bd 28  36 34 2b 7a 25 29 0d 03  |%,y%:..(64+z%)..|
00000a40  c0 0d 78 25 3d 78 25 2b  32 35 32 0d 03 ca 05 ed  |..x%=x%+252.....|
00000a50  0d 03 d4 17 78 25 3d 31  32 36 3a 79 25 3d 36 35  |....x%=126:y%=65|
00000a60  36 3a 6e 25 3d 36 39 0d  03 de 0b e3 6d 25 3d 31  |6:n%=69.....m%=1|
00000a70  b8 32 0d 03 e8 0b e3 6c  25 3d 31 b8 32 0d 03 f2  |.2.....l%=1.2...|
00000a80  0b e3 7a 25 3d 31 b8 32  0d 03 fc 14 ec 78 25 2c  |..z%=1.2.....x%,|
00000a90  79 25 3a f1 bd 28 6e 25  2b 7a 25 29 0d 04 06 0d  |y%:..(n%+z%)....|
00000aa0  78 25 3d 78 25 2b 32 35  32 0d 04 10 05 ed 0d 04  |x%=x%+252.......|
00000ab0  1a 15 78 25 3d 78 25 2b  32 35 32 3a 6e 25 3d 6e  |..x%=x%+252:n%=n|
00000ac0  25 2b 32 0d 04 24 05 ed  0d 04 2e 14 79 25 3d 79  |%+2..$......y%=y|
00000ad0  25 2d 31 39 32 3a 78 25  3d 31 32 36 0d 04 38 05  |%-192:x%=126..8.|
00000ae0  ed 0d 04 42 0a 78 25 3d  32 37 30 0d 04 4c 0b e3  |...B.x%=270..L..|
00000af0  7a 25 3d 31 b8 34 0d 04  56 14 ec 78 25 2c 79 25  |z%=1.4..V..x%,y%|
00000b00  3a f1 bd 28 37 37 2b 7a  25 29 0d 04 60 0d 78 25  |:..(77+z%)..`.x%|
00000b10  3d 78 25 2b 32 35 32 0d  04 6a 05 ed 0d 04 74 10  |=x%+252..j....t.|
00000b20  59 25 3d 36 38 34 3a 58  25 3d 33 36 0d 04 7e 0b  |Y%=684:X%=36..~.|
00000b30  e3 49 25 3d 31 b8 35 0d  04 88 0a f2 64 65 61 6c  |.I%=1.5.....deal|
00000b40  33 0d 04 92 0d 58 25 3d  58 25 2b 31 34 34 0d 04  |3....X%=X%+144..|
00000b50  9c 05 ed 0d 04 a6 13 59  25 3d 59 25 2d 31 39 32  |.......Y%=Y%-192|
00000b60  3a 58 25 3d 33 36 0d 04  b0 0b e3 49 25 3d 36 b8  |:X%=36.....I%=6.|
00000b70  39 0d 04 ba 0a f2 64 65  61 6c 33 0d 04 c4 0d 58  |9.....deal3....X|
00000b80  25 3d 58 25 2b 31 34 34  0d 04 ce 13 e7 49 25 3d  |%=X%+144.....I%=|
00000b90  37 20 58 25 3d 58 25 2b  32 35 32 0d 04 d8 05 ed  |7 X%=X%+252.....|
00000ba0  0d 04 e2 13 59 25 3d 59  25 2d 31 39 32 3a 58 25  |....Y%=Y%-192:X%|
00000bb0  3d 33 36 0d 04 ec 0d e3  49 25 3d 31 30 b8 31 33  |=36.....I%=10.13|
00000bc0  0d 04 f6 0a f2 64 65 61  6c 33 0d 05 00 0d 58 25  |.....deal3....X%|
00000bd0  3d 58 25 2b 31 34 34 0d  05 0a 14 e7 49 25 3d 31  |=X%+144.....I%=1|
00000be0  31 20 58 25 3d 58 25 2b  32 35 32 0d 05 14 05 ed  |1 X%=X%+252.....|
00000bf0  0d 05 1e 14 59 25 3d 59  25 2d 31 39 32 3a 58 25  |....Y%=Y%-192:X%|
00000c00  3d 31 37 36 0d 05 28 0d  e3 49 25 3d 31 34 b8 31  |=176..(..I%=14.1|
00000c10  37 0d 05 32 0a f2 64 65  61 6c 33 0d 05 3c 0d 58  |7..2..deal3..<.X|
00000c20  25 3d 58 25 2b 31 34 34  0d 05 46 05 ed 0d 05 50  |%=X%+144..F....P|
00000c30  11 59 25 3d 34 30 38 3a  58 25 3d 35 37 38 0d 05  |.Y%=408:X%=578..|
00000c40  5a 0d 53 25 3d 34 3a 43  25 3d 31 0d 05 64 10 f2  |Z.S%=4:C%=1..d..|
00000c50  63 61 72 64 28 43 25 2c  53 25 29 0d 05 6e 05 3a  |card(C%,S%)..n.:|
00000c60  0d 05 78 05 e1 0d 05 82  0b dd f2 64 65 61 6c 33  |..x........deal3|
00000c70  0d 05 8c 0b 6e 25 3d 6e  25 2b 31 0d 05 96 0b e3  |....n%=n%+1.....|
00000c80  4a 25 3d 31 b8 33 0d 05  a0 1d 43 25 3d 43 25 28  |J%=1.3....C%=C%(|
00000c90  49 25 2c 4a 25 29 3a 53  25 3d 53 25 28 49 25 2c  |I%,J%):S%=S%(I%,|
00000ca0  4a 25 29 0d 05 aa 10 f2  63 61 72 64 28 43 25 2c  |J%).....card(C%,|
00000cb0  53 25 29 0d 05 b4 0c 58  25 3d 58 25 2b 33 36 0d  |S%)....X%=X%+36.|
00000cc0  05 be 05 ed 0d 05 c8 05  e1 0d 05 d2 09 dd f2 6b  |...............k|
00000cd0  65 79 0d 05 dc 24 f5 3a  61 25 3d a7 22 41 42 43  |ey...$.:a%=."ABC|
00000ce0  44 45 46 47 48 49 4a 4b  4c 4d 4e 4f 50 51 22 2c  |DEFGHIJKLMNOPQ",|
00000cf0  be 29 3a fd 61 25 0d 05  e6 0c 66 72 6f 6d 25 3d  |.):.a%....from%=|
00000d00  61 25 0d 05 f0 05 e1 0d  05 fa 0f dd f2 6d 6f 76  |a%...........mov|
00000d10  65 3a 4d 25 3d b9 0d 06  04 18 e7 44 25 28 66 72  |e:M%=......D%(fr|
00000d20  6f 6d 25 29 3d 2d 31 20  4d 25 3d a3 3a e1 0d 06  |om%)=-1 M%=.:...|
00000d30  0e 2d e7 43 25 28 66 72  6f 6d 25 2c 44 25 28 66  |.-.C%(from%,D%(f|
00000d40  72 6f 6d 25 29 29 3d 31  20 80 54 43 25 28 74 6f  |rom%))=1 .TC%(to|
00000d50  25 29 3d 31 33 20 e5 8d  54 6c 46 0d 06 18 2d e7  |%)=13 ..TlF...-.|
00000d60  43 25 28 66 72 6f 6d 25  2c 44 25 28 66 72 6f 6d  |C%(from%,D%(from|
00000d70  25 29 29 3d 31 33 20 80  54 43 25 28 74 6f 25 29  |%))=13 .TC%(to%)|
00000d80  3d 31 20 e5 8d 54 6c 46  0d 06 22 4c e7 43 25 28  |=1 ..TlF.."L.C%(|
00000d90  66 72 6f 6d 25 2c 44 25  28 66 72 6f 6d 25 29 29  |from%,D%(from%))|
00000da0  2d 31 3d 54 43 25 28 74  6f 25 29 20 84 43 25 28  |-1=TC%(to%) .C%(|
00000db0  66 72 6f 6d 25 2c 44 25  28 66 72 6f 6d 25 29 29  |from%,D%(from%))|
00000dc0  2b 31 3d 54 43 25 28 74  6f 25 29 20 e5 8d 54 6c  |+1=TC%(to%) ..Tl|
00000dd0  46 20 8b e1 0d 06 2c 05  3a 0d 06 36 33 43 31 25  |F ....,.:..63C1%|
00000de0  3d 43 25 28 66 72 6f 6d  25 2c 44 25 28 66 72 6f  |=C%(from%,D%(fro|
00000df0  6d 25 29 29 3a 53 31 25  3d 53 25 28 66 72 6f 6d  |m%)):S1%=S%(from|
00000e00  25 2c 44 25 28 66 72 6f  6d 25 29 29 0d 06 40 26  |%,D%(from%))..@&|
00000e10  44 25 28 66 72 6f 6d 25  29 3d 44 25 28 66 72 6f  |D%(from%)=D%(fro|
00000e20  6d 25 29 2d 31 3a 44 25  3d 44 25 28 66 72 6f 6d  |m%)-1:D%=D%(from|
00000e30  25 29 0d 06 4a 24 e7 66  72 6f 6d 25 3c 36 20 59  |%)..J$.from%<6 Y|
00000e40  25 3d 36 38 34 3a 58 25  3d 32 35 32 2a 28 66 72  |%=684:X%=252*(fr|
00000e50  6f 6d 25 2d 31 29 0d 06  54 3d e7 66 72 6f 6d 25  |om%-1)..T=.from%|
00000e60  3e 35 20 80 66 72 6f 6d  25 3c 31 30 20 59 25 3d  |>5 .from%<10 Y%=|
00000e70  34 39 32 3a 58 25 3d 32  35 32 2a 28 66 72 6f 6d  |492:X%=252*(from|
00000e80  25 2d 36 29 2b 28 32 35  32 20 80 66 72 6f 6d 25  |%-6)+(252 .from%|
00000e90  3e 37 29 0d 06 5e 3f e7  66 72 6f 6d 25 3e 39 20  |>7)..^?.from%>9 |
00000ea0  80 66 72 6f 6d 25 3c 31  34 20 59 25 3d 33 30 30  |.from%<14 Y%=300|
00000eb0  3a 58 25 3d 32 35 32 2a  28 66 72 6f 6d 25 2d 31  |:X%=252*(from%-1|
00000ec0  30 29 2b 28 32 35 32 20  80 66 72 6f 6d 25 3e 31  |0)+(252 .from%>1|
00000ed0  31 29 0d 06 68 2b e7 66  72 6f 6d 25 3e 31 33 20  |1)..h+.from%>13 |
00000ee0  59 25 3d 31 30 38 3a 58  25 3d 32 35 32 2a 28 66  |Y%=108:X%=252*(f|
00000ef0  72 6f 6d 25 2d 31 34 29  20 2b 31 34 34 0d 06 72  |rom%-14) +144..r|
00000f00  0a 58 58 25 3d 58 25 0d  06 7c 0a f2 62 6c 61 6e  |.XX%=X%..|..blan|
00000f10  6b 0d 06 86 0c e3 4a 25  3d 31 b8 44 25 0d 06 90  |k.....J%=1.D%...|
00000f20  23 43 25 3d 43 25 28 66  72 6f 6d 25 2c 4a 25 29  |#C%=C%(from%,J%)|
00000f30  3a 53 25 3d 53 25 28 66  72 6f 6d 25 2c 4a 25 29  |:S%=S%(from%,J%)|
00000f40  0d 06 9a 0c 58 25 3d 58  25 2b 33 36 0d 06 a4 10  |....X%=X%+36....|
00000f50  f2 63 61 72 64 28 43 25  2c 53 25 29 0d 06 ae 05  |.card(C%,S%)....|
00000f60  ed 0d 06 b8 17 e7 44 25  28 66 72 6f 6d 25 29 3d  |......D%(from%)=|
00000f70  30 20 f2 62 6c 61 6e 6b  0d 06 c2 0d 74 6f 25 3d  |0 .blank....to%=|
00000f80  74 6f 25 2b 31 0d 06 cc  1d 54 43 25 28 74 6f 25  |to%+1....TC%(to%|
00000f90  29 3d 43 31 25 3a 54 53  25 28 74 6f 25 29 3d 53  |)=C1%:TS%(to%)=S|
00000fa0  31 25 0d 06 d6 1b 43 25  3d 54 43 25 28 74 6f 25  |1%....C%=TC%(to%|
00000fb0  29 3a 53 25 3d 54 53 25  28 74 6f 25 29 0d 06 e0  |):S%=TS%(to%)...|
00000fc0  11 59 25 3d 34 30 38 3a  58 25 3d 35 37 38 0d 06  |.Y%=408:X%=578..|
00000fd0  ea 10 f2 63 61 72 64 28  43 25 2c 53 25 29 0d 06  |...card(C%,S%)..|
00000fe0  f4 05 e1 0d 06 fe 0b dd  f2 62 6c 61 6e 6b 0d 07  |.........blank..|
00000ff0  08 2e ef 35 2c 32 34 2c  58 58 25 2b 31 36 3b 59  |...5,24,XX%+16;Y|
00001000  25 2d 34 3b 58 58 25 2b  32 31 36 3b 59 25 2b 31  |%-4;XX%+216;Y%+1|
00001010  33 36 3b 3a e6 30 2c 31  32 38 3a da 0d 07 12 05  |36;:.0,128:.....|
00001020  e1 0d 07 1c 52 2a 4b 2e  30 20 2a 54 2e 7c 4d 46  |....R*K.0 *T.|MF|
00001030  4f 52 49 25 3d 30 54 4f  20 54 4f 50 2d 50 41 47  |ORI%=0TO TOP-PAG|
00001040  45 20 53 54 45 50 34 3a  49 25 21 26 45 30 30 3d  |E STEP4:I%!&E00=|
00001050  49 25 21 50 41 47 45 3a  4e 45 58 54 7c 4d 50 41  |I%!PAGE:NEXT|MPA|
00001060  47 45 3d 26 45 30 30 7c  4d 4f 4c 44 7c 4d 52 55  |GE=&E00|MOLD|MRU|
00001070  4e 7c 4d 0d 07 26 10 2a  46 58 31 33 38 2c 30 2c  |N|M..&.*FX138,0,|
00001080  31 32 38 0d 07 30 05 e0  0d 07 3a 18 dd f2 77 69  |128..0....:...wi|
00001090  6e 3a ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |n:.23,1,0;0;0;0;|
000010a0  0d 07 44 1e f1 8a 31 31  2c 34 29 22 43 4f 4e 47  |..D...11,4)"CONG|
000010b0  52 41 54 55 4c 41 54 49  4f 4e 53 21 21 22 0d 07  |RATULATIONS!!"..|
000010c0  4e 1e f1 8a 31 31 2c 35  29 22 2d 2d 2d 2d 2d 2d  |N...11,5)"------|
000010d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 22 0d 07 58 2b  |-----------"..X+|
000010e0  f1 8a 34 2c 38 29 22 59  6f 75 20 68 61 76 65 20  |..4,8)"You have |
000010f0  63 6f 6d 70 6c 65 74 65  64 20 44 65 61 6c 20 6e  |completed Deal n|
00001100  6f 2e 20 22 3b 4d 25 0d  07 62 20 f1 8a 31 33 2c  |o. ";M%..b ..13,|
00001110  31 30 29 22 69 6e 20 22  3b 6d 6f 76 65 25 3b 22  |10)"in ";move%;"|
00001120  20 6d 6f 76 65 73 22 0d  07 6c 22 f1 8a 31 30 2c  | moves"..l"..10,|
00001130  31 34 29 22 41 6e 6f 74  68 65 72 20 64 65 61 6c  |14)"Another deal|
00001140  3f 20 20 28 59 2f 4e 29  22 0d 07 76 1b f5 3a 4b  |?  (Y/N)"..v..:K|
00001150  24 3d bf 30 3a fd 4b 24  3d 22 59 22 20 84 4b 24  |$=.0:.K$="Y" .K$|
00001160  3d 22 4e 22 0d 07 80 0d  6d 6f 76 65 25 3d 30 3a  |="N"....move%=0:|
00001170  e1 0d 07 8a 05 2c 0d ff                           |.....,..|
00001178

G/BLKHOL.m0

G/BLKHOL.m1

G/BLKHOL.m2

G/BLKHOL.m4

G/BLKHOL.m5

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