� > <Backup$Dir>.!RunImage
� (C) Martyn Fox 1996
� Hard disc backup program
(version$="1.10 (26-Jun-97)"
28ș "Wimp_Initialise",200,&4B534154,"Backup" � ,task%
<� � �init_error
F	�init
P+�=�+&3000:ext_mem_ptr%=�:mem_protect%=�
Z
�init2
d� � � �error � �close:�
n�
x	�poll
�� quit%
�
�close
��
�:
���init_error
�Uș "Wimp_ReportError",�3,�0)+�128+�$+" (Ref "+Þ+")",%111<<8,"Backup","!backup",1
��close:�
��
�:
���create_icon(a$)
�� c%
�c%=�stack(36)
�6!c%=-1:c%!4=0:c%!8=0:c%!12=68:c%!16=68:c%!20=&3002

,$(c%+24)=a$:ș"Wimp_CreateIcon",,c% � i%

�unstack(c%)

�

":

,��close

6'ș "Wimp_CloseDown",task%,&4B534154

@�

J:

T
��poll

^%ș "Wimp_Poll",poll_mask%,b% � r%

hȎ r% �

r� 0:�drag_end

| � 2:ș "Wimp_OpenWindow",,b%

�!� 3:ș "Wimp_CloseWindow",,b%

�� 6:�mouse_click(b%)

�� 9:�menuclick(b%)

�� 8:�keypress(b%)

�� 17,18:�receive(b%)

�� 19:�ack(b%)

��

��

�:

�ݤerror

�� flags%,err_str$

�stackptr%=stack%

�9�make_writable(topdirs%,1):�make_writable(topdirs%,5)
2$action_text%="Start":�redraw_icon(topdirs%,7)
	!b%=�
n� (!b% � (1<<30))<>0 flags%=(!b% � &FFF) � !b%=!b% � (1<<31):flags%=(%111<<8) � 2:err_str$=" (Ref "+Þ+")"
&$(b%+4)=�$+err_str$+�0
0Eș "Wimp_ReportError",b%,flags%,"Backup","!backup",1 � ,response%
:=(response%=2)
D:
N��receive(b%)
XȎ b%!16 �
b� 0:quit%=�
l� 3:�load(b%)
v�
��
�:
�
��init
�init%=�
�3� b% 255,menspc% 1000,stack% 1023,backupdir% 11
�?menend%=menspc%+1000:stackend%=stack%+1023:stackptr%=stack%
�%quit%=�:stopped%=�:poll_mask%=&31
�"th%=0:dragnum%=0:sourcestr$=""
��init_slot
��
�:
���init2
��load_templates

�menus
�create_icon("!backup")
F!b%=topdirs%:ș "Wimp_GetWindowState",,b%:ș "Wimp_OpenWindow",,b%
 init%=�
*�
4:
>��menus
H�main_menu
R�bu_menu
\�attach(mainmenu%,0,info%)
f!�attach(mainmenu%,1,bu_menu%)
p�
z:
���mouse_click(d%)
�Ȏ d%!12 �
�� -2:Ȏ d%!8 �
�+� 2:�showmenu(mainmenu%,!d%-64,96+3*44)
�J� 4:!d%=topdirs%:ș "Wimp_GetWindowState",,d%:ș "Wimp_OpenWindow",,d%
��
�!� topdirs%:�topdirs_click(d%)
��
��
�:
���load_templates
�/� c%,buf%,ws%,buf_size%,ind_size%,n%,s%,s2%
�c%=�stack(255)
4ș "Wimp_OpenTemplate",,"<Backup$Dir>.Templates"
+buf_size%=0:ind_size%=0:n%=0:s%=0:s2%=0
�
$�term(c%):$c%="*"
.9ș "Wimp_LoadTemplate",,-1,,,-1,c%,n% � ,s%,s2%,,,,n%
8� s%>buf_size% buf_size%=s%
Bind_size%+=s2%
L
� n%=0
V1�word_align(buf_size%):�word_align(ind_size%)
`%ws%=�ext_buf(buf_size%+ind_size%)
jB� ws%=� � 1<<30,"Insufficient memory to load window templates"
tbuf%=ws%+ind_size%
~mem_protect%=buf%
�Aș "Wimp_LoadTemplate",,buf%,ws%,buf%,-1,"progInfo",0 � ,,ws%
�$buf%!(88+32*4+20)=version$
�(ș "Wimp_CreateWindow",,buf% � info%
�@ș "Wimp_LoadTemplate",,buf%,ws%,buf%,-1,"TopDirs",0 � ,,ws%
� sourcetop%=buf%!(88+32*1+20)
�desttop%=buf%!(88+32*5+20)
�"action_text%=buf%!(88+32*9+20)
�+ș "Wimp_CreateWindow",,buf% � topdirs%
�ș "Wimp_CloseTemplate"
��rel_buf(mem_protect%)
��unstack(c%)
��
:

ݤmake_menu
<� menspc%+28>menend% � (1<<30)+2,"Not enough menu space"
start%=menspc%
(� title$
2_� �title$<=12 � $(start%)=title$ � !start%=�indirect(title$):start%!4=-1:start%!8=�title$+1
<Lstart%?12=7:start%?13=2:start%?14=7:start%?15=0:start%!20=44:start%!24=0
Fwidth%=�(title$)-3
P� �title$,1)="\" width%-=1
Z� �title$,1)=" " width%-=1
dmenspc%+=28
n�
x� item$
�� item$<>"*" �
�<� menspc%+24>menend% � (1<<30)+2,"Not enough menu space"
�.� �title$<=12 � !menspc%=0 � !menspc%=1<<8
�writeable%=�
�ul%=�item$,"_")
�� ul% �
�tail$=�item$,�(item$)-ul%)
�'� �tail$,"T") !menspc%=!menspc% � 1
�'� �tail$,"D") !menspc%=!menspc% � 2
�H� �tail$,"W") !menspc%=!menspc% � 4:writeable%=�:� buffer%:� buflen%
�'� �tail$,"M") !menspc%=!menspc% � 8
�item$=�item$,ul%-1)
��
!� �item$>width% width%=�item$
menspc%!4=-1
� writeable% �
"Zmenspc%!8=&0700F121:menspc%!12=buffer%:menspc%!16=-1:menspc%!20=buflen%:$buffer%=item$
,�
6� �item$<12 �
@+menspc%!8=&07000021:$(menspc%+12)=item$
J�
TUmenspc%!8=&07000121:menspc%!12=�indirect(item$):menspc%!16=-1:menspc%!20=�item$+1
^�
h�
rmenspc%+=24
|�
�� item$="*"
�start%!16=width%*16+32
�%!(menspc%-24)=!(menspc%-24) � &80
�mptr%=menspc%
�=start%
�:
���attach(menu%,item%,sub%)
�!(menu%+28+item%*24+4)=sub%
��
�:
���showmenu(menu%,x%,y%)
�$topmenu%=menu%:topx%=x%:topy%=y%
�%ș "Wimp_CreateMenu",,menu%,x%,y%
�
:
��menuclick(b%)
&� c%
0c%=�stack(36)
: ș "Wimp_GetPointerInfo",,c%
Dadj%=(c%!8 � 1)
N(ș "Wimp_DecodeMenu",,topmenu%,b%,c%
XȎ $c% �
b� "Quit":quit%=�
l�
v*� adj% �showmenu(topmenu%,topx%,topy%)
��unstack(c%)
��
�:
���main_menu
�� +1
�"� Backup,Info,Backupdir,Quit,*
�mainmenu%=�make_menu
��
�:
�
��bu_menu
�� +1
�,� Backupdir,++Backup++_W,backupdir%,11,*
�bu_menu%=�make_menu
�
:
��term(a%)
 � n%
*ȕ a%?n%>31
4	n%+=1
>�
Ha%?n%=13
R�
\:
fݤicon_state(window%,icon%)
p� a%,c%
zc%=�stack(36)
�!c%=window%
�c%!4=icon%
�ș "Wimp_GetIconState",,c%
�a%=((c%!24) � (1<<21))<>0
��unstack(c%)
�=a%
�:
�ݤindirect(a$)
�� e%
�e%=�ext_buf(�a$+1)
�%� e%=� � 1<<31,"Out of workspace"
�
$e%=a$
�3mem_protect%=e%+�a$+1:�word_align(mem_protect%)
	=e%
	:
	��word_align(� a%)
	$� a% � 4<>0 a%+=4-(a% � 4)
	.�
	8:
	Bݤstack(size%)
	L9� stackptr%+size%>stackend%  1<<31,"No room in stack"
	Vstackptr%+=size%
	`=stackptr%-size%
	j:
	t��unstack(old_ptr%)
	~stackptr%=old_ptr%
	�'� stackptr%<stack% stackptr%=stack%
	��
	�:
	� ��redraw_icon(window%,icon%)
	�� c%
	�c%=�stack(16)
	�*c%!0=window%:c%!4=icon%:c%!8=0:c%!12=0
	�ș "Wimp_SetIconState",,c%
	��unstack(c%)
	��
	�:
	�ݤleafname(a$)
=�a$,�last_dot(a$)+1)

:
ݤext_buf(size%)
� slot_size%,n%,new_slot%
(0�word_align(ext_mem_ptr%):�word_align(size%)
25ș "Wimp_SlotSize",-1,-1 � slot_size%,next%,free%
<0� size%<slot_size%+slot_base%-ext_mem_ptr% �
F'n%=ext_mem_ptr%:ext_mem_ptr%+=size%
P�
Z?� size%-(slot_size%+slot_base%-ext_mem_ptr%)>=next%+free% �
dn%=�
n�
xCș "Wimp_SlotSize",size%+ext_mem_ptr%-slot_base%,-1 � new_slot%
�[� slot_base%+new_slot%>=ext_mem_ptr%+size% � n%=ext_mem_ptr%:ext_mem_ptr%+=size% � n%=�
��
��
�=n%
�:
���init_slot
�� n%
�!ș "Wimp_SlotSize",-1,-1 � n%
�slot_base%=�-n%
��
�:
���rel_buf(n%)
�ext_mem_ptr%=n%
'ș "Wimp_SlotSize",n%-slot_base%,-1
�
:
"��load(d%)
,� a%,c%,filerth%
6c%=�stack(20)
@�term(d%+44)
Jfilerth%=d%!4
T ș "Wimp_GetPointerInfo",,c%
^� c%!12=topdirs% �
hȎ c%!16 �
r� 0,1,2,3:
|� dragnum%=0 �
�sourcestr$=$(d%+44)
��
�'sourcestr$+="\"+�leafname($(d%+44))
��
�dragnum%+=1
�poll_mask%=&30
�� 4,5,6,7:
�$desttop%=$(d%+44)
�]� �sourcestr$,"\")=0 �copy_path($sourcetop%,$desttop%) � �copy_path(sourcestr$,$desttop%)
��redraw_icon(topdirs%,5)
��
��
�;d%!12=d%!8:d%!16=4:ș "Wimp_SendMessage",17,d%,filerth%
�unstack(c%)
�
:
&��truncate(� a$)
0a$=�a$,�a$,"$"))
:�
D:
N��topdirs_click(d%)
XȎ d%!16 �
bO� 2:�truncate(sourcestr$):$sourcetop%=sourcestr$:�make_writable(topdirs%,1)
l5� 6:�truncate($desttop%):�redraw_icon(topdirs%,5)
v.� 8:!d%=topdirs%:ș "Wimp_CloseWindow",,d%
�� 9:�execute(d%)
��
��
�:
���execute(d%)
�;� type%,source_type%,dest_type%,flags%,backupdir$,more%
�more%=(�sourcestr$,"\")<>0)
�]� more% top_source_dir$=�sourcestr$,�last_dot(sourcestr$)-1) � top_source_dir$=sourcestr$
�G� top_source_dir$="" � (1<<30)+&503,"No source directory specified"
�F� $desttop%="" � (1<<30)+&503,"No destination directory specified"
�\� top_source_dir$=$desttop% � (1<<30)+&503,"Source and destination directories the same"
�backupdir$=$backupdir%
�<ș "XOS_File",17,$desttop%+"."+backupdir$ � type%;flags%

E� (flags% � 1)<>0 !type%=(1<<30)+&503:ș "OS_GenerateError",type%

�� type%<>0 � (1<<30)+&503,"An object called "+backupdir$+" already exists in the backup top directory - delete it before proceding"

3ș "XOS_File",17,top_source_dir$ � type%;flags%

 E� (flags% � 1)<>0 !type%=(1<<30)+&503:ș "OS_GenerateError",type%

*B� type%=0 � (1<<30)+&503,top_source_dir$+" could not be found"

4A�make_non_writable(topdirs%,1):�make_non_writable(topdirs%,5)

>top_dest_dir$=$desttop%

H2$action_text%="Pause":�redraw_icon(topdirs%,9)

R�

\�� more% first_source$=�sourcestr$,�sourcestr$,"\")-1):first_dest$=top_dest_dir$+"."+�leafname(first_source$) � first_source$=sourcestr$:first_dest$=top_dest_dir$

f8ș "XOS_File",17,first_source$ � source_type%;flags%

pS� (flags% � 1)<>0 !source_type%=(1<<30)+&503:ș "OS_GenerateError",source_type%

z4ș "XOS_File",17,first_dest$ � dest_type%;flags%

�O� (flags% � 1)<>0 !dest_type%=(1<<30)+&503:ș "OS_GenerateError",dest_type%

�
Ȏ � �

�O� dest_type%=0:� �icon_state(topdirs%,10) �copy1(first_source$,first_dest$)

�� source_type%=1:

�
� more% �

�p� (dest_type%=2 � dest_type%=3) � (�icon_state(topdirs%,10) � �icon_state(topdirs%,11)) �purge1(first_dest$)

��

�Lș "XOS_File",17,first_dest$+"."+�leafname(first_source$) � type%;flags%

�J� (flags% � 1)<>0 !dest_type%=(1<<30)+&503:ș "OS_GenerateError",type%

ރ� (type%=2 � type%=3) � (�icon_state(topdirs%,10) � �icon_state(topdirs%,11)) �purge1(first_dest$+"."+�leafname(first_source$))

��

�@� �icon_state(topdirs%,10) �copy1(first_source$,first_dest$)

�
� more% � dest_type%=1 �
P� (�icon_state(topdirs%,10) � �icon_state(topdirs%,11)) �purge1(first_dest$)
@� �icon_state(topdirs%,10) �copy1(first_source$,first_dest$)
$�
.)�directory(first_source$,first_dest$)
8�
B�
Lmore%=(�sourcestr$,"\")<>0)
VY� more% sourcestr$=�sourcestr$,�last_dot(sourcestr$))+�sourcestr$,�sourcestr$,"\")+1)
`
� � more%
j$sourcetop%=sourcestr$
t9�make_writable(topdirs%,1):�make_writable(topdirs%,5)
~$action_text%="Start"
�*!d%=topdirs%:ș "Wimp_CloseWindow",,d%
��
�:
� ݤcompare(nameblk%,i%,snum%)
�� found%,n%,name$
�&name$=�force_upper($(nameblk%+20))
�found%=�
�� snum%>0 �
�ȕ n%<snum% � found%=�
�T� name$=�force_upper($(i%+20)) found%=� � n%+=1:i%+=�$(i%+20)+21:�word_align(i%)
��
�)� (nameblk%!16=2)<>(i%!16=2) found%=�
�

=found%
:
ݤforce_upper(a$)
(� n$,i%,j%
2� i%=1 � � a$
<j%=�(�a$,i%,1))
F.� j%>96 � j%<123 n$+=�(j% � &DF) � n$+=�j%
P�
Z=n$
d:
n%��copy(source$,dest$,name%,snum%)
x� i%,n%
�� snum%>0 �
�_ș "Wimp_StartTask","Filer_Action" � th%:ș "FilerAction_SendSelectedDirectory",th%,source$
�i%=name%
�� n%=1 � snum%
�-ș "FilerAction_SendSelectedFile",th%,$i%
�i%+=�$i%+21:�word_align(i%)
��
�Bș "FilerAction_SendStartOperation",th%,0,%1001,dest$,�dest$+1
��send_message
�
�poll2(1)
��
��
�:
��copy1(source$,dest$)
!� source_parent$,dest_parent$
#source_parent$=�up_dir(source$)
"Z� �leafname(source$)=�leafname(dest$) dest_parent$=�up_dir(dest$) � dest_parent$=dest$
,fș "Wimp_StartTask","Filer_Action" � th%:ș "FilerAction_SendSelectedDirectory",th%,source_parent$
6<ș "FilerAction_SendSelectedFile",th%,�leafname(source$)
@Pș "FilerAction_SendStartOperation",th%,0,%1001,dest_parent$,�dest_parent$+1
J�send_message
T
�poll2(1)
^�
h:
r��purge1(dest$)
|� dest_parent$,bu_path$
�dest_parent$=�up_dir(dest$)
�>bu_path$=�backup_path(dest_parent$):�ensure_path(bu_path$)
�dș "Wimp_StartTask","Filer_Action" � th%:ș "FilerAction_SendSelectedDirectory",th%,dest_parent$
�:ș "FilerAction_SendSelectedFile",th%,�leafname(dest$)
�Dș "FilerAction_SendStartOperation",th%,1,1,bu_path$,�bu_path$+1
��send_message
�
�poll2(1)
��
�:
���poll2(busy%)
�� r%,done%
��
�ș "Wimp_Poll",,b% � r%
Ȏ r% �
� 0:Ȏ busy% �
� 0:done%=�
&� 1:�send_message
0�
: � 2:ș "Wimp_OpenWindow",,b%
D!� 3:ș "Wimp_CloseWindow",,b%
N� 6:�mouse_click2(b%)
X� 9:�menuclick(b%)
b� 17,18:�receive2(b%)
l� 19:�ack(b%,done%)
v�
�"� (done% � � stopped%) � quit%
��
�:
���directory(source$,dest$)
�N� sourcebuf%,destbuf%,err%,flags%,snum%,dnum%,rem%,n%,i%,changes%,bu_path$
�sourcebuf%=�ext_buf(4096)
�J� sourcebuf%=� � (1<<30)+&503,"Insufficient memory to check directory"
��
�jș "XOS_GBPB",10,source$,sourcebuf%,&80000000,0,ext_mem_ptr%-sourcebuf%,"*" � err%,,,snum%,rem%;flags%
�C� (flags% � 1)<>0 !err%=(1<<30)+&503:ș "OS_GenerateError",err%
�� rem%>=0 �
�n%=�ext_buf(4096)
�B� n%=� � (1<<30)+&503,"Insufficient memory to check directory"
�
� rem%<0
i%=sourcebuf%
 � snum%>0 �
*� n%=1 � snum%
4�term(i%+20)
>$i%+=�$(i%+20)+21:�word_align(i%)
H�
R�
\�rel_buf(i%)
f � �icon_state(topdirs%,11) �
pdestbuf%=�ext_buf(4096)
zH� destbuf%=� � (1<<30)+&503,"Insufficient memory to check directory"
��
�dș "XOS_GBPB",10,dest$,destbuf%,&80000000,0,ext_mem_ptr%-destbuf%,"*" � err%,,,dnum%,rem%;flags%
�C� (flags% � 1)<>0 !err%=(1<<30)+&503:ș "OS_GenerateError",err%
�� rem%>=0 �
�n%=�ext_buf(4096)
�B� n%=� � (1<<30)+&503,"Insufficient memory to check directory"
��
�� rem%<0
�i%=destbuf%
�� dnum%>0 �
�� n%=1 � dnum%
��term(i%+20)
�'� � �compare(i%,sourcebuf%,snum%) �
u� � changes% changes%=�:ș "Wimp_StartTask","Filer_Action" � th%:ș "FilerAction_SendSelectedDirectory",th%,dest$
2ș "FilerAction_SendSelectedFile",th%,$(i%+20)
�
$$i%+=�$(i%+20)+21:�word_align(i%)
.�
8�
B�rel_buf(i%)
L� changes% �
V�bu_path$=�backup_path(dest$):�ensure_path(bu_path$):ș "FilerAction_SendStartOperation",th%,1,1,bu_path$,�bu_path$+1:�send_message
`�
j
�poll2(1)
t� � quit% �
~i%=destbuf%
�� dnum%>0 �
�� n%=1 � dnum%
�� i%!16=2 �
�%� �compare(i%,sourcebuf%,snum%) �
�=$sourcetop%=source$+"."+$(i%+20):�redraw_icon(topdirs%,1)
�9$desttop%=dest$+"."+$(i%+20):�redraw_icon(topdirs%,5)
�
�poll2(0)
�/� � quit% �directory($sourcetop%,$desttop%)
��
��
�$i%+=�$(i%+20)+21:�word_align(i%)
��
�

�
�
}� �icon_state(topdirs%,10) � source$=first_source$ � dest$=first_dest$ � quit%=� �copy(source$,dest$,sourcebuf%+20,snum%)
(�rel_buf(sourcebuf%)
2�
<:
F��ensure_path(path$)
P� err%,flags%,n%
Zn%=�top_dest_dir$+1
dȕ n%<�path$
n*� n%+=1:� n%=�path$ � �path$,n%,1)="."
x� n%=�path$ n%+=1
�.ș "XOS_File",8,�path$,n%-1) � err%;flags%
�C� (flags% � 1)<>0 !err%=(1<<30)+&503:ș "OS_GenerateError",err%
��
��
�:
�ݤbackup_path(path$)
�?=top_dest_dir$+"."+backupdir$+�path$,�path$-�top_dest_dir$)
�:
���send_message
�� c%
�c%=�stack(64)
�%!c%=24:c%!12=0:c%!16=&406:c%!20=0
�#ș "Wimp_SendMessage",18,c%,th%
�unstack(c%)
�
:
"��ack(d%,� done%)
,Ȏ d%!16 �
6� &406:done%=�:th%=0
@�
J�
T:
^ݤup_dir(a$)
h� n%
r
n%=�a$
|ȕ �a$,n%,1)<>"." n%-=1:�
�=�a$,n%-1)
�:
� ��copy_path(source$,� dest$)
�� s$
�s$=source$
��truncate(s$)
��truncate(dest$)
�0� �s$<�source$ dest$+=�source$,�source$-�s$)
�5� �dest$,"\")<>0 dest$=�dest$,�last_dot(dest$)-1)
��
�:
���mouse_click2(d%)
�Ȏ d%!12 �
� -2:Ȏ d%!8 �
+� 2:�showmenu(mainmenu%,!d%-64,96+2*44)
J� 4:!d%=topdirs%:ș "Wimp_GetWindowState",,d%:ș "Wimp_OpenWindow",,d%
&�
0"� topdirs%:�topdirs_click2(d%)
:�
D�
N:
X��topdirs_click2(d%)
bȎ d%!16 �
l� 9:
v>� stopped% $action_text%="Pause" � $action_text%="Restart"
�stopped%=� stopped%
�.� 8:!d%=topdirs%:ș "Wimp_CloseWindow",,d%
��
��
�:
���receive2(b%)
�Ȏ b%!16 �
�� 0:quit%=�
��
��
�:
�ݤlast_dot(str$)
�� n%
n%=�str$
&ȕ �str$,n%,1)<>"." � n%>0:n%-=1:�
� n%=0 n%=-1
 =n%
*:
4��drag_end
>poll_mask%=&31
H� dragnum%=1 �
Rș "OS_Byte",121,&80 � ,a%
\'� a% sourcestr$=�up_dir(sourcestr$)
f$sourcetop%=sourcestr$
p�make_writable(topdirs%,1)
z�
�C$sourcetop%=�sourcestr$,�last_dot(sourcestr$)-1)+".<Selection>"
�"�make_non_writable(topdirs%,1)
��
�dragnum%=0
��
�:
���make_non_writable(w%,i%)
�c%=�stack(24)
�"ș "Wimp_GetCaretPosition",,c%
�H� (c%!0=w% � c%!4=i%) c%!0=-1:c%!4=-1:ș "Wimp_SetCaretPosition",,c%
�Bc%!0=w%:c%!4=i%:c%!8=0:c%!12=&F<<12:ș "Wimp_SetIconState",,c%
��unstack(c%)
��
:
��make_writable(w%,i%)
c%=�stack(24)
$Gc%!0=w%:c%!4=i%:c%!8=&F<<12:c%!12=&F<<12:ș "Wimp_SetIconState",,c%
.�unstack(c%)
8�
B:
L��keypress(d%)
V
� key%
`key%=d%!24
j
Ȏ key% �
t� 13:�execute(d%)
~
�ș "Wimp_ProcessKey",key%
��
��
�:
�

00000000  0d 00 0a 1e f4 20 3e 20  3c 42 61 63 6b 75 70 24  |..... > <Backup$|
00000010  44 69 72 3e 2e 21 52 75  6e 49 6d 61 67 65 0d 00  |Dir>.!RunImage..|
00000020  14 19 f4 20 28 43 29 20  4d 61 72 74 79 6e 20 46  |... (C) Martyn F|
00000030  6f 78 20 31 39 39 36 0d  00 1e 1e f4 20 48 61 72  |ox 1996..... Har|
00000040  64 20 64 69 73 63 20 62  61 63 6b 75 70 20 70 72  |d disc backup pr|
00000050  6f 67 72 61 6d 0d 00 28  1f 76 65 72 73 69 6f 6e  |ogram..(.version|
00000060  24 3d 22 31 2e 31 30 20  28 32 36 2d 4a 75 6e 2d  |$="1.10 (26-Jun-|
00000070  39 37 29 22 0d 00 32 38  c8 99 20 22 57 69 6d 70  |97)"..28.. "Wimp|
00000080  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00000090  2c 26 34 42 35 33 34 31  35 34 2c 22 42 61 63 6b  |,&4B534154,"Back|
000000a0  75 70 22 20 b8 20 2c 74  61 73 6b 25 0d 00 3c 13  |up" . ,task%..<.|
000000b0  ee 20 85 20 f2 69 6e 69  74 5f 65 72 72 6f 72 0d  |. . .init_error.|
000000c0  00 46 09 f2 69 6e 69 74  0d 00 50 2b d3 3d e0 2b  |.F..init..P+.=.+|
000000d0  26 33 30 30 30 3a 65 78  74 5f 6d 65 6d 5f 70 74  |&3000:ext_mem_pt|
000000e0  72 25 3d 93 3a 6d 65 6d  5f 70 72 6f 74 65 63 74  |r%=.:mem_protect|
000000f0  25 3d 93 0d 00 5a 0a f2  69 6e 69 74 32 0d 00 64  |%=...Z..init2..d|
00000100  1b ee 20 85 20 e7 20 a4  65 72 72 6f 72 20 8c 20  |.. . . .error . |
00000110  f2 63 6c 6f 73 65 3a e0  0d 00 6e 05 f5 0d 00 78  |.close:...n....x|
00000120  09 f2 70 6f 6c 6c 0d 00  82 0b fd 20 71 75 69 74  |..poll..... quit|
00000130  25 0d 00 8c 0a f2 63 6c  6f 73 65 0d 00 96 05 e0  |%.....close.....|
00000140  0d 00 a0 05 3a 0d 00 aa  10 dd f2 69 6e 69 74 5f  |....:......init_|
00000150  65 72 72 6f 72 0d 00 b4  55 c8 99 20 22 57 69 6d  |error...U.. "Wim|
00000160  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c c4  |p_ReportError",.|
00000170  33 2c bd 30 29 2b bd 31  32 38 2b f6 24 2b 22 20  |3,.0)+.128+.$+" |
00000180  28 52 65 66 20 22 2b c3  9e 2b 22 29 22 2c 25 31  |(Ref "+..+")",%1|
00000190  31 31 3c 3c 38 2c 22 42  61 63 6b 75 70 22 2c 22  |11<<8,"Backup","|
000001a0  21 62 61 63 6b 75 70 22  2c 31 0d 00 be 0c f2 63  |!backup",1.....c|
000001b0  6c 6f 73 65 3a e0 0d 00  c8 05 e1 0d 00 d2 05 3a  |lose:..........:|
000001c0  0d 00 dc 15 dd f2 63 72  65 61 74 65 5f 69 63 6f  |......create_ico|
000001d0  6e 28 61 24 29 0d 00 e6  08 ea 20 63 25 0d 00 f0  |n(a$)..... c%...|
000001e0  11 63 25 3d a4 73 74 61  63 6b 28 33 36 29 0d 00  |.c%=.stack(36)..|
000001f0  fa 36 21 63 25 3d 2d 31  3a 63 25 21 34 3d 30 3a  |.6!c%=-1:c%!4=0:|
00000200  63 25 21 38 3d 30 3a 63  25 21 31 32 3d 36 38 3a  |c%!8=0:c%!12=68:|
00000210  63 25 21 31 36 3d 36 38  3a 63 25 21 32 30 3d 26  |c%!16=68:c%!20=&|
00000220  33 30 30 32 0d 01 04 2c  24 28 63 25 2b 32 34 29  |3002...,$(c%+24)|
00000230  3d 61 24 3a c8 99 22 57  69 6d 70 5f 43 72 65 61  |=a$:.."Wimp_Crea|
00000240  74 65 49 63 6f 6e 22 2c  2c 63 25 20 b8 20 69 25  |teIcon",,c% . i%|
00000250  0d 01 0e 10 f2 75 6e 73  74 61 63 6b 28 63 25 29  |.....unstack(c%)|
00000260  0d 01 18 05 e1 0d 01 22  05 3a 0d 01 2c 0b dd f2  |.......".:..,...|
00000270  63 6c 6f 73 65 0d 01 36  27 c8 99 20 22 57 69 6d  |close..6'.. "Wim|
00000280  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 2c 74 61 73  |p_CloseDown",tas|
00000290  6b 25 2c 26 34 42 35 33  34 31 35 34 0d 01 40 05  |k%,&4B534154..@.|
000002a0  e1 0d 01 4a 05 3a 0d 01  54 0a dd f2 70 6f 6c 6c  |...J.:..T...poll|
000002b0  0d 01 5e 25 c8 99 20 22  57 69 6d 70 5f 50 6f 6c  |..^%.. "Wimp_Pol|
000002c0  6c 22 2c 70 6f 6c 6c 5f  6d 61 73 6b 25 2c 62 25  |l",poll_mask%,b%|
000002d0  20 b8 20 72 25 0d 01 68  0b c8 8e 20 72 25 20 ca  | . r%..h... r% .|
000002e0  0d 01 72 11 c9 20 30 3a  f2 64 72 61 67 5f 65 6e  |..r.. 0:.drag_en|
000002f0  64 0d 01 7c 20 c9 20 32  3a c8 99 20 22 57 69 6d  |d..| . 2:.. "Wim|
00000300  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 62  |p_OpenWindow",,b|
00000310  25 0d 01 86 21 c9 20 33  3a c8 99 20 22 57 69 6d  |%...!. 3:.. "Wim|
00000320  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00000330  62 25 0d 01 90 18 c9 20  36 3a f2 6d 6f 75 73 65  |b%..... 6:.mouse|
00000340  5f 63 6c 69 63 6b 28 62  25 29 0d 01 9a 16 c9 20  |_click(b%)..... |
00000350  39 3a f2 6d 65 6e 75 63  6c 69 63 6b 28 62 25 29  |9:.menuclick(b%)|
00000360  0d 01 a4 15 c9 20 38 3a  f2 6b 65 79 70 72 65 73  |..... 8:.keypres|
00000370  73 28 62 25 29 0d 01 ae  18 c9 20 31 37 2c 31 38  |s(b%)..... 17,18|
00000380  3a f2 72 65 63 65 69 76  65 28 62 25 29 0d 01 b8  |:.receive(b%)...|
00000390  11 c9 20 31 39 3a f2 61  63 6b 28 62 25 29 0d 01  |.. 19:.ack(b%)..|
000003a0  c2 05 cb 0d 01 cc 05 e1  0d 01 d6 05 3a 0d 01 e0  |............:...|
000003b0  0b dd a4 65 72 72 6f 72  0d 01 ea 15 ea 20 66 6c  |...error..... fl|
000003c0  61 67 73 25 2c 65 72 72  5f 73 74 72 24 0d 01 f4  |ags%,err_str$...|
000003d0  14 73 74 61 63 6b 70 74  72 25 3d 73 74 61 63 6b  |.stackptr%=stack|
000003e0  25 0d 01 fe 39 f2 6d 61  6b 65 5f 77 72 69 74 61  |%...9.make_writa|
000003f0  62 6c 65 28 74 6f 70 64  69 72 73 25 2c 31 29 3a  |ble(topdirs%,1):|
00000400  f2 6d 61 6b 65 5f 77 72  69 74 61 62 6c 65 28 74  |.make_writable(t|
00000410  6f 70 64 69 72 73 25 2c  35 29 0d 02 08 32 24 61  |opdirs%,5)...2$a|
00000420  63 74 69 6f 6e 5f 74 65  78 74 25 3d 22 53 74 61  |ction_text%="Sta|
00000430  72 74 22 3a f2 72 65 64  72 61 77 5f 69 63 6f 6e  |rt":.redraw_icon|
00000440  28 74 6f 70 64 69 72 73  25 2c 37 29 0d 02 12 09  |(topdirs%,7)....|
00000450  21 62 25 3d 9f 0d 02 1c  6e e7 20 28 21 62 25 20  |!b%=....n. (!b% |
00000460  80 20 28 31 3c 3c 33 30  29 29 3c 3e 30 20 66 6c  |. (1<<30))<>0 fl|
00000470  61 67 73 25 3d 28 21 62  25 20 80 20 26 46 46 46  |ags%=(!b% . &FFF|
00000480  29 20 8b 20 21 62 25 3d  21 62 25 20 84 20 28 31  |) . !b%=!b% . (1|
00000490  3c 3c 33 31 29 3a 66 6c  61 67 73 25 3d 28 25 31  |<<31):flags%=(%1|
000004a0  31 31 3c 3c 38 29 20 84  20 32 3a 65 72 72 5f 73  |11<<8) . 2:err_s|
000004b0  74 72 24 3d 22 20 28 52  65 66 20 22 2b c3 9e 2b  |tr$=" (Ref "+..+|
000004c0  22 29 22 0d 02 26 1a 24  28 62 25 2b 34 29 3d f6  |")"..&.$(b%+4)=.|
000004d0  24 2b 65 72 72 5f 73 74  72 24 2b bd 30 0d 02 30  |$+err_str$+.0..0|
000004e0  45 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |E.. "Wimp_Report|
000004f0  45 72 72 6f 72 22 2c 62  25 2c 66 6c 61 67 73 25  |Error",b%,flags%|
00000500  2c 22 42 61 63 6b 75 70  22 2c 22 21 62 61 63 6b  |,"Backup","!back|
00000510  75 70 22 2c 31 20 b8 20  2c 72 65 73 70 6f 6e 73  |up",1 . ,respons|
00000520  65 25 0d 02 3a 12 3d 28  72 65 73 70 6f 6e 73 65  |e%..:.=(response|
00000530  25 3d 32 29 0d 02 44 05  3a 0d 02 4e 11 dd f2 72  |%=2)..D.:..N...r|
00000540  65 63 65 69 76 65 28 62  25 29 0d 02 58 0e c8 8e  |eceive(b%)..X...|
00000550  20 62 25 21 31 36 20 ca  0d 02 62 0f c9 20 30 3a  | b%!16 ...b.. 0:|
00000560  71 75 69 74 25 3d b9 0d  02 6c 11 c9 20 33 3a f2  |quit%=...l.. 3:.|
00000570  6c 6f 61 64 28 62 25 29  0d 02 76 05 cb 0d 02 80  |load(b%)..v.....|
00000580  05 e1 0d 02 8a 05 3a 0d  02 94 0a dd f2 69 6e 69  |......:......ini|
00000590  74 0d 02 9e 0b 69 6e 69  74 25 3d b9 0d 02 a8 33  |t....init%=....3|
000005a0  de 20 62 25 20 32 35 35  2c 6d 65 6e 73 70 63 25  |. b% 255,menspc%|
000005b0  20 31 30 30 30 2c 73 74  61 63 6b 25 20 31 30 32  | 1000,stack% 102|
000005c0  33 2c 62 61 63 6b 75 70  64 69 72 25 20 31 31 0d  |3,backupdir% 11.|
000005d0  02 b2 3f 6d 65 6e 65 6e  64 25 3d 6d 65 6e 73 70  |..?menend%=mensp|
000005e0  63 25 2b 31 30 30 30 3a  73 74 61 63 6b 65 6e 64  |c%+1000:stackend|
000005f0  25 3d 73 74 61 63 6b 25  2b 31 30 32 33 3a 73 74  |%=stack%+1023:st|
00000600  61 63 6b 70 74 72 25 3d  73 74 61 63 6b 25 0d 02  |ackptr%=stack%..|
00000610  bc 25 71 75 69 74 25 3d  a3 3a 73 74 6f 70 70 65  |.%quit%=.:stoppe|
00000620  64 25 3d a3 3a 70 6f 6c  6c 5f 6d 61 73 6b 25 3d  |d%=.:poll_mask%=|
00000630  26 33 31 0d 02 c6 22 74  68 25 3d 30 3a 64 72 61  |&31..."th%=0:dra|
00000640  67 6e 75 6d 25 3d 30 3a  73 6f 75 72 63 65 73 74  |gnum%=0:sourcest|
00000650  72 24 3d 22 22 0d 02 d0  0e f2 69 6e 69 74 5f 73  |r$="".....init_s|
00000660  6c 6f 74 0d 02 da 05 e1  0d 02 e4 05 3a 0d 02 ee  |lot.........:...|
00000670  0b dd f2 69 6e 69 74 32  0d 02 f8 13 f2 6c 6f 61  |...init2.....loa|
00000680  64 5f 74 65 6d 70 6c 61  74 65 73 0d 03 02 0a f2  |d_templates.....|
00000690  6d 65 6e 75 73 0d 03 0c  1b f2 63 72 65 61 74 65  |menus.....create|
000006a0  5f 69 63 6f 6e 28 22 21  62 61 63 6b 75 70 22 29  |_icon("!backup")|
000006b0  0d 03 16 46 21 62 25 3d  74 6f 70 64 69 72 73 25  |...F!b%=topdirs%|
000006c0  3a c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |:.. "Wimp_GetWin|
000006d0  64 6f 77 53 74 61 74 65  22 2c 2c 62 25 3a c8 99  |dowState",,b%:..|
000006e0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
000006f0  77 22 2c 2c 62 25 0d 03  20 0b 69 6e 69 74 25 3d  |w",,b%.. .init%=|
00000700  a3 0d 03 2a 05 e1 0d 03  34 05 3a 0d 03 3e 0b dd  |...*....4.:..>..|
00000710  f2 6d 65 6e 75 73 0d 03  48 0e f2 6d 61 69 6e 5f  |.menus..H..main_|
00000720  6d 65 6e 75 0d 03 52 0c  f2 62 75 5f 6d 65 6e 75  |menu..R..bu_menu|
00000730  0d 03 5c 1e f2 61 74 74  61 63 68 28 6d 61 69 6e  |..\..attach(main|
00000740  6d 65 6e 75 25 2c 30 2c  69 6e 66 6f 25 29 0d 03  |menu%,0,info%)..|
00000750  66 21 f2 61 74 74 61 63  68 28 6d 61 69 6e 6d 65  |f!.attach(mainme|
00000760  6e 75 25 2c 31 2c 62 75  5f 6d 65 6e 75 25 29 0d  |nu%,1,bu_menu%).|
00000770  03 70 05 e1 0d 03 7a 05  3a 0d 03 84 15 dd f2 6d  |.p....z.:......m|
00000780  6f 75 73 65 5f 63 6c 69  63 6b 28 64 25 29 0d 03  |ouse_click(d%)..|
00000790  8e 0e c8 8e 20 64 25 21  31 32 20 ca 0d 03 98 12  |.... d%!12 .....|
000007a0  c9 20 2d 32 3a c8 8e 20  64 25 21 38 20 ca 0d 03  |. -2:.. d%!8 ...|
000007b0  a2 2b c9 20 32 3a f2 73  68 6f 77 6d 65 6e 75 28  |.+. 2:.showmenu(|
000007c0  6d 61 69 6e 6d 65 6e 75  25 2c 21 64 25 2d 36 34  |mainmenu%,!d%-64|
000007d0  2c 39 36 2b 33 2a 34 34  29 0d 03 ac 4a c9 20 34  |,96+3*44)...J. 4|
000007e0  3a 21 64 25 3d 74 6f 70  64 69 72 73 25 3a c8 99  |:!d%=topdirs%:..|
000007f0  20 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  | "Wimp_GetWindow|
00000800  53 74 61 74 65 22 2c 2c  64 25 3a c8 99 20 22 57  |State",,d%:.. "W|
00000810  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00000820  2c 64 25 0d 03 b6 05 cb  0d 03 c0 21 c9 20 74 6f  |,d%........!. to|
00000830  70 64 69 72 73 25 3a f2  74 6f 70 64 69 72 73 5f  |pdirs%:.topdirs_|
00000840  63 6c 69 63 6b 28 64 25  29 0d 03 ca 05 cb 0d 03  |click(d%).......|
00000850  d4 05 e1 0d 03 de 05 3a  0d 03 e8 14 dd f2 6c 6f  |.......:......lo|
00000860  61 64 5f 74 65 6d 70 6c  61 74 65 73 0d 03 f2 2f  |ad_templates.../|
00000870  ea 20 63 25 2c 62 75 66  25 2c 77 73 25 2c 62 75  |. c%,buf%,ws%,bu|
00000880  66 5f 73 69 7a 65 25 2c  69 6e 64 5f 73 69 7a 65  |f_size%,ind_size|
00000890  25 2c 6e 25 2c 73 25 2c  73 32 25 0d 03 fc 12 63  |%,n%,s%,s2%....c|
000008a0  25 3d a4 73 74 61 63 6b  28 32 35 35 29 0d 04 06  |%=.stack(255)...|
000008b0  34 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |4.. "Wimp_OpenTe|
000008c0  6d 70 6c 61 74 65 22 2c  2c 22 3c 42 61 63 6b 75  |mplate",,"<Backu|
000008d0  70 24 44 69 72 3e 2e 54  65 6d 70 6c 61 74 65 73  |p$Dir>.Templates|
000008e0  22 0d 04 10 2b 62 75 66  5f 73 69 7a 65 25 3d 30  |"...+buf_size%=0|
000008f0  3a 69 6e 64 5f 73 69 7a  65 25 3d 30 3a 6e 25 3d  |:ind_size%=0:n%=|
00000900  30 3a 73 25 3d 30 3a 73  32 25 3d 30 0d 04 1a 05  |0:s%=0:s2%=0....|
00000910  f5 0d 04 24 15 f2 74 65  72 6d 28 63 25 29 3a 24  |...$..term(c%):$|
00000920  63 25 3d 22 2a 22 0d 04  2e 39 c8 99 20 22 57 69  |c%="*"...9.. "Wi|
00000930  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000940  2c 2c 2d 31 2c 2c 2c 2d  31 2c 63 25 2c 6e 25 20  |,,-1,,,-1,c%,n% |
00000950  b8 20 2c 73 25 2c 73 32  25 2c 2c 2c 2c 6e 25 0d  |. ,s%,s2%,,,,n%.|
00000960  04 38 1f e7 20 73 25 3e  62 75 66 5f 73 69 7a 65  |.8.. s%>buf_size|
00000970  25 20 62 75 66 5f 73 69  7a 65 25 3d 73 25 0d 04  |% buf_size%=s%..|
00000980  42 12 69 6e 64 5f 73 69  7a 65 25 2b 3d 73 32 25  |B.ind_size%+=s2%|
00000990  0d 04 4c 0a fd 20 6e 25  3d 30 0d 04 56 31 f2 77  |..L.. n%=0..V1.w|
000009a0  6f 72 64 5f 61 6c 69 67  6e 28 62 75 66 5f 73 69  |ord_align(buf_si|
000009b0  7a 65 25 29 3a f2 77 6f  72 64 5f 61 6c 69 67 6e  |ze%):.word_align|
000009c0  28 69 6e 64 5f 73 69 7a  65 25 29 0d 04 60 25 77  |(ind_size%)..`%w|
000009d0  73 25 3d a4 65 78 74 5f  62 75 66 28 62 75 66 5f  |s%=.ext_buf(buf_|
000009e0  73 69 7a 65 25 2b 69 6e  64 5f 73 69 7a 65 25 29  |size%+ind_size%)|
000009f0  0d 04 6a 42 e7 20 77 73  25 3d a3 20 85 20 31 3c  |..jB. ws%=. . 1<|
00000a00  3c 33 30 2c 22 49 6e 73  75 66 66 69 63 69 65 6e  |<30,"Insufficien|
00000a10  74 20 6d 65 6d 6f 72 79  20 74 6f 20 6c 6f 61 64  |t memory to load|
00000a20  20 77 69 6e 64 6f 77 20  74 65 6d 70 6c 61 74 65  | window template|
00000a30  73 22 0d 04 74 16 62 75  66 25 3d 77 73 25 2b 69  |s"..t.buf%=ws%+i|
00000a40  6e 64 5f 73 69 7a 65 25  0d 04 7e 15 6d 65 6d 5f  |nd_size%..~.mem_|
00000a50  70 72 6f 74 65 63 74 25  3d 62 75 66 25 0d 04 88  |protect%=buf%...|
00000a60  41 c8 99 20 22 57 69 6d  70 5f 4c 6f 61 64 54 65  |A.. "Wimp_LoadTe|
00000a70  6d 70 6c 61 74 65 22 2c  2c 62 75 66 25 2c 77 73  |mplate",,buf%,ws|
00000a80  25 2c 62 75 66 25 2c 2d  31 2c 22 70 72 6f 67 49  |%,buf%,-1,"progI|
00000a90  6e 66 6f 22 2c 30 20 b8  20 2c 2c 77 73 25 0d 04  |nfo",0 . ,,ws%..|
00000aa0  92 1f 24 62 75 66 25 21  28 38 38 2b 33 32 2a 34  |..$buf%!(88+32*4|
00000ab0  2b 32 30 29 3d 76 65 72  73 69 6f 6e 24 0d 04 9c  |+20)=version$...|
00000ac0  28 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |(.. "Wimp_Create|
00000ad0  57 69 6e 64 6f 77 22 2c  2c 62 75 66 25 20 b8 20  |Window",,buf% . |
00000ae0  69 6e 66 6f 25 0d 04 a6  40 c8 99 20 22 57 69 6d  |info%...@.. "Wim|
00000af0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000b00  2c 62 75 66 25 2c 77 73  25 2c 62 75 66 25 2c 2d  |,buf%,ws%,buf%,-|
00000b10  31 2c 22 54 6f 70 44 69  72 73 22 2c 30 20 b8 20  |1,"TopDirs",0 . |
00000b20  2c 2c 77 73 25 0d 04 b0  20 73 6f 75 72 63 65 74  |,,ws%... sourcet|
00000b30  6f 70 25 3d 62 75 66 25  21 28 38 38 2b 33 32 2a  |op%=buf%!(88+32*|
00000b40  31 2b 32 30 29 0d 04 ba  1e 64 65 73 74 74 6f 70  |1+20)....desttop|
00000b50  25 3d 62 75 66 25 21 28  38 38 2b 33 32 2a 35 2b  |%=buf%!(88+32*5+|
00000b60  32 30 29 0d 04 c4 22 61  63 74 69 6f 6e 5f 74 65  |20)..."action_te|
00000b70  78 74 25 3d 62 75 66 25  21 28 38 38 2b 33 32 2a  |xt%=buf%!(88+32*|
00000b80  39 2b 32 30 29 0d 04 ce  2b c8 99 20 22 57 69 6d  |9+20)...+.. "Wim|
00000b90  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000ba0  2c 62 75 66 25 20 b8 20  74 6f 70 64 69 72 73 25  |,buf% . topdirs%|
00000bb0  0d 04 d8 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000bc0  73 65 54 65 6d 70 6c 61  74 65 22 0d 04 e2 1a f2  |seTemplate".....|
00000bd0  72 65 6c 5f 62 75 66 28  6d 65 6d 5f 70 72 6f 74  |rel_buf(mem_prot|
00000be0  65 63 74 25 29 0d 04 ec  10 f2 75 6e 73 74 61 63  |ect%).....unstac|
00000bf0  6b 28 63 25 29 0d 04 f6  05 e1 0d 05 00 05 3a 0d  |k(c%).........:.|
00000c00  05 0a 0f dd a4 6d 61 6b  65 5f 6d 65 6e 75 0d 05  |.....make_menu..|
00000c10  14 3c e7 20 6d 65 6e 73  70 63 25 2b 32 38 3e 6d  |.<. menspc%+28>m|
00000c20  65 6e 65 6e 64 25 20 85  20 28 31 3c 3c 33 30 29  |enend% . (1<<30)|
00000c30  2b 32 2c 22 4e 6f 74 20  65 6e 6f 75 67 68 20 6d  |+2,"Not enough m|
00000c40  65 6e 75 20 73 70 61 63  65 22 0d 05 1e 12 73 74  |enu space"....st|
00000c50  61 72 74 25 3d 6d 65 6e  73 70 63 25 0d 05 28 0c  |art%=menspc%..(.|
00000c60  f3 20 74 69 74 6c 65 24  0d 05 32 5f e7 20 a9 74  |. title$..2_. .t|
00000c70  69 74 6c 65 24 3c 3d 31  32 20 8c 20 24 28 73 74  |itle$<=12 . $(st|
00000c80  61 72 74 25 29 3d 74 69  74 6c 65 24 20 8b 20 21  |art%)=title$ . !|
00000c90  73 74 61 72 74 25 3d a4  69 6e 64 69 72 65 63 74  |start%=.indirect|
00000ca0  28 74 69 74 6c 65 24 29  3a 73 74 61 72 74 25 21  |(title$):start%!|
00000cb0  34 3d 2d 31 3a 73 74 61  72 74 25 21 38 3d a9 74  |4=-1:start%!8=.t|
00000cc0  69 74 6c 65 24 2b 31 0d  05 3c 4c 73 74 61 72 74  |itle$+1..<Lstart|
00000cd0  25 3f 31 32 3d 37 3a 73  74 61 72 74 25 3f 31 33  |%?12=7:start%?13|
00000ce0  3d 32 3a 73 74 61 72 74  25 3f 31 34 3d 37 3a 73  |=2:start%?14=7:s|
00000cf0  74 61 72 74 25 3f 31 35  3d 30 3a 73 74 61 72 74  |tart%?15=0:start|
00000d00  25 21 32 30 3d 34 34 3a  73 74 61 72 74 25 21 32  |%!20=44:start%!2|
00000d10  34 3d 30 0d 05 46 16 77  69 64 74 68 25 3d a9 28  |4=0..F.width%=.(|
00000d20  74 69 74 6c 65 24 29 2d  33 0d 05 50 1e e7 20 c0  |title$)-3..P.. .|
00000d30  74 69 74 6c 65 24 2c 31  29 3d 22 5c 22 20 77 69  |title$,1)="\" wi|
00000d40  64 74 68 25 2d 3d 31 0d  05 5a 1e e7 20 c2 74 69  |dth%-=1..Z.. .ti|
00000d50  74 6c 65 24 2c 31 29 3d  22 20 22 20 77 69 64 74  |tle$,1)=" " widt|
00000d60  68 25 2d 3d 31 0d 05 64  0f 6d 65 6e 73 70 63 25  |h%-=1..d.menspc%|
00000d70  2b 3d 32 38 0d 05 6e 05  f5 0d 05 78 0b f3 20 69  |+=28..n....x.. i|
00000d80  74 65 6d 24 0d 05 82 12  e7 20 69 74 65 6d 24 3c  |tem$..... item$<|
00000d90  3e 22 2a 22 20 8c 0d 05  8c 3c e7 20 6d 65 6e 73  |>"*" ....<. mens|
00000da0  70 63 25 2b 32 34 3e 6d  65 6e 65 6e 64 25 20 85  |pc%+24>menend% .|
00000db0  20 28 31 3c 3c 33 30 29  2b 32 2c 22 4e 6f 74 20  | (1<<30)+2,"Not |
00000dc0  65 6e 6f 75 67 68 20 6d  65 6e 75 20 73 70 61 63  |enough menu spac|
00000dd0  65 22 0d 05 96 2e e7 20  a9 74 69 74 6c 65 24 3c  |e"..... .title$<|
00000de0  3d 31 32 20 8c 20 21 6d  65 6e 73 70 63 25 3d 30  |=12 . !menspc%=0|
00000df0  20 8b 20 21 6d 65 6e 73  70 63 25 3d 31 3c 3c 38  | . !menspc%=1<<8|
00000e00  0d 05 a0 10 77 72 69 74  65 61 62 6c 65 25 3d a3  |....writeable%=.|
00000e10  0d 05 aa 13 75 6c 25 3d  a7 69 74 65 6d 24 2c 22  |....ul%=.item$,"|
00000e20  5f 22 29 0d 05 b4 0b e7  20 75 6c 25 20 8c 0d 05  |_")..... ul% ...|
00000e30  be 1e 74 61 69 6c 24 3d  c2 69 74 65 6d 24 2c a9  |..tail$=.item$,.|
00000e40  28 69 74 65 6d 24 29 2d  75 6c 25 29 0d 05 c8 27  |(item$)-ul%)...'|
00000e50  e7 20 a7 74 61 69 6c 24  2c 22 54 22 29 20 21 6d  |. .tail$,"T") !m|
00000e60  65 6e 73 70 63 25 3d 21  6d 65 6e 73 70 63 25 20  |enspc%=!menspc% |
00000e70  84 20 31 0d 05 d2 27 e7  20 a7 74 61 69 6c 24 2c  |. 1...'. .tail$,|
00000e80  22 44 22 29 20 21 6d 65  6e 73 70 63 25 3d 21 6d  |"D") !menspc%=!m|
00000e90  65 6e 73 70 63 25 20 84  20 32 0d 05 dc 48 e7 20  |enspc% . 2...H. |
00000ea0  a7 74 61 69 6c 24 2c 22  57 22 29 20 21 6d 65 6e  |.tail$,"W") !men|
00000eb0  73 70 63 25 3d 21 6d 65  6e 73 70 63 25 20 84 20  |spc%=!menspc% . |
00000ec0  34 3a 77 72 69 74 65 61  62 6c 65 25 3d b9 3a f3  |4:writeable%=.:.|
00000ed0  20 62 75 66 66 65 72 25  3a f3 20 62 75 66 6c 65  | buffer%:. bufle|
00000ee0  6e 25 0d 05 e6 27 e7 20  a7 74 61 69 6c 24 2c 22  |n%...'. .tail$,"|
00000ef0  4d 22 29 20 21 6d 65 6e  73 70 63 25 3d 21 6d 65  |M") !menspc%=!me|
00000f00  6e 73 70 63 25 20 84 20  38 0d 05 f0 17 69 74 65  |nspc% . 8....ite|
00000f10  6d 24 3d c0 69 74 65 6d  24 2c 75 6c 25 2d 31 29  |m$=.item$,ul%-1)|
00000f20  0d 05 fa 05 cd 0d 06 04  21 e7 20 a9 69 74 65 6d  |........!. .item|
00000f30  24 3e 77 69 64 74 68 25  20 77 69 64 74 68 25 3d  |$>width% width%=|
00000f40  a9 69 74 65 6d 24 0d 06  0e 10 6d 65 6e 73 70 63  |.item$....menspc|
00000f50  25 21 34 3d 2d 31 0d 06  18 12 e7 20 77 72 69 74  |%!4=-1..... writ|
00000f60  65 61 62 6c 65 25 20 8c  0d 06 22 5a 6d 65 6e 73  |eable% ..."Zmens|
00000f70  70 63 25 21 38 3d 26 30  37 30 30 46 31 32 31 3a  |pc%!8=&0700F121:|
00000f80  6d 65 6e 73 70 63 25 21  31 32 3d 62 75 66 66 65  |menspc%!12=buffe|
00000f90  72 25 3a 6d 65 6e 73 70  63 25 21 31 36 3d 2d 31  |r%:menspc%!16=-1|
00000fa0  3a 6d 65 6e 73 70 63 25  21 32 30 3d 62 75 66 6c  |:menspc%!20=bufl|
00000fb0  65 6e 25 3a 24 62 75 66  66 65 72 25 3d 69 74 65  |en%:$buffer%=ite|
00000fc0  6d 24 0d 06 2c 05 cc 0d  06 36 11 e7 20 a9 69 74  |m$..,....6.. .it|
00000fd0  65 6d 24 3c 31 32 20 8c  0d 06 40 2b 6d 65 6e 73  |em$<12 ...@+mens|
00000fe0  70 63 25 21 38 3d 26 30  37 30 30 30 30 32 31 3a  |pc%!8=&07000021:|
00000ff0  24 28 6d 65 6e 73 70 63  25 2b 31 32 29 3d 69 74  |$(menspc%+12)=it|
00001000  65 6d 24 0d 06 4a 05 cc  0d 06 54 55 6d 65 6e 73  |em$..J....TUmens|
00001010  70 63 25 21 38 3d 26 30  37 30 30 30 31 32 31 3a  |pc%!8=&07000121:|
00001020  6d 65 6e 73 70 63 25 21  31 32 3d a4 69 6e 64 69  |menspc%!12=.indi|
00001030  72 65 63 74 28 69 74 65  6d 24 29 3a 6d 65 6e 73  |rect(item$):mens|
00001040  70 63 25 21 31 36 3d 2d  31 3a 6d 65 6e 73 70 63  |pc%!16=-1:menspc|
00001050  25 21 32 30 3d a9 69 74  65 6d 24 2b 31 0d 06 5e  |%!20=.item$+1..^|
00001060  05 cd 0d 06 68 05 cd 0d  06 72 0f 6d 65 6e 73 70  |....h....r.mensp|
00001070  63 25 2b 3d 32 34 0d 06  7c 05 cd 0d 06 86 0f fd  |c%+=24..|.......|
00001080  20 69 74 65 6d 24 3d 22  2a 22 0d 06 90 1a 73 74  | item$="*"....st|
00001090  61 72 74 25 21 31 36 3d  77 69 64 74 68 25 2a 31  |art%!16=width%*1|
000010a0  36 2b 33 32 0d 06 9a 25  21 28 6d 65 6e 73 70 63  |6+32...%!(menspc|
000010b0  25 2d 32 34 29 3d 21 28  6d 65 6e 73 70 63 25 2d  |%-24)=!(menspc%-|
000010c0  32 34 29 20 84 20 26 38  30 0d 06 a4 11 6d 70 74  |24) . &80....mpt|
000010d0  72 25 3d 6d 65 6e 73 70  63 25 0d 06 ae 0b 3d 73  |r%=menspc%....=s|
000010e0  74 61 72 74 25 0d 06 b8  05 3a 0d 06 c2 1e dd f2  |tart%....:......|
000010f0  61 74 74 61 63 68 28 6d  65 6e 75 25 2c 69 74 65  |attach(menu%,ite|
00001100  6d 25 2c 73 75 62 25 29  0d 06 cc 1f 21 28 6d 65  |m%,sub%)....!(me|
00001110  6e 75 25 2b 32 38 2b 69  74 65 6d 25 2a 32 34 2b  |nu%+28+item%*24+|
00001120  34 29 3d 73 75 62 25 0d  06 d6 05 e1 0d 06 e0 05  |4)=sub%.........|
00001130  3a 0d 06 ea 1b dd f2 73  68 6f 77 6d 65 6e 75 28  |:......showmenu(|
00001140  6d 65 6e 75 25 2c 78 25  2c 79 25 29 0d 06 f4 24  |menu%,x%,y%)...$|
00001150  74 6f 70 6d 65 6e 75 25  3d 6d 65 6e 75 25 3a 74  |topmenu%=menu%:t|
00001160  6f 70 78 25 3d 78 25 3a  74 6f 70 79 25 3d 79 25  |opx%=x%:topy%=y%|
00001170  0d 06 fe 25 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...%.. "Wimp_Cre|
00001180  61 74 65 4d 65 6e 75 22  2c 2c 6d 65 6e 75 25 2c  |ateMenu",,menu%,|
00001190  78 25 2c 79 25 0d 07 08  05 e1 0d 07 12 05 3a 0d  |x%,y%.........:.|
000011a0  07 1c 13 dd f2 6d 65 6e  75 63 6c 69 63 6b 28 62  |.....menuclick(b|
000011b0  25 29 0d 07 26 08 ea 20  63 25 0d 07 30 11 63 25  |%)..&.. c%..0.c%|
000011c0  3d a4 73 74 61 63 6b 28  33 36 29 0d 07 3a 20 c8  |=.stack(36)..: .|
000011d0  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
000011e0  65 72 49 6e 66 6f 22 2c  2c 63 25 0d 07 44 13 61  |erInfo",,c%..D.a|
000011f0  64 6a 25 3d 28 63 25 21  38 20 80 20 31 29 0d 07  |dj%=(c%!8 . 1)..|
00001200  4e 28 c8 99 20 22 57 69  6d 70 5f 44 65 63 6f 64  |N(.. "Wimp_Decod|
00001210  65 4d 65 6e 75 22 2c 2c  74 6f 70 6d 65 6e 75 25  |eMenu",,topmenu%|
00001220  2c 62 25 2c 63 25 0d 07  58 0c c8 8e 20 24 63 25  |,b%,c%..X... $c%|
00001230  20 ca 0d 07 62 14 c9 20  22 51 75 69 74 22 3a 71  | ...b.. "Quit":q|
00001240  75 69 74 25 3d b9 0d 07  6c 05 cb 0d 07 76 2a e7  |uit%=...l....v*.|
00001250  20 61 64 6a 25 20 f2 73  68 6f 77 6d 65 6e 75 28  | adj% .showmenu(|
00001260  74 6f 70 6d 65 6e 75 25  2c 74 6f 70 78 25 2c 74  |topmenu%,topx%,t|
00001270  6f 70 79 25 29 0d 07 80  10 f2 75 6e 73 74 61 63  |opy%).....unstac|
00001280  6b 28 63 25 29 0d 07 8a  05 e1 0d 07 94 05 3a 0d  |k(c%).........:.|
00001290  07 9e 0f dd f2 6d 61 69  6e 5f 6d 65 6e 75 0d 07  |.....main_menu..|
000012a0  a8 08 f7 20 2b 31 0d 07  b2 22 dc 20 42 61 63 6b  |... +1...". Back|
000012b0  75 70 2c 49 6e 66 6f 2c  42 61 63 6b 75 70 64 69  |up,Info,Backupdi|
000012c0  72 2c 51 75 69 74 2c 2a  0d 07 bc 18 6d 61 69 6e  |r,Quit,*....main|
000012d0  6d 65 6e 75 25 3d a4 6d  61 6b 65 5f 6d 65 6e 75  |menu%=.make_menu|
000012e0  0d 07 c6 05 e1 0d 07 d0  05 3a 0d 07 da 0d dd f2  |.........:......|
000012f0  62 75 5f 6d 65 6e 75 0d  07 e4 08 f7 20 2b 31 0d  |bu_menu..... +1.|
00001300  07 ee 2c dc 20 42 61 63  6b 75 70 64 69 72 2c 2b  |..,. Backupdir,+|
00001310  2b 42 61 63 6b 75 70 2b  2b 5f 57 2c 62 61 63 6b  |+Backup++_W,back|
00001320  75 70 64 69 72 25 2c 31  31 2c 2a 0d 07 f8 17 62  |updir%,11,*....b|
00001330  75 5f 6d 65 6e 75 25 3d  a4 6d 61 6b 65 5f 6d 65  |u_menu%=.make_me|
00001340  6e 75 0d 08 02 05 e1 0d  08 0c 05 3a 0d 08 16 0e  |nu.........:....|
00001350  dd f2 74 65 72 6d 28 61  25 29 0d 08 20 08 ea 20  |..term(a%).. .. |
00001360  6e 25 0d 08 2a 0f c8 95  20 61 25 3f 6e 25 3e 33  |n%..*... a%?n%>3|
00001370  31 0d 08 34 09 6e 25 2b  3d 31 0d 08 3e 05 ce 0d  |1..4.n%+=1..>...|
00001380  08 48 0c 61 25 3f 6e 25  3d 31 33 0d 08 52 05 e1  |.H.a%?n%=13..R..|
00001390  0d 08 5c 05 3a 0d 08 66  1f dd a4 69 63 6f 6e 5f  |..\.:..f...icon_|
000013a0  73 74 61 74 65 28 77 69  6e 64 6f 77 25 2c 69 63  |state(window%,ic|
000013b0  6f 6e 25 29 0d 08 70 0b  ea 20 61 25 2c 63 25 0d  |on%)..p.. a%,c%.|
000013c0  08 7a 11 63 25 3d a4 73  74 61 63 6b 28 33 36 29  |.z.c%=.stack(36)|
000013d0  0d 08 84 0f 21 63 25 3d  77 69 6e 64 6f 77 25 0d  |....!c%=window%.|
000013e0  08 8e 0e 63 25 21 34 3d  69 63 6f 6e 25 0d 08 98  |...c%!4=icon%...|
000013f0  1e c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |... "Wimp_GetIco|
00001400  6e 53 74 61 74 65 22 2c  2c 63 25 0d 08 a2 1d 61  |nState",,c%....a|
00001410  25 3d 28 28 63 25 21 32  34 29 20 80 20 28 31 3c  |%=((c%!24) . (1<|
00001420  3c 32 31 29 29 3c 3e 30  0d 08 ac 10 f2 75 6e 73  |<21))<>0.....uns|
00001430  74 61 63 6b 28 63 25 29  0d 08 b6 07 3d 61 25 0d  |tack(c%)....=a%.|
00001440  08 c0 05 3a 0d 08 ca 12  dd a4 69 6e 64 69 72 65  |...:......indire|
00001450  63 74 28 61 24 29 0d 08  d4 08 ea 20 65 25 0d 08  |ct(a$)..... e%..|
00001460  de 16 65 25 3d a4 65 78  74 5f 62 75 66 28 a9 61  |..e%=.ext_buf(.a|
00001470  24 2b 31 29 0d 08 e8 25  e7 20 65 25 3d a3 20 85  |$+1)...%. e%=. .|
00001480  20 31 3c 3c 33 31 2c 22  4f 75 74 20 6f 66 20 77  | 1<<31,"Out of w|
00001490  6f 72 6b 73 70 61 63 65  22 0d 08 f2 0a 24 65 25  |orkspace"....$e%|
000014a0  3d 61 24 0d 08 fc 33 6d  65 6d 5f 70 72 6f 74 65  |=a$...3mem_prote|
000014b0  63 74 25 3d 65 25 2b a9  61 24 2b 31 3a f2 77 6f  |ct%=e%+.a$+1:.wo|
000014c0  72 64 5f 61 6c 69 67 6e  28 6d 65 6d 5f 70 72 6f  |rd_align(mem_pro|
000014d0  74 65 63 74 25 29 0d 09  06 07 3d 65 25 0d 09 10  |tect%)....=e%...|
000014e0  05 3a 0d 09 1a 16 dd f2  77 6f 72 64 5f 61 6c 69  |.:......word_ali|
000014f0  67 6e 28 f8 20 61 25 29  0d 09 24 1e e7 20 61 25  |gn(. a%)..$.. a%|
00001500  20 83 20 34 3c 3e 30 20  61 25 2b 3d 34 2d 28 61  | . 4<>0 a%+=4-(a|
00001510  25 20 83 20 34 29 0d 09  2e 05 e1 0d 09 38 05 3a  |% . 4).......8.:|
00001520  0d 09 42 12 dd a4 73 74  61 63 6b 28 73 69 7a 65  |..B...stack(size|
00001530  25 29 0d 09 4c 39 e7 20  73 74 61 63 6b 70 74 72  |%)..L9. stackptr|
00001540  25 2b 73 69 7a 65 25 3e  73 74 61 63 6b 65 6e 64  |%+size%>stackend|
00001550  25 20 20 31 3c 3c 33 31  2c 22 4e 6f 20 72 6f 6f  |%  1<<31,"No roo|
00001560  6d 20 69 6e 20 73 74 61  63 6b 22 0d 09 56 14 73  |m in stack"..V.s|
00001570  74 61 63 6b 70 74 72 25  2b 3d 73 69 7a 65 25 0d  |tackptr%+=size%.|
00001580  09 60 14 3d 73 74 61 63  6b 70 74 72 25 2d 73 69  |.`.=stackptr%-si|
00001590  7a 65 25 0d 09 6a 05 3a  0d 09 74 17 dd f2 75 6e  |ze%..j.:..t...un|
000015a0  73 74 61 63 6b 28 6f 6c  64 5f 70 74 72 25 29 0d  |stack(old_ptr%).|
000015b0  09 7e 16 73 74 61 63 6b  70 74 72 25 3d 6f 6c 64  |.~.stackptr%=old|
000015c0  5f 70 74 72 25 0d 09 88  27 e7 20 73 74 61 63 6b  |_ptr%...'. stack|
000015d0  70 74 72 25 3c 73 74 61  63 6b 25 20 73 74 61 63  |ptr%<stack% stac|
000015e0  6b 70 74 72 25 3d 73 74  61 63 6b 25 0d 09 92 05  |kptr%=stack%....|
000015f0  e1 0d 09 9c 05 3a 0d 09  a6 20 dd f2 72 65 64 72  |.....:... ..redr|
00001600  61 77 5f 69 63 6f 6e 28  77 69 6e 64 6f 77 25 2c  |aw_icon(window%,|
00001610  69 63 6f 6e 25 29 0d 09  b0 08 ea 20 63 25 0d 09  |icon%)..... c%..|
00001620  ba 11 63 25 3d a4 73 74  61 63 6b 28 31 36 29 0d  |..c%=.stack(16).|
00001630  09 c4 2a 63 25 21 30 3d  77 69 6e 64 6f 77 25 3a  |..*c%!0=window%:|
00001640  63 25 21 34 3d 69 63 6f  6e 25 3a 63 25 21 38 3d  |c%!4=icon%:c%!8=|
00001650  30 3a 63 25 21 31 32 3d  30 0d 09 ce 1e c8 99 20  |0:c%!12=0...... |
00001660  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00001670  74 65 22 2c 2c 63 25 0d  09 d8 10 f2 75 6e 73 74  |te",,c%.....unst|
00001680  61 63 6b 28 63 25 29 0d  09 e2 05 e1 0d 09 ec 05  |ack(c%).........|
00001690  3a 0d 09 f6 12 dd a4 6c  65 61 66 6e 61 6d 65 28  |:......leafname(|
000016a0  61 24 29 0d 0a 00 19 3d  c1 61 24 2c a4 6c 61 73  |a$)....=.a$,.las|
000016b0  74 5f 64 6f 74 28 61 24  29 2b 31 29 0d 0a 0a 05  |t_dot(a$)+1)....|
000016c0  3a 0d 0a 14 14 dd a4 65  78 74 5f 62 75 66 28 73  |:......ext_buf(s|
000016d0  69 7a 65 25 29 0d 0a 1e  1d ea 20 73 6c 6f 74 5f  |ize%)..... slot_|
000016e0  73 69 7a 65 25 2c 6e 25  2c 6e 65 77 5f 73 6c 6f  |size%,n%,new_slo|
000016f0  74 25 0d 0a 28 30 f2 77  6f 72 64 5f 61 6c 69 67  |t%..(0.word_alig|
00001700  6e 28 65 78 74 5f 6d 65  6d 5f 70 74 72 25 29 3a  |n(ext_mem_ptr%):|
00001710  f2 77 6f 72 64 5f 61 6c  69 67 6e 28 73 69 7a 65  |.word_align(size|
00001720  25 29 0d 0a 32 35 c8 99  20 22 57 69 6d 70 5f 53  |%)..25.. "Wimp_S|
00001730  6c 6f 74 53 69 7a 65 22  2c 2d 31 2c 2d 31 20 b8  |lotSize",-1,-1 .|
00001740  20 73 6c 6f 74 5f 73 69  7a 65 25 2c 6e 65 78 74  | slot_size%,next|
00001750  25 2c 66 72 65 65 25 0d  0a 3c 30 e7 20 73 69 7a  |%,free%..<0. siz|
00001760  65 25 3c 73 6c 6f 74 5f  73 69 7a 65 25 2b 73 6c  |e%<slot_size%+sl|
00001770  6f 74 5f 62 61 73 65 25  2d 65 78 74 5f 6d 65 6d  |ot_base%-ext_mem|
00001780  5f 70 74 72 25 20 8c 0d  0a 46 27 6e 25 3d 65 78  |_ptr% ...F'n%=ex|
00001790  74 5f 6d 65 6d 5f 70 74  72 25 3a 65 78 74 5f 6d  |t_mem_ptr%:ext_m|
000017a0  65 6d 5f 70 74 72 25 2b  3d 73 69 7a 65 25 0d 0a  |em_ptr%+=size%..|
000017b0  50 05 cc 0d 0a 5a 3f e7  20 73 69 7a 65 25 2d 28  |P....Z?. size%-(|
000017c0  73 6c 6f 74 5f 73 69 7a  65 25 2b 73 6c 6f 74 5f  |slot_size%+slot_|
000017d0  62 61 73 65 25 2d 65 78  74 5f 6d 65 6d 5f 70 74  |base%-ext_mem_pt|
000017e0  72 25 29 3e 3d 6e 65 78  74 25 2b 66 72 65 65 25  |r%)>=next%+free%|
000017f0  20 8c 0d 0a 64 08 6e 25  3d a3 0d 0a 6e 05 cc 0d  | ...d.n%=...n...|
00001800  0a 78 43 c8 99 20 22 57  69 6d 70 5f 53 6c 6f 74  |.xC.. "Wimp_Slot|
00001810  53 69 7a 65 22 2c 73 69  7a 65 25 2b 65 78 74 5f  |Size",size%+ext_|
00001820  6d 65 6d 5f 70 74 72 25  2d 73 6c 6f 74 5f 62 61  |mem_ptr%-slot_ba|
00001830  73 65 25 2c 2d 31 20 b8  20 6e 65 77 5f 73 6c 6f  |se%,-1 . new_slo|
00001840  74 25 0d 0a 82 5b e7 20  73 6c 6f 74 5f 62 61 73  |t%...[. slot_bas|
00001850  65 25 2b 6e 65 77 5f 73  6c 6f 74 25 3e 3d 65 78  |e%+new_slot%>=ex|
00001860  74 5f 6d 65 6d 5f 70 74  72 25 2b 73 69 7a 65 25  |t_mem_ptr%+size%|
00001870  20 8c 20 6e 25 3d 65 78  74 5f 6d 65 6d 5f 70 74  | . n%=ext_mem_pt|
00001880  72 25 3a 65 78 74 5f 6d  65 6d 5f 70 74 72 25 2b  |r%:ext_mem_ptr%+|
00001890  3d 73 69 7a 65 25 20 8b  20 6e 25 3d a3 0d 0a 8c  |=size% . n%=....|
000018a0  05 cd 0d 0a 96 05 cd 0d  0a a0 07 3d 6e 25 0d 0a  |...........=n%..|
000018b0  aa 05 3a 0d 0a b4 0f dd  f2 69 6e 69 74 5f 73 6c  |..:......init_sl|
000018c0  6f 74 0d 0a be 08 ea 20  6e 25 0d 0a c8 21 c8 99  |ot..... n%...!..|
000018d0  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
000018e0  2c 2d 31 2c 2d 31 20 b8  20 6e 25 0d 0a d2 13 73  |,-1,-1 . n%....s|
000018f0  6c 6f 74 5f 62 61 73 65  25 3d 93 2d 6e 25 0d 0a  |lot_base%=.-n%..|
00001900  dc 05 e1 0d 0a e6 05 3a  0d 0a f0 11 dd f2 72 65  |.......:......re|
00001910  6c 5f 62 75 66 28 6e 25  29 0d 0a fa 13 65 78 74  |l_buf(n%)....ext|
00001920  5f 6d 65 6d 5f 70 74 72  25 3d 6e 25 0d 0b 04 27  |_mem_ptr%=n%...'|
00001930  c8 99 20 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |.. "Wimp_SlotSiz|
00001940  65 22 2c 6e 25 2d 73 6c  6f 74 5f 62 61 73 65 25  |e",n%-slot_base%|
00001950  2c 2d 31 0d 0b 0e 05 e1  0d 0b 18 05 3a 0d 0b 22  |,-1.........:.."|
00001960  0e dd f2 6c 6f 61 64 28  64 25 29 0d 0b 2c 14 ea  |...load(d%)..,..|
00001970  20 61 25 2c 63 25 2c 66  69 6c 65 72 74 68 25 0d  | a%,c%,filerth%.|
00001980  0b 36 11 63 25 3d a4 73  74 61 63 6b 28 32 30 29  |.6.c%=.stack(20)|
00001990  0d 0b 40 10 f2 74 65 72  6d 28 64 25 2b 34 34 29  |..@..term(d%+44)|
000019a0  0d 0b 4a 11 66 69 6c 65  72 74 68 25 3d 64 25 21  |..J.filerth%=d%!|
000019b0  34 0d 0b 54 20 c8 99 20  22 57 69 6d 70 5f 47 65  |4..T .. "Wimp_Ge|
000019c0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 63  |tPointerInfo",,c|
000019d0  25 0d 0b 5e 16 e7 20 63  25 21 31 32 3d 74 6f 70  |%..^.. c%!12=top|
000019e0  64 69 72 73 25 20 8c 0d  0b 68 0e c8 8e 20 63 25  |dirs% ...h... c%|
000019f0  21 31 36 20 ca 0d 0b 72  0e c9 20 30 2c 31 2c 32  |!16 ...r.. 0,1,2|
00001a00  2c 33 3a 0d 0b 7c 12 e7  20 64 72 61 67 6e 75 6d  |,3:..|.. dragnum|
00001a10  25 3d 30 20 8c 0d 0b 86  17 73 6f 75 72 63 65 73  |%=0 .....sources|
00001a20  74 72 24 3d 24 28 64 25  2b 34 34 29 0d 0b 90 05  |tr$=$(d%+44)....|
00001a30  cc 0d 0b 9a 27 73 6f 75  72 63 65 73 74 72 24 2b  |....'sourcestr$+|
00001a40  3d 22 5c 22 2b a4 6c 65  61 66 6e 61 6d 65 28 24  |="\"+.leafname($|
00001a50  28 64 25 2b 34 34 29 29  0d 0b a4 05 cd 0d 0b ae  |(d%+44))........|
00001a60  0f 64 72 61 67 6e 75 6d  25 2b 3d 31 0d 0b b8 12  |.dragnum%+=1....|
00001a70  70 6f 6c 6c 5f 6d 61 73  6b 25 3d 26 33 30 0d 0b  |poll_mask%=&30..|
00001a80  c2 0e c9 20 34 2c 35 2c  36 2c 37 3a 0d 0b cc 16  |... 4,5,6,7:....|
00001a90  24 64 65 73 74 74 6f 70  25 3d 24 28 64 25 2b 34  |$desttop%=$(d%+4|
00001aa0  34 29 0d 0b d6 5d e7 20  a7 73 6f 75 72 63 65 73  |4)...]. .sources|
00001ab0  74 72 24 2c 22 5c 22 29  3d 30 20 f2 63 6f 70 79  |tr$,"\")=0 .copy|
00001ac0  5f 70 61 74 68 28 24 73  6f 75 72 63 65 74 6f 70  |_path($sourcetop|
00001ad0  25 2c 24 64 65 73 74 74  6f 70 25 29 20 8b 20 f2  |%,$desttop%) . .|
00001ae0  63 6f 70 79 5f 70 61 74  68 28 73 6f 75 72 63 65  |copy_path(source|
00001af0  73 74 72 24 2c 24 64 65  73 74 74 6f 70 25 29 0d  |str$,$desttop%).|
00001b00  0b e0 1c f2 72 65 64 72  61 77 5f 69 63 6f 6e 28  |....redraw_icon(|
00001b10  74 6f 70 64 69 72 73 25  2c 35 29 0d 0b ea 05 cb  |topdirs%,5).....|
00001b20  0d 0b f4 05 cb 0d 0b fe  3b 64 25 21 31 32 3d 64  |........;d%!12=d|
00001b30  25 21 38 3a 64 25 21 31  36 3d 34 3a c8 99 20 22  |%!8:d%!16=4:.. "|
00001b40  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00001b50  22 2c 31 37 2c 64 25 2c  66 69 6c 65 72 74 68 25  |",17,d%,filerth%|
00001b60  0d 0c 08 10 f2 75 6e 73  74 61 63 6b 28 63 25 29  |.....unstack(c%)|
00001b70  0d 0c 12 05 e1 0d 0c 1c  05 3a 0d 0c 26 14 dd f2  |.........:..&...|
00001b80  74 72 75 6e 63 61 74 65  28 f8 20 61 24 29 0d 0c  |truncate(. a$)..|
00001b90  30 14 61 24 3d c0 61 24  2c a7 61 24 2c 22 24 22  |0.a$=.a$,.a$,"$"|
00001ba0  29 29 0d 0c 3a 05 e1 0d  0c 44 05 3a 0d 0c 4e 17  |))..:....D.:..N.|
00001bb0  dd f2 74 6f 70 64 69 72  73 5f 63 6c 69 63 6b 28  |..topdirs_click(|
00001bc0  64 25 29 0d 0c 58 0e c8  8e 20 64 25 21 31 36 20  |d%)..X... d%!16 |
00001bd0  ca 0d 0c 62 4f c9 20 32  3a f2 74 72 75 6e 63 61  |...bO. 2:.trunca|
00001be0  74 65 28 73 6f 75 72 63  65 73 74 72 24 29 3a 24  |te(sourcestr$):$|
00001bf0  73 6f 75 72 63 65 74 6f  70 25 3d 73 6f 75 72 63  |sourcetop%=sourc|
00001c00  65 73 74 72 24 3a f2 6d  61 6b 65 5f 77 72 69 74  |estr$:.make_writ|
00001c10  61 62 6c 65 28 74 6f 70  64 69 72 73 25 2c 31 29  |able(topdirs%,1)|
00001c20  0d 0c 6c 35 c9 20 36 3a  f2 74 72 75 6e 63 61 74  |..l5. 6:.truncat|
00001c30  65 28 24 64 65 73 74 74  6f 70 25 29 3a f2 72 65  |e($desttop%):.re|
00001c40  64 72 61 77 5f 69 63 6f  6e 28 74 6f 70 64 69 72  |draw_icon(topdir|
00001c50  73 25 2c 35 29 0d 0c 76  2e c9 20 38 3a 21 64 25  |s%,5)..v.. 8:!d%|
00001c60  3d 74 6f 70 64 69 72 73  25 3a c8 99 20 22 57 69  |=topdirs%:.. "Wi|
00001c70  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00001c80  2c 64 25 0d 0c 80 14 c9  20 39 3a f2 65 78 65 63  |,d%..... 9:.exec|
00001c90  75 74 65 28 64 25 29 0d  0c 8a 05 cb 0d 0c 94 05  |ute(d%).........|
00001ca0  e1 0d 0c 9e 05 3a 0d 0c  a8 11 dd f2 65 78 65 63  |.....:......exec|
00001cb0  75 74 65 28 64 25 29 0d  0c b2 3b ea 20 74 79 70  |ute(d%)...;. typ|
00001cc0  65 25 2c 73 6f 75 72 63  65 5f 74 79 70 65 25 2c  |e%,source_type%,|
00001cd0  64 65 73 74 5f 74 79 70  65 25 2c 66 6c 61 67 73  |dest_type%,flags|
00001ce0  25 2c 62 61 63 6b 75 70  64 69 72 24 2c 6d 6f 72  |%,backupdir$,mor|
00001cf0  65 25 0d 0c bc 1f 6d 6f  72 65 25 3d 28 a7 73 6f  |e%....more%=(.so|
00001d00  75 72 63 65 73 74 72 24  2c 22 5c 22 29 3c 3e 30  |urcestr$,"\")<>0|
00001d10  29 0d 0c c6 5d e7 20 6d  6f 72 65 25 20 74 6f 70  |)...]. more% top|
00001d20  5f 73 6f 75 72 63 65 5f  64 69 72 24 3d c0 73 6f  |_source_dir$=.so|
00001d30  75 72 63 65 73 74 72 24  2c a4 6c 61 73 74 5f 64  |urcestr$,.last_d|
00001d40  6f 74 28 73 6f 75 72 63  65 73 74 72 24 29 2d 31  |ot(sourcestr$)-1|
00001d50  29 20 8b 20 74 6f 70 5f  73 6f 75 72 63 65 5f 64  |) . top_source_d|
00001d60  69 72 24 3d 73 6f 75 72  63 65 73 74 72 24 0d 0c  |ir$=sourcestr$..|
00001d70  d0 47 e7 20 74 6f 70 5f  73 6f 75 72 63 65 5f 64  |.G. top_source_d|
00001d80  69 72 24 3d 22 22 20 85  20 28 31 3c 3c 33 30 29  |ir$="" . (1<<30)|
00001d90  2b 26 35 30 33 2c 22 4e  6f 20 73 6f 75 72 63 65  |+&503,"No source|
00001da0  20 64 69 72 65 63 74 6f  72 79 20 73 70 65 63 69  | directory speci|
00001db0  66 69 65 64 22 0d 0c da  46 e7 20 24 64 65 73 74  |fied"...F. $dest|
00001dc0  74 6f 70 25 3d 22 22 20  85 20 28 31 3c 3c 33 30  |top%="" . (1<<30|
00001dd0  29 2b 26 35 30 33 2c 22  4e 6f 20 64 65 73 74 69  |)+&503,"No desti|
00001de0  6e 61 74 69 6f 6e 20 64  69 72 65 63 74 6f 72 79  |nation directory|
00001df0  20 73 70 65 63 69 66 69  65 64 22 0d 0c e4 5c e7  | specified"...\.|
00001e00  20 74 6f 70 5f 73 6f 75  72 63 65 5f 64 69 72 24  | top_source_dir$|
00001e10  3d 24 64 65 73 74 74 6f  70 25 20 85 20 28 31 3c  |=$desttop% . (1<|
00001e20  3c 33 30 29 2b 26 35 30  33 2c 22 53 6f 75 72 63  |<30)+&503,"Sourc|
00001e30  65 20 61 6e 64 20 64 65  73 74 69 6e 61 74 69 6f  |e and destinatio|
00001e40  6e 20 64 69 72 65 63 74  6f 72 69 65 73 20 74 68  |n directories th|
00001e50  65 20 73 61 6d 65 22 0d  0c ee 1a 62 61 63 6b 75  |e same"....backu|
00001e60  70 64 69 72 24 3d 24 62  61 63 6b 75 70 64 69 72  |pdir$=$backupdir|
00001e70  25 0d 0c f8 3c c8 99 20  22 58 4f 53 5f 46 69 6c  |%...<.. "XOS_Fil|
00001e80  65 22 2c 31 37 2c 24 64  65 73 74 74 6f 70 25 2b  |e",17,$desttop%+|
00001e90  22 2e 22 2b 62 61 63 6b  75 70 64 69 72 24 20 b8  |"."+backupdir$ .|
00001ea0  20 74 79 70 65 25 3b 66  6c 61 67 73 25 0d 0d 02  | type%;flags%...|
00001eb0  45 e7 20 28 66 6c 61 67  73 25 20 80 20 31 29 3c  |E. (flags% . 1)<|
00001ec0  3e 30 20 21 74 79 70 65  25 3d 28 31 3c 3c 33 30  |>0 !type%=(1<<30|
00001ed0  29 2b 26 35 30 33 3a c8  99 20 22 4f 53 5f 47 65  |)+&503:.. "OS_Ge|
00001ee0  6e 65 72 61 74 65 45 72  72 6f 72 22 2c 74 79 70  |nerateError",typ|
00001ef0  65 25 0d 0d 0c 87 e7 20  74 79 70 65 25 3c 3e 30  |e%..... type%<>0|
00001f00  20 85 20 28 31 3c 3c 33  30 29 2b 26 35 30 33 2c  | . (1<<30)+&503,|
00001f10  22 41 6e 20 6f 62 6a 65  63 74 20 63 61 6c 6c 65  |"An object calle|
00001f20  64 20 22 2b 62 61 63 6b  75 70 64 69 72 24 2b 22  |d "+backupdir$+"|
00001f30  20 61 6c 72 65 61 64 79  20 65 78 69 73 74 73 20  | already exists |
00001f40  69 6e 20 74 68 65 20 62  61 63 6b 75 70 20 74 6f  |in the backup to|
00001f50  70 20 64 69 72 65 63 74  6f 72 79 20 2d 20 64 65  |p directory - de|
00001f60  6c 65 74 65 20 69 74 20  62 65 66 6f 72 65 20 70  |lete it before p|
00001f70  72 6f 63 65 64 69 6e 67  22 0d 0d 16 33 c8 99 20  |roceding"...3.. |
00001f80  22 58 4f 53 5f 46 69 6c  65 22 2c 31 37 2c 74 6f  |"XOS_File",17,to|
00001f90  70 5f 73 6f 75 72 63 65  5f 64 69 72 24 20 b8 20  |p_source_dir$ . |
00001fa0  74 79 70 65 25 3b 66 6c  61 67 73 25 0d 0d 20 45  |type%;flags%.. E|
00001fb0  e7 20 28 66 6c 61 67 73  25 20 80 20 31 29 3c 3e  |. (flags% . 1)<>|
00001fc0  30 20 21 74 79 70 65 25  3d 28 31 3c 3c 33 30 29  |0 !type%=(1<<30)|
00001fd0  2b 26 35 30 33 3a c8 99  20 22 4f 53 5f 47 65 6e  |+&503:.. "OS_Gen|
00001fe0  65 72 61 74 65 45 72 72  6f 72 22 2c 74 79 70 65  |erateError",type|
00001ff0  25 0d 0d 2a 42 e7 20 74  79 70 65 25 3d 30 20 85  |%..*B. type%=0 .|
00002000  20 28 31 3c 3c 33 30 29  2b 26 35 30 33 2c 74 6f  | (1<<30)+&503,to|
00002010  70 5f 73 6f 75 72 63 65  5f 64 69 72 24 2b 22 20  |p_source_dir$+" |
00002020  63 6f 75 6c 64 20 6e 6f  74 20 62 65 20 66 6f 75  |could not be fou|
00002030  6e 64 22 0d 0d 34 41 f2  6d 61 6b 65 5f 6e 6f 6e  |nd"..4A.make_non|
00002040  5f 77 72 69 74 61 62 6c  65 28 74 6f 70 64 69 72  |_writable(topdir|
00002050  73 25 2c 31 29 3a f2 6d  61 6b 65 5f 6e 6f 6e 5f  |s%,1):.make_non_|
00002060  77 72 69 74 61 62 6c 65  28 74 6f 70 64 69 72 73  |writable(topdirs|
00002070  25 2c 35 29 0d 0d 3e 1b  74 6f 70 5f 64 65 73 74  |%,5)..>.top_dest|
00002080  5f 64 69 72 24 3d 24 64  65 73 74 74 6f 70 25 0d  |_dir$=$desttop%.|
00002090  0d 48 32 24 61 63 74 69  6f 6e 5f 74 65 78 74 25  |.H2$action_text%|
000020a0  3d 22 50 61 75 73 65 22  3a f2 72 65 64 72 61 77  |="Pause":.redraw|
000020b0  5f 69 63 6f 6e 28 74 6f  70 64 69 72 73 25 2c 39  |_icon(topdirs%,9|
000020c0  29 0d 0d 52 05 f5 0d 0d  5c a5 e7 20 6d 6f 72 65  |)..R....\.. more|
000020d0  25 20 66 69 72 73 74 5f  73 6f 75 72 63 65 24 3d  |% first_source$=|
000020e0  c0 73 6f 75 72 63 65 73  74 72 24 2c a7 73 6f 75  |.sourcestr$,.sou|
000020f0  72 63 65 73 74 72 24 2c  22 5c 22 29 2d 31 29 3a  |rcestr$,"\")-1):|
00002100  66 69 72 73 74 5f 64 65  73 74 24 3d 74 6f 70 5f  |first_dest$=top_|
00002110  64 65 73 74 5f 64 69 72  24 2b 22 2e 22 2b a4 6c  |dest_dir$+"."+.l|
00002120  65 61 66 6e 61 6d 65 28  66 69 72 73 74 5f 73 6f  |eafname(first_so|
00002130  75 72 63 65 24 29 20 8b  20 66 69 72 73 74 5f 73  |urce$) . first_s|
00002140  6f 75 72 63 65 24 3d 73  6f 75 72 63 65 73 74 72  |ource$=sourcestr|
00002150  24 3a 66 69 72 73 74 5f  64 65 73 74 24 3d 74 6f  |$:first_dest$=to|
00002160  70 5f 64 65 73 74 5f 64  69 72 24 0d 0d 66 38 c8  |p_dest_dir$..f8.|
00002170  99 20 22 58 4f 53 5f 46  69 6c 65 22 2c 31 37 2c  |. "XOS_File",17,|
00002180  66 69 72 73 74 5f 73 6f  75 72 63 65 24 20 b8 20  |first_source$ . |
00002190  73 6f 75 72 63 65 5f 74  79 70 65 25 3b 66 6c 61  |source_type%;fla|
000021a0  67 73 25 0d 0d 70 53 e7  20 28 66 6c 61 67 73 25  |gs%..pS. (flags%|
000021b0  20 80 20 31 29 3c 3e 30  20 21 73 6f 75 72 63 65  | . 1)<>0 !source|
000021c0  5f 74 79 70 65 25 3d 28  31 3c 3c 33 30 29 2b 26  |_type%=(1<<30)+&|
000021d0  35 30 33 3a c8 99 20 22  4f 53 5f 47 65 6e 65 72  |503:.. "OS_Gener|
000021e0  61 74 65 45 72 72 6f 72  22 2c 73 6f 75 72 63 65  |ateError",source|
000021f0  5f 74 79 70 65 25 0d 0d  7a 34 c8 99 20 22 58 4f  |_type%..z4.. "XO|
00002200  53 5f 46 69 6c 65 22 2c  31 37 2c 66 69 72 73 74  |S_File",17,first|
00002210  5f 64 65 73 74 24 20 b8  20 64 65 73 74 5f 74 79  |_dest$ . dest_ty|
00002220  70 65 25 3b 66 6c 61 67  73 25 0d 0d 84 4f e7 20  |pe%;flags%...O. |
00002230  28 66 6c 61 67 73 25 20  80 20 31 29 3c 3e 30 20  |(flags% . 1)<>0 |
00002240  21 64 65 73 74 5f 74 79  70 65 25 3d 28 31 3c 3c  |!dest_type%=(1<<|
00002250  33 30 29 2b 26 35 30 33  3a c8 99 20 22 4f 53 5f  |30)+&503:.. "OS_|
00002260  47 65 6e 65 72 61 74 65  45 72 72 6f 72 22 2c 64  |GenerateError",d|
00002270  65 73 74 5f 74 79 70 65  25 0d 0d 8e 0a c8 8e 20  |est_type%...... |
00002280  b9 20 ca 0d 0d 98 4f c9  20 64 65 73 74 5f 74 79  |. ....O. dest_ty|
00002290  70 65 25 3d 30 3a e7 20  a4 69 63 6f 6e 5f 73 74  |pe%=0:. .icon_st|
000022a0  61 74 65 28 74 6f 70 64  69 72 73 25 2c 31 30 29  |ate(topdirs%,10)|
000022b0  20 f2 63 6f 70 79 31 28  66 69 72 73 74 5f 73 6f  | .copy1(first_so|
000022c0  75 72 63 65 24 2c 66 69  72 73 74 5f 64 65 73 74  |urce$,first_dest|
000022d0  24 29 0d 0d a2 15 c9 20  73 6f 75 72 63 65 5f 74  |$)..... source_t|
000022e0  79 70 65 25 3d 31 3a 0d  0d ac 0d e7 20 6d 6f 72  |ype%=1:..... mor|
000022f0  65 25 20 8c 0d 0d b6 70  e7 20 28 64 65 73 74 5f  |e% ....p. (dest_|
00002300  74 79 70 65 25 3d 32 20  84 20 64 65 73 74 5f 74  |type%=2 . dest_t|
00002310  79 70 65 25 3d 33 29 20  80 20 28 a4 69 63 6f 6e  |ype%=3) . (.icon|
00002320  5f 73 74 61 74 65 28 74  6f 70 64 69 72 73 25 2c  |_state(topdirs%,|
00002330  31 30 29 20 84 20 a4 69  63 6f 6e 5f 73 74 61 74  |10) . .icon_stat|
00002340  65 28 74 6f 70 64 69 72  73 25 2c 31 31 29 29 20  |e(topdirs%,11)) |
00002350  f2 70 75 72 67 65 31 28  66 69 72 73 74 5f 64 65  |.purge1(first_de|
00002360  73 74 24 29 0d 0d c0 05  cc 0d 0d ca 4c c8 99 20  |st$)........L.. |
00002370  22 58 4f 53 5f 46 69 6c  65 22 2c 31 37 2c 66 69  |"XOS_File",17,fi|
00002380  72 73 74 5f 64 65 73 74  24 2b 22 2e 22 2b a4 6c  |rst_dest$+"."+.l|
00002390  65 61 66 6e 61 6d 65 28  66 69 72 73 74 5f 73 6f  |eafname(first_so|
000023a0  75 72 63 65 24 29 20 b8  20 74 79 70 65 25 3b 66  |urce$) . type%;f|
000023b0  6c 61 67 73 25 0d 0d d4  4a e7 20 28 66 6c 61 67  |lags%...J. (flag|
000023c0  73 25 20 80 20 31 29 3c  3e 30 20 21 64 65 73 74  |s% . 1)<>0 !dest|
000023d0  5f 74 79 70 65 25 3d 28  31 3c 3c 33 30 29 2b 26  |_type%=(1<<30)+&|
000023e0  35 30 33 3a c8 99 20 22  4f 53 5f 47 65 6e 65 72  |503:.. "OS_Gener|
000023f0  61 74 65 45 72 72 6f 72  22 2c 74 79 70 65 25 0d  |ateError",type%.|
00002400  0d de 83 e7 20 28 74 79  70 65 25 3d 32 20 84 20  |.... (type%=2 . |
00002410  74 79 70 65 25 3d 33 29  20 80 20 28 a4 69 63 6f  |type%=3) . (.ico|
00002420  6e 5f 73 74 61 74 65 28  74 6f 70 64 69 72 73 25  |n_state(topdirs%|
00002430  2c 31 30 29 20 84 20 a4  69 63 6f 6e 5f 73 74 61  |,10) . .icon_sta|
00002440  74 65 28 74 6f 70 64 69  72 73 25 2c 31 31 29 29  |te(topdirs%,11))|
00002450  20 f2 70 75 72 67 65 31  28 66 69 72 73 74 5f 64  | .purge1(first_d|
00002460  65 73 74 24 2b 22 2e 22  2b a4 6c 65 61 66 6e 61  |est$+"."+.leafna|
00002470  6d 65 28 66 69 72 73 74  5f 73 6f 75 72 63 65 24  |me(first_source$|
00002480  29 29 0d 0d e8 05 cd 0d  0d f2 40 e7 20 a4 69 63  |))........@. .ic|
00002490  6f 6e 5f 73 74 61 74 65  28 74 6f 70 64 69 72 73  |on_state(topdirs|
000024a0  25 2c 31 30 29 20 f2 63  6f 70 79 31 28 66 69 72  |%,10) .copy1(fir|
000024b0  73 74 5f 73 6f 75 72 63  65 24 2c 66 69 72 73 74  |st_source$,first|
000024c0  5f 64 65 73 74 24 29 0d  0d fc 05 7f 0d 0e 06 1c  |_dest$).........|
000024d0  e7 20 6d 6f 72 65 25 20  80 20 64 65 73 74 5f 74  |. more% . dest_t|
000024e0  79 70 65 25 3d 31 20 8c  0d 0e 10 50 e7 20 28 a4  |ype%=1 ....P. (.|
000024f0  69 63 6f 6e 5f 73 74 61  74 65 28 74 6f 70 64 69  |icon_state(topdi|
00002500  72 73 25 2c 31 30 29 20  84 20 a4 69 63 6f 6e 5f  |rs%,10) . .icon_|
00002510  73 74 61 74 65 28 74 6f  70 64 69 72 73 25 2c 31  |state(topdirs%,1|
00002520  31 29 29 20 f2 70 75 72  67 65 31 28 66 69 72 73  |1)) .purge1(firs|
00002530  74 5f 64 65 73 74 24 29  0d 0e 1a 40 e7 20 a4 69  |t_dest$)...@. .i|
00002540  63 6f 6e 5f 73 74 61 74  65 28 74 6f 70 64 69 72  |con_state(topdir|
00002550  73 25 2c 31 30 29 20 f2  63 6f 70 79 31 28 66 69  |s%,10) .copy1(fi|
00002560  72 73 74 5f 73 6f 75 72  63 65 24 2c 66 69 72 73  |rst_source$,firs|
00002570  74 5f 64 65 73 74 24 29  0d 0e 24 05 cc 0d 0e 2e  |t_dest$)..$.....|
00002580  29 f2 64 69 72 65 63 74  6f 72 79 28 66 69 72 73  |).directory(firs|
00002590  74 5f 73 6f 75 72 63 65  24 2c 66 69 72 73 74 5f  |t_source$,first_|
000025a0  64 65 73 74 24 29 0d 0e  38 05 cd 0d 0e 42 05 cb  |dest$)..8....B..|
000025b0  0d 0e 4c 1f 6d 6f 72 65  25 3d 28 a7 73 6f 75 72  |..L.more%=(.sour|
000025c0  63 65 73 74 72 24 2c 22  5c 22 29 3c 3e 30 29 0d  |cestr$,"\")<>0).|
000025d0  0e 56 59 e7 20 6d 6f 72  65 25 20 73 6f 75 72 63  |.VY. more% sourc|
000025e0  65 73 74 72 24 3d c0 73  6f 75 72 63 65 73 74 72  |estr$=.sourcestr|
000025f0  24 2c a4 6c 61 73 74 5f  64 6f 74 28 73 6f 75 72  |$,.last_dot(sour|
00002600  63 65 73 74 72 24 29 29  2b c1 73 6f 75 72 63 65  |cestr$))+.source|
00002610  73 74 72 24 2c a7 73 6f  75 72 63 65 73 74 72 24  |str$,.sourcestr$|
00002620  2c 22 5c 22 29 2b 31 29  0d 0e 60 0d fd 20 ac 20  |,"\")+1)..`.. . |
00002630  6d 6f 72 65 25 0d 0e 6a  1a 24 73 6f 75 72 63 65  |more%..j.$source|
00002640  74 6f 70 25 3d 73 6f 75  72 63 65 73 74 72 24 0d  |top%=sourcestr$.|
00002650  0e 74 39 f2 6d 61 6b 65  5f 77 72 69 74 61 62 6c  |.t9.make_writabl|
00002660  65 28 74 6f 70 64 69 72  73 25 2c 31 29 3a f2 6d  |e(topdirs%,1):.m|
00002670  61 6b 65 5f 77 72 69 74  61 62 6c 65 28 74 6f 70  |ake_writable(top|
00002680  64 69 72 73 25 2c 35 29  0d 0e 7e 19 24 61 63 74  |dirs%,5)..~.$act|
00002690  69 6f 6e 5f 74 65 78 74  25 3d 22 53 74 61 72 74  |ion_text%="Start|
000026a0  22 0d 0e 88 2a 21 64 25  3d 74 6f 70 64 69 72 73  |"...*!d%=topdirs|
000026b0  25 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |%:.. "Wimp_Close|
000026c0  57 69 6e 64 6f 77 22 2c  2c 64 25 0d 0e 92 05 e1  |Window",,d%.....|
000026d0  0d 0e 9c 05 3a 0d 0e a6  20 dd a4 63 6f 6d 70 61  |....:... ..compa|
000026e0  72 65 28 6e 61 6d 65 62  6c 6b 25 2c 69 25 2c 73  |re(nameblk%,i%,s|
000026f0  6e 75 6d 25 29 0d 0e b0  15 ea 20 66 6f 75 6e 64  |num%)..... found|
00002700  25 2c 6e 25 2c 6e 61 6d  65 24 0d 0e ba 26 6e 61  |%,n%,name$...&na|
00002710  6d 65 24 3d a4 66 6f 72  63 65 5f 75 70 70 65 72  |me$=.force_upper|
00002720  28 24 28 6e 61 6d 65 62  6c 6b 25 2b 32 30 29 29  |($(nameblk%+20))|
00002730  0d 0e c4 0c 66 6f 75 6e  64 25 3d a3 0d 0e ce 0f  |....found%=.....|
00002740  e7 20 73 6e 75 6d 25 3e  30 20 8c 0d 0e d8 1a c8  |. snum%>0 ......|
00002750  95 20 6e 25 3c 73 6e 75  6d 25 20 80 20 66 6f 75  |. n%<snum% . fou|
00002760  6e 64 25 3d a3 0d 0e e2  54 e7 20 6e 61 6d 65 24  |nd%=....T. name$|
00002770  3d a4 66 6f 72 63 65 5f  75 70 70 65 72 28 24 28  |=.force_upper($(|
00002780  69 25 2b 32 30 29 29 20  66 6f 75 6e 64 25 3d b9  |i%+20)) found%=.|
00002790  20 8b 20 6e 25 2b 3d 31  3a 69 25 2b 3d a9 24 28  | . n%+=1:i%+=.$(|
000027a0  69 25 2b 32 30 29 2b 32  31 3a f2 77 6f 72 64 5f  |i%+20)+21:.word_|
000027b0  61 6c 69 67 6e 28 69 25  29 0d 0e ec 05 ce 0d 0e  |align(i%).......|
000027c0  f6 29 e7 20 28 6e 61 6d  65 62 6c 6b 25 21 31 36  |.). (nameblk%!16|
000027d0  3d 32 29 3c 3e 28 69 25  21 31 36 3d 32 29 20 66  |=2)<>(i%!16=2) f|
000027e0  6f 75 6e 64 25 3d a3 0d  0f 00 05 cd 0d 0f 0a 0b  |ound%=..........|
000027f0  3d 66 6f 75 6e 64 25 0d  0f 14 05 3a 0d 0f 1e 15  |=found%....:....|
00002800  dd a4 66 6f 72 63 65 5f  75 70 70 65 72 28 61 24  |..force_upper(a$|
00002810  29 0d 0f 28 0e ea 20 6e  24 2c 69 25 2c 6a 25 0d  |)..(.. n$,i%,j%.|
00002820  0f 32 11 e3 20 69 25 3d  31 20 b8 20 a9 20 61 24  |.2.. i%=1 . . a$|
00002830  0d 0f 3c 13 6a 25 3d 97  28 c1 61 24 2c 69 25 2c  |..<.j%=.(.a$,i%,|
00002840  31 29 29 0d 0f 46 2e e7  20 6a 25 3e 39 36 20 80  |1))..F.. j%>96 .|
00002850  20 6a 25 3c 31 32 33 20  6e 24 2b 3d bd 28 6a 25  | j%<123 n$+=.(j%|
00002860  20 80 20 26 44 46 29 20  8b 20 6e 24 2b 3d bd 6a  | . &DF) . n$+=.j|
00002870  25 0d 0f 50 05 ed 0d 0f  5a 07 3d 6e 24 0d 0f 64  |%..P....Z.=n$..d|
00002880  05 3a 0d 0f 6e 25 dd f2  63 6f 70 79 28 73 6f 75  |.:..n%..copy(sou|
00002890  72 63 65 24 2c 64 65 73  74 24 2c 6e 61 6d 65 25  |rce$,dest$,name%|
000028a0  2c 73 6e 75 6d 25 29 0d  0f 78 0b ea 20 69 25 2c  |,snum%)..x.. i%,|
000028b0  6e 25 0d 0f 82 0f e7 20  73 6e 75 6d 25 3e 30 20  |n%..... snum%>0 |
000028c0  8c 0d 0f 8c 5f c8 99 20  22 57 69 6d 70 5f 53 74  |...._.. "Wimp_St|
000028d0  61 72 74 54 61 73 6b 22  2c 22 46 69 6c 65 72 5f  |artTask","Filer_|
000028e0  41 63 74 69 6f 6e 22 20  b8 20 74 68 25 3a c8 99  |Action" . th%:..|
000028f0  20 22 46 69 6c 65 72 41  63 74 69 6f 6e 5f 53 65  | "FilerAction_Se|
00002900  6e 64 53 65 6c 65 63 74  65 64 44 69 72 65 63 74  |ndSelectedDirect|
00002910  6f 72 79 22 2c 74 68 25  2c 73 6f 75 72 63 65 24  |ory",th%,source$|
00002920  0d 0f 96 0c 69 25 3d 6e  61 6d 65 25 0d 0f a0 12  |....i%=name%....|
00002930  e3 20 6e 25 3d 31 20 b8  20 73 6e 75 6d 25 0d 0f  |. n%=1 . snum%..|
00002940  aa 2d c8 99 20 22 46 69  6c 65 72 41 63 74 69 6f  |.-.. "FilerActio|
00002950  6e 5f 53 65 6e 64 53 65  6c 65 63 74 65 64 46 69  |n_SendSelectedFi|
00002960  6c 65 22 2c 74 68 25 2c  24 69 25 0d 0f b4 1f 69  |le",th%,$i%....i|
00002970  25 2b 3d a9 24 69 25 2b  32 31 3a f2 77 6f 72 64  |%+=.$i%+21:.word|
00002980  5f 61 6c 69 67 6e 28 69  25 29 0d 0f be 05 ed 0d  |_align(i%)......|
00002990  0f c8 42 c8 99 20 22 46  69 6c 65 72 41 63 74 69  |..B.. "FilerActi|
000029a0  6f 6e 5f 53 65 6e 64 53  74 61 72 74 4f 70 65 72  |on_SendStartOper|
000029b0  61 74 69 6f 6e 22 2c 74  68 25 2c 30 2c 25 31 30  |ation",th%,0,%10|
000029c0  30 31 2c 64 65 73 74 24  2c a9 64 65 73 74 24 2b  |01,dest$,.dest$+|
000029d0  31 0d 0f d2 11 f2 73 65  6e 64 5f 6d 65 73 73 61  |1.....send_messa|
000029e0  67 65 0d 0f dc 0d f2 70  6f 6c 6c 32 28 31 29 0d  |ge.....poll2(1).|
000029f0  0f e6 05 cd 0d 0f f0 05  e1 0d 0f fa 05 3a 0d 10  |.............:..|
00002a00  04 1a dd f2 63 6f 70 79  31 28 73 6f 75 72 63 65  |....copy1(source|
00002a10  24 2c 64 65 73 74 24 29  0d 10 0e 21 ea 20 73 6f  |$,dest$)...!. so|
00002a20  75 72 63 65 5f 70 61 72  65 6e 74 24 2c 64 65 73  |urce_parent$,des|
00002a30  74 5f 70 61 72 65 6e 74  24 0d 10 18 23 73 6f 75  |t_parent$...#sou|
00002a40  72 63 65 5f 70 61 72 65  6e 74 24 3d a4 75 70 5f  |rce_parent$=.up_|
00002a50  64 69 72 28 73 6f 75 72  63 65 24 29 0d 10 22 5a  |dir(source$).."Z|
00002a60  e7 20 a4 6c 65 61 66 6e  61 6d 65 28 73 6f 75 72  |. .leafname(sour|
00002a70  63 65 24 29 3d a4 6c 65  61 66 6e 61 6d 65 28 64  |ce$)=.leafname(d|
00002a80  65 73 74 24 29 20 64 65  73 74 5f 70 61 72 65 6e  |est$) dest_paren|
00002a90  74 24 3d a4 75 70 5f 64  69 72 28 64 65 73 74 24  |t$=.up_dir(dest$|
00002aa0  29 20 8b 20 64 65 73 74  5f 70 61 72 65 6e 74 24  |) . dest_parent$|
00002ab0  3d 64 65 73 74 24 0d 10  2c 66 c8 99 20 22 57 69  |=dest$..,f.. "Wi|
00002ac0  6d 70 5f 53 74 61 72 74  54 61 73 6b 22 2c 22 46  |mp_StartTask","F|
00002ad0  69 6c 65 72 5f 41 63 74  69 6f 6e 22 20 b8 20 74  |iler_Action" . t|
00002ae0  68 25 3a c8 99 20 22 46  69 6c 65 72 41 63 74 69  |h%:.. "FilerActi|
00002af0  6f 6e 5f 53 65 6e 64 53  65 6c 65 63 74 65 64 44  |on_SendSelectedD|
00002b00  69 72 65 63 74 6f 72 79  22 2c 74 68 25 2c 73 6f  |irectory",th%,so|
00002b10  75 72 63 65 5f 70 61 72  65 6e 74 24 0d 10 36 3c  |urce_parent$..6<|
00002b20  c8 99 20 22 46 69 6c 65  72 41 63 74 69 6f 6e 5f  |.. "FilerAction_|
00002b30  53 65 6e 64 53 65 6c 65  63 74 65 64 46 69 6c 65  |SendSelectedFile|
00002b40  22 2c 74 68 25 2c a4 6c  65 61 66 6e 61 6d 65 28  |",th%,.leafname(|
00002b50  73 6f 75 72 63 65 24 29  0d 10 40 50 c8 99 20 22  |source$)..@P.. "|
00002b60  46 69 6c 65 72 41 63 74  69 6f 6e 5f 53 65 6e 64  |FilerAction_Send|
00002b70  53 74 61 72 74 4f 70 65  72 61 74 69 6f 6e 22 2c  |StartOperation",|
00002b80  74 68 25 2c 30 2c 25 31  30 30 31 2c 64 65 73 74  |th%,0,%1001,dest|
00002b90  5f 70 61 72 65 6e 74 24  2c a9 64 65 73 74 5f 70  |_parent$,.dest_p|
00002ba0  61 72 65 6e 74 24 2b 31  0d 10 4a 11 f2 73 65 6e  |arent$+1..J..sen|
00002bb0  64 5f 6d 65 73 73 61 67  65 0d 10 54 0d f2 70 6f  |d_message..T..po|
00002bc0  6c 6c 32 28 31 29 0d 10  5e 05 e1 0d 10 68 05 3a  |ll2(1)..^....h.:|
00002bd0  0d 10 72 13 dd f2 70 75  72 67 65 31 28 64 65 73  |..r...purge1(des|
00002be0  74 24 29 0d 10 7c 1b ea  20 64 65 73 74 5f 70 61  |t$)..|.. dest_pa|
00002bf0  72 65 6e 74 24 2c 62 75  5f 70 61 74 68 24 0d 10  |rent$,bu_path$..|
00002c00  86 1f 64 65 73 74 5f 70  61 72 65 6e 74 24 3d a4  |..dest_parent$=.|
00002c10  75 70 5f 64 69 72 28 64  65 73 74 24 29 0d 10 90  |up_dir(dest$)...|
00002c20  3e 62 75 5f 70 61 74 68  24 3d a4 62 61 63 6b 75  |>bu_path$=.backu|
00002c30  70 5f 70 61 74 68 28 64  65 73 74 5f 70 61 72 65  |p_path(dest_pare|
00002c40  6e 74 24 29 3a f2 65 6e  73 75 72 65 5f 70 61 74  |nt$):.ensure_pat|
00002c50  68 28 62 75 5f 70 61 74  68 24 29 0d 10 9a 64 c8  |h(bu_path$)...d.|
00002c60  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
00002c70  6b 22 2c 22 46 69 6c 65  72 5f 41 63 74 69 6f 6e  |k","Filer_Action|
00002c80  22 20 b8 20 74 68 25 3a  c8 99 20 22 46 69 6c 65  |" . th%:.. "File|
00002c90  72 41 63 74 69 6f 6e 5f  53 65 6e 64 53 65 6c 65  |rAction_SendSele|
00002ca0  63 74 65 64 44 69 72 65  63 74 6f 72 79 22 2c 74  |ctedDirectory",t|
00002cb0  68 25 2c 64 65 73 74 5f  70 61 72 65 6e 74 24 0d  |h%,dest_parent$.|
00002cc0  10 a4 3a c8 99 20 22 46  69 6c 65 72 41 63 74 69  |..:.. "FilerActi|
00002cd0  6f 6e 5f 53 65 6e 64 53  65 6c 65 63 74 65 64 46  |on_SendSelectedF|
00002ce0  69 6c 65 22 2c 74 68 25  2c a4 6c 65 61 66 6e 61  |ile",th%,.leafna|
00002cf0  6d 65 28 64 65 73 74 24  29 0d 10 ae 44 c8 99 20  |me(dest$)...D.. |
00002d00  22 46 69 6c 65 72 41 63  74 69 6f 6e 5f 53 65 6e  |"FilerAction_Sen|
00002d10  64 53 74 61 72 74 4f 70  65 72 61 74 69 6f 6e 22  |dStartOperation"|
00002d20  2c 74 68 25 2c 31 2c 31  2c 62 75 5f 70 61 74 68  |,th%,1,1,bu_path|
00002d30  24 2c a9 62 75 5f 70 61  74 68 24 2b 31 0d 10 b8  |$,.bu_path$+1...|
00002d40  11 f2 73 65 6e 64 5f 6d  65 73 73 61 67 65 0d 10  |..send_message..|
00002d50  c2 0d f2 70 6f 6c 6c 32  28 31 29 0d 10 cc 05 e1  |...poll2(1).....|
00002d60  0d 10 d6 05 3a 0d 10 e0  12 dd f2 70 6f 6c 6c 32  |....:......poll2|
00002d70  28 62 75 73 79 25 29 0d  10 ea 0e ea 20 72 25 2c  |(busy%)..... r%,|
00002d80  64 6f 6e 65 25 0d 10 f4  05 f5 0d 10 fe 1b c8 99  |done%...........|
00002d90  20 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 2c 62 25  | "Wimp_Poll",,b%|
00002da0  20 b8 20 72 25 0d 11 08  0b c8 8e 20 72 25 20 ca  | . r%...... r% .|
00002db0  0d 11 12 12 c9 20 30 3a  c8 8e 20 62 75 73 79 25  |..... 0:.. busy%|
00002dc0  20 ca 0d 11 1c 0f c9 20  30 3a 64 6f 6e 65 25 3d  | ...... 0:done%=|
00002dd0  b9 0d 11 26 15 c9 20 31  3a f2 73 65 6e 64 5f 6d  |...&.. 1:.send_m|
00002de0  65 73 73 61 67 65 0d 11  30 05 cb 0d 11 3a 20 c9  |essage..0....: .|
00002df0  20 32 3a c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  | 2:.. "Wimp_Open|
00002e00  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 11 44 21 c9  |Window",,b%..D!.|
00002e10  20 33 3a c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  | 3:.. "Wimp_Clos|
00002e20  65 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 11 4e 19  |eWindow",,b%..N.|
00002e30  c9 20 36 3a f2 6d 6f 75  73 65 5f 63 6c 69 63 6b  |. 6:.mouse_click|
00002e40  32 28 62 25 29 0d 11 58  16 c9 20 39 3a f2 6d 65  |2(b%)..X.. 9:.me|
00002e50  6e 75 63 6c 69 63 6b 28  62 25 29 0d 11 62 19 c9  |nuclick(b%)..b..|
00002e60  20 31 37 2c 31 38 3a f2  72 65 63 65 69 76 65 32  | 17,18:.receive2|
00002e70  28 62 25 29 0d 11 6c 17  c9 20 31 39 3a f2 61 63  |(b%)..l.. 19:.ac|
00002e80  6b 28 62 25 2c 64 6f 6e  65 25 29 0d 11 76 05 cb  |k(b%,done%)..v..|
00002e90  0d 11 80 22 fd 20 28 64  6f 6e 65 25 20 80 20 ac  |...". (done% . .|
00002ea0  20 73 74 6f 70 70 65 64  25 29 20 84 20 71 75 69  | stopped%) . qui|
00002eb0  74 25 0d 11 8a 05 e1 0d  11 94 05 3a 0d 11 9e 1e  |t%.........:....|
00002ec0  dd f2 64 69 72 65 63 74  6f 72 79 28 73 6f 75 72  |..directory(sour|
00002ed0  63 65 24 2c 64 65 73 74  24 29 0d 11 a8 4e ea 20  |ce$,dest$)...N. |
00002ee0  73 6f 75 72 63 65 62 75  66 25 2c 64 65 73 74 62  |sourcebuf%,destb|
00002ef0  75 66 25 2c 65 72 72 25  2c 66 6c 61 67 73 25 2c  |uf%,err%,flags%,|
00002f00  73 6e 75 6d 25 2c 64 6e  75 6d 25 2c 72 65 6d 25  |snum%,dnum%,rem%|
00002f10  2c 6e 25 2c 69 25 2c 63  68 61 6e 67 65 73 25 2c  |,n%,i%,changes%,|
00002f20  62 75 5f 70 61 74 68 24  0d 11 b2 1d 73 6f 75 72  |bu_path$....sour|
00002f30  63 65 62 75 66 25 3d a4  65 78 74 5f 62 75 66 28  |cebuf%=.ext_buf(|
00002f40  34 30 39 36 29 0d 11 bc  4a e7 20 73 6f 75 72 63  |4096)...J. sourc|
00002f50  65 62 75 66 25 3d a3 20  85 20 28 31 3c 3c 33 30  |ebuf%=. . (1<<30|
00002f60  29 2b 26 35 30 33 2c 22  49 6e 73 75 66 66 69 63  |)+&503,"Insuffic|
00002f70  69 65 6e 74 20 6d 65 6d  6f 72 79 20 74 6f 20 63  |ient memory to c|
00002f80  68 65 63 6b 20 64 69 72  65 63 74 6f 72 79 22 0d  |heck directory".|
00002f90  11 c6 05 f5 0d 11 d0 6a  c8 99 20 22 58 4f 53 5f  |.......j.. "XOS_|
00002fa0  47 42 50 42 22 2c 31 30  2c 73 6f 75 72 63 65 24  |GBPB",10,source$|
00002fb0  2c 73 6f 75 72 63 65 62  75 66 25 2c 26 38 30 30  |,sourcebuf%,&800|
00002fc0  30 30 30 30 30 2c 30 2c  65 78 74 5f 6d 65 6d 5f  |00000,0,ext_mem_|
00002fd0  70 74 72 25 2d 73 6f 75  72 63 65 62 75 66 25 2c  |ptr%-sourcebuf%,|
00002fe0  22 2a 22 20 b8 20 65 72  72 25 2c 2c 2c 73 6e 75  |"*" . err%,,,snu|
00002ff0  6d 25 2c 72 65 6d 25 3b  66 6c 61 67 73 25 0d 11  |m%,rem%;flags%..|
00003000  da 43 e7 20 28 66 6c 61  67 73 25 20 80 20 31 29  |.C. (flags% . 1)|
00003010  3c 3e 30 20 21 65 72 72  25 3d 28 31 3c 3c 33 30  |<>0 !err%=(1<<30|
00003020  29 2b 26 35 30 33 3a c8  99 20 22 4f 53 5f 47 65  |)+&503:.. "OS_Ge|
00003030  6e 65 72 61 74 65 45 72  72 6f 72 22 2c 65 72 72  |nerateError",err|
00003040  25 0d 11 e4 0f e7 20 72  65 6d 25 3e 3d 30 20 8c  |%..... rem%>=0 .|
00003050  0d 11 ee 15 6e 25 3d a4  65 78 74 5f 62 75 66 28  |....n%=.ext_buf(|
00003060  34 30 39 36 29 0d 11 f8  42 e7 20 6e 25 3d a3 20  |4096)...B. n%=. |
00003070  85 20 28 31 3c 3c 33 30  29 2b 26 35 30 33 2c 22  |. (1<<30)+&503,"|
00003080  49 6e 73 75 66 66 69 63  69 65 6e 74 20 6d 65 6d  |Insufficient mem|
00003090  6f 72 79 20 74 6f 20 63  68 65 63 6b 20 64 69 72  |ory to check dir|
000030a0  65 63 74 6f 72 79 22 0d  12 02 05 cd 0d 12 0c 0c  |ectory".........|
000030b0  fd 20 72 65 6d 25 3c 30  0d 12 16 11 69 25 3d 73  |. rem%<0....i%=s|
000030c0  6f 75 72 63 65 62 75 66  25 0d 12 20 0f e7 20 73  |ourcebuf%.. .. s|
000030d0  6e 75 6d 25 3e 30 20 8c  0d 12 2a 12 e3 20 6e 25  |num%>0 ...*.. n%|
000030e0  3d 31 20 b8 20 73 6e 75  6d 25 0d 12 34 10 f2 74  |=1 . snum%..4..t|
000030f0  65 72 6d 28 69 25 2b 32  30 29 0d 12 3e 24 69 25  |erm(i%+20)..>$i%|
00003100  2b 3d a9 24 28 69 25 2b  32 30 29 2b 32 31 3a f2  |+=.$(i%+20)+21:.|
00003110  77 6f 72 64 5f 61 6c 69  67 6e 28 69 25 29 0d 12  |word_align(i%)..|
00003120  48 05 ed 0d 12 52 05 cd  0d 12 5c 10 f2 72 65 6c  |H....R....\..rel|
00003130  5f 62 75 66 28 69 25 29  0d 12 66 20 e7 20 a4 69  |_buf(i%)..f . .i|
00003140  63 6f 6e 5f 73 74 61 74  65 28 74 6f 70 64 69 72  |con_state(topdir|
00003150  73 25 2c 31 31 29 20 8c  0d 12 70 1b 64 65 73 74  |s%,11) ...p.dest|
00003160  62 75 66 25 3d a4 65 78  74 5f 62 75 66 28 34 30  |buf%=.ext_buf(40|
00003170  39 36 29 0d 12 7a 48 e7  20 64 65 73 74 62 75 66  |96)..zH. destbuf|
00003180  25 3d a3 20 85 20 28 31  3c 3c 33 30 29 2b 26 35  |%=. . (1<<30)+&5|
00003190  30 33 2c 22 49 6e 73 75  66 66 69 63 69 65 6e 74  |03,"Insufficient|
000031a0  20 6d 65 6d 6f 72 79 20  74 6f 20 63 68 65 63 6b  | memory to check|
000031b0  20 64 69 72 65 63 74 6f  72 79 22 0d 12 84 05 f5  | directory".....|
000031c0  0d 12 8e 64 c8 99 20 22  58 4f 53 5f 47 42 50 42  |...d.. "XOS_GBPB|
000031d0  22 2c 31 30 2c 64 65 73  74 24 2c 64 65 73 74 62  |",10,dest$,destb|
000031e0  75 66 25 2c 26 38 30 30  30 30 30 30 30 2c 30 2c  |uf%,&80000000,0,|
000031f0  65 78 74 5f 6d 65 6d 5f  70 74 72 25 2d 64 65 73  |ext_mem_ptr%-des|
00003200  74 62 75 66 25 2c 22 2a  22 20 b8 20 65 72 72 25  |tbuf%,"*" . err%|
00003210  2c 2c 2c 64 6e 75 6d 25  2c 72 65 6d 25 3b 66 6c  |,,,dnum%,rem%;fl|
00003220  61 67 73 25 0d 12 98 43  e7 20 28 66 6c 61 67 73  |ags%...C. (flags|
00003230  25 20 80 20 31 29 3c 3e  30 20 21 65 72 72 25 3d  |% . 1)<>0 !err%=|
00003240  28 31 3c 3c 33 30 29 2b  26 35 30 33 3a c8 99 20  |(1<<30)+&503:.. |
00003250  22 4f 53 5f 47 65 6e 65  72 61 74 65 45 72 72 6f  |"OS_GenerateErro|
00003260  72 22 2c 65 72 72 25 0d  12 a2 0f e7 20 72 65 6d  |r",err%..... rem|
00003270  25 3e 3d 30 20 8c 0d 12  ac 15 6e 25 3d a4 65 78  |%>=0 .....n%=.ex|
00003280  74 5f 62 75 66 28 34 30  39 36 29 0d 12 b6 42 e7  |t_buf(4096)...B.|
00003290  20 6e 25 3d a3 20 85 20  28 31 3c 3c 33 30 29 2b  | n%=. . (1<<30)+|
000032a0  26 35 30 33 2c 22 49 6e  73 75 66 66 69 63 69 65  |&503,"Insufficie|
000032b0  6e 74 20 6d 65 6d 6f 72  79 20 74 6f 20 63 68 65  |nt memory to che|
000032c0  63 6b 20 64 69 72 65 63  74 6f 72 79 22 0d 12 c0  |ck directory"...|
000032d0  05 cd 0d 12 ca 0c fd 20  72 65 6d 25 3c 30 0d 12  |....... rem%<0..|
000032e0  d4 0f 69 25 3d 64 65 73  74 62 75 66 25 0d 12 de  |..i%=destbuf%...|
000032f0  0f e7 20 64 6e 75 6d 25  3e 30 20 8c 0d 12 e8 12  |.. dnum%>0 .....|
00003300  e3 20 6e 25 3d 31 20 b8  20 64 6e 75 6d 25 0d 12  |. n%=1 . dnum%..|
00003310  f2 10 f2 74 65 72 6d 28  69 25 2b 32 30 29 0d 12  |...term(i%+20)..|
00003320  fc 27 e7 20 ac 20 a4 63  6f 6d 70 61 72 65 28 69  |.'. . .compare(i|
00003330  25 2c 73 6f 75 72 63 65  62 75 66 25 2c 73 6e 75  |%,sourcebuf%,snu|
00003340  6d 25 29 20 8c 0d 13 06  75 e7 20 ac 20 63 68 61  |m%) ....u. . cha|
00003350  6e 67 65 73 25 20 63 68  61 6e 67 65 73 25 3d b9  |nges% changes%=.|
00003360  3a c8 99 20 22 57 69 6d  70 5f 53 74 61 72 74 54  |:.. "Wimp_StartT|
00003370  61 73 6b 22 2c 22 46 69  6c 65 72 5f 41 63 74 69  |ask","Filer_Acti|
00003380  6f 6e 22 20 b8 20 74 68  25 3a c8 99 20 22 46 69  |on" . th%:.. "Fi|
00003390  6c 65 72 41 63 74 69 6f  6e 5f 53 65 6e 64 53 65  |lerAction_SendSe|
000033a0  6c 65 63 74 65 64 44 69  72 65 63 74 6f 72 79 22  |lectedDirectory"|
000033b0  2c 74 68 25 2c 64 65 73  74 24 0d 13 10 32 c8 99  |,th%,dest$...2..|
000033c0  20 22 46 69 6c 65 72 41  63 74 69 6f 6e 5f 53 65  | "FilerAction_Se|
000033d0  6e 64 53 65 6c 65 63 74  65 64 46 69 6c 65 22 2c  |ndSelectedFile",|
000033e0  74 68 25 2c 24 28 69 25  2b 32 30 29 0d 13 1a 05  |th%,$(i%+20)....|
000033f0  cd 0d 13 24 24 69 25 2b  3d a9 24 28 69 25 2b 32  |...$$i%+=.$(i%+2|
00003400  30 29 2b 32 31 3a f2 77  6f 72 64 5f 61 6c 69 67  |0)+21:.word_alig|
00003410  6e 28 69 25 29 0d 13 2e  05 ed 0d 13 38 05 cd 0d  |n(i%).......8...|
00003420  13 42 10 f2 72 65 6c 5f  62 75 66 28 69 25 29 0d  |.B..rel_buf(i%).|
00003430  13 4c 10 e7 20 63 68 61  6e 67 65 73 25 20 8c 0d  |.L.. changes% ..|
00003440  13 56 86 62 75 5f 70 61  74 68 24 3d a4 62 61 63  |.V.bu_path$=.bac|
00003450  6b 75 70 5f 70 61 74 68  28 64 65 73 74 24 29 3a  |kup_path(dest$):|
00003460  f2 65 6e 73 75 72 65 5f  70 61 74 68 28 62 75 5f  |.ensure_path(bu_|
00003470  70 61 74 68 24 29 3a c8  99 20 22 46 69 6c 65 72  |path$):.. "Filer|
00003480  41 63 74 69 6f 6e 5f 53  65 6e 64 53 74 61 72 74  |Action_SendStart|
00003490  4f 70 65 72 61 74 69 6f  6e 22 2c 74 68 25 2c 31  |Operation",th%,1|
000034a0  2c 31 2c 62 75 5f 70 61  74 68 24 2c a9 62 75 5f  |,1,bu_path$,.bu_|
000034b0  70 61 74 68 24 2b 31 3a  f2 73 65 6e 64 5f 6d 65  |path$+1:.send_me|
000034c0  73 73 61 67 65 0d 13 60  05 cd 0d 13 6a 0d f2 70  |ssage..`....j..p|
000034d0  6f 6c 6c 32 28 31 29 0d  13 74 0f e7 20 ac 20 71  |oll2(1)..t.. . q|
000034e0  75 69 74 25 20 8c 0d 13  7e 0f 69 25 3d 64 65 73  |uit% ...~.i%=des|
000034f0  74 62 75 66 25 0d 13 88  0f e7 20 64 6e 75 6d 25  |tbuf%..... dnum%|
00003500  3e 30 20 8c 0d 13 92 12  e3 20 6e 25 3d 31 20 b8  |>0 ...... n%=1 .|
00003510  20 64 6e 75 6d 25 0d 13  9c 0f e7 20 69 25 21 31  | dnum%..... i%!1|
00003520  36 3d 32 20 8c 0d 13 a6  25 e7 20 a4 63 6f 6d 70  |6=2 ....%. .comp|
00003530  61 72 65 28 69 25 2c 73  6f 75 72 63 65 62 75 66  |are(i%,sourcebuf|
00003540  25 2c 73 6e 75 6d 25 29  20 8c 0d 13 b0 3d 24 73  |%,snum%) ....=$s|
00003550  6f 75 72 63 65 74 6f 70  25 3d 73 6f 75 72 63 65  |ourcetop%=source|
00003560  24 2b 22 2e 22 2b 24 28  69 25 2b 32 30 29 3a f2  |$+"."+$(i%+20):.|
00003570  72 65 64 72 61 77 5f 69  63 6f 6e 28 74 6f 70 64  |redraw_icon(topd|
00003580  69 72 73 25 2c 31 29 0d  13 ba 39 24 64 65 73 74  |irs%,1)...9$dest|
00003590  74 6f 70 25 3d 64 65 73  74 24 2b 22 2e 22 2b 24  |top%=dest$+"."+$|
000035a0  28 69 25 2b 32 30 29 3a  f2 72 65 64 72 61 77 5f  |(i%+20):.redraw_|
000035b0  69 63 6f 6e 28 74 6f 70  64 69 72 73 25 2c 35 29  |icon(topdirs%,5)|
000035c0  0d 13 c4 0d f2 70 6f 6c  6c 32 28 30 29 0d 13 ce  |.....poll2(0)...|
000035d0  2f e7 20 ac 20 71 75 69  74 25 20 f2 64 69 72 65  |/. . quit% .dire|
000035e0  63 74 6f 72 79 28 24 73  6f 75 72 63 65 74 6f 70  |ctory($sourcetop|
000035f0  25 2c 24 64 65 73 74 74  6f 70 25 29 0d 13 d8 05  |%,$desttop%)....|
00003600  cd 0d 13 e2 05 cd 0d 13  ec 24 69 25 2b 3d a9 24  |.........$i%+=.$|
00003610  28 69 25 2b 32 30 29 2b  32 31 3a f2 77 6f 72 64  |(i%+20)+21:.word|
00003620  5f 61 6c 69 67 6e 28 69  25 29 0d 13 f6 05 ed 0d  |_align(i%)......|
00003630  14 00 05 cd 0d 14 0a 05  cd 0d 14 14 05 cd 0d 14  |................|
00003640  1e 7d e7 20 a4 69 63 6f  6e 5f 73 74 61 74 65 28  |.}. .icon_state(|
00003650  74 6f 70 64 69 72 73 25  2c 31 30 29 20 80 20 73  |topdirs%,10) . s|
00003660  6f 75 72 63 65 24 3d 66  69 72 73 74 5f 73 6f 75  |ource$=first_sou|
00003670  72 63 65 24 20 80 20 64  65 73 74 24 3d 66 69 72  |rce$ . dest$=fir|
00003680  73 74 5f 64 65 73 74 24  20 80 20 71 75 69 74 25  |st_dest$ . quit%|
00003690  3d a3 20 f2 63 6f 70 79  28 73 6f 75 72 63 65 24  |=. .copy(source$|
000036a0  2c 64 65 73 74 24 2c 73  6f 75 72 63 65 62 75 66  |,dest$,sourcebuf|
000036b0  25 2b 32 30 2c 73 6e 75  6d 25 29 0d 14 28 18 f2  |%+20,snum%)..(..|
000036c0  72 65 6c 5f 62 75 66 28  73 6f 75 72 63 65 62 75  |rel_buf(sourcebu|
000036d0  66 25 29 0d 14 32 05 e1  0d 14 3c 05 3a 0d 14 46  |f%)..2....<.:..F|
000036e0  18 dd f2 65 6e 73 75 72  65 5f 70 61 74 68 28 70  |...ensure_path(p|
000036f0  61 74 68 24 29 0d 14 50  14 ea 20 65 72 72 25 2c  |ath$)..P.. err%,|
00003700  66 6c 61 67 73 25 2c 6e  25 0d 14 5a 17 6e 25 3d  |flags%,n%..Z.n%=|
00003710  a9 74 6f 70 5f 64 65 73  74 5f 64 69 72 24 2b 31  |.top_dest_dir$+1|
00003720  0d 14 64 10 c8 95 20 6e  25 3c a9 70 61 74 68 24  |..d... n%<.path$|
00003730  0d 14 6e 2a f5 20 6e 25  2b 3d 31 3a fd 20 6e 25  |..n*. n%+=1:. n%|
00003740  3d a9 70 61 74 68 24 20  84 20 c1 70 61 74 68 24  |=.path$ . .path$|
00003750  2c 6e 25 2c 31 29 3d 22  2e 22 0d 14 78 15 e7 20  |,n%,1)="."..x.. |
00003760  6e 25 3d a9 70 61 74 68  24 20 6e 25 2b 3d 31 0d  |n%=.path$ n%+=1.|
00003770  14 82 2e c8 99 20 22 58  4f 53 5f 46 69 6c 65 22  |..... "XOS_File"|
00003780  2c 38 2c c0 70 61 74 68  24 2c 6e 25 2d 31 29 20  |,8,.path$,n%-1) |
00003790  b8 20 65 72 72 25 3b 66  6c 61 67 73 25 0d 14 8c  |. err%;flags%...|
000037a0  43 e7 20 28 66 6c 61 67  73 25 20 80 20 31 29 3c  |C. (flags% . 1)<|
000037b0  3e 30 20 21 65 72 72 25  3d 28 31 3c 3c 33 30 29  |>0 !err%=(1<<30)|
000037c0  2b 26 35 30 33 3a c8 99  20 22 4f 53 5f 47 65 6e  |+&503:.. "OS_Gen|
000037d0  65 72 61 74 65 45 72 72  6f 72 22 2c 65 72 72 25  |erateError",err%|
000037e0  0d 14 96 05 ce 0d 14 a0  05 e1 0d 14 aa 05 3a 0d  |..............:.|
000037f0  14 b4 18 dd a4 62 61 63  6b 75 70 5f 70 61 74 68  |.....backup_path|
00003800  28 70 61 74 68 24 29 0d  14 be 3f 3d 74 6f 70 5f  |(path$)...?=top_|
00003810  64 65 73 74 5f 64 69 72  24 2b 22 2e 22 2b 62 61  |dest_dir$+"."+ba|
00003820  63 6b 75 70 64 69 72 24  2b c2 70 61 74 68 24 2c  |ckupdir$+.path$,|
00003830  a9 70 61 74 68 24 2d a9  74 6f 70 5f 64 65 73 74  |.path$-.top_dest|
00003840  5f 64 69 72 24 29 0d 14  c8 05 3a 0d 14 d2 12 dd  |_dir$)....:.....|
00003850  f2 73 65 6e 64 5f 6d 65  73 73 61 67 65 0d 14 dc  |.send_message...|
00003860  08 ea 20 63 25 0d 14 e6  11 63 25 3d a4 73 74 61  |.. c%....c%=.sta|
00003870  63 6b 28 36 34 29 0d 14  f0 25 21 63 25 3d 32 34  |ck(64)...%!c%=24|
00003880  3a 63 25 21 31 32 3d 30  3a 63 25 21 31 36 3d 26  |:c%!12=0:c%!16=&|
00003890  34 30 36 3a 63 25 21 32  30 3d 30 0d 14 fa 23 c8  |406:c%!20=0...#.|
000038a0  99 20 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |. "Wimp_SendMess|
000038b0  61 67 65 22 2c 31 38 2c  63 25 2c 74 68 25 0d 15  |age",18,c%,th%..|
000038c0  04 10 f2 75 6e 73 74 61  63 6b 28 63 25 29 0d 15  |...unstack(c%)..|
000038d0  0e 05 e1 0d 15 18 05 3a  0d 15 22 15 dd f2 61 63  |.......:.."...ac|
000038e0  6b 28 64 25 2c f8 20 64  6f 6e 65 25 29 0d 15 2c  |k(d%,. done%)..,|
000038f0  0e c8 8e 20 64 25 21 31  36 20 ca 0d 15 36 18 c9  |... d%!16 ...6..|
00003900  20 26 34 30 36 3a 64 6f  6e 65 25 3d b9 3a 74 68  | &406:done%=.:th|
00003910  25 3d 30 0d 15 40 05 cb  0d 15 4a 05 e1 0d 15 54  |%=0..@....J....T|
00003920  05 3a 0d 15 5e 10 dd a4  75 70 5f 64 69 72 28 61  |.:..^...up_dir(a|
00003930  24 29 0d 15 68 08 ea 20  6e 25 0d 15 72 0a 6e 25  |$)..h.. n%..r.n%|
00003940  3d a9 61 24 0d 15 7c 1d  c8 95 20 c1 61 24 2c 6e  |=.a$..|... .a$,n|
00003950  25 2c 31 29 3c 3e 22 2e  22 20 6e 25 2d 3d 31 3a  |%,1)<>"." n%-=1:|
00003960  ce 0d 15 86 0e 3d c0 61  24 2c 6e 25 2d 31 29 0d  |.....=.a$,n%-1).|
00003970  15 90 05 3a 0d 15 9a 20  dd f2 63 6f 70 79 5f 70  |...:... ..copy_p|
00003980  61 74 68 28 73 6f 75 72  63 65 24 2c f8 20 64 65  |ath(source$,. de|
00003990  73 74 24 29 0d 15 a4 08  ea 20 73 24 0d 15 ae 0e  |st$)..... s$....|
000039a0  73 24 3d 73 6f 75 72 63  65 24 0d 15 b8 11 f2 74  |s$=source$.....t|
000039b0  72 75 6e 63 61 74 65 28  73 24 29 0d 15 c2 14 f2  |runcate(s$).....|
000039c0  74 72 75 6e 63 61 74 65  28 64 65 73 74 24 29 0d  |truncate(dest$).|
000039d0  15 cc 30 e7 20 a9 73 24  3c a9 73 6f 75 72 63 65  |..0. .s$<.source|
000039e0  24 20 64 65 73 74 24 2b  3d c2 73 6f 75 72 63 65  |$ dest$+=.source|
000039f0  24 2c a9 73 6f 75 72 63  65 24 2d a9 73 24 29 0d  |$,.source$-.s$).|
00003a00  15 d6 35 e7 20 a7 64 65  73 74 24 2c 22 5c 22 29  |..5. .dest$,"\")|
00003a10  3c 3e 30 20 64 65 73 74  24 3d c0 64 65 73 74 24  |<>0 dest$=.dest$|
00003a20  2c a4 6c 61 73 74 5f 64  6f 74 28 64 65 73 74 24  |,.last_dot(dest$|
00003a30  29 2d 31 29 0d 15 e0 05  e1 0d 15 ea 05 3a 0d 15  |)-1).........:..|
00003a40  f4 16 dd f2 6d 6f 75 73  65 5f 63 6c 69 63 6b 32  |....mouse_click2|
00003a50  28 64 25 29 0d 15 fe 0e  c8 8e 20 64 25 21 31 32  |(d%)...... d%!12|
00003a60  20 ca 0d 16 08 12 c9 20  2d 32 3a c8 8e 20 64 25  | ...... -2:.. d%|
00003a70  21 38 20 ca 0d 16 12 2b  c9 20 32 3a f2 73 68 6f  |!8 ....+. 2:.sho|
00003a80  77 6d 65 6e 75 28 6d 61  69 6e 6d 65 6e 75 25 2c  |wmenu(mainmenu%,|
00003a90  21 64 25 2d 36 34 2c 39  36 2b 32 2a 34 34 29 0d  |!d%-64,96+2*44).|
00003aa0  16 1c 4a c9 20 34 3a 21  64 25 3d 74 6f 70 64 69  |..J. 4:!d%=topdi|
00003ab0  72 73 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |rs%:.. "Wimp_Get|
00003ac0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 64 25  |WindowState",,d%|
00003ad0  3a c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |:.. "Wimp_OpenWi|
00003ae0  6e 64 6f 77 22 2c 2c 64  25 0d 16 26 05 cb 0d 16  |ndow",,d%..&....|
00003af0  30 22 c9 20 74 6f 70 64  69 72 73 25 3a f2 74 6f  |0". topdirs%:.to|
00003b00  70 64 69 72 73 5f 63 6c  69 63 6b 32 28 64 25 29  |pdirs_click2(d%)|
00003b10  0d 16 3a 05 cb 0d 16 44  05 e1 0d 16 4e 05 3a 0d  |..:....D....N.:.|
00003b20  16 58 18 dd f2 74 6f 70  64 69 72 73 5f 63 6c 69  |.X...topdirs_cli|
00003b30  63 6b 32 28 64 25 29 0d  16 62 0e c8 8e 20 64 25  |ck2(d%)..b... d%|
00003b40  21 31 36 20 ca 0d 16 6c  08 c9 20 39 3a 0d 16 76  |!16 ...l.. 9:..v|
00003b50  3e e7 20 73 74 6f 70 70  65 64 25 20 24 61 63 74  |>. stopped% $act|
00003b60  69 6f 6e 5f 74 65 78 74  25 3d 22 50 61 75 73 65  |ion_text%="Pause|
00003b70  22 20 8b 20 24 61 63 74  69 6f 6e 5f 74 65 78 74  |" . $action_text|
00003b80  25 3d 22 52 65 73 74 61  72 74 22 0d 16 80 17 73  |%="Restart"....s|
00003b90  74 6f 70 70 65 64 25 3d  ac 20 73 74 6f 70 70 65  |topped%=. stoppe|
00003ba0  64 25 0d 16 8a 2e c9 20  38 3a 21 64 25 3d 74 6f  |d%..... 8:!d%=to|
00003bb0  70 64 69 72 73 25 3a c8  99 20 22 57 69 6d 70 5f  |pdirs%:.. "Wimp_|
00003bc0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 64 25  |CloseWindow",,d%|
00003bd0  0d 16 94 05 cb 0d 16 9e  05 e1 0d 16 a8 05 3a 0d  |..............:.|
00003be0  16 b2 12 dd f2 72 65 63  65 69 76 65 32 28 62 25  |.....receive2(b%|
00003bf0  29 0d 16 bc 0e c8 8e 20  62 25 21 31 36 20 ca 0d  |)...... b%!16 ..|
00003c00  16 c6 0f c9 20 30 3a 71  75 69 74 25 3d b9 0d 16  |.... 0:quit%=...|
00003c10  d0 05 cb 0d 16 da 05 e1  0d 16 e4 05 3a 0d 16 ee  |............:...|
00003c20  14 dd a4 6c 61 73 74 5f  64 6f 74 28 73 74 72 24  |...last_dot(str$|
00003c30  29 0d 16 f8 08 ea 20 6e  25 0d 17 02 0c 6e 25 3d  |)..... n%....n%=|
00003c40  a9 73 74 72 24 0d 17 0c  26 c8 95 20 c1 73 74 72  |.str$...&.. .str|
00003c50  24 2c 6e 25 2c 31 29 3c  3e 22 2e 22 20 80 20 6e  |$,n%,1)<>"." . n|
00003c60  25 3e 30 3a 6e 25 2d 3d  31 3a ce 0d 17 16 10 e7  |%>0:n%-=1:......|
00003c70  20 6e 25 3d 30 20 6e 25  3d 2d 31 0d 17 20 07 3d  | n%=0 n%=-1.. .=|
00003c80  6e 25 0d 17 2a 05 3a 0d  17 34 0e dd f2 64 72 61  |n%..*.:..4...dra|
00003c90  67 5f 65 6e 64 0d 17 3e  12 70 6f 6c 6c 5f 6d 61  |g_end..>.poll_ma|
00003ca0  73 6b 25 3d 26 33 31 0d  17 48 12 e7 20 64 72 61  |sk%=&31..H.. dra|
00003cb0  67 6e 75 6d 25 3d 31 20  8c 0d 17 52 1e c8 99 20  |gnum%=1 ...R... |
00003cc0  22 4f 53 5f 42 79 74 65  22 2c 31 32 31 2c 26 38  |"OS_Byte",121,&8|
00003cd0  30 20 b8 20 2c 61 25 0d  17 5c 27 e7 20 61 25 20  |0 . ,a%..\'. a% |
00003ce0  73 6f 75 72 63 65 73 74  72 24 3d a4 75 70 5f 64  |sourcestr$=.up_d|
00003cf0  69 72 28 73 6f 75 72 63  65 73 74 72 24 29 0d 17  |ir(sourcestr$)..|
00003d00  66 1a 24 73 6f 75 72 63  65 74 6f 70 25 3d 73 6f  |f.$sourcetop%=so|
00003d10  75 72 63 65 73 74 72 24  0d 17 70 1e f2 6d 61 6b  |urcestr$..p..mak|
00003d20  65 5f 77 72 69 74 61 62  6c 65 28 74 6f 70 64 69  |e_writable(topdi|
00003d30  72 73 25 2c 31 29 0d 17  7a 05 cc 0d 17 84 43 24  |rs%,1)..z.....C$|
00003d40  73 6f 75 72 63 65 74 6f  70 25 3d c0 73 6f 75 72  |sourcetop%=.sour|
00003d50  63 65 73 74 72 24 2c a4  6c 61 73 74 5f 64 6f 74  |cestr$,.last_dot|
00003d60  28 73 6f 75 72 63 65 73  74 72 24 29 2d 31 29 2b  |(sourcestr$)-1)+|
00003d70  22 2e 3c 53 65 6c 65 63  74 69 6f 6e 3e 22 0d 17  |".<Selection>"..|
00003d80  8e 22 f2 6d 61 6b 65 5f  6e 6f 6e 5f 77 72 69 74  |.".make_non_writ|
00003d90  61 62 6c 65 28 74 6f 70  64 69 72 73 25 2c 31 29  |able(topdirs%,1)|
00003da0  0d 17 98 05 cd 0d 17 a2  0e 64 72 61 67 6e 75 6d  |.........dragnum|
00003db0  25 3d 30 0d 17 ac 05 e1  0d 17 b6 05 3a 0d 17 c0  |%=0.........:...|
00003dc0  1e dd f2 6d 61 6b 65 5f  6e 6f 6e 5f 77 72 69 74  |...make_non_writ|
00003dd0  61 62 6c 65 28 77 25 2c  69 25 29 0d 17 ca 11 63  |able(w%,i%)....c|
00003de0  25 3d a4 73 74 61 63 6b  28 32 34 29 0d 17 d4 22  |%=.stack(24)..."|
00003df0  c8 99 20 22 57 69 6d 70  5f 47 65 74 43 61 72 65  |.. "Wimp_GetCare|
00003e00  74 50 6f 73 69 74 69 6f  6e 22 2c 2c 63 25 0d 17  |tPosition",,c%..|
00003e10  de 48 e7 20 28 63 25 21  30 3d 77 25 20 80 20 63  |.H. (c%!0=w% . c|
00003e20  25 21 34 3d 69 25 29 20  63 25 21 30 3d 2d 31 3a  |%!4=i%) c%!0=-1:|
00003e30  63 25 21 34 3d 2d 31 3a  c8 99 20 22 57 69 6d 70  |c%!4=-1:.. "Wimp|
00003e40  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00003e50  6e 22 2c 2c 63 25 0d 17  e8 42 63 25 21 30 3d 77  |n",,c%...Bc%!0=w|
00003e60  25 3a 63 25 21 34 3d 69  25 3a 63 25 21 38 3d 30  |%:c%!4=i%:c%!8=0|
00003e70  3a 63 25 21 31 32 3d 26  46 3c 3c 31 32 3a c8 99  |:c%!12=&F<<12:..|
00003e80  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00003e90  61 74 65 22 2c 2c 63 25  0d 17 f2 10 f2 75 6e 73  |ate",,c%.....uns|
00003ea0  74 61 63 6b 28 63 25 29  0d 17 fc 05 e1 0d 18 06  |tack(c%)........|
00003eb0  05 3a 0d 18 10 1a dd f2  6d 61 6b 65 5f 77 72 69  |.:......make_wri|
00003ec0  74 61 62 6c 65 28 77 25  2c 69 25 29 0d 18 1a 11  |table(w%,i%)....|
00003ed0  63 25 3d a4 73 74 61 63  6b 28 32 34 29 0d 18 24  |c%=.stack(24)..$|
00003ee0  47 63 25 21 30 3d 77 25  3a 63 25 21 34 3d 69 25  |Gc%!0=w%:c%!4=i%|
00003ef0  3a 63 25 21 38 3d 26 46  3c 3c 31 32 3a 63 25 21  |:c%!8=&F<<12:c%!|
00003f00  31 32 3d 26 46 3c 3c 31  32 3a c8 99 20 22 57 69  |12=&F<<12:.. "Wi|
00003f10  6d 70 5f 53 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_SetIconState"|
00003f20  2c 2c 63 25 0d 18 2e 10  f2 75 6e 73 74 61 63 6b  |,,c%.....unstack|
00003f30  28 63 25 29 0d 18 38 05  e1 0d 18 42 05 3a 0d 18  |(c%)..8....B.:..|
00003f40  4c 12 dd f2 6b 65 79 70  72 65 73 73 28 64 25 29  |L...keypress(d%)|
00003f50  0d 18 56 0a ea 20 6b 65  79 25 0d 18 60 0e 6b 65  |..V.. key%..`.ke|
00003f60  79 25 3d 64 25 21 32 34  0d 18 6a 0d c8 8e 20 6b  |y%=d%!24..j... k|
00003f70  65 79 25 20 ca 0d 18 74  15 c9 20 31 33 3a f2 65  |ey% ...t.. 13:.e|
00003f80  78 65 63 75 74 65 28 64  25 29 0d 18 7e 05 7f 0d  |xecute(d%)..~...|
00003f90  18 88 1d c8 99 20 22 57  69 6d 70 5f 50 72 6f 63  |..... "Wimp_Proc|
00003fa0  65 73 73 4b 65 79 22 2c  6b 65 79 25 0d 18 92 05  |essKey",key%....|
00003fb0  cb 0d 18 9c 05 e1 0d 18  a6 05 3a 0d ff           |..........:..|
00003fbd