Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_52.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_52.ADF
Filename: G/BLKHOL
Read OK: ✔
File size: 15C6 bytes
Load address: FFFF1D00
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) June 2000
   50REM **************************
   60ON ERROR RUN
   70*FX21,0
   80IF PAGE>&E00 COLOUR0:GOTO2690
   90MODE1:VDU23;8202;0;0;0;
  100VDU19,0,4;0;19,2,0;0;
  110PROCvars
  120PROCrandom
  130PROCinit
  140PROCdeal
  150REPEAT:VDU26,4
  160PRINTTAB(9,30);sc%;"  "
  170PROCkey
  180IFa%>17 GOTO200
  190PROCmove
  200IFsc%=52 win%=TRUE
  210UNTILa%>18 ORwin%
  220PROCsavdat
  230IFwin% ORa%=20 PROCwin
  240RUN
  250END
  260:
  270DEFPROCtitle
  280PRINTTAB(15,1)"BLACKHOLE"
  290PRINTTAB(15,2)STRING$(9,"~")
  300ENDPROC
  310:
  320DEFPROCvars
  330DIM N%(51),c%(51),s%(51),C%(17,3),S%(17,3),D%(17),TC%(52),TS%(52)
  340m$="":sc%=0:win%=FALSE
  350ENDPROC
  360:
  370DEFPROCrandom
  380*FX15
  390PROCtitle
  400INPUT''"Enter Deal No. "M%
  410IFM%=0 M%=ABS(RND(-TIME))
  420G=RND(-M%)
  430FORI%=1TO51:N%(I%)=I%:NEXT:FORI%=51TO2STEP-1:D%=RND(I%):T%=N%(D%):N%(D%)=N%(I%):N%(I%)=T%:NEXTI%
  440RESTORE:FORi%=1TO51:READc%(i%),s%(i%):NEXT
  450CLS
  460ENDPROC
  470:
  480DATA8,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
  490DATA10,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
  500:
  510DEFPROCinit
  520PROCtitle
  530PRINTTAB(12,3)"Deal No. ";M%:Z%=M%
  540VDU5:n%=1:FORI%=1TO17:FORJ%=1TO3
  550C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
  560NEXT:NEXT
  570FORN%=1TO17:D%(N%)=3:NEXT
  580to%=1:TC%(1)=1:TS%(1)=4
  590ENDPROC
  600:
  610DEFPROCfive
  620PRINT;CHR$241;CHR$8;CHR$10;CHR$240;CHR$8;CHR$10;
  630ENDPROC
  640:
  650DEFPROCcard(card%,suit%)
  660VDU5
  670IF(suit%=1 ORsuit%=3) col%=1 ELSEIF(suit%=2 ORsuit%=4) col%=2
  680suit%=suit%+223
  690VDU24,X%-4;Y%-4;X%+100;Y%+132;:GCOL0,131:CLG
  700GCOL0,2:MOVEX%-4,Y%-4:DRAWX%-4,Y%+132:DRAWX%+100,Y%+132:DRAWX%+100,Y%-4:DRAWX%-4,Y%-4
  710IFcard%=1 cd%=65
  720IFcard%=11 cd%=ASC"J"
  730IFcard%=12 cd%=ASC"Q"
  740IFcard%=13 cd%=ASC"K"
  750IFcard%>1 ANDcard%<10 cd%=card%+48
  760IFcard%=10 cd%=229
  770PROCp
  780PROCpp
  790ENDPROC
  800:
  810DEFPROCp
  820MOVEX%,Y%+32:GCOL0,col%:PRINT;CHR$suit%:MOVEX%,Y%+128:PRINT;CHR$cd%
  830MOVEX%+64,Y%+32:PRINT;CHR$cd%:MOVEX%+64,Y%+128:PRINT;CHR$suit%
  840ENDPROC
  850:
  860DEFPROCpp
  870IFcard%=1 MOVEX%+32,Y%+80:PRINT;CHR$suit%:ENDPROC
  880IFcard%=2 MOVEX%+32,Y%+120:PRINT;CHR$239;:MOVEX%+32,Y%+56:PRINT;CHR$239:ENDPROC
  890IFcard%=3 MOVEX%+32,Y%+120:PRINT;CHR$239;:MOVEX%+32,Y%+88:PRINT;CHR$239;:MOVEX%+32,Y%+56:PRINT;CHR$239:ENDPROC
  900IFcard%=4 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  910IFcard%=5 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+88:PRINT;CHR$239;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  920IFcard%=6 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+72:PRINT;CHR$240;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  930IFcard%=7 MOVEX%+32,Y%+104:PROCfive:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  940IFcard%=8 MOVEX%+32,Y%+104:PRINT;CHR$241;:MOVEX%+32,Y%+72:PROCfive:ENDPROC
  950IFcard%=9 MOVEX%+32,Y%+112:PRINT;CHR$240;:MOVEX%+32,Y%+88:PROCfive:MOVEX%+32,Y%+32:PRINT;CHR$240:ENDPROC
  960IFcard%=10 MOVEX%+32,Y%+112:PROCfive:MOVEX%+32,Y%+66:PROCfive:ENDPROC
  970IFcard%=11 C$=CHR$242 ELSEIFcard%=12 C$=CHR$243 ELSEIFcard%=13 C$=CHR$244
  980IFcard%=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
  990MOVEX%+32,Y%+128:PRINTC$
 1000MOVEX%,Y%+96:PRINTCHR$245+CHR$246+CHR$247
 1010GCOL0,0:MOVEX%,Y%+64:PRINTD$:GCOL0,col%
 1020MOVEX%+32,Y%+32:PRINTCHR$253:ENDPROC
 1030:
 1040DEFPROCdeal
 1050x%=126:y%=848
 1060VDU5:FORz%=1TO5
 1070MOVEx%,y%:PRINTCHR$(64+z%)
 1080x%=x%+252
 1090NEXT
 1100x%=126:y%=656:n%=69
 1110FORm%=1TO2
 1120FORl%=1TO2
 1130FORz%=1TO2
 1140MOVEx%,y%:PRINTCHR$(n%+z%)
 1150x%=x%+252
 1160NEXT
 1170x%=x%+252:n%=n%+2
 1180NEXT
 1190y%=y%-192:x%=126
 1200NEXT
 1210x%=270
 1220FORz%=1TO4
 1230MOVEx%,y%:PRINTCHR$(77+z%)
 1240x%=x%+252
 1250NEXT
 1260PRINTTAB(2,30);"Score: 0"
 1270Y%=684:X%=36
 1280FORI%=1TO5
 1290PROCdeal3
 1300X%=X%+144
 1310NEXT
 1320Y%=Y%-192:X%=36
 1330FORI%=6TO9
 1340PROCdeal3
 1350X%=X%+144
 1360IFI%=7 X%=X%+252
 1370NEXT
 1380Y%=Y%-192:X%=36
 1390FORI%=10TO13
 1400PROCdeal3
 1410X%=X%+144
 1420IFI%=11 X%=X%+252
 1430NEXT
 1440Y%=Y%-192:X%=176
 1450FORI%=14TO17
 1460PROCdeal3
 1470X%=X%+144
 1480NEXT
 1490X%=578:Y%=408
 1500S%=4:C%=1
 1510PROCcard(C%,S%)
 1520:
 1530ENDPROC
 1540DEFPROCdeal3
 1550n%=n%+1
 1560FORJ%=1TO3
 1570C%=C%(I%,J%):S%=S%(I%,J%)
 1580PROCcard(C%,S%)
 1590X%=X%+36
 1600NEXT
 1610PRINTTAB(2,29);"Score: ";sc%
 1620ENDPROC
 1630:
 1640DEFPROCkey
 1650REPEAT:a%=INSTR("ABCDEFGHIJKLMNOPQURS",GET$):UNTILa%
 1660IFa%=18 PROCundo
 1670from%=a%
 1680ENDPROC
 1690:
 1700DEFPROCmove:IFa%=18 ENDPROC ELSEM%=TRUE
 1710IFD%(from%)=-1 M%=FALSE:ENDPROC
 1720IFC%(from%,D%(from%))=1 ANDTC%(to%)=13 GOTO1750
 1730IFC%(from%,D%(from%))=13 ANDTC%(to%)=1 GOTO1750
 1740IFC%(from%,D%(from%))-1=TC%(to%) ORC%(from%,D%(from%))+1=TC%(to%) GOTO1750 ELSEENDPROC
 1750:
 1760C1%=C%(from%,D%(from%)):S1%=S%(from%,D%(from%))
 1770D%(from%)=D%(from%)-1:D%=D%(from%)
 1780PROCprtpos
 1790XX%=X%
 1800sc%=sc%+1
 1810m$=m$+CHR$(from%+64)
 1820PROCblank
 1830FORJ%=1TOD%
 1840C%=C%(from%,J%):S%=S%(from%,J%)
 1850X%=X%+36
 1860PROCcard(C%,S%)
 1870NEXT
 1880IFD%(from%)=0 PROCblank
 1890to%=to%+1
 1900TC%(to%)=C1%:TS%(to%)=S1%
 1910C%=TC%(to%):S%=TS%(to%)
 1920Y%=408:X%=578
 1930PROCcard(C%,S%)
 1940ENDPROC
 1950:
 1960DEFPROCblank
 1970VDU5,24,XX%+16;Y%-4;XX%+216;Y%+136;:GCOL0,128:CLG
 1980ENDPROC
 1990:
 2000DEFPROCprtpos
 2010RESTORE2040
 2020FORx%=1TOfrom%:READX%,Y%:NEXT
 2030ENDPROC
 2040DATA 0,684,252,684,504,684,756,684,1008,684,0,492,252,492,756,492,1008,492,0,300,252,300,756,300,1008,300,144,108,398,108,648,108,900,108
 2050:
 2060DEFPROCundo
 2070mv%=TRUE
 2080IF LEN(m$)<=0 mv%=FALSE:chk=TRUE:ENDPROC
 2090:
 2100A$="ABCDEFGHIJKLMNOPQ"
 2110l$=RIGHT$(m$,1)
 2120from%=INSTR(A$,l$)
 2130m$=LEFT$(m$,LENm$-1)
 2140C1%=TC%(to%):S1%=TS%(to%):to%=to%-1
 2150C%=TC%(to%):S%=TS%(to%)
 2160X%=578:Y%=408
 2170PROCcard(C%,S%)
 2180D%=D%(from%):D%=D%+1:D%(from%)=D%(from%)+1
 2190C%(D%(from%),D%)=C1%:S%(D%(from%),D%)=S1%
 2200PROCprtpos
 2210FORJ%=1TOD%
 2220C%=C%(D%(from%),J%):S%=S%(D%(from%),J%)
 2230X%=X%+36
 2240PROCcard(C%,S%)
 2250NEXT
 2260sc%=sc%-1
 2270ENDPROC
 2280:
 2290DEFPROCwin:VDU23,1,0;0;0;0;
 2300COLOUR128:CLS
 2310PROCtitle
 2320REM IFwin% PRINTTAB(12,4);"CONGRATULATIONS!!"
 2330PRINTTAB(4,6)"Game No.  Score    Your Statistics"
 2340PRINTTAB(4,7)"~~~~~~~~  ~~~~~    ~~~~~~~~~~~~~~~"
 2350VDU28,2,24,19,8:COLOUR130:CLS
 2360PROCprintdat
 2370VDU26:COLOUR128:PRINTTAB(21,8)"Games played ";N%
 2380PRINTTAB(21,10)"Wins ";win%;TAB(30,10);"Losses ";N%-win%
 2390PRINTTAB(21,12)"Average score ";INT(totsc%/N%)
 2400PRINTTAB(6,28);"Another game? (Y/N)"
 2410REPEAT:a%=INSTR("YyNn",GET$):UNTILa%
 2420IFa%>2 VDU22,6:END
 2430ENDPROC
 2440DEFPROCprintdat
 2450totsc%=0
 2460A=OPENUP"BHdat"
 2470INPUT#A,N%
 2480FORN=1TON%
 2490INPUT#A,M%,sc%,win%
 2500PRINT'M%;"   ";sc%
 2510totsc%=totsc%+sc%
 2520NEXT
 2530CLOSE#A
 2540ENDPROC
 2550:
 2560DEFPROCsavdat
 2570A=OPENUP"BHDAT"
 2580INPUT#A,N%
 2590PTR#A=0
 2600PRINT#A,N%
 2610PTR#A=(N%*15)+5
 2620PRINT#A,Z%,sc%,win%
 2630PTR#A=0
 2640N%=N%+1
 2650PRINT#A,N%
 2660CLOSE#A
 2670ENDPROC
 2680:
 2690*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
 2700*FX138,0,128


 � **************************
� Blackhole
� By R.A.Dimond
(� (c) June 2000
2 � **************************
<	� � �
F*FX21,0
P� �>&E00 �0:�tBJ
Z�1:�23;8202;0;0;0;
d�19,0,4;0;19,2,0;0;
n	�vars
x�random
�	�init
�	�deal
��:�26,4
��9,30);sc%;"  "
��key
��a%>17 �dH@
�	�move
��sc%=52 win%=�
��a%>18 �win%
��savdat
��win% �a%=20 �win
��
��
:
��title
�15,1)"BLACKHOLE"
"�15,2)�9,"~")
,�
6:
@
��vars
JC� N%(51),c%(51),s%(51),C%(17,3),S%(17,3),D%(17),TC%(52),TS%(52)
Tm$="":sc%=0:win%=�
^�
h:
r��random
|	*FX15
�
�title
��''"Enter Deal No. "M%
��M%=0 M%=�(�(-�))
�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
�:
�
��init

�title
�12,3)"Deal No. ";M%:Z%=M%
�5:n%=1:�I%=1�17:�J%=1�3
&5C%(I%,J%)=c%(N%(n%)):S%(I%,J%)=s%(N%(n%)):n%=n%+1
0�:�
:�N%=1�17:D%(N%)=3:�
Dto%=1:TC%(1)=1:TS%(1)=4
N�
X:
b
��five
l�;�241;�8;�10;�240;�8;�10;
v�
�:
���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
�pp
�
 :
*��p
40�X%,Y%+32:�0,col%:�;�suit%:�X%,Y%+128:�;�cd%
>.�X%+64,Y%+32:�;�cd%:�X%+64,Y%+128:�;�suit%
H�
R:
\��pp
f$�card%=1 �X%+32,Y%+80:�;�suit%:�
p8�card%=2 �X%+32,Y%+120:�;�239;:�X%+32,Y%+56:�;�239:�
zM�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:�
:

��deal
x%=126:y%=848
$�5:�z%=1�5
.�x%,y%:�(64+z%)
8
x%=x%+252
B�
Lx%=126:y%=656:n%=69
V�m%=1�2
`�l%=1�2
j�z%=1�2
t�x%,y%:�(n%+z%)
~
x%=x%+252
��
�x%=x%+252:n%=n%+2
��
�y%=y%-192:x%=126
��
�
x%=270
��z%=1�4
��x%,y%:�(77+z%)
�
x%=x%+252
��
��2,30);"Score: 0"
�Y%=684:X%=36
�I%=1�5


�deal3

X%=X%+144
�
(Y%=Y%-192:X%=36
2�I%=6�9
<
�deal3
F
X%=X%+144
P�I%=7 X%=X%+252
Z�
dY%=Y%-192:X%=36
n
�I%=10�13
x
�deal3
�
X%=X%+144
��I%=11 X%=X%+252
��
�Y%=Y%-192:X%=176
�
�I%=14�17
�
�deal3
�
X%=X%+144
��
�X%=578:Y%=408
�
S%=4:C%=1
��card(C%,S%)
�:
��
��deal3
n%=n%+1
�J%=1�3
"C%=C%(I%,J%):S%=S%(I%,J%)
,�card(C%,S%)
6X%=X%+36
@�
J�2,29);"Score: ";sc%
T�
^:
h	��key
r'�:a%=�"ABCDEFGHIJKLMNOPQURS",�):�a%
|�a%=18 �undo
�from%=a%
��
�:
���move:�a%=18 � �M%=�
��D%(from%)=-1 M%=�:�
�-�C%(from%,D%(from%))=1 �TC%(to%)=13 �dVF
�-�C%(from%,D%(from%))=13 �TC%(to%)=1 �dVF
�L�C%(from%,D%(from%))-1=TC%(to%) �C%(from%,D%(from%))+1=TC%(to%) �dVF ��
�:
�3C1%=C%(from%,D%(from%)):S1%=S%(from%,D%(from%))
�&D%(from%)=D%(from%)-1:D%=D%(from%)
��prtpos
�
XX%=X%

sc%=sc%+1
m$=m$+�(from%+64)

�blank
&�J%=1�D%
0#C%=C%(from%,J%):S%=S%(from%,J%)
:X%=X%+36
D�card(C%,S%)
N�
X�D%(from%)=0 �blank
b
to%=to%+1
lTC%(to%)=C1%:TS%(to%)=S1%
vC%=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:�
��
�:
���prtpos
�	��dxG
��x%=1�from%:�X%,Y%:�
��
��� 0,684,252,684,504,684,756,684,1008,684,0,492,252,492,756,492,1008,492,0,300,252,300,756,300,1008,300,144,108,398,108,648,108,900,108
:

��undo
	mv%=�
 � �(m$)<=0 mv%=�:chk=�:�
*:
4A$="ABCDEFGHIJKLMNOPQ"
>
l$=�m$,1)
Hfrom%=�A$,l$)
Rm$=�m$,�m$-1)
\'C1%=TC%(to%):S1%=TS%(to%):to%=to%-1
fC%=TC%(to%):S%=TS%(to%)
pX%=578:Y%=408
z�card(C%,S%)
�.D%=D%(from%):D%=D%+1:D%(from%)=D%(from%)+1
�-C%(D%(from%),D%)=C1%:S%(D%(from%),D%)=S1%
��prtpos
��J%=1�D%
�+C%=C%(D%(from%),J%):S%=S%(D%(from%),J%)
�X%=X%+36
��card(C%,S%)
��
�
sc%=sc%-1
��
�:
���win:�23,1,0;0;0;0;
�
�128:�
	
�title
	/� IFwin% PRINTTAB(12,4);"CONGRATULATIONS!!"
	.�4,6)"Game No.  Score    Your Statistics"
	$.�4,7)"~~~~~~~~  ~~~~~    ~~~~~~~~~~~~~~~"
	.�28,2,24,19,8:�130:�
	8
�printdat
	B&�26:�128:�21,8)"Games played ";N%
	L2�21,10)"Wins ";win%;�30,10);"Losses ";N%-win%
	V)�21,12)"Average score ";�(totsc%/N%)
	`!�6,28);"Another game? (Y/N)"
	j�:a%=�"YyNn",�):�a%
	t�a%>2 �22,6:�
	~�
	���printdat
	�totsc%=0
	�A=�"BHdat"
	�
�#A,N%
	��N=1�N%
	��#A,M%,sc%,win%
	��'M%;"   ";sc%
	�totsc%=totsc%+sc%
	��
	��#A
	��
	�:
��savdat

A=�"BHDAT"

�#A,N%
	�#A=0
(
�#A,N%
2�#A=(N%*15)+5
<�#A,Z%,sc%,win%
F	�#A=0
PN%=N%+1
Z
�#A,N%
d�#A
n�
x:
�R*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
�*FX138,0,128
�
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 13 f4 20  28 63 29 20 4a 75 6e 65  |nd..(.. (c) June|
00000050  20 32 30 30 30 0d 00 32  20 f4 20 2a 2a 2a 2a 2a  | 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 0d 00 3c  09 ee 20 85 20 f9 0d 00  |*****..<.. . ...|
00000080  46 0b 2a 46 58 32 31 2c  30 0d 00 50 15 e7 20 90  |F.*FX21,0..P.. .|
00000090  3e 26 45 30 30 20 fb 30  3a e5 8d 74 42 4a 0d 00  |>&E00 .0:..tBJ..|
000000a0  5a 16 eb 31 3a ef 32 33  3b 38 32 30 32 3b 30 3b  |Z..1:.23;8202;0;|
000000b0  30 3b 30 3b 0d 00 64 17  ef 31 39 2c 30 2c 34 3b  |0;0;..d..19,0,4;|
000000c0  30 3b 31 39 2c 32 2c 30  3b 30 3b 0d 00 6e 09 f2  |0;19,2,0;0;..n..|
000000d0  76 61 72 73 0d 00 78 0b  f2 72 61 6e 64 6f 6d 0d  |vars..x..random.|
000000e0  00 82 09 f2 69 6e 69 74  0d 00 8c 09 f2 64 65 61  |....init.....dea|
000000f0  6c 0d 00 96 0b f5 3a ef  32 36 2c 34 0d 00 a0 14  |l.....:.26,4....|
00000100  f1 8a 39 2c 33 30 29 3b  73 63 25 3b 22 20 20 22  |..9,30);sc%;"  "|
00000110  0d 00 aa 08 f2 6b 65 79  0d 00 b4 10 e7 61 25 3e  |.....key.....a%>|
00000120  31 37 20 e5 8d 64 48 40  0d 00 be 09 f2 6d 6f 76  |17 ..dH@.....mov|
00000130  65 0d 00 c8 12 e7 73 63  25 3d 35 32 20 77 69 6e  |e.....sc%=52 win|
00000140  25 3d b9 0d 00 d2 10 fd  61 25 3e 31 38 20 84 77  |%=......a%>18 .w|
00000150  69 6e 25 0d 00 dc 0b f2  73 61 76 64 61 74 0d 00  |in%.....savdat..|
00000160  e6 15 e7 77 69 6e 25 20  84 61 25 3d 32 30 20 f2  |...win% .a%=20 .|
00000170  77 69 6e 0d 00 f0 05 f9  0d 00 fa 05 e0 0d 01 04  |win.............|
00000180  05 3a 0d 01 0e 0b dd f2  74 69 74 6c 65 0d 01 18  |.:......title...|
00000190  16 f1 8a 31 35 2c 31 29  22 42 4c 41 43 4b 48 4f  |...15,1)"BLACKHO|
000001a0  4c 45 22 0d 01 22 12 f1  8a 31 35 2c 32 29 c4 39  |LE".."...15,2).9|
000001b0  2c 22 7e 22 29 0d 01 2c  05 e1 0d 01 36 05 3a 0d  |,"~")..,....6.:.|
000001c0  01 40 0a dd f2 76 61 72  73 0d 01 4a 43 de 20 4e  |.@...vars..JC. N|
000001d0  25 28 35 31 29 2c 63 25  28 35 31 29 2c 73 25 28  |%(51),c%(51),s%(|
000001e0  35 31 29 2c 43 25 28 31  37 2c 33 29 2c 53 25 28  |51),C%(17,3),S%(|
000001f0  31 37 2c 33 29 2c 44 25  28 31 37 29 2c 54 43 25  |17,3),D%(17),TC%|
00000200  28 35 32 29 2c 54 53 25  28 35 32 29 0d 01 54 16  |(52),TS%(52)..T.|
00000210  6d 24 3d 22 22 3a 73 63  25 3d 30 3a 77 69 6e 25  |m$="":sc%=0:win%|
00000220  3d a3 0d 01 5e 05 e1 0d  01 68 05 3a 0d 01 72 0c  |=...^....h.:..r.|
00000230  dd f2 72 61 6e 64 6f 6d  0d 01 7c 09 2a 46 58 31  |..random..|.*FX1|
00000240  35 0d 01 86 0a f2 74 69  74 6c 65 0d 01 90 1a e8  |5.....title.....|
00000250  27 27 22 45 6e 74 65 72  20 44 65 61 6c 20 4e 6f  |''"Enter Deal No|
00000260  2e 20 22 4d 25 0d 01 9a  15 e7 4d 25 3d 30 20 4d  |. "M%.....M%=0 M|
00000270  25 3d 94 28 b3 28 2d 91  29 29 0d 01 a4 0c 47 3d  |%=.(.(-.))....G=|
00000280  b3 28 2d 4d 25 29 0d 01  ae 53 e3 49 25 3d 31 b8  |.(-M%)...S.I%=1.|
00000290  35 31 3a 4e 25 28 49 25  29 3d 49 25 3a ed 3a e3  |51:N%(I%)=I%:.:.|
000002a0  49 25 3d 35 31 b8 32 88  2d 31 3a 44 25 3d b3 28  |I%=51.2.-1:D%=.(|
000002b0  49 25 29 3a 54 25 3d 4e  25 28 44 25 29 3a 4e 25  |I%):T%=N%(D%):N%|
000002c0  28 44 25 29 3d 4e 25 28  49 25 29 3a 4e 25 28 49  |(D%)=N%(I%):N%(I|
000002d0  25 29 3d 54 25 3a ed 49  25 0d 01 b8 1f f7 3a e3  |%)=T%:.I%.....:.|
000002e0  69 25 3d 31 b8 35 31 3a  f3 63 25 28 69 25 29 2c  |i%=1.51:.c%(i%),|
000002f0  73 25 28 69 25 29 3a ed  0d 01 c2 05 db 0d 01 cc  |s%(i%):.........|
00000300  05 e1 0d 01 d6 05 3a 0d  01 e0 74 dc 38 2c 31 2c  |......:...t.8,1,|
00000310  33 2c 32 2c 31 31 2c 34  2c 31 32 2c 31 2c 34 2c  |3,2,11,4,12,1,4,|
00000320  32 2c 39 2c 31 2c 36 2c  32 2c 32 2c 33 2c 37 2c  |2,9,1,6,2,2,3,7,|
00000330  33 2c 31 30 2c 33 2c 35  2c 32 2c 31 33 2c 32 2c  |3,10,3,5,2,13,2,|
00000340  35 2c 31 2c 32 2c 34 2c  31 30 2c 32 2c 38 2c 32  |5,1,2,4,10,2,8,2|
00000350  2c 36 2c 31 2c 33 2c 31  2c 39 2c 34 2c 31 31 2c  |,6,1,3,1,9,4,11,|
00000360  33 2c 37 2c 32 2c 31 33  2c 34 2c 34 2c 33 2c 31  |3,7,2,13,4,4,3,1|
00000370  32 2c 32 2c 31 2c 31 2c  31 2c 33 0d 01 ea 70 dc  |2,2,1,1,1,3...p.|
00000380  31 30 2c 31 2c 31 32 2c  34 2c 34 2c 31 2c 31 33  |10,1,12,4,4,1,13|
00000390  2c 31 2c 38 2c 33 2c 32  2c 31 2c 37 2c 31 2c 31  |,1,8,3,2,1,7,1,1|
000003a0  31 2c 32 2c 33 2c 34 2c  39 2c 32 2c 36 2c 34 2c  |1,2,3,4,9,2,6,4,|
000003b0  31 33 2c 33 2c 37 2c 34  2c 32 2c 32 2c 31 31 2c  |13,3,7,4,2,2,11,|
000003c0  31 2c 35 2c 33 2c 39 2c  33 2c 36 2c 33 2c 34 2c  |1,5,3,9,3,6,3,4,|
000003d0  34 2c 31 30 2c 34 2c 33  2c 33 2c 38 2c 34 2c 35  |4,10,4,3,3,8,4,5|
000003e0  2c 34 2c 31 32 2c 33 2c  31 2c 32 0d 01 f4 05 3a  |,4,12,3,1,2....:|
000003f0  0d 01 fe 0a dd f2 69 6e  69 74 0d 02 08 0a f2 74  |......init.....t|
00000400  69 74 6c 65 0d 02 12 1f  f1 8a 31 32 2c 33 29 22  |itle......12,3)"|
00000410  44 65 61 6c 20 4e 6f 2e  20 22 3b 4d 25 3a 5a 25  |Deal No. ";M%:Z%|
00000420  3d 4d 25 0d 02 1c 1c ef  35 3a 6e 25 3d 31 3a e3  |=M%.....5:n%=1:.|
00000430  49 25 3d 31 b8 31 37 3a  e3 4a 25 3d 31 b8 33 0d  |I%=1.17:.J%=1.3.|
00000440  02 26 35 43 25 28 49 25  2c 4a 25 29 3d 63 25 28  |.&5C%(I%,J%)=c%(|
00000450  4e 25 28 6e 25 29 29 3a  53 25 28 49 25 2c 4a 25  |N%(n%)):S%(I%,J%|
00000460  29 3d 73 25 28 4e 25 28  6e 25 29 29 3a 6e 25 3d  |)=s%(N%(n%)):n%=|
00000470  6e 25 2b 31 0d 02 30 07  ed 3a ed 0d 02 3a 17 e3  |n%+1..0..:...:..|
00000480  4e 25 3d 31 b8 31 37 3a  44 25 28 4e 25 29 3d 33  |N%=1.17:D%(N%)=3|
00000490  3a ed 0d 02 44 1b 74 6f  25 3d 31 3a 54 43 25 28  |:...D.to%=1:TC%(|
000004a0  31 29 3d 31 3a 54 53 25  28 31 29 3d 34 0d 02 4e  |1)=1:TS%(1)=4..N|
000004b0  05 e1 0d 02 58 05 3a 0d  02 62 0a dd f2 66 69 76  |....X.:..b...fiv|
000004c0  65 0d 02 6c 1e f1 3b bd  32 34 31 3b bd 38 3b bd  |e..l..;.241;.8;.|
000004d0  31 30 3b bd 32 34 30 3b  bd 38 3b bd 31 30 3b 0d  |10;.240;.8;.10;.|
000004e0  02 76 05 e1 0d 02 80 05  3a 0d 02 8a 17 dd f2 63  |.v......:......c|
000004f0  61 72 64 28 63 61 72 64  25 2c 73 75 69 74 25 29  |ard(card%,suit%)|
00000500  0d 02 94 06 ef 35 0d 02  9e 3a e7 28 73 75 69 74  |.....5...:.(suit|
00000510  25 3d 31 20 84 73 75 69  74 25 3d 33 29 20 63 6f  |%=1 .suit%=3) co|
00000520  6c 25 3d 31 20 8b e7 28  73 75 69 74 25 3d 32 20  |l%=1 ..(suit%=2 |
00000530  84 73 75 69 74 25 3d 34  29 20 63 6f 6c 25 3d 32  |.suit%=4) col%=2|
00000540  0d 02 a8 13 73 75 69 74  25 3d 73 75 69 74 25 2b  |....suit%=suit%+|
00000550  32 32 33 0d 02 b2 29 ef  32 34 2c 58 25 2d 34 3b  |223...).24,X%-4;|
00000560  59 25 2d 34 3b 58 25 2b  31 30 30 3b 59 25 2b 31  |Y%-4;X%+100;Y%+1|
00000570  33 32 3b 3a e6 30 2c 31  33 31 3a da 0d 02 bc 47  |32;:.0,131:....G|
00000580  e6 30 2c 32 3a ec 58 25  2d 34 2c 59 25 2d 34 3a  |.0,2:.X%-4,Y%-4:|
00000590  df 58 25 2d 34 2c 59 25  2b 31 33 32 3a df 58 25  |.X%-4,Y%+132:.X%|
000005a0  2b 31 30 30 2c 59 25 2b  31 33 32 3a df 58 25 2b  |+100,Y%+132:.X%+|
000005b0  31 30 30 2c 59 25 2d 34  3a df 58 25 2d 34 2c 59  |100,Y%-4:.X%-4,Y|
000005c0  25 2d 34 0d 02 c6 13 e7  63 61 72 64 25 3d 31 20  |%-4.....card%=1 |
000005d0  63 64 25 3d 36 35 0d 02  d0 16 e7 63 61 72 64 25  |cd%=65.....card%|
000005e0  3d 31 31 20 63 64 25 3d  97 22 4a 22 0d 02 da 16  |=11 cd%=."J"....|
000005f0  e7 63 61 72 64 25 3d 31  32 20 63 64 25 3d 97 22  |.card%=12 cd%=."|
00000600  51 22 0d 02 e4 16 e7 63  61 72 64 25 3d 31 33 20  |Q".....card%=13 |
00000610  63 64 25 3d 97 22 4b 22  0d 02 ee 23 e7 63 61 72  |cd%=."K"...#.car|
00000620  64 25 3e 31 20 80 63 61  72 64 25 3c 31 30 20 63  |d%>1 .card%<10 c|
00000630  64 25 3d 63 61 72 64 25  2b 34 38 0d 02 f8 15 e7  |d%=card%+48.....|
00000640  63 61 72 64 25 3d 31 30  20 63 64 25 3d 32 32 39  |card%=10 cd%=229|
00000650  0d 03 02 06 f2 70 0d 03  0c 07 f2 70 70 0d 03 16  |.....p.....pp...|
00000660  05 e1 0d 03 20 05 3a 0d  03 2a 07 dd f2 70 0d 03  |.... .:..*...p..|
00000670  34 30 ec 58 25 2c 59 25  2b 33 32 3a e6 30 2c 63  |40.X%,Y%+32:.0,c|
00000680  6f 6c 25 3a f1 3b bd 73  75 69 74 25 3a ec 58 25  |ol%:.;.suit%:.X%|
00000690  2c 59 25 2b 31 32 38 3a  f1 3b bd 63 64 25 0d 03  |,Y%+128:.;.cd%..|
000006a0  3e 2e ec 58 25 2b 36 34  2c 59 25 2b 33 32 3a f1  |>..X%+64,Y%+32:.|
000006b0  3b bd 63 64 25 3a ec 58  25 2b 36 34 2c 59 25 2b  |;.cd%:.X%+64,Y%+|
000006c0  31 32 38 3a f1 3b bd 73  75 69 74 25 0d 03 48 05  |128:.;.suit%..H.|
000006d0  e1 0d 03 52 05 3a 0d 03  5c 08 dd f2 70 70 0d 03  |...R.:..\...pp..|
000006e0  66 24 e7 63 61 72 64 25  3d 31 20 ec 58 25 2b 33  |f$.card%=1 .X%+3|
000006f0  32 2c 59 25 2b 38 30 3a  f1 3b bd 73 75 69 74 25  |2,Y%+80:.;.suit%|
00000700  3a e1 0d 03 70 38 e7 63  61 72 64 25 3d 32 20 ec  |:...p8.card%=2 .|
00000710  58 25 2b 33 32 2c 59 25  2b 31 32 30 3a f1 3b bd  |X%+32,Y%+120:.;.|
00000720  32 33 39 3b 3a ec 58 25  2b 33 32 2c 59 25 2b 35  |239;:.X%+32,Y%+5|
00000730  36 3a f1 3b bd 32 33 39  3a e1 0d 03 7a 4d e7 63  |6:.;.239:...zM.c|
00000740  61 72 64 25 3d 33 20 ec  58 25 2b 33 32 2c 59 25  |ard%=3 .X%+32,Y%|
00000750  2b 31 32 30 3a f1 3b bd  32 33 39 3b 3a ec 58 25  |+120:.;.239;:.X%|
00000760  2b 33 32 2c 59 25 2b 38  38 3a f1 3b bd 32 33 39  |+32,Y%+88:.;.239|
00000770  3b 3a ec 58 25 2b 33 32  2c 59 25 2b 35 36 3a f1  |;:.X%+32,Y%+56:.|
00000780  3b bd 32 33 39 3a e1 0d  03 84 38 e7 63 61 72 64  |;.239:....8.card|
00000790  25 3d 34 20 ec 58 25 2b  33 32 2c 59 25 2b 31 30  |%=4 .X%+32,Y%+10|
000007a0  34 3a f1 3b bd 32 34 30  3b 3a ec 58 25 2b 33 32  |4:.;.240;:.X%+32|
000007b0  2c 59 25 2b 34 30 3a f1  3b bd 32 34 30 3a e1 0d  |,Y%+40:.;.240:..|
000007c0  03 8e 4d e7 63 61 72 64  25 3d 35 20 ec 58 25 2b  |..M.card%=5 .X%+|
000007d0  33 32 2c 59 25 2b 31 30  34 3a f1 3b bd 32 34 30  |32,Y%+104:.;.240|
000007e0  3b 3a ec 58 25 2b 33 32  2c 59 25 2b 38 38 3a f1  |;:.X%+32,Y%+88:.|
000007f0  3b bd 32 33 39 3b 3a ec  58 25 2b 33 32 2c 59 25  |;.239;:.X%+32,Y%|
00000800  2b 34 30 3a f1 3b bd 32  34 30 3a e1 0d 03 98 4d  |+40:.;.240:....M|
00000810  e7 63 61 72 64 25 3d 36  20 ec 58 25 2b 33 32 2c  |.card%=6 .X%+32,|
00000820  59 25 2b 31 30 34 3a f1  3b bd 32 34 30 3b 3a ec  |Y%+104:.;.240;:.|
00000830  58 25 2b 33 32 2c 59 25  2b 37 32 3a f1 3b bd 32  |X%+32,Y%+72:.;.2|
00000840  34 30 3b 3a ec 58 25 2b  33 32 2c 59 25 2b 34 30  |40;:.X%+32,Y%+40|
00000850  3a f1 3b bd 32 34 30 3a  e1 0d 03 a2 36 e7 63 61  |:.;.240:....6.ca|
00000860  72 64 25 3d 37 20 ec 58  25 2b 33 32 2c 59 25 2b  |rd%=7 .X%+32,Y%+|
00000870  31 30 34 3a f2 66 69 76  65 3a ec 58 25 2b 33 32  |104:.five:.X%+32|
00000880  2c 59 25 2b 34 30 3a f1  3b bd 32 34 30 3a e1 0d  |,Y%+40:.;.240:..|
00000890  03 ac 37 e7 63 61 72 64  25 3d 38 20 ec 58 25 2b  |..7.card%=8 .X%+|
000008a0  33 32 2c 59 25 2b 31 30  34 3a f1 3b bd 32 34 31  |32,Y%+104:.;.241|
000008b0  3b 3a ec 58 25 2b 33 32  2c 59 25 2b 37 32 3a f2  |;:.X%+32,Y%+72:.|
000008c0  66 69 76 65 3a e1 0d 03  b6 4b e7 63 61 72 64 25  |five:....K.card%|
000008d0  3d 39 20 ec 58 25 2b 33  32 2c 59 25 2b 31 31 32  |=9 .X%+32,Y%+112|
000008e0  3a f1 3b bd 32 34 30 3b  3a ec 58 25 2b 33 32 2c  |:.;.240;:.X%+32,|
000008f0  59 25 2b 38 38 3a f2 66  69 76 65 3a ec 58 25 2b  |Y%+88:.five:.X%+|
00000900  33 32 2c 59 25 2b 33 32  3a f1 3b bd 32 34 30 3a  |32,Y%+32:.;.240:|
00000910  e1 0d 03 c0 36 e7 63 61  72 64 25 3d 31 30 20 ec  |....6.card%=10 .|
00000920  58 25 2b 33 32 2c 59 25  2b 31 31 32 3a f2 66 69  |X%+32,Y%+112:.fi|
00000930  76 65 3a ec 58 25 2b 33  32 2c 59 25 2b 36 36 3a  |ve:.X%+32,Y%+66:|
00000940  f2 66 69 76 65 3a e1 0d  03 ca 3b e7 63 61 72 64  |.five:....;.card|
00000950  25 3d 31 31 20 43 24 3d  bd 32 34 32 20 8b e7 63  |%=11 C$=.242 ..c|
00000960  61 72 64 25 3d 31 32 20  43 24 3d bd 32 34 33 20  |ard%=12 C$=.243 |
00000970  8b e7 63 61 72 64 25 3d  31 33 20 43 24 3d bd 32  |..card%=13 C$=.2|
00000980  34 34 0d 03 d4 59 e7 63  61 72 64 25 3d 31 31 20  |44...Y.card%=11 |
00000990  44 24 3d bd 32 34 38 2b  bd 32 34 39 2b bd 32 35  |D$=.248+.249+.25|
000009a0  32 20 8b e7 63 61 72 64  25 3d 31 32 20 44 24 3d  |2 ..card%=12 D$=|
000009b0  bd 32 34 38 2b bd 32 35  30 2b bd 32 35 32 20 8b  |.248+.250+.252 .|
000009c0  e7 63 61 72 64 25 3d 31  33 20 44 24 3d bd 32 34  |.card%=13 D$=.24|
000009d0  38 2b bd 32 35 31 2b bd  32 35 32 0d 03 de 15 ec  |8+.251+.252.....|
000009e0  58 25 2b 33 32 2c 59 25  2b 31 32 38 3a f1 43 24  |X%+32,Y%+128:.C$|
000009f0  0d 03 e8 1d ec 58 25 2c  59 25 2b 39 36 3a f1 bd  |.....X%,Y%+96:..|
00000a00  32 34 35 2b bd 32 34 36  2b bd 32 34 37 0d 03 f2  |245+.246+.247...|
00000a10  1e e6 30 2c 30 3a ec 58  25 2c 59 25 2b 36 34 3a  |..0,0:.X%,Y%+64:|
00000a20  f1 44 24 3a e6 30 2c 63  6f 6c 25 0d 03 fc 18 ec  |.D$:.0,col%.....|
00000a30  58 25 2b 33 32 2c 59 25  2b 33 32 3a f1 bd 32 35  |X%+32,Y%+32:..25|
00000a40  33 3a e1 0d 04 06 05 3a  0d 04 10 0a dd f2 64 65  |3:.....:......de|
00000a50  61 6c 0d 04 1a 11 78 25  3d 31 32 36 3a 79 25 3d  |al....x%=126:y%=|
00000a60  38 34 38 0d 04 24 0e ef  35 3a e3 7a 25 3d 31 b8  |848..$..5:.z%=1.|
00000a70  35 0d 04 2e 14 ec 78 25  2c 79 25 3a f1 bd 28 36  |5.....x%,y%:..(6|
00000a80  34 2b 7a 25 29 0d 04 38  0d 78 25 3d 78 25 2b 32  |4+z%)..8.x%=x%+2|
00000a90  35 32 0d 04 42 05 ed 0d  04 4c 17 78 25 3d 31 32  |52..B....L.x%=12|
00000aa0  36 3a 79 25 3d 36 35 36  3a 6e 25 3d 36 39 0d 04  |6:y%=656:n%=69..|
00000ab0  56 0b e3 6d 25 3d 31 b8  32 0d 04 60 0b e3 6c 25  |V..m%=1.2..`..l%|
00000ac0  3d 31 b8 32 0d 04 6a 0b  e3 7a 25 3d 31 b8 32 0d  |=1.2..j..z%=1.2.|
00000ad0  04 74 14 ec 78 25 2c 79  25 3a f1 bd 28 6e 25 2b  |.t..x%,y%:..(n%+|
00000ae0  7a 25 29 0d 04 7e 0d 78  25 3d 78 25 2b 32 35 32  |z%)..~.x%=x%+252|
00000af0  0d 04 88 05 ed 0d 04 92  15 78 25 3d 78 25 2b 32  |.........x%=x%+2|
00000b00  35 32 3a 6e 25 3d 6e 25  2b 32 0d 04 9c 05 ed 0d  |52:n%=n%+2......|
00000b10  04 a6 14 79 25 3d 79 25  2d 31 39 32 3a 78 25 3d  |...y%=y%-192:x%=|
00000b20  31 32 36 0d 04 b0 05 ed  0d 04 ba 0a 78 25 3d 32  |126.........x%=2|
00000b30  37 30 0d 04 c4 0b e3 7a  25 3d 31 b8 34 0d 04 ce  |70.....z%=1.4...|
00000b40  14 ec 78 25 2c 79 25 3a  f1 bd 28 37 37 2b 7a 25  |..x%,y%:..(77+z%|
00000b50  29 0d 04 d8 0d 78 25 3d  78 25 2b 32 35 32 0d 04  |)....x%=x%+252..|
00000b60  e2 05 ed 0d 04 ec 16 f1  8a 32 2c 33 30 29 3b 22  |.........2,30);"|
00000b70  53 63 6f 72 65 3a 20 30  22 0d 04 f6 10 59 25 3d  |Score: 0"....Y%=|
00000b80  36 38 34 3a 58 25 3d 33  36 0d 05 00 0b e3 49 25  |684:X%=36.....I%|
00000b90  3d 31 b8 35 0d 05 0a 0a  f2 64 65 61 6c 33 0d 05  |=1.5.....deal3..|
00000ba0  14 0d 58 25 3d 58 25 2b  31 34 34 0d 05 1e 05 ed  |..X%=X%+144.....|
00000bb0  0d 05 28 13 59 25 3d 59  25 2d 31 39 32 3a 58 25  |..(.Y%=Y%-192:X%|
00000bc0  3d 33 36 0d 05 32 0b e3  49 25 3d 36 b8 39 0d 05  |=36..2..I%=6.9..|
00000bd0  3c 0a f2 64 65 61 6c 33  0d 05 46 0d 58 25 3d 58  |<..deal3..F.X%=X|
00000be0  25 2b 31 34 34 0d 05 50  13 e7 49 25 3d 37 20 58  |%+144..P..I%=7 X|
00000bf0  25 3d 58 25 2b 32 35 32  0d 05 5a 05 ed 0d 05 64  |%=X%+252..Z....d|
00000c00  13 59 25 3d 59 25 2d 31  39 32 3a 58 25 3d 33 36  |.Y%=Y%-192:X%=36|
00000c10  0d 05 6e 0d e3 49 25 3d  31 30 b8 31 33 0d 05 78  |..n..I%=10.13..x|
00000c20  0a f2 64 65 61 6c 33 0d  05 82 0d 58 25 3d 58 25  |..deal3....X%=X%|
00000c30  2b 31 34 34 0d 05 8c 14  e7 49 25 3d 31 31 20 58  |+144.....I%=11 X|
00000c40  25 3d 58 25 2b 32 35 32  0d 05 96 05 ed 0d 05 a0  |%=X%+252........|
00000c50  14 59 25 3d 59 25 2d 31  39 32 3a 58 25 3d 31 37  |.Y%=Y%-192:X%=17|
00000c60  36 0d 05 aa 0d e3 49 25  3d 31 34 b8 31 37 0d 05  |6.....I%=14.17..|
00000c70  b4 0a f2 64 65 61 6c 33  0d 05 be 0d 58 25 3d 58  |...deal3....X%=X|
00000c80  25 2b 31 34 34 0d 05 c8  05 ed 0d 05 d2 11 58 25  |%+144.........X%|
00000c90  3d 35 37 38 3a 59 25 3d  34 30 38 0d 05 dc 0d 53  |=578:Y%=408....S|
00000ca0  25 3d 34 3a 43 25 3d 31  0d 05 e6 10 f2 63 61 72  |%=4:C%=1.....car|
00000cb0  64 28 43 25 2c 53 25 29  0d 05 f0 05 3a 0d 05 fa  |d(C%,S%)....:...|
00000cc0  05 e1 0d 06 04 0b dd f2  64 65 61 6c 33 0d 06 0e  |........deal3...|
00000cd0  0b 6e 25 3d 6e 25 2b 31  0d 06 18 0b e3 4a 25 3d  |.n%=n%+1.....J%=|
00000ce0  31 b8 33 0d 06 22 1d 43  25 3d 43 25 28 49 25 2c  |1.3..".C%=C%(I%,|
00000cf0  4a 25 29 3a 53 25 3d 53  25 28 49 25 2c 4a 25 29  |J%):S%=S%(I%,J%)|
00000d00  0d 06 2c 10 f2 63 61 72  64 28 43 25 2c 53 25 29  |..,..card(C%,S%)|
00000d10  0d 06 36 0c 58 25 3d 58  25 2b 33 36 0d 06 40 05  |..6.X%=X%+36..@.|
00000d20  ed 0d 06 4a 19 f1 8a 32  2c 32 39 29 3b 22 53 63  |...J...2,29);"Sc|
00000d30  6f 72 65 3a 20 22 3b 73  63 25 0d 06 54 05 e1 0d  |ore: ";sc%..T...|
00000d40  06 5e 05 3a 0d 06 68 09  dd f2 6b 65 79 0d 06 72  |.^.:..h...key..r|
00000d50  27 f5 3a 61 25 3d a7 22  41 42 43 44 45 46 47 48  |'.:a%=."ABCDEFGH|
00000d60  49 4a 4b 4c 4d 4e 4f 50  51 55 52 53 22 2c be 29  |IJKLMNOPQURS",.)|
00000d70  3a fd 61 25 0d 06 7c 10  e7 61 25 3d 31 38 20 f2  |:.a%..|..a%=18 .|
00000d80  75 6e 64 6f 0d 06 86 0c  66 72 6f 6d 25 3d 61 25  |undo....from%=a%|
00000d90  0d 06 90 05 e1 0d 06 9a  05 3a 0d 06 a4 19 dd f2  |.........:......|
00000da0  6d 6f 76 65 3a e7 61 25  3d 31 38 20 e1 20 8b 4d  |move:.a%=18 . .M|
00000db0  25 3d b9 0d 06 ae 18 e7  44 25 28 66 72 6f 6d 25  |%=......D%(from%|
00000dc0  29 3d 2d 31 20 4d 25 3d  a3 3a e1 0d 06 b8 2d e7  |)=-1 M%=.:....-.|
00000dd0  43 25 28 66 72 6f 6d 25  2c 44 25 28 66 72 6f 6d  |C%(from%,D%(from|
00000de0  25 29 29 3d 31 20 80 54  43 25 28 74 6f 25 29 3d  |%))=1 .TC%(to%)=|
00000df0  31 33 20 e5 8d 64 56 46  0d 06 c2 2d e7 43 25 28  |13 ..dVF...-.C%(|
00000e00  66 72 6f 6d 25 2c 44 25  28 66 72 6f 6d 25 29 29  |from%,D%(from%))|
00000e10  3d 31 33 20 80 54 43 25  28 74 6f 25 29 3d 31 20  |=13 .TC%(to%)=1 |
00000e20  e5 8d 64 56 46 0d 06 cc  4c e7 43 25 28 66 72 6f  |..dVF...L.C%(fro|
00000e30  6d 25 2c 44 25 28 66 72  6f 6d 25 29 29 2d 31 3d  |m%,D%(from%))-1=|
00000e40  54 43 25 28 74 6f 25 29  20 84 43 25 28 66 72 6f  |TC%(to%) .C%(fro|
00000e50  6d 25 2c 44 25 28 66 72  6f 6d 25 29 29 2b 31 3d  |m%,D%(from%))+1=|
00000e60  54 43 25 28 74 6f 25 29  20 e5 8d 64 56 46 20 8b  |TC%(to%) ..dVF .|
00000e70  e1 0d 06 d6 05 3a 0d 06  e0 33 43 31 25 3d 43 25  |.....:...3C1%=C%|
00000e80  28 66 72 6f 6d 25 2c 44  25 28 66 72 6f 6d 25 29  |(from%,D%(from%)|
00000e90  29 3a 53 31 25 3d 53 25  28 66 72 6f 6d 25 2c 44  |):S1%=S%(from%,D|
00000ea0  25 28 66 72 6f 6d 25 29  29 0d 06 ea 26 44 25 28  |%(from%))...&D%(|
00000eb0  66 72 6f 6d 25 29 3d 44  25 28 66 72 6f 6d 25 29  |from%)=D%(from%)|
00000ec0  2d 31 3a 44 25 3d 44 25  28 66 72 6f 6d 25 29 0d  |-1:D%=D%(from%).|
00000ed0  06 f4 0b f2 70 72 74 70  6f 73 0d 06 fe 0a 58 58  |....prtpos....XX|
00000ee0  25 3d 58 25 0d 07 08 0d  73 63 25 3d 73 63 25 2b  |%=X%....sc%=sc%+|
00000ef0  31 0d 07 12 15 6d 24 3d  6d 24 2b bd 28 66 72 6f  |1....m$=m$+.(fro|
00000f00  6d 25 2b 36 34 29 0d 07  1c 0a f2 62 6c 61 6e 6b  |m%+64).....blank|
00000f10  0d 07 26 0c e3 4a 25 3d  31 b8 44 25 0d 07 30 23  |..&..J%=1.D%..0#|
00000f20  43 25 3d 43 25 28 66 72  6f 6d 25 2c 4a 25 29 3a  |C%=C%(from%,J%):|
00000f30  53 25 3d 53 25 28 66 72  6f 6d 25 2c 4a 25 29 0d  |S%=S%(from%,J%).|
00000f40  07 3a 0c 58 25 3d 58 25  2b 33 36 0d 07 44 10 f2  |.:.X%=X%+36..D..|
00000f50  63 61 72 64 28 43 25 2c  53 25 29 0d 07 4e 05 ed  |card(C%,S%)..N..|
00000f60  0d 07 58 17 e7 44 25 28  66 72 6f 6d 25 29 3d 30  |..X..D%(from%)=0|
00000f70  20 f2 62 6c 61 6e 6b 0d  07 62 0d 74 6f 25 3d 74  | .blank..b.to%=t|
00000f80  6f 25 2b 31 0d 07 6c 1d  54 43 25 28 74 6f 25 29  |o%+1..l.TC%(to%)|
00000f90  3d 43 31 25 3a 54 53 25  28 74 6f 25 29 3d 53 31  |=C1%:TS%(to%)=S1|
00000fa0  25 0d 07 76 1b 43 25 3d  54 43 25 28 74 6f 25 29  |%..v.C%=TC%(to%)|
00000fb0  3a 53 25 3d 54 53 25 28  74 6f 25 29 0d 07 80 11  |:S%=TS%(to%)....|
00000fc0  59 25 3d 34 30 38 3a 58  25 3d 35 37 38 0d 07 8a  |Y%=408:X%=578...|
00000fd0  10 f2 63 61 72 64 28 43  25 2c 53 25 29 0d 07 94  |..card(C%,S%)...|
00000fe0  05 e1 0d 07 9e 05 3a 0d  07 a8 0b dd f2 62 6c 61  |......:......bla|
00000ff0  6e 6b 0d 07 b2 2e ef 35  2c 32 34 2c 58 58 25 2b  |nk.....5,24,XX%+|
00001000  31 36 3b 59 25 2d 34 3b  58 58 25 2b 32 31 36 3b  |16;Y%-4;XX%+216;|
00001010  59 25 2b 31 33 36 3b 3a  e6 30 2c 31 32 38 3a da  |Y%+136;:.0,128:.|
00001020  0d 07 bc 05 e1 0d 07 c6  05 3a 0d 07 d0 0c dd f2  |.........:......|
00001030  70 72 74 70 6f 73 0d 07  da 09 f7 8d 64 78 47 0d  |prtpos......dxG.|
00001040  07 e4 18 e3 78 25 3d 31  b8 66 72 6f 6d 25 3a f3  |....x%=1.from%:.|
00001050  58 25 2c 59 25 3a ed 0d  07 ee 05 e1 0d 07 f8 8a  |X%,Y%:..........|
00001060  dc 20 30 2c 36 38 34 2c  32 35 32 2c 36 38 34 2c  |. 0,684,252,684,|
00001070  35 30 34 2c 36 38 34 2c  37 35 36 2c 36 38 34 2c  |504,684,756,684,|
00001080  31 30 30 38 2c 36 38 34  2c 30 2c 34 39 32 2c 32  |1008,684,0,492,2|
00001090  35 32 2c 34 39 32 2c 37  35 36 2c 34 39 32 2c 31  |52,492,756,492,1|
000010a0  30 30 38 2c 34 39 32 2c  30 2c 33 30 30 2c 32 35  |008,492,0,300,25|
000010b0  32 2c 33 30 30 2c 37 35  36 2c 33 30 30 2c 31 30  |2,300,756,300,10|
000010c0  30 38 2c 33 30 30 2c 31  34 34 2c 31 30 38 2c 33  |08,300,144,108,3|
000010d0  39 38 2c 31 30 38 2c 36  34 38 2c 31 30 38 2c 39  |98,108,648,108,9|
000010e0  30 30 2c 31 30 38 0d 08  02 05 3a 0d 08 0c 0a dd  |00,108....:.....|
000010f0  f2 75 6e 64 6f 0d 08 16  09 6d 76 25 3d b9 0d 08  |.undo....mv%=...|
00001100  20 1c e7 20 a9 28 6d 24  29 3c 3d 30 20 6d 76 25  | .. .(m$)<=0 mv%|
00001110  3d a3 3a 63 68 6b 3d b9  3a e1 0d 08 2a 05 3a 0d  |=.:chk=.:...*.:.|
00001120  08 34 1a 41 24 3d 22 41  42 43 44 45 46 47 48 49  |.4.A$="ABCDEFGHI|
00001130  4a 4b 4c 4d 4e 4f 50 51  22 0d 08 3e 0d 6c 24 3d  |JKLMNOPQ"..>.l$=|
00001140  c2 6d 24 2c 31 29 0d 08  48 11 66 72 6f 6d 25 3d  |.m$,1)..H.from%=|
00001150  a7 41 24 2c 6c 24 29 0d  08 52 11 6d 24 3d c0 6d  |.A$,l$)..R.m$=.m|
00001160  24 2c a9 6d 24 2d 31 29  0d 08 5c 27 43 31 25 3d  |$,.m$-1)..\'C1%=|
00001170  54 43 25 28 74 6f 25 29  3a 53 31 25 3d 54 53 25  |TC%(to%):S1%=TS%|
00001180  28 74 6f 25 29 3a 74 6f  25 3d 74 6f 25 2d 31 0d  |(to%):to%=to%-1.|
00001190  08 66 1b 43 25 3d 54 43  25 28 74 6f 25 29 3a 53  |.f.C%=TC%(to%):S|
000011a0  25 3d 54 53 25 28 74 6f  25 29 0d 08 70 11 58 25  |%=TS%(to%)..p.X%|
000011b0  3d 35 37 38 3a 59 25 3d  34 30 38 0d 08 7a 10 f2  |=578:Y%=408..z..|
000011c0  63 61 72 64 28 43 25 2c  53 25 29 0d 08 84 2e 44  |card(C%,S%)....D|
000011d0  25 3d 44 25 28 66 72 6f  6d 25 29 3a 44 25 3d 44  |%=D%(from%):D%=D|
000011e0  25 2b 31 3a 44 25 28 66  72 6f 6d 25 29 3d 44 25  |%+1:D%(from%)=D%|
000011f0  28 66 72 6f 6d 25 29 2b  31 0d 08 8e 2d 43 25 28  |(from%)+1...-C%(|
00001200  44 25 28 66 72 6f 6d 25  29 2c 44 25 29 3d 43 31  |D%(from%),D%)=C1|
00001210  25 3a 53 25 28 44 25 28  66 72 6f 6d 25 29 2c 44  |%:S%(D%(from%),D|
00001220  25 29 3d 53 31 25 0d 08  98 0b f2 70 72 74 70 6f  |%)=S1%.....prtpo|
00001230  73 0d 08 a2 0c e3 4a 25  3d 31 b8 44 25 0d 08 ac  |s.....J%=1.D%...|
00001240  2b 43 25 3d 43 25 28 44  25 28 66 72 6f 6d 25 29  |+C%=C%(D%(from%)|
00001250  2c 4a 25 29 3a 53 25 3d  53 25 28 44 25 28 66 72  |,J%):S%=S%(D%(fr|
00001260  6f 6d 25 29 2c 4a 25 29  0d 08 b6 0c 58 25 3d 58  |om%),J%)....X%=X|
00001270  25 2b 33 36 0d 08 c0 10  f2 63 61 72 64 28 43 25  |%+36.....card(C%|
00001280  2c 53 25 29 0d 08 ca 05  ed 0d 08 d4 0d 73 63 25  |,S%).........sc%|
00001290  3d 73 63 25 2d 31 0d 08  de 05 e1 0d 08 e8 05 3a  |=sc%-1.........:|
000012a0  0d 08 f2 18 dd f2 77 69  6e 3a ef 32 33 2c 31 2c  |......win:.23,1,|
000012b0  30 3b 30 3b 30 3b 30 3b  0d 08 fc 0a fb 31 32 38  |0;0;0;0;.....128|
000012c0  3a db 0d 09 06 0a f2 74  69 74 6c 65 0d 09 10 2f  |:......title.../|
000012d0  f4 20 49 46 77 69 6e 25  20 50 52 49 4e 54 54 41  |. IFwin% PRINTTA|
000012e0  42 28 31 32 2c 34 29 3b  22 43 4f 4e 47 52 41 54  |B(12,4);"CONGRAT|
000012f0  55 4c 41 54 49 4f 4e 53  21 21 22 0d 09 1a 2e f1  |ULATIONS!!".....|
00001300  8a 34 2c 36 29 22 47 61  6d 65 20 4e 6f 2e 20 20  |.4,6)"Game No.  |
00001310  53 63 6f 72 65 20 20 20  20 59 6f 75 72 20 53 74  |Score    Your St|
00001320  61 74 69 73 74 69 63 73  22 0d 09 24 2e f1 8a 34  |atistics"..$...4|
00001330  2c 37 29 22 7e 7e 7e 7e  7e 7e 7e 7e 20 20 7e 7e  |,7)"~~~~~~~~  ~~|
00001340  7e 7e 7e 20 20 20 20 7e  7e 7e 7e 7e 7e 7e 7e 7e  |~~~    ~~~~~~~~~|
00001350  7e 7e 7e 7e 7e 7e 22 0d  09 2e 18 ef 32 38 2c 32  |~~~~~~".....28,2|
00001360  2c 32 34 2c 31 39 2c 38  3a fb 31 33 30 3a db 0d  |,24,19,8:.130:..|
00001370  09 38 0d f2 70 72 69 6e  74 64 61 74 0d 09 42 26  |.8..printdat..B&|
00001380  ef 32 36 3a fb 31 32 38  3a f1 8a 32 31 2c 38 29  |.26:.128:..21,8)|
00001390  22 47 61 6d 65 73 20 70  6c 61 79 65 64 20 22 3b  |"Games played ";|
000013a0  4e 25 0d 09 4c 32 f1 8a  32 31 2c 31 30 29 22 57  |N%..L2..21,10)"W|
000013b0  69 6e 73 20 22 3b 77 69  6e 25 3b 8a 33 30 2c 31  |ins ";win%;.30,1|
000013c0  30 29 3b 22 4c 6f 73 73  65 73 20 22 3b 4e 25 2d  |0);"Losses ";N%-|
000013d0  77 69 6e 25 0d 09 56 29  f1 8a 32 31 2c 31 32 29  |win%..V)..21,12)|
000013e0  22 41 76 65 72 61 67 65  20 73 63 6f 72 65 20 22  |"Average score "|
000013f0  3b a8 28 74 6f 74 73 63  25 2f 4e 25 29 0d 09 60  |;.(totsc%/N%)..`|
00001400  21 f1 8a 36 2c 32 38 29  3b 22 41 6e 6f 74 68 65  |!..6,28);"Anothe|
00001410  72 20 67 61 6d 65 3f 20  28 59 2f 4e 29 22 0d 09  |r game? (Y/N)"..|
00001420  6a 17 f5 3a 61 25 3d a7  22 59 79 4e 6e 22 2c be  |j..:a%=."YyNn",.|
00001430  29 3a fd 61 25 0d 09 74  11 e7 61 25 3e 32 20 ef  |):.a%..t..a%>2 .|
00001440  32 32 2c 36 3a e0 0d 09  7e 05 e1 0d 09 88 0e dd  |22,6:...~.......|
00001450  f2 70 72 69 6e 74 64 61  74 0d 09 92 0c 74 6f 74  |.printdat....tot|
00001460  73 63 25 3d 30 0d 09 9c  0e 41 3d ad 22 42 48 64  |sc%=0....A=."BHd|
00001470  61 74 22 0d 09 a6 0a e8  23 41 2c 4e 25 0d 09 b0  |at".....#A,N%...|
00001480  0b e3 4e 3d 31 b8 4e 25  0d 09 ba 13 e8 23 41 2c  |..N=1.N%.....#A,|
00001490  4d 25 2c 73 63 25 2c 77  69 6e 25 0d 09 c4 12 f1  |M%,sc%,win%.....|
000014a0  27 4d 25 3b 22 20 20 20  22 3b 73 63 25 0d 09 ce  |'M%;"   ";sc%...|
000014b0  15 74 6f 74 73 63 25 3d  74 6f 74 73 63 25 2b 73  |.totsc%=totsc%+s|
000014c0  63 25 0d 09 d8 05 ed 0d  09 e2 07 d9 23 41 0d 09  |c%..........#A..|
000014d0  ec 05 e1 0d 09 f6 05 3a  0d 0a 00 0c dd f2 73 61  |.......:......sa|
000014e0  76 64 61 74 0d 0a 0a 0e  41 3d ad 22 42 48 44 41  |vdat....A=."BHDA|
000014f0  54 22 0d 0a 14 0a e8 23  41 2c 4e 25 0d 0a 1e 09  |T".....#A,N%....|
00001500  cf 23 41 3d 30 0d 0a 28  0a f1 23 41 2c 4e 25 0d  |.#A=0..(..#A,N%.|
00001510  0a 32 11 cf 23 41 3d 28  4e 25 2a 31 35 29 2b 35  |.2..#A=(N%*15)+5|
00001520  0d 0a 3c 13 f1 23 41 2c  5a 25 2c 73 63 25 2c 77  |..<..#A,Z%,sc%,w|
00001530  69 6e 25 0d 0a 46 09 cf  23 41 3d 30 0d 0a 50 0b  |in%..F..#A=0..P.|
00001540  4e 25 3d 4e 25 2b 31 0d  0a 5a 0a f1 23 41 2c 4e  |N%=N%+1..Z..#A,N|
00001550  25 0d 0a 64 07 d9 23 41  0d 0a 6e 05 e1 0d 0a 78  |%..d..#A..n....x|
00001560  05 3a 0d 0a 82 52 2a 4b  2e 30 20 2a 54 2e 7c 4d  |.:...R*K.0 *T.|M|
00001570  46 4f 52 49 25 3d 30 54  4f 20 54 4f 50 2d 50 41  |FORI%=0TO TOP-PA|
00001580  47 45 20 53 54 45 50 34  3a 49 25 21 26 45 30 30  |GE STEP4:I%!&E00|
00001590  3d 49 25 21 50 41 47 45  3a 4e 45 58 54 7c 4d 50  |=I%!PAGE:NEXT|MP|
000015a0  41 47 45 3d 26 45 30 30  7c 4d 4f 4c 44 7c 4d 52  |AGE=&E00|MOLD|MR|
000015b0  55 4e 7c 4d 0d 0a 8c 10  2a 46 58 31 33 38 2c 30  |UN|M....*FX138,0|
000015c0  2c 31 32 38 0d ff                                 |,128..|
000015c6
G/BLKHOL.m0
G/BLKHOL.m1
G/BLKHOL.m2
G/BLKHOL.m4
G/BLKHOL.m5

© Dominic Ford 2021–2024.

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