��initwimp
-ș&20023,"BlackHole$Dir",bl%,256,0 � ,,r%
bl%?r%=0
(home$=�gaga(bl%)
2�horace(home$+".Messages")
<Vbl%!0=1:bl%!4=3:bl%!8=8:bl%!12=10:bl%!16=&502:bl%!20=&400C3:bl%!24=&400C1:bl%!28=0
F<ș&400C0,300,1263747412,"Black Hole 2",bl% � wv%,taskid%
P?� wv%<310 �0,"Black Hole II requires RISC OS 3.10 or later"
Z�
d��assemble1
n� pass%
x� pass%=0 � 2 � 2
�P%=var%
�[OPT pass%
�.spinon%
�
EQUD 0
�.textoffset
�
EQUD 0
�
.spriteno
�EQUD 48
�
.iconaddr
�
EQUD 0
�
.block
�EQUD bl%
�	.bye%

EQUD 11


.wsiblock

EQUD Info%

"
EQUD 1

,
EQUD 0

6
EQUD 0

@.wsiblock2

JEQUD -2

T
EQUD 0

^
EQUD 0

h
EQUD 0

r.taskid

|EQUD taskid%

�
.ibartext

�EQUD ibs

�.timeforbed%

�
EQUD 0

�
.exit%

�
EQUD 0

�.cltype%

�
EQUD 0

�
.time%

�
EQUD 0

�
.Time%

�
EQUD 0

�.clock%

EQUD 0

.newtime%

EQUD 0
&.clocknumber
0EQUD ct
:.holehandle
D
EQUD 0
N.wsiblock1
XEQUD -2
b
EQUD 0
l
EQUD 0
v
EQUD 0
�
.textaddr
�EQUD string%
�.twelvehour
�EQUS "%12:%mi"+�0
�	ALIGN
�.twentyfourhour
�EQUS "%24:%mi"+�0
�	ALIGN
�]
��
��
���horace(name$)
�� �
7� � � �0,"Error when loading Messages file. Sorry."
ș&41500,,name$
$ș&1E,6,,,17+�(name$) � ,,msptr%
 $(msptr%+16)=name$
*ș&41501,msptr%,msptr%+16
4�
>��todaysdate
H
!bl%=3
Rș&7,14,bl%
\!$(bl%+40)="%ce%yr_%mn_%dy"+�0
f ș&C1,bl%,(bl%+60),11,bl%+40
ptoday$=�getmem(bl%+60,10)
zș&C1,bl%,(bl%+60),10,"%dn"
�2today%=�(�getmem(bl%+60,10))+365*�(�today$,4))
�*Set BlackHole$Wibble "AEH"
�8�("RMEnsure WimpSprite 1.00 UnSet BlackHole$Wibble")
�1ș&20023,"BlackHole$Wibble",bl%,256,0 � ,,ra%
�
bl%?ra%=0
�2� �gaga(bl%)="AEH" �("WimpSCopy bin #"+today$)
��
���bicycle_repair_man
�� addr%:addr%=IndText%
�� �
�4� � � �0,"Black Hole cannot load its templates."
� ș&400D9,,home$+".Templates"
�8ș&400DB,,bl%,addr%,addr%+3080,-1,"Info",0 � ,,addr%
ș&400C1,,bl% � Info%
:ș&400DB,,bl%,addr%,addr%+3080,-1,"Config",0 � ,,addr%
ș&400C1,,bl% � Config%
$8ș&400DB,,bl%,addr%,addr%+3080,-1,"pane",0 � ,,addr%
.ș&400C1,,bl% � Pane%
8<ș&400DB,,bl%,addr%,addr%+3080,-1,"Autosave",0 � ,,addr%
Bș&400C1,,bl% � Auto%
L<ș&400DB,,bl%,addr%,addr%+3080,-1,"FileFind",0 � ,,addr%
Vș&400C1,,bl% � Mavis%
`9ș&400DB,,bl%,addr%,addr%+3080,-1,"Found",0 � ,,addr%
jș&400C1,,bl% � Found%
t9ș&400DB,,bl%,addr%,addr%+3180,-1,"Query",0 � ,,addr%
~ș&400C1,,bl% � Query%
�ș&400DA
�5� addr%>IndText%+3240 �the templates are too big.
�Efileicon%=�cricon(Auto%,308,52,128,104,sps%,spt%,"","",&1700312B)
�Cfficon%=�cricon(Mavis%,372,336,80,72,fft%,ffs%,"","",&1700312B)
�!bl%=Pane%
� ș"Wimp_GetWindowState",,bl%
�oldpaneheight%=bl%!16-bl%!8
��
���ldopts
�$� �objtype(home$+".Options")=1 �
�y=�(home$+".Options")
�bin$=�#y:sprites$=�#y
��#y,wipeopt%,!spinon%,retain%,autowipe%,autodays%,structure%,!clock%,usefonts%,!cltype%,open%,sconf%,fchange%,clockfont%,shutsquash%

�#y
�
bin$=home$+".BlackHole"
(sprites$="BlakHole"
2wipeopt%=%00011:!spinon%=�
<retain%=�:autowipe%=�
Fautodays%=28:structure%=�
P$!clock%=�:usefonts%=�:fchange%=�
Z!cltype%=�:open%=�:sconf%=�
dclockfont%=�:shutsquash%=�
n�
xwipeopt%=wipeopt% � 7
�0�("IconSprites "+home$+".Sprites."+sprites$)
�p%=0
�%� �objtype(home$+".SaveOpts")=1 �
�y=�(home$+".SaveOpts")
�4ȕ �#y=0:Ftp$(p%)=�#y:Svpth$(p%)=�#y:p%+=1:�:�#y
��
��
���doradios
�
� off%
�(� (wipeopt% � 2)=2 off%=0 �off%=high
��selic(Pane%,2,off%,high)
�(� (wipeopt% � 4)=4 off%=0 �off%=high
��selic(Pane%,4,off%,high)
(� (wipeopt% � 1)=1 off%=0 �off%=high
�selic(Pane%,3,off%,high)
� retain% off%=0 �off%=high
"�selic(Pane%,8,off%,high)
,#� shutsquash% off%=0 �off%=high
6�selic(Pane%,32,off%,high)
@ � !spinon% off%=0 �off%=high
J�selic(Pane%,15,off%,high)
T � fchange% off%=0 �off%=high
^�selic(Pane%,30,off%,high)
h� open% off%=0 �off%=high
r�selic(Pane%,28,off%,high)
|� sconf% off%=high �off%=0
��selic(Pane%,27,off%,high)
�!� autowipe% off%=0 �off%=high
��selic(Pane%,9,off%,high)
�"� structure% off%=0 �off%=high
��selic(Pane%,5,off%,high)
�� !clock% off%=0 �off%=high
��selic(Pane%,23,off%,high)
�!� usefonts% off%=0 �off%=high
��selic(Pane%,19,off%,high)
�"� clockfont% off%=0 �off%=high
��selic(Pane%,31,off%,high)
�� !cltype% �
��selic(Pane%,21,high,high)
�selic(Pane%,22,0,high)
�
�selic(Pane%,21,0,high)
&�selic(Pane%,22,high,high)
0�
:�selic(Mavis%,7,0,high)
D�selic(Mavis%,24,high,high)
N�selic(Mavis%,9,0,high)
X�selic(Mavis%,10,high,high)
b�selic(Mavis%,22,0,high)
l�selic(Mavis%,27,high,high)
v�ps(Mavis%,29,">0")
� � � !clock% �ooer(grey,grey)
�1�ps(Pane%,12,�(autodays%)):�ps(Pane%,11,bin$)
�A�ps(Mavis%,19,"0 files found"):�ps(Mavis%,18,"0 bytes total")
�P!bl%=Pane%:ș&400CB,,bl%:paneheight%=bl%!16-bl%!8:oldpaneheight%=paneheight%
�%�ps(Mavis%,3,�home$,�home$,"$")))
��
�
��binconv
�C�n%,addr%,temp$,count%,addr%,wip%,mem%,day$,month$,year$,temp2$
�Cmem%=�dim(3000):� mem%=0 �lamation("Insufficient Memory",0,0):�
�wip%=0:temp$=bin$
�count%=0:addr%=mem%
�5ș&C,9,temp$,mem%,77,0,3000,"##_##_####" � ,,,no%
�ȕ count%<no%
�temp2$=�bum(addr%)
8day$=�temp2$,2):month$=�temp2$,4,2):year$=�temp2$,4)
G�("Rename "+bin$+"."+temp2$+" "+bin$+"."+year$+"_"+month$+"_"+day$)

count%+=1
 �
*ș&2001E,7,,mem%:�ibar("")
4�
>��modulekill(file$)
?� handle%,module$
H$file$=home$+".ModuleKill."+file$
\handle%=�(file$)
]$ȕ �#handle%=0:module$=�#handle%
^ș"XOS_Module",4,module$:�
_
�#handle%
`)ș"XOS_ChangeDynamicArea",1,-16000000
p�
�

00000000  0d 00 0a 0e dd f2 69 6e  69 74 77 69 6d 70 0d 00  |......initwimp..|
00000010  14 2d c8 99 26 32 30 30  32 33 2c 22 42 6c 61 63  |.-..&20023,"Blac|
00000020  6b 48 6f 6c 65 24 44 69  72 22 2c 62 6c 25 2c 32  |kHole$Dir",bl%,2|
00000030  35 36 2c 30 20 b8 20 2c  2c 72 25 0d 00 1e 0c 62  |56,0 . ,,r%....b|
00000040  6c 25 3f 72 25 3d 30 0d  00 28 14 68 6f 6d 65 24  |l%?r%=0..(.home$|
00000050  3d a4 67 61 67 61 28 62  6c 25 29 0d 00 32 1e f2  |=.gaga(bl%)..2..|
00000060  68 6f 72 61 63 65 28 68  6f 6d 65 24 2b 22 2e 4d  |horace(home$+".M|
00000070  65 73 73 61 67 65 73 22  29 0d 00 3c 56 62 6c 25  |essages")..<Vbl%|
00000080  21 30 3d 31 3a 62 6c 25  21 34 3d 33 3a 62 6c 25  |!0=1:bl%!4=3:bl%|
00000090  21 38 3d 38 3a 62 6c 25  21 31 32 3d 31 30 3a 62  |!8=8:bl%!12=10:b|
000000a0  6c 25 21 31 36 3d 26 35  30 32 3a 62 6c 25 21 32  |l%!16=&502:bl%!2|
000000b0  30 3d 26 34 30 30 43 33  3a 62 6c 25 21 32 34 3d  |0=&400C3:bl%!24=|
000000c0  26 34 30 30 43 31 3a 62  6c 25 21 32 38 3d 30 0d  |&400C1:bl%!28=0.|
000000d0  00 46 3c c8 99 26 34 30  30 43 30 2c 33 30 30 2c  |.F<..&400C0,300,|
000000e0  31 32 36 33 37 34 37 34  31 32 2c 22 42 6c 61 63  |1263747412,"Blac|
000000f0  6b 20 48 6f 6c 65 20 32  22 2c 62 6c 25 20 b8 20  |k Hole 2",bl% . |
00000100  77 76 25 2c 74 61 73 6b  69 64 25 0d 00 50 3f e7  |wv%,taskid%..P?.|
00000110  20 77 76 25 3c 33 31 30  20 85 30 2c 22 42 6c 61  | wv%<310 .0,"Bla|
00000120  63 6b 20 48 6f 6c 65 20  49 49 20 72 65 71 75 69  |ck Hole II requi|
00000130  72 65 73 20 52 49 53 43  20 4f 53 20 33 2e 31 30  |res RISC OS 3.10|
00000140  20 6f 72 20 6c 61 74 65  72 22 0d 00 5a 05 e1 0d  | or later"..Z...|
00000150  00 64 0f dd f2 61 73 73  65 6d 62 6c 65 31 0d 00  |.d...assemble1..|
00000160  6e 0b ea 20 70 61 73 73  25 0d 00 78 15 e3 20 70  |n.. pass%..x.. p|
00000170  61 73 73 25 3d 30 20 b8  20 32 20 88 20 32 0d 00  |ass%=0 . 2 . 2..|
00000180  82 0b 50 25 3d 76 61 72  25 0d 00 8c 0e 5b 4f 50  |..P%=var%....[OP|
00000190  54 20 70 61 73 73 25 0d  00 96 0c 2e 73 70 69 6e  |T pass%.....spin|
000001a0  6f 6e 25 0d 00 a0 0a 45  51 55 44 20 30 0d 00 aa  |on%....EQUD 0...|
000001b0  0f 2e 74 65 78 74 6f 66  66 73 65 74 0d 00 b4 0a  |..textoffset....|
000001c0  45 51 55 44 20 30 0d 00  be 0d 2e 73 70 72 69 74  |EQUD 0.....sprit|
000001d0  65 6e 6f 0d 00 c8 0b 45  51 55 44 20 34 38 0d 00  |eno....EQUD 48..|
000001e0  d2 0d 2e 69 63 6f 6e 61  64 64 72 0d 00 dc 0a 45  |...iconaddr....E|
000001f0  51 55 44 20 30 0d 00 e6  0a 2e 62 6c 6f 63 6b 0d  |QUD 0.....block.|
00000200  00 f0 0c 45 51 55 44 20  62 6c 25 0d 00 fa 09 2e  |...EQUD bl%.....|
00000210  62 79 65 25 0d 01 04 0b  45 51 55 44 20 31 31 0d  |bye%....EQUD 11.|
00000220  01 0e 0d 2e 77 73 69 62  6c 6f 63 6b 0d 01 18 0e  |....wsiblock....|
00000230  45 51 55 44 20 49 6e 66  6f 25 0d 01 22 0a 45 51  |EQUD Info%..".EQ|
00000240  55 44 20 31 0d 01 2c 0a  45 51 55 44 20 30 0d 01  |UD 1..,.EQUD 0..|
00000250  36 0a 45 51 55 44 20 30  0d 01 40 0e 2e 77 73 69  |6.EQUD 0..@..wsi|
00000260  62 6c 6f 63 6b 32 0d 01  4a 0b 45 51 55 44 20 2d  |block2..J.EQUD -|
00000270  32 0d 01 54 0a 45 51 55  44 20 30 0d 01 5e 0a 45  |2..T.EQUD 0..^.E|
00000280  51 55 44 20 30 0d 01 68  0a 45 51 55 44 20 30 0d  |QUD 0..h.EQUD 0.|
00000290  01 72 0b 2e 74 61 73 6b  69 64 0d 01 7c 10 45 51  |.r..taskid..|.EQ|
000002a0  55 44 20 74 61 73 6b 69  64 25 0d 01 86 0d 2e 69  |UD taskid%.....i|
000002b0  62 61 72 74 65 78 74 0d  01 90 0c 45 51 55 44 20  |bartext....EQUD |
000002c0  69 62 73 0d 01 9a 10 2e  74 69 6d 65 66 6f 72 62  |ibs.....timeforb|
000002d0  65 64 25 0d 01 a4 0a 45  51 55 44 20 30 0d 01 ae  |ed%....EQUD 0...|
000002e0  0a 2e 65 78 69 74 25 0d  01 b8 0a 45 51 55 44 20  |..exit%....EQUD |
000002f0  30 0d 01 c2 0c 2e 63 6c  74 79 70 65 25 0d 01 cc  |0.....cltype%...|
00000300  0a 45 51 55 44 20 30 0d  01 d6 0a 2e 74 69 6d 65  |.EQUD 0.....time|
00000310  25 0d 01 e0 0a 45 51 55  44 20 30 0d 01 ea 0a 2e  |%....EQUD 0.....|
00000320  54 69 6d 65 25 0d 01 f4  0a 45 51 55 44 20 30 0d  |Time%....EQUD 0.|
00000330  01 fe 0b 2e 63 6c 6f 63  6b 25 0d 02 08 0a 45 51  |....clock%....EQ|
00000340  55 44 20 30 0d 02 12 0d  2e 6e 65 77 74 69 6d 65  |UD 0.....newtime|
00000350  25 0d 02 1c 0a 45 51 55  44 20 30 0d 02 26 10 2e  |%....EQUD 0..&..|
00000360  63 6c 6f 63 6b 6e 75 6d  62 65 72 0d 02 30 0b 45  |clocknumber..0.E|
00000370  51 55 44 20 63 74 0d 02  3a 0f 2e 68 6f 6c 65 68  |QUD ct..:..holeh|
00000380  61 6e 64 6c 65 0d 02 44  0a 45 51 55 44 20 30 0d  |andle..D.EQUD 0.|
00000390  02 4e 0e 2e 77 73 69 62  6c 6f 63 6b 31 0d 02 58  |.N..wsiblock1..X|
000003a0  0b 45 51 55 44 20 2d 32  0d 02 62 0a 45 51 55 44  |.EQUD -2..b.EQUD|
000003b0  20 30 0d 02 6c 0a 45 51  55 44 20 30 0d 02 76 0a  | 0..l.EQUD 0..v.|
000003c0  45 51 55 44 20 30 0d 02  80 0d 2e 74 65 78 74 61  |EQUD 0.....texta|
000003d0  64 64 72 0d 02 8a 10 45  51 55 44 20 73 74 72 69  |ddr....EQUD stri|
000003e0  6e 67 25 0d 02 94 0f 2e  74 77 65 6c 76 65 68 6f  |ng%.....twelveho|
000003f0  75 72 0d 02 9e 15 45 51  55 53 20 22 25 31 32 3a  |ur....EQUS "%12:|
00000400  25 6d 69 22 2b bd 30 0d  02 a8 09 41 4c 49 47 4e  |%mi"+.0....ALIGN|
00000410  0d 02 b2 13 2e 74 77 65  6e 74 79 66 6f 75 72 68  |.....twentyfourh|
00000420  6f 75 72 0d 02 bc 15 45  51 55 53 20 22 25 32 34  |our....EQUS "%24|
00000430  3a 25 6d 69 22 2b bd 30  0d 02 c6 09 41 4c 49 47  |:%mi"+.0....ALIG|
00000440  4e 0d 02 d0 05 5d 0d 02  da 05 ed 0d 02 e4 05 e1  |N....]..........|
00000450  0d 02 ee 13 dd f2 68 6f  72 61 63 65 28 6e 61 6d  |......horace(nam|
00000460  65 24 29 0d 02 f8 07 ea  20 85 0d 03 02 37 ee 20  |e$)..... ....7. |
00000470  85 20 ea 20 85 30 2c 22  45 72 72 6f 72 20 77 68  |. . .0,"Error wh|
00000480  65 6e 20 6c 6f 61 64 69  6e 67 20 4d 65 73 73 61  |en loading Messa|
00000490  67 65 73 20 66 69 6c 65  2e 20 53 6f 72 72 79 2e  |ges file. Sorry.|
000004a0  22 0d 03 0c 13 c8 99 26  34 31 35 30 30 2c 2c 6e  |"......&41500,,n|
000004b0  61 6d 65 24 0d 03 16 24  c8 99 26 31 45 2c 36 2c  |ame$...$..&1E,6,|
000004c0  2c 2c 31 37 2b a9 28 6e  61 6d 65 24 29 20 b8 20  |,,17+.(name$) . |
000004d0  2c 2c 6d 73 70 74 72 25  0d 03 20 16 24 28 6d 73  |,,msptr%.. .$(ms|
000004e0  70 74 72 25 2b 31 36 29  3d 6e 61 6d 65 24 0d 03  |ptr%+16)=name$..|
000004f0  2a 1d c8 99 26 34 31 35  30 31 2c 6d 73 70 74 72  |*...&41501,msptr|
00000500  25 2c 6d 73 70 74 72 25  2b 31 36 0d 03 34 05 e1  |%,msptr%+16..4..|
00000510  0d 03 3e 10 dd f2 74 6f  64 61 79 73 64 61 74 65  |..>...todaysdate|
00000520  0d 03 48 0a 21 62 6c 25  3d 33 0d 03 52 0f c8 99  |..H.!bl%=3..R...|
00000530  26 37 2c 31 34 2c 62 6c  25 0d 03 5c 21 24 28 62  |&7,14,bl%..\!$(b|
00000540  6c 25 2b 34 30 29 3d 22  25 63 65 25 79 72 5f 25  |l%+40)="%ce%yr_%|
00000550  6d 6e 5f 25 64 79 22 2b  bd 30 0d 03 66 20 c8 99  |mn_%dy"+.0..f ..|
00000560  26 43 31 2c 62 6c 25 2c  28 62 6c 25 2b 36 30 29  |&C1,bl%,(bl%+60)|
00000570  2c 31 31 2c 62 6c 25 2b  34 30 0d 03 70 1d 74 6f  |,11,bl%+40..p.to|
00000580  64 61 79 24 3d a4 67 65  74 6d 65 6d 28 62 6c 25  |day$=.getmem(bl%|
00000590  2b 36 30 2c 31 30 29 0d  03 7a 1f c8 99 26 43 31  |+60,10)..z...&C1|
000005a0  2c 62 6c 25 2c 28 62 6c  25 2b 36 30 29 2c 31 30  |,bl%,(bl%+60),10|
000005b0  2c 22 25 64 6e 22 0d 03  84 32 74 6f 64 61 79 25  |,"%dn"...2today%|
000005c0  3d bb 28 a4 67 65 74 6d  65 6d 28 62 6c 25 2b 36  |=.(.getmem(bl%+6|
000005d0  30 2c 31 30 29 29 2b 33  36 35 2a bb 28 c0 74 6f  |0,10))+365*.(.to|
000005e0  64 61 79 24 2c 34 29 29  0d 03 8e 1f 2a 53 65 74  |day$,4))....*Set|
000005f0  20 42 6c 61 63 6b 48 6f  6c 65 24 57 69 62 62 6c  | BlackHole$Wibbl|
00000600  65 20 22 41 45 48 22 0d  03 98 38 ff 28 22 52 4d  |e "AEH"...8.("RM|
00000610  45 6e 73 75 72 65 20 57  69 6d 70 53 70 72 69 74  |Ensure WimpSprit|
00000620  65 20 31 2e 30 30 20 55  6e 53 65 74 20 42 6c 61  |e 1.00 UnSet Bla|
00000630  63 6b 48 6f 6c 65 24 57  69 62 62 6c 65 22 29 0d  |ckHole$Wibble").|
00000640  03 a2 31 c8 99 26 32 30  30 32 33 2c 22 42 6c 61  |..1..&20023,"Bla|
00000650  63 6b 48 6f 6c 65 24 57  69 62 62 6c 65 22 2c 62  |ckHole$Wibble",b|
00000660  6c 25 2c 32 35 36 2c 30  20 b8 20 2c 2c 72 61 25  |l%,256,0 . ,,ra%|
00000670  0d 03 ac 0d 62 6c 25 3f  72 61 25 3d 30 0d 03 b6  |....bl%?ra%=0...|
00000680  32 e7 20 a4 67 61 67 61  28 62 6c 25 29 3d 22 41  |2. .gaga(bl%)="A|
00000690  45 48 22 20 ff 28 22 57  69 6d 70 53 43 6f 70 79  |EH" .("WimpSCopy|
000006a0  20 62 69 6e 20 23 22 2b  74 6f 64 61 79 24 29 0d  | bin #"+today$).|
000006b0  03 c0 05 e1 0d 03 ca 18  dd f2 62 69 63 79 63 6c  |..........bicycl|
000006c0  65 5f 72 65 70 61 69 72  5f 6d 61 6e 0d 03 d4 1a  |e_repair_man....|
000006d0  ea 20 61 64 64 72 25 3a  61 64 64 72 25 3d 49 6e  |. addr%:addr%=In|
000006e0  64 54 65 78 74 25 0d 03  de 07 ea 20 85 0d 03 e8  |dText%..... ....|
000006f0  34 ee 20 85 20 ea 20 85  30 2c 22 42 6c 61 63 6b  |4. . . .0,"Black|
00000700  20 48 6f 6c 65 20 63 61  6e 6e 6f 74 20 6c 6f 61  | Hole cannot loa|
00000710  64 20 69 74 73 20 74 65  6d 70 6c 61 74 65 73 2e  |d its templates.|
00000720  22 0d 03 f2 20 c8 99 26  34 30 30 44 39 2c 2c 68  |"... ..&400D9,,h|
00000730  6f 6d 65 24 2b 22 2e 54  65 6d 70 6c 61 74 65 73  |ome$+".Templates|
00000740  22 0d 03 fc 38 c8 99 26  34 30 30 44 42 2c 2c 62  |"...8..&400DB,,b|
00000750  6c 25 2c 61 64 64 72 25  2c 61 64 64 72 25 2b 33  |l%,addr%,addr%+3|
00000760  30 38 30 2c 2d 31 2c 22  49 6e 66 6f 22 2c 30 20  |080,-1,"Info",0 |
00000770  b8 20 2c 2c 61 64 64 72  25 0d 04 06 19 c8 99 26  |. ,,addr%......&|
00000780  34 30 30 43 31 2c 2c 62  6c 25 20 b8 20 49 6e 66  |400C1,,bl% . Inf|
00000790  6f 25 0d 04 10 3a c8 99  26 34 30 30 44 42 2c 2c  |o%...:..&400DB,,|
000007a0  62 6c 25 2c 61 64 64 72  25 2c 61 64 64 72 25 2b  |bl%,addr%,addr%+|
000007b0  33 30 38 30 2c 2d 31 2c  22 43 6f 6e 66 69 67 22  |3080,-1,"Config"|
000007c0  2c 30 20 b8 20 2c 2c 61  64 64 72 25 0d 04 1a 1b  |,0 . ,,addr%....|
000007d0  c8 99 26 34 30 30 43 31  2c 2c 62 6c 25 20 b8 20  |..&400C1,,bl% . |
000007e0  43 6f 6e 66 69 67 25 0d  04 24 38 c8 99 26 34 30  |Config%..$8..&40|
000007f0  30 44 42 2c 2c 62 6c 25  2c 61 64 64 72 25 2c 61  |0DB,,bl%,addr%,a|
00000800  64 64 72 25 2b 33 30 38  30 2c 2d 31 2c 22 70 61  |ddr%+3080,-1,"pa|
00000810  6e 65 22 2c 30 20 b8 20  2c 2c 61 64 64 72 25 0d  |ne",0 . ,,addr%.|
00000820  04 2e 19 c8 99 26 34 30  30 43 31 2c 2c 62 6c 25  |.....&400C1,,bl%|
00000830  20 b8 20 50 61 6e 65 25  0d 04 38 3c c8 99 26 34  | . Pane%..8<..&4|
00000840  30 30 44 42 2c 2c 62 6c  25 2c 61 64 64 72 25 2c  |00DB,,bl%,addr%,|
00000850  61 64 64 72 25 2b 33 30  38 30 2c 2d 31 2c 22 41  |addr%+3080,-1,"A|
00000860  75 74 6f 73 61 76 65 22  2c 30 20 b8 20 2c 2c 61  |utosave",0 . ,,a|
00000870  64 64 72 25 0d 04 42 19  c8 99 26 34 30 30 43 31  |ddr%..B...&400C1|
00000880  2c 2c 62 6c 25 20 b8 20  41 75 74 6f 25 0d 04 4c  |,,bl% . Auto%..L|
00000890  3c c8 99 26 34 30 30 44  42 2c 2c 62 6c 25 2c 61  |<..&400DB,,bl%,a|
000008a0  64 64 72 25 2c 61 64 64  72 25 2b 33 30 38 30 2c  |ddr%,addr%+3080,|
000008b0  2d 31 2c 22 46 69 6c 65  46 69 6e 64 22 2c 30 20  |-1,"FileFind",0 |
000008c0  b8 20 2c 2c 61 64 64 72  25 0d 04 56 1a c8 99 26  |. ,,addr%..V...&|
000008d0  34 30 30 43 31 2c 2c 62  6c 25 20 b8 20 4d 61 76  |400C1,,bl% . Mav|
000008e0  69 73 25 0d 04 60 39 c8  99 26 34 30 30 44 42 2c  |is%..`9..&400DB,|
000008f0  2c 62 6c 25 2c 61 64 64  72 25 2c 61 64 64 72 25  |,bl%,addr%,addr%|
00000900  2b 33 30 38 30 2c 2d 31  2c 22 46 6f 75 6e 64 22  |+3080,-1,"Found"|
00000910  2c 30 20 b8 20 2c 2c 61  64 64 72 25 0d 04 6a 1a  |,0 . ,,addr%..j.|
00000920  c8 99 26 34 30 30 43 31  2c 2c 62 6c 25 20 b8 20  |..&400C1,,bl% . |
00000930  46 6f 75 6e 64 25 0d 04  74 39 c8 99 26 34 30 30  |Found%..t9..&400|
00000940  44 42 2c 2c 62 6c 25 2c  61 64 64 72 25 2c 61 64  |DB,,bl%,addr%,ad|
00000950  64 72 25 2b 33 31 38 30  2c 2d 31 2c 22 51 75 65  |dr%+3180,-1,"Que|
00000960  72 79 22 2c 30 20 b8 20  2c 2c 61 64 64 72 25 0d  |ry",0 . ,,addr%.|
00000970  04 7e 1a c8 99 26 34 30  30 43 31 2c 2c 62 6c 25  |.~...&400C1,,bl%|
00000980  20 b8 20 51 75 65 72 79  25 0d 04 88 0c c8 99 26  | . Query%......&|
00000990  34 30 30 44 41 0d 04 92  35 e7 20 61 64 64 72 25  |400DA...5. addr%|
000009a0  3e 49 6e 64 54 65 78 74  25 2b 33 32 34 30 20 8c  |>IndText%+3240 .|
000009b0  74 68 65 20 74 65 6d 70  6c 61 74 65 73 20 61 72  |the templates ar|
000009c0  65 20 74 6f 6f 20 62 69  67 2e 0d 04 9c 45 66 69  |e too big....Efi|
000009d0  6c 65 69 63 6f 6e 25 3d  a4 63 72 69 63 6f 6e 28  |leicon%=.cricon(|
000009e0  41 75 74 6f 25 2c 33 30  38 2c 35 32 2c 31 32 38  |Auto%,308,52,128|
000009f0  2c 31 30 34 2c 73 70 73  25 2c 73 70 74 25 2c 22  |,104,sps%,spt%,"|
00000a00  22 2c 22 22 2c 26 31 37  30 30 33 31 32 42 29 0d  |","",&1700312B).|
00000a10  04 a6 43 66 66 69 63 6f  6e 25 3d a4 63 72 69 63  |..Cfficon%=.cric|
00000a20  6f 6e 28 4d 61 76 69 73  25 2c 33 37 32 2c 33 33  |on(Mavis%,372,33|
00000a30  36 2c 38 30 2c 37 32 2c  66 66 74 25 2c 66 66 73  |6,80,72,fft%,ffs|
00000a40  25 2c 22 22 2c 22 22 2c  26 31 37 30 30 33 31 32  |%,"","",&1700312|
00000a50  42 29 0d 04 b0 0e 21 62  6c 25 3d 50 61 6e 65 25  |B)....!bl%=Pane%|
00000a60  0d 04 ba 20 c8 99 22 57  69 6d 70 5f 47 65 74 57  |... .."Wimp_GetW|
00000a70  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 25  |indowState",,bl%|
00000a80  0d 04 c4 1f 6f 6c 64 70  61 6e 65 68 65 69 67 68  |....oldpaneheigh|
00000a90  74 25 3d 62 6c 25 21 31  36 2d 62 6c 25 21 38 0d  |t%=bl%!16-bl%!8.|
00000aa0  04 ce 05 e1 0d 04 d8 0c  dd f2 6c 64 6f 70 74 73  |..........ldopts|
00000ab0  0d 04 e2 24 e7 20 a4 6f  62 6a 74 79 70 65 28 68  |...$. .objtype(h|
00000ac0  6f 6d 65 24 2b 22 2e 4f  70 74 69 6f 6e 73 22 29  |ome$+".Options")|
00000ad0  3d 31 20 8c 0d 04 ec 19  79 3d 8e 28 68 6f 6d 65  |=1 .....y=.(home|
00000ae0  24 2b 22 2e 4f 70 74 69  6f 6e 73 22 29 0d 04 f6  |$+".Options")...|
00000af0  19 62 69 6e 24 3d be 23  79 3a 73 70 72 69 74 65  |.bin$=.#y:sprite|
00000b00  73 24 3d be 23 79 0d 05  00 88 e8 23 79 2c 77 69  |s$=.#y.....#y,wi|
00000b10  70 65 6f 70 74 25 2c 21  73 70 69 6e 6f 6e 25 2c  |peopt%,!spinon%,|
00000b20  72 65 74 61 69 6e 25 2c  61 75 74 6f 77 69 70 65  |retain%,autowipe|
00000b30  25 2c 61 75 74 6f 64 61  79 73 25 2c 73 74 72 75  |%,autodays%,stru|
00000b40  63 74 75 72 65 25 2c 21  63 6c 6f 63 6b 25 2c 75  |cture%,!clock%,u|
00000b50  73 65 66 6f 6e 74 73 25  2c 21 63 6c 74 79 70 65  |sefonts%,!cltype|
00000b60  25 2c 6f 70 65 6e 25 2c  73 63 6f 6e 66 25 2c 66  |%,open%,sconf%,f|
00000b70  63 68 61 6e 67 65 25 2c  63 6c 6f 63 6b 66 6f 6e  |change%,clockfon|
00000b80  74 25 2c 73 68 75 74 73  71 75 61 73 68 25 0d 05  |t%,shutsquash%..|
00000b90  0a 07 d9 23 79 0d 05 14  05 cc 0d 05 1e 1b 62 69  |...#y.........bi|
00000ba0  6e 24 3d 68 6f 6d 65 24  2b 22 2e 42 6c 61 63 6b  |n$=home$+".Black|
00000bb0  48 6f 6c 65 22 0d 05 28  17 73 70 72 69 74 65 73  |Hole"..(.sprites|
00000bc0  24 3d 22 42 6c 61 6b 48  6f 6c 65 22 0d 05 32 1e  |$="BlakHole"..2.|
00000bd0  77 69 70 65 6f 70 74 25  3d 25 30 30 30 31 31 3a  |wipeopt%=%00011:|
00000be0  21 73 70 69 6e 6f 6e 25  3d b9 0d 05 3c 19 72 65  |!spinon%=...<.re|
00000bf0  74 61 69 6e 25 3d b9 3a  61 75 74 6f 77 69 70 65  |tain%=.:autowipe|
00000c00  25 3d b9 0d 05 46 1d 61  75 74 6f 64 61 79 73 25  |%=...F.autodays%|
00000c10  3d 32 38 3a 73 74 72 75  63 74 75 72 65 25 3d a3  |=28:structure%=.|
00000c20  0d 05 50 24 21 63 6c 6f  63 6b 25 3d a3 3a 75 73  |..P$!clock%=.:us|
00000c30  65 66 6f 6e 74 73 25 3d  a3 3a 66 63 68 61 6e 67  |efonts%=.:fchang|
00000c40  65 25 3d a3 0d 05 5a 1f  21 63 6c 74 79 70 65 25  |e%=...Z.!cltype%|
00000c50  3d a3 3a 6f 70 65 6e 25  3d b9 3a 73 63 6f 6e 66  |=.:open%=.:sconf|
00000c60  25 3d a3 0d 05 64 1e 63  6c 6f 63 6b 66 6f 6e 74  |%=...d.clockfont|
00000c70  25 3d a3 3a 73 68 75 74  73 71 75 61 73 68 25 3d  |%=.:shutsquash%=|
00000c80  a3 0d 05 6e 05 cd 0d 05  78 19 77 69 70 65 6f 70  |...n....x.wipeop|
00000c90  74 25 3d 77 69 70 65 6f  70 74 25 20 80 20 37 0d  |t%=wipeopt% . 7.|
00000ca0  05 82 30 ff 28 22 49 63  6f 6e 53 70 72 69 74 65  |..0.("IconSprite|
00000cb0  73 20 22 2b 68 6f 6d 65  24 2b 22 2e 53 70 72 69  |s "+home$+".Spri|
00000cc0  74 65 73 2e 22 2b 73 70  72 69 74 65 73 24 29 0d  |tes."+sprites$).|
00000cd0  05 8c 08 70 25 3d 30 0d  05 96 25 e7 20 a4 6f 62  |...p%=0...%. .ob|
00000ce0  6a 74 79 70 65 28 68 6f  6d 65 24 2b 22 2e 53 61  |jtype(home$+".Sa|
00000cf0  76 65 4f 70 74 73 22 29  3d 31 20 8c 0d 05 a0 1a  |veOpts")=1 .....|
00000d00  79 3d 8e 28 68 6f 6d 65  24 2b 22 2e 53 61 76 65  |y=.(home$+".Save|
00000d10  4f 70 74 73 22 29 0d 05  aa 34 c8 95 20 c5 23 79  |Opts")...4.. .#y|
00000d20  3d 30 3a 46 74 70 24 28  70 25 29 3d be 23 79 3a  |=0:Ftp$(p%)=.#y:|
00000d30  53 76 70 74 68 24 28 70  25 29 3d be 23 79 3a 70  |Svpth$(p%)=.#y:p|
00000d40  25 2b 3d 31 3a ce 3a d9  23 79 0d 05 b4 05 cd 0d  |%+=1:.:.#y......|
00000d50  05 be 05 e1 0d 05 c8 0e  dd f2 64 6f 72 61 64 69  |..........doradi|
00000d60  6f 73 0d 05 d2 0a ea 20  6f 66 66 25 0d 05 dc 28  |os..... off%...(|
00000d70  e7 20 28 77 69 70 65 6f  70 74 25 20 80 20 32 29  |. (wipeopt% . 2)|
00000d80  3d 32 20 6f 66 66 25 3d  30 20 8b 6f 66 66 25 3d  |=2 off%=0 .off%=|
00000d90  68 69 67 68 0d 05 e6 1d  f2 73 65 6c 69 63 28 50  |high.....selic(P|
00000da0  61 6e 65 25 2c 32 2c 6f  66 66 25 2c 68 69 67 68  |ane%,2,off%,high|
00000db0  29 0d 05 f0 28 e7 20 28  77 69 70 65 6f 70 74 25  |)...(. (wipeopt%|
00000dc0  20 80 20 34 29 3d 34 20  6f 66 66 25 3d 30 20 8b  | . 4)=4 off%=0 .|
00000dd0  6f 66 66 25 3d 68 69 67  68 0d 05 fa 1d f2 73 65  |off%=high.....se|
00000de0  6c 69 63 28 50 61 6e 65  25 2c 34 2c 6f 66 66 25  |lic(Pane%,4,off%|
00000df0  2c 68 69 67 68 29 0d 06  04 28 e7 20 28 77 69 70  |,high)...(. (wip|
00000e00  65 6f 70 74 25 20 80 20  31 29 3d 31 20 6f 66 66  |eopt% . 1)=1 off|
00000e10  25 3d 30 20 8b 6f 66 66  25 3d 68 69 67 68 0d 06  |%=0 .off%=high..|
00000e20  0e 1d f2 73 65 6c 69 63  28 50 61 6e 65 25 2c 33  |...selic(Pane%,3|
00000e30  2c 6f 66 66 25 2c 68 69  67 68 29 0d 06 18 1f e7  |,off%,high).....|
00000e40  20 72 65 74 61 69 6e 25  20 6f 66 66 25 3d 30 20  | retain% off%=0 |
00000e50  8b 6f 66 66 25 3d 68 69  67 68 0d 06 22 1d f2 73  |.off%=high.."..s|
00000e60  65 6c 69 63 28 50 61 6e  65 25 2c 38 2c 6f 66 66  |elic(Pane%,8,off|
00000e70  25 2c 68 69 67 68 29 0d  06 2c 23 e7 20 73 68 75  |%,high)..,#. shu|
00000e80  74 73 71 75 61 73 68 25  20 6f 66 66 25 3d 30 20  |tsquash% off%=0 |
00000e90  8b 6f 66 66 25 3d 68 69  67 68 0d 06 36 1e f2 73  |.off%=high..6..s|
00000ea0  65 6c 69 63 28 50 61 6e  65 25 2c 33 32 2c 6f 66  |elic(Pane%,32,of|
00000eb0  66 25 2c 68 69 67 68 29  0d 06 40 20 e7 20 21 73  |f%,high)..@ . !s|
00000ec0  70 69 6e 6f 6e 25 20 6f  66 66 25 3d 30 20 8b 6f  |pinon% off%=0 .o|
00000ed0  66 66 25 3d 68 69 67 68  0d 06 4a 1e f2 73 65 6c  |ff%=high..J..sel|
00000ee0  69 63 28 50 61 6e 65 25  2c 31 35 2c 6f 66 66 25  |ic(Pane%,15,off%|
00000ef0  2c 68 69 67 68 29 0d 06  54 20 e7 20 66 63 68 61  |,high)..T . fcha|
00000f00  6e 67 65 25 20 6f 66 66  25 3d 30 20 8b 6f 66 66  |nge% off%=0 .off|
00000f10  25 3d 68 69 67 68 0d 06  5e 1e f2 73 65 6c 69 63  |%=high..^..selic|
00000f20  28 50 61 6e 65 25 2c 33  30 2c 6f 66 66 25 2c 68  |(Pane%,30,off%,h|
00000f30  69 67 68 29 0d 06 68 1d  e7 20 6f 70 65 6e 25 20  |igh)..h.. open% |
00000f40  6f 66 66 25 3d 30 20 8b  6f 66 66 25 3d 68 69 67  |off%=0 .off%=hig|
00000f50  68 0d 06 72 1e f2 73 65  6c 69 63 28 50 61 6e 65  |h..r..selic(Pane|
00000f60  25 2c 32 38 2c 6f 66 66  25 2c 68 69 67 68 29 0d  |%,28,off%,high).|
00000f70  06 7c 1e e7 20 73 63 6f  6e 66 25 20 6f 66 66 25  |.|.. sconf% off%|
00000f80  3d 68 69 67 68 20 8b 6f  66 66 25 3d 30 0d 06 86  |=high .off%=0...|
00000f90  1e f2 73 65 6c 69 63 28  50 61 6e 65 25 2c 32 37  |..selic(Pane%,27|
00000fa0  2c 6f 66 66 25 2c 68 69  67 68 29 0d 06 90 21 e7  |,off%,high)...!.|
00000fb0  20 61 75 74 6f 77 69 70  65 25 20 6f 66 66 25 3d  | autowipe% off%=|
00000fc0  30 20 8b 6f 66 66 25 3d  68 69 67 68 0d 06 9a 1d  |0 .off%=high....|
00000fd0  f2 73 65 6c 69 63 28 50  61 6e 65 25 2c 39 2c 6f  |.selic(Pane%,9,o|
00000fe0  66 66 25 2c 68 69 67 68  29 0d 06 a4 22 e7 20 73  |ff%,high)...". s|
00000ff0  74 72 75 63 74 75 72 65  25 20 6f 66 66 25 3d 30  |tructure% off%=0|
00001000  20 8b 6f 66 66 25 3d 68  69 67 68 0d 06 ae 1d f2  | .off%=high.....|
00001010  73 65 6c 69 63 28 50 61  6e 65 25 2c 35 2c 6f 66  |selic(Pane%,5,of|
00001020  66 25 2c 68 69 67 68 29  0d 06 b8 1f e7 20 21 63  |f%,high)..... !c|
00001030  6c 6f 63 6b 25 20 6f 66  66 25 3d 30 20 8b 6f 66  |lock% off%=0 .of|
00001040  66 25 3d 68 69 67 68 0d  06 c2 1e f2 73 65 6c 69  |f%=high.....seli|
00001050  63 28 50 61 6e 65 25 2c  32 33 2c 6f 66 66 25 2c  |c(Pane%,23,off%,|
00001060  68 69 67 68 29 0d 06 cc  21 e7 20 75 73 65 66 6f  |high)...!. usefo|
00001070  6e 74 73 25 20 6f 66 66  25 3d 30 20 8b 6f 66 66  |nts% off%=0 .off|
00001080  25 3d 68 69 67 68 0d 06  d6 1e f2 73 65 6c 69 63  |%=high.....selic|
00001090  28 50 61 6e 65 25 2c 31  39 2c 6f 66 66 25 2c 68  |(Pane%,19,off%,h|
000010a0  69 67 68 29 0d 06 e0 22  e7 20 63 6c 6f 63 6b 66  |igh)...". clockf|
000010b0  6f 6e 74 25 20 6f 66 66  25 3d 30 20 8b 6f 66 66  |ont% off%=0 .off|
000010c0  25 3d 68 69 67 68 0d 06  ea 1e f2 73 65 6c 69 63  |%=high.....selic|
000010d0  28 50 61 6e 65 25 2c 33  31 2c 6f 66 66 25 2c 68  |(Pane%,31,off%,h|
000010e0  69 67 68 29 0d 06 f4 10  e7 20 21 63 6c 74 79 70  |igh)..... !cltyp|
000010f0  65 25 20 8c 0d 06 fe 1e  f2 73 65 6c 69 63 28 50  |e% ......selic(P|
00001100  61 6e 65 25 2c 32 31 2c  68 69 67 68 2c 68 69 67  |ane%,21,high,hig|
00001110  68 29 0d 07 08 1b f2 73  65 6c 69 63 28 50 61 6e  |h).....selic(Pan|
00001120  65 25 2c 32 32 2c 30 2c  68 69 67 68 29 0d 07 12  |e%,22,0,high)...|
00001130  05 cc 0d 07 1c 1b f2 73  65 6c 69 63 28 50 61 6e  |.......selic(Pan|
00001140  65 25 2c 32 31 2c 30 2c  68 69 67 68 29 0d 07 26  |e%,21,0,high)..&|
00001150  1e f2 73 65 6c 69 63 28  50 61 6e 65 25 2c 32 32  |..selic(Pane%,22|
00001160  2c 68 69 67 68 2c 68 69  67 68 29 0d 07 30 05 cd  |,high,high)..0..|
00001170  0d 07 3a 1b f2 73 65 6c  69 63 28 4d 61 76 69 73  |..:..selic(Mavis|
00001180  25 2c 37 2c 30 2c 68 69  67 68 29 0d 07 44 1f f2  |%,7,0,high)..D..|
00001190  73 65 6c 69 63 28 4d 61  76 69 73 25 2c 32 34 2c  |selic(Mavis%,24,|
000011a0  68 69 67 68 2c 68 69 67  68 29 0d 07 4e 1b f2 73  |high,high)..N..s|
000011b0  65 6c 69 63 28 4d 61 76  69 73 25 2c 39 2c 30 2c  |elic(Mavis%,9,0,|
000011c0  68 69 67 68 29 0d 07 58  1f f2 73 65 6c 69 63 28  |high)..X..selic(|
000011d0  4d 61 76 69 73 25 2c 31  30 2c 68 69 67 68 2c 68  |Mavis%,10,high,h|
000011e0  69 67 68 29 0d 07 62 1c  f2 73 65 6c 69 63 28 4d  |igh)..b..selic(M|
000011f0  61 76 69 73 25 2c 32 32  2c 30 2c 68 69 67 68 29  |avis%,22,0,high)|
00001200  0d 07 6c 1f f2 73 65 6c  69 63 28 4d 61 76 69 73  |..l..selic(Mavis|
00001210  25 2c 32 37 2c 68 69 67  68 2c 68 69 67 68 29 0d  |%,27,high,high).|
00001220  07 76 17 f2 70 73 28 4d  61 76 69 73 25 2c 32 39  |.v..ps(Mavis%,29|
00001230  2c 22 3e 30 22 29 0d 07  80 20 e7 20 ac 20 21 63  |,">0")... . . !c|
00001240  6c 6f 63 6b 25 20 f2 6f  6f 65 72 28 67 72 65 79  |lock% .ooer(grey|
00001250  2c 67 72 65 79 29 0d 07  8a 31 f2 70 73 28 50 61  |,grey)...1.ps(Pa|
00001260  6e 65 25 2c 31 32 2c c3  28 61 75 74 6f 64 61 79  |ne%,12,.(autoday|
00001270  73 25 29 29 3a f2 70 73  28 50 61 6e 65 25 2c 31  |s%)):.ps(Pane%,1|
00001280  31 2c 62 69 6e 24 29 0d  07 94 41 f2 70 73 28 4d  |1,bin$)...A.ps(M|
00001290  61 76 69 73 25 2c 31 39  2c 22 30 20 66 69 6c 65  |avis%,19,"0 file|
000012a0  73 20 66 6f 75 6e 64 22  29 3a f2 70 73 28 4d 61  |s found"):.ps(Ma|
000012b0  76 69 73 25 2c 31 38 2c  22 30 20 62 79 74 65 73  |vis%,18,"0 bytes|
000012c0  20 74 6f 74 61 6c 22 29  0d 07 9e 50 21 62 6c 25  | total")...P!bl%|
000012d0  3d 50 61 6e 65 25 3a c8  99 26 34 30 30 43 42 2c  |=Pane%:..&400CB,|
000012e0  2c 62 6c 25 3a 70 61 6e  65 68 65 69 67 68 74 25  |,bl%:paneheight%|
000012f0  3d 62 6c 25 21 31 36 2d  62 6c 25 21 38 3a 6f 6c  |=bl%!16-bl%!8:ol|
00001300  64 70 61 6e 65 68 65 69  67 68 74 25 3d 70 61 6e  |dpaneheight%=pan|
00001310  65 68 65 69 67 68 74 25  0d 07 9f 25 f2 70 73 28  |eheight%...%.ps(|
00001320  4d 61 76 69 73 25 2c 33  2c c0 68 6f 6d 65 24 2c  |Mavis%,3,.home$,|
00001330  a7 68 6f 6d 65 24 2c 22  24 22 29 29 29 0d 07 a8  |.home$,"$")))...|
00001340  05 e1 0d 07 b2 0d dd f2  62 69 6e 63 6f 6e 76 0d  |........binconv.|
00001350  07 bc 43 ea 6e 25 2c 61  64 64 72 25 2c 74 65 6d  |..C.n%,addr%,tem|
00001360  70 24 2c 63 6f 75 6e 74  25 2c 61 64 64 72 25 2c  |p$,count%,addr%,|
00001370  77 69 70 25 2c 6d 65 6d  25 2c 64 61 79 24 2c 6d  |wip%,mem%,day$,m|
00001380  6f 6e 74 68 24 2c 79 65  61 72 24 2c 74 65 6d 70  |onth$,year$,temp|
00001390  32 24 0d 07 c6 43 6d 65  6d 25 3d a4 64 69 6d 28  |2$...Cmem%=.dim(|
000013a0  33 30 30 30 29 3a e7 20  6d 65 6d 25 3d 30 20 f2  |3000):. mem%=0 .|
000013b0  6c 61 6d 61 74 69 6f 6e  28 22 49 6e 73 75 66 66  |lamation("Insuff|
000013c0  69 63 69 65 6e 74 20 4d  65 6d 6f 72 79 22 2c 30  |icient Memory",0|
000013d0  2c 30 29 3a e1 0d 07 d0  15 77 69 70 25 3d 30 3a  |,0):.....wip%=0:|
000013e0  74 65 6d 70 24 3d 62 69  6e 24 0d 07 da 17 63 6f  |temp$=bin$....co|
000013f0  75 6e 74 25 3d 30 3a 61  64 64 72 25 3d 6d 65 6d  |unt%=0:addr%=mem|
00001400  25 0d 07 e4 35 c8 99 26  43 2c 39 2c 74 65 6d 70  |%...5..&C,9,temp|
00001410  24 2c 6d 65 6d 25 2c 37  37 2c 30 2c 33 30 30 30  |$,mem%,77,0,3000|
00001420  2c 22 23 23 5f 23 23 5f  23 23 23 23 22 20 b8 20  |,"##_##_####" . |
00001430  2c 2c 2c 6e 6f 25 0d 07  ee 11 c8 95 20 63 6f 75  |,,,no%...... cou|
00001440  6e 74 25 3c 6e 6f 25 0d  07 f8 16 74 65 6d 70 32  |nt%<no%....temp2|
00001450  24 3d a4 62 75 6d 28 61  64 64 72 25 29 0d 08 02  |$=.bum(addr%)...|
00001460  38 64 61 79 24 3d c0 74  65 6d 70 32 24 2c 32 29  |8day$=.temp2$,2)|
00001470  3a 6d 6f 6e 74 68 24 3d  c1 74 65 6d 70 32 24 2c  |:month$=.temp2$,|
00001480  34 2c 32 29 3a 79 65 61  72 24 3d c2 74 65 6d 70  |4,2):year$=.temp|
00001490  32 24 2c 34 29 0d 08 0c  47 ff 28 22 52 65 6e 61  |2$,4)...G.("Rena|
000014a0  6d 65 20 22 2b 62 69 6e  24 2b 22 2e 22 2b 74 65  |me "+bin$+"."+te|
000014b0  6d 70 32 24 2b 22 20 22  2b 62 69 6e 24 2b 22 2e  |mp2$+" "+bin$+".|
000014c0  22 2b 79 65 61 72 24 2b  22 5f 22 2b 6d 6f 6e 74  |"+year$+"_"+mont|
000014d0  68 24 2b 22 5f 22 2b 64  61 79 24 29 0d 08 16 0d  |h$+"_"+day$)....|
000014e0  63 6f 75 6e 74 25 2b 3d  31 0d 08 20 05 ce 0d 08  |count%+=1.. ....|
000014f0  2a 1e c8 99 26 32 30 30  31 45 2c 37 2c 2c 6d 65  |*...&2001E,7,,me|
00001500  6d 25 3a f2 69 62 61 72  28 22 22 29 0d 08 34 05  |m%:.ibar("")..4.|
00001510  e1 0d 08 3e 17 dd f2 6d  6f 64 75 6c 65 6b 69 6c  |...>...modulekil|
00001520  6c 28 66 69 6c 65 24 29  0d 08 3f 15 ea 20 68 61  |l(file$)..?.. ha|
00001530  6e 64 6c 65 25 2c 6d 6f  64 75 6c 65 24 0d 08 48  |ndle%,module$..H|
00001540  24 66 69 6c 65 24 3d 68  6f 6d 65 24 2b 22 2e 4d  |$file$=home$+".M|
00001550  6f 64 75 6c 65 4b 69 6c  6c 2e 22 2b 66 69 6c 65  |oduleKill."+file|
00001560  24 0d 08 5c 14 68 61 6e  64 6c 65 25 3d 8e 28 66  |$..\.handle%=.(f|
00001570  69 6c 65 24 29 0d 08 5d  24 c8 95 20 c5 23 68 61  |ile$)..]$.. .#ha|
00001580  6e 64 6c 65 25 3d 30 3a  6d 6f 64 75 6c 65 24 3d  |ndle%=0:module$=|
00001590  be 23 68 61 6e 64 6c 65  25 0d 08 5e 1e c8 99 22  |.#handle%..^..."|
000015a0  58 4f 53 5f 4d 6f 64 75  6c 65 22 2c 34 2c 6d 6f  |XOS_Module",4,mo|
000015b0  64 75 6c 65 24 3a ce 0d  08 5f 0d d9 23 68 61 6e  |dule$:..._..#han|
000015c0  64 6c 65 25 0d 08 60 29  c8 99 22 58 4f 53 5f 43  |dle%..`).."XOS_C|
000015d0  68 61 6e 67 65 44 79 6e  61 6d 69 63 41 72 65 61  |hangeDynamicArea|
000015e0  22 2c 31 2c 2d 31 36 30  30 30 30 30 30 0d 08 70  |",1,-16000000..p|
000015f0  05 e1 0d ff                                       |....|
000015f4