� > <Backup$Dir>.!RunImage
� (C) Martyn Fox 1997
� Hard disc backup program
(version$="1.00 (11-Mar-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%)
�H� �tail$,"W") !menspc%=!menspc% � 4:writeable%=�:� buffer%:� buflen%
�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$
�
� �item$<12 �
"+menspc%!8=&07000021:$(menspc%+12)=item$
,�
6Umenspc%!8=&07000121:menspc%!12=�indirect(item$):menspc%!16=-1:menspc%!20=�item$+1
@�
J�
Tmenspc%+=24
^�
h� item$="*"
rstart%!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%
c%=�stack(36)
 ș "Wimp_GetPointerInfo",,c%
&adj%=(c%!8 � 1)
0(ș "Wimp_DecodeMenu",,topmenu%,b%,c%
:Ȏ $c% �
D� "Quit":quit%=�
N�
X*� adj% �showmenu(topmenu%,topx%,topy%)
b�unstack(c%)
l�
v:
���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
	n%+=1
 �
*a%?n%=13
4�
>:
Hݤicon_state(window%,icon%)
R� a%,c%
\c%=�stack(36)
f!c%=window%
pc%!4=icon%
zș "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)
	�
	:
	$ݤstack(size%)
	.9� stackptr%+size%>stackend%  1<<31,"No room in stack"
	8stackptr%+=size%
	B=stackptr%-size%
	L:
	V��unstack(old_ptr%)
	`stackptr%=old_ptr%
	j'� stackptr%<stack% stackptr%=stack%
	t�
	~:
	� ��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%)
5ș "Wimp_SlotSize",-1,-1 � slot_size%,next%,free%
0� size%<slot_size%+slot_base%-ext_mem_ptr% �
('n%=ext_mem_ptr%:ext_mem_ptr%+=size%
2�
<?� size%-(slot_size%+slot_base%-ext_mem_ptr%)>=next%+free% �
Fn%=�
P�
ZCș "Wimp_SlotSize",size%+ext_mem_ptr%-slot_base%,-1 � new_slot%
d[� slot_base%+new_slot%>=ext_mem_ptr%+size% � n%=ext_mem_ptr%:ext_mem_ptr%+=size% � n%=�
n�
x�
�=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%
c%=�stack(20)
"�term(d%+44)
,filerth%=d%!4
6 ș "Wimp_GetPointerInfo",,c%
@� c%!12=topdirs% �
JȎ c%!16 �
T� 0,1,2,3:
^� dragnum%=0 �
hsourcestr$=$(d%+44)
r�
|'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$)
a$=�a$,�a$,"$"))
�
&:
0��topdirs_click(d%)
:Ȏ d%!16 �
DO� 2:�truncate(sourcestr$):$sourcetop%=sourcestr$:�make_writable(topdirs%,1)
N5� 6:�truncate($desttop%):�redraw_icon(topdirs%,5)
X.� 8:!d%=topdirs%:ș "Wimp_CloseWindow",,d%
b� 9:�execute(d%)
l�
v�
�:
���execute(d%)
�#� type%,flags%,backupdir$,more%
�more%=(�sourcestr$,"\")<>0)
�t� more% top_source_dir$=�sourcestr$,�last_dot(sourcestr$)-1) � sourcestr$=$sourcetop%: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"

N� type%<>2 � type%<>3 � (1<<30)+&503,top_source_dir$+" is not a directory"

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

*top_dest_dir$=$desttop%

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

>�

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

R)�directory(first_source$,first_dest$)

\more%=(�sourcestr$,"\")<>0)

fY� more% sourcestr$=�sourcestr$,�last_dot(sourcestr$))+�sourcestr$,�sourcestr$,"\")+1)

p
� � more%

z9�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%
8� i%=1 � � a$
Bj%=�(�a$,i%,1))
L.� j%>96 � j%<123 n$+=�(j% � &DF) � n$+=�j%
V�
`=n$
j:
t%��copy(source$,dest$,name%,snum%)
~� 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)
��
��
:

��poll2(busy%)
� r%,done%
�
(ș "Wimp_Poll",,b% � r%
2Ȏ r% �
<� 0:Ȏ busy% �
F� 0:done%=�
P� 1:�send_message
Z�
d � 2:ș "Wimp_OpenWindow",,b%
n!� 3:ș "Wimp_CloseWindow",,b%
x� 6:�mouse_click2(b%)
�� 9:�menuclick(b%)
�� 17,18:�receive2(b%)
�� 19:�ack(b%,done%)
��
�"� (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"
,�
6� rem%<0
@i%=sourcebuf%
J� snum%>0 �
T� n%=1 � snum%
^�term(i%+20)
h$i%+=�$(i%+20)+21:�word_align(i%)
r�
|�
��rel_buf(i%)
� � �icon_state(topdirs%,11) �
�destbuf%=�ext_buf(4096)
�H� 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%) �
0u� � changes% changes%=�:ș "Wimp_StartTask","Filer_Action" � th%:ș "FilerAction_SendSelectedDirectory",th%,dest$
:2ș "FilerAction_SendSelectedFile",th%,$(i%+20)
D�
N$i%+=�$(i%+20)+21:�word_align(i%)
X�
b�
l�rel_buf(i%)
v� changes% �
��bu_path$=�backup_path(dest$):�ensure_path(bu_path$):ș "FilerAction_SendStartOperation",th%,1,1,bu_path$,�bu_path$+1:�send_message
��
�
�poll2(1)
�� � 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%)
 �
*�
4�
>�
H}� �icon_state(topdirs%,10) � source$=first_source$ � dest$=first_dest$ � quit%=� �copy(source$,dest$,sourcebuf%+20,snum%)
R�rel_buf(sourcebuf%)
\�
f:
p��ensure_path(path$)
z� err%,flags%,n%
�n%=�top_dest_dir$+1
�ȕ n%<�path$
�*� n%+=1:� n%=�path$ � �path$,n%,1)="."
�� 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%)
8�
B:
L��ack(d%,� done%)
VȎ d%!16 �
`� &406:done%=�:th%=0
j�
t�
~:
���up_dir(� a$)
�� n%
�
n%=�a$
�ȕ �a$,n%,1)<>"." n%-=1:�
�a$=�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%)
2Ȏ d%!12 �
<� -2:Ȏ d%!8 �
F+� 2:�showmenu(mainmenu%,!d%-64,96+2*44)
PJ� 4:!d%=topdirs%:ș "Wimp_GetWindowState",,d%:ș "Wimp_OpenWindow",,d%
Z�
d"� topdirs%:�topdirs_click2(d%)
n�
x�
�:
���topdirs_click2(d%)
�Ȏ d%!16 �
�� 9:
�>� 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%
6n%=�str$
@&ȕ �str$,n%,1)<>"." � n%>0:n%-=1:�
J� n%=0 n%=-1
T=n%
^:
h��drag_end
rpoll_mask%=&31
|� dragnum%=1 �
�ș "OS_Byte",121,&80 � ,a%
�� a% �up_dir(sourcestr$)
�$sourcetop%=sourcestr$
��make_writable(topdirs%,1)
��
�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%)
0�
::
D��make_writable(w%,i%)
Nc%=�stack(24)
XGc%!0=w%:c%!4=i%:c%!8=&F<<12:c%!12=&F<<12:ș "Wimp_SetIconState",,c%
b�unstack(c%)
l�
v:
���keypress(d%)
�
� key%
�key%=d%!24
�
Ȏ key% �
�� 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 37 0d  00 1e 1e f4 20 48 61 72  |ox 1997..... 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 30 30 20  28 31 31 2d 4d 61 72 2d  |$="1.00 (11-Mar-|
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 48  |(item$)-ul%)...H|
00000e50  e7 20 a7 74 61 69 6c 24  2c 22 57 22 29 20 21 6d  |. .tail$,"W") !m|
00000e60  65 6e 73 70 63 25 3d 21  6d 65 6e 73 70 63 25 20  |enspc%=!menspc% |
00000e70  84 20 34 3a 77 72 69 74  65 61 62 6c 65 25 3d b9  |. 4:writeable%=.|
00000e80  3a f3 20 62 75 66 66 65  72 25 3a f3 20 62 75 66  |:. buffer%:. buf|
00000e90  6c 65 6e 25 0d 05 d2 17  69 74 65 6d 24 3d c0 69  |len%....item$=.i|
00000ea0  74 65 6d 24 2c 75 6c 25  2d 31 29 0d 05 dc 05 cd  |tem$,ul%-1).....|
00000eb0  0d 05 e6 21 e7 20 a9 69  74 65 6d 24 3e 77 69 64  |...!. .item$>wid|
00000ec0  74 68 25 20 77 69 64 74  68 25 3d a9 69 74 65 6d  |th% width%=.item|
00000ed0  24 0d 05 f0 10 6d 65 6e  73 70 63 25 21 34 3d 2d  |$....menspc%!4=-|
00000ee0  31 0d 05 fa 12 e7 20 77  72 69 74 65 61 62 6c 65  |1..... writeable|
00000ef0  25 20 8c 0d 06 04 5a 6d  65 6e 73 70 63 25 21 38  |% ....Zmenspc%!8|
00000f00  3d 26 30 37 30 30 46 31  32 31 3a 6d 65 6e 73 70  |=&0700F121:mensp|
00000f10  63 25 21 31 32 3d 62 75  66 66 65 72 25 3a 6d 65  |c%!12=buffer%:me|
00000f20  6e 73 70 63 25 21 31 36  3d 2d 31 3a 6d 65 6e 73  |nspc%!16=-1:mens|
00000f30  70 63 25 21 32 30 3d 62  75 66 6c 65 6e 25 3a 24  |pc%!20=buflen%:$|
00000f40  62 75 66 66 65 72 25 3d  69 74 65 6d 24 0d 06 0e  |buffer%=item$...|
00000f50  05 cc 0d 06 18 11 e7 20  a9 69 74 65 6d 24 3c 31  |....... .item$<1|
00000f60  32 20 8c 0d 06 22 2b 6d  65 6e 73 70 63 25 21 38  |2 ..."+menspc%!8|
00000f70  3d 26 30 37 30 30 30 30  32 31 3a 24 28 6d 65 6e  |=&07000021:$(men|
00000f80  73 70 63 25 2b 31 32 29  3d 69 74 65 6d 24 0d 06  |spc%+12)=item$..|
00000f90  2c 05 cc 0d 06 36 55 6d  65 6e 73 70 63 25 21 38  |,....6Umenspc%!8|
00000fa0  3d 26 30 37 30 30 30 31  32 31 3a 6d 65 6e 73 70  |=&07000121:mensp|
00000fb0  63 25 21 31 32 3d a4 69  6e 64 69 72 65 63 74 28  |c%!12=.indirect(|
00000fc0  69 74 65 6d 24 29 3a 6d  65 6e 73 70 63 25 21 31  |item$):menspc%!1|
00000fd0  36 3d 2d 31 3a 6d 65 6e  73 70 63 25 21 32 30 3d  |6=-1:menspc%!20=|
00000fe0  a9 69 74 65 6d 24 2b 31  0d 06 40 05 cd 0d 06 4a  |.item$+1..@....J|
00000ff0  05 cd 0d 06 54 0f 6d 65  6e 73 70 63 25 2b 3d 32  |....T.menspc%+=2|
00001000  34 0d 06 5e 05 cd 0d 06  68 0f fd 20 69 74 65 6d  |4..^....h.. item|
00001010  24 3d 22 2a 22 0d 06 72  1a 73 74 61 72 74 25 21  |$="*"..r.start%!|
00001020  31 36 3d 77 69 64 74 68  25 2a 31 36 2b 33 32 0d  |16=width%*16+32.|
00001030  06 7c 25 21 28 6d 65 6e  73 70 63 25 2d 32 34 29  |.|%!(menspc%-24)|
00001040  3d 21 28 6d 65 6e 73 70  63 25 2d 32 34 29 20 84  |=!(menspc%-24) .|
00001050  20 26 38 30 0d 06 86 11  6d 70 74 72 25 3d 6d 65  | &80....mptr%=me|
00001060  6e 73 70 63 25 0d 06 90  0b 3d 73 74 61 72 74 25  |nspc%....=start%|
00001070  0d 06 9a 05 3a 0d 06 a4  1e dd f2 61 74 74 61 63  |....:......attac|
00001080  68 28 6d 65 6e 75 25 2c  69 74 65 6d 25 2c 73 75  |h(menu%,item%,su|
00001090  62 25 29 0d 06 ae 1f 21  28 6d 65 6e 75 25 2b 32  |b%)....!(menu%+2|
000010a0  38 2b 69 74 65 6d 25 2a  32 34 2b 34 29 3d 73 75  |8+item%*24+4)=su|
000010b0  62 25 0d 06 b8 05 e1 0d  06 c2 05 3a 0d 06 cc 1b  |b%.........:....|
000010c0  dd f2 73 68 6f 77 6d 65  6e 75 28 6d 65 6e 75 25  |..showmenu(menu%|
000010d0  2c 78 25 2c 79 25 29 0d  06 d6 24 74 6f 70 6d 65  |,x%,y%)...$topme|
000010e0  6e 75 25 3d 6d 65 6e 75  25 3a 74 6f 70 78 25 3d  |nu%=menu%:topx%=|
000010f0  78 25 3a 74 6f 70 79 25  3d 79 25 0d 06 e0 25 c8  |x%:topy%=y%...%.|
00001100  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00001110  6e 75 22 2c 2c 6d 65 6e  75 25 2c 78 25 2c 79 25  |nu",,menu%,x%,y%|
00001120  0d 06 ea 05 e1 0d 06 f4  05 3a 0d 06 fe 13 dd f2  |.........:......|
00001130  6d 65 6e 75 63 6c 69 63  6b 28 62 25 29 0d 07 08  |menuclick(b%)...|
00001140  08 ea 20 63 25 0d 07 12  11 63 25 3d a4 73 74 61  |.. c%....c%=.sta|
00001150  63 6b 28 33 36 29 0d 07  1c 20 c8 99 20 22 57 69  |ck(36)... .. "Wi|
00001160  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00001170  6f 22 2c 2c 63 25 0d 07  26 13 61 64 6a 25 3d 28  |o",,c%..&.adj%=(|
00001180  63 25 21 38 20 80 20 31  29 0d 07 30 28 c8 99 20  |c%!8 . 1)..0(.. |
00001190  22 57 69 6d 70 5f 44 65  63 6f 64 65 4d 65 6e 75  |"Wimp_DecodeMenu|
000011a0  22 2c 2c 74 6f 70 6d 65  6e 75 25 2c 62 25 2c 63  |",,topmenu%,b%,c|
000011b0  25 0d 07 3a 0c c8 8e 20  24 63 25 20 ca 0d 07 44  |%..:... $c% ...D|
000011c0  14 c9 20 22 51 75 69 74  22 3a 71 75 69 74 25 3d  |.. "Quit":quit%=|
000011d0  b9 0d 07 4e 05 cb 0d 07  58 2a e7 20 61 64 6a 25  |...N....X*. adj%|
000011e0  20 f2 73 68 6f 77 6d 65  6e 75 28 74 6f 70 6d 65  | .showmenu(topme|
000011f0  6e 75 25 2c 74 6f 70 78  25 2c 74 6f 70 79 25 29  |nu%,topx%,topy%)|
00001200  0d 07 62 10 f2 75 6e 73  74 61 63 6b 28 63 25 29  |..b..unstack(c%)|
00001210  0d 07 6c 05 e1 0d 07 76  05 3a 0d 07 80 0f dd f2  |..l....v.:......|
00001220  6d 61 69 6e 5f 6d 65 6e  75 0d 07 8a 08 f7 20 2b  |main_menu..... +|
00001230  31 0d 07 94 22 dc 20 42  61 63 6b 75 70 2c 49 6e  |1...". Backup,In|
00001240  66 6f 2c 42 61 63 6b 75  70 64 69 72 2c 51 75 69  |fo,Backupdir,Qui|
00001250  74 2c 2a 0d 07 9e 18 6d  61 69 6e 6d 65 6e 75 25  |t,*....mainmenu%|
00001260  3d a4 6d 61 6b 65 5f 6d  65 6e 75 0d 07 a8 05 e1  |=.make_menu.....|
00001270  0d 07 b2 05 3a 0d 07 bc  0d dd f2 62 75 5f 6d 65  |....:......bu_me|
00001280  6e 75 0d 07 c6 08 f7 20  2b 31 0d 07 d0 2c dc 20  |nu..... +1...,. |
00001290  42 61 63 6b 75 70 64 69  72 2c 2b 2b 42 61 63 6b  |Backupdir,++Back|
000012a0  75 70 2b 2b 5f 57 2c 62  61 63 6b 75 70 64 69 72  |up++_W,backupdir|
000012b0  25 2c 31 31 2c 2a 0d 07  da 17 62 75 5f 6d 65 6e  |%,11,*....bu_men|
000012c0  75 25 3d a4 6d 61 6b 65  5f 6d 65 6e 75 0d 07 e4  |u%=.make_menu...|
000012d0  05 e1 0d 07 ee 05 3a 0d  07 f8 0e dd f2 74 65 72  |......:......ter|
000012e0  6d 28 61 25 29 0d 08 02  08 ea 20 6e 25 0d 08 0c  |m(a%)..... n%...|
000012f0  0f c8 95 20 61 25 3f 6e  25 3e 33 31 0d 08 16 09  |... a%?n%>31....|
00001300  6e 25 2b 3d 31 0d 08 20  05 ce 0d 08 2a 0c 61 25  |n%+=1.. ....*.a%|
00001310  3f 6e 25 3d 31 33 0d 08  34 05 e1 0d 08 3e 05 3a  |?n%=13..4....>.:|
00001320  0d 08 48 1f dd a4 69 63  6f 6e 5f 73 74 61 74 65  |..H...icon_state|
00001330  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
00001340  08 52 0b ea 20 61 25 2c  63 25 0d 08 5c 11 63 25  |.R.. a%,c%..\.c%|
00001350  3d a4 73 74 61 63 6b 28  33 36 29 0d 08 66 0f 21  |=.stack(36)..f.!|
00001360  63 25 3d 77 69 6e 64 6f  77 25 0d 08 70 0e 63 25  |c%=window%..p.c%|
00001370  21 34 3d 69 63 6f 6e 25  0d 08 7a 1e c8 99 20 22  |!4=icon%..z... "|
00001380  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00001390  65 22 2c 2c 63 25 0d 08  84 1d 61 25 3d 28 28 63  |e",,c%....a%=((c|
000013a0  25 21 32 34 29 20 80 20  28 31 3c 3c 32 31 29 29  |%!24) . (1<<21))|
000013b0  3c 3e 30 0d 08 8e 10 f2  75 6e 73 74 61 63 6b 28  |<>0.....unstack(|
000013c0  63 25 29 0d 08 98 07 3d  61 25 0d 08 a2 05 3a 0d  |c%)....=a%....:.|
000013d0  08 ac 12 dd a4 69 6e 64  69 72 65 63 74 28 61 24  |.....indirect(a$|
000013e0  29 0d 08 b6 08 ea 20 65  25 0d 08 c0 16 65 25 3d  |)..... e%....e%=|
000013f0  a4 65 78 74 5f 62 75 66  28 a9 61 24 2b 31 29 0d  |.ext_buf(.a$+1).|
00001400  08 ca 25 e7 20 65 25 3d  a3 20 85 20 31 3c 3c 33  |..%. e%=. . 1<<3|
00001410  31 2c 22 4f 75 74 20 6f  66 20 77 6f 72 6b 73 70  |1,"Out of worksp|
00001420  61 63 65 22 0d 08 d4 0a  24 65 25 3d 61 24 0d 08  |ace"....$e%=a$..|
00001430  de 33 6d 65 6d 5f 70 72  6f 74 65 63 74 25 3d 65  |.3mem_protect%=e|
00001440  25 2b a9 61 24 2b 31 3a  f2 77 6f 72 64 5f 61 6c  |%+.a$+1:.word_al|
00001450  69 67 6e 28 6d 65 6d 5f  70 72 6f 74 65 63 74 25  |ign(mem_protect%|
00001460  29 0d 08 e8 07 3d 65 25  0d 08 f2 05 3a 0d 08 fc  |)....=e%....:...|
00001470  16 dd f2 77 6f 72 64 5f  61 6c 69 67 6e 28 f8 20  |...word_align(. |
00001480  61 25 29 0d 09 06 1e e7  20 61 25 20 83 20 34 3c  |a%)..... a% . 4<|
00001490  3e 30 20 61 25 2b 3d 34  2d 28 61 25 20 83 20 34  |>0 a%+=4-(a% . 4|
000014a0  29 0d 09 10 05 e1 0d 09  1a 05 3a 0d 09 24 12 dd  |).........:..$..|
000014b0  a4 73 74 61 63 6b 28 73  69 7a 65 25 29 0d 09 2e  |.stack(size%)...|
000014c0  39 e7 20 73 74 61 63 6b  70 74 72 25 2b 73 69 7a  |9. stackptr%+siz|
000014d0  65 25 3e 73 74 61 63 6b  65 6e 64 25 20 20 31 3c  |e%>stackend%  1<|
000014e0  3c 33 31 2c 22 4e 6f 20  72 6f 6f 6d 20 69 6e 20  |<31,"No room in |
000014f0  73 74 61 63 6b 22 0d 09  38 14 73 74 61 63 6b 70  |stack"..8.stackp|
00001500  74 72 25 2b 3d 73 69 7a  65 25 0d 09 42 14 3d 73  |tr%+=size%..B.=s|
00001510  74 61 63 6b 70 74 72 25  2d 73 69 7a 65 25 0d 09  |tackptr%-size%..|
00001520  4c 05 3a 0d 09 56 17 dd  f2 75 6e 73 74 61 63 6b  |L.:..V...unstack|
00001530  28 6f 6c 64 5f 70 74 72  25 29 0d 09 60 16 73 74  |(old_ptr%)..`.st|
00001540  61 63 6b 70 74 72 25 3d  6f 6c 64 5f 70 74 72 25  |ackptr%=old_ptr%|
00001550  0d 09 6a 27 e7 20 73 74  61 63 6b 70 74 72 25 3c  |..j'. stackptr%<|
00001560  73 74 61 63 6b 25 20 73  74 61 63 6b 70 74 72 25  |stack% stackptr%|
00001570  3d 73 74 61 63 6b 25 0d  09 74 05 e1 0d 09 7e 05  |=stack%..t....~.|
00001580  3a 0d 09 88 20 dd f2 72  65 64 72 61 77 5f 69 63  |:... ..redraw_ic|
00001590  6f 6e 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |on(window%,icon%|
000015a0  29 0d 09 92 08 ea 20 63  25 0d 09 9c 11 63 25 3d  |)..... c%....c%=|
000015b0  a4 73 74 61 63 6b 28 31  36 29 0d 09 a6 2a 63 25  |.stack(16)...*c%|
000015c0  21 30 3d 77 69 6e 64 6f  77 25 3a 63 25 21 34 3d  |!0=window%:c%!4=|
000015d0  69 63 6f 6e 25 3a 63 25  21 38 3d 30 3a 63 25 21  |icon%:c%!8=0:c%!|
000015e0  31 32 3d 30 0d 09 b0 1e  c8 99 20 22 57 69 6d 70  |12=0...... "Wimp|
000015f0  5f 53 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_SetIconState",,|
00001600  63 25 0d 09 ba 10 f2 75  6e 73 74 61 63 6b 28 63  |c%.....unstack(c|
00001610  25 29 0d 09 c4 05 e1 0d  09 ce 05 3a 0d 09 d8 12  |%).........:....|
00001620  dd a4 6c 65 61 66 6e 61  6d 65 28 61 24 29 0d 09  |..leafname(a$)..|
00001630  e2 19 3d c1 61 24 2c a4  6c 61 73 74 5f 64 6f 74  |..=.a$,.last_dot|
00001640  28 61 24 29 2b 31 29 0d  09 ec 05 3a 0d 09 f6 14  |(a$)+1)....:....|
00001650  dd a4 65 78 74 5f 62 75  66 28 73 69 7a 65 25 29  |..ext_buf(size%)|
00001660  0d 0a 00 1d ea 20 73 6c  6f 74 5f 73 69 7a 65 25  |..... slot_size%|
00001670  2c 6e 25 2c 6e 65 77 5f  73 6c 6f 74 25 0d 0a 0a  |,n%,new_slot%...|
00001680  30 f2 77 6f 72 64 5f 61  6c 69 67 6e 28 65 78 74  |0.word_align(ext|
00001690  5f 6d 65 6d 5f 70 74 72  25 29 3a f2 77 6f 72 64  |_mem_ptr%):.word|
000016a0  5f 61 6c 69 67 6e 28 73  69 7a 65 25 29 0d 0a 14  |_align(size%)...|
000016b0  35 c8 99 20 22 57 69 6d  70 5f 53 6c 6f 74 53 69  |5.. "Wimp_SlotSi|
000016c0  7a 65 22 2c 2d 31 2c 2d  31 20 b8 20 73 6c 6f 74  |ze",-1,-1 . slot|
000016d0  5f 73 69 7a 65 25 2c 6e  65 78 74 25 2c 66 72 65  |_size%,next%,fre|
000016e0  65 25 0d 0a 1e 30 e7 20  73 69 7a 65 25 3c 73 6c  |e%...0. size%<sl|
000016f0  6f 74 5f 73 69 7a 65 25  2b 73 6c 6f 74 5f 62 61  |ot_size%+slot_ba|
00001700  73 65 25 2d 65 78 74 5f  6d 65 6d 5f 70 74 72 25  |se%-ext_mem_ptr%|
00001710  20 8c 0d 0a 28 27 6e 25  3d 65 78 74 5f 6d 65 6d  | ...('n%=ext_mem|
00001720  5f 70 74 72 25 3a 65 78  74 5f 6d 65 6d 5f 70 74  |_ptr%:ext_mem_pt|
00001730  72 25 2b 3d 73 69 7a 65  25 0d 0a 32 05 cc 0d 0a  |r%+=size%..2....|
00001740  3c 3f e7 20 73 69 7a 65  25 2d 28 73 6c 6f 74 5f  |<?. size%-(slot_|
00001750  73 69 7a 65 25 2b 73 6c  6f 74 5f 62 61 73 65 25  |size%+slot_base%|
00001760  2d 65 78 74 5f 6d 65 6d  5f 70 74 72 25 29 3e 3d  |-ext_mem_ptr%)>=|
00001770  6e 65 78 74 25 2b 66 72  65 65 25 20 8c 0d 0a 46  |next%+free% ...F|
00001780  08 6e 25 3d a3 0d 0a 50  05 cc 0d 0a 5a 43 c8 99  |.n%=...P....ZC..|
00001790  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
000017a0  2c 73 69 7a 65 25 2b 65  78 74 5f 6d 65 6d 5f 70  |,size%+ext_mem_p|
000017b0  74 72 25 2d 73 6c 6f 74  5f 62 61 73 65 25 2c 2d  |tr%-slot_base%,-|
000017c0  31 20 b8 20 6e 65 77 5f  73 6c 6f 74 25 0d 0a 64  |1 . new_slot%..d|
000017d0  5b e7 20 73 6c 6f 74 5f  62 61 73 65 25 2b 6e 65  |[. slot_base%+ne|
000017e0  77 5f 73 6c 6f 74 25 3e  3d 65 78 74 5f 6d 65 6d  |w_slot%>=ext_mem|
000017f0  5f 70 74 72 25 2b 73 69  7a 65 25 20 8c 20 6e 25  |_ptr%+size% . n%|
00001800  3d 65 78 74 5f 6d 65 6d  5f 70 74 72 25 3a 65 78  |=ext_mem_ptr%:ex|
00001810  74 5f 6d 65 6d 5f 70 74  72 25 2b 3d 73 69 7a 65  |t_mem_ptr%+=size|
00001820  25 20 8b 20 6e 25 3d a3  0d 0a 6e 05 cd 0d 0a 78  |% . n%=...n....x|
00001830  05 cd 0d 0a 82 07 3d 6e  25 0d 0a 8c 05 3a 0d 0a  |......=n%....:..|
00001840  96 0f dd f2 69 6e 69 74  5f 73 6c 6f 74 0d 0a a0  |....init_slot...|
00001850  08 ea 20 6e 25 0d 0a aa  21 c8 99 20 22 57 69 6d  |.. n%...!.. "Wim|
00001860  70 5f 53 6c 6f 74 53 69  7a 65 22 2c 2d 31 2c 2d  |p_SlotSize",-1,-|
00001870  31 20 b8 20 6e 25 0d 0a  b4 13 73 6c 6f 74 5f 62  |1 . n%....slot_b|
00001880  61 73 65 25 3d 93 2d 6e  25 0d 0a be 05 e1 0d 0a  |ase%=.-n%.......|
00001890  c8 05 3a 0d 0a d2 11 dd  f2 72 65 6c 5f 62 75 66  |..:......rel_buf|
000018a0  28 6e 25 29 0d 0a dc 13  65 78 74 5f 6d 65 6d 5f  |(n%)....ext_mem_|
000018b0  70 74 72 25 3d 6e 25 0d  0a e6 27 c8 99 20 22 57  |ptr%=n%...'.. "W|
000018c0  69 6d 70 5f 53 6c 6f 74  53 69 7a 65 22 2c 6e 25  |imp_SlotSize",n%|
000018d0  2d 73 6c 6f 74 5f 62 61  73 65 25 2c 2d 31 0d 0a  |-slot_base%,-1..|
000018e0  f0 05 e1 0d 0a fa 05 3a  0d 0b 04 0e dd f2 6c 6f  |.......:......lo|
000018f0  61 64 28 64 25 29 0d 0b  0e 14 ea 20 61 25 2c 63  |ad(d%)..... a%,c|
00001900  25 2c 66 69 6c 65 72 74  68 25 0d 0b 18 11 63 25  |%,filerth%....c%|
00001910  3d a4 73 74 61 63 6b 28  32 30 29 0d 0b 22 10 f2  |=.stack(20).."..|
00001920  74 65 72 6d 28 64 25 2b  34 34 29 0d 0b 2c 11 66  |term(d%+44)..,.f|
00001930  69 6c 65 72 74 68 25 3d  64 25 21 34 0d 0b 36 20  |ilerth%=d%!4..6 |
00001940  c8 99 20 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |.. "Wimp_GetPoin|
00001950  74 65 72 49 6e 66 6f 22  2c 2c 63 25 0d 0b 40 16  |terInfo",,c%..@.|
00001960  e7 20 63 25 21 31 32 3d  74 6f 70 64 69 72 73 25  |. c%!12=topdirs%|
00001970  20 8c 0d 0b 4a 0e c8 8e  20 63 25 21 31 36 20 ca  | ...J... c%!16 .|
00001980  0d 0b 54 0e c9 20 30 2c  31 2c 32 2c 33 3a 0d 0b  |..T.. 0,1,2,3:..|
00001990  5e 12 e7 20 64 72 61 67  6e 75 6d 25 3d 30 20 8c  |^.. dragnum%=0 .|
000019a0  0d 0b 68 17 73 6f 75 72  63 65 73 74 72 24 3d 24  |..h.sourcestr$=$|
000019b0  28 64 25 2b 34 34 29 0d  0b 72 05 cc 0d 0b 7c 27  |(d%+44)..r....|'|
000019c0  73 6f 75 72 63 65 73 74  72 24 2b 3d 22 5c 22 2b  |sourcestr$+="\"+|
000019d0  a4 6c 65 61 66 6e 61 6d  65 28 24 28 64 25 2b 34  |.leafname($(d%+4|
000019e0  34 29 29 0d 0b 86 05 cd  0d 0b 90 0f 64 72 61 67  |4)).........drag|
000019f0  6e 75 6d 25 2b 3d 31 0d  0b 9a 12 70 6f 6c 6c 5f  |num%+=1....poll_|
00001a00  6d 61 73 6b 25 3d 26 33  30 0d 0b a4 0e c9 20 34  |mask%=&30..... 4|
00001a10  2c 35 2c 36 2c 37 3a 0d  0b ae 16 24 64 65 73 74  |,5,6,7:....$dest|
00001a20  74 6f 70 25 3d 24 28 64  25 2b 34 34 29 0d 0b b8  |top%=$(d%+44)...|
00001a30  5d e7 20 a7 73 6f 75 72  63 65 73 74 72 24 2c 22  |]. .sourcestr$,"|
00001a40  5c 22 29 3d 30 20 f2 63  6f 70 79 5f 70 61 74 68  |\")=0 .copy_path|
00001a50  28 24 73 6f 75 72 63 65  74 6f 70 25 2c 24 64 65  |($sourcetop%,$de|
00001a60  73 74 74 6f 70 25 29 20  8b 20 f2 63 6f 70 79 5f  |sttop%) . .copy_|
00001a70  70 61 74 68 28 73 6f 75  72 63 65 73 74 72 24 2c  |path(sourcestr$,|
00001a80  24 64 65 73 74 74 6f 70  25 29 0d 0b c2 1c f2 72  |$desttop%).....r|
00001a90  65 64 72 61 77 5f 69 63  6f 6e 28 74 6f 70 64 69  |edraw_icon(topdi|
00001aa0  72 73 25 2c 35 29 0d 0b  cc 05 cb 0d 0b d6 05 cb  |rs%,5)..........|
00001ab0  0d 0b e0 3b 64 25 21 31  32 3d 64 25 21 38 3a 64  |...;d%!12=d%!8:d|
00001ac0  25 21 31 36 3d 34 3a c8  99 20 22 57 69 6d 70 5f  |%!16=4:.. "Wimp_|
00001ad0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00001ae0  64 25 2c 66 69 6c 65 72  74 68 25 0d 0b ea 10 f2  |d%,filerth%.....|
00001af0  75 6e 73 74 61 63 6b 28  63 25 29 0d 0b f4 05 e1  |unstack(c%).....|
00001b00  0d 0b fe 05 3a 0d 0c 08  14 dd f2 74 72 75 6e 63  |....:......trunc|
00001b10  61 74 65 28 f8 20 61 24  29 0d 0c 12 14 61 24 3d  |ate(. a$)....a$=|
00001b20  c0 61 24 2c a7 61 24 2c  22 24 22 29 29 0d 0c 1c  |.a$,.a$,"$"))...|
00001b30  05 e1 0d 0c 26 05 3a 0d  0c 30 17 dd f2 74 6f 70  |....&.:..0...top|
00001b40  64 69 72 73 5f 63 6c 69  63 6b 28 64 25 29 0d 0c  |dirs_click(d%)..|
00001b50  3a 0e c8 8e 20 64 25 21  31 36 20 ca 0d 0c 44 4f  |:... d%!16 ...DO|
00001b60  c9 20 32 3a f2 74 72 75  6e 63 61 74 65 28 73 6f  |. 2:.truncate(so|
00001b70  75 72 63 65 73 74 72 24  29 3a 24 73 6f 75 72 63  |urcestr$):$sourc|
00001b80  65 74 6f 70 25 3d 73 6f  75 72 63 65 73 74 72 24  |etop%=sourcestr$|
00001b90  3a f2 6d 61 6b 65 5f 77  72 69 74 61 62 6c 65 28  |:.make_writable(|
00001ba0  74 6f 70 64 69 72 73 25  2c 31 29 0d 0c 4e 35 c9  |topdirs%,1)..N5.|
00001bb0  20 36 3a f2 74 72 75 6e  63 61 74 65 28 24 64 65  | 6:.truncate($de|
00001bc0  73 74 74 6f 70 25 29 3a  f2 72 65 64 72 61 77 5f  |sttop%):.redraw_|
00001bd0  69 63 6f 6e 28 74 6f 70  64 69 72 73 25 2c 35 29  |icon(topdirs%,5)|
00001be0  0d 0c 58 2e c9 20 38 3a  21 64 25 3d 74 6f 70 64  |..X.. 8:!d%=topd|
00001bf0  69 72 73 25 3a c8 99 20  22 57 69 6d 70 5f 43 6c  |irs%:.. "Wimp_Cl|
00001c00  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 64 25 0d 0c  |oseWindow",,d%..|
00001c10  62 14 c9 20 39 3a f2 65  78 65 63 75 74 65 28 64  |b.. 9:.execute(d|
00001c20  25 29 0d 0c 6c 05 cb 0d  0c 76 05 e1 0d 0c 80 05  |%)..l....v......|
00001c30  3a 0d 0c 8a 11 dd f2 65  78 65 63 75 74 65 28 64  |:......execute(d|
00001c40  25 29 0d 0c 94 23 ea 20  74 79 70 65 25 2c 66 6c  |%)...#. type%,fl|
00001c50  61 67 73 25 2c 62 61 63  6b 75 70 64 69 72 24 2c  |ags%,backupdir$,|
00001c60  6d 6f 72 65 25 0d 0c 9e  1f 6d 6f 72 65 25 3d 28  |more%....more%=(|
00001c70  a7 73 6f 75 72 63 65 73  74 72 24 2c 22 5c 22 29  |.sourcestr$,"\")|
00001c80  3c 3e 30 29 0d 0c a8 74  e7 20 6d 6f 72 65 25 20  |<>0)...t. more% |
00001c90  74 6f 70 5f 73 6f 75 72  63 65 5f 64 69 72 24 3d  |top_source_dir$=|
00001ca0  c0 73 6f 75 72 63 65 73  74 72 24 2c a4 6c 61 73  |.sourcestr$,.las|
00001cb0  74 5f 64 6f 74 28 73 6f  75 72 63 65 73 74 72 24  |t_dot(sourcestr$|
00001cc0  29 2d 31 29 20 8b 20 73  6f 75 72 63 65 73 74 72  |)-1) . sourcestr|
00001cd0  24 3d 24 73 6f 75 72 63  65 74 6f 70 25 3a 74 6f  |$=$sourcetop%:to|
00001ce0  70 5f 73 6f 75 72 63 65  5f 64 69 72 24 3d 73 6f  |p_source_dir$=so|
00001cf0  75 72 63 65 73 74 72 24  0d 0c b2 47 e7 20 74 6f  |urcestr$...G. to|
00001d00  70 5f 73 6f 75 72 63 65  5f 64 69 72 24 3d 22 22  |p_source_dir$=""|
00001d10  20 85 20 28 31 3c 3c 33  30 29 2b 26 35 30 33 2c  | . (1<<30)+&503,|
00001d20  22 4e 6f 20 73 6f 75 72  63 65 20 64 69 72 65 63  |"No source direc|
00001d30  74 6f 72 79 20 73 70 65  63 69 66 69 65 64 22 0d  |tory specified".|
00001d40  0c bc 46 e7 20 24 64 65  73 74 74 6f 70 25 3d 22  |..F. $desttop%="|
00001d50  22 20 85 20 28 31 3c 3c  33 30 29 2b 26 35 30 33  |" . (1<<30)+&503|
00001d60  2c 22 4e 6f 20 64 65 73  74 69 6e 61 74 69 6f 6e  |,"No destination|
00001d70  20 64 69 72 65 63 74 6f  72 79 20 73 70 65 63 69  | directory speci|
00001d80  66 69 65 64 22 0d 0c c6  5c e7 20 74 6f 70 5f 73  |fied"...\. top_s|
00001d90  6f 75 72 63 65 5f 64 69  72 24 3d 24 64 65 73 74  |ource_dir$=$dest|
00001da0  74 6f 70 25 20 85 20 28  31 3c 3c 33 30 29 2b 26  |top% . (1<<30)+&|
00001db0  35 30 33 2c 22 53 6f 75  72 63 65 20 61 6e 64 20  |503,"Source and |
00001dc0  64 65 73 74 69 6e 61 74  69 6f 6e 20 64 69 72 65  |destination dire|
00001dd0  63 74 6f 72 69 65 73 20  74 68 65 20 73 61 6d 65  |ctories the same|
00001de0  22 0d 0c d0 1a 62 61 63  6b 75 70 64 69 72 24 3d  |"....backupdir$=|
00001df0  24 62 61 63 6b 75 70 64  69 72 25 0d 0c da 3c c8  |$backupdir%...<.|
00001e00  99 20 22 58 4f 53 5f 46  69 6c 65 22 2c 31 37 2c  |. "XOS_File",17,|
00001e10  24 64 65 73 74 74 6f 70  25 2b 22 2e 22 2b 62 61  |$desttop%+"."+ba|
00001e20  63 6b 75 70 64 69 72 24  20 b8 20 74 79 70 65 25  |ckupdir$ . type%|
00001e30  3b 66 6c 61 67 73 25 0d  0c e4 45 e7 20 28 66 6c  |;flags%...E. (fl|
00001e40  61 67 73 25 20 80 20 31  29 3c 3e 30 20 21 74 79  |ags% . 1)<>0 !ty|
00001e50  70 65 25 3d 28 31 3c 3c  33 30 29 2b 26 35 30 33  |pe%=(1<<30)+&503|
00001e60  3a c8 99 20 22 4f 53 5f  47 65 6e 65 72 61 74 65  |:.. "OS_Generate|
00001e70  45 72 72 6f 72 22 2c 74  79 70 65 25 0d 0c ee 87  |Error",type%....|
00001e80  e7 20 74 79 70 65 25 3c  3e 30 20 85 20 28 31 3c  |. type%<>0 . (1<|
00001e90  3c 33 30 29 2b 26 35 30  33 2c 22 41 6e 20 6f 62  |<30)+&503,"An ob|
00001ea0  6a 65 63 74 20 63 61 6c  6c 65 64 20 22 2b 62 61  |ject called "+ba|
00001eb0  63 6b 75 70 64 69 72 24  2b 22 20 61 6c 72 65 61  |ckupdir$+" alrea|
00001ec0  64 79 20 65 78 69 73 74  73 20 69 6e 20 74 68 65  |dy exists in the|
00001ed0  20 62 61 63 6b 75 70 20  74 6f 70 20 64 69 72 65  | backup top dire|
00001ee0  63 74 6f 72 79 20 2d 20  64 65 6c 65 74 65 20 69  |ctory - delete i|
00001ef0  74 20 62 65 66 6f 72 65  20 70 72 6f 63 65 64 69  |t before procedi|
00001f00  6e 67 22 0d 0c f8 33 c8  99 20 22 58 4f 53 5f 46  |ng"...3.. "XOS_F|
00001f10  69 6c 65 22 2c 31 37 2c  74 6f 70 5f 73 6f 75 72  |ile",17,top_sour|
00001f20  63 65 5f 64 69 72 24 20  b8 20 74 79 70 65 25 3b  |ce_dir$ . type%;|
00001f30  66 6c 61 67 73 25 0d 0d  02 45 e7 20 28 66 6c 61  |flags%...E. (fla|
00001f40  67 73 25 20 80 20 31 29  3c 3e 30 20 21 74 79 70  |gs% . 1)<>0 !typ|
00001f50  65 25 3d 28 31 3c 3c 33  30 29 2b 26 35 30 33 3a  |e%=(1<<30)+&503:|
00001f60  c8 99 20 22 4f 53 5f 47  65 6e 65 72 61 74 65 45  |.. "OS_GenerateE|
00001f70  72 72 6f 72 22 2c 74 79  70 65 25 0d 0d 0c 42 e7  |rror",type%...B.|
00001f80  20 74 79 70 65 25 3d 30  20 85 20 28 31 3c 3c 33  | type%=0 . (1<<3|
00001f90  30 29 2b 26 35 30 33 2c  74 6f 70 5f 73 6f 75 72  |0)+&503,top_sour|
00001fa0  63 65 5f 64 69 72 24 2b  22 20 63 6f 75 6c 64 20  |ce_dir$+" could |
00001fb0  6e 6f 74 20 62 65 20 66  6f 75 6e 64 22 0d 0d 16  |not be found"...|
00001fc0  4e e7 20 74 79 70 65 25  3c 3e 32 20 80 20 74 79  |N. type%<>2 . ty|
00001fd0  70 65 25 3c 3e 33 20 85  20 28 31 3c 3c 33 30 29  |pe%<>3 . (1<<30)|
00001fe0  2b 26 35 30 33 2c 74 6f  70 5f 73 6f 75 72 63 65  |+&503,top_source|
00001ff0  5f 64 69 72 24 2b 22 20  69 73 20 6e 6f 74 20 61  |_dir$+" is not a|
00002000  20 64 69 72 65 63 74 6f  72 79 22 0d 0d 20 41 f2  | directory".. A.|
00002010  6d 61 6b 65 5f 6e 6f 6e  5f 77 72 69 74 61 62 6c  |make_non_writabl|
00002020  65 28 74 6f 70 64 69 72  73 25 2c 31 29 3a f2 6d  |e(topdirs%,1):.m|
00002030  61 6b 65 5f 6e 6f 6e 5f  77 72 69 74 61 62 6c 65  |ake_non_writable|
00002040  28 74 6f 70 64 69 72 73  25 2c 35 29 0d 0d 2a 1b  |(topdirs%,5)..*.|
00002050  74 6f 70 5f 64 65 73 74  5f 64 69 72 24 3d 24 64  |top_dest_dir$=$d|
00002060  65 73 74 74 6f 70 25 0d  0d 34 32 24 61 63 74 69  |esttop%..42$acti|
00002070  6f 6e 5f 74 65 78 74 25  3d 22 50 61 75 73 65 22  |on_text%="Pause"|
00002080  3a f2 72 65 64 72 61 77  5f 69 63 6f 6e 28 74 6f  |:.redraw_icon(to|
00002090  70 64 69 72 73 25 2c 39  29 0d 0d 3e 05 f5 0d 0d  |pdirs%,9)..>....|
000020a0  48 a5 e7 20 6d 6f 72 65  25 20 66 69 72 73 74 5f  |H.. more% first_|
000020b0  73 6f 75 72 63 65 24 3d  c0 73 6f 75 72 63 65 73  |source$=.sources|
000020c0  74 72 24 2c a7 73 6f 75  72 63 65 73 74 72 24 2c  |tr$,.sourcestr$,|
000020d0  22 5c 22 29 2d 31 29 3a  66 69 72 73 74 5f 64 65  |"\")-1):first_de|
000020e0  73 74 24 3d 74 6f 70 5f  64 65 73 74 5f 64 69 72  |st$=top_dest_dir|
000020f0  24 2b 22 2e 22 2b a4 6c  65 61 66 6e 61 6d 65 28  |$+"."+.leafname(|
00002100  66 69 72 73 74 5f 73 6f  75 72 63 65 24 29 20 8b  |first_source$) .|
00002110  20 66 69 72 73 74 5f 73  6f 75 72 63 65 24 3d 73  | first_source$=s|
00002120  6f 75 72 63 65 73 74 72  24 3a 66 69 72 73 74 5f  |ourcestr$:first_|
00002130  64 65 73 74 24 3d 74 6f  70 5f 64 65 73 74 5f 64  |dest$=top_dest_d|
00002140  69 72 24 0d 0d 52 29 f2  64 69 72 65 63 74 6f 72  |ir$..R).director|
00002150  79 28 66 69 72 73 74 5f  73 6f 75 72 63 65 24 2c  |y(first_source$,|
00002160  66 69 72 73 74 5f 64 65  73 74 24 29 0d 0d 5c 1f  |first_dest$)..\.|
00002170  6d 6f 72 65 25 3d 28 a7  73 6f 75 72 63 65 73 74  |more%=(.sourcest|
00002180  72 24 2c 22 5c 22 29 3c  3e 30 29 0d 0d 66 59 e7  |r$,"\")<>0)..fY.|
00002190  20 6d 6f 72 65 25 20 73  6f 75 72 63 65 73 74 72  | more% sourcestr|
000021a0  24 3d c0 73 6f 75 72 63  65 73 74 72 24 2c a4 6c  |$=.sourcestr$,.l|
000021b0  61 73 74 5f 64 6f 74 28  73 6f 75 72 63 65 73 74  |ast_dot(sourcest|
000021c0  72 24 29 29 2b c1 73 6f  75 72 63 65 73 74 72 24  |r$))+.sourcestr$|
000021d0  2c a7 73 6f 75 72 63 65  73 74 72 24 2c 22 5c 22  |,.sourcestr$,"\"|
000021e0  29 2b 31 29 0d 0d 70 0d  fd 20 ac 20 6d 6f 72 65  |)+1)..p.. . more|
000021f0  25 0d 0d 7a 39 f2 6d 61  6b 65 5f 77 72 69 74 61  |%..z9.make_writa|
00002200  62 6c 65 28 74 6f 70 64  69 72 73 25 2c 31 29 3a  |ble(topdirs%,1):|
00002210  f2 6d 61 6b 65 5f 77 72  69 74 61 62 6c 65 28 74  |.make_writable(t|
00002220  6f 70 64 69 72 73 25 2c  35 29 0d 0d 84 19 24 61  |opdirs%,5)....$a|
00002230  63 74 69 6f 6e 5f 74 65  78 74 25 3d 22 53 74 61  |ction_text%="Sta|
00002240  72 74 22 0d 0d 8e 2a 21  64 25 3d 74 6f 70 64 69  |rt"...*!d%=topdi|
00002250  72 73 25 3a c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |rs%:.. "Wimp_Clo|
00002260  73 65 57 69 6e 64 6f 77  22 2c 2c 64 25 0d 0d 98  |seWindow",,d%...|
00002270  05 e1 0d 0d a2 05 3a 0d  0d ac 20 dd a4 63 6f 6d  |......:... ..com|
00002280  70 61 72 65 28 6e 61 6d  65 62 6c 6b 25 2c 69 25  |pare(nameblk%,i%|
00002290  2c 73 6e 75 6d 25 29 0d  0d b6 15 ea 20 66 6f 75  |,snum%)..... fou|
000022a0  6e 64 25 2c 6e 25 2c 6e  61 6d 65 24 0d 0d c0 26  |nd%,n%,name$...&|
000022b0  6e 61 6d 65 24 3d a4 66  6f 72 63 65 5f 75 70 70  |name$=.force_upp|
000022c0  65 72 28 24 28 6e 61 6d  65 62 6c 6b 25 2b 32 30  |er($(nameblk%+20|
000022d0  29 29 0d 0d ca 0c 66 6f  75 6e 64 25 3d a3 0d 0d  |))....found%=...|
000022e0  d4 0f e7 20 73 6e 75 6d  25 3e 30 20 8c 0d 0d de  |... snum%>0 ....|
000022f0  1a c8 95 20 6e 25 3c 73  6e 75 6d 25 20 80 20 66  |... n%<snum% . f|
00002300  6f 75 6e 64 25 3d a3 0d  0d e8 54 e7 20 6e 61 6d  |ound%=....T. nam|
00002310  65 24 3d a4 66 6f 72 63  65 5f 75 70 70 65 72 28  |e$=.force_upper(|
00002320  24 28 69 25 2b 32 30 29  29 20 66 6f 75 6e 64 25  |$(i%+20)) found%|
00002330  3d b9 20 8b 20 6e 25 2b  3d 31 3a 69 25 2b 3d a9  |=. . n%+=1:i%+=.|
00002340  24 28 69 25 2b 32 30 29  2b 32 31 3a f2 77 6f 72  |$(i%+20)+21:.wor|
00002350  64 5f 61 6c 69 67 6e 28  69 25 29 0d 0d f2 05 ce  |d_align(i%).....|
00002360  0d 0d fc 29 e7 20 28 6e  61 6d 65 62 6c 6b 25 21  |...). (nameblk%!|
00002370  31 36 3d 32 29 3c 3e 28  69 25 21 31 36 3d 32 29  |16=2)<>(i%!16=2)|
00002380  20 66 6f 75 6e 64 25 3d  a3 0d 0e 06 05 cd 0d 0e  | found%=........|
00002390  10 0b 3d 66 6f 75 6e 64  25 0d 0e 1a 05 3a 0d 0e  |..=found%....:..|
000023a0  24 15 dd a4 66 6f 72 63  65 5f 75 70 70 65 72 28  |$...force_upper(|
000023b0  61 24 29 0d 0e 2e 0e ea  20 6e 24 2c 69 25 2c 6a  |a$)..... n$,i%,j|
000023c0  25 0d 0e 38 11 e3 20 69  25 3d 31 20 b8 20 a9 20  |%..8.. i%=1 . . |
000023d0  61 24 0d 0e 42 13 6a 25  3d 97 28 c1 61 24 2c 69  |a$..B.j%=.(.a$,i|
000023e0  25 2c 31 29 29 0d 0e 4c  2e e7 20 6a 25 3e 39 36  |%,1))..L.. j%>96|
000023f0  20 80 20 6a 25 3c 31 32  33 20 6e 24 2b 3d bd 28  | . j%<123 n$+=.(|
00002400  6a 25 20 80 20 26 44 46  29 20 8b 20 6e 24 2b 3d  |j% . &DF) . n$+=|
00002410  bd 6a 25 0d 0e 56 05 ed  0d 0e 60 07 3d 6e 24 0d  |.j%..V....`.=n$.|
00002420  0e 6a 05 3a 0d 0e 74 25  dd f2 63 6f 70 79 28 73  |.j.:..t%..copy(s|
00002430  6f 75 72 63 65 24 2c 64  65 73 74 24 2c 6e 61 6d  |ource$,dest$,nam|
00002440  65 25 2c 73 6e 75 6d 25  29 0d 0e 7e 0b ea 20 69  |e%,snum%)..~.. i|
00002450  25 2c 6e 25 0d 0e 88 0f  e7 20 73 6e 75 6d 25 3e  |%,n%..... snum%>|
00002460  30 20 8c 0d 0e 92 5f c8  99 20 22 57 69 6d 70 5f  |0 ...._.. "Wimp_|
00002470  53 74 61 72 74 54 61 73  6b 22 2c 22 46 69 6c 65  |StartTask","File|
00002480  72 5f 41 63 74 69 6f 6e  22 20 b8 20 74 68 25 3a  |r_Action" . th%:|
00002490  c8 99 20 22 46 69 6c 65  72 41 63 74 69 6f 6e 5f  |.. "FilerAction_|
000024a0  53 65 6e 64 53 65 6c 65  63 74 65 64 44 69 72 65  |SendSelectedDire|
000024b0  63 74 6f 72 79 22 2c 74  68 25 2c 73 6f 75 72 63  |ctory",th%,sourc|
000024c0  65 24 0d 0e 9c 0c 69 25  3d 6e 61 6d 65 25 0d 0e  |e$....i%=name%..|
000024d0  a6 12 e3 20 6e 25 3d 31  20 b8 20 73 6e 75 6d 25  |... n%=1 . snum%|
000024e0  0d 0e b0 2d c8 99 20 22  46 69 6c 65 72 41 63 74  |...-.. "FilerAct|
000024f0  69 6f 6e 5f 53 65 6e 64  53 65 6c 65 63 74 65 64  |ion_SendSelected|
00002500  46 69 6c 65 22 2c 74 68  25 2c 24 69 25 0d 0e ba  |File",th%,$i%...|
00002510  1f 69 25 2b 3d a9 24 69  25 2b 32 31 3a f2 77 6f  |.i%+=.$i%+21:.wo|
00002520  72 64 5f 61 6c 69 67 6e  28 69 25 29 0d 0e c4 05  |rd_align(i%)....|
00002530  ed 0d 0e ce 42 c8 99 20  22 46 69 6c 65 72 41 63  |....B.. "FilerAc|
00002540  74 69 6f 6e 5f 53 65 6e  64 53 74 61 72 74 4f 70  |tion_SendStartOp|
00002550  65 72 61 74 69 6f 6e 22  2c 74 68 25 2c 30 2c 25  |eration",th%,0,%|
00002560  31 30 30 31 2c 64 65 73  74 24 2c a9 64 65 73 74  |1001,dest$,.dest|
00002570  24 2b 31 0d 0e d8 11 f2  73 65 6e 64 5f 6d 65 73  |$+1.....send_mes|
00002580  73 61 67 65 0d 0e e2 0d  f2 70 6f 6c 6c 32 28 31  |sage.....poll2(1|
00002590  29 0d 0e ec 05 cd 0d 0e  f6 05 e1 0d 0f 00 05 3a  |)..............:|
000025a0  0d 0f 0a 12 dd f2 70 6f  6c 6c 32 28 62 75 73 79  |......poll2(busy|
000025b0  25 29 0d 0f 14 0e ea 20  72 25 2c 64 6f 6e 65 25  |%)..... r%,done%|
000025c0  0d 0f 1e 05 f5 0d 0f 28  1b c8 99 20 22 57 69 6d  |.......(... "Wim|
000025d0  70 5f 50 6f 6c 6c 22 2c  2c 62 25 20 b8 20 72 25  |p_Poll",,b% . r%|
000025e0  0d 0f 32 0b c8 8e 20 72  25 20 ca 0d 0f 3c 12 c9  |..2... r% ...<..|
000025f0  20 30 3a c8 8e 20 62 75  73 79 25 20 ca 0d 0f 46  | 0:.. busy% ...F|
00002600  0f c9 20 30 3a 64 6f 6e  65 25 3d b9 0d 0f 50 15  |.. 0:done%=...P.|
00002610  c9 20 31 3a f2 73 65 6e  64 5f 6d 65 73 73 61 67  |. 1:.send_messag|
00002620  65 0d 0f 5a 05 cb 0d 0f  64 20 c9 20 32 3a c8 99  |e..Z....d . 2:..|
00002630  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00002640  77 22 2c 2c 62 25 0d 0f  6e 21 c9 20 33 3a c8 99  |w",,b%..n!. 3:..|
00002650  20 22 57 69 6d 70 5f 43  6c 6f 73 65 57 69 6e 64  | "Wimp_CloseWind|
00002660  6f 77 22 2c 2c 62 25 0d  0f 78 19 c9 20 36 3a f2  |ow",,b%..x.. 6:.|
00002670  6d 6f 75 73 65 5f 63 6c  69 63 6b 32 28 62 25 29  |mouse_click2(b%)|
00002680  0d 0f 82 16 c9 20 39 3a  f2 6d 65 6e 75 63 6c 69  |..... 9:.menucli|
00002690  63 6b 28 62 25 29 0d 0f  8c 19 c9 20 31 37 2c 31  |ck(b%)..... 17,1|
000026a0  38 3a f2 72 65 63 65 69  76 65 32 28 62 25 29 0d  |8:.receive2(b%).|
000026b0  0f 96 17 c9 20 31 39 3a  f2 61 63 6b 28 62 25 2c  |.... 19:.ack(b%,|
000026c0  64 6f 6e 65 25 29 0d 0f  a0 05 cb 0d 0f aa 22 fd  |done%)........".|
000026d0  20 28 64 6f 6e 65 25 20  80 20 ac 20 73 74 6f 70  | (done% . . stop|
000026e0  70 65 64 25 29 20 84 20  71 75 69 74 25 0d 0f b4  |ped%) . quit%...|
000026f0  05 e1 0d 0f be 05 3a 0d  0f c8 1e dd f2 64 69 72  |......:......dir|
00002700  65 63 74 6f 72 79 28 73  6f 75 72 63 65 24 2c 64  |ectory(source$,d|
00002710  65 73 74 24 29 0d 0f d2  4e ea 20 73 6f 75 72 63  |est$)...N. sourc|
00002720  65 62 75 66 25 2c 64 65  73 74 62 75 66 25 2c 65  |ebuf%,destbuf%,e|
00002730  72 72 25 2c 66 6c 61 67  73 25 2c 73 6e 75 6d 25  |rr%,flags%,snum%|
00002740  2c 64 6e 75 6d 25 2c 72  65 6d 25 2c 6e 25 2c 69  |,dnum%,rem%,n%,i|
00002750  25 2c 63 68 61 6e 67 65  73 25 2c 62 75 5f 70 61  |%,changes%,bu_pa|
00002760  74 68 24 0d 0f dc 1d 73  6f 75 72 63 65 62 75 66  |th$....sourcebuf|
00002770  25 3d a4 65 78 74 5f 62  75 66 28 34 30 39 36 29  |%=.ext_buf(4096)|
00002780  0d 0f e6 4a e7 20 73 6f  75 72 63 65 62 75 66 25  |...J. sourcebuf%|
00002790  3d a3 20 85 20 28 31 3c  3c 33 30 29 2b 26 35 30  |=. . (1<<30)+&50|
000027a0  33 2c 22 49 6e 73 75 66  66 69 63 69 65 6e 74 20  |3,"Insufficient |
000027b0  6d 65 6d 6f 72 79 20 74  6f 20 63 68 65 63 6b 20  |memory to check |
000027c0  64 69 72 65 63 74 6f 72  79 22 0d 0f f0 05 f5 0d  |directory"......|
000027d0  0f fa 6a c8 99 20 22 58  4f 53 5f 47 42 50 42 22  |..j.. "XOS_GBPB"|
000027e0  2c 31 30 2c 73 6f 75 72  63 65 24 2c 73 6f 75 72  |,10,source$,sour|
000027f0  63 65 62 75 66 25 2c 26  38 30 30 30 30 30 30 30  |cebuf%,&80000000|
00002800  2c 30 2c 65 78 74 5f 6d  65 6d 5f 70 74 72 25 2d  |,0,ext_mem_ptr%-|
00002810  73 6f 75 72 63 65 62 75  66 25 2c 22 2a 22 20 b8  |sourcebuf%,"*" .|
00002820  20 65 72 72 25 2c 2c 2c  73 6e 75 6d 25 2c 72 65  | err%,,,snum%,re|
00002830  6d 25 3b 66 6c 61 67 73  25 0d 10 04 43 e7 20 28  |m%;flags%...C. (|
00002840  66 6c 61 67 73 25 20 80  20 31 29 3c 3e 30 20 21  |flags% . 1)<>0 !|
00002850  65 72 72 25 3d 28 31 3c  3c 33 30 29 2b 26 35 30  |err%=(1<<30)+&50|
00002860  33 3a c8 99 20 22 4f 53  5f 47 65 6e 65 72 61 74  |3:.. "OS_Generat|
00002870  65 45 72 72 6f 72 22 2c  65 72 72 25 0d 10 0e 0f  |eError",err%....|
00002880  e7 20 72 65 6d 25 3e 3d  30 20 8c 0d 10 18 15 6e  |. rem%>=0 .....n|
00002890  25 3d a4 65 78 74 5f 62  75 66 28 34 30 39 36 29  |%=.ext_buf(4096)|
000028a0  0d 10 22 42 e7 20 6e 25  3d a3 20 85 20 28 31 3c  |.."B. n%=. . (1<|
000028b0  3c 33 30 29 2b 26 35 30  33 2c 22 49 6e 73 75 66  |<30)+&503,"Insuf|
000028c0  66 69 63 69 65 6e 74 20  6d 65 6d 6f 72 79 20 74  |ficient memory t|
000028d0  6f 20 63 68 65 63 6b 20  64 69 72 65 63 74 6f 72  |o check director|
000028e0  79 22 0d 10 2c 05 cd 0d  10 36 0c fd 20 72 65 6d  |y"..,....6.. rem|
000028f0  25 3c 30 0d 10 40 11 69  25 3d 73 6f 75 72 63 65  |%<0..@.i%=source|
00002900  62 75 66 25 0d 10 4a 0f  e7 20 73 6e 75 6d 25 3e  |buf%..J.. snum%>|
00002910  30 20 8c 0d 10 54 12 e3  20 6e 25 3d 31 20 b8 20  |0 ...T.. n%=1 . |
00002920  73 6e 75 6d 25 0d 10 5e  10 f2 74 65 72 6d 28 69  |snum%..^..term(i|
00002930  25 2b 32 30 29 0d 10 68  24 69 25 2b 3d a9 24 28  |%+20)..h$i%+=.$(|
00002940  69 25 2b 32 30 29 2b 32  31 3a f2 77 6f 72 64 5f  |i%+20)+21:.word_|
00002950  61 6c 69 67 6e 28 69 25  29 0d 10 72 05 ed 0d 10  |align(i%)..r....|
00002960  7c 05 cd 0d 10 86 10 f2  72 65 6c 5f 62 75 66 28  ||.......rel_buf(|
00002970  69 25 29 0d 10 90 20 e7  20 a4 69 63 6f 6e 5f 73  |i%)... . .icon_s|
00002980  74 61 74 65 28 74 6f 70  64 69 72 73 25 2c 31 31  |tate(topdirs%,11|
00002990  29 20 8c 0d 10 9a 1b 64  65 73 74 62 75 66 25 3d  |) .....destbuf%=|
000029a0  a4 65 78 74 5f 62 75 66  28 34 30 39 36 29 0d 10  |.ext_buf(4096)..|
000029b0  a4 48 e7 20 64 65 73 74  62 75 66 25 3d a3 20 85  |.H. destbuf%=. .|
000029c0  20 28 31 3c 3c 33 30 29  2b 26 35 30 33 2c 22 49  | (1<<30)+&503,"I|
000029d0  6e 73 75 66 66 69 63 69  65 6e 74 20 6d 65 6d 6f  |nsufficient memo|
000029e0  72 79 20 74 6f 20 63 68  65 63 6b 20 64 69 72 65  |ry to check dire|
000029f0  63 74 6f 72 79 22 0d 10  ae 05 f5 0d 10 b8 64 c8  |ctory"........d.|
00002a00  99 20 22 58 4f 53 5f 47  42 50 42 22 2c 31 30 2c  |. "XOS_GBPB",10,|
00002a10  64 65 73 74 24 2c 64 65  73 74 62 75 66 25 2c 26  |dest$,destbuf%,&|
00002a20  38 30 30 30 30 30 30 30  2c 30 2c 65 78 74 5f 6d  |80000000,0,ext_m|
00002a30  65 6d 5f 70 74 72 25 2d  64 65 73 74 62 75 66 25  |em_ptr%-destbuf%|
00002a40  2c 22 2a 22 20 b8 20 65  72 72 25 2c 2c 2c 64 6e  |,"*" . err%,,,dn|
00002a50  75 6d 25 2c 72 65 6d 25  3b 66 6c 61 67 73 25 0d  |um%,rem%;flags%.|
00002a60  10 c2 43 e7 20 28 66 6c  61 67 73 25 20 80 20 31  |..C. (flags% . 1|
00002a70  29 3c 3e 30 20 21 65 72  72 25 3d 28 31 3c 3c 33  |)<>0 !err%=(1<<3|
00002a80  30 29 2b 26 35 30 33 3a  c8 99 20 22 4f 53 5f 47  |0)+&503:.. "OS_G|
00002a90  65 6e 65 72 61 74 65 45  72 72 6f 72 22 2c 65 72  |enerateError",er|
00002aa0  72 25 0d 10 cc 0f e7 20  72 65 6d 25 3e 3d 30 20  |r%..... rem%>=0 |
00002ab0  8c 0d 10 d6 15 6e 25 3d  a4 65 78 74 5f 62 75 66  |.....n%=.ext_buf|
00002ac0  28 34 30 39 36 29 0d 10  e0 42 e7 20 6e 25 3d a3  |(4096)...B. n%=.|
00002ad0  20 85 20 28 31 3c 3c 33  30 29 2b 26 35 30 33 2c  | . (1<<30)+&503,|
00002ae0  22 49 6e 73 75 66 66 69  63 69 65 6e 74 20 6d 65  |"Insufficient me|
00002af0  6d 6f 72 79 20 74 6f 20  63 68 65 63 6b 20 64 69  |mory to check di|
00002b00  72 65 63 74 6f 72 79 22  0d 10 ea 05 cd 0d 10 f4  |rectory"........|
00002b10  0c fd 20 72 65 6d 25 3c  30 0d 10 fe 0f 69 25 3d  |.. rem%<0....i%=|
00002b20  64 65 73 74 62 75 66 25  0d 11 08 0f e7 20 64 6e  |destbuf%..... dn|
00002b30  75 6d 25 3e 30 20 8c 0d  11 12 12 e3 20 6e 25 3d  |um%>0 ...... n%=|
00002b40  31 20 b8 20 64 6e 75 6d  25 0d 11 1c 10 f2 74 65  |1 . dnum%.....te|
00002b50  72 6d 28 69 25 2b 32 30  29 0d 11 26 27 e7 20 ac  |rm(i%+20)..&'. .|
00002b60  20 a4 63 6f 6d 70 61 72  65 28 69 25 2c 73 6f 75  | .compare(i%,sou|
00002b70  72 63 65 62 75 66 25 2c  73 6e 75 6d 25 29 20 8c  |rcebuf%,snum%) .|
00002b80  0d 11 30 75 e7 20 ac 20  63 68 61 6e 67 65 73 25  |..0u. . changes%|
00002b90  20 63 68 61 6e 67 65 73  25 3d b9 3a c8 99 20 22  | changes%=.:.. "|
00002ba0  57 69 6d 70 5f 53 74 61  72 74 54 61 73 6b 22 2c  |Wimp_StartTask",|
00002bb0  22 46 69 6c 65 72 5f 41  63 74 69 6f 6e 22 20 b8  |"Filer_Action" .|
00002bc0  20 74 68 25 3a c8 99 20  22 46 69 6c 65 72 41 63  | th%:.. "FilerAc|
00002bd0  74 69 6f 6e 5f 53 65 6e  64 53 65 6c 65 63 74 65  |tion_SendSelecte|
00002be0  64 44 69 72 65 63 74 6f  72 79 22 2c 74 68 25 2c  |dDirectory",th%,|
00002bf0  64 65 73 74 24 0d 11 3a  32 c8 99 20 22 46 69 6c  |dest$..:2.. "Fil|
00002c00  65 72 41 63 74 69 6f 6e  5f 53 65 6e 64 53 65 6c  |erAction_SendSel|
00002c10  65 63 74 65 64 46 69 6c  65 22 2c 74 68 25 2c 24  |ectedFile",th%,$|
00002c20  28 69 25 2b 32 30 29 0d  11 44 05 cd 0d 11 4e 24  |(i%+20)..D....N$|
00002c30  69 25 2b 3d a9 24 28 69  25 2b 32 30 29 2b 32 31  |i%+=.$(i%+20)+21|
00002c40  3a f2 77 6f 72 64 5f 61  6c 69 67 6e 28 69 25 29  |:.word_align(i%)|
00002c50  0d 11 58 05 ed 0d 11 62  05 cd 0d 11 6c 10 f2 72  |..X....b....l..r|
00002c60  65 6c 5f 62 75 66 28 69  25 29 0d 11 76 10 e7 20  |el_buf(i%)..v.. |
00002c70  63 68 61 6e 67 65 73 25  20 8c 0d 11 80 86 62 75  |changes% .....bu|
00002c80  5f 70 61 74 68 24 3d a4  62 61 63 6b 75 70 5f 70  |_path$=.backup_p|
00002c90  61 74 68 28 64 65 73 74  24 29 3a f2 65 6e 73 75  |ath(dest$):.ensu|
00002ca0  72 65 5f 70 61 74 68 28  62 75 5f 70 61 74 68 24  |re_path(bu_path$|
00002cb0  29 3a c8 99 20 22 46 69  6c 65 72 41 63 74 69 6f  |):.. "FilerActio|
00002cc0  6e 5f 53 65 6e 64 53 74  61 72 74 4f 70 65 72 61  |n_SendStartOpera|
00002cd0  74 69 6f 6e 22 2c 74 68  25 2c 31 2c 31 2c 62 75  |tion",th%,1,1,bu|
00002ce0  5f 70 61 74 68 24 2c a9  62 75 5f 70 61 74 68 24  |_path$,.bu_path$|
00002cf0  2b 31 3a f2 73 65 6e 64  5f 6d 65 73 73 61 67 65  |+1:.send_message|
00002d00  0d 11 8a 05 cd 0d 11 94  0d f2 70 6f 6c 6c 32 28  |..........poll2(|
00002d10  31 29 0d 11 9e 0f e7 20  ac 20 71 75 69 74 25 20  |1)..... . quit% |
00002d20  8c 0d 11 a8 0f 69 25 3d  64 65 73 74 62 75 66 25  |.....i%=destbuf%|
00002d30  0d 11 b2 0f e7 20 64 6e  75 6d 25 3e 30 20 8c 0d  |..... dnum%>0 ..|
00002d40  11 bc 12 e3 20 6e 25 3d  31 20 b8 20 64 6e 75 6d  |.... n%=1 . dnum|
00002d50  25 0d 11 c6 0f e7 20 69  25 21 31 36 3d 32 20 8c  |%..... i%!16=2 .|
00002d60  0d 11 d0 25 e7 20 a4 63  6f 6d 70 61 72 65 28 69  |...%. .compare(i|
00002d70  25 2c 73 6f 75 72 63 65  62 75 66 25 2c 73 6e 75  |%,sourcebuf%,snu|
00002d80  6d 25 29 20 8c 0d 11 da  3d 24 73 6f 75 72 63 65  |m%) ....=$source|
00002d90  74 6f 70 25 3d 73 6f 75  72 63 65 24 2b 22 2e 22  |top%=source$+"."|
00002da0  2b 24 28 69 25 2b 32 30  29 3a f2 72 65 64 72 61  |+$(i%+20):.redra|
00002db0  77 5f 69 63 6f 6e 28 74  6f 70 64 69 72 73 25 2c  |w_icon(topdirs%,|
00002dc0  31 29 0d 11 e4 39 24 64  65 73 74 74 6f 70 25 3d  |1)...9$desttop%=|
00002dd0  64 65 73 74 24 2b 22 2e  22 2b 24 28 69 25 2b 32  |dest$+"."+$(i%+2|
00002de0  30 29 3a f2 72 65 64 72  61 77 5f 69 63 6f 6e 28  |0):.redraw_icon(|
00002df0  74 6f 70 64 69 72 73 25  2c 35 29 0d 11 ee 0d f2  |topdirs%,5).....|
00002e00  70 6f 6c 6c 32 28 30 29  0d 11 f8 2f e7 20 ac 20  |poll2(0).../. . |
00002e10  71 75 69 74 25 20 f2 64  69 72 65 63 74 6f 72 79  |quit% .directory|
00002e20  28 24 73 6f 75 72 63 65  74 6f 70 25 2c 24 64 65  |($sourcetop%,$de|
00002e30  73 74 74 6f 70 25 29 0d  12 02 05 cd 0d 12 0c 05  |sttop%).........|
00002e40  cd 0d 12 16 24 69 25 2b  3d a9 24 28 69 25 2b 32  |....$i%+=.$(i%+2|
00002e50  30 29 2b 32 31 3a f2 77  6f 72 64 5f 61 6c 69 67  |0)+21:.word_alig|
00002e60  6e 28 69 25 29 0d 12 20  05 ed 0d 12 2a 05 cd 0d  |n(i%).. ....*...|
00002e70  12 34 05 cd 0d 12 3e 05  cd 0d 12 48 7d e7 20 a4  |.4....>....H}. .|
00002e80  69 63 6f 6e 5f 73 74 61  74 65 28 74 6f 70 64 69  |icon_state(topdi|
00002e90  72 73 25 2c 31 30 29 20  80 20 73 6f 75 72 63 65  |rs%,10) . source|
00002ea0  24 3d 66 69 72 73 74 5f  73 6f 75 72 63 65 24 20  |$=first_source$ |
00002eb0  80 20 64 65 73 74 24 3d  66 69 72 73 74 5f 64 65  |. dest$=first_de|
00002ec0  73 74 24 20 80 20 71 75  69 74 25 3d a3 20 f2 63  |st$ . quit%=. .c|
00002ed0  6f 70 79 28 73 6f 75 72  63 65 24 2c 64 65 73 74  |opy(source$,dest|
00002ee0  24 2c 73 6f 75 72 63 65  62 75 66 25 2b 32 30 2c  |$,sourcebuf%+20,|
00002ef0  73 6e 75 6d 25 29 0d 12  52 18 f2 72 65 6c 5f 62  |snum%)..R..rel_b|
00002f00  75 66 28 73 6f 75 72 63  65 62 75 66 25 29 0d 12  |uf(sourcebuf%)..|
00002f10  5c 05 e1 0d 12 66 05 3a  0d 12 70 18 dd f2 65 6e  |\....f.:..p...en|
00002f20  73 75 72 65 5f 70 61 74  68 28 70 61 74 68 24 29  |sure_path(path$)|
00002f30  0d 12 7a 14 ea 20 65 72  72 25 2c 66 6c 61 67 73  |..z.. err%,flags|
00002f40  25 2c 6e 25 0d 12 84 17  6e 25 3d a9 74 6f 70 5f  |%,n%....n%=.top_|
00002f50  64 65 73 74 5f 64 69 72  24 2b 31 0d 12 8e 10 c8  |dest_dir$+1.....|
00002f60  95 20 6e 25 3c a9 70 61  74 68 24 0d 12 98 2a f5  |. n%<.path$...*.|
00002f70  20 6e 25 2b 3d 31 3a fd  20 6e 25 3d a9 70 61 74  | n%+=1:. n%=.pat|
00002f80  68 24 20 84 20 c1 70 61  74 68 24 2c 6e 25 2c 31  |h$ . .path$,n%,1|
00002f90  29 3d 22 2e 22 0d 12 a2  15 e7 20 6e 25 3d a9 70  |)="."..... n%=.p|
00002fa0  61 74 68 24 20 6e 25 2b  3d 31 0d 12 ac 2e c8 99  |ath$ n%+=1......|
00002fb0  20 22 58 4f 53 5f 46 69  6c 65 22 2c 38 2c c0 70  | "XOS_File",8,.p|
00002fc0  61 74 68 24 2c 6e 25 2d  31 29 20 b8 20 65 72 72  |ath$,n%-1) . err|
00002fd0  25 3b 66 6c 61 67 73 25  0d 12 b6 43 e7 20 28 66  |%;flags%...C. (f|
00002fe0  6c 61 67 73 25 20 80 20  31 29 3c 3e 30 20 21 65  |lags% . 1)<>0 !e|
00002ff0  72 72 25 3d 28 31 3c 3c  33 30 29 2b 26 35 30 33  |rr%=(1<<30)+&503|
00003000  3a c8 99 20 22 4f 53 5f  47 65 6e 65 72 61 74 65  |:.. "OS_Generate|
00003010  45 72 72 6f 72 22 2c 65  72 72 25 0d 12 c0 05 ce  |Error",err%.....|
00003020  0d 12 ca 05 e1 0d 12 d4  05 3a 0d 12 de 18 dd a4  |.........:......|
00003030  62 61 63 6b 75 70 5f 70  61 74 68 28 70 61 74 68  |backup_path(path|
00003040  24 29 0d 12 e8 3f 3d 74  6f 70 5f 64 65 73 74 5f  |$)...?=top_dest_|
00003050  64 69 72 24 2b 22 2e 22  2b 62 61 63 6b 75 70 64  |dir$+"."+backupd|
00003060  69 72 24 2b c2 70 61 74  68 24 2c a9 70 61 74 68  |ir$+.path$,.path|
00003070  24 2d a9 74 6f 70 5f 64  65 73 74 5f 64 69 72 24  |$-.top_dest_dir$|
00003080  29 0d 12 f2 05 3a 0d 12  fc 12 dd f2 73 65 6e 64  |)....:......send|
00003090  5f 6d 65 73 73 61 67 65  0d 13 06 08 ea 20 63 25  |_message..... c%|
000030a0  0d 13 10 11 63 25 3d a4  73 74 61 63 6b 28 36 34  |....c%=.stack(64|
000030b0  29 0d 13 1a 25 21 63 25  3d 32 34 3a 63 25 21 31  |)...%!c%=24:c%!1|
000030c0  32 3d 30 3a 63 25 21 31  36 3d 26 34 30 36 3a 63  |2=0:c%!16=&406:c|
000030d0  25 21 32 30 3d 30 0d 13  24 23 c8 99 20 22 57 69  |%!20=0..$#.. "Wi|
000030e0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
000030f0  31 38 2c 63 25 2c 74 68  25 0d 13 2e 10 f2 75 6e  |18,c%,th%.....un|
00003100  73 74 61 63 6b 28 63 25  29 0d 13 38 05 e1 0d 13  |stack(c%)..8....|
00003110  42 05 3a 0d 13 4c 15 dd  f2 61 63 6b 28 64 25 2c  |B.:..L...ack(d%,|
00003120  f8 20 64 6f 6e 65 25 29  0d 13 56 0e c8 8e 20 64  |. done%)..V... d|
00003130  25 21 31 36 20 ca 0d 13  60 18 c9 20 26 34 30 36  |%!16 ...`.. &406|
00003140  3a 64 6f 6e 65 25 3d b9  3a 74 68 25 3d 30 0d 13  |:done%=.:th%=0..|
00003150  6a 05 cb 0d 13 74 05 e1  0d 13 7e 05 3a 0d 13 88  |j....t....~.:...|
00003160  12 dd f2 75 70 5f 64 69  72 28 f8 20 61 24 29 0d  |...up_dir(. a$).|
00003170  13 92 08 ea 20 6e 25 0d  13 9c 0a 6e 25 3d a9 61  |.... n%....n%=.a|
00003180  24 0d 13 a6 1d c8 95 20  c1 61 24 2c 6e 25 2c 31  |$...... .a$,n%,1|
00003190  29 3c 3e 22 2e 22 20 6e  25 2d 3d 31 3a ce 0d 13  |)<>"." n%-=1:...|
000031a0  b0 10 61 24 3d c0 61 24  2c 6e 25 2d 31 29 0d 13  |..a$=.a$,n%-1)..|
000031b0  ba 05 e1 0d 13 c4 05 3a  0d 13 ce 20 dd f2 63 6f  |.......:... ..co|
000031c0  70 79 5f 70 61 74 68 28  73 6f 75 72 63 65 24 2c  |py_path(source$,|
000031d0  f8 20 64 65 73 74 24 29  0d 13 d8 08 ea 20 73 24  |. dest$)..... s$|
000031e0  0d 13 e2 0e 73 24 3d 73  6f 75 72 63 65 24 0d 13  |....s$=source$..|
000031f0  ec 11 f2 74 72 75 6e 63  61 74 65 28 73 24 29 0d  |...truncate(s$).|
00003200  13 f6 14 f2 74 72 75 6e  63 61 74 65 28 64 65 73  |....truncate(des|
00003210  74 24 29 0d 14 00 30 e7  20 a9 73 24 3c a9 73 6f  |t$)...0. .s$<.so|
00003220  75 72 63 65 24 20 64 65  73 74 24 2b 3d c2 73 6f  |urce$ dest$+=.so|
00003230  75 72 63 65 24 2c a9 73  6f 75 72 63 65 24 2d a9  |urce$,.source$-.|
00003240  73 24 29 0d 14 0a 35 e7  20 a7 64 65 73 74 24 2c  |s$)...5. .dest$,|
00003250  22 5c 22 29 3c 3e 30 20  64 65 73 74 24 3d c0 64  |"\")<>0 dest$=.d|
00003260  65 73 74 24 2c a4 6c 61  73 74 5f 64 6f 74 28 64  |est$,.last_dot(d|
00003270  65 73 74 24 29 2d 31 29  0d 14 14 05 e1 0d 14 1e  |est$)-1)........|
00003280  05 3a 0d 14 28 16 dd f2  6d 6f 75 73 65 5f 63 6c  |.:..(...mouse_cl|
00003290  69 63 6b 32 28 64 25 29  0d 14 32 0e c8 8e 20 64  |ick2(d%)..2... d|
000032a0  25 21 31 32 20 ca 0d 14  3c 12 c9 20 2d 32 3a c8  |%!12 ...<.. -2:.|
000032b0  8e 20 64 25 21 38 20 ca  0d 14 46 2b c9 20 32 3a  |. d%!8 ...F+. 2:|
000032c0  f2 73 68 6f 77 6d 65 6e  75 28 6d 61 69 6e 6d 65  |.showmenu(mainme|
000032d0  6e 75 25 2c 21 64 25 2d  36 34 2c 39 36 2b 32 2a  |nu%,!d%-64,96+2*|
000032e0  34 34 29 0d 14 50 4a c9  20 34 3a 21 64 25 3d 74  |44)..PJ. 4:!d%=t|
000032f0  6f 70 64 69 72 73 25 3a  c8 99 20 22 57 69 6d 70  |opdirs%:.. "Wimp|
00003300  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00003310  2c 2c 64 25 3a c8 99 20  22 57 69 6d 70 5f 4f 70  |,,d%:.. "Wimp_Op|
00003320  65 6e 57 69 6e 64 6f 77  22 2c 2c 64 25 0d 14 5a  |enWindow",,d%..Z|
00003330  05 cb 0d 14 64 22 c9 20  74 6f 70 64 69 72 73 25  |....d". topdirs%|
00003340  3a f2 74 6f 70 64 69 72  73 5f 63 6c 69 63 6b 32  |:.topdirs_click2|
00003350  28 64 25 29 0d 14 6e 05  cb 0d 14 78 05 e1 0d 14  |(d%)..n....x....|
00003360  82 05 3a 0d 14 8c 18 dd  f2 74 6f 70 64 69 72 73  |..:......topdirs|
00003370  5f 63 6c 69 63 6b 32 28  64 25 29 0d 14 96 0e c8  |_click2(d%).....|
00003380  8e 20 64 25 21 31 36 20  ca 0d 14 a0 08 c9 20 39  |. d%!16 ...... 9|
00003390  3a 0d 14 aa 3e e7 20 73  74 6f 70 70 65 64 25 20  |:...>. stopped% |
000033a0  24 61 63 74 69 6f 6e 5f  74 65 78 74 25 3d 22 50  |$action_text%="P|
000033b0  61 75 73 65 22 20 8b 20  24 61 63 74 69 6f 6e 5f  |ause" . $action_|
000033c0  74 65 78 74 25 3d 22 52  65 73 74 61 72 74 22 0d  |text%="Restart".|
000033d0  14 b4 17 73 74 6f 70 70  65 64 25 3d ac 20 73 74  |...stopped%=. st|
000033e0  6f 70 70 65 64 25 0d 14  be 2e c9 20 38 3a 21 64  |opped%..... 8:!d|
000033f0  25 3d 74 6f 70 64 69 72  73 25 3a c8 99 20 22 57  |%=topdirs%:.. "W|
00003400  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00003410  2c 2c 64 25 0d 14 c8 05  cb 0d 14 d2 05 e1 0d 14  |,,d%............|
00003420  dc 05 3a 0d 14 e6 12 dd  f2 72 65 63 65 69 76 65  |..:......receive|
00003430  32 28 62 25 29 0d 14 f0  0e c8 8e 20 62 25 21 31  |2(b%)...... b%!1|
00003440  36 20 ca 0d 14 fa 0f c9  20 30 3a 71 75 69 74 25  |6 ...... 0:quit%|
00003450  3d b9 0d 15 04 05 cb 0d  15 0e 05 e1 0d 15 18 05  |=...............|
00003460  3a 0d 15 22 14 dd a4 6c  61 73 74 5f 64 6f 74 28  |:.."...last_dot(|
00003470  73 74 72 24 29 0d 15 2c  08 ea 20 6e 25 0d 15 36  |str$)..,.. n%..6|
00003480  0c 6e 25 3d a9 73 74 72  24 0d 15 40 26 c8 95 20  |.n%=.str$..@&.. |
00003490  c1 73 74 72 24 2c 6e 25  2c 31 29 3c 3e 22 2e 22  |.str$,n%,1)<>"."|
000034a0  20 80 20 6e 25 3e 30 3a  6e 25 2d 3d 31 3a ce 0d  | . n%>0:n%-=1:..|
000034b0  15 4a 10 e7 20 6e 25 3d  30 20 6e 25 3d 2d 31 0d  |.J.. n%=0 n%=-1.|
000034c0  15 54 07 3d 6e 25 0d 15  5e 05 3a 0d 15 68 0e dd  |.T.=n%..^.:..h..|
000034d0  f2 64 72 61 67 5f 65 6e  64 0d 15 72 12 70 6f 6c  |.drag_end..r.pol|
000034e0  6c 5f 6d 61 73 6b 25 3d  26 33 31 0d 15 7c 12 e7  |l_mask%=&31..|..|
000034f0  20 64 72 61 67 6e 75 6d  25 3d 31 20 8c 0d 15 86  | dragnum%=1 ....|
00003500  1e c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 32  |... "OS_Byte",12|
00003510  31 2c 26 38 30 20 b8 20  2c 61 25 0d 15 90 1c e7  |1,&80 . ,a%.....|
00003520  20 61 25 20 f2 75 70 5f  64 69 72 28 73 6f 75 72  | a% .up_dir(sour|
00003530  63 65 73 74 72 24 29 0d  15 9a 1a 24 73 6f 75 72  |cestr$)....$sour|
00003540  63 65 74 6f 70 25 3d 73  6f 75 72 63 65 73 74 72  |cetop%=sourcestr|
00003550  24 0d 15 a4 1e f2 6d 61  6b 65 5f 77 72 69 74 61  |$.....make_writa|
00003560  62 6c 65 28 74 6f 70 64  69 72 73 25 2c 31 29 0d  |ble(topdirs%,1).|
00003570  15 ae 05 cc 0d 15 b8 43  24 73 6f 75 72 63 65 74  |.......C$sourcet|
00003580  6f 70 25 3d c0 73 6f 75  72 63 65 73 74 72 24 2c  |op%=.sourcestr$,|
00003590  a4 6c 61 73 74 5f 64 6f  74 28 73 6f 75 72 63 65  |.last_dot(source|
000035a0  73 74 72 24 29 2d 31 29  2b 22 2e 3c 53 65 6c 65  |str$)-1)+".<Sele|
000035b0  63 74 69 6f 6e 3e 22 0d  15 c2 22 f2 6d 61 6b 65  |ction>"...".make|
000035c0  5f 6e 6f 6e 5f 77 72 69  74 61 62 6c 65 28 74 6f  |_non_writable(to|
000035d0  70 64 69 72 73 25 2c 31  29 0d 15 cc 05 cd 0d 15  |pdirs%,1).......|
000035e0  d6 0e 64 72 61 67 6e 75  6d 25 3d 30 0d 15 e0 05  |..dragnum%=0....|
000035f0  e1 0d 15 ea 05 3a 0d 15  f4 1e dd f2 6d 61 6b 65  |.....:......make|
00003600  5f 6e 6f 6e 5f 77 72 69  74 61 62 6c 65 28 77 25  |_non_writable(w%|
00003610  2c 69 25 29 0d 15 fe 11  63 25 3d a4 73 74 61 63  |,i%)....c%=.stac|
00003620  6b 28 32 34 29 0d 16 08  22 c8 99 20 22 57 69 6d  |k(24)...".. "Wim|
00003630  70 5f 47 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_GetCaretPositi|
00003640  6f 6e 22 2c 2c 63 25 0d  16 12 48 e7 20 28 63 25  |on",,c%...H. (c%|
00003650  21 30 3d 77 25 20 80 20  63 25 21 34 3d 69 25 29  |!0=w% . c%!4=i%)|
00003660  20 63 25 21 30 3d 2d 31  3a 63 25 21 34 3d 2d 31  | c%!0=-1:c%!4=-1|
00003670  3a c8 99 20 22 57 69 6d  70 5f 53 65 74 43 61 72  |:.. "Wimp_SetCar|
00003680  65 74 50 6f 73 69 74 69  6f 6e 22 2c 2c 63 25 0d  |etPosition",,c%.|
00003690  16 1c 42 63 25 21 30 3d  77 25 3a 63 25 21 34 3d  |..Bc%!0=w%:c%!4=|
000036a0  69 25 3a 63 25 21 38 3d  30 3a 63 25 21 31 32 3d  |i%:c%!8=0:c%!12=|
000036b0  26 46 3c 3c 31 32 3a c8  99 20 22 57 69 6d 70 5f  |&F<<12:.. "Wimp_|
000036c0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 63  |SetIconState",,c|
000036d0  25 0d 16 26 10 f2 75 6e  73 74 61 63 6b 28 63 25  |%..&..unstack(c%|
000036e0  29 0d 16 30 05 e1 0d 16  3a 05 3a 0d 16 44 1a dd  |)..0....:.:..D..|
000036f0  f2 6d 61 6b 65 5f 77 72  69 74 61 62 6c 65 28 77  |.make_writable(w|
00003700  25 2c 69 25 29 0d 16 4e  11 63 25 3d a4 73 74 61  |%,i%)..N.c%=.sta|
00003710  63 6b 28 32 34 29 0d 16  58 47 63 25 21 30 3d 77  |ck(24)..XGc%!0=w|
00003720  25 3a 63 25 21 34 3d 69  25 3a 63 25 21 38 3d 26  |%:c%!4=i%:c%!8=&|
00003730  46 3c 3c 31 32 3a 63 25  21 31 32 3d 26 46 3c 3c  |F<<12:c%!12=&F<<|
00003740  31 32 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |12:.. "Wimp_SetI|
00003750  63 6f 6e 53 74 61 74 65  22 2c 2c 63 25 0d 16 62  |conState",,c%..b|
00003760  10 f2 75 6e 73 74 61 63  6b 28 63 25 29 0d 16 6c  |..unstack(c%)..l|
00003770  05 e1 0d 16 76 05 3a 0d  16 80 12 dd f2 6b 65 79  |....v.:......key|
00003780  70 72 65 73 73 28 64 25  29 0d 16 8a 0a ea 20 6b  |press(d%)..... k|
00003790  65 79 25 0d 16 94 0e 6b  65 79 25 3d 64 25 21 32  |ey%....key%=d%!2|
000037a0  34 0d 16 9e 0d c8 8e 20  6b 65 79 25 20 ca 0d 16  |4...... key% ...|
000037b0  a8 15 c9 20 31 33 3a f2  65 78 65 63 75 74 65 28  |... 13:.execute(|
000037c0  64 25 29 0d 16 b2 05 7f  0d 16 bc 1d c8 99 20 22  |d%)........... "|
000037d0  57 69 6d 70 5f 50 72 6f  63 65 73 73 4b 65 79 22  |Wimp_ProcessKey"|
000037e0  2c 6b 65 79 25 0d 16 c6  05 cb 0d 16 d0 05 e1 0d  |,key%...........|
000037f0  16 da 05 3a 0d ff                                 |...:..|
000037f6