� >!RunImage
� RunImage for !DeskUtils
� (c) Archimedes World
+� Version 1.00 (c) 10/02/91 Matt Humble
2:
<� block% &400
F� � �error
Pș "Hourglass_On"
Z�initialise
d2ș "Wimp_Initialise",200,&4B534154,"DeskUtils"
n%ș "OS_ReadMonotonicTime" � time%
x�updateclock
��installicon
��loadtemplates
�ș "Hourglass_Off"
�
quit% = �
�time%+=100
��
�	�poll
�� quit%
�ș "Wimp_CloseDown"
��
�:
�� �initialise
�8� mblock% &400,iblock% &400,ublock% &400,filen% &400

=� moblock% &124,mpblock% &124,mmblock% &100,mcblock% &316

8� mublock% &400,mwblock% &124,wordb% 256,tfblock% 20

4� tdblock% 20,wblock% &400,tblock% 6,tsblock% 40

"3� tbuff% 12,sbuff% 12,tblock% &400,dblock% &400

,3� itype1% 100,itype2% 100,iload% 100,iexec% 100

6/� ilen% 100,idate% 100,itime% 100,path% 256

@3� stype1% 100,stype2% 100,sload% 100,sexec% 100

J.� name% 256,iname% 26,stblock% 6,file% 256

T%� ttype% 256,file% 256,file2% 256

^,� copyopts%(11):copyopts$="ACDFLNPQRSTV"

h$� countopts%(2):countopts$="CRV"

r#� wipeopts%(3):wipeopts$="CFRV"

|.countopts%()=0:copyopts%()=0:wipeopts%()=0

�$tfblock%="%24:%MI:%SE%0"

� $tdblock%="%DY-%M3-%CE%YR%0"

�$sbuff%="s!deskutils"

�init%=�:iconh%=0:adjust%=�

��

�:

�� �installicon

�!iblock%=-1

�iblock%!4=0:iblock%!8=-16

� iblock%!12=130:iblock%!16=84

�iblock%!20=&1700610B

�iblock%!24=tbuff%

�iblock%!28=sbuff%
iblock%!32=12
*ș "Wimp_CreateIcon",,iblock% � iconh%
init%=�
&�
0:
:� �loadtemplates
D� P% &800,Q% &800,R% &800
Nmaxws%=&400
X2� indir1% maxws%,indir2% maxws%,indir3% maxws%
b'$filen%="<DeskUtils$Dir>.Templates"
l"ș "Wimp_OpenTemplate",,filen%
vEș "Wimp_LoadTemplate",,P%,indir1%,indir1%+maxws%,-1,"fileinfo",0
�Aș "Wimp_LoadTemplate",,Q%,indir3%,indir3%+maxws%,-1,"info",0
�Dș "Wimp_LoadTemplate",,R%,indir2%,indir2%+maxws%,-1,"settype",0
�
�indirect
�(ș "Wimp_CreateWindow",,P% � finfoh%
�'ș "Wimp_CreateWindow",,Q% � infoh%
�'ș "Wimp_CreateWindow",,R% � setth%
�ș "Wimp_CloseTemplate"
��
�:
�� �poll
�0ș "Wimp_PollIdle",0,ublock%,time% � reason%
�Ȏ (reason%) �
�� 0:�updateclock
%� 2:ș "Wimp_OpenWindow",,ublock%
&� 3:ș "Wimp_CloseWindow",,ublock%
� 6:�handle_button(ublock%)
 � 7:�enddrag
*� 8:�processkey
4� 9:�menuselect
>"� 17,18:�recieve_mess(ublock%)
H�
R�
\:
f� �updateclock
p(ș "OS_ReadMonotonicTime" � newtime%
zȕ (newtime%-time%)>0
�time%+=100
��
�?tblock%=3
�ș "OS_Word",14,tblock%
�<ș "XOS_ConvertDateAndTime",tblock%,tsblock%,40,tfblock%
�$tbuff%=$tsblock%
�!wordb%=-1:wordb%!4=iconh%
�wordb%!8=0:wordb%!12=0
�*� init% ș "Wimp_SetIconState",,wordb%
��
�:
�� �handle_button(ublock%)
�Ȏ (ublock%!8) �
8� 2:� (ublock%!12)=-2 mpos%=!ublock%-60:�handle_menu
� 4:Ȏ (ublock%!12) �
� -2:file$="":�basic
$� finfoh%:�checkicon
.�
8� 16:�drag
B�
L�
V:
`� �menuselect
j%ș "Wimp_GetPointerInfo",,dblock%
t!� ((dblock%!8) � 1) adjust%=�
~Ȏ (!ublock%) �
�)� 0:ș "Wimp_SetMode",124+(ublock%!4)
�� 1:�mousestep
�� 2:�options
�� 3:�showsettype
�� 5:quit%=�
��
�� adjust% �handle_menu
�
adjust%=�
��
�:
�� �mousestep
�step%=(ublock%!4)+1

?wordb%=2

wordb%?1=step%
wordb%?2=step%
ș "OS_Word",21,wordb%
(�
2:
<� �handle_menu
F�getopts
P$mblock%="DeskUtils"
Zmblock%!12=&00070207
d-mblock%!16=174:mblock%!20=44:mblock%!24=0
n%mblock%!28=&0:mblock%!32=moblock%
xmblock%!36=&07019031
�$(mblock%+40)="Overscan"
�%mblock%!52=&0:mblock%!56=mmblock%
�mblock%!60=&07019031
�$(mblock%+64)="Mouse step"
�%mblock%!76=&0:mblock%!80=mpblock%
�mblock%!84=&07019031
�$(mblock%+88)="Options"
�!mblock%!100=&0:mblock%!104=-1
�mblock%!108=&07019031
�$(mblock%+112)="Set type"
�%mblock%!124=&0:mblock%!128=infoh%
�mblock%!132=&07019031
�$(mblock%+136)="Info"
"mblock%!148=&80:mblock%!152=-1
mblock%!156=&07019031
$(mblock%+160)="Quit"
":
,$moblock%="Overscan"
6moblock%!12=&00070207
@0moblock%!16=120:moblock%!20=44:moblock%!24=0
J!moblock%!28=&0:moblock%!32=-1
Tmoblock%!36=&07019031
^$(moblock%+40)="8"
h!moblock%!52=&0:moblock%!56=-1
rmoblock%!60=&07019031
|$(moblock%+64)="12"
�!moblock%!76=&0:moblock%!80=-1
�moblock%!84=&07019031
�$(moblock%+88)="15"
�$moblock%!100=&80:moblock%!104=-1
�moblock%!108=&07019031
�$(moblock%+112)="16"
�:
�$mmblock%="Mouse step"
�mmblock%!12=&00070207
�0mmblock%!16=130:mmblock%!20=44:mmblock%!24=0
�!mmblock%!28=&0:mmblock%!32=-1
�mmblock%!36=&07019031
�$(mmblock%+40)="1"
!mmblock%!52=&0:mmblock%!56=-1
mmblock%!60=&07019031
$(mmblock%+64)="2"
&!mmblock%!76=&0:mmblock%!80=-1
0mmblock%!84=&07019031
:$(mmblock%+88)="3"
D$mmblock%!100=&80:mmblock%!104=-1
Nmmblock%!108=&07019031
X$(mmblock%+112)="4"
b:
l$mpblock%="Options"
vmpblock%!12=&00070207
�0mpblock%!16=100:mpblock%!20=44:mpblock%!24=0
�'mpblock%!28=&0:mpblock%!32=mcblock%
�mpblock%!36=&07019031
�$(mpblock%+40)="Copy"
�'mpblock%!52=&0:mpblock%!56=mublock%
�mpblock%!60=&07019031
�$(mpblock%+64)="Count"
�(mpblock%!76=&80:mpblock%!80=mwblock%
�mpblock%!84=&07019031
�$(mpblock%+88)="Wipe"
�:
�$mublock%="Count"
�mublock%!12=&00070207
0mublock%!16=128:mublock%!20=44:mublock%!24=0
 mublock%!28=�(countopts%(0))
(mublock%!32=-1:mublock%!36=&07019031
 $(mublock%+40)="Confirm"
* mublock%!52=�(countopts%(1))
4(mublock%!56=-1:mublock%!60=&07019031
>$(mublock%+64)="Recurse"
H$mublock%!76=&80+�(countopts%(2))
R(mublock%!80=-1:mublock%!84=&07019031
\$(mublock%+88)="Verbose"
f:
p$mwblock%="Wipe"
zmwblock%!12=&00070207
�0mwblock%!16=130:mwblock%!20=44:mwblock%!24=0
�mwblock%!28=�(wipeopts%(0))
�(mwblock%!32=-1:mwblock%!36=&07019031
�$(mwblock%+40)="Confirm"
�mwblock%!52=�(wipeopts%(1))
�(mwblock%!56=-1:mwblock%!60=&07019031
�$(mwblock%+64)="Force"
�mwblock%!76=�(wipeopts%(2))
�(mwblock%!80=-1:mwblock%!84=&07019031
�$(mwblock%+88)="Recurse"
�$mwblock%!100=&80+�(wipeopts%(3))
�*mwblock%!104=-1:mwblock%!108=&07019031
�$(mwblock%+112)="Verbose"
	:
	$mcblock%="Copy"
	mcblock%!12=&00070207
	$0mcblock%!16=156:mcblock%!20=44:mcblock%!24=0
	.mcblock%!28=�(copyopts%(0))
	8(mcblock%!32=-1:mcblock%!36=&07019031
	B$(mcblock%+40)="Access"
	Lmcblock%!52=�(copyopts%(1))
	V(mcblock%!56=-1:mcblock%!60=&07019031
	`$(mcblock%+64)="Confirm"
	jmcblock%!76=�(copyopts%(2))
	t(mcblock%!80=-1:mcblock%!84=&07019031
	~$(mcblock%+88)="Delete"
	� mcblock%!100=�(copyopts%(3))
	�*mcblock%!104=-1:mcblock%!108=&07019031
	�$(mcblock%+112)="Force"
	� mcblock%!124=�(copyopts%(4))
	�*mcblock%!128=-1:mcblock%!132=&07019031
	�$(mcblock%+136)="Look"
	� mcblock%!148=�(copyopts%(5))
	�*mcblock%!152=-1:mcblock%!156=&07019031
	�$(mcblock%+160)="Newer"
	� mcblock%!172=�(copyopts%(6))
	�*mcblock%!176=-1:mcblock%!180=&07019031
	�$(mcblock%+184)="Prompt"
 mcblock%!196=�(copyopts%(7))

*mcblock%!200=-1:mcblock%!204=&07019031
$(mcblock%+208)="!Quick!"
 mcblock%!220=�(copyopts%(8))
(*mcblock%!224=-1:mcblock%!228=&07019031
2$(mcblock%+232)="Recurse"
< mcblock%!244=�(copyopts%(9))
F*mcblock%!248=-1:mcblock%!252=&07019031
P$(mcblock%+256)="Stamp"
Z!mcblock%!268=�(copyopts%(10))
d*mcblock%!272=-1:mcblock%!276=&07019031
n$(mcblock%+280)="Structure"
x%mcblock%!292=&80+�(copyopts%(11))
�*mcblock%!296=-1:mcblock%!300=&07019031
�$(mcblock%+304)="Verbose"
�+ș "Wimp_CreateMenu",,mblock%,mpos%,360
��
�:
�� �recieve_mess(ublock%)
�Ȏ (ublock%!16) �
�� 0:quit%=�
�� 2:�dsack
�&� 3:�dataload(�string(ublock%+44))
��
��
�:
� �dataload(file$)
$file%=file$
� �(-62) �info:�
"� �(-90) � "Wipe "+file$:�
,Ȏ (ublock%!20) �
6� finfoh%:�info
@� setth%:�settype
J:�basic
T�
^�
h:
r� �basic
|
*FX 225 1
�� � �(-1) �
�*SET Key$Store <Key$0>
�%*KEY 0 *KEY 0 <Key$Store>|MEDIT|M
�*FX 138 0 128
��
�5*KEY 4 <0><&94>SYS"Wimp_CommandWindow",-1|MQUIT|M
�� file$<>"" �
�
�pathname
�� "Dir "+path$
�file$=" -load "+file$
��
��("WimpTask Basic"+file$)
��
:
� �pathname

newpos%=1
&�
0oldpos%=newpos%
:!newpos%=�file$,".",oldpos%)+1
D� newpos%=1
N endpos%=�(file$)-(oldpos%-1)
X1path$=�file$,oldpos%-2):name$=�file$,endpos%)
b�
l:
v� �string(ptr%)
�� S$:S$=""
�ȕ ?ptr%:S$+=�(?ptr%)
�ptr%+=1:�:=S$
�:
�� �error
�ș "Wimp_DragBox",,0
�
!block%=�
�7$(block%+4)="(Internal error code "+�(�)+") "+�$+�0
�/ș "Wimp_ReportError",block%,1,"!DeskUtils"
��
��
�:
�� �drag

!dblock%=0

dblock%!4=5

dblock%!8=(!ublock%)-32

 dblock%!12=(ublock%!4)-32

*dblock%!16=(!ublock%)+32

4dblock%!20=(ublock%!4)+32

>dblock%!24=0

Hdblock%!28=0

Rdblock%!32=&FFF

\dblock%!36=&FFF

fș "Wimp_DragBox",,dblock%

p�

z:

�� �enddrag

�%ș "Wimp_GetPointerInfo",,dblock%

�� dblock%!12<0 �

�4!tblock%=48:tblock%!4=0:tblock%!8=0:tblock%!12=0

�<tblock%!16=1:tblock%!20=dblock%!12:tblock%!24=dblock%!16

�,tblock%!28=!dblock%:tblock%!32=dblock%!4

�*tblock%!36=0:tblock%!40=0:tblock%?44=0

�/ș "Wimp_SendMessage",18,tblock%,dblock%!12

��

�:

�� �dsack

�� ublock%!36=-1 �

�name$=�string(ublock%+44)
name$=�name$,�(name$)-1)
� "DIR "+name$
�
$:
.� �indirect
8P%!72=iname%
BP%!140=itype1%
LP%!172=itype2%
VP%!236=iload%
`P%!300=iexec%
jP%!364=ilen%
tP%!428=idate%
~P%!492=itime%
�:
�R%!140=stype1%
�R%!172=stype2%
�R%!236=sload%
�R%!300=sexec%
��
�:
�� �info
�
�pathname
�!$path%=path$+".":$name%=name$
�$file2%=file$
�@ș "OS_File",13,name%,,,path% � obj%,,load%,exec%,len%,attr%
� obj%<>1 �

%� (load% � &FFF00000)=&FFF00000 �
type%=(load% � &FFF00)>>8
stblock%?4=load% � &FF
(!stblock%=exec%
2;ș "XOS_ConvertDateAndTime",stblock%,idate%,18,tdblock%
<;ș "XOS_ConvertDateAndTime",stblock%,itime%,12,tfblock%
F$itype1%=�~type%
P-ș "OS_FSControl",18,,type% � ,,tn1%,tn2%
Z-!itype2%=tn1%:itype2%!4=tn2%:itype2%?8=13
d$iexec%=""
n$iload%=""
xstamp%=�
��
�$itype1%="":$itype2%=""
�$itime%="":$idate%=""
�$iexec%=�~exec%
�$iload%=�~load%
�stamp%=�
��
�$iname%="File info: "+name$
�$ilen%=�~len%
�%finfoh%=�updatewindow(finfoh%,P%)
��
�:
�$� �updatewindow(handle%,window%)
!block%=handle%
$ș "Wimp_GetWindowState",,block%
!wblock%=handle%
"#ș "Wimp_DeleteWindow",,wblock%
,-ș "Wimp_CreateWindow",,window% � handle%
6!block%=handle%
@ ș "Wimp_OpenWindow",,block%
J=handle%
T:
^� �processkey
h9� (ublock%!24)<>&0D ș "Wimp_ProcessKey",ublock%!24:�
rȎ (!ublock%) �
|
� finfoh%
�Ȏ (ublock%!4) �
�8� 1:$itype2%=�numtostring(�("&"+$(itype1%))):�clearb
�3� 2:$itype1%=�~(�stringtonum($itype2%)):�clearb
�� 4:�cleara
�� 6:�cleara
��
�� setth%
�Ȏ (ublock%!4) �
�9� 1:$stype2%=�numtostring(�("&"+$(stype1%))):�sclearb
�4� 2:$stype1%=�~(�stringtonum($stype2%)):�sclearb
�� 4:�scleara
�� 6:�scleara
��
�
�
:
&� �checkicon
0Ȏ (ublock%!16) �
:� 13:�updateinfo
D� 14:�datestamp
N�
X�
b:
l� �datestamp
v?stblock%=3
�ș "OS_Word",14,stblock%
�;ș "XOS_ConvertDateAndTime",stblock%,itime%,12,tfblock%
�;ș "XOS_ConvertDateAndTime",stblock%,idate%,16,tdblock%
��clearb
��
�:
�� �numtostring(num%)
�,ș "OS_FSControl",18,,num% � ,,tn1%,tn2%
�*!ttype%=tn1%:ttype%!4=tn2%:ttype%?8=13
�=$ttype%
�:
�� �stringtonum($ttype%)
�)ș "XOS_FSControl",31,ttype% � ,,num%
	=num%
:

� �cleara
 $idate%=""
*$itime%=""
4$itype1%=""
>$itype2%=""
H%finfoh%=�updatewindow(finfoh%,P%)
Rstamp%=�
\�
f:
p
� �clearb
z$iexec%=""
�$iload%=""
�%finfoh%=�updatewindow(finfoh%,P%)
�stamp%=�
��
�:
�� �scleara
�$stype1%=""
�$stype2%=""
�#setth%=�updatewindow(setth%,R%)
�
sstamp%=�
��
�:
�� �sclearb
$sexec%=""
$sload%=""
#setth%=�updatewindow(setth%,R%)
$
sstamp%=�
.�
8:
B� �updateinfo
L� (ublock%!16)<>13 �
V� stamp% �
`exec%=!stblock%
jload%=&FFF00000
tload%=load% � stblock%?4
~type%=�("&"+$itype1%)<<8
�load%=load% � type%
��
�� $iexec%="" $iexec%="0"
�� $iload%="" $iload%="0"
�exec%=�("&"+$iexec%)
�load%=�("&"+$iload%)
��
�,ș "OS_File",1,file2%,load%,exec%,,attr%
�!wblock%=finfoh%
�"ș "Wimp_CloseWindow",,wblock%
��
�:
� �showsettype

#setth%=�updatewindow(setth%,R%)
$stype1%="0":$stype2%=""
$sexec%="":$sload%=""
(
sstamp%=�
2�
<:
F� �settype
P;ș "XOS_File",13,name%,,,path% � ,,load2%,exec2%,,attr%
Z� sstamp% �
dtype2%=�("&"+$stype1%)
n!ș "XOS_File",18,file%,type2%
x�
�� $sexec%="" $sexec%="0"
�� $sload%="" $sload%="0"
�exec2%=�("&"+$sexec%)
�load2%=�("&"+$sload%)
�.ș "XOS_File",1,file%,load2%,exec2%,,attr%
��
��
�:
�� �options
�Ȏ (ublock%!4) �
�� 0:�copyopts
�� 1:�countopts
�� 2:�wipeopts
�
:
� �getopts
".copyopts%()=0:countopts%()=0:wipeopts%()=0
,:
6$block%="copy$options"
@7ș "XOS_ReadVarVal",block%,dblock%,256,0,0 � ,,len%
J"dblock%?len%=&0D:var$=$dblock%
T� loop%=0 � 11
^char$=�copyopts$,loop%+1,1)
hpos%=�var$,char$)
r9� pos%>0 � dblock%?(pos%-2)<>�"~" copyopts%(loop%)=-1
|�
�:
�$block%="count$options"
�7ș "XOS_ReadVarVal",block%,dblock%,256,0,0 � ,,len%
�"dblock%?len%=&0D:var$=$dblock%
�� loop%=0 � 2
� char$=�countopts$,loop%+1,1)
�pos%=�var$,char$)
�:� pos%>0 � dblock%?(pos%-2)<>�"~" countopts%(loop%)=-1
��
�:
�$block%="wipe$options"
�7ș "XOS_ReadVarVal",block%,dblock%,256,0,0 � ,,len%
�"dblock%?len%=&0D:var$=$dblock%
� loop%=0 � 3
char$=�wipeopts$,loop%+1,1)
pos%=�var$,char$)
&9� pos%>0 � dblock%?(pos%-2)<>�"~" wipeopts%(loop%)=-1
0�
:�
D:
N� �copyopts
X/copyopts%(ublock%!8)=� copyopts%(ublock%!8)
b
final$=""
l� loop%=0 � 11
vchar$=�copyopts$,loop%+1,1)
�9� copyopts%(loop%) char$=" "+char$ � char$=" ~"+char$
�final$+=char$
��
�9$block%="Copy$Options":$dblock%=final$:len%=�(final$)
�-ș "OS_SetVarVal",block%,dblock%,len%,0,0
��
�:
�� �countopts
�1countopts%(ublock%!8)=� countopts%(ublock%!8)
�
final$=""
�� loop%=0 � 2
� char$=�countopts$,loop%+1,1)
�:� countopts%(loop%) char$=" "+char$ � char$=" ~"+char$
final$+=char$
�
:$block%="Count$Options":$dblock%=final$:len%=�(final$)
 -ș "OS_SetVarVal",block%,dblock%,len%,0,0
*�
4:
>� �wipeopts
H/wipeopts%(ublock%!8)=� wipeopts%(ublock%!8)
R
final$=""
\� loop%=0 � 3
fchar$=�wipeopts$,loop%+1,1)
p9� wipeopts%(loop%) char$=" "+char$ � char$=" ~"+char$
zfinal$+=char$
��
�9$block%="Wipe$Options":$dblock%=final$:len%=�(final$)
�-ș "OS_SetVarVal",block%,dblock%,len%,0,0
��
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 1d f4 20 52 75  6e 49 6d 61 67 65 20 66  |..... RunImage f|
00000020  6f 72 20 21 44 65 73 6b  55 74 69 6c 73 0d 00 1e  |or !DeskUtils...|
00000030  1a f4 20 28 63 29 20 41  72 63 68 69 6d 65 64 65  |.. (c) Archimede|
00000040  73 20 57 6f 72 6c 64 0d  00 1f 2b f4 20 56 65 72  |s World...+. Ver|
00000050  73 69 6f 6e 20 31 2e 30  30 20 28 63 29 20 31 30  |sion 1.00 (c) 10|
00000060  2f 30 32 2f 39 31 20 4d  61 74 74 20 48 75 6d 62  |/02/91 Matt Humb|
00000070  6c 65 0d 00 32 05 3a 0d  00 3c 11 de 20 62 6c 6f  |le..2.:..<.. blo|
00000080  63 6b 25 20 26 34 30 30  0d 00 46 0e ee 20 85 20  |ck% &400..F.. . |
00000090  f2 65 72 72 6f 72 0d 00  50 15 c8 99 20 22 48 6f  |.error..P... "Ho|
000000a0  75 72 67 6c 61 73 73 5f  4f 6e 22 0d 00 5a 0f f2  |urglass_On"..Z..|
000000b0  69 6e 69 74 69 61 6c 69  73 65 0d 00 64 32 c8 99  |initialise..d2..|
000000c0  20 22 57 69 6d 70 5f 49  6e 69 74 69 61 6c 69 73  | "Wimp_Initialis|
000000d0  65 22 2c 32 30 30 2c 26  34 42 35 33 34 31 35 34  |e",200,&4B534154|
000000e0  2c 22 44 65 73 6b 55 74  69 6c 73 22 0d 00 6e 25  |,"DeskUtils"..n%|
000000f0  c8 99 20 22 4f 53 5f 52  65 61 64 4d 6f 6e 6f 74  |.. "OS_ReadMonot|
00000100  6f 6e 69 63 54 69 6d 65  22 20 b8 20 74 69 6d 65  |onicTime" . time|
00000110  25 0d 00 78 10 f2 75 70  64 61 74 65 63 6c 6f 63  |%..x..updatecloc|
00000120  6b 0d 00 82 10 f2 69 6e  73 74 61 6c 6c 69 63 6f  |k.....installico|
00000130  6e 0d 00 8c 12 f2 6c 6f  61 64 74 65 6d 70 6c 61  |n.....loadtempla|
00000140  74 65 73 0d 00 96 16 c8  99 20 22 48 6f 75 72 67  |tes...... "Hourg|
00000150  6c 61 73 73 5f 4f 66 66  22 0d 00 a0 0d 71 75 69  |lass_Off"....qui|
00000160  74 25 20 3d 20 a3 0d 00  aa 0e 74 69 6d 65 25 2b  |t% = .....time%+|
00000170  3d 31 30 30 0d 00 b4 05  f5 0d 00 be 09 f2 70 6f  |=100..........po|
00000180  6c 6c 0d 00 c8 0b fd 20  71 75 69 74 25 0d 00 d2  |ll..... quit%...|
00000190  17 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |... "Wimp_CloseD|
000001a0  6f 77 6e 22 0d 00 dc 05  e0 0d 00 e6 05 3a 0d 00  |own".........:..|
000001b0  f0 11 dd 20 f2 69 6e 69  74 69 61 6c 69 73 65 0d  |... .initialise.|
000001c0  00 fa 38 de 20 6d 62 6c  6f 63 6b 25 20 26 34 30  |..8. mblock% &40|
000001d0  30 2c 69 62 6c 6f 63 6b  25 20 26 34 30 30 2c 75  |0,iblock% &400,u|
000001e0  62 6c 6f 63 6b 25 20 26  34 30 30 2c 66 69 6c 65  |block% &400,file|
000001f0  6e 25 20 26 34 30 30 0d  01 04 3d de 20 6d 6f 62  |n% &400...=. mob|
00000200  6c 6f 63 6b 25 20 26 31  32 34 2c 6d 70 62 6c 6f  |lock% &124,mpblo|
00000210  63 6b 25 20 26 31 32 34  2c 6d 6d 62 6c 6f 63 6b  |ck% &124,mmblock|
00000220  25 20 26 31 30 30 2c 6d  63 62 6c 6f 63 6b 25 20  |% &100,mcblock% |
00000230  26 33 31 36 0d 01 0e 38  de 20 6d 75 62 6c 6f 63  |&316...8. mubloc|
00000240  6b 25 20 26 34 30 30 2c  6d 77 62 6c 6f 63 6b 25  |k% &400,mwblock%|
00000250  20 26 31 32 34 2c 77 6f  72 64 62 25 20 32 35 36  | &124,wordb% 256|
00000260  2c 74 66 62 6c 6f 63 6b  25 20 32 30 0d 01 18 34  |,tfblock% 20...4|
00000270  de 20 74 64 62 6c 6f 63  6b 25 20 32 30 2c 77 62  |. tdblock% 20,wb|
00000280  6c 6f 63 6b 25 20 26 34  30 30 2c 74 62 6c 6f 63  |lock% &400,tbloc|
00000290  6b 25 20 36 2c 74 73 62  6c 6f 63 6b 25 20 34 30  |k% 6,tsblock% 40|
000002a0  0d 01 22 33 de 20 74 62  75 66 66 25 20 31 32 2c  |.."3. tbuff% 12,|
000002b0  73 62 75 66 66 25 20 31  32 2c 74 62 6c 6f 63 6b  |sbuff% 12,tblock|
000002c0  25 20 26 34 30 30 2c 64  62 6c 6f 63 6b 25 20 26  |% &400,dblock% &|
000002d0  34 30 30 0d 01 2c 33 de  20 69 74 79 70 65 31 25  |400..,3. itype1%|
000002e0  20 31 30 30 2c 69 74 79  70 65 32 25 20 31 30 30  | 100,itype2% 100|
000002f0  2c 69 6c 6f 61 64 25 20  31 30 30 2c 69 65 78 65  |,iload% 100,iexe|
00000300  63 25 20 31 30 30 0d 01  36 2f de 20 69 6c 65 6e  |c% 100..6/. ilen|
00000310  25 20 31 30 30 2c 69 64  61 74 65 25 20 31 30 30  |% 100,idate% 100|
00000320  2c 69 74 69 6d 65 25 20  31 30 30 2c 70 61 74 68  |,itime% 100,path|
00000330  25 20 32 35 36 0d 01 40  33 de 20 73 74 79 70 65  |% 256..@3. stype|
00000340  31 25 20 31 30 30 2c 73  74 79 70 65 32 25 20 31  |1% 100,stype2% 1|
00000350  30 30 2c 73 6c 6f 61 64  25 20 31 30 30 2c 73 65  |00,sload% 100,se|
00000360  78 65 63 25 20 31 30 30  0d 01 4a 2e de 20 6e 61  |xec% 100..J.. na|
00000370  6d 65 25 20 32 35 36 2c  69 6e 61 6d 65 25 20 32  |me% 256,iname% 2|
00000380  36 2c 73 74 62 6c 6f 63  6b 25 20 36 2c 66 69 6c  |6,stblock% 6,fil|
00000390  65 25 20 32 35 36 0d 01  54 25 de 20 74 74 79 70  |e% 256..T%. ttyp|
000003a0  65 25 20 32 35 36 2c 66  69 6c 65 25 20 32 35 36  |e% 256,file% 256|
000003b0  2c 66 69 6c 65 32 25 20  32 35 36 0d 01 5e 2c de  |,file2% 256..^,.|
000003c0  20 63 6f 70 79 6f 70 74  73 25 28 31 31 29 3a 63  | copyopts%(11):c|
000003d0  6f 70 79 6f 70 74 73 24  3d 22 41 43 44 46 4c 4e  |opyopts$="ACDFLN|
000003e0  50 51 52 53 54 56 22 0d  01 68 24 de 20 63 6f 75  |PQRSTV"..h$. cou|
000003f0  6e 74 6f 70 74 73 25 28  32 29 3a 63 6f 75 6e 74  |ntopts%(2):count|
00000400  6f 70 74 73 24 3d 22 43  52 56 22 0d 01 72 23 de  |opts$="CRV"..r#.|
00000410  20 77 69 70 65 6f 70 74  73 25 28 33 29 3a 77 69  | wipeopts%(3):wi|
00000420  70 65 6f 70 74 73 24 3d  22 43 46 52 56 22 0d 01  |peopts$="CFRV"..|
00000430  7c 2e 63 6f 75 6e 74 6f  70 74 73 25 28 29 3d 30  ||.countopts%()=0|
00000440  3a 63 6f 70 79 6f 70 74  73 25 28 29 3d 30 3a 77  |:copyopts%()=0:w|
00000450  69 70 65 6f 70 74 73 25  28 29 3d 30 0d 01 86 1d  |ipeopts%()=0....|
00000460  24 74 66 62 6c 6f 63 6b  25 3d 22 25 32 34 3a 25  |$tfblock%="%24:%|
00000470  4d 49 3a 25 53 45 25 30  22 0d 01 90 20 24 74 64  |MI:%SE%0"... $td|
00000480  62 6c 6f 63 6b 25 3d 22  25 44 59 2d 25 4d 33 2d  |block%="%DY-%M3-|
00000490  25 43 45 25 59 52 25 30  22 0d 01 9a 19 24 73 62  |%CE%YR%0"....$sb|
000004a0  75 66 66 25 3d 22 73 21  64 65 73 6b 75 74 69 6c  |uff%="s!deskutil|
000004b0  73 22 0d 01 a4 1e 69 6e  69 74 25 3d a3 3a 69 63  |s"....init%=.:ic|
000004c0  6f 6e 68 25 3d 30 3a 61  64 6a 75 73 74 25 3d a3  |onh%=0:adjust%=.|
000004d0  0d 01 ae 05 e1 0d 01 b8  05 3a 0d 01 c2 12 dd 20  |.........:..... |
000004e0  f2 69 6e 73 74 61 6c 6c  69 63 6f 6e 0d 01 cc 0f  |.installicon....|
000004f0  21 69 62 6c 6f 63 6b 25  3d 2d 31 0d 01 d6 1d 69  |!iblock%=-1....i|
00000500  62 6c 6f 63 6b 25 21 34  3d 30 3a 69 62 6c 6f 63  |block%!4=0:ibloc|
00000510  6b 25 21 38 3d 2d 31 36  0d 01 e0 20 69 62 6c 6f  |k%!8=-16... iblo|
00000520  63 6b 25 21 31 32 3d 31  33 30 3a 69 62 6c 6f 63  |ck%!12=130:ibloc|
00000530  6b 25 21 31 36 3d 38 34  0d 01 ea 18 69 62 6c 6f  |k%!16=84....iblo|
00000540  63 6b 25 21 32 30 3d 26  31 37 30 30 36 31 30 42  |ck%!20=&1700610B|
00000550  0d 01 f4 15 69 62 6c 6f  63 6b 25 21 32 34 3d 74  |....iblock%!24=t|
00000560  62 75 66 66 25 0d 01 fe  15 69 62 6c 6f 63 6b 25  |buff%....iblock%|
00000570  21 32 38 3d 73 62 75 66  66 25 0d 02 08 11 69 62  |!28=sbuff%....ib|
00000580  6c 6f 63 6b 25 21 33 32  3d 31 32 0d 02 12 2a c8  |lock%!32=12...*.|
00000590  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
000005a0  6f 6e 22 2c 2c 69 62 6c  6f 63 6b 25 20 b8 20 69  |on",,iblock% . i|
000005b0  63 6f 6e 68 25 0d 02 1c  0b 69 6e 69 74 25 3d b9  |conh%....init%=.|
000005c0  0d 02 26 05 e1 0d 02 30  05 3a 0d 02 3a 14 dd 20  |..&....0.:..:.. |
000005d0  f2 6c 6f 61 64 74 65 6d  70 6c 61 74 65 73 0d 02  |.loadtemplates..|
000005e0  44 1d de 20 50 25 20 26  38 30 30 2c 51 25 20 26  |D.. P% &800,Q% &|
000005f0  38 30 30 2c 52 25 20 26  38 30 30 0d 02 4e 0f 6d  |800,R% &800..N.m|
00000600  61 78 77 73 25 3d 26 34  30 30 0d 02 58 32 de 20  |axws%=&400..X2. |
00000610  69 6e 64 69 72 31 25 20  6d 61 78 77 73 25 2c 69  |indir1% maxws%,i|
00000620  6e 64 69 72 32 25 20 6d  61 78 77 73 25 2c 69 6e  |ndir2% maxws%,in|
00000630  64 69 72 33 25 20 6d 61  78 77 73 25 0d 02 62 27  |dir3% maxws%..b'|
00000640  24 66 69 6c 65 6e 25 3d  22 3c 44 65 73 6b 55 74  |$filen%="<DeskUt|
00000650  69 6c 73 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |ils$Dir>.Templat|
00000660  65 73 22 0d 02 6c 22 c8  99 20 22 57 69 6d 70 5f  |es"..l".. "Wimp_|
00000670  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 66  |OpenTemplate",,f|
00000680  69 6c 65 6e 25 0d 02 76  45 c8 99 20 22 57 69 6d  |ilen%..vE.. "Wim|
00000690  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000006a0  2c 50 25 2c 69 6e 64 69  72 31 25 2c 69 6e 64 69  |,P%,indir1%,indi|
000006b0  72 31 25 2b 6d 61 78 77  73 25 2c 2d 31 2c 22 66  |r1%+maxws%,-1,"f|
000006c0  69 6c 65 69 6e 66 6f 22  2c 30 0d 02 80 41 c8 99  |ileinfo",0...A..|
000006d0  20 22 57 69 6d 70 5f 4c  6f 61 64 54 65 6d 70 6c  | "Wimp_LoadTempl|
000006e0  61 74 65 22 2c 2c 51 25  2c 69 6e 64 69 72 33 25  |ate",,Q%,indir3%|
000006f0  2c 69 6e 64 69 72 33 25  2b 6d 61 78 77 73 25 2c  |,indir3%+maxws%,|
00000700  2d 31 2c 22 69 6e 66 6f  22 2c 30 0d 02 8a 44 c8  |-1,"info",0...D.|
00000710  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00000720  6c 61 74 65 22 2c 2c 52  25 2c 69 6e 64 69 72 32  |late",,R%,indir2|
00000730  25 2c 69 6e 64 69 72 32  25 2b 6d 61 78 77 73 25  |%,indir2%+maxws%|
00000740  2c 2d 31 2c 22 73 65 74  74 79 70 65 22 2c 30 0d  |,-1,"settype",0.|
00000750  02 94 0d f2 69 6e 64 69  72 65 63 74 0d 02 9e 28  |....indirect...(|
00000760  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00000770  69 6e 64 6f 77 22 2c 2c  50 25 20 b8 20 66 69 6e  |indow",,P% . fin|
00000780  66 6f 68 25 0d 02 a8 27  c8 99 20 22 57 69 6d 70  |foh%...'.. "Wimp|
00000790  5f 43 72 65 61 74 65 57  69 6e 64 6f 77 22 2c 2c  |_CreateWindow",,|
000007a0  51 25 20 b8 20 69 6e 66  6f 68 25 0d 02 b2 27 c8  |Q% . infoh%...'.|
000007b0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000007c0  6e 64 6f 77 22 2c 2c 52  25 20 b8 20 73 65 74 74  |ndow",,R% . sett|
000007d0  68 25 0d 02 bc 1b c8 99  20 22 57 69 6d 70 5f 43  |h%...... "Wimp_C|
000007e0  6c 6f 73 65 54 65 6d 70  6c 61 74 65 22 0d 02 c6  |loseTemplate"...|
000007f0  05 e1 0d 02 d0 05 3a 0d  02 da 0b dd 20 f2 70 6f  |......:..... .po|
00000800  6c 6c 0d 02 e4 30 c8 99  20 22 57 69 6d 70 5f 50  |ll...0.. "Wimp_P|
00000810  6f 6c 6c 49 64 6c 65 22  2c 30 2c 75 62 6c 6f 63  |ollIdle",0,ubloc|
00000820  6b 25 2c 74 69 6d 65 25  20 b8 20 72 65 61 73 6f  |k%,time% . reaso|
00000830  6e 25 0d 02 ee 12 c8 8e  20 28 72 65 61 73 6f 6e  |n%...... (reason|
00000840  25 29 20 ca 0d 02 f8 14  c9 20 30 3a f2 75 70 64  |%) ...... 0:.upd|
00000850  61 74 65 63 6c 6f 63 6b  0d 03 02 25 c9 20 32 3a  |ateclock...%. 2:|
00000860  c8 99 20 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |.. "Wimp_OpenWin|
00000870  64 6f 77 22 2c 2c 75 62  6c 6f 63 6b 25 0d 03 0c  |dow",,ublock%...|
00000880  26 c9 20 33 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |&. 3:.. "Wimp_Cl|
00000890  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 75 62 6c 6f  |oseWindow",,ublo|
000008a0  63 6b 25 0d 03 16 1f c9  20 36 3a f2 68 61 6e 64  |ck%..... 6:.hand|
000008b0  6c 65 5f 62 75 74 74 6f  6e 28 75 62 6c 6f 63 6b  |le_button(ublock|
000008c0  25 29 0d 03 20 10 c9 20  37 3a f2 65 6e 64 64 72  |%).. .. 7:.enddr|
000008d0  61 67 0d 03 2a 13 c9 20  38 3a f2 70 72 6f 63 65  |ag..*.. 8:.proce|
000008e0  73 73 6b 65 79 0d 03 34  13 c9 20 39 3a f2 6d 65  |sskey..4.. 9:.me|
000008f0  6e 75 73 65 6c 65 63 74  0d 03 3e 22 c9 20 31 37  |nuselect..>". 17|
00000900  2c 31 38 3a f2 72 65 63  69 65 76 65 5f 6d 65 73  |,18:.recieve_mes|
00000910  73 28 75 62 6c 6f 63 6b  25 29 0d 03 48 05 cb 0d  |s(ublock%)..H...|
00000920  03 52 05 e1 0d 03 5c 05  3a 0d 03 66 12 dd 20 f2  |.R....\.:..f.. .|
00000930  75 70 64 61 74 65 63 6c  6f 63 6b 0d 03 70 28 c8  |updateclock..p(.|
00000940  99 20 22 4f 53 5f 52 65  61 64 4d 6f 6e 6f 74 6f  |. "OS_ReadMonoto|
00000950  6e 69 63 54 69 6d 65 22  20 b8 20 6e 65 77 74 69  |nicTime" . newti|
00000960  6d 65 25 0d 03 7a 19 c8  95 20 28 6e 65 77 74 69  |me%..z... (newti|
00000970  6d 65 25 2d 74 69 6d 65  25 29 3e 30 0d 03 84 0e  |me%-time%)>0....|
00000980  74 69 6d 65 25 2b 3d 31  30 30 0d 03 8e 05 ce 0d  |time%+=100......|
00000990  03 98 0e 3f 74 62 6c 6f  63 6b 25 3d 33 0d 03 a2  |...?tblock%=3...|
000009a0  1b c8 99 20 22 4f 53 5f  57 6f 72 64 22 2c 31 34  |... "OS_Word",14|
000009b0  2c 74 62 6c 6f 63 6b 25  0d 03 ac 3c c8 99 20 22  |,tblock%...<.. "|
000009c0  58 4f 53 5f 43 6f 6e 76  65 72 74 44 61 74 65 41  |XOS_ConvertDateA|
000009d0  6e 64 54 69 6d 65 22 2c  74 62 6c 6f 63 6b 25 2c  |ndTime",tblock%,|
000009e0  74 73 62 6c 6f 63 6b 25  2c 34 30 2c 74 66 62 6c  |tsblock%,40,tfbl|
000009f0  6f 63 6b 25 0d 03 b6 15  24 74 62 75 66 66 25 3d  |ock%....$tbuff%=|
00000a00  24 74 73 62 6c 6f 63 6b  25 0d 03 c0 1e 21 77 6f  |$tsblock%....!wo|
00000a10  72 64 62 25 3d 2d 31 3a  77 6f 72 64 62 25 21 34  |rdb%=-1:wordb%!4|
00000a20  3d 69 63 6f 6e 68 25 0d  03 ca 1a 77 6f 72 64 62  |=iconh%....wordb|
00000a30  25 21 38 3d 30 3a 77 6f  72 64 62 25 21 31 32 3d  |%!8=0:wordb%!12=|
00000a40  30 0d 03 d4 2a e7 20 69  6e 69 74 25 20 c8 99 20  |0...*. init% .. |
00000a50  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00000a60  74 65 22 2c 2c 77 6f 72  64 62 25 0d 03 de 05 e1  |te",,wordb%.....|
00000a70  0d 03 e8 05 3a 0d 03 f2  1d dd 20 f2 68 61 6e 64  |....:..... .hand|
00000a80  6c 65 5f 62 75 74 74 6f  6e 28 75 62 6c 6f 63 6b  |le_button(ublock|
00000a90  25 29 0d 03 fc 14 c8 8e  20 28 75 62 6c 6f 63 6b  |%)...... (ublock|
00000aa0  25 21 38 29 20 ca 0d 04  06 38 c9 20 32 3a e7 20  |%!8) ....8. 2:. |
00000ab0  28 75 62 6c 6f 63 6b 25  21 31 32 29 3d 2d 32 20  |(ublock%!12)=-2 |
00000ac0  6d 70 6f 73 25 3d 21 75  62 6c 6f 63 6b 25 2d 36  |mpos%=!ublock%-6|
00000ad0  30 3a f2 68 61 6e 64 6c  65 5f 6d 65 6e 75 0d 04  |0:.handle_menu..|
00000ae0  10 19 c9 20 34 3a c8 8e  20 28 75 62 6c 6f 63 6b  |... 4:.. (ublock|
00000af0  25 21 31 32 29 20 ca 0d  04 1a 18 c9 20 2d 32 3a  |%!12) ...... -2:|
00000b00  66 69 6c 65 24 3d 22 22  3a f2 62 61 73 69 63 0d  |file$="":.basic.|
00000b10  04 24 18 c9 20 66 69 6e  66 6f 68 25 3a f2 63 68  |.$.. finfoh%:.ch|
00000b20  65 63 6b 69 63 6f 6e 0d  04 2e 05 cb 0d 04 38 0e  |eckicon.......8.|
00000b30  c9 20 31 36 3a f2 64 72  61 67 0d 04 42 05 cb 0d  |. 16:.drag..B...|
00000b40  04 4c 05 e1 0d 04 56 05  3a 0d 04 60 11 dd 20 f2  |.L....V.:..`.. .|
00000b50  6d 65 6e 75 73 65 6c 65  63 74 0d 04 6a 25 c8 99  |menuselect..j%..|
00000b60  20 22 57 69 6d 70 5f 47  65 74 50 6f 69 6e 74 65  | "Wimp_GetPointe|
00000b70  72 49 6e 66 6f 22 2c 2c  64 62 6c 6f 63 6b 25 0d  |rInfo",,dblock%.|
00000b80  04 74 21 e7 20 28 28 64  62 6c 6f 63 6b 25 21 38  |.t!. ((dblock%!8|
00000b90  29 20 80 20 31 29 20 61  64 6a 75 73 74 25 3d b9  |) . 1) adjust%=.|
00000ba0  0d 04 7e 13 c8 8e 20 28  21 75 62 6c 6f 63 6b 25  |..~... (!ublock%|
00000bb0  29 20 ca 0d 04 88 29 c9  20 30 3a c8 99 20 22 57  |) ....). 0:.. "W|
00000bc0  69 6d 70 5f 53 65 74 4d  6f 64 65 22 2c 31 32 34  |imp_SetMode",124|
00000bd0  2b 28 75 62 6c 6f 63 6b  25 21 34 29 0d 04 92 12  |+(ublock%!4)....|
00000be0  c9 20 31 3a f2 6d 6f 75  73 65 73 74 65 70 0d 04  |. 1:.mousestep..|
00000bf0  9c 10 c9 20 32 3a f2 6f  70 74 69 6f 6e 73 0d 04  |... 2:.options..|
00000c00  a6 14 c9 20 33 3a f2 73  68 6f 77 73 65 74 74 79  |... 3:.showsetty|
00000c10  70 65 0d 04 b0 0f c9 20  35 3a 71 75 69 74 25 3d  |pe..... 5:quit%=|
00000c20  b9 0d 04 ba 05 cb 0d 04  c4 1a e7 20 61 64 6a 75  |........... adju|
00000c30  73 74 25 20 f2 68 61 6e  64 6c 65 5f 6d 65 6e 75  |st% .handle_menu|
00000c40  0d 04 ce 0d 61 64 6a 75  73 74 25 3d a3 0d 04 d8  |....adjust%=....|
00000c50  05 e1 0d 04 e2 05 3a 0d  04 ec 10 dd 20 f2 6d 6f  |......:..... .mo|
00000c60  75 73 65 73 74 65 70 0d  04 f6 17 73 74 65 70 25  |usestep....step%|
00000c70  3d 28 75 62 6c 6f 63 6b  25 21 34 29 2b 31 0d 05  |=(ublock%!4)+1..|
00000c80  00 0d 3f 77 6f 72 64 62  25 3d 32 0d 05 0a 12 77  |..?wordb%=2....w|
00000c90  6f 72 64 62 25 3f 31 3d  73 74 65 70 25 0d 05 14  |ordb%?1=step%...|
00000ca0  12 77 6f 72 64 62 25 3f  32 3d 73 74 65 70 25 0d  |.wordb%?2=step%.|
00000cb0  05 1e 1a c8 99 20 22 4f  53 5f 57 6f 72 64 22 2c  |..... "OS_Word",|
00000cc0  32 31 2c 77 6f 72 64 62  25 0d 05 28 05 e1 0d 05  |21,wordb%..(....|
00000cd0  32 05 3a 0d 05 3c 12 dd  20 f2 68 61 6e 64 6c 65  |2.:..<.. .handle|
00000ce0  5f 6d 65 6e 75 0d 05 46  0c f2 67 65 74 6f 70 74  |_menu..F..getopt|
00000cf0  73 0d 05 50 18 24 6d 62  6c 6f 63 6b 25 3d 22 44  |s..P.$mblock%="D|
00000d00  65 73 6b 55 74 69 6c 73  22 0d 05 5a 18 6d 62 6c  |eskUtils"..Z.mbl|
00000d10  6f 63 6b 25 21 31 32 3d  26 30 30 30 37 30 32 30  |ock%!12=&0007020|
00000d20  37 0d 05 64 2d 6d 62 6c  6f 63 6b 25 21 31 36 3d  |7..d-mblock%!16=|
00000d30  31 37 34 3a 6d 62 6c 6f  63 6b 25 21 32 30 3d 34  |174:mblock%!20=4|
00000d40  34 3a 6d 62 6c 6f 63 6b  25 21 32 34 3d 30 0d 05  |4:mblock%!24=0..|
00000d50  6e 25 6d 62 6c 6f 63 6b  25 21 32 38 3d 26 30 3a  |n%mblock%!28=&0:|
00000d60  6d 62 6c 6f 63 6b 25 21  33 32 3d 6d 6f 62 6c 6f  |mblock%!32=moblo|
00000d70  63 6b 25 0d 05 78 18 6d  62 6c 6f 63 6b 25 21 33  |ck%..x.mblock%!3|
00000d80  36 3d 26 30 37 30 31 39  30 33 31 0d 05 82 1c 24  |6=&07019031....$|
00000d90  28 6d 62 6c 6f 63 6b 25  2b 34 30 29 3d 22 4f 76  |(mblock%+40)="Ov|
00000da0  65 72 73 63 61 6e 22 0d  05 8c 25 6d 62 6c 6f 63  |erscan"...%mbloc|
00000db0  6b 25 21 35 32 3d 26 30  3a 6d 62 6c 6f 63 6b 25  |k%!52=&0:mblock%|
00000dc0  21 35 36 3d 6d 6d 62 6c  6f 63 6b 25 0d 05 96 18  |!56=mmblock%....|
00000dd0  6d 62 6c 6f 63 6b 25 21  36 30 3d 26 30 37 30 31  |mblock%!60=&0701|
00000de0  39 30 33 31 0d 05 a0 1e  24 28 6d 62 6c 6f 63 6b  |9031....$(mblock|
00000df0  25 2b 36 34 29 3d 22 4d  6f 75 73 65 20 73 74 65  |%+64)="Mouse ste|
00000e00  70 22 0d 05 aa 25 6d 62  6c 6f 63 6b 25 21 37 36  |p"...%mblock%!76|
00000e10  3d 26 30 3a 6d 62 6c 6f  63 6b 25 21 38 30 3d 6d  |=&0:mblock%!80=m|
00000e20  70 62 6c 6f 63 6b 25 0d  05 b4 18 6d 62 6c 6f 63  |pblock%....mbloc|
00000e30  6b 25 21 38 34 3d 26 30  37 30 31 39 30 33 31 0d  |k%!84=&07019031.|
00000e40  05 be 1b 24 28 6d 62 6c  6f 63 6b 25 2b 38 38 29  |...$(mblock%+88)|
00000e50  3d 22 4f 70 74 69 6f 6e  73 22 0d 05 c8 21 6d 62  |="Options"...!mb|
00000e60  6c 6f 63 6b 25 21 31 30  30 3d 26 30 3a 6d 62 6c  |lock%!100=&0:mbl|
00000e70  6f 63 6b 25 21 31 30 34  3d 2d 31 0d 05 d2 19 6d  |ock%!104=-1....m|
00000e80  62 6c 6f 63 6b 25 21 31  30 38 3d 26 30 37 30 31  |block%!108=&0701|
00000e90  39 30 33 31 0d 05 dc 1d  24 28 6d 62 6c 6f 63 6b  |9031....$(mblock|
00000ea0  25 2b 31 31 32 29 3d 22  53 65 74 20 74 79 70 65  |%+112)="Set type|
00000eb0  22 0d 05 e6 25 6d 62 6c  6f 63 6b 25 21 31 32 34  |"...%mblock%!124|
00000ec0  3d 26 30 3a 6d 62 6c 6f  63 6b 25 21 31 32 38 3d  |=&0:mblock%!128=|
00000ed0  69 6e 66 6f 68 25 0d 05  f0 19 6d 62 6c 6f 63 6b  |infoh%....mblock|
00000ee0  25 21 31 33 32 3d 26 30  37 30 31 39 30 33 31 0d  |%!132=&07019031.|
00000ef0  05 fa 19 24 28 6d 62 6c  6f 63 6b 25 2b 31 33 36  |...$(mblock%+136|
00000f00  29 3d 22 49 6e 66 6f 22  0d 06 04 22 6d 62 6c 6f  |)="Info"..."mblo|
00000f10  63 6b 25 21 31 34 38 3d  26 38 30 3a 6d 62 6c 6f  |ck%!148=&80:mblo|
00000f20  63 6b 25 21 31 35 32 3d  2d 31 0d 06 0e 19 6d 62  |ck%!152=-1....mb|
00000f30  6c 6f 63 6b 25 21 31 35  36 3d 26 30 37 30 31 39  |lock%!156=&07019|
00000f40  30 33 31 0d 06 18 19 24  28 6d 62 6c 6f 63 6b 25  |031....$(mblock%|
00000f50  2b 31 36 30 29 3d 22 51  75 69 74 22 0d 06 22 05  |+160)="Quit"..".|
00000f60  3a 0d 06 2c 18 24 6d 6f  62 6c 6f 63 6b 25 3d 22  |:..,.$moblock%="|
00000f70  4f 76 65 72 73 63 61 6e  22 0d 06 36 19 6d 6f 62  |Overscan"..6.mob|
00000f80  6c 6f 63 6b 25 21 31 32  3d 26 30 30 30 37 30 32  |lock%!12=&000702|
00000f90  30 37 0d 06 40 30 6d 6f  62 6c 6f 63 6b 25 21 31  |07..@0moblock%!1|
00000fa0  36 3d 31 32 30 3a 6d 6f  62 6c 6f 63 6b 25 21 32  |6=120:moblock%!2|
00000fb0  30 3d 34 34 3a 6d 6f 62  6c 6f 63 6b 25 21 32 34  |0=44:moblock%!24|
00000fc0  3d 30 0d 06 4a 21 6d 6f  62 6c 6f 63 6b 25 21 32  |=0..J!moblock%!2|
00000fd0  38 3d 26 30 3a 6d 6f 62  6c 6f 63 6b 25 21 33 32  |8=&0:moblock%!32|
00000fe0  3d 2d 31 0d 06 54 19 6d  6f 62 6c 6f 63 6b 25 21  |=-1..T.moblock%!|
00000ff0  33 36 3d 26 30 37 30 31  39 30 33 31 0d 06 5e 16  |36=&07019031..^.|
00001000  24 28 6d 6f 62 6c 6f 63  6b 25 2b 34 30 29 3d 22  |$(moblock%+40)="|
00001010  38 22 0d 06 68 21 6d 6f  62 6c 6f 63 6b 25 21 35  |8"..h!moblock%!5|
00001020  32 3d 26 30 3a 6d 6f 62  6c 6f 63 6b 25 21 35 36  |2=&0:moblock%!56|
00001030  3d 2d 31 0d 06 72 19 6d  6f 62 6c 6f 63 6b 25 21  |=-1..r.moblock%!|
00001040  36 30 3d 26 30 37 30 31  39 30 33 31 0d 06 7c 17  |60=&07019031..|.|
00001050  24 28 6d 6f 62 6c 6f 63  6b 25 2b 36 34 29 3d 22  |$(moblock%+64)="|
00001060  31 32 22 0d 06 86 21 6d  6f 62 6c 6f 63 6b 25 21  |12"...!moblock%!|
00001070  37 36 3d 26 30 3a 6d 6f  62 6c 6f 63 6b 25 21 38  |76=&0:moblock%!8|
00001080  30 3d 2d 31 0d 06 90 19  6d 6f 62 6c 6f 63 6b 25  |0=-1....moblock%|
00001090  21 38 34 3d 26 30 37 30  31 39 30 33 31 0d 06 9a  |!84=&07019031...|
000010a0  17 24 28 6d 6f 62 6c 6f  63 6b 25 2b 38 38 29 3d  |.$(moblock%+88)=|
000010b0  22 31 35 22 0d 06 a4 24  6d 6f 62 6c 6f 63 6b 25  |"15"...$moblock%|
000010c0  21 31 30 30 3d 26 38 30  3a 6d 6f 62 6c 6f 63 6b  |!100=&80:moblock|
000010d0  25 21 31 30 34 3d 2d 31  0d 06 ae 1a 6d 6f 62 6c  |%!104=-1....mobl|
000010e0  6f 63 6b 25 21 31 30 38  3d 26 30 37 30 31 39 30  |ock%!108=&070190|
000010f0  33 31 0d 06 b8 18 24 28  6d 6f 62 6c 6f 63 6b 25  |31....$(moblock%|
00001100  2b 31 31 32 29 3d 22 31  36 22 0d 06 c2 05 3a 0d  |+112)="16"....:.|
00001110  06 cc 1a 24 6d 6d 62 6c  6f 63 6b 25 3d 22 4d 6f  |...$mmblock%="Mo|
00001120  75 73 65 20 73 74 65 70  22 0d 06 d6 19 6d 6d 62  |use step"....mmb|
00001130  6c 6f 63 6b 25 21 31 32  3d 26 30 30 30 37 30 32  |lock%!12=&000702|
00001140  30 37 0d 06 e0 30 6d 6d  62 6c 6f 63 6b 25 21 31  |07...0mmblock%!1|
00001150  36 3d 31 33 30 3a 6d 6d  62 6c 6f 63 6b 25 21 32  |6=130:mmblock%!2|
00001160  30 3d 34 34 3a 6d 6d 62  6c 6f 63 6b 25 21 32 34  |0=44:mmblock%!24|
00001170  3d 30 0d 06 ea 21 6d 6d  62 6c 6f 63 6b 25 21 32  |=0...!mmblock%!2|
00001180  38 3d 26 30 3a 6d 6d 62  6c 6f 63 6b 25 21 33 32  |8=&0:mmblock%!32|
00001190  3d 2d 31 0d 06 f4 19 6d  6d 62 6c 6f 63 6b 25 21  |=-1....mmblock%!|
000011a0  33 36 3d 26 30 37 30 31  39 30 33 31 0d 06 fe 16  |36=&07019031....|
000011b0  24 28 6d 6d 62 6c 6f 63  6b 25 2b 34 30 29 3d 22  |$(mmblock%+40)="|
000011c0  31 22 0d 07 08 21 6d 6d  62 6c 6f 63 6b 25 21 35  |1"...!mmblock%!5|
000011d0  32 3d 26 30 3a 6d 6d 62  6c 6f 63 6b 25 21 35 36  |2=&0:mmblock%!56|
000011e0  3d 2d 31 0d 07 12 19 6d  6d 62 6c 6f 63 6b 25 21  |=-1....mmblock%!|
000011f0  36 30 3d 26 30 37 30 31  39 30 33 31 0d 07 1c 16  |60=&07019031....|
00001200  24 28 6d 6d 62 6c 6f 63  6b 25 2b 36 34 29 3d 22  |$(mmblock%+64)="|
00001210  32 22 0d 07 26 21 6d 6d  62 6c 6f 63 6b 25 21 37  |2"..&!mmblock%!7|
00001220  36 3d 26 30 3a 6d 6d 62  6c 6f 63 6b 25 21 38 30  |6=&0:mmblock%!80|
00001230  3d 2d 31 0d 07 30 19 6d  6d 62 6c 6f 63 6b 25 21  |=-1..0.mmblock%!|
00001240  38 34 3d 26 30 37 30 31  39 30 33 31 0d 07 3a 16  |84=&07019031..:.|
00001250  24 28 6d 6d 62 6c 6f 63  6b 25 2b 38 38 29 3d 22  |$(mmblock%+88)="|
00001260  33 22 0d 07 44 24 6d 6d  62 6c 6f 63 6b 25 21 31  |3"..D$mmblock%!1|
00001270  30 30 3d 26 38 30 3a 6d  6d 62 6c 6f 63 6b 25 21  |00=&80:mmblock%!|
00001280  31 30 34 3d 2d 31 0d 07  4e 1a 6d 6d 62 6c 6f 63  |104=-1..N.mmbloc|
00001290  6b 25 21 31 30 38 3d 26  30 37 30 31 39 30 33 31  |k%!108=&07019031|
000012a0  0d 07 58 17 24 28 6d 6d  62 6c 6f 63 6b 25 2b 31  |..X.$(mmblock%+1|
000012b0  31 32 29 3d 22 34 22 0d  07 62 05 3a 0d 07 6c 17  |12)="4"..b.:..l.|
000012c0  24 6d 70 62 6c 6f 63 6b  25 3d 22 4f 70 74 69 6f  |$mpblock%="Optio|
000012d0  6e 73 22 0d 07 76 19 6d  70 62 6c 6f 63 6b 25 21  |ns"..v.mpblock%!|
000012e0  31 32 3d 26 30 30 30 37  30 32 30 37 0d 07 80 30  |12=&00070207...0|
000012f0  6d 70 62 6c 6f 63 6b 25  21 31 36 3d 31 30 30 3a  |mpblock%!16=100:|
00001300  6d 70 62 6c 6f 63 6b 25  21 32 30 3d 34 34 3a 6d  |mpblock%!20=44:m|
00001310  70 62 6c 6f 63 6b 25 21  32 34 3d 30 0d 07 8a 27  |pblock%!24=0...'|
00001320  6d 70 62 6c 6f 63 6b 25  21 32 38 3d 26 30 3a 6d  |mpblock%!28=&0:m|
00001330  70 62 6c 6f 63 6b 25 21  33 32 3d 6d 63 62 6c 6f  |pblock%!32=mcblo|
00001340  63 6b 25 0d 07 94 19 6d  70 62 6c 6f 63 6b 25 21  |ck%....mpblock%!|
00001350  33 36 3d 26 30 37 30 31  39 30 33 31 0d 07 9e 19  |36=&07019031....|
00001360  24 28 6d 70 62 6c 6f 63  6b 25 2b 34 30 29 3d 22  |$(mpblock%+40)="|
00001370  43 6f 70 79 22 0d 07 a8  27 6d 70 62 6c 6f 63 6b  |Copy"...'mpblock|
00001380  25 21 35 32 3d 26 30 3a  6d 70 62 6c 6f 63 6b 25  |%!52=&0:mpblock%|
00001390  21 35 36 3d 6d 75 62 6c  6f 63 6b 25 0d 07 b2 19  |!56=mublock%....|
000013a0  6d 70 62 6c 6f 63 6b 25  21 36 30 3d 26 30 37 30  |mpblock%!60=&070|
000013b0  31 39 30 33 31 0d 07 bc  1a 24 28 6d 70 62 6c 6f  |19031....$(mpblo|
000013c0  63 6b 25 2b 36 34 29 3d  22 43 6f 75 6e 74 22 0d  |ck%+64)="Count".|
000013d0  07 c6 28 6d 70 62 6c 6f  63 6b 25 21 37 36 3d 26  |..(mpblock%!76=&|
000013e0  38 30 3a 6d 70 62 6c 6f  63 6b 25 21 38 30 3d 6d  |80:mpblock%!80=m|
000013f0  77 62 6c 6f 63 6b 25 0d  07 d0 19 6d 70 62 6c 6f  |wblock%....mpblo|
00001400  63 6b 25 21 38 34 3d 26  30 37 30 31 39 30 33 31  |ck%!84=&07019031|
00001410  0d 07 da 19 24 28 6d 70  62 6c 6f 63 6b 25 2b 38  |....$(mpblock%+8|
00001420  38 29 3d 22 57 69 70 65  22 0d 07 e4 05 3a 0d 07  |8)="Wipe"....:..|
00001430  ee 15 24 6d 75 62 6c 6f  63 6b 25 3d 22 43 6f 75  |..$mublock%="Cou|
00001440  6e 74 22 0d 07 f8 19 6d  75 62 6c 6f 63 6b 25 21  |nt"....mublock%!|
00001450  31 32 3d 26 30 30 30 37  30 32 30 37 0d 08 02 30  |12=&00070207...0|
00001460  6d 75 62 6c 6f 63 6b 25  21 31 36 3d 31 32 38 3a  |mublock%!16=128:|
00001470  6d 75 62 6c 6f 63 6b 25  21 32 30 3d 34 34 3a 6d  |mublock%!20=44:m|
00001480  75 62 6c 6f 63 6b 25 21  32 34 3d 30 0d 08 0c 20  |ublock%!24=0... |
00001490  6d 75 62 6c 6f 63 6b 25  21 32 38 3d 94 28 63 6f  |mublock%!28=.(co|
000014a0  75 6e 74 6f 70 74 73 25  28 30 29 29 0d 08 16 28  |untopts%(0))...(|
000014b0  6d 75 62 6c 6f 63 6b 25  21 33 32 3d 2d 31 3a 6d  |mublock%!32=-1:m|
000014c0  75 62 6c 6f 63 6b 25 21  33 36 3d 26 30 37 30 31  |ublock%!36=&0701|
000014d0  39 30 33 31 0d 08 20 1c  24 28 6d 75 62 6c 6f 63  |9031.. .$(mubloc|
000014e0  6b 25 2b 34 30 29 3d 22  43 6f 6e 66 69 72 6d 22  |k%+40)="Confirm"|
000014f0  0d 08 2a 20 6d 75 62 6c  6f 63 6b 25 21 35 32 3d  |..* mublock%!52=|
00001500  94 28 63 6f 75 6e 74 6f  70 74 73 25 28 31 29 29  |.(countopts%(1))|
00001510  0d 08 34 28 6d 75 62 6c  6f 63 6b 25 21 35 36 3d  |..4(mublock%!56=|
00001520  2d 31 3a 6d 75 62 6c 6f  63 6b 25 21 36 30 3d 26  |-1:mublock%!60=&|
00001530  30 37 30 31 39 30 33 31  0d 08 3e 1c 24 28 6d 75  |07019031..>.$(mu|
00001540  62 6c 6f 63 6b 25 2b 36  34 29 3d 22 52 65 63 75  |block%+64)="Recu|
00001550  72 73 65 22 0d 08 48 24  6d 75 62 6c 6f 63 6b 25  |rse"..H$mublock%|
00001560  21 37 36 3d 26 38 30 2b  94 28 63 6f 75 6e 74 6f  |!76=&80+.(counto|
00001570  70 74 73 25 28 32 29 29  0d 08 52 28 6d 75 62 6c  |pts%(2))..R(mubl|
00001580  6f 63 6b 25 21 38 30 3d  2d 31 3a 6d 75 62 6c 6f  |ock%!80=-1:mublo|
00001590  63 6b 25 21 38 34 3d 26  30 37 30 31 39 30 33 31  |ck%!84=&07019031|
000015a0  0d 08 5c 1c 24 28 6d 75  62 6c 6f 63 6b 25 2b 38  |..\.$(mublock%+8|
000015b0  38 29 3d 22 56 65 72 62  6f 73 65 22 0d 08 66 05  |8)="Verbose"..f.|
000015c0  3a 0d 08 70 14 24 6d 77  62 6c 6f 63 6b 25 3d 22  |:..p.$mwblock%="|
000015d0  57 69 70 65 22 0d 08 7a  19 6d 77 62 6c 6f 63 6b  |Wipe"..z.mwblock|
000015e0  25 21 31 32 3d 26 30 30  30 37 30 32 30 37 0d 08  |%!12=&00070207..|
000015f0  84 30 6d 77 62 6c 6f 63  6b 25 21 31 36 3d 31 33  |.0mwblock%!16=13|
00001600  30 3a 6d 77 62 6c 6f 63  6b 25 21 32 30 3d 34 34  |0:mwblock%!20=44|
00001610  3a 6d 77 62 6c 6f 63 6b  25 21 32 34 3d 30 0d 08  |:mwblock%!24=0..|
00001620  8e 1f 6d 77 62 6c 6f 63  6b 25 21 32 38 3d 94 28  |..mwblock%!28=.(|
00001630  77 69 70 65 6f 70 74 73  25 28 30 29 29 0d 08 98  |wipeopts%(0))...|
00001640  28 6d 77 62 6c 6f 63 6b  25 21 33 32 3d 2d 31 3a  |(mwblock%!32=-1:|
00001650  6d 77 62 6c 6f 63 6b 25  21 33 36 3d 26 30 37 30  |mwblock%!36=&070|
00001660  31 39 30 33 31 0d 08 a2  1c 24 28 6d 77 62 6c 6f  |19031....$(mwblo|
00001670  63 6b 25 2b 34 30 29 3d  22 43 6f 6e 66 69 72 6d  |ck%+40)="Confirm|
00001680  22 0d 08 ac 1f 6d 77 62  6c 6f 63 6b 25 21 35 32  |"....mwblock%!52|
00001690  3d 94 28 77 69 70 65 6f  70 74 73 25 28 31 29 29  |=.(wipeopts%(1))|
000016a0  0d 08 b6 28 6d 77 62 6c  6f 63 6b 25 21 35 36 3d  |...(mwblock%!56=|
000016b0  2d 31 3a 6d 77 62 6c 6f  63 6b 25 21 36 30 3d 26  |-1:mwblock%!60=&|
000016c0  30 37 30 31 39 30 33 31  0d 08 c0 1a 24 28 6d 77  |07019031....$(mw|
000016d0  62 6c 6f 63 6b 25 2b 36  34 29 3d 22 46 6f 72 63  |block%+64)="Forc|
000016e0  65 22 0d 08 ca 1f 6d 77  62 6c 6f 63 6b 25 21 37  |e"....mwblock%!7|
000016f0  36 3d 94 28 77 69 70 65  6f 70 74 73 25 28 32 29  |6=.(wipeopts%(2)|
00001700  29 0d 08 d4 28 6d 77 62  6c 6f 63 6b 25 21 38 30  |)...(mwblock%!80|
00001710  3d 2d 31 3a 6d 77 62 6c  6f 63 6b 25 21 38 34 3d  |=-1:mwblock%!84=|
00001720  26 30 37 30 31 39 30 33  31 0d 08 de 1c 24 28 6d  |&07019031....$(m|
00001730  77 62 6c 6f 63 6b 25 2b  38 38 29 3d 22 52 65 63  |wblock%+88)="Rec|
00001740  75 72 73 65 22 0d 08 e8  24 6d 77 62 6c 6f 63 6b  |urse"...$mwblock|
00001750  25 21 31 30 30 3d 26 38  30 2b 94 28 77 69 70 65  |%!100=&80+.(wipe|
00001760  6f 70 74 73 25 28 33 29  29 0d 08 f2 2a 6d 77 62  |opts%(3))...*mwb|
00001770  6c 6f 63 6b 25 21 31 30  34 3d 2d 31 3a 6d 77 62  |lock%!104=-1:mwb|
00001780  6c 6f 63 6b 25 21 31 30  38 3d 26 30 37 30 31 39  |lock%!108=&07019|
00001790  30 33 31 0d 08 fc 1d 24  28 6d 77 62 6c 6f 63 6b  |031....$(mwblock|
000017a0  25 2b 31 31 32 29 3d 22  56 65 72 62 6f 73 65 22  |%+112)="Verbose"|
000017b0  0d 09 06 05 3a 0d 09 10  14 24 6d 63 62 6c 6f 63  |....:....$mcbloc|
000017c0  6b 25 3d 22 43 6f 70 79  22 0d 09 1a 19 6d 63 62  |k%="Copy"....mcb|
000017d0  6c 6f 63 6b 25 21 31 32  3d 26 30 30 30 37 30 32  |lock%!12=&000702|
000017e0  30 37 0d 09 24 30 6d 63  62 6c 6f 63 6b 25 21 31  |07..$0mcblock%!1|
000017f0  36 3d 31 35 36 3a 6d 63  62 6c 6f 63 6b 25 21 32  |6=156:mcblock%!2|
00001800  30 3d 34 34 3a 6d 63 62  6c 6f 63 6b 25 21 32 34  |0=44:mcblock%!24|
00001810  3d 30 0d 09 2e 1f 6d 63  62 6c 6f 63 6b 25 21 32  |=0....mcblock%!2|
00001820  38 3d 94 28 63 6f 70 79  6f 70 74 73 25 28 30 29  |8=.(copyopts%(0)|
00001830  29 0d 09 38 28 6d 63 62  6c 6f 63 6b 25 21 33 32  |)..8(mcblock%!32|
00001840  3d 2d 31 3a 6d 63 62 6c  6f 63 6b 25 21 33 36 3d  |=-1:mcblock%!36=|
00001850  26 30 37 30 31 39 30 33  31 0d 09 42 1b 24 28 6d  |&07019031..B.$(m|
00001860  63 62 6c 6f 63 6b 25 2b  34 30 29 3d 22 41 63 63  |cblock%+40)="Acc|
00001870  65 73 73 22 0d 09 4c 1f  6d 63 62 6c 6f 63 6b 25  |ess"..L.mcblock%|
00001880  21 35 32 3d 94 28 63 6f  70 79 6f 70 74 73 25 28  |!52=.(copyopts%(|
00001890  31 29 29 0d 09 56 28 6d  63 62 6c 6f 63 6b 25 21  |1))..V(mcblock%!|
000018a0  35 36 3d 2d 31 3a 6d 63  62 6c 6f 63 6b 25 21 36  |56=-1:mcblock%!6|
000018b0  30 3d 26 30 37 30 31 39  30 33 31 0d 09 60 1c 24  |0=&07019031..`.$|
000018c0  28 6d 63 62 6c 6f 63 6b  25 2b 36 34 29 3d 22 43  |(mcblock%+64)="C|
000018d0  6f 6e 66 69 72 6d 22 0d  09 6a 1f 6d 63 62 6c 6f  |onfirm"..j.mcblo|
000018e0  63 6b 25 21 37 36 3d 94  28 63 6f 70 79 6f 70 74  |ck%!76=.(copyopt|
000018f0  73 25 28 32 29 29 0d 09  74 28 6d 63 62 6c 6f 63  |s%(2))..t(mcbloc|
00001900  6b 25 21 38 30 3d 2d 31  3a 6d 63 62 6c 6f 63 6b  |k%!80=-1:mcblock|
00001910  25 21 38 34 3d 26 30 37  30 31 39 30 33 31 0d 09  |%!84=&07019031..|
00001920  7e 1b 24 28 6d 63 62 6c  6f 63 6b 25 2b 38 38 29  |~.$(mcblock%+88)|
00001930  3d 22 44 65 6c 65 74 65  22 0d 09 88 20 6d 63 62  |="Delete"... mcb|
00001940  6c 6f 63 6b 25 21 31 30  30 3d 94 28 63 6f 70 79  |lock%!100=.(copy|
00001950  6f 70 74 73 25 28 33 29  29 0d 09 92 2a 6d 63 62  |opts%(3))...*mcb|
00001960  6c 6f 63 6b 25 21 31 30  34 3d 2d 31 3a 6d 63 62  |lock%!104=-1:mcb|
00001970  6c 6f 63 6b 25 21 31 30  38 3d 26 30 37 30 31 39  |lock%!108=&07019|
00001980  30 33 31 0d 09 9c 1b 24  28 6d 63 62 6c 6f 63 6b  |031....$(mcblock|
00001990  25 2b 31 31 32 29 3d 22  46 6f 72 63 65 22 0d 09  |%+112)="Force"..|
000019a0  a6 20 6d 63 62 6c 6f 63  6b 25 21 31 32 34 3d 94  |. mcblock%!124=.|
000019b0  28 63 6f 70 79 6f 70 74  73 25 28 34 29 29 0d 09  |(copyopts%(4))..|
000019c0  b0 2a 6d 63 62 6c 6f 63  6b 25 21 31 32 38 3d 2d  |.*mcblock%!128=-|
000019d0  31 3a 6d 63 62 6c 6f 63  6b 25 21 31 33 32 3d 26  |1:mcblock%!132=&|
000019e0  30 37 30 31 39 30 33 31  0d 09 ba 1a 24 28 6d 63  |07019031....$(mc|
000019f0  62 6c 6f 63 6b 25 2b 31  33 36 29 3d 22 4c 6f 6f  |block%+136)="Loo|
00001a00  6b 22 0d 09 c4 20 6d 63  62 6c 6f 63 6b 25 21 31  |k"... mcblock%!1|
00001a10  34 38 3d 94 28 63 6f 70  79 6f 70 74 73 25 28 35  |48=.(copyopts%(5|
00001a20  29 29 0d 09 ce 2a 6d 63  62 6c 6f 63 6b 25 21 31  |))...*mcblock%!1|
00001a30  35 32 3d 2d 31 3a 6d 63  62 6c 6f 63 6b 25 21 31  |52=-1:mcblock%!1|
00001a40  35 36 3d 26 30 37 30 31  39 30 33 31 0d 09 d8 1b  |56=&07019031....|
00001a50  24 28 6d 63 62 6c 6f 63  6b 25 2b 31 36 30 29 3d  |$(mcblock%+160)=|
00001a60  22 4e 65 77 65 72 22 0d  09 e2 20 6d 63 62 6c 6f  |"Newer"... mcblo|
00001a70  63 6b 25 21 31 37 32 3d  94 28 63 6f 70 79 6f 70  |ck%!172=.(copyop|
00001a80  74 73 25 28 36 29 29 0d  09 ec 2a 6d 63 62 6c 6f  |ts%(6))...*mcblo|
00001a90  63 6b 25 21 31 37 36 3d  2d 31 3a 6d 63 62 6c 6f  |ck%!176=-1:mcblo|
00001aa0  63 6b 25 21 31 38 30 3d  26 30 37 30 31 39 30 33  |ck%!180=&0701903|
00001ab0  31 0d 09 f6 1c 24 28 6d  63 62 6c 6f 63 6b 25 2b  |1....$(mcblock%+|
00001ac0  31 38 34 29 3d 22 50 72  6f 6d 70 74 22 0d 0a 00  |184)="Prompt"...|
00001ad0  20 6d 63 62 6c 6f 63 6b  25 21 31 39 36 3d 94 28  | mcblock%!196=.(|
00001ae0  63 6f 70 79 6f 70 74 73  25 28 37 29 29 0d 0a 0a  |copyopts%(7))...|
00001af0  2a 6d 63 62 6c 6f 63 6b  25 21 32 30 30 3d 2d 31  |*mcblock%!200=-1|
00001b00  3a 6d 63 62 6c 6f 63 6b  25 21 32 30 34 3d 26 30  |:mcblock%!204=&0|
00001b10  37 30 31 39 30 33 31 0d  0a 14 1d 24 28 6d 63 62  |7019031....$(mcb|
00001b20  6c 6f 63 6b 25 2b 32 30  38 29 3d 22 21 51 75 69  |lock%+208)="!Qui|
00001b30  63 6b 21 22 0d 0a 1e 20  6d 63 62 6c 6f 63 6b 25  |ck!"... mcblock%|
00001b40  21 32 32 30 3d 94 28 63  6f 70 79 6f 70 74 73 25  |!220=.(copyopts%|
00001b50  28 38 29 29 0d 0a 28 2a  6d 63 62 6c 6f 63 6b 25  |(8))..(*mcblock%|
00001b60  21 32 32 34 3d 2d 31 3a  6d 63 62 6c 6f 63 6b 25  |!224=-1:mcblock%|
00001b70  21 32 32 38 3d 26 30 37  30 31 39 30 33 31 0d 0a  |!228=&07019031..|
00001b80  32 1d 24 28 6d 63 62 6c  6f 63 6b 25 2b 32 33 32  |2.$(mcblock%+232|
00001b90  29 3d 22 52 65 63 75 72  73 65 22 0d 0a 3c 20 6d  |)="Recurse"..< m|
00001ba0  63 62 6c 6f 63 6b 25 21  32 34 34 3d 94 28 63 6f  |cblock%!244=.(co|
00001bb0  70 79 6f 70 74 73 25 28  39 29 29 0d 0a 46 2a 6d  |pyopts%(9))..F*m|
00001bc0  63 62 6c 6f 63 6b 25 21  32 34 38 3d 2d 31 3a 6d  |cblock%!248=-1:m|
00001bd0  63 62 6c 6f 63 6b 25 21  32 35 32 3d 26 30 37 30  |cblock%!252=&070|
00001be0  31 39 30 33 31 0d 0a 50  1b 24 28 6d 63 62 6c 6f  |19031..P.$(mcblo|
00001bf0  63 6b 25 2b 32 35 36 29  3d 22 53 74 61 6d 70 22  |ck%+256)="Stamp"|
00001c00  0d 0a 5a 21 6d 63 62 6c  6f 63 6b 25 21 32 36 38  |..Z!mcblock%!268|
00001c10  3d 94 28 63 6f 70 79 6f  70 74 73 25 28 31 30 29  |=.(copyopts%(10)|
00001c20  29 0d 0a 64 2a 6d 63 62  6c 6f 63 6b 25 21 32 37  |)..d*mcblock%!27|
00001c30  32 3d 2d 31 3a 6d 63 62  6c 6f 63 6b 25 21 32 37  |2=-1:mcblock%!27|
00001c40  36 3d 26 30 37 30 31 39  30 33 31 0d 0a 6e 1f 24  |6=&07019031..n.$|
00001c50  28 6d 63 62 6c 6f 63 6b  25 2b 32 38 30 29 3d 22  |(mcblock%+280)="|
00001c60  53 74 72 75 63 74 75 72  65 22 0d 0a 78 25 6d 63  |Structure"..x%mc|
00001c70  62 6c 6f 63 6b 25 21 32  39 32 3d 26 38 30 2b 94  |block%!292=&80+.|
00001c80  28 63 6f 70 79 6f 70 74  73 25 28 31 31 29 29 0d  |(copyopts%(11)).|
00001c90  0a 82 2a 6d 63 62 6c 6f  63 6b 25 21 32 39 36 3d  |..*mcblock%!296=|
00001ca0  2d 31 3a 6d 63 62 6c 6f  63 6b 25 21 33 30 30 3d  |-1:mcblock%!300=|
00001cb0  26 30 37 30 31 39 30 33  31 0d 0a 8c 1d 24 28 6d  |&07019031....$(m|
00001cc0  63 62 6c 6f 63 6b 25 2b  33 30 34 29 3d 22 56 65  |cblock%+304)="Ve|
00001cd0  72 62 6f 73 65 22 0d 0a  96 2b c8 99 20 22 57 69  |rbose"...+.. "Wi|
00001ce0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00001cf0  6d 62 6c 6f 63 6b 25 2c  6d 70 6f 73 25 2c 33 36  |mblock%,mpos%,36|
00001d00  30 0d 0a a0 05 e1 0d 0a  aa 05 3a 0d 0a b4 1c dd  |0.........:.....|
00001d10  20 f2 72 65 63 69 65 76  65 5f 6d 65 73 73 28 75  | .recieve_mess(u|
00001d20  62 6c 6f 63 6b 25 29 0d  0a be 15 c8 8e 20 28 75  |block%)...... (u|
00001d30  62 6c 6f 63 6b 25 21 31  36 29 20 ca 0d 0a c8 0f  |block%!16) .....|
00001d40  c9 20 30 3a 71 75 69 74  25 3d b9 0d 0a d2 0e c9  |. 0:quit%=......|
00001d50  20 32 3a f2 64 73 61 63  6b 0d 0a dc 26 c9 20 33  | 2:.dsack...&. 3|
00001d60  3a f2 64 61 74 61 6c 6f  61 64 28 a4 73 74 72 69  |:.dataload(.stri|
00001d70  6e 67 28 75 62 6c 6f 63  6b 25 2b 34 34 29 29 0d  |ng(ublock%+44)).|
00001d80  0a e6 05 cb 0d 0a f0 05  e1 0d 0a fa 05 3a 0d 0b  |.............:..|
00001d90  04 16 dd 20 f2 64 61 74  61 6c 6f 61 64 28 66 69  |... .dataload(fi|
00001da0  6c 65 24 29 0d 0b 0e 10  24 66 69 6c 65 25 3d 66  |le$)....$file%=f|
00001db0  69 6c 65 24 0d 0b 18 14  e7 20 a6 28 2d 36 32 29  |ile$..... .(-62)|
00001dc0  20 f2 69 6e 66 6f 3a e1  0d 0b 22 1e e7 20 a6 28  | .info:...".. .(|
00001dd0  2d 39 30 29 20 ff 20 22  57 69 70 65 20 22 2b 66  |-90) . "Wipe "+f|
00001de0  69 6c 65 24 3a e1 0d 0b  2c 15 c8 8e 20 28 75 62  |ile$:...,... (ub|
00001df0  6c 6f 63 6b 25 21 32 30  29 20 ca 0d 0b 36 13 c9  |lock%!20) ...6..|
00001e00  20 66 69 6e 66 6f 68 25  3a f2 69 6e 66 6f 0d 0b  | finfoh%:.info..|
00001e10  40 15 c9 20 73 65 74 74  68 25 3a f2 73 65 74 74  |@.. setth%:.sett|
00001e20  79 70 65 0d 0b 4a 0c 7f  3a f2 62 61 73 69 63 0d  |ype..J..:.basic.|
00001e30  0b 54 05 cb 0d 0b 5e 05  e1 0d 0b 68 05 3a 0d 0b  |.T....^....h.:..|
00001e40  72 0c dd 20 f2 62 61 73  69 63 0d 0b 7c 0d 2a 46  |r.. .basic..|.*F|
00001e50  58 20 32 32 35 20 31 0d  0b 86 0f e7 20 ac 20 a6  |X 225 1..... . .|
00001e60  28 2d 31 29 20 8c 0d 0b  90 1a 2a 53 45 54 20 4b  |(-1) .....*SET K|
00001e70  65 79 24 53 74 6f 72 65  20 3c 4b 65 79 24 30 3e  |ey$Store <Key$0>|
00001e80  0d 0b 9a 25 2a 4b 45 59  20 30 20 2a 4b 45 59 20  |...%*KEY 0 *KEY |
00001e90  30 20 3c 4b 65 79 24 53  74 6f 72 65 3e 7c 4d 45  |0 <Key$Store>|ME|
00001ea0  44 49 54 7c 4d 0d 0b a4  11 2a 46 58 20 31 33 38  |DIT|M....*FX 138|
00001eb0  20 30 20 31 32 38 0d 0b  ae 05 cd 0d 0b b8 35 2a  | 0 128........5*|
00001ec0  4b 45 59 20 34 20 3c 30  3e 3c 26 39 34 3e 53 59  |KEY 4 <0><&94>SY|
00001ed0  53 22 57 69 6d 70 5f 43  6f 6d 6d 61 6e 64 57 69  |S"Wimp_CommandWi|
00001ee0  6e 64 6f 77 22 2c 2d 31  7c 4d 51 55 49 54 7c 4d  |ndow",-1|MQUIT|M|
00001ef0  0d 0b c2 11 e7 20 66 69  6c 65 24 3c 3e 22 22 20  |..... file$<>"" |
00001f00  8c 0d 0b cc 0d f2 70 61  74 68 6e 61 6d 65 0d 0b  |......pathname..|
00001f10  d6 12 ff 20 22 44 69 72  20 22 2b 70 61 74 68 24  |... "Dir "+path$|
00001f20  0d 0b e0 19 66 69 6c 65  24 3d 22 20 2d 6c 6f 61  |....file$=" -loa|
00001f30  64 20 22 2b 66 69 6c 65  24 0d 0b ea 05 cd 0d 0b  |d "+file$.......|
00001f40  f4 1d ff 28 22 57 69 6d  70 54 61 73 6b 20 42 61  |...("WimpTask Ba|
00001f50  73 69 63 22 2b 66 69 6c  65 24 29 0d 0b fe 05 e1  |sic"+file$).....|
00001f60  0d 0c 08 05 3a 0d 0c 12  0f dd 20 f2 70 61 74 68  |....:..... .path|
00001f70  6e 61 6d 65 0d 0c 1c 0d  6e 65 77 70 6f 73 25 3d  |name....newpos%=|
00001f80  31 0d 0c 26 05 f5 0d 0c  30 13 6f 6c 64 70 6f 73  |1..&....0.oldpos|
00001f90  25 3d 6e 65 77 70 6f 73  25 0d 0c 3a 21 6e 65 77  |%=newpos%..:!new|
00001fa0  70 6f 73 25 3d a7 66 69  6c 65 24 2c 22 2e 22 2c  |pos%=.file$,".",|
00001fb0  6f 6c 64 70 6f 73 25 29  2b 31 0d 0c 44 0f fd 20  |oldpos%)+1..D.. |
00001fc0  6e 65 77 70 6f 73 25 3d  31 0d 0c 4e 20 65 6e 64  |newpos%=1..N end|
00001fd0  70 6f 73 25 3d a9 28 66  69 6c 65 24 29 2d 28 6f  |pos%=.(file$)-(o|
00001fe0  6c 64 70 6f 73 25 2d 31  29 0d 0c 58 31 70 61 74  |ldpos%-1)..X1pat|
00001ff0  68 24 3d c0 66 69 6c 65  24 2c 6f 6c 64 70 6f 73  |h$=.file$,oldpos|
00002000  25 2d 32 29 3a 6e 61 6d  65 24 3d c2 66 69 6c 65  |%-2):name$=.file|
00002010  24 2c 65 6e 64 70 6f 73  25 29 0d 0c 62 05 e1 0d  |$,endpos%)..b...|
00002020  0c 6c 05 3a 0d 0c 76 13  dd 20 a4 73 74 72 69 6e  |.l.:..v.. .strin|
00002030  67 28 70 74 72 25 29 0d  0c 80 0e ea 20 53 24 3a  |g(ptr%)..... S$:|
00002040  53 24 3d 22 22 0d 0c 8a  19 c8 95 20 3f 70 74 72  |S$=""...... ?ptr|
00002050  25 3a 53 24 2b 3d bd 28  3f 70 74 72 25 29 0d 0c  |%:S$+=.(?ptr%)..|
00002060  94 11 70 74 72 25 2b 3d  31 3a ce 3a 3d 53 24 0d  |..ptr%+=1:.:=S$.|
00002070  0c 9e 05 3a 0d 0c a8 0c  dd 20 f2 65 72 72 6f 72  |...:..... .error|
00002080  0d 0c b2 18 c8 99 20 22  57 69 6d 70 5f 44 72 61  |...... "Wimp_Dra|
00002090  67 42 6f 78 22 2c 2c 30  0d 0c bc 0d 21 62 6c 6f  |gBox",,0....!blo|
000020a0  63 6b 25 3d 9f 0d 0c c6  37 24 28 62 6c 6f 63 6b  |ck%=....7$(block|
000020b0  25 2b 34 29 3d 22 28 49  6e 74 65 72 6e 61 6c 20  |%+4)="(Internal |
000020c0  65 72 72 6f 72 20 63 6f  64 65 20 22 2b c3 28 9e  |error code "+.(.|
000020d0  29 2b 22 29 20 22 2b f6  24 2b bd 30 0d 0c d0 2f  |)+") "+.$+.0.../|
000020e0  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
000020f0  72 72 6f 72 22 2c 62 6c  6f 63 6b 25 2c 31 2c 22  |rror",block%,1,"|
00002100  21 44 65 73 6b 55 74 69  6c 73 22 0d 0c da 05 e0  |!DeskUtils".....|
00002110  0d 0c e4 05 e1 0d 0c ee  05 3a 0d 0c f8 0b dd 20  |.........:..... |
00002120  f2 64 72 61 67 0d 0d 02  0e 21 64 62 6c 6f 63 6b  |.drag....!dblock|
00002130  25 3d 30 0d 0d 0c 0f 64  62 6c 6f 63 6b 25 21 34  |%=0....dblock%!4|
00002140  3d 35 0d 0d 16 1b 64 62  6c 6f 63 6b 25 21 38 3d  |=5....dblock%!8=|
00002150  28 21 75 62 6c 6f 63 6b  25 29 2d 33 32 0d 0d 20  |(!ublock%)-32.. |
00002160  1d 64 62 6c 6f 63 6b 25  21 31 32 3d 28 75 62 6c  |.dblock%!12=(ubl|
00002170  6f 63 6b 25 21 34 29 2d  33 32 0d 0d 2a 1c 64 62  |ock%!4)-32..*.db|
00002180  6c 6f 63 6b 25 21 31 36  3d 28 21 75 62 6c 6f 63  |lock%!16=(!ubloc|
00002190  6b 25 29 2b 33 32 0d 0d  34 1d 64 62 6c 6f 63 6b  |k%)+32..4.dblock|
000021a0  25 21 32 30 3d 28 75 62  6c 6f 63 6b 25 21 34 29  |%!20=(ublock%!4)|
000021b0  2b 33 32 0d 0d 3e 10 64  62 6c 6f 63 6b 25 21 32  |+32..>.dblock%!2|
000021c0  34 3d 30 0d 0d 48 10 64  62 6c 6f 63 6b 25 21 32  |4=0..H.dblock%!2|
000021d0  38 3d 30 0d 0d 52 13 64  62 6c 6f 63 6b 25 21 33  |8=0..R.dblock%!3|
000021e0  32 3d 26 46 46 46 0d 0d  5c 13 64 62 6c 6f 63 6b  |2=&FFF..\.dblock|
000021f0  25 21 33 36 3d 26 46 46  46 0d 0d 66 1e c8 99 20  |%!36=&FFF..f... |
00002200  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00002210  64 62 6c 6f 63 6b 25 0d  0d 70 05 e1 0d 0d 7a 05  |dblock%..p....z.|
00002220  3a 0d 0d 84 0e dd 20 f2  65 6e 64 64 72 61 67 0d  |:..... .enddrag.|
00002230  0d 8e 25 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |..%.. "Wimp_GetP|
00002240  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 64 62 6c  |ointerInfo",,dbl|
00002250  6f 63 6b 25 0d 0d 98 14  e7 20 64 62 6c 6f 63 6b  |ock%..... dblock|
00002260  25 21 31 32 3c 30 20 e1  0d 0d a2 34 21 74 62 6c  |%!12<0 ....4!tbl|
00002270  6f 63 6b 25 3d 34 38 3a  74 62 6c 6f 63 6b 25 21  |ock%=48:tblock%!|
00002280  34 3d 30 3a 74 62 6c 6f  63 6b 25 21 38 3d 30 3a  |4=0:tblock%!8=0:|
00002290  74 62 6c 6f 63 6b 25 21  31 32 3d 30 0d 0d ac 3c  |tblock%!12=0...<|
000022a0  74 62 6c 6f 63 6b 25 21  31 36 3d 31 3a 74 62 6c  |tblock%!16=1:tbl|
000022b0  6f 63 6b 25 21 32 30 3d  64 62 6c 6f 63 6b 25 21  |ock%!20=dblock%!|
000022c0  31 32 3a 74 62 6c 6f 63  6b 25 21 32 34 3d 64 62  |12:tblock%!24=db|
000022d0  6c 6f 63 6b 25 21 31 36  0d 0d b6 2c 74 62 6c 6f  |lock%!16...,tblo|
000022e0  63 6b 25 21 32 38 3d 21  64 62 6c 6f 63 6b 25 3a  |ck%!28=!dblock%:|
000022f0  74 62 6c 6f 63 6b 25 21  33 32 3d 64 62 6c 6f 63  |tblock%!32=dbloc|
00002300  6b 25 21 34 0d 0d c0 2a  74 62 6c 6f 63 6b 25 21  |k%!4...*tblock%!|
00002310  33 36 3d 30 3a 74 62 6c  6f 63 6b 25 21 34 30 3d  |36=0:tblock%!40=|
00002320  30 3a 74 62 6c 6f 63 6b  25 3f 34 34 3d 30 0d 0d  |0:tblock%?44=0..|
00002330  ca 2f c8 99 20 22 57 69  6d 70 5f 53 65 6e 64 4d  |./.. "Wimp_SendM|
00002340  65 73 73 61 67 65 22 2c  31 38 2c 74 62 6c 6f 63  |essage",18,tbloc|
00002350  6b 25 2c 64 62 6c 6f 63  6b 25 21 31 32 0d 0d d4  |k%,dblock%!12...|
00002360  05 e1 0d 0d de 05 3a 0d  0d e8 0c dd 20 f2 64 73  |......:..... .ds|
00002370  61 63 6b 0d 0d f2 15 e7  20 75 62 6c 6f 63 6b 25  |ack..... ublock%|
00002380  21 33 36 3d 2d 31 20 e1  0d 0d fc 1d 6e 61 6d 65  |!36=-1 .....name|
00002390  24 3d a4 73 74 72 69 6e  67 28 75 62 6c 6f 63 6b  |$=.string(ublock|
000023a0  25 2b 34 34 29 0d 0e 06  1c 6e 61 6d 65 24 3d c0  |%+44)....name$=.|
000023b0  6e 61 6d 65 24 2c a9 28  6e 61 6d 65 24 29 2d 31  |name$,.(name$)-1|
000023c0  29 0d 0e 10 12 ff 20 22  44 49 52 20 22 2b 6e 61  |)..... "DIR "+na|
000023d0  6d 65 24 0d 0e 1a 05 e1  0d 0e 24 05 3a 0d 0e 2e  |me$.......$.:...|
000023e0  0f dd 20 f2 69 6e 64 69  72 65 63 74 0d 0e 38 10  |.. .indirect..8.|
000023f0  50 25 21 37 32 3d 69 6e  61 6d 65 25 0d 0e 42 12  |P%!72=iname%..B.|
00002400  50 25 21 31 34 30 3d 69  74 79 70 65 31 25 0d 0e  |P%!140=itype1%..|
00002410  4c 12 50 25 21 31 37 32  3d 69 74 79 70 65 32 25  |L.P%!172=itype2%|
00002420  0d 0e 56 11 50 25 21 32  33 36 3d 69 6c 6f 61 64  |..V.P%!236=iload|
00002430  25 0d 0e 60 11 50 25 21  33 30 30 3d 69 65 78 65  |%..`.P%!300=iexe|
00002440  63 25 0d 0e 6a 10 50 25  21 33 36 34 3d 69 6c 65  |c%..j.P%!364=ile|
00002450  6e 25 0d 0e 74 11 50 25  21 34 32 38 3d 69 64 61  |n%..t.P%!428=ida|
00002460  74 65 25 0d 0e 7e 11 50  25 21 34 39 32 3d 69 74  |te%..~.P%!492=it|
00002470  69 6d 65 25 0d 0e 88 05  3a 0d 0e 92 12 52 25 21  |ime%....:....R%!|
00002480  31 34 30 3d 73 74 79 70  65 31 25 0d 0e 9c 12 52  |140=stype1%....R|
00002490  25 21 31 37 32 3d 73 74  79 70 65 32 25 0d 0e a6  |%!172=stype2%...|
000024a0  11 52 25 21 32 33 36 3d  73 6c 6f 61 64 25 0d 0e  |.R%!236=sload%..|
000024b0  b0 11 52 25 21 33 30 30  3d 73 65 78 65 63 25 0d  |..R%!300=sexec%.|
000024c0  0e ba 05 e1 0d 0e c4 05  3a 0d 0e ce 0b dd 20 f2  |........:..... .|
000024d0  69 6e 66 6f 0d 0e d8 0d  f2 70 61 74 68 6e 61 6d  |info.....pathnam|
000024e0  65 0d 0e e2 21 24 70 61  74 68 25 3d 70 61 74 68  |e...!$path%=path|
000024f0  24 2b 22 2e 22 3a 24 6e  61 6d 65 25 3d 6e 61 6d  |$+".":$name%=nam|
00002500  65 24 0d 0e ec 11 24 66  69 6c 65 32 25 3d 66 69  |e$....$file2%=fi|
00002510  6c 65 24 0d 0e f6 40 c8  99 20 22 4f 53 5f 46 69  |le$...@.. "OS_Fi|
00002520  6c 65 22 2c 31 33 2c 6e  61 6d 65 25 2c 2c 2c 70  |le",13,name%,,,p|
00002530  61 74 68 25 20 b8 20 6f  62 6a 25 2c 2c 6c 6f 61  |ath% . obj%,,loa|
00002540  64 25 2c 65 78 65 63 25  2c 6c 65 6e 25 2c 61 74  |d%,exec%,len%,at|
00002550  74 72 25 0d 0f 00 0f e7  20 6f 62 6a 25 3c 3e 31  |tr%..... obj%<>1|
00002560  20 e1 0d 0f 0a 25 e7 20  28 6c 6f 61 64 25 20 80  | ....%. (load% .|
00002570  20 26 46 46 46 30 30 30  30 30 29 3d 26 46 46 46  | &FFF00000)=&FFF|
00002580  30 30 30 30 30 20 8c 0d  0f 14 1d 74 79 70 65 25  |00000 .....type%|
00002590  3d 28 6c 6f 61 64 25 20  80 20 26 46 46 46 30 30  |=(load% . &FFF00|
000025a0  29 3e 3e 38 0d 0f 1e 1a  73 74 62 6c 6f 63 6b 25  |)>>8....stblock%|
000025b0  3f 34 3d 6c 6f 61 64 25  20 80 20 26 46 46 0d 0f  |?4=load% . &FF..|
000025c0  28 13 21 73 74 62 6c 6f  63 6b 25 3d 65 78 65 63  |(.!stblock%=exec|
000025d0  25 0d 0f 32 3b c8 99 20  22 58 4f 53 5f 43 6f 6e  |%..2;.. "XOS_Con|
000025e0  76 65 72 74 44 61 74 65  41 6e 64 54 69 6d 65 22  |vertDateAndTime"|
000025f0  2c 73 74 62 6c 6f 63 6b  25 2c 69 64 61 74 65 25  |,stblock%,idate%|
00002600  2c 31 38 2c 74 64 62 6c  6f 63 6b 25 0d 0f 3c 3b  |,18,tdblock%..<;|
00002610  c8 99 20 22 58 4f 53 5f  43 6f 6e 76 65 72 74 44  |.. "XOS_ConvertD|
00002620  61 74 65 41 6e 64 54 69  6d 65 22 2c 73 74 62 6c  |ateAndTime",stbl|
00002630  6f 63 6b 25 2c 69 74 69  6d 65 25 2c 31 32 2c 74  |ock%,itime%,12,t|
00002640  66 62 6c 6f 63 6b 25 0d  0f 46 14 24 69 74 79 70  |fblock%..F.$ityp|
00002650  65 31 25 3d c3 7e 74 79  70 65 25 0d 0f 50 2d c8  |e1%=.~type%..P-.|
00002660  99 20 22 4f 53 5f 46 53  43 6f 6e 74 72 6f 6c 22  |. "OS_FSControl"|
00002670  2c 31 38 2c 2c 74 79 70  65 25 20 b8 20 2c 2c 74  |,18,,type% . ,,t|
00002680  6e 31 25 2c 74 6e 32 25  0d 0f 5a 2d 21 69 74 79  |n1%,tn2%..Z-!ity|
00002690  70 65 32 25 3d 74 6e 31  25 3a 69 74 79 70 65 32  |pe2%=tn1%:itype2|
000026a0  25 21 34 3d 74 6e 32 25  3a 69 74 79 70 65 32 25  |%!4=tn2%:itype2%|
000026b0  3f 38 3d 31 33 0d 0f 64  0e 24 69 65 78 65 63 25  |?8=13..d.$iexec%|
000026c0  3d 22 22 0d 0f 6e 0e 24  69 6c 6f 61 64 25 3d 22  |=""..n.$iload%="|
000026d0  22 0d 0f 78 0c 73 74 61  6d 70 25 3d b9 0d 0f 82  |"..x.stamp%=....|
000026e0  05 cc 0d 0f 8c 1b 24 69  74 79 70 65 31 25 3d 22  |......$itype1%="|
000026f0  22 3a 24 69 74 79 70 65  32 25 3d 22 22 0d 0f 96  |":$itype2%=""...|
00002700  19 24 69 74 69 6d 65 25  3d 22 22 3a 24 69 64 61  |.$itime%="":$ida|
00002710  74 65 25 3d 22 22 0d 0f  a0 13 24 69 65 78 65 63  |te%=""....$iexec|
00002720  25 3d c3 7e 65 78 65 63  25 0d 0f aa 13 24 69 6c  |%=.~exec%....$il|
00002730  6f 61 64 25 3d c3 7e 6c  6f 61 64 25 0d 0f b4 0c  |oad%=.~load%....|
00002740  73 74 61 6d 70 25 3d a3  0d 0f be 05 cd 0d 0f c8  |stamp%=.........|
00002750  1f 24 69 6e 61 6d 65 25  3d 22 46 69 6c 65 20 69  |.$iname%="File i|
00002760  6e 66 6f 3a 20 22 2b 6e  61 6d 65 24 0d 0f d2 11  |nfo: "+name$....|
00002770  24 69 6c 65 6e 25 3d c3  7e 6c 65 6e 25 0d 0f dc  |$ilen%=.~len%...|
00002780  25 66 69 6e 66 6f 68 25  3d a4 75 70 64 61 74 65  |%finfoh%=.update|
00002790  77 69 6e 64 6f 77 28 66  69 6e 66 6f 68 25 2c 50  |window(finfoh%,P|
000027a0  25 29 0d 0f e6 05 e1 0d  0f f0 05 3a 0d 0f fa 24  |%).........:...$|
000027b0  dd 20 a4 75 70 64 61 74  65 77 69 6e 64 6f 77 28  |. .updatewindow(|
000027c0  68 61 6e 64 6c 65 25 2c  77 69 6e 64 6f 77 25 29  |handle%,window%)|
000027d0  0d 10 04 13 21 62 6c 6f  63 6b 25 3d 68 61 6e 64  |....!block%=hand|
000027e0  6c 65 25 0d 10 0e 24 c8  99 20 22 57 69 6d 70 5f  |le%...$.. "Wimp_|
000027f0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00002800  2c 62 6c 6f 63 6b 25 0d  10 18 14 21 77 62 6c 6f  |,block%....!wblo|
00002810  63 6b 25 3d 68 61 6e 64  6c 65 25 0d 10 22 23 c8  |ck%=handle%.."#.|
00002820  99 20 22 57 69 6d 70 5f  44 65 6c 65 74 65 57 69  |. "Wimp_DeleteWi|
00002830  6e 64 6f 77 22 2c 2c 77  62 6c 6f 63 6b 25 0d 10  |ndow",,wblock%..|
00002840  2c 2d c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |,-.. "Wimp_Creat|
00002850  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6e 64 6f 77  |eWindow",,window|
00002860  25 20 b8 20 68 61 6e 64  6c 65 25 0d 10 36 13 21  |% . handle%..6.!|
00002870  62 6c 6f 63 6b 25 3d 68  61 6e 64 6c 65 25 0d 10  |block%=handle%..|
00002880  40 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |@ .. "Wimp_OpenW|
00002890  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 10  |indow",,block%..|
000028a0  4a 0c 3d 68 61 6e 64 6c  65 25 0d 10 54 05 3a 0d  |J.=handle%..T.:.|
000028b0  10 5e 11 dd 20 f2 70 72  6f 63 65 73 73 6b 65 79  |.^.. .processkey|
000028c0  0d 10 68 39 e7 20 28 75  62 6c 6f 63 6b 25 21 32  |..h9. (ublock%!2|
000028d0  34 29 3c 3e 26 30 44 20  c8 99 20 22 57 69 6d 70  |4)<>&0D .. "Wimp|
000028e0  5f 50 72 6f 63 65 73 73  4b 65 79 22 2c 75 62 6c  |_ProcessKey",ubl|
000028f0  6f 63 6b 25 21 32 34 3a  e1 0d 10 72 13 c8 8e 20  |ock%!24:...r... |
00002900  28 21 75 62 6c 6f 63 6b  25 29 20 ca 0d 10 7c 0d  |(!ublock%) ...|.|
00002910  c9 20 66 69 6e 66 6f 68  25 0d 10 86 14 c8 8e 20  |. finfoh%...... |
00002920  28 75 62 6c 6f 63 6b 25  21 34 29 20 ca 0d 10 90  |(ublock%!4) ....|
00002930  38 c9 20 31 3a 24 69 74  79 70 65 32 25 3d a4 6e  |8. 1:$itype2%=.n|
00002940  75 6d 74 6f 73 74 72 69  6e 67 28 a0 28 22 26 22  |umtostring(.("&"|
00002950  2b 24 28 69 74 79 70 65  31 25 29 29 29 3a f2 63  |+$(itype1%))):.c|
00002960  6c 65 61 72 62 0d 10 9a  33 c9 20 32 3a 24 69 74  |learb...3. 2:$it|
00002970  79 70 65 31 25 3d c3 7e  28 a4 73 74 72 69 6e 67  |ype1%=.~(.string|
00002980  74 6f 6e 75 6d 28 24 69  74 79 70 65 32 25 29 29  |tonum($itype2%))|
00002990  3a f2 63 6c 65 61 72 62  0d 10 a4 0f c9 20 34 3a  |:.clearb..... 4:|
000029a0  f2 63 6c 65 61 72 61 0d  10 ae 0f c9 20 36 3a f2  |.cleara..... 6:.|
000029b0  63 6c 65 61 72 61 0d 10  b8 05 cb 0d 10 c2 0c c9  |cleara..........|
000029c0  20 73 65 74 74 68 25 0d  10 cc 14 c8 8e 20 28 75  | setth%...... (u|
000029d0  62 6c 6f 63 6b 25 21 34  29 20 ca 0d 10 d6 39 c9  |block%!4) ....9.|
000029e0  20 31 3a 24 73 74 79 70  65 32 25 3d a4 6e 75 6d  | 1:$stype2%=.num|
000029f0  74 6f 73 74 72 69 6e 67  28 a0 28 22 26 22 2b 24  |tostring(.("&"+$|
00002a00  28 73 74 79 70 65 31 25  29 29 29 3a f2 73 63 6c  |(stype1%))):.scl|
00002a10  65 61 72 62 0d 10 e0 34  c9 20 32 3a 24 73 74 79  |earb...4. 2:$sty|
00002a20  70 65 31 25 3d c3 7e 28  a4 73 74 72 69 6e 67 74  |pe1%=.~(.stringt|
00002a30  6f 6e 75 6d 28 24 73 74  79 70 65 32 25 29 29 3a  |onum($stype2%)):|
00002a40  f2 73 63 6c 65 61 72 62  0d 10 ea 10 c9 20 34 3a  |.sclearb..... 4:|
00002a50  f2 73 63 6c 65 61 72 61  0d 10 f4 10 c9 20 36 3a  |.scleara..... 6:|
00002a60  f2 73 63 6c 65 61 72 61  0d 10 fe 05 cb 0d 11 08  |.scleara........|
00002a70  05 cb 0d 11 12 05 e1 0d  11 1c 05 3a 0d 11 26 10  |...........:..&.|
00002a80  dd 20 f2 63 68 65 63 6b  69 63 6f 6e 0d 11 30 15  |. .checkicon..0.|
00002a90  c8 8e 20 28 75 62 6c 6f  63 6b 25 21 31 36 29 20  |.. (ublock%!16) |
00002aa0  ca 0d 11 3a 14 c9 20 31  33 3a f2 75 70 64 61 74  |...:.. 13:.updat|
00002ab0  65 69 6e 66 6f 0d 11 44  13 c9 20 31 34 3a f2 64  |einfo..D.. 14:.d|
00002ac0  61 74 65 73 74 61 6d 70  0d 11 4e 05 cb 0d 11 58  |atestamp..N....X|
00002ad0  05 e1 0d 11 62 05 3a 0d  11 6c 10 dd 20 f2 64 61  |....b.:..l.. .da|
00002ae0  74 65 73 74 61 6d 70 0d  11 76 0f 3f 73 74 62 6c  |testamp..v.?stbl|
00002af0  6f 63 6b 25 3d 33 0d 11  80 1c c8 99 20 22 4f 53  |ock%=3...... "OS|
00002b00  5f 57 6f 72 64 22 2c 31  34 2c 73 74 62 6c 6f 63  |_Word",14,stbloc|
00002b10  6b 25 0d 11 8a 3b c8 99  20 22 58 4f 53 5f 43 6f  |k%...;.. "XOS_Co|
00002b20  6e 76 65 72 74 44 61 74  65 41 6e 64 54 69 6d 65  |nvertDateAndTime|
00002b30  22 2c 73 74 62 6c 6f 63  6b 25 2c 69 74 69 6d 65  |",stblock%,itime|
00002b40  25 2c 31 32 2c 74 66 62  6c 6f 63 6b 25 0d 11 94  |%,12,tfblock%...|
00002b50  3b c8 99 20 22 58 4f 53  5f 43 6f 6e 76 65 72 74  |;.. "XOS_Convert|
00002b60  44 61 74 65 41 6e 64 54  69 6d 65 22 2c 73 74 62  |DateAndTime",stb|
00002b70  6c 6f 63 6b 25 2c 69 64  61 74 65 25 2c 31 36 2c  |lock%,idate%,16,|
00002b80  74 64 62 6c 6f 63 6b 25  0d 11 9e 0b f2 63 6c 65  |tdblock%.....cle|
00002b90  61 72 62 0d 11 a8 05 e1  0d 11 b2 05 3a 0d 11 bc  |arb.........:...|
00002ba0  18 dd 20 a4 6e 75 6d 74  6f 73 74 72 69 6e 67 28  |.. .numtostring(|
00002bb0  6e 75 6d 25 29 0d 11 c6  2c c8 99 20 22 4f 53 5f  |num%)...,.. "OS_|
00002bc0  46 53 43 6f 6e 74 72 6f  6c 22 2c 31 38 2c 2c 6e  |FSControl",18,,n|
00002bd0  75 6d 25 20 b8 20 2c 2c  74 6e 31 25 2c 74 6e 32  |um% . ,,tn1%,tn2|
00002be0  25 0d 11 d0 2a 21 74 74  79 70 65 25 3d 74 6e 31  |%...*!ttype%=tn1|
00002bf0  25 3a 74 74 79 70 65 25  21 34 3d 74 6e 32 25 3a  |%:ttype%!4=tn2%:|
00002c00  74 74 79 70 65 25 3f 38  3d 31 33 0d 11 da 0c 3d  |ttype%?8=13....=|
00002c10  24 74 74 79 70 65 25 0d  11 e4 05 3a 0d 11 ee 1b  |$ttype%....:....|
00002c20  dd 20 a4 73 74 72 69 6e  67 74 6f 6e 75 6d 28 24  |. .stringtonum($|
00002c30  74 74 79 70 65 25 29 0d  11 f8 29 c8 99 20 22 58  |ttype%)...).. "X|
00002c40  4f 53 5f 46 53 43 6f 6e  74 72 6f 6c 22 2c 33 31  |OS_FSControl",31|
00002c50  2c 74 74 79 70 65 25 20  b8 20 2c 2c 6e 75 6d 25  |,ttype% . ,,num%|
00002c60  0d 12 02 09 3d 6e 75 6d  25 0d 12 0c 05 3a 0d 12  |....=num%....:..|
00002c70  16 0d dd 20 f2 63 6c 65  61 72 61 0d 12 20 0e 24  |... .cleara.. .$|
00002c80  69 64 61 74 65 25 3d 22  22 0d 12 2a 0e 24 69 74  |idate%=""..*.$it|
00002c90  69 6d 65 25 3d 22 22 0d  12 34 0f 24 69 74 79 70  |ime%=""..4.$ityp|
00002ca0  65 31 25 3d 22 22 0d 12  3e 0f 24 69 74 79 70 65  |e1%=""..>.$itype|
00002cb0  32 25 3d 22 22 0d 12 48  25 66 69 6e 66 6f 68 25  |2%=""..H%finfoh%|
00002cc0  3d a4 75 70 64 61 74 65  77 69 6e 64 6f 77 28 66  |=.updatewindow(f|
00002cd0  69 6e 66 6f 68 25 2c 50  25 29 0d 12 52 0c 73 74  |infoh%,P%)..R.st|
00002ce0  61 6d 70 25 3d a3 0d 12  5c 05 e1 0d 12 66 05 3a  |amp%=...\....f.:|
00002cf0  0d 12 70 0d dd 20 f2 63  6c 65 61 72 62 0d 12 7a  |..p.. .clearb..z|
00002d00  0e 24 69 65 78 65 63 25  3d 22 22 0d 12 84 0e 24  |.$iexec%=""....$|
00002d10  69 6c 6f 61 64 25 3d 22  22 0d 12 8e 25 66 69 6e  |iload%=""...%fin|
00002d20  66 6f 68 25 3d a4 75 70  64 61 74 65 77 69 6e 64  |foh%=.updatewind|
00002d30  6f 77 28 66 69 6e 66 6f  68 25 2c 50 25 29 0d 12  |ow(finfoh%,P%)..|
00002d40  98 0c 73 74 61 6d 70 25  3d b9 0d 12 a2 05 e1 0d  |..stamp%=.......|
00002d50  12 ac 05 3a 0d 12 b6 0e  dd 20 f2 73 63 6c 65 61  |...:..... .sclea|
00002d60  72 61 0d 12 c0 0f 24 73  74 79 70 65 31 25 3d 22  |ra....$stype1%="|
00002d70  22 0d 12 ca 0f 24 73 74  79 70 65 32 25 3d 22 22  |"....$stype2%=""|
00002d80  0d 12 d4 23 73 65 74 74  68 25 3d a4 75 70 64 61  |...#setth%=.upda|
00002d90  74 65 77 69 6e 64 6f 77  28 73 65 74 74 68 25 2c  |tewindow(setth%,|
00002da0  52 25 29 0d 12 de 0d 73  73 74 61 6d 70 25 3d a3  |R%)....sstamp%=.|
00002db0  0d 12 e8 05 e1 0d 12 f2  05 3a 0d 12 fc 0e dd 20  |.........:..... |
00002dc0  f2 73 63 6c 65 61 72 62  0d 13 06 0e 24 73 65 78  |.sclearb....$sex|
00002dd0  65 63 25 3d 22 22 0d 13  10 0e 24 73 6c 6f 61 64  |ec%=""....$sload|
00002de0  25 3d 22 22 0d 13 1a 23  73 65 74 74 68 25 3d a4  |%=""...#setth%=.|
00002df0  75 70 64 61 74 65 77 69  6e 64 6f 77 28 73 65 74  |updatewindow(set|
00002e00  74 68 25 2c 52 25 29 0d  13 24 0d 73 73 74 61 6d  |th%,R%)..$.sstam|
00002e10  70 25 3d b9 0d 13 2e 05  e1 0d 13 38 05 3a 0d 13  |p%=........8.:..|
00002e20  42 11 dd 20 f2 75 70 64  61 74 65 69 6e 66 6f 0d  |B.. .updateinfo.|
00002e30  13 4c 18 e7 20 28 75 62  6c 6f 63 6b 25 21 31 36  |.L.. (ublock%!16|
00002e40  29 3c 3e 31 33 20 e1 0d  13 56 0e e7 20 73 74 61  |)<>13 ...V.. sta|
00002e50  6d 70 25 20 8c 0d 13 60  13 65 78 65 63 25 3d 21  |mp% ...`.exec%=!|
00002e60  73 74 62 6c 6f 63 6b 25  0d 13 6a 13 6c 6f 61 64  |stblock%..j.load|
00002e70  25 3d 26 46 46 46 30 30  30 30 30 0d 13 74 1c 6c  |%=&FFF00000..t.l|
00002e80  6f 61 64 25 3d 6c 6f 61  64 25 20 84 20 73 74 62  |oad%=load% . stb|
00002e90  6c 6f 63 6b 25 3f 34 0d  13 7e 1c 74 79 70 65 25  |lock%?4..~.type%|
00002ea0  3d a0 28 22 26 22 2b 24  69 74 79 70 65 31 25 29  |=.("&"+$itype1%)|
00002eb0  3c 3c 38 0d 13 88 17 6c  6f 61 64 25 3d 6c 6f 61  |<<8....load%=loa|
00002ec0  64 25 20 84 20 74 79 70  65 25 0d 13 92 05 cc 0d  |d% . type%......|
00002ed0  13 9c 1c e7 20 24 69 65  78 65 63 25 3d 22 22 20  |.... $iexec%="" |
00002ee0  24 69 65 78 65 63 25 3d  22 30 22 0d 13 a6 1c e7  |$iexec%="0".....|
00002ef0  20 24 69 6c 6f 61 64 25  3d 22 22 20 24 69 6c 6f  | $iload%="" $ilo|
00002f00  61 64 25 3d 22 30 22 0d  13 b0 18 65 78 65 63 25  |ad%="0"....exec%|
00002f10  3d a0 28 22 26 22 2b 24  69 65 78 65 63 25 29 0d  |=.("&"+$iexec%).|
00002f20  13 ba 18 6c 6f 61 64 25  3d a0 28 22 26 22 2b 24  |...load%=.("&"+$|
00002f30  69 6c 6f 61 64 25 29 0d  13 c4 05 cd 0d 13 ce 2c  |iload%)........,|
00002f40  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 31 2c 66  |.. "OS_File",1,f|
00002f50  69 6c 65 32 25 2c 6c 6f  61 64 25 2c 65 78 65 63  |ile2%,load%,exec|
00002f60  25 2c 2c 61 74 74 72 25  0d 13 d8 14 21 77 62 6c  |%,,attr%....!wbl|
00002f70  6f 63 6b 25 3d 66 69 6e  66 6f 68 25 0d 13 e2 22  |ock%=finfoh%..."|
00002f80  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00002f90  6e 64 6f 77 22 2c 2c 77  62 6c 6f 63 6b 25 0d 13  |ndow",,wblock%..|
00002fa0  ec 05 e1 0d 13 f6 05 3a  0d 14 00 12 dd 20 f2 73  |.......:..... .s|
00002fb0  68 6f 77 73 65 74 74 79  70 65 0d 14 0a 23 73 65  |howsettype...#se|
00002fc0  74 74 68 25 3d a4 75 70  64 61 74 65 77 69 6e 64  |tth%=.updatewind|
00002fd0  6f 77 28 73 65 74 74 68  25 2c 52 25 29 0d 14 14  |ow(setth%,R%)...|
00002fe0  1c 24 73 74 79 70 65 31  25 3d 22 30 22 3a 24 73  |.$stype1%="0":$s|
00002ff0  74 79 70 65 32 25 3d 22  22 0d 14 1e 19 24 73 65  |type2%=""....$se|
00003000  78 65 63 25 3d 22 22 3a  24 73 6c 6f 61 64 25 3d  |xec%="":$sload%=|
00003010  22 22 0d 14 28 0d 73 73  74 61 6d 70 25 3d b9 0d  |""..(.sstamp%=..|
00003020  14 32 05 e1 0d 14 3c 05  3a 0d 14 46 0e dd 20 f2  |.2....<.:..F.. .|
00003030  73 65 74 74 79 70 65 0d  14 50 3b c8 99 20 22 58  |settype..P;.. "X|
00003040  4f 53 5f 46 69 6c 65 22  2c 31 33 2c 6e 61 6d 65  |OS_File",13,name|
00003050  25 2c 2c 2c 70 61 74 68  25 20 b8 20 2c 2c 6c 6f  |%,,,path% . ,,lo|
00003060  61 64 32 25 2c 65 78 65  63 32 25 2c 2c 61 74 74  |ad2%,exec2%,,att|
00003070  72 25 0d 14 5a 0f e7 20  73 73 74 61 6d 70 25 20  |r%..Z.. sstamp% |
00003080  8c 0d 14 64 1a 74 79 70  65 32 25 3d a0 28 22 26  |...d.type2%=.("&|
00003090  22 2b 24 73 74 79 70 65  31 25 29 0d 14 6e 21 c8  |"+$stype1%)..n!.|
000030a0  99 20 22 58 4f 53 5f 46  69 6c 65 22 2c 31 38 2c  |. "XOS_File",18,|
000030b0  66 69 6c 65 25 2c 74 79  70 65 32 25 0d 14 78 05  |file%,type2%..x.|
000030c0  cc 0d 14 82 1c e7 20 24  73 65 78 65 63 25 3d 22  |...... $sexec%="|
000030d0  22 20 24 73 65 78 65 63  25 3d 22 30 22 0d 14 8c  |" $sexec%="0"...|
000030e0  1c e7 20 24 73 6c 6f 61  64 25 3d 22 22 20 24 73  |.. $sload%="" $s|
000030f0  6c 6f 61 64 25 3d 22 30  22 0d 14 96 19 65 78 65  |load%="0"....exe|
00003100  63 32 25 3d a0 28 22 26  22 2b 24 73 65 78 65 63  |c2%=.("&"+$sexec|
00003110  25 29 0d 14 a0 19 6c 6f  61 64 32 25 3d a0 28 22  |%)....load2%=.("|
00003120  26 22 2b 24 73 6c 6f 61  64 25 29 0d 14 aa 2e c8  |&"+$sload%).....|
00003130  99 20 22 58 4f 53 5f 46  69 6c 65 22 2c 31 2c 66  |. "XOS_File",1,f|
00003140  69 6c 65 25 2c 6c 6f 61  64 32 25 2c 65 78 65 63  |ile%,load2%,exec|
00003150  32 25 2c 2c 61 74 74 72  25 0d 14 b4 05 cd 0d 14  |2%,,attr%.......|
00003160  be 05 e1 0d 14 c8 05 3a  0d 14 d2 0e dd 20 f2 6f  |.......:..... .o|
00003170  70 74 69 6f 6e 73 0d 14  dc 14 c8 8e 20 28 75 62  |ptions...... (ub|
00003180  6c 6f 63 6b 25 21 34 29  20 ca 0d 14 e6 11 c9 20  |lock%!4) ...... |
00003190  30 3a f2 63 6f 70 79 6f  70 74 73 0d 14 f0 12 c9  |0:.copyopts.....|
000031a0  20 31 3a f2 63 6f 75 6e  74 6f 70 74 73 0d 14 fa  | 1:.countopts...|
000031b0  11 c9 20 32 3a f2 77 69  70 65 6f 70 74 73 0d 15  |.. 2:.wipeopts..|
000031c0  04 05 cb 0d 15 0e 05 3a  0d 15 18 0e dd 20 f2 67  |.......:..... .g|
000031d0  65 74 6f 70 74 73 0d 15  22 2e 63 6f 70 79 6f 70  |etopts..".copyop|
000031e0  74 73 25 28 29 3d 30 3a  63 6f 75 6e 74 6f 70 74  |ts%()=0:countopt|
000031f0  73 25 28 29 3d 30 3a 77  69 70 65 6f 70 74 73 25  |s%()=0:wipeopts%|
00003200  28 29 3d 30 0d 15 2c 05  3a 0d 15 36 1a 24 62 6c  |()=0..,.:..6.$bl|
00003210  6f 63 6b 25 3d 22 63 6f  70 79 24 6f 70 74 69 6f  |ock%="copy$optio|
00003220  6e 73 22 0d 15 40 37 c8  99 20 22 58 4f 53 5f 52  |ns"..@7.. "XOS_R|
00003230  65 61 64 56 61 72 56 61  6c 22 2c 62 6c 6f 63 6b  |eadVarVal",block|
00003240  25 2c 64 62 6c 6f 63 6b  25 2c 32 35 36 2c 30 2c  |%,dblock%,256,0,|
00003250  30 20 b8 20 2c 2c 6c 65  6e 25 0d 15 4a 22 64 62  |0 . ,,len%..J"db|
00003260  6c 6f 63 6b 25 3f 6c 65  6e 25 3d 26 30 44 3a 76  |lock%?len%=&0D:v|
00003270  61 72 24 3d 24 64 62 6c  6f 63 6b 25 0d 15 54 12  |ar$=$dblock%..T.|
00003280  e3 20 6c 6f 6f 70 25 3d  30 20 b8 20 31 31 0d 15  |. loop%=0 . 11..|
00003290  5e 1f 63 68 61 72 24 3d  c1 63 6f 70 79 6f 70 74  |^.char$=.copyopt|
000032a0  73 24 2c 6c 6f 6f 70 25  2b 31 2c 31 29 0d 15 68  |s$,loop%+1,1)..h|
000032b0  15 70 6f 73 25 3d a7 76  61 72 24 2c 63 68 61 72  |.pos%=.var$,char|
000032c0  24 29 0d 15 72 39 e7 20  70 6f 73 25 3e 30 20 80  |$)..r9. pos%>0 .|
000032d0  20 64 62 6c 6f 63 6b 25  3f 28 70 6f 73 25 2d 32  | dblock%?(pos%-2|
000032e0  29 3c 3e 97 22 7e 22 20  63 6f 70 79 6f 70 74 73  |)<>."~" copyopts|
000032f0  25 28 6c 6f 6f 70 25 29  3d 2d 31 0d 15 7c 05 ed  |%(loop%)=-1..|..|
00003300  0d 15 86 05 3a 0d 15 90  1b 24 62 6c 6f 63 6b 25  |....:....$block%|
00003310  3d 22 63 6f 75 6e 74 24  6f 70 74 69 6f 6e 73 22  |="count$options"|
00003320  0d 15 9a 37 c8 99 20 22  58 4f 53 5f 52 65 61 64  |...7.. "XOS_Read|
00003330  56 61 72 56 61 6c 22 2c  62 6c 6f 63 6b 25 2c 64  |VarVal",block%,d|
00003340  62 6c 6f 63 6b 25 2c 32  35 36 2c 30 2c 30 20 b8  |block%,256,0,0 .|
00003350  20 2c 2c 6c 65 6e 25 0d  15 a4 22 64 62 6c 6f 63  | ,,len%..."dbloc|
00003360  6b 25 3f 6c 65 6e 25 3d  26 30 44 3a 76 61 72 24  |k%?len%=&0D:var$|
00003370  3d 24 64 62 6c 6f 63 6b  25 0d 15 ae 11 e3 20 6c  |=$dblock%..... l|
00003380  6f 6f 70 25 3d 30 20 b8  20 32 0d 15 b8 20 63 68  |oop%=0 . 2... ch|
00003390  61 72 24 3d c1 63 6f 75  6e 74 6f 70 74 73 24 2c  |ar$=.countopts$,|
000033a0  6c 6f 6f 70 25 2b 31 2c  31 29 0d 15 c2 15 70 6f  |loop%+1,1)....po|
000033b0  73 25 3d a7 76 61 72 24  2c 63 68 61 72 24 29 0d  |s%=.var$,char$).|
000033c0  15 cc 3a e7 20 70 6f 73  25 3e 30 20 80 20 64 62  |..:. pos%>0 . db|
000033d0  6c 6f 63 6b 25 3f 28 70  6f 73 25 2d 32 29 3c 3e  |lock%?(pos%-2)<>|
000033e0  97 22 7e 22 20 63 6f 75  6e 74 6f 70 74 73 25 28  |."~" countopts%(|
000033f0  6c 6f 6f 70 25 29 3d 2d  31 0d 15 d6 05 ed 0d 15  |loop%)=-1.......|
00003400  e0 05 3a 0d 15 ea 1a 24  62 6c 6f 63 6b 25 3d 22  |..:....$block%="|
00003410  77 69 70 65 24 6f 70 74  69 6f 6e 73 22 0d 15 f4  |wipe$options"...|
00003420  37 c8 99 20 22 58 4f 53  5f 52 65 61 64 56 61 72  |7.. "XOS_ReadVar|
00003430  56 61 6c 22 2c 62 6c 6f  63 6b 25 2c 64 62 6c 6f  |Val",block%,dblo|
00003440  63 6b 25 2c 32 35 36 2c  30 2c 30 20 b8 20 2c 2c  |ck%,256,0,0 . ,,|
00003450  6c 65 6e 25 0d 15 fe 22  64 62 6c 6f 63 6b 25 3f  |len%..."dblock%?|
00003460  6c 65 6e 25 3d 26 30 44  3a 76 61 72 24 3d 24 64  |len%=&0D:var$=$d|
00003470  62 6c 6f 63 6b 25 0d 16  08 11 e3 20 6c 6f 6f 70  |block%..... loop|
00003480  25 3d 30 20 b8 20 33 0d  16 12 1f 63 68 61 72 24  |%=0 . 3....char$|
00003490  3d c1 77 69 70 65 6f 70  74 73 24 2c 6c 6f 6f 70  |=.wipeopts$,loop|
000034a0  25 2b 31 2c 31 29 0d 16  1c 15 70 6f 73 25 3d a7  |%+1,1)....pos%=.|
000034b0  76 61 72 24 2c 63 68 61  72 24 29 0d 16 26 39 e7  |var$,char$)..&9.|
000034c0  20 70 6f 73 25 3e 30 20  80 20 64 62 6c 6f 63 6b  | pos%>0 . dblock|
000034d0  25 3f 28 70 6f 73 25 2d  32 29 3c 3e 97 22 7e 22  |%?(pos%-2)<>."~"|
000034e0  20 77 69 70 65 6f 70 74  73 25 28 6c 6f 6f 70 25  | wipeopts%(loop%|
000034f0  29 3d 2d 31 0d 16 30 05  ed 0d 16 3a 05 e1 0d 16  |)=-1..0....:....|
00003500  44 05 3a 0d 16 4e 0f dd  20 f2 63 6f 70 79 6f 70  |D.:..N.. .copyop|
00003510  74 73 0d 16 58 2f 63 6f  70 79 6f 70 74 73 25 28  |ts..X/copyopts%(|
00003520  75 62 6c 6f 63 6b 25 21  38 29 3d ac 20 63 6f 70  |ublock%!8)=. cop|
00003530  79 6f 70 74 73 25 28 75  62 6c 6f 63 6b 25 21 38  |yopts%(ublock%!8|
00003540  29 0d 16 62 0d 66 69 6e  61 6c 24 3d 22 22 0d 16  |)..b.final$=""..|
00003550  6c 12 e3 20 6c 6f 6f 70  25 3d 30 20 b8 20 31 31  |l.. loop%=0 . 11|
00003560  0d 16 76 1f 63 68 61 72  24 3d c1 63 6f 70 79 6f  |..v.char$=.copyo|
00003570  70 74 73 24 2c 6c 6f 6f  70 25 2b 31 2c 31 29 0d  |pts$,loop%+1,1).|
00003580  16 80 39 e7 20 63 6f 70  79 6f 70 74 73 25 28 6c  |..9. copyopts%(l|
00003590  6f 6f 70 25 29 20 63 68  61 72 24 3d 22 20 22 2b  |oop%) char$=" "+|
000035a0  63 68 61 72 24 20 8b 20  63 68 61 72 24 3d 22 20  |char$ . char$=" |
000035b0  7e 22 2b 63 68 61 72 24  0d 16 8a 11 66 69 6e 61  |~"+char$....fina|
000035c0  6c 24 2b 3d 63 68 61 72  24 0d 16 94 05 ed 0d 16  |l$+=char$.......|
000035d0  9e 39 24 62 6c 6f 63 6b  25 3d 22 43 6f 70 79 24  |.9$block%="Copy$|
000035e0  4f 70 74 69 6f 6e 73 22  3a 24 64 62 6c 6f 63 6b  |Options":$dblock|
000035f0  25 3d 66 69 6e 61 6c 24  3a 6c 65 6e 25 3d a9 28  |%=final$:len%=.(|
00003600  66 69 6e 61 6c 24 29 0d  16 a8 2d c8 99 20 22 4f  |final$)...-.. "O|
00003610  53 5f 53 65 74 56 61 72  56 61 6c 22 2c 62 6c 6f  |S_SetVarVal",blo|
00003620  63 6b 25 2c 64 62 6c 6f  63 6b 25 2c 6c 65 6e 25  |ck%,dblock%,len%|
00003630  2c 30 2c 30 0d 16 b2 05  e1 0d 16 bc 05 3a 0d 16  |,0,0.........:..|
00003640  c6 10 dd 20 f2 63 6f 75  6e 74 6f 70 74 73 0d 16  |... .countopts..|
00003650  d0 31 63 6f 75 6e 74 6f  70 74 73 25 28 75 62 6c  |.1countopts%(ubl|
00003660  6f 63 6b 25 21 38 29 3d  ac 20 63 6f 75 6e 74 6f  |ock%!8)=. counto|
00003670  70 74 73 25 28 75 62 6c  6f 63 6b 25 21 38 29 0d  |pts%(ublock%!8).|
00003680  16 da 0d 66 69 6e 61 6c  24 3d 22 22 0d 16 e4 11  |...final$=""....|
00003690  e3 20 6c 6f 6f 70 25 3d  30 20 b8 20 32 0d 16 ee  |. loop%=0 . 2...|
000036a0  20 63 68 61 72 24 3d c1  63 6f 75 6e 74 6f 70 74  | char$=.countopt|
000036b0  73 24 2c 6c 6f 6f 70 25  2b 31 2c 31 29 0d 16 f8  |s$,loop%+1,1)...|
000036c0  3a e7 20 63 6f 75 6e 74  6f 70 74 73 25 28 6c 6f  |:. countopts%(lo|
000036d0  6f 70 25 29 20 63 68 61  72 24 3d 22 20 22 2b 63  |op%) char$=" "+c|
000036e0  68 61 72 24 20 8b 20 63  68 61 72 24 3d 22 20 7e  |har$ . char$=" ~|
000036f0  22 2b 63 68 61 72 24 0d  17 02 11 66 69 6e 61 6c  |"+char$....final|
00003700  24 2b 3d 63 68 61 72 24  0d 17 0c 05 ed 0d 17 16  |$+=char$........|
00003710  3a 24 62 6c 6f 63 6b 25  3d 22 43 6f 75 6e 74 24  |:$block%="Count$|
00003720  4f 70 74 69 6f 6e 73 22  3a 24 64 62 6c 6f 63 6b  |Options":$dblock|
00003730  25 3d 66 69 6e 61 6c 24  3a 6c 65 6e 25 3d a9 28  |%=final$:len%=.(|
00003740  66 69 6e 61 6c 24 29 0d  17 20 2d c8 99 20 22 4f  |final$).. -.. "O|
00003750  53 5f 53 65 74 56 61 72  56 61 6c 22 2c 62 6c 6f  |S_SetVarVal",blo|
00003760  63 6b 25 2c 64 62 6c 6f  63 6b 25 2c 6c 65 6e 25  |ck%,dblock%,len%|
00003770  2c 30 2c 30 0d 17 2a 05  e1 0d 17 34 05 3a 0d 17  |,0,0..*....4.:..|
00003780  3e 0f dd 20 f2 77 69 70  65 6f 70 74 73 0d 17 48  |>.. .wipeopts..H|
00003790  2f 77 69 70 65 6f 70 74  73 25 28 75 62 6c 6f 63  |/wipeopts%(ubloc|
000037a0  6b 25 21 38 29 3d ac 20  77 69 70 65 6f 70 74 73  |k%!8)=. wipeopts|
000037b0  25 28 75 62 6c 6f 63 6b  25 21 38 29 0d 17 52 0d  |%(ublock%!8)..R.|
000037c0  66 69 6e 61 6c 24 3d 22  22 0d 17 5c 11 e3 20 6c  |final$=""..\.. l|
000037d0  6f 6f 70 25 3d 30 20 b8  20 33 0d 17 66 1f 63 68  |oop%=0 . 3..f.ch|
000037e0  61 72 24 3d c1 77 69 70  65 6f 70 74 73 24 2c 6c  |ar$=.wipeopts$,l|
000037f0  6f 6f 70 25 2b 31 2c 31  29 0d 17 70 39 e7 20 77  |oop%+1,1)..p9. w|
00003800  69 70 65 6f 70 74 73 25  28 6c 6f 6f 70 25 29 20  |ipeopts%(loop%) |
00003810  63 68 61 72 24 3d 22 20  22 2b 63 68 61 72 24 20  |char$=" "+char$ |
00003820  8b 20 63 68 61 72 24 3d  22 20 7e 22 2b 63 68 61  |. char$=" ~"+cha|
00003830  72 24 0d 17 7a 11 66 69  6e 61 6c 24 2b 3d 63 68  |r$..z.final$+=ch|
00003840  61 72 24 0d 17 84 05 ed  0d 17 8e 39 24 62 6c 6f  |ar$........9$blo|
00003850  63 6b 25 3d 22 57 69 70  65 24 4f 70 74 69 6f 6e  |ck%="Wipe$Option|
00003860  73 22 3a 24 64 62 6c 6f  63 6b 25 3d 66 69 6e 61  |s":$dblock%=fina|
00003870  6c 24 3a 6c 65 6e 25 3d  a9 28 66 69 6e 61 6c 24  |l$:len%=.(final$|
00003880  29 0d 17 98 2d c8 99 20  22 4f 53 5f 53 65 74 56  |)...-.. "OS_SetV|
00003890  61 72 56 61 6c 22 2c 62  6c 6f 63 6b 25 2c 64 62  |arVal",block%,db|
000038a0  6c 6f 63 6b 25 2c 6c 65  6e 25 2c 30 2c 30 0d 17  |lock%,len%,0,0..|
000038b0  a2 05 e1 0d ff                                    |.....|
000038b5