��watneys_red_barrel
-ș&20023,"BlackHole$Dir",bl%,256,0 � ,,r%
bl%?r%=0
(home$=�gaga(bl%)
2�horace(home$+".Messages")
<Cbl%!0=1:bl%!4=3:bl%!8=&502:bl%!12=&400C3:bl%!16=&400C1:bl%!20=0
F<ș&400C0,300,1263747412,"Black Hole 2",bl% � wv%,taskid%
P=� wv%<300 �0,"Black Hole requires RISC OS 3.00 or later."
Zy=�(home$+".Options")
dbin$=�#y:sprites$=�#y
nP�#y,wipeopt%,spinon%,retain%,autowipe%,autodays%,structure%,clock%,usefonts%
x�#y
�0�("IconSprites "+home$+".Sprites."+sprites$)
�y=�(home$+".SaveOpts")
��#y,sconf%,open%
�9p%=0:ȕ �#y=0:Ftp$(p%)=�#y:Svpth$(p%)=�#y:p%+=1:�:�#y
�)high=&200000:off=&800000:grey=&400000
�Gblock2%=bl%+1432:block3%=bl%+1560:block4%=bl%+1688:block5%=bl%+1816
�+message%=bl%+1144:nearlyquit%=�:bye%=11
�2months$="JanFebMarAprMayJunJulAugSepOctNovDec"
�4day()=0,31,59,90,120,151,181,212,242,273,303,334
�v$="Version 1.01 or so."
�_saving%=0:spriteno%=-1:spin%=0:wip%=0:currpath%=0:wipehandle%=0:crnt%=0:clicon%=0:clmenu%=�
�Unoftypes%=0:exit%=�:cst%=0:tdim%=0:delhandle%=0:tdim%=�:wiping%=�:toomanyfiles%=�
�OMr_Creosote%=�:spritemenu%=�:timeforbed%=�:desconhandle%=0:getem%=�:mode%=�

�bicycle_repair_man:�scrnxy

=file%=0:foundopen%=0:found%=0:zappa%=100:tpos%=0:query%=0


�doradios

"� badbin% �

,$  �ps(Opt,12,home$+".BlackHole")

6$  �ps(Query,0,�msg("bbs","",""))

@"  �savopt:�getbin(0):badbin%=�

J�

T/� �empty(bin$) te$="Empty" � te$="Occupied"

^Lhole%=�cricon(-5,&10000000,-92,160,108,ibt,ibs,te$,"s!black0",&1700312B)

h,�ps(AuSav,9,"Current : "+�(currpath%+1))

r"�ps(AuSav,10,"Total : "+�(p%))

|�ps(Opt,18,sprites$)

�
�edure

�2� l%=0 � 11:men$(l%)=�msg("MEN"+�(l%),"",""):�

�5� l%=0 � 5:stext$(l%)=�msg("stext"+�(l%),"",""):�

��todaysdate

�pollmask%=�pollmask

�hmfont%=�findfont(�msg("mf","",""),�(�msg("mfs","","")),�(�msg("mfh","","")),"homerton.medium",13,13)

�gifont%=�findfont(�msg("if","",""),�(�msg("ifs","","")),�(�msg("ifh","","")),"trinity.medium",14,14)

�Time$=��$,17,5)

�M� clock% clicon%=�cricon(-8,&10000000,-64,100,52,ct,block4%,Time$,"",�cf)

�ptime$="x":pdate$="Hamrag"

��

�4ݤfindfont(name$,size%,height%,default$,ds%,dh%)

�� hand%
� �
2� � � name$=default$:size%=ds%:height%=dh%:� �
/ș&40081,,name$,size%*16,height%*16 � hand%
&
=hand%
0��todaysdate
: � month$,n%,year$,md$,month%
Dmonth$=��$,8,3)
N#today$=��$,5,2):year$=��$,12,4)
X!month%=(�months$,month$) � 3)
b-today%=day(month%)+�(today$)+365*�(year$)
lmd$=�(month%+1)
v� � md$=1 md$="0"+md$
�today$+="_"+md$+"_"+year$
��
�8ݤcricon(hand%,x%,y%,w%,h%,tptr%,sptr%,t$,s$,flags%)
�� icon%
�<!bl%=hand%:bl%!4=x%:bl%!8=-y%-h%:bl%!12=x%+w%:bl%!16=-y%
�5bl%!20=flags%:bl%!24=tptr%:bl%!28=sptr%:bl%!32=11
�
$sptr%=s$
�
$tptr%=t$
�ș&400C2,,bl% � icon%
�
=icon%
���doradios
�
� off%
�)� (wipeopt% � 2)=2 off%=0 � off%=high
�selic(Opt,16,off%,high)
)� (wipeopt% � 4)=4 off%=0 � off%=high
�selic(Opt,1,off%,high)
 )� (wipeopt% � 1)=1 off%=0 � off%=high
*�selic(Opt,3,off%,high)
4 � retain% off%=0 � off%=high
>�selic(Opt,4,off%,high)
H � spinon% off%=0 � off%=high
R�selic(Opt,14,off%,high)
\� open% off%=0 � off%=high
f�selic(AuSav,13,off%,high)
p� sconf% off%=high � off%=0
z�selic(AuSav,12,off%,high)
�"� autowipe% off%=0 � off%=high
��selic(Opt,8,off%,high)
�#� structure% off%=0 � off%=high
��selic(Opt,20,off%,high)
�� clock% off%=0 � off%=high
��selic(Opt,9,off%,high)
�"� usefonts% off%=0 � off%=high
��selic(Opt,21,off%,high)
�-�ps(Opt,11,�(autodays%)):�ps(Opt,12,bin$)
�?�ps(Mavis,19,"0 files found"):�ps(Mavis,18,"0 bytes total")
��getbin(0)
��
���bicycle_repair_man
� �
� � � �0,�msg("nt","","")
 ș&400D9,,home$+".Templates"
$3ș&400DB,,bl%,IndText%,IndText%+112,-1,"Info",0
.ș&400C1,,bl% � Info
8;ș&400DB,,bl%,IndText%+116,IndText%+1012,-1,"Options",0
Bș&400C1,,bl% � Opt
L=ș&400DB,,bl%,IndText%+1016,IndText%+1702,-1,"Autosave",0
Vș&400C1,,bl% � AuSav
`=ș&400DB,,bl%,IndText%+1706,IndText%+2612,-1,"FileFind",0
jș&400C1,,bl% � Mavis
t:ș&400DB,,bl%,IndText%+2616,IndText%+2664,-1,"Found",0
~ș&400C1,,bl% � Found
�:ș&400DB,,bl%,IndText%+2668,IndText%+3024,-1,"Query",0
�ș&400C1,,bl% � Query
�ș&400DA
�Efileicon%=�cricon(AuSav,292,52,128,104,sps%,spt%,"","",&1700312B)
�Bfficon%=�cricon(Mavis,694,336,80,72,fft%,ffs%,"","",&1700312B)
�?� spinon%=� �ps(Info,1,�msg("fwe","","")) � �ps(Info,1," ")
��ps(Info,2,v$)
��
���horace(name$)
�� �
�7� � � �0,"Error when loading Messages file. Sorry."
�ș&41500,,name$
$ș&1E,6,,,17+�(name$) � ,,msptr%

$(msptr%+16)=name$
ș&41501,msptr%,msptr%+16
�
(��parrot(use%,x%,y%)
2D�n%,addr%,l%,temp$,count%,addr%,wip%,day%,month%,year%,poo%,mem%
<mem%=�dim(3000):� mem%=0 �
Fwip%=0:temp$=bin$
Pcount%=0:addr%=mem%
Z*ș&C,9,temp$,mem%,77,0,3000,0 � ,,,no%
dȕ count%<no%
n  temp2$=�bum(addr%)
x  day%=�(�temp2$,2))
�   month%=(�(�temp2$,4,2)))-1
�  year%=�(�temp2$,4))
�%  poo%=day(month%)+day%+365*year%
�  Ȏ use% �
�    � 0
�G      � today%-poo%>=autodays% �("Wipe "+bin$+"."+temp2$+" ~C~VFR")
�    � 1
�=      �("Filer_OpenDir "+bin$+"."+temp2$+" "+�x%+" "+�y%)
�      x%+=32:y%-=48
�  �
�  count%+=1
��
�ș&2001E,7,,mem%

�ibar("")
�
��savopt
"
�s%,a%
,�getbin(0)
6� badbin% �
@y=�(home$+".Options")
Ja%=�($(�lust(Opt,11)))
T�#y,bin$:�#y,sprites$
^I�#y,wipeopt%,spinon%,retain%,autowipe%,a%,structure%,clock%,usefonts%
h�#y
r�
�

00000000  0d 00 0a 18 dd f2 77 61  74 6e 65 79 73 5f 72 65  |......watneys_re|
00000010  64 5f 62 61 72 72 65 6c  0d 00 14 2d c8 99 26 32  |d_barrel...-..&2|
00000020  30 30 32 33 2c 22 42 6c  61 63 6b 48 6f 6c 65 24  |0023,"BlackHole$|
00000030  44 69 72 22 2c 62 6c 25  2c 32 35 36 2c 30 20 b8  |Dir",bl%,256,0 .|
00000040  20 2c 2c 72 25 0d 00 1e  0c 62 6c 25 3f 72 25 3d  | ,,r%....bl%?r%=|
00000050  30 0d 00 28 14 68 6f 6d  65 24 3d a4 67 61 67 61  |0..(.home$=.gaga|
00000060  28 62 6c 25 29 0d 00 32  1e f2 68 6f 72 61 63 65  |(bl%)..2..horace|
00000070  28 68 6f 6d 65 24 2b 22  2e 4d 65 73 73 61 67 65  |(home$+".Message|
00000080  73 22 29 0d 00 3c 43 62  6c 25 21 30 3d 31 3a 62  |s")..<Cbl%!0=1:b|
00000090  6c 25 21 34 3d 33 3a 62  6c 25 21 38 3d 26 35 30  |l%!4=3:bl%!8=&50|
000000a0  32 3a 62 6c 25 21 31 32  3d 26 34 30 30 43 33 3a  |2:bl%!12=&400C3:|
000000b0  62 6c 25 21 31 36 3d 26  34 30 30 43 31 3a 62 6c  |bl%!16=&400C1:bl|
000000c0  25 21 32 30 3d 30 0d 00  46 3c c8 99 26 34 30 30  |%!20=0..F<..&400|
000000d0  43 30 2c 33 30 30 2c 31  32 36 33 37 34 37 34 31  |C0,300,126374741|
000000e0  32 2c 22 42 6c 61 63 6b  20 48 6f 6c 65 20 32 22  |2,"Black Hole 2"|
000000f0  2c 62 6c 25 20 b8 20 77  76 25 2c 74 61 73 6b 69  |,bl% . wv%,taski|
00000100  64 25 0d 00 50 3d e7 20  77 76 25 3c 33 30 30 20  |d%..P=. wv%<300 |
00000110  85 30 2c 22 42 6c 61 63  6b 20 48 6f 6c 65 20 72  |.0,"Black Hole r|
00000120  65 71 75 69 72 65 73 20  52 49 53 43 20 4f 53 20  |equires RISC OS |
00000130  33 2e 30 30 20 6f 72 20  6c 61 74 65 72 2e 22 0d  |3.00 or later.".|
00000140  00 5a 19 79 3d 8e 28 68  6f 6d 65 24 2b 22 2e 4f  |.Z.y=.(home$+".O|
00000150  70 74 69 6f 6e 73 22 29  0d 00 64 19 62 69 6e 24  |ptions")..d.bin$|
00000160  3d be 23 79 3a 73 70 72  69 74 65 73 24 3d be 23  |=.#y:sprites$=.#|
00000170  79 0d 00 6e 50 e8 23 79  2c 77 69 70 65 6f 70 74  |y..nP.#y,wipeopt|
00000180  25 2c 73 70 69 6e 6f 6e  25 2c 72 65 74 61 69 6e  |%,spinon%,retain|
00000190  25 2c 61 75 74 6f 77 69  70 65 25 2c 61 75 74 6f  |%,autowipe%,auto|
000001a0  64 61 79 73 25 2c 73 74  72 75 63 74 75 72 65 25  |days%,structure%|
000001b0  2c 63 6c 6f 63 6b 25 2c  75 73 65 66 6f 6e 74 73  |,clock%,usefonts|
000001c0  25 0d 00 78 07 d9 23 79  0d 00 82 30 ff 28 22 49  |%..x..#y...0.("I|
000001d0  63 6f 6e 53 70 72 69 74  65 73 20 22 2b 68 6f 6d  |conSprites "+hom|
000001e0  65 24 2b 22 2e 53 70 72  69 74 65 73 2e 22 2b 73  |e$+".Sprites."+s|
000001f0  70 72 69 74 65 73 24 29  0d 00 8c 1a 79 3d 8e 28  |prites$)....y=.(|
00000200  68 6f 6d 65 24 2b 22 2e  53 61 76 65 4f 70 74 73  |home$+".SaveOpts|
00000210  22 29 0d 00 96 14 e8 23  79 2c 73 63 6f 6e 66 25  |").....#y,sconf%|
00000220  2c 6f 70 65 6e 25 0d 00  a0 39 70 25 3d 30 3a c8  |,open%...9p%=0:.|
00000230  95 20 c5 23 79 3d 30 3a  46 74 70 24 28 70 25 29  |. .#y=0:Ftp$(p%)|
00000240  3d be 23 79 3a 53 76 70  74 68 24 28 70 25 29 3d  |=.#y:Svpth$(p%)=|
00000250  be 23 79 3a 70 25 2b 3d  31 3a ce 3a d9 23 79 0d  |.#y:p%+=1:.:.#y.|
00000260  00 aa 29 68 69 67 68 3d  26 32 30 30 30 30 30 3a  |..)high=&200000:|
00000270  6f 66 66 3d 26 38 30 30  30 30 30 3a 67 72 65 79  |off=&800000:grey|
00000280  3d 26 34 30 30 30 30 30  0d 00 b4 47 62 6c 6f 63  |=&400000...Gbloc|
00000290  6b 32 25 3d 62 6c 25 2b  31 34 33 32 3a 62 6c 6f  |k2%=bl%+1432:blo|
000002a0  63 6b 33 25 3d 62 6c 25  2b 31 35 36 30 3a 62 6c  |ck3%=bl%+1560:bl|
000002b0  6f 63 6b 34 25 3d 62 6c  25 2b 31 36 38 38 3a 62  |ock4%=bl%+1688:b|
000002c0  6c 6f 63 6b 35 25 3d 62  6c 25 2b 31 38 31 36 0d  |lock5%=bl%+1816.|
000002d0  00 be 2b 6d 65 73 73 61  67 65 25 3d 62 6c 25 2b  |..+message%=bl%+|
000002e0  31 31 34 34 3a 6e 65 61  72 6c 79 71 75 69 74 25  |1144:nearlyquit%|
000002f0  3d a3 3a 62 79 65 25 3d  31 31 0d 00 c8 32 6d 6f  |=.:bye%=11...2mo|
00000300  6e 74 68 73 24 3d 22 4a  61 6e 46 65 62 4d 61 72  |nths$="JanFebMar|
00000310  41 70 72 4d 61 79 4a 75  6e 4a 75 6c 41 75 67 53  |AprMayJunJulAugS|
00000320  65 70 4f 63 74 4e 6f 76  44 65 63 22 0d 00 d2 34  |epOctNovDec"...4|
00000330  64 61 79 28 29 3d 30 2c  33 31 2c 35 39 2c 39 30  |day()=0,31,59,90|
00000340  2c 31 32 30 2c 31 35 31  2c 31 38 31 2c 32 31 32  |,120,151,181,212|
00000350  2c 32 34 32 2c 32 37 33  2c 33 30 33 2c 33 33 34  |,242,273,303,334|
00000360  0d 00 dc 1c 76 24 3d 22  56 65 72 73 69 6f 6e 20  |....v$="Version |
00000370  31 2e 30 31 20 6f 72 20  73 6f 2e 22 0d 00 e6 5f  |1.01 or so."..._|
00000380  73 61 76 69 6e 67 25 3d  30 3a 73 70 72 69 74 65  |saving%=0:sprite|
00000390  6e 6f 25 3d 2d 31 3a 73  70 69 6e 25 3d 30 3a 77  |no%=-1:spin%=0:w|
000003a0  69 70 25 3d 30 3a 63 75  72 72 70 61 74 68 25 3d  |ip%=0:currpath%=|
000003b0  30 3a 77 69 70 65 68 61  6e 64 6c 65 25 3d 30 3a  |0:wipehandle%=0:|
000003c0  63 72 6e 74 25 3d 30 3a  63 6c 69 63 6f 6e 25 3d  |crnt%=0:clicon%=|
000003d0  30 3a 63 6c 6d 65 6e 75  25 3d a3 0d 00 f0 55 6e  |0:clmenu%=....Un|
000003e0  6f 66 74 79 70 65 73 25  3d 30 3a 65 78 69 74 25  |oftypes%=0:exit%|
000003f0  3d a3 3a 63 73 74 25 3d  30 3a 74 64 69 6d 25 3d  |=.:cst%=0:tdim%=|
00000400  30 3a 64 65 6c 68 61 6e  64 6c 65 25 3d 30 3a 74  |0:delhandle%=0:t|
00000410  64 69 6d 25 3d a3 3a 77  69 70 69 6e 67 25 3d a3  |dim%=.:wiping%=.|
00000420  3a 74 6f 6f 6d 61 6e 79  66 69 6c 65 73 25 3d a3  |:toomanyfiles%=.|
00000430  0d 00 fa 4f 4d 72 5f 43  72 65 6f 73 6f 74 65 25  |...OMr_Creosote%|
00000440  3d a3 3a 73 70 72 69 74  65 6d 65 6e 75 25 3d a3  |=.:spritemenu%=.|
00000450  3a 74 69 6d 65 66 6f 72  62 65 64 25 3d a3 3a 64  |:timeforbed%=.:d|
00000460  65 73 63 6f 6e 68 61 6e  64 6c 65 25 3d 30 3a 67  |esconhandle%=0:g|
00000470  65 74 65 6d 25 3d a3 3a  6d 6f 64 65 25 3d eb 0d  |etem%=.:mode%=..|
00000480  01 04 1f f2 62 69 63 79  63 6c 65 5f 72 65 70 61  |....bicycle_repa|
00000490  69 72 5f 6d 61 6e 3a f2  73 63 72 6e 78 79 0d 01  |ir_man:.scrnxy..|
000004a0  0e 3d 66 69 6c 65 25 3d  30 3a 66 6f 75 6e 64 6f  |.=file%=0:foundo|
000004b0  70 65 6e 25 3d 30 3a 66  6f 75 6e 64 25 3d 30 3a  |pen%=0:found%=0:|
000004c0  7a 61 70 70 61 25 3d 31  30 30 3a 74 70 6f 73 25  |zappa%=100:tpos%|
000004d0  3d 30 3a 71 75 65 72 79  25 3d 30 0d 01 18 0d f2  |=0:query%=0.....|
000004e0  64 6f 72 61 64 69 6f 73  0d 01 22 0f e7 20 62 61  |doradios..".. ba|
000004f0  64 62 69 6e 25 20 8c 0d  01 2c 24 20 20 f2 70 73  |dbin% ...,$  .ps|
00000500  28 4f 70 74 2c 31 32 2c  68 6f 6d 65 24 2b 22 2e  |(Opt,12,home$+".|
00000510  42 6c 61 63 6b 48 6f 6c  65 22 29 0d 01 36 24 20  |BlackHole")..6$ |
00000520  20 f2 70 73 28 51 75 65  72 79 2c 30 2c a4 6d 73  | .ps(Query,0,.ms|
00000530  67 28 22 62 62 73 22 2c  22 22 2c 22 22 29 29 0d  |g("bbs","","")).|
00000540  01 40 22 20 20 f2 73 61  76 6f 70 74 3a f2 67 65  |.@"  .savopt:.ge|
00000550  74 62 69 6e 28 30 29 3a  62 61 64 62 69 6e 25 3d  |tbin(0):badbin%=|
00000560  b9 0d 01 4a 05 cd 0d 01  54 2f e7 20 a4 65 6d 70  |...J....T/. .emp|
00000570  74 79 28 62 69 6e 24 29  20 74 65 24 3d 22 45 6d  |ty(bin$) te$="Em|
00000580  70 74 79 22 20 8b 20 74  65 24 3d 22 4f 63 63 75  |pty" . te$="Occu|
00000590  70 69 65 64 22 0d 01 5e  4c 68 6f 6c 65 25 3d a4  |pied"..^Lhole%=.|
000005a0  63 72 69 63 6f 6e 28 2d  35 2c 26 31 30 30 30 30  |cricon(-5,&10000|
000005b0  30 30 30 2c 2d 39 32 2c  31 36 30 2c 31 30 38 2c  |000,-92,160,108,|
000005c0  69 62 74 2c 69 62 73 2c  74 65 24 2c 22 73 21 62  |ibt,ibs,te$,"s!b|
000005d0  6c 61 63 6b 30 22 2c 26  31 37 30 30 33 31 32 42  |lack0",&1700312B|
000005e0  29 0d 01 68 2c f2 70 73  28 41 75 53 61 76 2c 39  |)..h,.ps(AuSav,9|
000005f0  2c 22 43 75 72 72 65 6e  74 20 3a 20 22 2b c3 28  |,"Current : "+.(|
00000600  63 75 72 72 70 61 74 68  25 2b 31 29 29 0d 01 72  |currpath%+1))..r|
00000610  22 f2 70 73 28 41 75 53  61 76 2c 31 30 2c 22 54  |".ps(AuSav,10,"T|
00000620  6f 74 61 6c 20 3a 20 22  2b c3 28 70 25 29 29 0d  |otal : "+.(p%)).|
00000630  01 7c 18 f2 70 73 28 4f  70 74 2c 31 38 2c 73 70  |.|..ps(Opt,18,sp|
00000640  72 69 74 65 73 24 29 0d  01 86 0a f2 65 64 75 72  |rites$).....edur|
00000650  65 0d 01 90 32 e3 20 6c  25 3d 30 20 b8 20 31 31  |e...2. l%=0 . 11|
00000660  3a 6d 65 6e 24 28 6c 25  29 3d a4 6d 73 67 28 22  |:men$(l%)=.msg("|
00000670  4d 45 4e 22 2b c3 28 6c  25 29 2c 22 22 2c 22 22  |MEN"+.(l%),"",""|
00000680  29 3a ed 0d 01 9a 35 e3  20 6c 25 3d 30 20 b8 20  |):....5. l%=0 . |
00000690  35 3a 73 74 65 78 74 24  28 6c 25 29 3d a4 6d 73  |5:stext$(l%)=.ms|
000006a0  67 28 22 73 74 65 78 74  22 2b c3 28 6c 25 29 2c  |g("stext"+.(l%),|
000006b0  22 22 2c 22 22 29 3a ed  0d 01 a4 0f f2 74 6f 64  |"",""):......tod|
000006c0  61 79 73 64 61 74 65 0d  01 ae 17 70 6f 6c 6c 6d  |aysdate....pollm|
000006d0  61 73 6b 25 3d a4 70 6f  6c 6c 6d 61 73 6b 0d 01  |ask%=.pollmask..|
000006e0  b8 68 6d 66 6f 6e 74 25  3d a4 66 69 6e 64 66 6f  |.hmfont%=.findfo|
000006f0  6e 74 28 a4 6d 73 67 28  22 6d 66 22 2c 22 22 2c  |nt(.msg("mf","",|
00000700  22 22 29 2c bb 28 a4 6d  73 67 28 22 6d 66 73 22  |""),.(.msg("mfs"|
00000710  2c 22 22 2c 22 22 29 29  2c bb 28 a4 6d 73 67 28  |,"","")),.(.msg(|
00000720  22 6d 66 68 22 2c 22 22  2c 22 22 29 29 2c 22 68  |"mfh","","")),"h|
00000730  6f 6d 65 72 74 6f 6e 2e  6d 65 64 69 75 6d 22 2c  |omerton.medium",|
00000740  31 33 2c 31 33 29 0d 01  c2 67 69 66 6f 6e 74 25  |13,13)...gifont%|
00000750  3d a4 66 69 6e 64 66 6f  6e 74 28 a4 6d 73 67 28  |=.findfont(.msg(|
00000760  22 69 66 22 2c 22 22 2c  22 22 29 2c bb 28 a4 6d  |"if","",""),.(.m|
00000770  73 67 28 22 69 66 73 22  2c 22 22 2c 22 22 29 29  |sg("ifs","",""))|
00000780  2c bb 28 a4 6d 73 67 28  22 69 66 68 22 2c 22 22  |,.(.msg("ifh",""|
00000790  2c 22 22 29 29 2c 22 74  72 69 6e 69 74 79 2e 6d  |,"")),"trinity.m|
000007a0  65 64 69 75 6d 22 2c 31  34 2c 31 34 29 0d 01 cc  |edium",14,14)...|
000007b0  13 54 69 6d 65 24 3d c1  91 24 2c 31 37 2c 35 29  |.Time$=..$,17,5)|
000007c0  0d 01 d6 4d e7 20 63 6c  6f 63 6b 25 20 63 6c 69  |...M. clock% cli|
000007d0  63 6f 6e 25 3d a4 63 72  69 63 6f 6e 28 2d 38 2c  |con%=.cricon(-8,|
000007e0  26 31 30 30 30 30 30 30  30 2c 2d 36 34 2c 31 30  |&10000000,-64,10|
000007f0  30 2c 35 32 2c 63 74 2c  62 6c 6f 63 6b 34 25 2c  |0,52,ct,block4%,|
00000800  54 69 6d 65 24 2c 22 22  2c a4 63 66 29 0d 01 e0  |Time$,"",.cf)...|
00000810  1e 70 74 69 6d 65 24 3d  22 78 22 3a 70 64 61 74  |.ptime$="x":pdat|
00000820  65 24 3d 22 48 61 6d 72  61 67 22 0d 01 ea 05 e1  |e$="Hamrag".....|
00000830  0d 01 f4 34 dd a4 66 69  6e 64 66 6f 6e 74 28 6e  |...4..findfont(n|
00000840  61 6d 65 24 2c 73 69 7a  65 25 2c 68 65 69 67 68  |ame$,size%,heigh|
00000850  74 25 2c 64 65 66 61 75  6c 74 24 2c 64 73 25 2c  |t%,default$,ds%,|
00000860  64 68 25 29 0d 01 fe 0b  ea 20 68 61 6e 64 25 0d  |dh%)..... hand%.|
00000870  02 08 07 ea 20 85 0d 02  12 32 ee 20 85 20 ea 20  |.... ....2. . . |
00000880  6e 61 6d 65 24 3d 64 65  66 61 75 6c 74 24 3a 73  |name$=default$:s|
00000890  69 7a 65 25 3d 64 73 25  3a 68 65 69 67 68 74 25  |ize%=ds%:height%|
000008a0  3d 64 68 25 3a f7 20 85  0d 02 1c 2f c8 99 26 34  |=dh%:. ..../..&4|
000008b0  30 30 38 31 2c 2c 6e 61  6d 65 24 2c 73 69 7a 65  |0081,,name$,size|
000008c0  25 2a 31 36 2c 68 65 69  67 68 74 25 2a 31 36 20  |%*16,height%*16 |
000008d0  b8 20 68 61 6e 64 25 0d  02 26 0a 3d 68 61 6e 64  |. hand%..&.=hand|
000008e0  25 0d 02 30 10 dd f2 74  6f 64 61 79 73 64 61 74  |%..0...todaysdat|
000008f0  65 0d 02 3a 20 ea 20 6d  6f 6e 74 68 24 2c 6e 25  |e..: . month$,n%|
00000900  2c 79 65 61 72 24 2c 6d  64 24 2c 6d 6f 6e 74 68  |,year$,md$,month|
00000910  25 0d 02 44 13 6d 6f 6e  74 68 24 3d c1 91 24 2c  |%..D.month$=..$,|
00000920  38 2c 33 29 0d 02 4e 23  74 6f 64 61 79 24 3d c1  |8,3)..N#today$=.|
00000930  91 24 2c 35 2c 32 29 3a  79 65 61 72 24 3d c1 91  |.$,5,2):year$=..|
00000940  24 2c 31 32 2c 34 29 0d  02 58 21 6d 6f 6e 74 68  |$,12,4)..X!month|
00000950  25 3d 28 a7 6d 6f 6e 74  68 73 24 2c 6d 6f 6e 74  |%=(.months$,mont|
00000960  68 24 29 20 81 20 33 29  0d 02 62 2d 74 6f 64 61  |h$) . 3)..b-toda|
00000970  79 25 3d 64 61 79 28 6d  6f 6e 74 68 25 29 2b bb  |y%=day(month%)+.|
00000980  28 74 6f 64 61 79 24 29  2b 33 36 35 2a bb 28 79  |(today$)+365*.(y|
00000990  65 61 72 24 29 0d 02 6c  13 6d 64 24 3d c3 28 6d  |ear$)..l.md$=.(m|
000009a0  6f 6e 74 68 25 2b 31 29  0d 02 76 19 e7 20 a9 20  |onth%+1)..v.. . |
000009b0  6d 64 24 3d 31 20 6d 64  24 3d 22 30 22 2b 6d 64  |md$=1 md$="0"+md|
000009c0  24 0d 02 80 1d 74 6f 64  61 79 24 2b 3d 22 5f 22  |$....today$+="_"|
000009d0  2b 6d 64 24 2b 22 5f 22  2b 79 65 61 72 24 0d 02  |+md$+"_"+year$..|
000009e0  8a 05 e1 0d 02 94 38 dd  a4 63 72 69 63 6f 6e 28  |......8..cricon(|
000009f0  68 61 6e 64 25 2c 78 25  2c 79 25 2c 77 25 2c 68  |hand%,x%,y%,w%,h|
00000a00  25 2c 74 70 74 72 25 2c  73 70 74 72 25 2c 74 24  |%,tptr%,sptr%,t$|
00000a10  2c 73 24 2c 66 6c 61 67  73 25 29 0d 02 9e 0b ea  |,s$,flags%).....|
00000a20  20 69 63 6f 6e 25 0d 02  a8 3c 21 62 6c 25 3d 68  | icon%...<!bl%=h|
00000a30  61 6e 64 25 3a 62 6c 25  21 34 3d 78 25 3a 62 6c  |and%:bl%!4=x%:bl|
00000a40  25 21 38 3d 2d 79 25 2d  68 25 3a 62 6c 25 21 31  |%!8=-y%-h%:bl%!1|
00000a50  32 3d 78 25 2b 77 25 3a  62 6c 25 21 31 36 3d 2d  |2=x%+w%:bl%!16=-|
00000a60  79 25 0d 02 b2 35 62 6c  25 21 32 30 3d 66 6c 61  |y%...5bl%!20=fla|
00000a70  67 73 25 3a 62 6c 25 21  32 34 3d 74 70 74 72 25  |gs%:bl%!24=tptr%|
00000a80  3a 62 6c 25 21 32 38 3d  73 70 74 72 25 3a 62 6c  |:bl%!28=sptr%:bl|
00000a90  25 21 33 32 3d 31 31 0d  02 bc 0d 24 73 70 74 72  |%!32=11....$sptr|
00000aa0  25 3d 73 24 0d 02 c6 0d  24 74 70 74 72 25 3d 74  |%=s$....$tptr%=t|
00000ab0  24 0d 02 d0 19 c8 99 26  34 30 30 43 32 2c 2c 62  |$......&400C2,,b|
00000ac0  6c 25 20 b8 20 69 63 6f  6e 25 0d 02 da 0a 3d 69  |l% . icon%....=i|
00000ad0  63 6f 6e 25 0d 02 e4 0e  dd f2 64 6f 72 61 64 69  |con%......doradi|
00000ae0  6f 73 0d 02 ee 0a ea 20  6f 66 66 25 0d 02 f8 29  |os..... off%...)|
00000af0  e7 20 28 77 69 70 65 6f  70 74 25 20 80 20 32 29  |. (wipeopt% . 2)|
00000b00  3d 32 20 6f 66 66 25 3d  30 20 8b 20 6f 66 66 25  |=2 off%=0 . off%|
00000b10  3d 68 69 67 68 0d 03 02  1c f2 73 65 6c 69 63 28  |=high.....selic(|
00000b20  4f 70 74 2c 31 36 2c 6f  66 66 25 2c 68 69 67 68  |Opt,16,off%,high|
00000b30  29 0d 03 0c 29 e7 20 28  77 69 70 65 6f 70 74 25  |)...). (wipeopt%|
00000b40  20 80 20 34 29 3d 34 20  6f 66 66 25 3d 30 20 8b  | . 4)=4 off%=0 .|
00000b50  20 6f 66 66 25 3d 68 69  67 68 0d 03 16 1b f2 73  | off%=high.....s|
00000b60  65 6c 69 63 28 4f 70 74  2c 31 2c 6f 66 66 25 2c  |elic(Opt,1,off%,|
00000b70  68 69 67 68 29 0d 03 20  29 e7 20 28 77 69 70 65  |high).. ). (wipe|
00000b80  6f 70 74 25 20 80 20 31  29 3d 31 20 6f 66 66 25  |opt% . 1)=1 off%|
00000b90  3d 30 20 8b 20 6f 66 66  25 3d 68 69 67 68 0d 03  |=0 . off%=high..|
00000ba0  2a 1b f2 73 65 6c 69 63  28 4f 70 74 2c 33 2c 6f  |*..selic(Opt,3,o|
00000bb0  66 66 25 2c 68 69 67 68  29 0d 03 34 20 e7 20 72  |ff%,high)..4 . r|
00000bc0  65 74 61 69 6e 25 20 6f  66 66 25 3d 30 20 8b 20  |etain% off%=0 . |
00000bd0  6f 66 66 25 3d 68 69 67  68 0d 03 3e 1b f2 73 65  |off%=high..>..se|
00000be0  6c 69 63 28 4f 70 74 2c  34 2c 6f 66 66 25 2c 68  |lic(Opt,4,off%,h|
00000bf0  69 67 68 29 0d 03 48 20  e7 20 73 70 69 6e 6f 6e  |igh)..H . spinon|
00000c00  25 20 6f 66 66 25 3d 30  20 8b 20 6f 66 66 25 3d  |% off%=0 . off%=|
00000c10  68 69 67 68 0d 03 52 1c  f2 73 65 6c 69 63 28 4f  |high..R..selic(O|
00000c20  70 74 2c 31 34 2c 6f 66  66 25 2c 68 69 67 68 29  |pt,14,off%,high)|
00000c30  0d 03 5c 1e e7 20 6f 70  65 6e 25 20 6f 66 66 25  |..\.. open% off%|
00000c40  3d 30 20 8b 20 6f 66 66  25 3d 68 69 67 68 0d 03  |=0 . off%=high..|
00000c50  66 1e f2 73 65 6c 69 63  28 41 75 53 61 76 2c 31  |f..selic(AuSav,1|
00000c60  33 2c 6f 66 66 25 2c 68  69 67 68 29 0d 03 70 1f  |3,off%,high)..p.|
00000c70  e7 20 73 63 6f 6e 66 25  20 6f 66 66 25 3d 68 69  |. sconf% off%=hi|
00000c80  67 68 20 8b 20 6f 66 66  25 3d 30 0d 03 7a 1e f2  |gh . off%=0..z..|
00000c90  73 65 6c 69 63 28 41 75  53 61 76 2c 31 32 2c 6f  |selic(AuSav,12,o|
00000ca0  66 66 25 2c 68 69 67 68  29 0d 03 84 22 e7 20 61  |ff%,high)...". a|
00000cb0  75 74 6f 77 69 70 65 25  20 6f 66 66 25 3d 30 20  |utowipe% off%=0 |
00000cc0  8b 20 6f 66 66 25 3d 68  69 67 68 0d 03 8e 1b f2  |. off%=high.....|
00000cd0  73 65 6c 69 63 28 4f 70  74 2c 38 2c 6f 66 66 25  |selic(Opt,8,off%|
00000ce0  2c 68 69 67 68 29 0d 03  98 23 e7 20 73 74 72 75  |,high)...#. stru|
00000cf0  63 74 75 72 65 25 20 6f  66 66 25 3d 30 20 8b 20  |cture% off%=0 . |
00000d00  6f 66 66 25 3d 68 69 67  68 0d 03 a2 1c f2 73 65  |off%=high.....se|
00000d10  6c 69 63 28 4f 70 74 2c  32 30 2c 6f 66 66 25 2c  |lic(Opt,20,off%,|
00000d20  68 69 67 68 29 0d 03 ac  1f e7 20 63 6c 6f 63 6b  |high)..... clock|
00000d30  25 20 6f 66 66 25 3d 30  20 8b 20 6f 66 66 25 3d  |% off%=0 . off%=|
00000d40  68 69 67 68 0d 03 b6 1b  f2 73 65 6c 69 63 28 4f  |high.....selic(O|
00000d50  70 74 2c 39 2c 6f 66 66  25 2c 68 69 67 68 29 0d  |pt,9,off%,high).|
00000d60  03 c0 22 e7 20 75 73 65  66 6f 6e 74 73 25 20 6f  |..". usefonts% o|
00000d70  66 66 25 3d 30 20 8b 20  6f 66 66 25 3d 68 69 67  |ff%=0 . off%=hig|
00000d80  68 0d 03 ca 1c f2 73 65  6c 69 63 28 4f 70 74 2c  |h.....selic(Opt,|
00000d90  32 31 2c 6f 66 66 25 2c  68 69 67 68 29 0d 03 d4  |21,off%,high)...|
00000da0  2d f2 70 73 28 4f 70 74  2c 31 31 2c c3 28 61 75  |-.ps(Opt,11,.(au|
00000db0  74 6f 64 61 79 73 25 29  29 3a f2 70 73 28 4f 70  |todays%)):.ps(Op|
00000dc0  74 2c 31 32 2c 62 69 6e  24 29 0d 03 de 3f f2 70  |t,12,bin$)...?.p|
00000dd0  73 28 4d 61 76 69 73 2c  31 39 2c 22 30 20 66 69  |s(Mavis,19,"0 fi|
00000de0  6c 65 73 20 66 6f 75 6e  64 22 29 3a f2 70 73 28  |les found"):.ps(|
00000df0  4d 61 76 69 73 2c 31 38  2c 22 30 20 62 79 74 65  |Mavis,18,"0 byte|
00000e00  73 20 74 6f 74 61 6c 22  29 0d 03 e8 0e f2 67 65  |s total").....ge|
00000e10  74 62 69 6e 28 30 29 0d  03 f2 05 e1 0d 03 fc 18  |tbin(0).........|
00000e20  dd f2 62 69 63 79 63 6c  65 5f 72 65 70 61 69 72  |..bicycle_repair|
00000e30  5f 6d 61 6e 0d 04 06 07  ea 20 85 0d 04 10 1d ee  |_man..... ......|
00000e40  20 85 20 ea 20 85 30 2c  a4 6d 73 67 28 22 6e 74  | . . .0,.msg("nt|
00000e50  22 2c 22 22 2c 22 22 29  0d 04 1a 20 c8 99 26 34  |","","")... ..&4|
00000e60  30 30 44 39 2c 2c 68 6f  6d 65 24 2b 22 2e 54 65  |00D9,,home$+".Te|
00000e70  6d 70 6c 61 74 65 73 22  0d 04 24 33 c8 99 26 34  |mplates"..$3..&4|
00000e80  30 30 44 42 2c 2c 62 6c  25 2c 49 6e 64 54 65 78  |00DB,,bl%,IndTex|
00000e90  74 25 2c 49 6e 64 54 65  78 74 25 2b 31 31 32 2c  |t%,IndText%+112,|
00000ea0  2d 31 2c 22 49 6e 66 6f  22 2c 30 0d 04 2e 18 c8  |-1,"Info",0.....|
00000eb0  99 26 34 30 30 43 31 2c  2c 62 6c 25 20 b8 20 49  |.&400C1,,bl% . I|
00000ec0  6e 66 6f 0d 04 38 3b c8  99 26 34 30 30 44 42 2c  |nfo..8;..&400DB,|
00000ed0  2c 62 6c 25 2c 49 6e 64  54 65 78 74 25 2b 31 31  |,bl%,IndText%+11|
00000ee0  36 2c 49 6e 64 54 65 78  74 25 2b 31 30 31 32 2c  |6,IndText%+1012,|
00000ef0  2d 31 2c 22 4f 70 74 69  6f 6e 73 22 2c 30 0d 04  |-1,"Options",0..|
00000f00  42 17 c8 99 26 34 30 30  43 31 2c 2c 62 6c 25 20  |B...&400C1,,bl% |
00000f10  b8 20 4f 70 74 0d 04 4c  3d c8 99 26 34 30 30 44  |. Opt..L=..&400D|
00000f20  42 2c 2c 62 6c 25 2c 49  6e 64 54 65 78 74 25 2b  |B,,bl%,IndText%+|
00000f30  31 30 31 36 2c 49 6e 64  54 65 78 74 25 2b 31 37  |1016,IndText%+17|
00000f40  30 32 2c 2d 31 2c 22 41  75 74 6f 73 61 76 65 22  |02,-1,"Autosave"|
00000f50  2c 30 0d 04 56 19 c8 99  26 34 30 30 43 31 2c 2c  |,0..V...&400C1,,|
00000f60  62 6c 25 20 b8 20 41 75  53 61 76 0d 04 60 3d c8  |bl% . AuSav..`=.|
00000f70  99 26 34 30 30 44 42 2c  2c 62 6c 25 2c 49 6e 64  |.&400DB,,bl%,Ind|
00000f80  54 65 78 74 25 2b 31 37  30 36 2c 49 6e 64 54 65  |Text%+1706,IndTe|
00000f90  78 74 25 2b 32 36 31 32  2c 2d 31 2c 22 46 69 6c  |xt%+2612,-1,"Fil|
00000fa0  65 46 69 6e 64 22 2c 30  0d 04 6a 19 c8 99 26 34  |eFind",0..j...&4|
00000fb0  30 30 43 31 2c 2c 62 6c  25 20 b8 20 4d 61 76 69  |00C1,,bl% . Mavi|
00000fc0  73 0d 04 74 3a c8 99 26  34 30 30 44 42 2c 2c 62  |s..t:..&400DB,,b|
00000fd0  6c 25 2c 49 6e 64 54 65  78 74 25 2b 32 36 31 36  |l%,IndText%+2616|
00000fe0  2c 49 6e 64 54 65 78 74  25 2b 32 36 36 34 2c 2d  |,IndText%+2664,-|
00000ff0  31 2c 22 46 6f 75 6e 64  22 2c 30 0d 04 7e 19 c8  |1,"Found",0..~..|
00001000  99 26 34 30 30 43 31 2c  2c 62 6c 25 20 b8 20 46  |.&400C1,,bl% . F|
00001010  6f 75 6e 64 0d 04 88 3a  c8 99 26 34 30 30 44 42  |ound...:..&400DB|
00001020  2c 2c 62 6c 25 2c 49 6e  64 54 65 78 74 25 2b 32  |,,bl%,IndText%+2|
00001030  36 36 38 2c 49 6e 64 54  65 78 74 25 2b 33 30 32  |668,IndText%+302|
00001040  34 2c 2d 31 2c 22 51 75  65 72 79 22 2c 30 0d 04  |4,-1,"Query",0..|
00001050  92 19 c8 99 26 34 30 30  43 31 2c 2c 62 6c 25 20  |....&400C1,,bl% |
00001060  b8 20 51 75 65 72 79 0d  04 9c 0c c8 99 26 34 30  |. Query......&40|
00001070  30 44 41 0d 04 a6 45 66  69 6c 65 69 63 6f 6e 25  |0DA...Efileicon%|
00001080  3d a4 63 72 69 63 6f 6e  28 41 75 53 61 76 2c 32  |=.cricon(AuSav,2|
00001090  39 32 2c 35 32 2c 31 32  38 2c 31 30 34 2c 73 70  |92,52,128,104,sp|
000010a0  73 25 2c 73 70 74 25 2c  22 22 2c 22 22 2c 26 31  |s%,spt%,"","",&1|
000010b0  37 30 30 33 31 32 42 29  0d 04 b0 42 66 66 69 63  |700312B)...Bffic|
000010c0  6f 6e 25 3d a4 63 72 69  63 6f 6e 28 4d 61 76 69  |on%=.cricon(Mavi|
000010d0  73 2c 36 39 34 2c 33 33  36 2c 38 30 2c 37 32 2c  |s,694,336,80,72,|
000010e0  66 66 74 25 2c 66 66 73  25 2c 22 22 2c 22 22 2c  |fft%,ffs%,"","",|
000010f0  26 31 37 30 30 33 31 32  42 29 0d 04 ba 3f e7 20  |&1700312B)...?. |
00001100  73 70 69 6e 6f 6e 25 3d  a3 20 f2 70 73 28 49 6e  |spinon%=. .ps(In|
00001110  66 6f 2c 31 2c a4 6d 73  67 28 22 66 77 65 22 2c  |fo,1,.msg("fwe",|
00001120  22 22 2c 22 22 29 29 20  8b 20 f2 70 73 28 49 6e  |"","")) . .ps(In|
00001130  66 6f 2c 31 2c 22 20 22  29 0d 04 c4 12 f2 70 73  |fo,1," ").....ps|
00001140  28 49 6e 66 6f 2c 32 2c  76 24 29 0d 04 ce 05 e1  |(Info,2,v$).....|
00001150  0d 04 d8 13 dd f2 68 6f  72 61 63 65 28 6e 61 6d  |......horace(nam|
00001160  65 24 29 0d 04 e2 07 ea  20 85 0d 04 ec 37 ee 20  |e$)..... ....7. |
00001170  85 20 ea 20 85 30 2c 22  45 72 72 6f 72 20 77 68  |. . .0,"Error wh|
00001180  65 6e 20 6c 6f 61 64 69  6e 67 20 4d 65 73 73 61  |en loading Messa|
00001190  67 65 73 20 66 69 6c 65  2e 20 53 6f 72 72 79 2e  |ges file. Sorry.|
000011a0  22 0d 04 f6 13 c8 99 26  34 31 35 30 30 2c 2c 6e  |"......&41500,,n|
000011b0  61 6d 65 24 0d 05 00 24  c8 99 26 31 45 2c 36 2c  |ame$...$..&1E,6,|
000011c0  2c 2c 31 37 2b a9 28 6e  61 6d 65 24 29 20 b8 20  |,,17+.(name$) . |
000011d0  2c 2c 6d 73 70 74 72 25  0d 05 0a 16 24 28 6d 73  |,,msptr%....$(ms|
000011e0  70 74 72 25 2b 31 36 29  3d 6e 61 6d 65 24 0d 05  |ptr%+16)=name$..|
000011f0  14 1d c8 99 26 34 31 35  30 31 2c 6d 73 70 74 72  |....&41501,msptr|
00001200  25 2c 6d 73 70 74 72 25  2b 31 36 0d 05 1e 05 e1  |%,msptr%+16.....|
00001210  0d 05 28 18 dd f2 70 61  72 72 6f 74 28 75 73 65  |..(...parrot(use|
00001220  25 2c 78 25 2c 79 25 29  0d 05 32 44 ea 6e 25 2c  |%,x%,y%)..2D.n%,|
00001230  61 64 64 72 25 2c 6c 25  2c 74 65 6d 70 24 2c 63  |addr%,l%,temp$,c|
00001240  6f 75 6e 74 25 2c 61 64  64 72 25 2c 77 69 70 25  |ount%,addr%,wip%|
00001250  2c 64 61 79 25 2c 6d 6f  6e 74 68 25 2c 79 65 61  |,day%,month%,yea|
00001260  72 25 2c 70 6f 6f 25 2c  6d 65 6d 25 0d 05 3c 1e  |r%,poo%,mem%..<.|
00001270  6d 65 6d 25 3d a4 64 69  6d 28 33 30 30 30 29 3a  |mem%=.dim(3000):|
00001280  e7 20 6d 65 6d 25 3d 30  20 e1 0d 05 46 15 77 69  |. mem%=0 ...F.wi|
00001290  70 25 3d 30 3a 74 65 6d  70 24 3d 62 69 6e 24 0d  |p%=0:temp$=bin$.|
000012a0  05 50 17 63 6f 75 6e 74  25 3d 30 3a 61 64 64 72  |.P.count%=0:addr|
000012b0  25 3d 6d 65 6d 25 0d 05  5a 2a c8 99 26 43 2c 39  |%=mem%..Z*..&C,9|
000012c0  2c 74 65 6d 70 24 2c 6d  65 6d 25 2c 37 37 2c 30  |,temp$,mem%,77,0|
000012d0  2c 33 30 30 30 2c 30 20  b8 20 2c 2c 2c 6e 6f 25  |,3000,0 . ,,,no%|
000012e0  0d 05 64 11 c8 95 20 63  6f 75 6e 74 25 3c 6e 6f  |..d... count%<no|
000012f0  25 0d 05 6e 18 20 20 74  65 6d 70 32 24 3d a4 62  |%..n.  temp2$=.b|
00001300  75 6d 28 61 64 64 72 25  29 0d 05 78 18 20 20 64  |um(addr%)..x.  d|
00001310  61 79 25 3d bb 28 c0 74  65 6d 70 32 24 2c 32 29  |ay%=.(.temp2$,2)|
00001320  29 0d 05 82 20 20 20 6d  6f 6e 74 68 25 3d 28 bb  |)...   month%=(.|
00001330  28 c1 74 65 6d 70 32 24  2c 34 2c 32 29 29 29 2d  |(.temp2$,4,2)))-|
00001340  31 0d 05 8c 19 20 20 79  65 61 72 25 3d bb 28 c2  |1....  year%=.(.|
00001350  74 65 6d 70 32 24 2c 34  29 29 0d 05 96 25 20 20  |temp2$,4))...%  |
00001360  70 6f 6f 25 3d 64 61 79  28 6d 6f 6e 74 68 25 29  |poo%=day(month%)|
00001370  2b 64 61 79 25 2b 33 36  35 2a 79 65 61 72 25 0d  |+day%+365*year%.|
00001380  05 a0 0f 20 20 c8 8e 20  75 73 65 25 20 ca 0d 05  |...  .. use% ...|
00001390  aa 0b 20 20 20 20 c9 20  30 0d 05 b4 47 20 20 20  |..    . 0...G   |
000013a0  20 20 20 e7 20 74 6f 64  61 79 25 2d 70 6f 6f 25  |   . today%-poo%|
000013b0  3e 3d 61 75 74 6f 64 61  79 73 25 20 ff 28 22 57  |>=autodays% .("W|
000013c0  69 70 65 20 22 2b 62 69  6e 24 2b 22 2e 22 2b 74  |ipe "+bin$+"."+t|
000013d0  65 6d 70 32 24 2b 22 20  7e 43 7e 56 46 52 22 29  |emp2$+" ~C~VFR")|
000013e0  0d 05 be 0b 20 20 20 20  c9 20 31 0d 05 c8 3d 20  |....    . 1...= |
000013f0  20 20 20 20 20 ff 28 22  46 69 6c 65 72 5f 4f 70  |     .("Filer_Op|
00001400  65 6e 44 69 72 20 22 2b  62 69 6e 24 2b 22 2e 22  |enDir "+bin$+"."|
00001410  2b 74 65 6d 70 32 24 2b  22 20 22 2b c3 78 25 2b  |+temp2$+" "+.x%+|
00001420  22 20 22 2b c3 79 25 29  0d 05 d2 17 20 20 20 20  |" "+.y%)....    |
00001430  20 20 78 25 2b 3d 33 32  3a 79 25 2d 3d 34 38 0d  |  x%+=32:y%-=48.|
00001440  05 dc 07 20 20 cb 0d 05  e6 0f 20 20 63 6f 75 6e  |...  .....  coun|
00001450  74 25 2b 3d 31 0d 05 f0  05 ce 0d 05 fa 14 c8 99  |t%+=1...........|
00001460  26 32 30 30 31 45 2c 37  2c 2c 6d 65 6d 25 0d 06  |&2001E,7,,mem%..|
00001470  04 0d f2 69 62 61 72 28  22 22 29 0d 06 0e 05 e1  |...ibar("").....|
00001480  0d 06 18 0c dd f2 73 61  76 6f 70 74 0d 06 22 0a  |......savopt..".|
00001490  ea 73 25 2c 61 25 0d 06  2c 0e f2 67 65 74 62 69  |.s%,a%..,..getbi|
000014a0  6e 28 30 29 0d 06 36 0f  e7 20 62 61 64 62 69 6e  |n(0)..6.. badbin|
000014b0  25 20 e1 0d 06 40 19 79  3d ae 28 68 6f 6d 65 24  |% ...@.y=.(home$|
000014c0  2b 22 2e 4f 70 74 69 6f  6e 73 22 29 0d 06 4a 1a  |+".Options")..J.|
000014d0  61 25 3d bb 28 24 28 a4  6c 75 73 74 28 4f 70 74  |a%=.($(.lust(Opt|
000014e0  2c 31 31 29 29 29 0d 06  54 19 d5 23 79 2c 62 69  |,11)))..T..#y,bi|
000014f0  6e 24 3a d5 23 79 2c 73  70 72 69 74 65 73 24 0d  |n$:.#y,sprites$.|
00001500  06 5e 49 f1 23 79 2c 77  69 70 65 6f 70 74 25 2c  |.^I.#y,wipeopt%,|
00001510  73 70 69 6e 6f 6e 25 2c  72 65 74 61 69 6e 25 2c  |spinon%,retain%,|
00001520  61 75 74 6f 77 69 70 65  25 2c 61 25 2c 73 74 72  |autowipe%,a%,str|
00001530  75 63 74 75 72 65 25 2c  63 6c 6f 63 6b 25 2c 75  |ucture%,clock%,u|
00001540  73 65 66 6f 6e 74 73 25  0d 06 68 07 d9 23 79 0d  |sefonts%..h..#y.|
00001550  06 72 05 e1 0d ff                                 |.r....|
00001556