Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_EUG_54.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 » Greaseweazled » adfs_EUG_54.adf
Filename: G/BLKHOL
Read OK:
File size: 16A1 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

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

File contents
   10REM **************************
   20REM Blackhole
   30REM By R.A.Dimond
   40REM (c) March 2000
   50REM Revised August 2000
   60REM **************************
   70ON ERROR MODE1:REPORT:PRINT" at line ";ERL:END
   80*FX21,0
   90IF PAGE>&E00 COLOUR0:GOTO2740
  100MODE1:VDU23;8202;0;0;0;
  110VDU19,0,4;0;19,2,0;0;
  120PROCvars
  130REPEAT
  140PROCrandom
  150PROCinit
  160PROCdeal
  170REPEAT:VDU26,4
  180PRINTTAB(9,30);sc%;"  "
  190PROCkey
  200IFa%>17 GOTO230
  210PROCmove
  220UNTILwin% ORa%>18
  230UNTIL0
  240END
  250:
  260DEFPROCtitle
  270PRINTTAB(15,1)"BLACKHOLE"
  280PRINTTAB(15,2)STRING$(9,"~")
  290ENDPROC
  300:
  310DEFPROCvars
  320DIM N%(51),c%(51),s%(51),C%(17,3),S%(17,3),D%(17),TC%(52),TS%(52)
  330m$="":sc%=0:win%=FALSE
  340ENDPROC
  350:
  360DEFPROCrandom
  370*FX15
  380PROCtitle
  390PRINTTAB(0,6)"Enter Deal No. "''"or press RETURN"'"for a random deal"
  400INPUTTAB(15,6)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%:MM%=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
  790VDU4
  800ENDPROC
  810:
  820DEFPROCp
  830MOVEX%,Y%+32:GCOL0,col%:PRINT;CHR$suit%:MOVEX%,Y%+128:PRINT;CHR$cd%
  840MOVEX%+64,Y%+32:PRINT;CHR$cd%:MOVEX%+64,Y%+128:PRINT;CHR$suit%
  850ENDPROC
  860:
  870DEFPROCpp
  880IFcard%=1 MOVEX%+32,Y%+80:PRINT;CHR$suit%:ENDPROC
  890IFcard%=2 MOVEX%+32,Y%+120:PRINT;CHR$239;:MOVEX%+32,Y%+56:PRINT;CHR$239:ENDPROC
  900IFcard%=3 MOVEX%+32,Y%+120:PRINT;CHR$239;:MOVEX%+32,Y%+88:PRINT;CHR$239;:MOVEX%+32,Y%+56:PRINT;CHR$239:ENDPROC
  910IFcard%=4 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  920IFcard%=5 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+88:PRINT;CHR$239;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  930IFcard%=6 MOVEX%+32,Y%+104:PRINT;CHR$240;:MOVEX%+32,Y%+72:PRINT;CHR$240;:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  940IFcard%=7 MOVEX%+32,Y%+104:PROCfive:MOVEX%+32,Y%+40:PRINT;CHR$240:ENDPROC
  950IFcard%=8 MOVEX%+32,Y%+104:PRINT;CHR$241;:MOVEX%+32,Y%+72:PROCfive:ENDPROC
  960IFcard%=9 MOVEX%+32,Y%+112:PRINT;CHR$240;:MOVEX%+32,Y%+88:PROCfive:MOVEX%+32,Y%+32:PRINT;CHR$240:ENDPROC
  970IFcard%=10 MOVEX%+32,Y%+112:PROCfive:MOVEX%+32,Y%+66:PROCfive:ENDPROC
  980IFcard%=11 C$=CHR$242 ELSEIFcard%=12 C$=CHR$243 ELSEIFcard%=13 C$=CHR$244
  990IFcard%=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
 1000MOVEX%+32,Y%+128:PRINTC$
 1010MOVEX%,Y%+96:PRINTCHR$245+CHR$246+CHR$247
 1020GCOL0,0:MOVEX%,Y%+64:PRINTD$:GCOL0,col%
 1030MOVEX%+32,Y%+32:PRINTCHR$253:ENDPROC
 1040:
 1050DEFPROCdeal
 1060x%=126:y%=848
 1070VDU5:FORz%=1TO5
 1080MOVEx%,y%:PRINTCHR$(64+z%)
 1090x%=x%+252
 1100NEXT
 1110x%=126:y%=656:n%=69
 1120FORm%=1TO2
 1130FORl%=1TO2
 1140FORz%=1TO2
 1150MOVEx%,y%:PRINTCHR$(n%+z%)
 1160x%=x%+252
 1170NEXT
 1180x%=x%+252:n%=n%+2
 1190NEXT
 1200y%=y%-192:x%=126
 1210NEXT
 1220x%=270
 1230FORz%=1TO4
 1240MOVEx%,y%:PRINTCHR$(77+z%)
 1250x%=x%+252
 1260NEXT
 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%)
 1520PRINTTAB(2,30);"Score: 0"
 1530ENDPROC
 1540:
 1550DEFPROCdeal3
 1560n%=n%+1
 1570FORJ%=1TO3
 1580C%=C%(I%,J%):S%=S%(I%,J%)
 1590PROCcard(C%,S%)
 1600X%=X%+36
 1610NEXT
 1620ENDPROC
 1630:
 1640DEFPROCkey
 1650REPEAT:a%=INSTR("ABCDEFGHIJKLMNOPQURS",GET$):UNTILa%
 1660IFa%=18 PROCundo
 1670IFa%=19 PROCsavdat:RUN
 1680IFa%=20 PROCwin:RUN
 1690IFa%<18 from%=a%
 1700ENDPROC
 1710:
 1720DEFPROCmove:IFa%=18 ENDPROC ELSEM%=TRUE
 1730IFD%(from%)=-1 M%=FALSE:ENDPROC
 1740IFC%(from%,D%(from%))=1 ANDTC%(to%)=13 GOTO1770
 1750IFC%(from%,D%(from%))=13 ANDTC%(to%)=1 GOTO1770
 1760IFC%(from%,D%(from%))-1=TC%(to%) ORC%(from%,D%(from%))+1=TC%(to%) GOTO1770 ELSEENDPROC
 1770:
 1780C1%=C%(from%,D%(from%)):S1%=S%(from%,D%(from%))
 1790D%(from%)=D%(from%)-1:D%=D%(from%)
 1800PROCprtpos
 1810XX%=X%
 1820sc%=sc%+1
 1830m$=m$+CHR$(from%+64)
 1840PROCblank
 1850FORJ%=1TOD%
 1860C%=C%(from%,J%):S%=S%(from%,J%)
 1870X%=X%+36
 1880PROCcard(C%,S%)
 1890NEXT
 1900IFD%(from%)=0 PROCblank
 1910to%=to%+1
 1920TC%(to%)=C1%:TS%(to%)=S1%
 1930C%=TC%(to%):S%=TS%(to%)
 1940Y%=408:X%=578
 1950PROCcard(C%,S%)
 1960ENDPROC
 1970:
 1980DEFPROCblank
 1990VDU5,24,XX%+16;Y%-4;XX%+216;Y%+136;:GCOL0,128:CLG
 2000ENDPROC
 2010:
 2020DEFPROCprtpos
 2030RESTORE2060
 2040FORx%=1TOfrom%:READX%,Y%:NEXT
 2050ENDPROC
 2060DATA 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
 2070:
 2080DEFPROCundo
 2090mv%=TRUE
 2100IF LEN(m$)<=0 mv%=FALSE:chk=TRUE:ENDPROC
 2110:
 2120A$="ABCDEFGHIJKLMNOPQ"
 2130l$=RIGHT$(m$,1)
 2140from%=INSTR(A$,l$)
 2150m$=LEFT$(m$,LENm$-1)
 2160C1%=TC%(to%):S1%=TS%(to%):to%=to%-1
 2170C%=TC%(to%):S%=TS%(to%)
 2180X%=578:Y%=408
 2190PROCcard(C%,S%)
 2200D%=D%(from%):D%=D%+1:D%(from%)=D%(from%)+1
 2210C%(D%(from%),D%)=C1%:S%(D%(from%),D%)=S1%
 2220PROCprtpos
 2230FORJ%=1TOD%
 2240C%=C%(D%(from%),J%):S%=S%(D%(from%),J%)
 2250X%=X%+36
 2260PROCcard(C%,S%)
 2270NEXT
 2280sc%=sc%-1
 2290ENDPROC
 2300:
 2310DEFPROCwin:VDU23,1,0;0;0;0;
 2320COLOUR128:CLS
 2330PROCtitle
 2340REM IFwin% PRINTTAB(12,4);"CONGRATULATIONS!!"
 2350PRINTTAB(4,6)"Game No.  Score    Your Statistics"
 2360PRINTTAB(4,7)"~~~~~~~~  ~~~~~    ~~~~~~~~~~~~~~~"
 2370VDU28,2,24,19,8:COLOUR130:CLS
 2380PROCprintdat
 2390VDU26:COLOUR128:PRINTTAB(21,8)"Games played ";N%
 2400PRINTTAB(21,10)"Wins ";win%;TAB(30,10);"Losses ";N%-win%
 2410IFN%<>0 PRINTTAB(21,12)"Average score ";INT(totsc%/N%)
 2420PRINTTAB(6,28);"Another game? (Y/N)"
 2430REPEAT:a%=INSTR("YyNn",GET$):UNTILa%
 2440IFa%>2 VDU22,6:END ELSE RUN
 2450ENDPROC
 2460:
 2470DEFPROCprintdat
 2480totsc%=0
 2490A=OPENUP"G.BHDAT"
 2500INPUT#A,N%
 2510FORN=1TON%
 2520INPUT#A,MM%,sc%,win%
 2530PRINT'MM%;"   ";sc%
 2540totsc%=totsc%+sc%
 2550NEXT
 2560CLOSE#A
 2570ENDPROC
 2580:
 2590DEFPROCsavdat:VDU23,1,0;0;0;0;
 2600PRINTTAB(1,30)"      Saving data, Please wait...   ";
 2610A=OPENUP"G.BHDAT"
 2620INPUT#A,N%
 2630PTR#A=0
 2640PRINT#A,N%
 2650PTR#A=(N%*15)+5
 2660PRINT#A,MM%,sc%,win%
 2670PTR#A=0
 2680N%=N%+1
 2690PRINT#A,N%
 2700CLOSE#A
 2710PRINTTAB(1,30)"                                    ";
 2720ENDPROC
 2730:
 2740*K.0 *T.|MFORI%=0TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|M
 2750*FX138,0,128

 � **************************
� Blackhole
� By R.A.Dimond
(� (c) March 2000
2� Revised August 2000
< � **************************
F� � �1:�:�" at line ";�:�
P*FX21,0
Z� �>&E00 �0:�ttJ
d�1:�23;8202;0;0;0;
n�19,0,4;0;19,2,0;0;
x	�vars
��
��random
�	�init
�	�deal
��:�26,4
��9,30);sc%;"  "
��key
��a%>17 �df@
�	�move
��win% �a%>18
��0
��
�:
��title
�15,1)"BLACKHOLE"
�15,2)�9,"~")
"�
,:
6
��vars
@C� N%(51),c%(51),s%(51),C%(17,3),S%(17,3),D%(17),TC%(52),TS%(52)
Jm$="":sc%=0:win%=�
T�
^:
h��random
r	*FX15
|
�title
�B�0,6)"Enter Deal No. "''"or press RETURN"'"for a random deal"
�
�15,6)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%:MM%=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
�4
 �
*:
4��p
>0�X%,Y%+32:�0,col%:�;�suit%:�X%,Y%+128:�;�cd%
H.�X%+64,Y%+32:�;�cd%:�X%+64,Y%+128:�;�suit%
R�
\:
f��pp
p$�card%=1 �X%+32,Y%+80:�;�suit%:�
z8�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:�
:

��deal
$x%=126:y%=848
.�5:�z%=1�5
8�x%,y%:�(64+z%)
B
x%=x%+252
L�
Vx%=126:y%=656:n%=69
`�m%=1�2
j�l%=1�2
t�z%=1�2
~�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
��
�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%)
��2,30);"Score: 0"
��
:
��deal3
n%=n%+1
"�J%=1�3
,C%=C%(I%,J%):S%=S%(I%,J%)
6�card(C%,S%)
@X%=X%+36
J�
T�
^:
h	��key
r'�:a%=�"ABCDEFGHIJKLMNOPQURS",�):�a%
|�a%=18 �undo
��a%=19 �savdat:�
��a%=20 �win:�
��a%<18 from%=a%
��
�:
���move:�a%=18 � �M%=�
��D%(from%)=-1 M%=�:�
�-�C%(from%,D%(from%))=1 �TC%(to%)=13 �djF
�-�C%(from%,D%(from%))=13 �TC%(to%)=1 �djF
�L�C%(from%,D%(from%))-1=TC%(to%) �C%(from%,D%(from%))+1=TC%(to%) �djF ��
�:
�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)
0
�blank
:�J%=1�D%
D#C%=C%(from%,J%):S%=S%(from%,J%)
NX%=X%+36
X�card(C%,S%)
b�
l�D%(from%)=0 �blank
v
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:�
��
�:
���prtpos
�	��TLH
��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%=�
4� �(m$)<=0 mv%=�:chk=�:�
>:
HA$="ABCDEFGHIJKLMNOPQ"
R
l$=�m$,1)
\from%=�A$,l$)
fm$=�m$,�m$-1)
p'C1%=TC%(to%):S1%=TS%(to%):to%=to%-1
zC%=TC%(to%):S%=TS%(to%)
�X%=578:Y%=408
��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"
	8.�4,7)"~~~~~~~~  ~~~~~    ~~~~~~~~~~~~~~~"
	B�28,2,24,19,8:�130:�
	L
�printdat
	V&�26:�128:�21,8)"Games played ";N%
	`2�21,10)"Wins ";win%;�30,10);"Losses ";N%-win%
	j0�N%<>0 �21,12)"Average score ";�(totsc%/N%)
	t!�6,28);"Another game? (Y/N)"
	~�:a%=�"YyNn",�):�a%
	��a%>2 �22,6:� � �
	��
	�:
	���printdat
	�totsc%=0
	�A=�"G.BHDAT"
	�
�#A,N%
	��N=1�N%
	��#A,MM%,sc%,win%
	��'MM%;"   ";sc%
	�totsc%=totsc%+sc%
	��
�#A

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