Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_50.ADF » G/BLKHOL2

G/BLKHOL2

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_50.ADF
Filename: G/BLKHOL2
Read OK: ✔
File size: 12CB bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

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

File contents
   10REM **************************
   20REM Blackhole
   30REM By R.A.Dimond
   40REM (c) March 2000
   50REM **************************
   60ONERROR IFERR=17 RUN ELSEMODE6:REPORT:PRINT" at line ";ERL:END
   70*FX21,0
   80IF PAGE>&E00 GOTO1680
   90MODE1:VDU23;8202;0;0;0;
  100DIM N%(51),c%(51),s%(51),C%(17,3),S%(17,3),D%(17),TC%(52),TS%(52)
  110m$="":move%=0
  120REPEAT:VDU26,4:CLS:PROCrandom:PROCinit:PROCdeal:win%=FALSE
  130REPEAT:VDU26,4
  140PROCkey
  150PROCmove
  170UNTIL0
  180END
  190DEFPROCrandom
  200*FX15
  210INPUT''"Enter Deal No. "N%
  220IFN%=0 N%=ABS(RND(-TIME))
  230G=RND(-M%)
  240FORI%=1TO51:N%(I%)=I%:NEXT:FORI%=51TO2STEP-1:D%=RND(I%):T%=N%(D%):N%(D%)=N%(I%):N%(I%)=T%:NEXTI%
  250RESTORE:FORi%=1TO51:READc%(i%),s%(i%):NEXT
  260CLS
  270ENDPROC
  280DATA8,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
  290DATA10,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
  300DEFPROCcard:VDU23,1,0;0;0;0;:suit%=S%+223:IFS%=1ORS%=3colour=1:GC=0ELSEIFS%=2ORS%=4colour=0:GC=1
  310GCOL0,0:MOVEX%-4,Y%+14:DRAWX%+164,Y%+14:DRAWX%+164,Y%-201:DRAWX%-4,Y%-201:DRAWX%-4,Y%+14
  320VDU5,24,X%;Y%-197;X%+160;Y%+10;:GCOL0,131:CLG
  330GCOL0,colour:SOUND0,-15,4,1:MOVEX%+5,Y%-32:VDUsuit%:MOVEX%+128,Y%-134:PROCinv(suit%):VDU255
  340ON C% GOSUB360,370,380,390,400,410,420,430,440,450,470,480,490,500
  350ENDPROC
  360MOVEX%+128,Y%-168:PROCinv(65):VDU255:PROC1(80,0):MOVEX%+5,Y%:VDU65:RETURN
  370PROCc:PROC1(28,0):PROC1(132,1):RETURN
  380PROCc:PROC1(28,0):PROC1(80,0):PROC1(132,1):RETURN
  390PROCc:PROC2(28,0):PROC2(132,1):RETURN
  400PROCc:PROC2(28,0):PROC1(80,0):PROC2(132,1):RETURN
  410PROCc:PROC2(28,0):PROC2(80,0):PROC2(132,1):RETURN
  420PROCc:PROC2(28,0):PROC2(80,0):PROC2(132,1):PROC1(54,0):RETURN
  430PROCc:PROC2(28,0):PROC2(80,0):PROC2(132,1):PROC1(54,0):PROC1(104,1):RETURN
  440PROCc:PROC2(28,0):PROC2(62,0):PROC2(94,1):PROC2(132,1):PROC1(80,0):RETURN
  450MOVEX%+128,Y%-168:PROCinv(229):VDU255:MOVEX%+5,Y%:VDU229:PROC2(28,0):PROC2(62,0):PROC2(94,1):PROC2(132,1):PROC1(44,0):PROC1(116,1):RETURN
  460PROC2(28,0):PROC2(62,0):PROC2(94,1):PROC2(132,1):PROC1(44,0):PROC1(116,1):RETURN
  470PROCj:RETURN
  480PROCq:RETURN
  490PROCk:RETURN
  500RETURN
  510DEFPROCc:MOVEX%+5,Y%:VDU48+C%:MOVEX%+128,Y%-168:PROCinv(48+C%):VDU255:ENDPROC
  520DEFPROC1(Z%,F%):MOVEX%+64,Y%-Z%:IFF% PROCinv(suit%):VDU255 ELSEVDUsuit%
  530ENDPROC
  540DEFPROC2(Z%,F%):MOVEX%+32,Y%-Z%:IFF% PROCinv(suit%):VDU255 ELSEVDUsuit%
  550MOVEX%+96,Y%-Z%:IFF% PROCinv(suit%):VDU255 ELSEVDUsuit%
  560ENDPROC
  570DEFPROC5:MOVEX%+64,Y%-48:VDUsuit%:ENDPROC
  580DEFPROC6:MOVEX%+64,Y%-48:VDUsuit%:MOVEX%+64,Y%-108:VDUsuit%:ENDPROC
  590DEFPROC7:T$=CHR$suit%+CHR$8+CHR$10:t$=STRING$(4,T$):MOVEX%+28,Y%-26:PRINTt$:MOVEX%+100,Y%-26:PRINTt$:ENDPROC
  600DEFPROC8:MOVEX%+64,Y%-48:VDUsuit%:MOVEX%+64,Y%-110:VDUsuit%:ENDPROC
  610DEFPROCj:MOVEX%+1,Y%:VDU74:MOVEX%+128,Y%-168:PROCinv(74):VDU255
  620MOVEX%+65,Y%-14:VDU18,0,GC,253,231,8,8,10,239,240,8,8,8,10,18,0,2,241,18,0,GC,252,18,0,2,242,8,8,8,10,18,0,GC,243,244,8,8,10,245,246:PROCdraw:ENDPROC
  630DEFPROCq:MOVEX%+1,Y%:VDU81:MOVEX%+128,Y%-168:PROCinv(81):VDU255
  640MOVEX%+65,Y%-14:VDU18,0,GC,247,248,8,8,10,249,250,8,8,8,10,18,0,2,241,18,0,GC,252,18,0,2,242,8,8,8,10,18,0,GC,233,234,8,8,10,235,236:PROCdraw:ENDPROC 
  650DEFPROCk:MOVEX%+1,Y%:VDU75:MOVEX%+128,Y%-168:PROCinv(75):VDU255:GOTO620
  660DEFPROCdraw:MOVEX%+32,Y%-14:GCOL0,0:DRAWX%+130,Y%-14:DRAWX%+130,Y%-171:DRAWX%+32,Y%-171:DRAWX%+32,Y%-14
  670GCOL0,colour:MOVEX%+36,Y%-35:VDUsuit%:MOVEX%+96,Y%-130:PROCinv(suit%):VDU255:ENDPROC
  680DEFPROCinv(L%):?&56=L%:CALL&900:ENDPROC
  690DEFPROCinit
  700n%=1:FORI%=1TO17:FORJ%=1TO3
  710C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
  720NEXT:NEXT
  730FORN%=1TO17:D%(N%)=3:NEXT
  740to%=1:TC%(1)=1:TS%(1)=4
  750ENDPROC
  760DEFPROCdeal
  770x%=126:y%=1012
  780VDU5:FORz%=1TO5
  790MOVEx%,y%:PRINTCHR$(64+z%)
  800x%=x%+252
  810NEXT
  820x%=0:y%=660:n%=69
  830FORm%=1TO2
  840FORl%=1TO2
  850FORz%=1TO2
  860MOVEx%,y%:PRINTCHR$(n%+z%)
  870x%=x%+528
  880NEXT
  890x%=x%-300:n%=n%+2
  900NEXT
  910y%=y%-224:x%=0
  920NEXT
  930x%=270:y%=60
  940FORz%=1TO4
  950MOVEx%,y%:PRINTCHR$(77+z%)
  960x%=x%+252
  970NEXT
  980Y%=960:X%=36
  990FORI%=1TO5
 1000PROCdeal3
 1010X%=X%+144
 1020NEXT
 1030Y%=Y%-224:X%=36
 1040FORI%=6TO9
 1050PROCdeal3
 1060X%=X%+144
 1070IFI%=7 X%=X%+252
 1080NEXT
 1090Y%=Y%-224:X%=36
 1100FORI%=10TO13
 1110PROCdeal3
 1120X%=X%+144
 1130IFI%=11 X%=X%+252
 1140NEXT
 1150Y%=Y%-224:X%=176
 1160FORI%=14TO17
 1170PROCdeal3
 1180X%=X%+144
 1190NEXT
 1200Y%=680:X%=578
 1210S%=4:C%=1
 1220PROCcard
 1230:
 1240:
 1250:
 1260:
 1270:
 1280:
 1290ENDPROC
 1300DEFPROCdeal3
 1310n%=n%+1
 1320FORJ%=1TO3
 1330C%=C%(I%,J%):S%=S%(I%,J%)
 1340PROCcard
 1350X%=X%+36
 1360NEXT
 1370ENDPROC
 1380DEFPROCkey
 1390REPEAT:a%=INSTR("ABCDEFGHIJKLMNOPQ",GET$):UNTILa%
 1400from%=a%
 1410ENDPROC
 1420DEFPROCmove:M%=TRUE
 1430IFD%(from%)=-1 M%=FALSE:ENDPROC
 1440IFC%(from%,D%(from%))=1 ANDTC%(to%)=13 GOTO1470
 1450IFC%(from%,D%(from%))=13 ANDTC%(to%)=1 GOTO1470
 1460IFC%(from%,D%(from%))-1=TC%(to%) ORC%(from%,D%(from%))+1=TC%(to%) GOTO1470 ELSEENDPROC
 1470:
 1480C1%=C%(from%,D%(from%)):S1%=S%(from%,D%(from%))
 1490D%(from%)=D%(from%)-1:D%=D%(from%)
 1500IFfrom%<6 Y%=960:X%=252*(from%-1)
 1510IFfrom%>5 ANDfrom%<10 Y%=736:X%=252*(from%-6)+(252 ANDfrom%>7)
 1520IFfrom%>9 ANDfrom%<14 Y%=512:X%=252*(from%-10)+(252 ANDfrom%>11)
 1530IFfrom%>13 Y%=288:X%=252*(from%-14) +144
 1535PROCblank
 1540FORJ%=1TOD%
 1550C%=C%(from%,J%):S%=S%(from%,J%)
 1560X%=X%+36
 1570PROCcard
 1580NEXT
 1585IFD%(from%)=0 PROCblank
 1590to%=to%+1
 1600TC%(to%)=C1%:TS%(to%)=S1%
 1610C%=TC%(to%):S%=TS%(to%)
 1620Y%=680:X%=578
 1630PROCcard
 1640ENDPROC
 1650DEFPROCblank
 1660VDU5,24,X%;Y%-197;X%+268;Y%+10;:GCOL0,128:CLG
 1670ENDPROC
 1680*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
 1690*FX138,0,128
 1700END
 1710DEFPROCwin:VDU23,1,0;0;0;0;
 1720PRINTTAB(11,4)"CONGRATULATIONS!!"
 1730PRINTTAB(11,5)"-----------------"
 1740PRINTTAB(4,8)"You have completed Deal no. ";M%
 1750PRINTTAB(13,10)"in ";move%;" moves"
 1760PRINTTAB(10,14)"Another deal?  (Y/N)"
 1770REPEAT:K$=INKEY$0:UNTILK$="Y" ORK$="N"
 1780move%=0:ENDPROC
 1790,


 � **************************
� Blackhole
� By R.A.Dimond
(� (c) March 2000
2 � **************************
<%� �=17 � ��6:�:�" at line ";�:�
F*FX21,0
P� �>&E00 �tPF
Z�1:�23;8202;0;0;0;
dC� N%(51),c%(51),s%(51),C%(17,3),S%(17,3),D%(17),TC%(52),TS%(52)
nm$="":move%=0
x(�:�26,4:�:�random:�init:�deal:win%=�
��:�26,4
��key
�	�move
��0
��
���random
�	*FX15
��''"Enter Deal No. "N%
��N%=0 N%=�(�(-�))
�G=�(-M%)
�S�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%):�
�
�
t�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
"p�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
,V��card:�23,1,0;0;0;0;:suit%=S%+223:�S%=1�S%=3colour=1:GC=0��S%=2�S%=4colour=0:GC=1
6J�0,0:�X%-4,Y%+14:�X%+164,Y%+14:�X%+164,Y%-201:�X%-4,Y%-201:�X%-4,Y%+14
@*�5,24,X%;Y%-197;X%+160;Y%+10;:�0,131:�
JK�0,colour:�0,-15,4,1:�X%+5,Y%-32:�suit%:�X%+128,Y%-134:�inv(suit%):�255
TO� C% �DhA,�DrA,�D|A,�tFA,�tPA,�tZA,�tdA,�tnA,�txA,�dBA,�dVA,�d`A,�djA,�dtA
^�
h8�X%+128,Y%-168:�inv(65):�255:�1(80,0):�X%+5,Y%:�65:�
r�c:�1(28,0):�1(132,1):�
|$�c:�1(28,0):�1(80,0):�1(132,1):�
��c:�2(28,0):�2(132,1):�
�$�c:�2(28,0):�1(80,0):�2(132,1):�
�$�c:�2(28,0):�2(80,0):�2(132,1):�
�-�c:�2(28,0):�2(80,0):�2(132,1):�1(54,0):�
�7�c:�2(28,0):�2(80,0):�2(132,1):�1(54,0):�1(104,1):�
�6�c:�2(28,0):�2(62,0):�2(94,1):�2(132,1):�1(80,0):�
�i�X%+128,Y%-168:�inv(229):�255:�X%+5,Y%:�229:�2(28,0):�2(62,0):�2(94,1):�2(132,1):�1(44,0):�1(116,1):�
�=�2(28,0):�2(62,0):�2(94,1):�2(132,1):�1(44,0):�1(116,1):�
��j:�
��q:�
��k:�
��
�9��c:�X%+5,Y%:�48+C%:�X%+128,Y%-168:�inv(48+C%):�255:�
8��1(Z%,F%):�X%+64,Y%-Z%:�F% �inv(suit%):�255 ��suit%
�
8��2(Z%,F%):�X%+32,Y%-Z%:�F% �inv(suit%):�255 ��suit%
&-�X%+96,Y%-Z%:�F% �inv(suit%):�255 ��suit%
0�
:��5:�X%+64,Y%-48:�suit%:�
D2��6:�X%+64,Y%-48:�suit%:�X%+64,Y%-108:�suit%:�
NG��7:T$=�suit%+�8+�10:t$=�4,T$):�X%+28,Y%-26:�t$:�X%+100,Y%-26:�t$:�
X2��8:�X%+64,Y%-48:�suit%:�X%+64,Y%-110:�suit%:�
b1��j:�X%+1,Y%:�74:�X%+128,Y%-168:�inv(74):�255
l��X%+65,Y%-14:�18,0,GC,253,231,8,8,10,239,240,8,8,8,10,18,0,2,241,18,0,GC,252,18,0,2,242,8,8,8,10,18,0,GC,243,244,8,8,10,245,246:�draw:�
v1��q:�X%+1,Y%:�81:�X%+128,Y%-168:�inv(81):�255
���X%+65,Y%-14:�18,0,GC,247,248,8,8,10,249,250,8,8,8,10,18,0,2,241,18,0,GC,252,18,0,2,242,8,8,8,10,18,0,GC,233,234,8,8,10,235,236:�draw:� 
�7��k:�X%+1,Y%:�75:�X%+128,Y%-168:�inv(75):�255:�DlB
�T��draw:�X%+32,Y%-14:�0,0:�X%+130,Y%-14:�X%+130,Y%-171:�X%+32,Y%-171:�X%+32,Y%-14
�B�0,colour:�X%+36,Y%-35:�suit%:�X%+96,Y%-130:�inv(suit%):�255:�
���inv(L%):?&56=L%:�&900:�
�
��init
�n%=1:�I%=1�17:�J%=1�3
�5C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
��:�
��N%=1�17:D%(N%)=3:�
�to%=1:TC%(1)=1:TS%(1)=4
��
�
��deal
x%=126:y%=1012
�5:�z%=1�5
�x%,y%:�(64+z%)
 
x%=x%+252
*�
4x%=0:y%=660:n%=69
>�m%=1�2
H�l%=1�2
R�z%=1�2
\�x%,y%:�(n%+z%)
f
x%=x%+528
p�
zx%=x%-300:n%=n%+2
��
�y%=y%-224:x%=0
��
�x%=270:y%=60
��z%=1�4
��x%,y%:�(77+z%)
�
x%=x%+252
��
�Y%=960:X%=36
��I%=1�5
�
�deal3
�
X%=X%+144
��
Y%=Y%-224:X%=36
�I%=6�9

�deal3
$
X%=X%+144
.�I%=7 X%=X%+252
8�
BY%=Y%-224:X%=36
L
�I%=10�13
V
�deal3
`
X%=X%+144
j�I%=11 X%=X%+252
t�
~Y%=Y%-224:X%=176
�
�I%=14�17
�
�deal3
�
X%=X%+144
��
�Y%=680:X%=578
�
S%=4:C%=1
�	�card
�:
�:
�:
�:
�:
:

�
��deal3
n%=n%+1
(�J%=1�3
2C%=C%(I%,J%):S%=S%(I%,J%)
<	�card
FX%=X%+36
P�
Z�
d	��key
n$�:a%=�"ABCDEFGHIJKLMNOPQ",�):�a%
xfrom%=a%
��
���move:M%=�
��D%(from%)=-1 M%=�:�
�-�C%(from%,D%(from%))=1 �TC%(to%)=13 �t~E
�-�C%(from%,D%(from%))=13 �TC%(to%)=1 �t~E
�L�C%(from%,D%(from%))-1=TC%(to%) �C%(from%,D%(from%))+1=TC%(to%) �t~E ��
�:
�3C1%=C%(from%,D%(from%)):S1%=S%(from%,D%(from%))
�&D%(from%)=D%(from%)-1:D%=D%(from%)
�$�from%<6 Y%=960:X%=252*(from%-1)
�=�from%>5 �from%<10 Y%=736:X%=252*(from%-6)+(252 �from%>7)
�?�from%>9 �from%<14 Y%=512:X%=252*(from%-10)+(252 �from%>11)
�+�from%>13 Y%=288:X%=252*(from%-14) +144
�
�blank
�J%=1�D%
#C%=C%(from%,J%):S%=S%(from%,J%)
X%=X%+36
"	�card
,�
1�D%(from%)=0 �blank
6
to%=to%+1
@TC%(to%)=C1%:TS%(to%)=S1%
JC%=TC%(to%):S%=TS%(to%)
TY%=680:X%=578
^	�card
h�
r��blank
|*�5,24,X%;Y%-197;X%+268;Y%+10;:�0,128:�
��
�R*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
�*FX138,0,128
��
���win:�23,1,0;0;0;0;
��11,4)"CONGRATULATIONS!!"
��11,5)"-----------------"
�+�4,8)"You have completed Deal no. ";M%
� �13,10)"in ";move%;" moves"
�"�10,14)"Another deal?  (Y/N)"
��: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 14 f4 20  28 63 29 20 4d 61 72 63  |nd..(.. (c) Marc|
00000050  68 20 32 30 30 30 0d 00  32 20 f4 20 2a 2a 2a 2a  |h 2000..2 . ****|
00000060  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000070  2a 2a 2a 2a 2a 2a 0d 00  3c 25 ee 85 20 e7 9f 3d  |******..<%.. ..=|
00000080  31 37 20 f9 20 8b eb 36  3a f6 3a f1 22 20 61 74  |17 . ..6:.:." at|
00000090  20 6c 69 6e 65 20 22 3b  9e 3a e0 0d 00 46 0b 2a  | line ";.:...F.*|
000000a0  46 58 32 31 2c 30 0d 00  50 12 e7 20 90 3e 26 45  |FX21,0..P.. .>&E|
000000b0  30 30 20 e5 8d 74 50 46  0d 00 5a 16 eb 31 3a ef  |00 ..tPF..Z..1:.|
000000c0  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 00  |23;8202;0;0;0;..|
000000d0  64 43 de 20 4e 25 28 35  31 29 2c 63 25 28 35 31  |dC. N%(51),c%(51|
000000e0  29 2c 73 25 28 35 31 29  2c 43 25 28 31 37 2c 33  |),s%(51),C%(17,3|
000000f0  29 2c 53 25 28 31 37 2c  33 29 2c 44 25 28 31 37  |),S%(17,3),D%(17|
00000100  29 2c 54 43 25 28 35 32  29 2c 54 53 25 28 35 32  |),TC%(52),TS%(52|
00000110  29 0d 00 6e 11 6d 24 3d  22 22 3a 6d 6f 76 65 25  |)..n.m$="":move%|
00000120  3d 30 0d 00 78 28 f5 3a  ef 32 36 2c 34 3a db 3a  |=0..x(.:.26,4:.:|
00000130  f2 72 61 6e 64 6f 6d 3a  f2 69 6e 69 74 3a f2 64  |.random:.init:.d|
00000140  65 61 6c 3a 77 69 6e 25  3d a3 0d 00 82 0b f5 3a  |eal:win%=......:|
00000150  ef 32 36 2c 34 0d 00 8c  08 f2 6b 65 79 0d 00 96  |.26,4.....key...|
00000160  09 f2 6d 6f 76 65 0d 00  aa 06 fd 30 0d 00 b4 05  |..move.....0....|
00000170  e0 0d 00 be 0c dd f2 72  61 6e 64 6f 6d 0d 00 c8  |.......random...|
00000180  09 2a 46 58 31 35 0d 00  d2 1a e8 27 27 22 45 6e  |.*FX15.....''"En|
00000190  74 65 72 20 44 65 61 6c  20 4e 6f 2e 20 22 4e 25  |ter Deal No. "N%|
000001a0  0d 00 dc 15 e7 4e 25 3d  30 20 4e 25 3d 94 28 b3  |.....N%=0 N%=.(.|
000001b0  28 2d 91 29 29 0d 00 e6  0c 47 3d b3 28 2d 4d 25  |(-.))....G=.(-M%|
000001c0  29 0d 00 f0 53 e3 49 25  3d 31 b8 35 31 3a 4e 25  |)...S.I%=1.51:N%|
000001d0  28 49 25 29 3d 49 25 3a  ed 3a e3 49 25 3d 35 31  |(I%)=I%:.:.I%=51|
000001e0  b8 32 88 2d 31 3a 44 25  3d b3 28 49 25 29 3a 54  |.2.-1:D%=.(I%):T|
000001f0  25 3d 4e 25 28 44 25 29  3a 4e 25 28 44 25 29 3d  |%=N%(D%):N%(D%)=|
00000200  4e 25 28 49 25 29 3a 4e  25 28 49 25 29 3d 54 25  |N%(I%):N%(I%)=T%|
00000210  3a ed 49 25 0d 00 fa 1f  f7 3a e3 69 25 3d 31 b8  |:.I%.....:.i%=1.|
00000220  35 31 3a f3 63 25 28 69  25 29 2c 73 25 28 69 25  |51:.c%(i%),s%(i%|
00000230  29 3a ed 0d 01 04 05 db  0d 01 0e 05 e1 0d 01 18  |):..............|
00000240  74 dc 38 2c 31 2c 33 2c  32 2c 31 31 2c 34 2c 31  |t.8,1,3,2,11,4,1|
00000250  32 2c 31 2c 34 2c 32 2c  39 2c 31 2c 36 2c 32 2c  |2,1,4,2,9,1,6,2,|
00000260  32 2c 33 2c 37 2c 33 2c  31 30 2c 33 2c 35 2c 32  |2,3,7,3,10,3,5,2|
00000270  2c 31 33 2c 32 2c 35 2c  31 2c 32 2c 34 2c 31 30  |,13,2,5,1,2,4,10|
00000280  2c 32 2c 38 2c 32 2c 36  2c 31 2c 33 2c 31 2c 39  |,2,8,2,6,1,3,1,9|
00000290  2c 34 2c 31 31 2c 33 2c  37 2c 32 2c 31 33 2c 34  |,4,11,3,7,2,13,4|
000002a0  2c 34 2c 33 2c 31 32 2c  32 2c 31 2c 31 2c 31 2c  |,4,3,12,2,1,1,1,|
000002b0  33 0d 01 22 70 dc 31 30  2c 31 2c 31 32 2c 34 2c  |3.."p.10,1,12,4,|
000002c0  34 2c 31 2c 31 33 2c 31  2c 38 2c 33 2c 32 2c 31  |4,1,13,1,8,3,2,1|
000002d0  2c 37 2c 31 2c 31 31 2c  32 2c 33 2c 34 2c 39 2c  |,7,1,11,2,3,4,9,|
000002e0  32 2c 36 2c 34 2c 31 33  2c 33 2c 37 2c 34 2c 32  |2,6,4,13,3,7,4,2|
000002f0  2c 32 2c 31 31 2c 31 2c  35 2c 33 2c 39 2c 33 2c  |,2,11,1,5,3,9,3,|
00000300  36 2c 33 2c 34 2c 34 2c  31 30 2c 34 2c 33 2c 33  |6,3,4,4,10,4,3,3|
00000310  2c 38 2c 34 2c 35 2c 34  2c 31 32 2c 33 2c 31 2c  |,8,4,5,4,12,3,1,|
00000320  32 0d 01 2c 56 dd f2 63  61 72 64 3a ef 32 33 2c  |2..,V..card:.23,|
00000330  31 2c 30 3b 30 3b 30 3b  30 3b 3a 73 75 69 74 25  |1,0;0;0;0;:suit%|
00000340  3d 53 25 2b 32 32 33 3a  e7 53 25 3d 31 84 53 25  |=S%+223:.S%=1.S%|
00000350  3d 33 63 6f 6c 6f 75 72  3d 31 3a 47 43 3d 30 8b  |=3colour=1:GC=0.|
00000360  e7 53 25 3d 32 84 53 25  3d 34 63 6f 6c 6f 75 72  |.S%=2.S%=4colour|
00000370  3d 30 3a 47 43 3d 31 0d  01 36 4a e6 30 2c 30 3a  |=0:GC=1..6J.0,0:|
00000380  ec 58 25 2d 34 2c 59 25  2b 31 34 3a df 58 25 2b  |.X%-4,Y%+14:.X%+|
00000390  31 36 34 2c 59 25 2b 31  34 3a df 58 25 2b 31 36  |164,Y%+14:.X%+16|
000003a0  34 2c 59 25 2d 32 30 31  3a df 58 25 2d 34 2c 59  |4,Y%-201:.X%-4,Y|
000003b0  25 2d 32 30 31 3a df 58  25 2d 34 2c 59 25 2b 31  |%-201:.X%-4,Y%+1|
000003c0  34 0d 01 40 2a ef 35 2c  32 34 2c 58 25 3b 59 25  |4..@*.5,24,X%;Y%|
000003d0  2d 31 39 37 3b 58 25 2b  31 36 30 3b 59 25 2b 31  |-197;X%+160;Y%+1|
000003e0  30 3b 3a e6 30 2c 31 33  31 3a da 0d 01 4a 4b e6  |0;:.0,131:...JK.|
000003f0  30 2c 63 6f 6c 6f 75 72  3a d4 30 2c 2d 31 35 2c  |0,colour:.0,-15,|
00000400  34 2c 31 3a ec 58 25 2b  35 2c 59 25 2d 33 32 3a  |4,1:.X%+5,Y%-32:|
00000410  ef 73 75 69 74 25 3a ec  58 25 2b 31 32 38 2c 59  |.suit%:.X%+128,Y|
00000420  25 2d 31 33 34 3a f2 69  6e 76 28 73 75 69 74 25  |%-134:.inv(suit%|
00000430  29 3a ef 32 35 35 0d 01  54 4f ee 20 43 25 20 e4  |):.255..TO. C% .|
00000440  8d 44 68 41 2c 8d 44 72  41 2c 8d 44 7c 41 2c 8d  |.DhA,.DrA,.D|A,.|
00000450  74 46 41 2c 8d 74 50 41  2c 8d 74 5a 41 2c 8d 74  |tFA,.tPA,.tZA,.t|
00000460  64 41 2c 8d 74 6e 41 2c  8d 74 78 41 2c 8d 64 42  |dA,.tnA,.txA,.dB|
00000470  41 2c 8d 64 56 41 2c 8d  64 60 41 2c 8d 64 6a 41  |A,.dVA,.d`A,.djA|
00000480  2c 8d 64 74 41 0d 01 5e  05 e1 0d 01 68 38 ec 58  |,.dtA..^....h8.X|
00000490  25 2b 31 32 38 2c 59 25  2d 31 36 38 3a f2 69 6e  |%+128,Y%-168:.in|
000004a0  76 28 36 35 29 3a ef 32  35 35 3a f2 31 28 38 30  |v(65):.255:.1(80|
000004b0  2c 30 29 3a ec 58 25 2b  35 2c 59 25 3a ef 36 35  |,0):.X%+5,Y%:.65|
000004c0  3a f8 0d 01 72 1b f2 63  3a f2 31 28 32 38 2c 30  |:...r..c:.1(28,0|
000004d0  29 3a f2 31 28 31 33 32  2c 31 29 3a f8 0d 01 7c  |):.1(132,1):...||
000004e0  24 f2 63 3a f2 31 28 32  38 2c 30 29 3a f2 31 28  |$.c:.1(28,0):.1(|
000004f0  38 30 2c 30 29 3a f2 31  28 31 33 32 2c 31 29 3a  |80,0):.1(132,1):|
00000500  f8 0d 01 86 1b f2 63 3a  f2 32 28 32 38 2c 30 29  |......c:.2(28,0)|
00000510  3a f2 32 28 31 33 32 2c  31 29 3a f8 0d 01 90 24  |:.2(132,1):....$|
00000520  f2 63 3a f2 32 28 32 38  2c 30 29 3a f2 31 28 38  |.c:.2(28,0):.1(8|
00000530  30 2c 30 29 3a f2 32 28  31 33 32 2c 31 29 3a f8  |0,0):.2(132,1):.|
00000540  0d 01 9a 24 f2 63 3a f2  32 28 32 38 2c 30 29 3a  |...$.c:.2(28,0):|
00000550  f2 32 28 38 30 2c 30 29  3a f2 32 28 31 33 32 2c  |.2(80,0):.2(132,|
00000560  31 29 3a f8 0d 01 a4 2d  f2 63 3a f2 32 28 32 38  |1):....-.c:.2(28|
00000570  2c 30 29 3a f2 32 28 38  30 2c 30 29 3a f2 32 28  |,0):.2(80,0):.2(|
00000580  31 33 32 2c 31 29 3a f2  31 28 35 34 2c 30 29 3a  |132,1):.1(54,0):|
00000590  f8 0d 01 ae 37 f2 63 3a  f2 32 28 32 38 2c 30 29  |....7.c:.2(28,0)|
000005a0  3a f2 32 28 38 30 2c 30  29 3a f2 32 28 31 33 32  |:.2(80,0):.2(132|
000005b0  2c 31 29 3a f2 31 28 35  34 2c 30 29 3a f2 31 28  |,1):.1(54,0):.1(|
000005c0  31 30 34 2c 31 29 3a f8  0d 01 b8 36 f2 63 3a f2  |104,1):....6.c:.|
000005d0  32 28 32 38 2c 30 29 3a  f2 32 28 36 32 2c 30 29  |2(28,0):.2(62,0)|
000005e0  3a f2 32 28 39 34 2c 31  29 3a f2 32 28 31 33 32  |:.2(94,1):.2(132|
000005f0  2c 31 29 3a f2 31 28 38  30 2c 30 29 3a f8 0d 01  |,1):.1(80,0):...|
00000600  c2 69 ec 58 25 2b 31 32  38 2c 59 25 2d 31 36 38  |.i.X%+128,Y%-168|
00000610  3a f2 69 6e 76 28 32 32  39 29 3a ef 32 35 35 3a  |:.inv(229):.255:|
00000620  ec 58 25 2b 35 2c 59 25  3a ef 32 32 39 3a f2 32  |.X%+5,Y%:.229:.2|
00000630  28 32 38 2c 30 29 3a f2  32 28 36 32 2c 30 29 3a  |(28,0):.2(62,0):|
00000640  f2 32 28 39 34 2c 31 29  3a f2 32 28 31 33 32 2c  |.2(94,1):.2(132,|
00000650  31 29 3a f2 31 28 34 34  2c 30 29 3a f2 31 28 31  |1):.1(44,0):.1(1|
00000660  31 36 2c 31 29 3a f8 0d  01 cc 3d f2 32 28 32 38  |16,1):....=.2(28|
00000670  2c 30 29 3a f2 32 28 36  32 2c 30 29 3a f2 32 28  |,0):.2(62,0):.2(|
00000680  39 34 2c 31 29 3a f2 32  28 31 33 32 2c 31 29 3a  |94,1):.2(132,1):|
00000690  f2 31 28 34 34 2c 30 29  3a f2 31 28 31 31 36 2c  |.1(44,0):.1(116,|
000006a0  31 29 3a f8 0d 01 d6 08  f2 6a 3a f8 0d 01 e0 08  |1):......j:.....|
000006b0  f2 71 3a f8 0d 01 ea 08  f2 6b 3a f8 0d 01 f4 05  |.q:......k:.....|
000006c0  f8 0d 01 fe 39 dd f2 63  3a ec 58 25 2b 35 2c 59  |....9..c:.X%+5,Y|
000006d0  25 3a ef 34 38 2b 43 25  3a ec 58 25 2b 31 32 38  |%:.48+C%:.X%+128|
000006e0  2c 59 25 2d 31 36 38 3a  f2 69 6e 76 28 34 38 2b  |,Y%-168:.inv(48+|
000006f0  43 25 29 3a ef 32 35 35  3a e1 0d 02 08 38 dd f2  |C%):.255:....8..|
00000700  31 28 5a 25 2c 46 25 29  3a ec 58 25 2b 36 34 2c  |1(Z%,F%):.X%+64,|
00000710  59 25 2d 5a 25 3a e7 46  25 20 f2 69 6e 76 28 73  |Y%-Z%:.F% .inv(s|
00000720  75 69 74 25 29 3a ef 32  35 35 20 8b ef 73 75 69  |uit%):.255 ..sui|
00000730  74 25 0d 02 12 05 e1 0d  02 1c 38 dd f2 32 28 5a  |t%........8..2(Z|
00000740  25 2c 46 25 29 3a ec 58  25 2b 33 32 2c 59 25 2d  |%,F%):.X%+32,Y%-|
00000750  5a 25 3a e7 46 25 20 f2  69 6e 76 28 73 75 69 74  |Z%:.F% .inv(suit|
00000760  25 29 3a ef 32 35 35 20  8b ef 73 75 69 74 25 0d  |%):.255 ..suit%.|
00000770  02 26 2d ec 58 25 2b 39  36 2c 59 25 2d 5a 25 3a  |.&-.X%+96,Y%-Z%:|
00000780  e7 46 25 20 f2 69 6e 76  28 73 75 69 74 25 29 3a  |.F% .inv(suit%):|
00000790  ef 32 35 35 20 8b ef 73  75 69 74 25 0d 02 30 05  |.255 ..suit%..0.|
000007a0  e1 0d 02 3a 1d dd f2 35  3a ec 58 25 2b 36 34 2c  |...:...5:.X%+64,|
000007b0  59 25 2d 34 38 3a ef 73  75 69 74 25 3a e1 0d 02  |Y%-48:.suit%:...|
000007c0  44 32 dd f2 36 3a ec 58  25 2b 36 34 2c 59 25 2d  |D2..6:.X%+64,Y%-|
000007d0  34 38 3a ef 73 75 69 74  25 3a ec 58 25 2b 36 34  |48:.suit%:.X%+64|
000007e0  2c 59 25 2d 31 30 38 3a  ef 73 75 69 74 25 3a e1  |,Y%-108:.suit%:.|
000007f0  0d 02 4e 47 dd f2 37 3a  54 24 3d bd 73 75 69 74  |..NG..7:T$=.suit|
00000800  25 2b bd 38 2b bd 31 30  3a 74 24 3d c4 34 2c 54  |%+.8+.10:t$=.4,T|
00000810  24 29 3a ec 58 25 2b 32  38 2c 59 25 2d 32 36 3a  |$):.X%+28,Y%-26:|
00000820  f1 74 24 3a ec 58 25 2b  31 30 30 2c 59 25 2d 32  |.t$:.X%+100,Y%-2|
00000830  36 3a f1 74 24 3a e1 0d  02 58 32 dd f2 38 3a ec  |6:.t$:...X2..8:.|
00000840  58 25 2b 36 34 2c 59 25  2d 34 38 3a ef 73 75 69  |X%+64,Y%-48:.sui|
00000850  74 25 3a ec 58 25 2b 36  34 2c 59 25 2d 31 31 30  |t%:.X%+64,Y%-110|
00000860  3a ef 73 75 69 74 25 3a  e1 0d 02 62 31 dd f2 6a  |:.suit%:...b1..j|
00000870  3a ec 58 25 2b 31 2c 59  25 3a ef 37 34 3a ec 58  |:.X%+1,Y%:.74:.X|
00000880  25 2b 31 32 38 2c 59 25  2d 31 36 38 3a f2 69 6e  |%+128,Y%-168:.in|
00000890  76 28 37 34 29 3a ef 32  35 35 0d 02 6c 8b ec 58  |v(74):.255..l..X|
000008a0  25 2b 36 35 2c 59 25 2d  31 34 3a ef 31 38 2c 30  |%+65,Y%-14:.18,0|
000008b0  2c 47 43 2c 32 35 33 2c  32 33 31 2c 38 2c 38 2c  |,GC,253,231,8,8,|
000008c0  31 30 2c 32 33 39 2c 32  34 30 2c 38 2c 38 2c 38  |10,239,240,8,8,8|
000008d0  2c 31 30 2c 31 38 2c 30  2c 32 2c 32 34 31 2c 31  |,10,18,0,2,241,1|
000008e0  38 2c 30 2c 47 43 2c 32  35 32 2c 31 38 2c 30 2c  |8,0,GC,252,18,0,|
000008f0  32 2c 32 34 32 2c 38 2c  38 2c 38 2c 31 30 2c 31  |2,242,8,8,8,10,1|
00000900  38 2c 30 2c 47 43 2c 32  34 33 2c 32 34 34 2c 38  |8,0,GC,243,244,8|
00000910  2c 38 2c 31 30 2c 32 34  35 2c 32 34 36 3a f2 64  |,8,10,245,246:.d|
00000920  72 61 77 3a e1 0d 02 76  31 dd f2 71 3a ec 58 25  |raw:...v1..q:.X%|
00000930  2b 31 2c 59 25 3a ef 38  31 3a ec 58 25 2b 31 32  |+1,Y%:.81:.X%+12|
00000940  38 2c 59 25 2d 31 36 38  3a f2 69 6e 76 28 38 31  |8,Y%-168:.inv(81|
00000950  29 3a ef 32 35 35 0d 02  80 8c ec 58 25 2b 36 35  |):.255.....X%+65|
00000960  2c 59 25 2d 31 34 3a ef  31 38 2c 30 2c 47 43 2c  |,Y%-14:.18,0,GC,|
00000970  32 34 37 2c 32 34 38 2c  38 2c 38 2c 31 30 2c 32  |247,248,8,8,10,2|
00000980  34 39 2c 32 35 30 2c 38  2c 38 2c 38 2c 31 30 2c  |49,250,8,8,8,10,|
00000990  31 38 2c 30 2c 32 2c 32  34 31 2c 31 38 2c 30 2c  |18,0,2,241,18,0,|
000009a0  47 43 2c 32 35 32 2c 31  38 2c 30 2c 32 2c 32 34  |GC,252,18,0,2,24|
000009b0  32 2c 38 2c 38 2c 38 2c  31 30 2c 31 38 2c 30 2c  |2,8,8,8,10,18,0,|
000009c0  47 43 2c 32 33 33 2c 32  33 34 2c 38 2c 38 2c 31  |GC,233,234,8,8,1|
000009d0  30 2c 32 33 35 2c 32 33  36 3a f2 64 72 61 77 3a  |0,235,236:.draw:|
000009e0  e1 20 0d 02 8a 37 dd f2  6b 3a ec 58 25 2b 31 2c  |. ...7..k:.X%+1,|
000009f0  59 25 3a ef 37 35 3a ec  58 25 2b 31 32 38 2c 59  |Y%:.75:.X%+128,Y|
00000a00  25 2d 31 36 38 3a f2 69  6e 76 28 37 35 29 3a ef  |%-168:.inv(75):.|
00000a10  32 35 35 3a e5 8d 44 6c  42 0d 02 94 54 dd f2 64  |255:..DlB...T..d|
00000a20  72 61 77 3a ec 58 25 2b  33 32 2c 59 25 2d 31 34  |raw:.X%+32,Y%-14|
00000a30  3a e6 30 2c 30 3a df 58  25 2b 31 33 30 2c 59 25  |:.0,0:.X%+130,Y%|
00000a40  2d 31 34 3a df 58 25 2b  31 33 30 2c 59 25 2d 31  |-14:.X%+130,Y%-1|
00000a50  37 31 3a df 58 25 2b 33  32 2c 59 25 2d 31 37 31  |71:.X%+32,Y%-171|
00000a60  3a df 58 25 2b 33 32 2c  59 25 2d 31 34 0d 02 9e  |:.X%+32,Y%-14...|
00000a70  42 e6 30 2c 63 6f 6c 6f  75 72 3a ec 58 25 2b 33  |B.0,colour:.X%+3|
00000a80  36 2c 59 25 2d 33 35 3a  ef 73 75 69 74 25 3a ec  |6,Y%-35:.suit%:.|
00000a90  58 25 2b 39 36 2c 59 25  2d 31 33 30 3a f2 69 6e  |X%+96,Y%-130:.in|
00000aa0  76 28 73 75 69 74 25 29  3a ef 32 35 35 3a e1 0d  |v(suit%):.255:..|
00000ab0  02 a8 1d dd f2 69 6e 76  28 4c 25 29 3a 3f 26 35  |.....inv(L%):?&5|
00000ac0  36 3d 4c 25 3a d6 26 39  30 30 3a e1 0d 02 b2 0a  |6=L%:.&900:.....|
00000ad0  dd f2 69 6e 69 74 0d 02  bc 19 6e 25 3d 31 3a e3  |..init....n%=1:.|
00000ae0  49 25 3d 31 b8 31 37 3a  e3 4a 25 3d 31 b8 33 0d  |I%=1.17:.J%=1.3.|
00000af0  02 c6 35 43 25 28 49 25  2c 4a 25 29 3d 63 25 28  |..5C%(I%,J%)=c%(|
00000b00  4e 25 28 6e 25 29 29 3a  53 25 28 49 25 2c 4a 25  |N%(n%)):S%(I%,J%|
00000b10  29 3d 73 25 28 4e 25 28  6e 25 29 29 3a 6e 25 3d  |)=s%(N%(n%)):n%=|
00000b20  6e 25 2b 31 0d 02 d0 07  ed 3a ed 0d 02 da 17 e3  |n%+1.....:......|
00000b30  4e 25 3d 31 b8 31 37 3a  44 25 28 4e 25 29 3d 33  |N%=1.17:D%(N%)=3|
00000b40  3a ed 0d 02 e4 1b 74 6f  25 3d 31 3a 54 43 25 28  |:.....to%=1:TC%(|
00000b50  31 29 3d 31 3a 54 53 25  28 31 29 3d 34 0d 02 ee  |1)=1:TS%(1)=4...|
00000b60  05 e1 0d 02 f8 0a dd f2  64 65 61 6c 0d 03 02 12  |........deal....|
00000b70  78 25 3d 31 32 36 3a 79  25 3d 31 30 31 32 0d 03  |x%=126:y%=1012..|
00000b80  0c 0e ef 35 3a e3 7a 25  3d 31 b8 35 0d 03 16 14  |...5:.z%=1.5....|
00000b90  ec 78 25 2c 79 25 3a f1  bd 28 36 34 2b 7a 25 29  |.x%,y%:..(64+z%)|
00000ba0  0d 03 20 0d 78 25 3d 78  25 2b 32 35 32 0d 03 2a  |.. .x%=x%+252..*|
00000bb0  05 ed 0d 03 34 15 78 25  3d 30 3a 79 25 3d 36 36  |....4.x%=0:y%=66|
00000bc0  30 3a 6e 25 3d 36 39 0d  03 3e 0b e3 6d 25 3d 31  |0:n%=69..>..m%=1|
00000bd0  b8 32 0d 03 48 0b e3 6c  25 3d 31 b8 32 0d 03 52  |.2..H..l%=1.2..R|
00000be0  0b e3 7a 25 3d 31 b8 32  0d 03 5c 14 ec 78 25 2c  |..z%=1.2..\..x%,|
00000bf0  79 25 3a f1 bd 28 6e 25  2b 7a 25 29 0d 03 66 0d  |y%:..(n%+z%)..f.|
00000c00  78 25 3d 78 25 2b 35 32  38 0d 03 70 05 ed 0d 03  |x%=x%+528..p....|
00000c10  7a 15 78 25 3d 78 25 2d  33 30 30 3a 6e 25 3d 6e  |z.x%=x%-300:n%=n|
00000c20  25 2b 32 0d 03 84 05 ed  0d 03 8e 12 79 25 3d 79  |%+2.........y%=y|
00000c30  25 2d 32 32 34 3a 78 25  3d 30 0d 03 98 05 ed 0d  |%-224:x%=0......|
00000c40  03 a2 10 78 25 3d 32 37  30 3a 79 25 3d 36 30 0d  |...x%=270:y%=60.|
00000c50  03 ac 0b e3 7a 25 3d 31  b8 34 0d 03 b6 14 ec 78  |....z%=1.4.....x|
00000c60  25 2c 79 25 3a f1 bd 28  37 37 2b 7a 25 29 0d 03  |%,y%:..(77+z%)..|
00000c70  c0 0d 78 25 3d 78 25 2b  32 35 32 0d 03 ca 05 ed  |..x%=x%+252.....|
00000c80  0d 03 d4 10 59 25 3d 39  36 30 3a 58 25 3d 33 36  |....Y%=960:X%=36|
00000c90  0d 03 de 0b e3 49 25 3d  31 b8 35 0d 03 e8 0a f2  |.....I%=1.5.....|
00000ca0  64 65 61 6c 33 0d 03 f2  0d 58 25 3d 58 25 2b 31  |deal3....X%=X%+1|
00000cb0  34 34 0d 03 fc 05 ed 0d  04 06 13 59 25 3d 59 25  |44.........Y%=Y%|
00000cc0  2d 32 32 34 3a 58 25 3d  33 36 0d 04 10 0b e3 49  |-224:X%=36.....I|
00000cd0  25 3d 36 b8 39 0d 04 1a  0a f2 64 65 61 6c 33 0d  |%=6.9.....deal3.|
00000ce0  04 24 0d 58 25 3d 58 25  2b 31 34 34 0d 04 2e 13  |.$.X%=X%+144....|
00000cf0  e7 49 25 3d 37 20 58 25  3d 58 25 2b 32 35 32 0d  |.I%=7 X%=X%+252.|
00000d00  04 38 05 ed 0d 04 42 13  59 25 3d 59 25 2d 32 32  |.8....B.Y%=Y%-22|
00000d10  34 3a 58 25 3d 33 36 0d  04 4c 0d e3 49 25 3d 31  |4:X%=36..L..I%=1|
00000d20  30 b8 31 33 0d 04 56 0a  f2 64 65 61 6c 33 0d 04  |0.13..V..deal3..|
00000d30  60 0d 58 25 3d 58 25 2b  31 34 34 0d 04 6a 14 e7  |`.X%=X%+144..j..|
00000d40  49 25 3d 31 31 20 58 25  3d 58 25 2b 32 35 32 0d  |I%=11 X%=X%+252.|
00000d50  04 74 05 ed 0d 04 7e 14  59 25 3d 59 25 2d 32 32  |.t....~.Y%=Y%-22|
00000d60  34 3a 58 25 3d 31 37 36  0d 04 88 0d e3 49 25 3d  |4:X%=176.....I%=|
00000d70  31 34 b8 31 37 0d 04 92  0a f2 64 65 61 6c 33 0d  |14.17.....deal3.|
00000d80  04 9c 0d 58 25 3d 58 25  2b 31 34 34 0d 04 a6 05  |...X%=X%+144....|
00000d90  ed 0d 04 b0 11 59 25 3d  36 38 30 3a 58 25 3d 35  |.....Y%=680:X%=5|
00000da0  37 38 0d 04 ba 0d 53 25  3d 34 3a 43 25 3d 31 0d  |78....S%=4:C%=1.|
00000db0  04 c4 09 f2 63 61 72 64  0d 04 ce 05 3a 0d 04 d8  |....card....:...|
00000dc0  05 3a 0d 04 e2 05 3a 0d  04 ec 05 3a 0d 04 f6 05  |.:....:....:....|
00000dd0  3a 0d 05 00 05 3a 0d 05  0a 05 e1 0d 05 14 0b dd  |:....:..........|
00000de0  f2 64 65 61 6c 33 0d 05  1e 0b 6e 25 3d 6e 25 2b  |.deal3....n%=n%+|
00000df0  31 0d 05 28 0b e3 4a 25  3d 31 b8 33 0d 05 32 1d  |1..(..J%=1.3..2.|
00000e00  43 25 3d 43 25 28 49 25  2c 4a 25 29 3a 53 25 3d  |C%=C%(I%,J%):S%=|
00000e10  53 25 28 49 25 2c 4a 25  29 0d 05 3c 09 f2 63 61  |S%(I%,J%)..<..ca|
00000e20  72 64 0d 05 46 0c 58 25  3d 58 25 2b 33 36 0d 05  |rd..F.X%=X%+36..|
00000e30  50 05 ed 0d 05 5a 05 e1  0d 05 64 09 dd f2 6b 65  |P....Z....d...ke|
00000e40  79 0d 05 6e 24 f5 3a 61  25 3d a7 22 41 42 43 44  |y..n$.:a%=."ABCD|
00000e50  45 46 47 48 49 4a 4b 4c  4d 4e 4f 50 51 22 2c be  |EFGHIJKLMNOPQ",.|
00000e60  29 3a fd 61 25 0d 05 78  0c 66 72 6f 6d 25 3d 61  |):.a%..x.from%=a|
00000e70  25 0d 05 82 05 e1 0d 05  8c 0f dd f2 6d 6f 76 65  |%...........move|
00000e80  3a 4d 25 3d b9 0d 05 96  18 e7 44 25 28 66 72 6f  |:M%=......D%(fro|
00000e90  6d 25 29 3d 2d 31 20 4d  25 3d a3 3a e1 0d 05 a0  |m%)=-1 M%=.:....|
00000ea0  2d e7 43 25 28 66 72 6f  6d 25 2c 44 25 28 66 72  |-.C%(from%,D%(fr|
00000eb0  6f 6d 25 29 29 3d 31 20  80 54 43 25 28 74 6f 25  |om%))=1 .TC%(to%|
00000ec0  29 3d 31 33 20 e5 8d 74  7e 45 0d 05 aa 2d e7 43  |)=13 ..t~E...-.C|
00000ed0  25 28 66 72 6f 6d 25 2c  44 25 28 66 72 6f 6d 25  |%(from%,D%(from%|
00000ee0  29 29 3d 31 33 20 80 54  43 25 28 74 6f 25 29 3d  |))=13 .TC%(to%)=|
00000ef0  31 20 e5 8d 74 7e 45 0d  05 b4 4c e7 43 25 28 66  |1 ..t~E...L.C%(f|
00000f00  72 6f 6d 25 2c 44 25 28  66 72 6f 6d 25 29 29 2d  |rom%,D%(from%))-|
00000f10  31 3d 54 43 25 28 74 6f  25 29 20 84 43 25 28 66  |1=TC%(to%) .C%(f|
00000f20  72 6f 6d 25 2c 44 25 28  66 72 6f 6d 25 29 29 2b  |rom%,D%(from%))+|
00000f30  31 3d 54 43 25 28 74 6f  25 29 20 e5 8d 74 7e 45  |1=TC%(to%) ..t~E|
00000f40  20 8b e1 0d 05 be 05 3a  0d 05 c8 33 43 31 25 3d  | ......:...3C1%=|
00000f50  43 25 28 66 72 6f 6d 25  2c 44 25 28 66 72 6f 6d  |C%(from%,D%(from|
00000f60  25 29 29 3a 53 31 25 3d  53 25 28 66 72 6f 6d 25  |%)):S1%=S%(from%|
00000f70  2c 44 25 28 66 72 6f 6d  25 29 29 0d 05 d2 26 44  |,D%(from%))...&D|
00000f80  25 28 66 72 6f 6d 25 29  3d 44 25 28 66 72 6f 6d  |%(from%)=D%(from|
00000f90  25 29 2d 31 3a 44 25 3d  44 25 28 66 72 6f 6d 25  |%)-1:D%=D%(from%|
00000fa0  29 0d 05 dc 24 e7 66 72  6f 6d 25 3c 36 20 59 25  |)...$.from%<6 Y%|
00000fb0  3d 39 36 30 3a 58 25 3d  32 35 32 2a 28 66 72 6f  |=960:X%=252*(fro|
00000fc0  6d 25 2d 31 29 0d 05 e6  3d e7 66 72 6f 6d 25 3e  |m%-1)...=.from%>|
00000fd0  35 20 80 66 72 6f 6d 25  3c 31 30 20 59 25 3d 37  |5 .from%<10 Y%=7|
00000fe0  33 36 3a 58 25 3d 32 35  32 2a 28 66 72 6f 6d 25  |36:X%=252*(from%|
00000ff0  2d 36 29 2b 28 32 35 32  20 80 66 72 6f 6d 25 3e  |-6)+(252 .from%>|
00001000  37 29 0d 05 f0 3f e7 66  72 6f 6d 25 3e 39 20 80  |7)...?.from%>9 .|
00001010  66 72 6f 6d 25 3c 31 34  20 59 25 3d 35 31 32 3a  |from%<14 Y%=512:|
00001020  58 25 3d 32 35 32 2a 28  66 72 6f 6d 25 2d 31 30  |X%=252*(from%-10|
00001030  29 2b 28 32 35 32 20 80  66 72 6f 6d 25 3e 31 31  |)+(252 .from%>11|
00001040  29 0d 05 fa 2b e7 66 72  6f 6d 25 3e 31 33 20 59  |)...+.from%>13 Y|
00001050  25 3d 32 38 38 3a 58 25  3d 32 35 32 2a 28 66 72  |%=288:X%=252*(fr|
00001060  6f 6d 25 2d 31 34 29 20  2b 31 34 34 0d 05 ff 0a  |om%-14) +144....|
00001070  f2 62 6c 61 6e 6b 0d 06  04 0c e3 4a 25 3d 31 b8  |.blank.....J%=1.|
00001080  44 25 0d 06 0e 23 43 25  3d 43 25 28 66 72 6f 6d  |D%...#C%=C%(from|
00001090  25 2c 4a 25 29 3a 53 25  3d 53 25 28 66 72 6f 6d  |%,J%):S%=S%(from|
000010a0  25 2c 4a 25 29 0d 06 18  0c 58 25 3d 58 25 2b 33  |%,J%)....X%=X%+3|
000010b0  36 0d 06 22 09 f2 63 61  72 64 0d 06 2c 05 ed 0d  |6.."..card..,...|
000010c0  06 31 17 e7 44 25 28 66  72 6f 6d 25 29 3d 30 20  |.1..D%(from%)=0 |
000010d0  f2 62 6c 61 6e 6b 0d 06  36 0d 74 6f 25 3d 74 6f  |.blank..6.to%=to|
000010e0  25 2b 31 0d 06 40 1d 54  43 25 28 74 6f 25 29 3d  |%+1..@.TC%(to%)=|
000010f0  43 31 25 3a 54 53 25 28  74 6f 25 29 3d 53 31 25  |C1%:TS%(to%)=S1%|
00001100  0d 06 4a 1b 43 25 3d 54  43 25 28 74 6f 25 29 3a  |..J.C%=TC%(to%):|
00001110  53 25 3d 54 53 25 28 74  6f 25 29 0d 06 54 11 59  |S%=TS%(to%)..T.Y|
00001120  25 3d 36 38 30 3a 58 25  3d 35 37 38 0d 06 5e 09  |%=680:X%=578..^.|
00001130  f2 63 61 72 64 0d 06 68  05 e1 0d 06 72 0b dd f2  |.card..h....r...|
00001140  62 6c 61 6e 6b 0d 06 7c  2a ef 35 2c 32 34 2c 58  |blank..|*.5,24,X|
00001150  25 3b 59 25 2d 31 39 37  3b 58 25 2b 32 36 38 3b  |%;Y%-197;X%+268;|
00001160  59 25 2b 31 30 3b 3a e6  30 2c 31 32 38 3a da 0d  |Y%+10;:.0,128:..|
00001170  06 86 05 e1 0d 06 90 52  2a 4b 2e 30 20 2a 54 2e  |.......R*K.0 *T.|
00001180  7c 4d 46 4f 52 49 25 3d  30 54 4f 20 54 4f 50 2d  ||MFORI%=0TO TOP-|
00001190  50 41 47 45 20 53 54 45  50 34 3a 49 25 21 26 45  |PAGE STEP4:I%!&E|
000011a0  30 30 3d 49 25 21 50 41  47 45 3a 4e 45 58 54 7c  |00=I%!PAGE:NEXT||
000011b0  4d 50 41 47 45 3d 26 45  30 30 7c 4d 4f 4c 44 7c  |MPAGE=&E00|MOLD||
000011c0  4d 52 55 4e 7c 4d 0d 06  9a 10 2a 46 58 31 33 38  |MRUN|M....*FX138|
000011d0  2c 30 2c 31 32 38 0d 06  a4 05 e0 0d 06 ae 18 dd  |,0,128..........|
000011e0  f2 77 69 6e 3a ef 32 33  2c 31 2c 30 3b 30 3b 30  |.win:.23,1,0;0;0|
000011f0  3b 30 3b 0d 06 b8 1e f1  8a 31 31 2c 34 29 22 43  |;0;......11,4)"C|
00001200  4f 4e 47 52 41 54 55 4c  41 54 49 4f 4e 53 21 21  |ONGRATULATIONS!!|
00001210  22 0d 06 c2 1e f1 8a 31  31 2c 35 29 22 2d 2d 2d  |"......11,5)"---|
00001220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 22 0d  |--------------".|
00001230  06 cc 2b f1 8a 34 2c 38  29 22 59 6f 75 20 68 61  |..+..4,8)"You ha|
00001240  76 65 20 63 6f 6d 70 6c  65 74 65 64 20 44 65 61  |ve completed Dea|
00001250  6c 20 6e 6f 2e 20 22 3b  4d 25 0d 06 d6 20 f1 8a  |l no. ";M%... ..|
00001260  31 33 2c 31 30 29 22 69  6e 20 22 3b 6d 6f 76 65  |13,10)"in ";move|
00001270  25 3b 22 20 6d 6f 76 65  73 22 0d 06 e0 22 f1 8a  |%;" moves"..."..|
00001280  31 30 2c 31 34 29 22 41  6e 6f 74 68 65 72 20 64  |10,14)"Another d|
00001290  65 61 6c 3f 20 20 28 59  2f 4e 29 22 0d 06 ea 1b  |eal?  (Y/N)"....|
000012a0  f5 3a 4b 24 3d bf 30 3a  fd 4b 24 3d 22 59 22 20  |.:K$=.0:.K$="Y" |
000012b0  84 4b 24 3d 22 4e 22 0d  06 f4 0d 6d 6f 76 65 25  |.K$="N"....move%|
000012c0  3d 30 3a e1 0d 06 fe 05  2c 0d ff                 |=0:.....,..|
000012cb
G/BLKHOL2.m0
G/BLKHOL2.m1
G/BLKHOL2.m2
G/BLKHOL2.m4
G/BLKHOL2.m5

© Dominic Ford 2021–2024.

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