�          >!RunImage
MaxModSize%=490
�_Initalise
(
��_Error
2�
<Block%!0=0
F"ș"Wimp_Poll",0,Block%�Reason%
PȎReason%�
Z�1:�_RedrawWindow
d"�2:ș"Wimp_OpenWindow",,Block%
n#�3:ș"Wimp_CloseWindow",,Block%
xExit%=�
��6:�_MouseClick
��7:�_DragEnd
��17,18:�_RecieveMessage
��
�
�Exit%
� ș"Wimp_CloseDown",&4B534154
��
���_RedrawWindow
�'ș"Wimp_RedrawWindow",,Block%�More%
�ȕMore%
�!ș"Wimp_BorderWindow",,Block%
�'ș"Wimp_GetRectangle",,Block%�More%
��

�

��_MouseClick

Button%=Block%!8

"Window%=Block%!12

,Icon%=Block%!16

6ȎButton%�

@E�1,4:�Icon%=HelpIcon%�ș"Wimp_StartTask","Run <ResMod$Dir>.!Help"

J�2:�_SetPointerVars

T4ș"Wimp_CreateMenu",,InfoWin%,MouseX%-68,MouseY%

^�16,64:�_DragStart

h�

r�

|��_DragStart

��_SetWindowVars

�Block%!0=MainWin%

�Block%!4=DragIcon%

�!ș"Wimp_GetIconState",,Block%

�Block%!0=MainWin%

�Block%!4=5

�Block%!8+=DispX%

�Block%!12+=DispY%

�Block%!16+=DispX%

�Block%!20+=DispY%

�Block%!24=0

�Block%!28=0

�Block%!32=&7FFFFFFF
Block%!36=&7FFFFFFF
ș"Wimp_DragBox",,Block%
�
&��_DragEnd
0�_SetWindowVars
:�_SetPointerVars
D#FileName$=�_OSString(FileIcon%)
N&LeafName$=�_GetLeafName(FileName$)
XBlock%!0=80
bBlock%!4=0
lBlock%!8=0
vBlock%!12=0
�Block%!16=1
�Block%!20=Window%
�Block%!24=Icon%
�Block%!28=MouseX%
�Block%!32=MouseY%
�Block%!36=1024
�Block%!40=&FFA
�$(Block%+44)=LeafName$
�0ș"Wimp_SendMessage",17,Block%,Window%,Icon%
��
���_RecieveMessage
�YourHndl%=Block%!4
�MyRef%=Block%!8
YourRef%=Block%!12
Action%=Block%!16
ȎAction%�
 �0:Exit%=�
*�2:�_Message_DataSaveAck
4�3:�_Message_DataLoad
>�4
H�
R�
\��_Message_DataSaveAck
f#FileName$=�_OSString(Block%+44)
p&SourceName$=�_OSString(SourceDir%)
z IDName$=�_OSString(ModName%)
�"�_CheckFileName(FileName$,�)�
�#ș"Wimp_CommandWindow","ResMod"
�%Ȏ��_GetLeafName(SourceName$),1)�
�8�"!":�_SaveVirtualApp(SourceName$,FileName$,IDName$)
�4:�_SaveDirectory(SourceName$,FileName$,IDName$)
��
�ș"Wimp_CommandWindow",-1
�Exit%=�
��
��
���_Message_DataLoad
�FileType%=Block%!40
�#FileName$=�_OSString(Block%+44)
$SourceDir%=FileName$
�_SendDataLoadAck
�_ForceRedraw
$�
.��_SendDataLoadAck
8Block%!12=MyRef%
BBlock%!16=4
L,ș"Wimp_SendMessage",17,Block%,YourHndl%
V�
`$ݤ_GetIndir(GetWindow%,GetIcon%)
j
�TextPtr%
tSubBlock%!0=GetWindow%
~SubBlock%!4=GetIcon%
�$ș"Wimp_GetIconState",,SubBlock%
�TextPtr%=SubBlock%!28
�
=TextPtr%
���_ForceRedraw
�SubBlock%!0=MainWin%
�&ș"Wimp_GetWindowState",,SubBlock%
�-VisMinX%=SubBlock%!4:VisMinY%=SubBlock%!8
�/VisMaxX%=SubBlock%!12:VisMaxY%=SubBlock%!16
�?ș"Wimp_ForceRedraw",-1,VisMinX%,VisMinY%,VisMaxX%,VisMaxY%
��
�ݤ_Message(Message$,Flags%)
��Answer%
�Message$=""�=�

!SubBlock%=0
$(SubBlock%+4)=Message$
7ș"Wimp_ReportError",SubBlock%,Flags%,App$�,Answer%
(�Answer%=1�
2
Answer%=�
<�
F
Answer%=�
P�
Z=Answer%
dݤ_OSString(Address%)
n�LocalAddr%,Old%,String$
x�
�G��OK%=�_Message("Invalid memory address (address exception?)",0):�
�LocalAddr%=Address%
�%ȕ?LocalAddr%>31�?LocalAddr%<>127
�LocalAddr%+=1
��LocalAddr%>Address%+255�
�HOK%=�_Messaage("String longer than 255 bytes: Invalid address?",0):�
��
��
�Old%=?LocalAddr%
�?LocalAddr%=13
�String$=$Address%
�?LocalAddr%=Old%
�=String$
ݤ_GetLeafName(FileName$)
�n%
,�FileName$,"<Wimp$Scrap>")�="ScrapFile"
"n%=�FileName$
, ȕ�FileName$,n%,1)=" "� n%>0
6	n%-=1
@�
JFileName$=�FileName$,n%)
T!ȕ�FileName$,n%,1)<>"."� n%>0
^	n%-=1
h�
r=�FileName$,n%+1)
|.ݤ_CheckFileName(Gen_Name$,Gen_CheckPath%)
�$�Gen_Name$=""��Gen_Name$,1)="."�
�8A%=�_Message("You must first specify a filename!",1)
�=�
��
�&�Gen_CheckPath%��Gen_Name$,".")=0�
�DA%=�_Message("To save, drag file icon to a directory viewer.",1)
�=�
��
�=�
���_SetPointerVars
�&ș"Wimp_GetPointerInfo",,SubBlock%
�MouseX%=SubBlock%!0
�MouseY%=SubBlock%!4
Button%=SubBlock%!8
Window%=SubBlock%!12
Icon%=SubBlock%!16
&�
0��_SetWindowVars
:SubBlock%!0=MainWin%
D&ș"Wimp_GetWindowState",,SubBlock%
N-VisMinX%=SubBlock%!4:VisMinY%=SubBlock%!8
X/VisMaxX%=SubBlock%!12:VisMaxY%=SubBlock%!16
b/ScrollX%=SubBlock%!20:ScrollY%=SubBlock%!24
lDispX%=VisMinX%-ScrollX%
vDispY%=VisMaxY%-ScrollY%
��
�4��_SaveVirtualApp(SourceName$,FileName$,IDName$)
�AppName$=SourceName$
��AppName$,".")�
��
�(AppName$=�AppName$,�AppName$,".")+1)
���AppName$,".")=0
��
��Pass%=4�6�2
�O%=Code%
�P%=&00000000
�[
�
OPT Pass%
EQUD&00000000
EQUD Start%

EQUD End%
 EQUD Service%
*EQUD Title%
4EQUD Help%
>EQUD&00000000
HEQUD&00000000
REQUD&00000000
\EQUD&00000000
fEQUD&00000000
p.Title%
zEQUS IDName$+�0
�	ALIGN
�
.Help%
�EQUS IDName$+�9+�9
�(EQUS"1.10 (9th Dec 1992) !Utils "+�0
�	ALIGN
�.Start%
�STMFD R13!,{R0,R14}
�ADR R0,BootFile%
�"SWI"XResourceFS_RegisterFiles"
�LDMFD R13!,{R0,PC}^
�	.End%
�STMFD R13!,{R0,R14}
�ADR R0,BootFile%
	$SWI"XResourceFS_DeregisterFiles"
	LDMFD R13!,{R0,PC}^
	
.Service%
	$TEQ R1,#&60
	.MOVNE PC,R14
	8STMFD R13!,{R0-R3,R14}
	BADR R0,BootFile%
	LMOV R14,PC
	V
MOV PC,R2
	`LDMFD R13!,{R0-R3,PC}^
	j.BootFile%
	tEQUD RunFile%-P%
	~EQUD&FFFFEB44
	�EQUD&31A75225
	�EQUD 11+�SourceName$
	�EQUD&00000003
	�$EQUS"Apps."+AppName$+".!Boot"+�0
	�	ALIGN
	�EQUD 15+�SourceName$
	�$EQUS"Filer_Boot "+SourceName$+�0
	�	ALIGN
	�
.RunFile%
	�EQUD Blank%-P%
	�EQUD&FFFFEB44
	�EQUD&31A75568
EQUD 10+�SourceName$

EQUD&00000003
#EQUS"Apps."+AppName$+".!Run"+�0
	ALIGN
(EQUD 14+�SourceName$
2#EQUS"Filer_Run "+SourceName$+�0
<	ALIGN
F.Blank%
PEQUD&00000000
Z]
d#�"Pass ";Pass%;" successful..."
n
�Pass%
x+ș"OS_File",10,FileName$,&FFA,,Code%,O%
��
�3��_SaveDirectory(SourcePath$,FileName$,IDName$)
��_CreateModuleHeader
��_CreatePath("")
�2ș"OS_File",10,FileName$,&FFA,,Code%,LastByte%
��
���_CreateModuleHeader
�Title$=�_OSString(ModName%)
�"�"Assembling Module Header..."
��Pass%=4�6�2
�O%=Code%
�P%=&00000000
�[

OPT Pass%
EQUD&00000000
EQUD Start%
"
EQUD End%
,EQUD Service%
6EQUD Title%
@EQUD Help%
JEQUD&00000000
TEQUD&00000000
^EQUD&00000000
hEQUD&00000000
rEQUD&00000000
|.Title%
�EQUS Title$
�EQUB&00
�	ALIGN
�
.Help%
�EQUS Title$
�
EQUW&0909
�%EQUS"1.10 (9th Dec 1992) !Utils "
�EQUB&00
�	ALIGN
�.Start%
�STMFD R13!,{R0,R14}
�ADR R0,TableOffset%
�"SWI"XResourceFS_RegisterFiles"
LDMFD R13!,{R0,PC}^
	.End%
STMFD R13!,{R0,R14}
&ADR R0,TableOffset%
0$SWI"XResourceFS_DeregisterFiles"
:LDMFD R13!,{R0,PC}^
D
.Service%
NTEQ R1,#&60
XMOVNE PC,R14
bSTMFD R13!,{R0-R3,R14}
lADR R0,TableOffset%
vMOV R14,PC
�
MOV PC,R2
�EQUD&E8FD800F
�.TableOffset%
�]
�
�Pass%
�Table%=Code%+TableOffset%
�LastByte%=O%
��
���_CreatePath(ExtPath$)
��Next%,LeafName$,FileName$
��TempSource$,TempFile$
�7�"Creating files in directory :"SourcePath$ExtPath$
�Next%=0

�

Mș"OS_GBPB",10,SourcePath$+ExtPath$,Block%,1,Next%,256,"*"�,,Read%,,Next%

�Next%<>-1�

 "LeafName$=�_OSString(Read%+20)

*�(Read%!16)=2�

4�ExtPath$=""�

>�_CreatePath("."+LeafName$)

H�

R(�_CreatePath(ExtPath$+"."+LeafName$)

\�

f�

p�ExtPath$=""�

z5�_CreateFile(SourcePath$+"."+LeafName$,LeafName$)

��

�2TempSource$=SourcePath$+ExtPath$+"."+LeafName$

�(TempFile$=�ExtPath$,2)+"."+LeafName$

�'�_CreateFile(TempSource$,TempFile$)

��

��

��

�
�Next%=-1

��

�0��_CreateFile(SourceFileName$,DestFileName$)

�%�"  Creating File :"DestFileName$

�Qș"OS_File",17,SourceFileName$�Type%,,LoadAddr%,ExecAddr%,FileLength%,Attrib%

��Type%=0��0,"Not Found"
*�Type%=2��0,"Can't do directories yet"
-�FileLength%>500*1024��0,"Very Long File"
 NameEnd%=20+�(DestFileName$)
$!Offset%=NameEnd%+4-NameEnd%�4
.FileStart%=Table%+Offset%+4
8#FileEnd%=FileStart%+FileLength%
B$NextTable%=FileEnd%+4-FileEnd%�4
LTable%!0=NextTable%-Table%
VTable%!4=LoadAddr%
`Table%!8=ExecAddr%
j!Table%!12=FileEnd%-FileStart%
tTable%!16=&00000003
~%$(Table%+20)=DestFileName$+�5,�0)
�(Table%!Offset%=4+FileEnd%-FileStart%
�7�n%=FileStart%+FileLength%�FileStart%+FileLength%+5
�	?n%=0
��
�-ș"OS_File",16,SourceFileName$,FileStart%
�NextTable%!0=0
�NextTable%!4=0
�Table%=NextTable%
�LastByte%=NextTable%+8
��
���_Error
��Error$,Answer%
�

��ș"Wimp_CloseDown":�
HError$=�$+" (Error Code "+�(�)+")    OK to Continue, CANCEL to QUIT"
Answer%=�_Message(Error$,3)
(�Answer%=0�
2ș"Wimp_CloseDown"
<�
F�
P��
Z�
d��_Initalise
n�Block%1024,SubBlock%1024
x�Code%MaxModSize%*&400
�Exit%=�
�App$="ResourceFS Modifier"
�6ș"Wimp_Initialise",200,&4B534154,App$�Wimp%,Task%
�$SourceDirIcon%=9:ModNameIcon%=10
�FileNameIcon%=11
�HelpIcon%=13:DragIcon%=12
��TemplateSpace%1024
�TemplatePtr%=TemplateSpace%
�$TemplateEnd%=TemplateSpace%+1024
�3ș"Wimp_OpenTemplate",,"<ResMod$Dir>.Templates"
�Vș"Wimp_LoadTemplate",,Block%,TemplatePtr%,TemplateEnd%,-1,"Info",0�,,TemplatePtr%
�*ș"Wimp_CreateWindow",,Block%�InfoWin%
�Vș"Wimp_LoadTemplate",,Block%,TemplatePtr%,TemplateEnd%,-1,"Main",0�,,TemplatePtr%
*ș"Wimp_CreateWindow",,Block%�MainWin%
ș"Wimp_CloseTemplate"
SubBlock%!0=MainWin%
"'ș"Wimp_GetWindowState",0,SubBlock%
,SubBlock%!28=-1
6#ș"Wimp_OpenWindow",0,SubBlock%
@2SourceDir%=�_GetIndir(MainWin%,SourceDirIcon%)
J.ModName%=�_GetIndir(MainWin%,ModNameIcon%)
T0FileIcon%=�_GetIndir(MainWin%,FileNameIcon%)
^�
�

00000000  0d 00 0a 19 f4 20 20 20  20 20 20 20 20 20 20 3e  |.....          >|
00000010  21 52 75 6e 49 6d 61 67  65 0d 00 14 13 4d 61 78  |!RunImage....Max|
00000020  4d 6f 64 53 69 7a 65 25  3d 34 39 30 0d 00 1e 0f  |ModSize%=490....|
00000030  f2 5f 49 6e 69 74 61 6c  69 73 65 0d 00 28 0d ee  |._Initalise..(..|
00000040  85 f2 5f 45 72 72 6f 72  0d 00 32 05 f5 0d 00 3c  |.._Error..2....<|
00000050  0e 42 6c 6f 63 6b 25 21  30 3d 30 0d 00 46 22 c8  |.Block%!0=0..F".|
00000060  99 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 30 2c 42  |."Wimp_Poll",0,B|
00000070  6c 6f 63 6b 25 b8 52 65  61 73 6f 6e 25 0d 00 50  |lock%.Reason%..P|
00000080  0e c8 8e 52 65 61 73 6f  6e 25 ca 0d 00 5a 15 c9  |...Reason%...Z..|
00000090  31 3a f2 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |1:._RedrawWindow|
000000a0  0d 00 64 22 c9 32 3a c8  99 22 57 69 6d 70 5f 4f  |..d".2:.."Wimp_O|
000000b0  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 42 6c 6f 63  |penWindow",,Bloc|
000000c0  6b 25 0d 00 6e 23 c9 33  3a c8 99 22 57 69 6d 70  |k%..n#.3:.."Wimp|
000000d0  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 42  |_CloseWindow",,B|
000000e0  6c 6f 63 6b 25 0d 00 78  0b 45 78 69 74 25 3d b9  |lock%..x.Exit%=.|
000000f0  0d 00 82 13 c9 36 3a f2  5f 4d 6f 75 73 65 43 6c  |.....6:._MouseCl|
00000100  69 63 6b 0d 00 8c 10 c9  37 3a f2 5f 44 72 61 67  |ick.....7:._Drag|
00000110  45 6e 64 0d 00 96 1b c9  31 37 2c 31 38 3a f2 5f  |End.....17,18:._|
00000120  52 65 63 69 65 76 65 4d  65 73 73 61 67 65 0d 00  |RecieveMessage..|
00000130  a0 05 cb 0d 00 aa 0a fd  45 78 69 74 25 0d 00 b4  |........Exit%...|
00000140  20 c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  | .."Wimp_CloseDo|
00000150  77 6e 22 2c 26 34 42 35  33 34 31 35 34 0d 00 be  |wn",&4B534154...|
00000160  05 e0 0d 00 c8 13 dd f2  5f 52 65 64 72 61 77 57  |........_RedrawW|
00000170  69 6e 64 6f 77 0d 00 d2  27 c8 99 22 57 69 6d 70  |indow...'.."Wimp|
00000180  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
00000190  42 6c 6f 63 6b 25 b8 4d  6f 72 65 25 0d 00 dc 0b  |Block%.More%....|
000001a0  c8 95 4d 6f 72 65 25 0d  00 e6 21 c8 99 22 57 69  |..More%...!.."Wi|
000001b0  6d 70 5f 42 6f 72 64 65  72 57 69 6e 64 6f 77 22  |mp_BorderWindow"|
000001c0  2c 2c 42 6c 6f 63 6b 25  0d 00 f0 27 c8 99 22 57  |,,Block%...'.."W|
000001d0  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
000001e0  22 2c 2c 42 6c 6f 63 6b  25 b8 4d 6f 72 65 25 0d  |",,Block%.More%.|
000001f0  00 fa 05 ce 0d 01 04 05  e1 0d 01 0e 11 dd f2 5f  |..............._|
00000200  4d 6f 75 73 65 43 6c 69  63 6b 0d 01 18 14 42 75  |MouseClick....Bu|
00000210  74 74 6f 6e 25 3d 42 6c  6f 63 6b 25 21 38 0d 01  |tton%=Block%!8..|
00000220  22 15 57 69 6e 64 6f 77  25 3d 42 6c 6f 63 6b 25  |".Window%=Block%|
00000230  21 31 32 0d 01 2c 13 49  63 6f 6e 25 3d 42 6c 6f  |!12..,.Icon%=Blo|
00000240  63 6b 25 21 31 36 0d 01  36 0e c8 8e 42 75 74 74  |ck%!16..6...Butt|
00000250  6f 6e 25 ca 0d 01 40 45  c9 31 2c 34 3a e7 49 63  |on%...@E.1,4:.Ic|
00000260  6f 6e 25 3d 48 65 6c 70  49 63 6f 6e 25 8c c8 99  |on%=HelpIcon%...|
00000270  22 57 69 6d 70 5f 53 74  61 72 74 54 61 73 6b 22  |"Wimp_StartTask"|
00000280  2c 22 52 75 6e 20 3c 52  65 73 4d 6f 64 24 44 69  |,"Run <ResMod$Di|
00000290  72 3e 2e 21 48 65 6c 70  22 0d 01 4a 17 c9 32 3a  |r>.!Help"..J..2:|
000002a0  f2 5f 53 65 74 50 6f 69  6e 74 65 72 56 61 72 73  |._SetPointerVars|
000002b0  0d 01 54 34 c8 99 22 57  69 6d 70 5f 43 72 65 61  |..T4.."Wimp_Crea|
000002c0  74 65 4d 65 6e 75 22 2c  2c 49 6e 66 6f 57 69 6e  |teMenu",,InfoWin|
000002d0  25 2c 4d 6f 75 73 65 58  25 2d 36 38 2c 4d 6f 75  |%,MouseX%-68,Mou|
000002e0  73 65 59 25 0d 01 5e 16  c9 31 36 2c 36 34 3a f2  |seY%..^..16,64:.|
000002f0  5f 44 72 61 67 53 74 61  72 74 0d 01 68 05 cb 0d  |_DragStart..h...|
00000300  01 72 05 e1 0d 01 7c 10  dd f2 5f 44 72 61 67 53  |.r....|..._DragS|
00000310  74 61 72 74 0d 01 86 13  f2 5f 53 65 74 57 69 6e  |tart....._SetWin|
00000320  64 6f 77 56 61 72 73 0d  01 90 15 42 6c 6f 63 6b  |dowVars....Block|
00000330  25 21 30 3d 4d 61 69 6e  57 69 6e 25 0d 01 9a 16  |%!0=MainWin%....|
00000340  42 6c 6f 63 6b 25 21 34  3d 44 72 61 67 49 63 6f  |Block%!4=DragIco|
00000350  6e 25 0d 01 a4 21 c8 99  22 57 69 6d 70 5f 47 65  |n%...!.."Wimp_Ge|
00000360  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 42 6c 6f  |tIconState",,Blo|
00000370  63 6b 25 0d 01 ae 15 42  6c 6f 63 6b 25 21 30 3d  |ck%....Block%!0=|
00000380  4d 61 69 6e 57 69 6e 25  0d 01 b8 0e 42 6c 6f 63  |MainWin%....Bloc|
00000390  6b 25 21 34 3d 35 0d 01  c2 14 42 6c 6f 63 6b 25  |k%!4=5....Block%|
000003a0  21 38 2b 3d 44 69 73 70  58 25 0d 01 cc 15 42 6c  |!8+=DispX%....Bl|
000003b0  6f 63 6b 25 21 31 32 2b  3d 44 69 73 70 59 25 0d  |ock%!12+=DispY%.|
000003c0  01 d6 15 42 6c 6f 63 6b  25 21 31 36 2b 3d 44 69  |...Block%!16+=Di|
000003d0  73 70 58 25 0d 01 e0 15  42 6c 6f 63 6b 25 21 32  |spX%....Block%!2|
000003e0  30 2b 3d 44 69 73 70 59  25 0d 01 ea 0f 42 6c 6f  |0+=DispY%....Blo|
000003f0  63 6b 25 21 32 34 3d 30  0d 01 f4 0f 42 6c 6f 63  |ck%!24=0....Bloc|
00000400  6b 25 21 32 38 3d 30 0d  01 fe 17 42 6c 6f 63 6b  |k%!28=0....Block|
00000410  25 21 33 32 3d 26 37 46  46 46 46 46 46 46 0d 02  |%!32=&7FFFFFFF..|
00000420  08 17 42 6c 6f 63 6b 25  21 33 36 3d 26 37 46 46  |..Block%!36=&7FF|
00000430  46 46 46 46 46 0d 02 12  1c c8 99 22 57 69 6d 70  |FFFFF......"Wimp|
00000440  5f 44 72 61 67 42 6f 78  22 2c 2c 42 6c 6f 63 6b  |_DragBox",,Block|
00000450  25 0d 02 1c 05 e1 0d 02  26 0e dd f2 5f 44 72 61  |%.......&..._Dra|
00000460  67 45 6e 64 0d 02 30 13  f2 5f 53 65 74 57 69 6e  |gEnd..0.._SetWin|
00000470  64 6f 77 56 61 72 73 0d  02 3a 14 f2 5f 53 65 74  |dowVars..:.._Set|
00000480  50 6f 69 6e 74 65 72 56  61 72 73 0d 02 44 23 46  |PointerVars..D#F|
00000490  69 6c 65 4e 61 6d 65 24  3d a4 5f 4f 53 53 74 72  |ileName$=._OSStr|
000004a0  69 6e 67 28 46 69 6c 65  49 63 6f 6e 25 29 0d 02  |ing(FileIcon%)..|
000004b0  4e 26 4c 65 61 66 4e 61  6d 65 24 3d a4 5f 47 65  |N&LeafName$=._Ge|
000004c0  74 4c 65 61 66 4e 61 6d  65 28 46 69 6c 65 4e 61  |tLeafName(FileNa|
000004d0  6d 65 24 29 0d 02 58 0f  42 6c 6f 63 6b 25 21 30  |me$)..X.Block%!0|
000004e0  3d 38 30 0d 02 62 0e 42  6c 6f 63 6b 25 21 34 3d  |=80..b.Block%!4=|
000004f0  30 0d 02 6c 0e 42 6c 6f  63 6b 25 21 38 3d 30 0d  |0..l.Block%!8=0.|
00000500  02 76 0f 42 6c 6f 63 6b  25 21 31 32 3d 30 0d 02  |.v.Block%!12=0..|
00000510  80 0f 42 6c 6f 63 6b 25  21 31 36 3d 31 0d 02 8a  |..Block%!16=1...|
00000520  15 42 6c 6f 63 6b 25 21  32 30 3d 57 69 6e 64 6f  |.Block%!20=Windo|
00000530  77 25 0d 02 94 13 42 6c  6f 63 6b 25 21 32 34 3d  |w%....Block%!24=|
00000540  49 63 6f 6e 25 0d 02 9e  15 42 6c 6f 63 6b 25 21  |Icon%....Block%!|
00000550  32 38 3d 4d 6f 75 73 65  58 25 0d 02 a8 15 42 6c  |28=MouseX%....Bl|
00000560  6f 63 6b 25 21 33 32 3d  4d 6f 75 73 65 59 25 0d  |ock%!32=MouseY%.|
00000570  02 b2 12 42 6c 6f 63 6b  25 21 33 36 3d 31 30 32  |...Block%!36=102|
00000580  34 0d 02 bc 12 42 6c 6f  63 6b 25 21 34 30 3d 26  |4....Block%!40=&|
00000590  46 46 41 0d 02 c6 1a 24  28 42 6c 6f 63 6b 25 2b  |FFA....$(Block%+|
000005a0  34 34 29 3d 4c 65 61 66  4e 61 6d 65 24 0d 02 d0  |44)=LeafName$...|
000005b0  30 c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |0.."Wimp_SendMes|
000005c0  73 61 67 65 22 2c 31 37  2c 42 6c 6f 63 6b 25 2c  |sage",17,Block%,|
000005d0  57 69 6e 64 6f 77 25 2c  49 63 6f 6e 25 0d 02 da  |Window%,Icon%...|
000005e0  05 e1 0d 02 e4 15 dd f2  5f 52 65 63 69 65 76 65  |........_Recieve|
000005f0  4d 65 73 73 61 67 65 0d  02 ee 16 59 6f 75 72 48  |Message....YourH|
00000600  6e 64 6c 25 3d 42 6c 6f  63 6b 25 21 34 0d 02 f8  |ndl%=Block%!4...|
00000610  13 4d 79 52 65 66 25 3d  42 6c 6f 63 6b 25 21 38  |.MyRef%=Block%!8|
00000620  0d 03 02 16 59 6f 75 72  52 65 66 25 3d 42 6c 6f  |....YourRef%=Blo|
00000630  63 6b 25 21 31 32 0d 03  0c 15 41 63 74 69 6f 6e  |ck%!12....Action|
00000640  25 3d 42 6c 6f 63 6b 25  21 31 36 0d 03 16 0e c8  |%=Block%!16.....|
00000650  8e 41 63 74 69 6f 6e 25  ca 0d 03 20 0e c9 30 3a  |.Action%... ..0:|
00000660  45 78 69 74 25 3d b9 0d  03 2a 1c c9 32 3a f2 5f  |Exit%=...*..2:._|
00000670  4d 65 73 73 61 67 65 5f  44 61 74 61 53 61 76 65  |Message_DataSave|
00000680  41 63 6b 0d 03 34 19 c9  33 3a f2 5f 4d 65 73 73  |Ack..4..3:._Mess|
00000690  61 67 65 5f 44 61 74 61  4c 6f 61 64 0d 03 3e 06  |age_DataLoad..>.|
000006a0  c9 34 0d 03 48 05 cb 0d  03 52 05 e1 0d 03 5c 1a  |.4..H....R....\.|
000006b0  dd f2 5f 4d 65 73 73 61  67 65 5f 44 61 74 61 53  |.._Message_DataS|
000006c0  61 76 65 41 63 6b 0d 03  66 23 46 69 6c 65 4e 61  |aveAck..f#FileNa|
000006d0  6d 65 24 3d a4 5f 4f 53  53 74 72 69 6e 67 28 42  |me$=._OSString(B|
000006e0  6c 6f 63 6b 25 2b 34 34  29 0d 03 70 26 53 6f 75  |lock%+44)..p&Sou|
000006f0  72 63 65 4e 61 6d 65 24  3d a4 5f 4f 53 53 74 72  |rceName$=._OSStr|
00000700  69 6e 67 28 53 6f 75 72  63 65 44 69 72 25 29 0d  |ing(SourceDir%).|
00000710  03 7a 20 49 44 4e 61 6d  65 24 3d a4 5f 4f 53 53  |.z IDName$=._OSS|
00000720  74 72 69 6e 67 28 4d 6f  64 4e 61 6d 65 25 29 0d  |tring(ModName%).|
00000730  03 84 22 e7 a4 5f 43 68  65 63 6b 46 69 6c 65 4e  |..".._CheckFileN|
00000740  61 6d 65 28 46 69 6c 65  4e 61 6d 65 24 2c b9 29  |ame(FileName$,.)|
00000750  8c 0d 03 8e 23 c8 99 22  57 69 6d 70 5f 43 6f 6d  |....#.."Wimp_Com|
00000760  6d 61 6e 64 57 69 6e 64  6f 77 22 2c 22 52 65 73  |mandWindow","Res|
00000770  4d 6f 64 22 0d 03 98 25  c8 8e c0 a4 5f 47 65 74  |Mod"...%...._Get|
00000780  4c 65 61 66 4e 61 6d 65  28 53 6f 75 72 63 65 4e  |LeafName(SourceN|
00000790  61 6d 65 24 29 2c 31 29  ca 0d 03 a2 38 c9 22 21  |ame$),1)....8."!|
000007a0  22 3a f2 5f 53 61 76 65  56 69 72 74 75 61 6c 41  |":._SaveVirtualA|
000007b0  70 70 28 53 6f 75 72 63  65 4e 61 6d 65 24 2c 46  |pp(SourceName$,F|
000007c0  69 6c 65 4e 61 6d 65 24  2c 49 44 4e 61 6d 65 24  |ileName$,IDName$|
000007d0  29 0d 03 ac 34 7f 3a f2  5f 53 61 76 65 44 69 72  |)...4.:._SaveDir|
000007e0  65 63 74 6f 72 79 28 53  6f 75 72 63 65 4e 61 6d  |ectory(SourceNam|
000007f0  65 24 2c 46 69 6c 65 4e  61 6d 65 24 2c 49 44 4e  |e$,FileName$,IDN|
00000800  61 6d 65 24 29 0d 03 b6  05 cb 0d 03 c0 1d c8 99  |ame$)...........|
00000810  22 57 69 6d 70 5f 43 6f  6d 6d 61 6e 64 57 69 6e  |"Wimp_CommandWin|
00000820  64 6f 77 22 2c 2d 31 0d  03 ca 0b 45 78 69 74 25  |dow",-1....Exit%|
00000830  3d b9 0d 03 d4 05 cd 0d  03 de 05 e1 0d 03 e8 17  |=...............|
00000840  dd f2 5f 4d 65 73 73 61  67 65 5f 44 61 74 61 4c  |.._Message_DataL|
00000850  6f 61 64 0d 03 f2 17 46  69 6c 65 54 79 70 65 25  |oad....FileType%|
00000860  3d 42 6c 6f 63 6b 25 21  34 30 0d 03 fc 23 46 69  |=Block%!40...#Fi|
00000870  6c 65 4e 61 6d 65 24 3d  a4 5f 4f 53 53 74 72 69  |leName$=._OSStri|
00000880  6e 67 28 42 6c 6f 63 6b  25 2b 34 34 29 0d 04 06  |ng(Block%+44)...|
00000890  19 24 53 6f 75 72 63 65  44 69 72 25 3d 46 69 6c  |.$SourceDir%=Fil|
000008a0  65 4e 61 6d 65 24 0d 04  10 15 f2 5f 53 65 6e 64  |eName$....._Send|
000008b0  44 61 74 61 4c 6f 61 64  41 63 6b 0d 04 1a 11 f2  |DataLoadAck.....|
000008c0  5f 46 6f 72 63 65 52 65  64 72 61 77 0d 04 24 05  |_ForceRedraw..$.|
000008d0  e1 0d 04 2e 16 dd f2 5f  53 65 6e 64 44 61 74 61  |......._SendData|
000008e0  4c 6f 61 64 41 63 6b 0d  04 38 14 42 6c 6f 63 6b  |LoadAck..8.Block|
000008f0  25 21 31 32 3d 4d 79 52  65 66 25 0d 04 42 0f 42  |%!12=MyRef%..B.B|
00000900  6c 6f 63 6b 25 21 31 36  3d 34 0d 04 4c 2c c8 99  |lock%!16=4..L,..|
00000910  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00000920  65 22 2c 31 37 2c 42 6c  6f 63 6b 25 2c 59 6f 75  |e",17,Block%,You|
00000930  72 48 6e 64 6c 25 0d 04  56 05 e1 0d 04 60 24 dd  |rHndl%..V....`$.|
00000940  a4 5f 47 65 74 49 6e 64  69 72 28 47 65 74 57 69  |._GetIndir(GetWi|
00000950  6e 64 6f 77 25 2c 47 65  74 49 63 6f 6e 25 29 0d  |ndow%,GetIcon%).|
00000960  04 6a 0d ea 54 65 78 74  50 74 72 25 0d 04 74 1a  |.j..TextPtr%..t.|
00000970  53 75 62 42 6c 6f 63 6b  25 21 30 3d 47 65 74 57  |SubBlock%!0=GetW|
00000980  69 6e 64 6f 77 25 0d 04  7e 18 53 75 62 42 6c 6f  |indow%..~.SubBlo|
00000990  63 6b 25 21 34 3d 47 65  74 49 63 6f 6e 25 0d 04  |ck%!4=GetIcon%..|
000009a0  88 24 c8 99 22 57 69 6d  70 5f 47 65 74 49 63 6f  |.$.."Wimp_GetIco|
000009b0  6e 53 74 61 74 65 22 2c  2c 53 75 62 42 6c 6f 63  |nState",,SubBloc|
000009c0  6b 25 0d 04 92 19 54 65  78 74 50 74 72 25 3d 53  |k%....TextPtr%=S|
000009d0  75 62 42 6c 6f 63 6b 25  21 32 38 0d 04 9c 0d 3d  |ubBlock%!28....=|
000009e0  54 65 78 74 50 74 72 25  0d 04 a6 12 dd f2 5f 46  |TextPtr%......_F|
000009f0  6f 72 63 65 52 65 64 72  61 77 0d 04 b0 18 53 75  |orceRedraw....Su|
00000a00  62 42 6c 6f 63 6b 25 21  30 3d 4d 61 69 6e 57 69  |bBlock%!0=MainWi|
00000a10  6e 25 0d 04 ba 26 c8 99  22 57 69 6d 70 5f 47 65  |n%...&.."Wimp_Ge|
00000a20  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 53  |tWindowState",,S|
00000a30  75 62 42 6c 6f 63 6b 25  0d 04 c4 2d 56 69 73 4d  |ubBlock%...-VisM|
00000a40  69 6e 58 25 3d 53 75 62  42 6c 6f 63 6b 25 21 34  |inX%=SubBlock%!4|
00000a50  3a 56 69 73 4d 69 6e 59  25 3d 53 75 62 42 6c 6f  |:VisMinY%=SubBlo|
00000a60  63 6b 25 21 38 0d 04 ce  2f 56 69 73 4d 61 78 58  |ck%!8.../VisMaxX|
00000a70  25 3d 53 75 62 42 6c 6f  63 6b 25 21 31 32 3a 56  |%=SubBlock%!12:V|
00000a80  69 73 4d 61 78 59 25 3d  53 75 62 42 6c 6f 63 6b  |isMaxY%=SubBlock|
00000a90  25 21 31 36 0d 04 d8 3f  c8 99 22 57 69 6d 70 5f  |%!16...?.."Wimp_|
00000aa0  46 6f 72 63 65 52 65 64  72 61 77 22 2c 2d 31 2c  |ForceRedraw",-1,|
00000ab0  56 69 73 4d 69 6e 58 25  2c 56 69 73 4d 69 6e 59  |VisMinX%,VisMinY|
00000ac0  25 2c 56 69 73 4d 61 78  58 25 2c 56 69 73 4d 61  |%,VisMaxX%,VisMa|
00000ad0  78 59 25 0d 04 e2 05 e1  0d 04 ec 1f dd a4 5f 4d  |xY%..........._M|
00000ae0  65 73 73 61 67 65 28 4d  65 73 73 61 67 65 24 2c  |essage(Message$,|
00000af0  46 6c 61 67 73 25 29 0d  04 f6 0c ea 41 6e 73 77  |Flags%).....Answ|
00000b00  65 72 25 0d 05 00 13 e7  4d 65 73 73 61 67 65 24  |er%.....Message$|
00000b10  3d 22 22 8c 3d b9 0d 05  0a 10 21 53 75 62 42 6c  |="".=.....!SubBl|
00000b20  6f 63 6b 25 3d 30 0d 05  14 1b 24 28 53 75 62 42  |ock%=0....$(SubB|
00000b30  6c 6f 63 6b 25 2b 34 29  3d 4d 65 73 73 61 67 65  |lock%+4)=Message|
00000b40  24 0d 05 1e 37 c8 99 22  57 69 6d 70 5f 52 65 70  |$...7.."Wimp_Rep|
00000b50  6f 72 74 45 72 72 6f 72  22 2c 53 75 62 42 6c 6f  |ortError",SubBlo|
00000b60  63 6b 25 2c 46 6c 61 67  73 25 2c 41 70 70 24 b8  |ck%,Flags%,App$.|
00000b70  2c 41 6e 73 77 65 72 25  0d 05 28 0f e7 41 6e 73  |,Answer%..(..Ans|
00000b80  77 65 72 25 3d 31 8c 0d  05 32 0d 41 6e 73 77 65  |wer%=1...2.Answe|
00000b90  72 25 3d b9 0d 05 3c 05  cc 0d 05 46 0d 41 6e 73  |r%=...<....F.Ans|
00000ba0  77 65 72 25 3d a3 0d 05  50 05 cd 0d 05 5a 0c 3d  |wer%=...P....Z.=|
00000bb0  41 6e 73 77 65 72 25 0d  05 64 19 dd a4 5f 4f 53  |Answer%..d..._OS|
00000bc0  53 74 72 69 6e 67 28 41  64 64 72 65 73 73 25 29  |String(Address%)|
00000bd0  0d 05 6e 1c ea 4c 6f 63  61 6c 41 64 64 72 25 2c  |..n..LocalAddr%,|
00000be0  4f 6c 64 25 2c 53 74 72  69 6e 67 24 0d 05 78 06  |Old%,String$..x.|
00000bf0  ea 85 0d 05 82 47 ee 85  ea 4f 4b 25 3d a4 5f 4d  |.....G...OK%=._M|
00000c00  65 73 73 61 67 65 28 22  49 6e 76 61 6c 69 64 20  |essage("Invalid |
00000c10  6d 65 6d 6f 72 79 20 61  64 64 72 65 73 73 20 28  |memory address (|
00000c20  61 64 64 72 65 73 73 20  65 78 63 65 70 74 69 6f  |address exceptio|
00000c30  6e 3f 29 22 2c 30 29 3a  e0 0d 05 8c 17 4c 6f 63  |n?)",0):.....Loc|
00000c40  61 6c 41 64 64 72 25 3d  41 64 64 72 65 73 73 25  |alAddr%=Address%|
00000c50  0d 05 96 25 c8 95 3f 4c  6f 63 61 6c 41 64 64 72  |...%..?LocalAddr|
00000c60  25 3e 33 31 80 3f 4c 6f  63 61 6c 41 64 64 72 25  |%>31.?LocalAddr%|
00000c70  3c 3e 31 32 37 0d 05 a0  11 4c 6f 63 61 6c 41 64  |<>127....LocalAd|
00000c80  64 72 25 2b 3d 31 0d 05  aa 1d e7 4c 6f 63 61 6c  |dr%+=1.....Local|
00000c90  41 64 64 72 25 3e 41 64  64 72 65 73 73 25 2b 32  |Addr%>Address%+2|
00000ca0  35 35 8c 0d 05 b4 48 4f  4b 25 3d a4 5f 4d 65 73  |55....HOK%=._Mes|
00000cb0  73 61 61 67 65 28 22 53  74 72 69 6e 67 20 6c 6f  |saage("String lo|
00000cc0  6e 67 65 72 20 74 68 61  6e 20 32 35 35 20 62 79  |nger than 255 by|
00000cd0  74 65 73 3a 20 49 6e 76  61 6c 69 64 20 61 64 64  |tes: Invalid add|
00000ce0  72 65 73 73 3f 22 2c 30  29 3a e0 0d 05 be 05 cd  |ress?",0):......|
00000cf0  0d 05 c8 05 ce 0d 05 d2  14 4f 6c 64 25 3d 3f 4c  |.........Old%=?L|
00000d00  6f 63 61 6c 41 64 64 72  25 0d 05 dc 12 3f 4c 6f  |ocalAddr%....?Lo|
00000d10  63 61 6c 41 64 64 72 25  3d 31 33 0d 05 e6 15 53  |calAddr%=13....S|
00000d20  74 72 69 6e 67 24 3d 24  41 64 64 72 65 73 73 25  |tring$=$Address%|
00000d30  0d 05 f0 14 3f 4c 6f 63  61 6c 41 64 64 72 25 3d  |....?LocalAddr%=|
00000d40  4f 6c 64 25 0d 05 fa 0c  3d 53 74 72 69 6e 67 24  |Old%....=String$|
00000d50  0d 06 04 1d dd a4 5f 47  65 74 4c 65 61 66 4e 61  |......_GetLeafNa|
00000d60  6d 65 28 46 69 6c 65 4e  61 6d 65 24 29 0d 06 0e  |me(FileName$)...|
00000d70  07 ea 6e 25 0d 06 18 2c  e7 a7 46 69 6c 65 4e 61  |..n%...,..FileNa|
00000d80  6d 65 24 2c 22 3c 57 69  6d 70 24 53 63 72 61 70  |me$,"<Wimp$Scrap|
00000d90  3e 22 29 8c 3d 22 53 63  72 61 70 46 69 6c 65 22  |>").="ScrapFile"|
00000da0  0d 06 22 11 6e 25 3d a9  46 69 6c 65 4e 61 6d 65  |..".n%=.FileName|
00000db0  24 0d 06 2c 20 c8 95 c1  46 69 6c 65 4e 61 6d 65  |$.., ...FileName|
00000dc0  24 2c 6e 25 2c 31 29 3d  22 20 22 80 20 6e 25 3e  |$,n%,1)=" ". n%>|
00000dd0  30 0d 06 36 09 6e 25 2d  3d 31 0d 06 40 05 ce 0d  |0..6.n%-=1..@...|
00000de0  06 4a 1c 46 69 6c 65 4e  61 6d 65 24 3d c0 46 69  |.J.FileName$=.Fi|
00000df0  6c 65 4e 61 6d 65 24 2c  6e 25 29 0d 06 54 21 c8  |leName$,n%)..T!.|
00000e00  95 c1 46 69 6c 65 4e 61  6d 65 24 2c 6e 25 2c 31  |..FileName$,n%,1|
00000e10  29 3c 3e 22 2e 22 80 20  6e 25 3e 30 0d 06 5e 09  |)<>".". n%>0..^.|
00000e20  6e 25 2d 3d 31 0d 06 68  05 ce 0d 06 72 15 3d c1  |n%-=1..h....r.=.|
00000e30  46 69 6c 65 4e 61 6d 65  24 2c 6e 25 2b 31 29 0d  |FileName$,n%+1).|
00000e40  06 7c 2e dd a4 5f 43 68  65 63 6b 46 69 6c 65 4e  |.|..._CheckFileN|
00000e50  61 6d 65 28 47 65 6e 5f  4e 61 6d 65 24 2c 47 65  |ame(Gen_Name$,Ge|
00000e60  6e 5f 43 68 65 63 6b 50  61 74 68 25 29 0d 06 86  |n_CheckPath%)...|
00000e70  24 e7 47 65 6e 5f 4e 61  6d 65 24 3d 22 22 84 c2  |$.Gen_Name$=""..|
00000e80  47 65 6e 5f 4e 61 6d 65  24 2c 31 29 3d 22 2e 22  |Gen_Name$,1)="."|
00000e90  8c 0d 06 90 38 41 25 3d  a4 5f 4d 65 73 73 61 67  |....8A%=._Messag|
00000ea0  65 28 22 59 6f 75 20 6d  75 73 74 20 66 69 72 73  |e("You must firs|
00000eb0  74 20 73 70 65 63 69 66  79 20 61 20 66 69 6c 65  |t specify a file|
00000ec0  6e 61 6d 65 21 22 2c 31  29 0d 06 9a 06 3d a3 0d  |name!",1)....=..|
00000ed0  06 a4 05 cd 0d 06 ae 26  e7 47 65 6e 5f 43 68 65  |.......&.Gen_Che|
00000ee0  63 6b 50 61 74 68 25 80  a7 47 65 6e 5f 4e 61 6d  |ckPath%..Gen_Nam|
00000ef0  65 24 2c 22 2e 22 29 3d  30 8c 0d 06 b8 44 41 25  |e$,".")=0....DA%|
00000f00  3d a4 5f 4d 65 73 73 61  67 65 28 22 54 6f 20 73  |=._Message("To s|
00000f10  61 76 65 2c 20 64 72 61  67 20 66 69 6c 65 20 69  |ave, drag file i|
00000f20  63 6f 6e 20 74 6f 20 61  20 64 69 72 65 63 74 6f  |con to a directo|
00000f30  72 79 20 76 69 65 77 65  72 2e 22 2c 31 29 0d 06  |ry viewer.",1)..|
00000f40  c2 06 3d a3 0d 06 cc 05  cd 0d 06 d6 06 3d b9 0d  |..=..........=..|
00000f50  06 e0 15 dd f2 5f 53 65  74 50 6f 69 6e 74 65 72  |....._SetPointer|
00000f60  56 61 72 73 0d 06 ea 26  c8 99 22 57 69 6d 70 5f  |Vars...&.."Wimp_|
00000f70  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00000f80  2c 53 75 62 42 6c 6f 63  6b 25 0d 06 f4 17 4d 6f  |,SubBlock%....Mo|
00000f90  75 73 65 58 25 3d 53 75  62 42 6c 6f 63 6b 25 21  |useX%=SubBlock%!|
00000fa0  30 0d 06 fe 17 4d 6f 75  73 65 59 25 3d 53 75 62  |0....MouseY%=Sub|
00000fb0  42 6c 6f 63 6b 25 21 34  0d 07 08 17 42 75 74 74  |Block%!4....Butt|
00000fc0  6f 6e 25 3d 53 75 62 42  6c 6f 63 6b 25 21 38 0d  |on%=SubBlock%!8.|
00000fd0  07 12 18 57 69 6e 64 6f  77 25 3d 53 75 62 42 6c  |...Window%=SubBl|
00000fe0  6f 63 6b 25 21 31 32 0d  07 1c 16 49 63 6f 6e 25  |ock%!12....Icon%|
00000ff0  3d 53 75 62 42 6c 6f 63  6b 25 21 31 36 0d 07 26  |=SubBlock%!16..&|
00001000  05 e1 0d 07 30 14 dd f2  5f 53 65 74 57 69 6e 64  |....0..._SetWind|
00001010  6f 77 56 61 72 73 0d 07  3a 18 53 75 62 42 6c 6f  |owVars..:.SubBlo|
00001020  63 6b 25 21 30 3d 4d 61  69 6e 57 69 6e 25 0d 07  |ck%!0=MainWin%..|
00001030  44 26 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |D&.."Wimp_GetWin|
00001040  64 6f 77 53 74 61 74 65  22 2c 2c 53 75 62 42 6c  |dowState",,SubBl|
00001050  6f 63 6b 25 0d 07 4e 2d  56 69 73 4d 69 6e 58 25  |ock%..N-VisMinX%|
00001060  3d 53 75 62 42 6c 6f 63  6b 25 21 34 3a 56 69 73  |=SubBlock%!4:Vis|
00001070  4d 69 6e 59 25 3d 53 75  62 42 6c 6f 63 6b 25 21  |MinY%=SubBlock%!|
00001080  38 0d 07 58 2f 56 69 73  4d 61 78 58 25 3d 53 75  |8..X/VisMaxX%=Su|
00001090  62 42 6c 6f 63 6b 25 21  31 32 3a 56 69 73 4d 61  |bBlock%!12:VisMa|
000010a0  78 59 25 3d 53 75 62 42  6c 6f 63 6b 25 21 31 36  |xY%=SubBlock%!16|
000010b0  0d 07 62 2f 53 63 72 6f  6c 6c 58 25 3d 53 75 62  |..b/ScrollX%=Sub|
000010c0  42 6c 6f 63 6b 25 21 32  30 3a 53 63 72 6f 6c 6c  |Block%!20:Scroll|
000010d0  59 25 3d 53 75 62 42 6c  6f 63 6b 25 21 32 34 0d  |Y%=SubBlock%!24.|
000010e0  07 6c 1c 44 69 73 70 58  25 3d 56 69 73 4d 69 6e  |.l.DispX%=VisMin|
000010f0  58 25 2d 53 63 72 6f 6c  6c 58 25 0d 07 76 1c 44  |X%-ScrollX%..v.D|
00001100  69 73 70 59 25 3d 56 69  73 4d 61 78 59 25 2d 53  |ispY%=VisMaxY%-S|
00001110  63 72 6f 6c 6c 59 25 0d  07 80 05 e1 0d 07 8a 34  |crollY%........4|
00001120  dd f2 5f 53 61 76 65 56  69 72 74 75 61 6c 41 70  |.._SaveVirtualAp|
00001130  70 28 53 6f 75 72 63 65  4e 61 6d 65 24 2c 46 69  |p(SourceName$,Fi|
00001140  6c 65 4e 61 6d 65 24 2c  49 44 4e 61 6d 65 24 29  |leName$,IDName$)|
00001150  0d 07 94 18 41 70 70 4e  61 6d 65 24 3d 53 6f 75  |....AppName$=Sou|
00001160  72 63 65 4e 61 6d 65 24  0d 07 9e 14 e7 a7 41 70  |rceName$......Ap|
00001170  70 4e 61 6d 65 24 2c 22  2e 22 29 8c 0d 07 a8 05  |pName$,".").....|
00001180  f5 0d 07 b2 28 41 70 70  4e 61 6d 65 24 3d c1 41  |....(AppName$=.A|
00001190  70 70 4e 61 6d 65 24 2c  a7 41 70 70 4e 61 6d 65  |ppName$,.AppName|
000011a0  24 2c 22 2e 22 29 2b 31  29 0d 07 bc 15 fd a7 41  |$,".")+1)......A|
000011b0  70 70 4e 61 6d 65 24 2c  22 2e 22 29 3d 30 0d 07  |ppName$,".")=0..|
000011c0  c6 05 cd 0d 07 d0 10 e3  50 61 73 73 25 3d 34 b8  |........Pass%=4.|
000011d0  36 88 32 0d 07 da 0c 4f  25 3d 43 6f 64 65 25 0d  |6.2....O%=Code%.|
000011e0  07 e4 10 50 25 3d 26 30  30 30 30 30 30 30 30 0d  |...P%=&00000000.|
000011f0  07 ee 05 5b 0d 07 f8 0d  4f 50 54 20 50 61 73 73  |...[....OPT Pass|
00001200  25 0d 08 02 11 45 51 55  44 26 30 30 30 30 30 30  |%....EQUD&000000|
00001210  30 30 0d 08 0c 0f 45 51  55 44 20 53 74 61 72 74  |00....EQUD Start|
00001220  25 0d 08 16 0d 45 51 55  44 20 45 6e 64 25 0d 08  |%....EQUD End%..|
00001230  20 11 45 51 55 44 20 53  65 72 76 69 63 65 25 0d  | .EQUD Service%.|
00001240  08 2a 0f 45 51 55 44 20  54 69 74 6c 65 25 0d 08  |.*.EQUD Title%..|
00001250  34 0e 45 51 55 44 20 48  65 6c 70 25 0d 08 3e 11  |4.EQUD Help%..>.|
00001260  45 51 55 44 26 30 30 30  30 30 30 30 30 0d 08 48  |EQUD&00000000..H|
00001270  11 45 51 55 44 26 30 30  30 30 30 30 30 30 0d 08  |.EQUD&00000000..|
00001280  52 11 45 51 55 44 26 30  30 30 30 30 30 30 30 0d  |R.EQUD&00000000.|
00001290  08 5c 11 45 51 55 44 26  30 30 30 30 30 30 30 30  |.\.EQUD&00000000|
000012a0  0d 08 66 11 45 51 55 44  26 30 30 30 30 30 30 30  |..f.EQUD&0000000|
000012b0  30 0d 08 70 0b 2e 54 69  74 6c 65 25 0d 08 7a 13  |0..p..Title%..z.|
000012c0  45 51 55 53 20 49 44 4e  61 6d 65 24 2b bd 30 0d  |EQUS IDName$+.0.|
000012d0  08 84 09 41 4c 49 47 4e  0d 08 8e 0a 2e 48 65 6c  |...ALIGN.....Hel|
000012e0  70 25 0d 08 98 16 45 51  55 53 20 49 44 4e 61 6d  |p%....EQUS IDNam|
000012f0  65 24 2b bd 39 2b bd 39  0d 08 a2 28 45 51 55 53  |e$+.9+.9...(EQUS|
00001300  22 31 2e 31 30 20 28 39  74 68 20 44 65 63 20 31  |"1.10 (9th Dec 1|
00001310  39 39 32 29 20 21 55 74  69 6c 73 20 22 2b bd 30  |992) !Utils "+.0|
00001320  0d 08 ac 09 41 4c 49 47  4e 0d 08 b6 0b 2e 53 74  |....ALIGN.....St|
00001330  61 72 74 25 0d 08 c0 17  53 54 4d 46 44 20 52 31  |art%....STMFD R1|
00001340  33 21 2c 7b 52 30 2c 52  31 34 7d 0d 08 ca 14 41  |3!,{R0,R14}....A|
00001350  44 52 20 52 30 2c 42 6f  6f 74 46 69 6c 65 25 0d  |DR R0,BootFile%.|
00001360  08 d4 22 53 57 49 22 58  52 65 73 6f 75 72 63 65  |.."SWI"XResource|
00001370  46 53 5f 52 65 67 69 73  74 65 72 46 69 6c 65 73  |FS_RegisterFiles|
00001380  22 0d 08 de 17 4c 44 4d  46 44 20 52 31 33 21 2c  |"....LDMFD R13!,|
00001390  7b 52 30 2c 50 43 7d 5e  0d 08 e8 09 2e 45 6e 64  |{R0,PC}^.....End|
000013a0  25 0d 08 f2 17 53 54 4d  46 44 20 52 31 33 21 2c  |%....STMFD R13!,|
000013b0  7b 52 30 2c 52 31 34 7d  0d 08 fc 14 41 44 52 20  |{R0,R14}....ADR |
000013c0  52 30 2c 42 6f 6f 74 46  69 6c 65 25 0d 09 06 24  |R0,BootFile%...$|
000013d0  53 57 49 22 58 52 65 73  6f 75 72 63 65 46 53 5f  |SWI"XResourceFS_|
000013e0  44 65 72 65 67 69 73 74  65 72 46 69 6c 65 73 22  |DeregisterFiles"|
000013f0  0d 09 10 17 4c 44 4d 46  44 20 52 31 33 21 2c 7b  |....LDMFD R13!,{|
00001400  52 30 2c 50 43 7d 5e 0d  09 1a 0d 2e 53 65 72 76  |R0,PC}^.....Serv|
00001410  69 63 65 25 0d 09 24 0f  54 45 51 20 52 31 2c 23  |ice%..$.TEQ R1,#|
00001420  26 36 30 0d 09 2e 10 4d  4f 56 4e 45 20 50 43 2c  |&60....MOVNE PC,|
00001430  52 31 34 0d 09 38 1a 53  54 4d 46 44 20 52 31 33  |R14..8.STMFD R13|
00001440  21 2c 7b 52 30 2d 52 33  2c 52 31 34 7d 0d 09 42  |!,{R0-R3,R14}..B|
00001450  14 41 44 52 20 52 30 2c  42 6f 6f 74 46 69 6c 65  |.ADR R0,BootFile|
00001460  25 0d 09 4c 0e 4d 4f 56  20 52 31 34 2c 50 43 0d  |%..L.MOV R14,PC.|
00001470  09 56 0d 4d 4f 56 20 50  43 2c 52 32 0d 09 60 1a  |.V.MOV PC,R2..`.|
00001480  4c 44 4d 46 44 20 52 31  33 21 2c 7b 52 30 2d 52  |LDMFD R13!,{R0-R|
00001490  33 2c 50 43 7d 5e 0d 09  6a 0e 2e 42 6f 6f 74 46  |3,PC}^..j..BootF|
000014a0  69 6c 65 25 0d 09 74 14  45 51 55 44 20 52 75 6e  |ile%..t.EQUD Run|
000014b0  46 69 6c 65 25 2d 50 25  0d 09 7e 11 45 51 55 44  |File%-P%..~.EQUD|
000014c0  26 46 46 46 46 45 42 34  34 0d 09 88 11 45 51 55  |&FFFFEB44....EQU|
000014d0  44 26 33 31 41 37 35 32  32 35 0d 09 92 18 45 51  |D&31A75225....EQ|
000014e0  55 44 20 31 31 2b a9 53  6f 75 72 63 65 4e 61 6d  |UD 11+.SourceNam|
000014f0  65 24 0d 09 9c 11 45 51  55 44 26 30 30 30 30 30  |e$....EQUD&00000|
00001500  30 30 33 0d 09 a6 24 45  51 55 53 22 41 70 70 73  |003...$EQUS"Apps|
00001510  2e 22 2b 41 70 70 4e 61  6d 65 24 2b 22 2e 21 42  |."+AppName$+".!B|
00001520  6f 6f 74 22 2b bd 30 0d  09 b0 09 41 4c 49 47 4e  |oot"+.0....ALIGN|
00001530  0d 09 ba 18 45 51 55 44  20 31 35 2b a9 53 6f 75  |....EQUD 15+.Sou|
00001540  72 63 65 4e 61 6d 65 24  0d 09 c4 24 45 51 55 53  |rceName$...$EQUS|
00001550  22 46 69 6c 65 72 5f 42  6f 6f 74 20 22 2b 53 6f  |"Filer_Boot "+So|
00001560  75 72 63 65 4e 61 6d 65  24 2b bd 30 0d 09 ce 09  |urceName$+.0....|
00001570  41 4c 49 47 4e 0d 09 d8  0d 2e 52 75 6e 46 69 6c  |ALIGN.....RunFil|
00001580  65 25 0d 09 e2 12 45 51  55 44 20 42 6c 61 6e 6b  |e%....EQUD Blank|
00001590  25 2d 50 25 0d 09 ec 11  45 51 55 44 26 46 46 46  |%-P%....EQUD&FFF|
000015a0  46 45 42 34 34 0d 09 f6  11 45 51 55 44 26 33 31  |FEB44....EQUD&31|
000015b0  41 37 35 35 36 38 0d 0a  00 18 45 51 55 44 20 31  |A75568....EQUD 1|
000015c0  30 2b a9 53 6f 75 72 63  65 4e 61 6d 65 24 0d 0a  |0+.SourceName$..|
000015d0  0a 11 45 51 55 44 26 30  30 30 30 30 30 30 33 0d  |..EQUD&00000003.|
000015e0  0a 14 23 45 51 55 53 22  41 70 70 73 2e 22 2b 41  |..#EQUS"Apps."+A|
000015f0  70 70 4e 61 6d 65 24 2b  22 2e 21 52 75 6e 22 2b  |ppName$+".!Run"+|
00001600  bd 30 0d 0a 1e 09 41 4c  49 47 4e 0d 0a 28 18 45  |.0....ALIGN..(.E|
00001610  51 55 44 20 31 34 2b a9  53 6f 75 72 63 65 4e 61  |QUD 14+.SourceNa|
00001620  6d 65 24 0d 0a 32 23 45  51 55 53 22 46 69 6c 65  |me$..2#EQUS"File|
00001630  72 5f 52 75 6e 20 22 2b  53 6f 75 72 63 65 4e 61  |r_Run "+SourceNa|
00001640  6d 65 24 2b bd 30 0d 0a  3c 09 41 4c 49 47 4e 0d  |me$+.0..<.ALIGN.|
00001650  0a 46 0b 2e 42 6c 61 6e  6b 25 0d 0a 50 11 45 51  |.F..Blank%..P.EQ|
00001660  55 44 26 30 30 30 30 30  30 30 30 0d 0a 5a 05 5d  |UD&00000000..Z.]|
00001670  0d 0a 64 23 f1 22 50 61  73 73 20 22 3b 50 61 73  |..d#."Pass ";Pas|
00001680  73 25 3b 22 20 73 75 63  63 65 73 73 66 75 6c 2e  |s%;" successful.|
00001690  2e 2e 22 0d 0a 6e 0a ed  50 61 73 73 25 0d 0a 78  |.."..n..Pass%..x|
000016a0  2b c8 99 22 4f 53 5f 46  69 6c 65 22 2c 31 30 2c  |+.."OS_File",10,|
000016b0  46 69 6c 65 4e 61 6d 65  24 2c 26 46 46 41 2c 2c  |FileName$,&FFA,,|
000016c0  43 6f 64 65 25 2c 4f 25  0d 0a 82 05 e1 0d 0a 8c  |Code%,O%........|
000016d0  33 dd f2 5f 53 61 76 65  44 69 72 65 63 74 6f 72  |3.._SaveDirector|
000016e0  79 28 53 6f 75 72 63 65  50 61 74 68 24 2c 46 69  |y(SourcePath$,Fi|
000016f0  6c 65 4e 61 6d 65 24 2c  49 44 4e 61 6d 65 24 29  |leName$,IDName$)|
00001700  0d 0a 96 18 f2 5f 43 72  65 61 74 65 4d 6f 64 75  |....._CreateModu|
00001710  6c 65 48 65 61 64 65 72  0d 0a a0 14 f2 5f 43 72  |leHeader....._Cr|
00001720  65 61 74 65 50 61 74 68  28 22 22 29 0d 0a aa 32  |eatePath("")...2|
00001730  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 31 30 2c 46  |.."OS_File",10,F|
00001740  69 6c 65 4e 61 6d 65 24  2c 26 46 46 41 2c 2c 43  |ileName$,&FFA,,C|
00001750  6f 64 65 25 2c 4c 61 73  74 42 79 74 65 25 0d 0a  |ode%,LastByte%..|
00001760  b4 05 e1 0d 0a be 19 dd  f2 5f 43 72 65 61 74 65  |........._Create|
00001770  4d 6f 64 75 6c 65 48 65  61 64 65 72 0d 0a c8 1f  |ModuleHeader....|
00001780  54 69 74 6c 65 24 3d a4  5f 4f 53 53 74 72 69 6e  |Title$=._OSStrin|
00001790  67 28 4d 6f 64 4e 61 6d  65 25 29 0d 0a d2 22 f1  |g(ModName%)...".|
000017a0  22 41 73 73 65 6d 62 6c  69 6e 67 20 4d 6f 64 75  |"Assembling Modu|
000017b0  6c 65 20 48 65 61 64 65  72 2e 2e 2e 22 0d 0a dc  |le Header..."...|
000017c0  10 e3 50 61 73 73 25 3d  34 b8 36 88 32 0d 0a e6  |..Pass%=4.6.2...|
000017d0  0c 4f 25 3d 43 6f 64 65  25 0d 0a f0 10 50 25 3d  |.O%=Code%....P%=|
000017e0  26 30 30 30 30 30 30 30  30 0d 0a fa 05 5b 0d 0b  |&00000000....[..|
000017f0  04 0d 4f 50 54 20 50 61  73 73 25 0d 0b 0e 11 45  |..OPT Pass%....E|
00001800  51 55 44 26 30 30 30 30  30 30 30 30 0d 0b 18 0f  |QUD&00000000....|
00001810  45 51 55 44 20 53 74 61  72 74 25 0d 0b 22 0d 45  |EQUD Start%..".E|
00001820  51 55 44 20 45 6e 64 25  0d 0b 2c 11 45 51 55 44  |QUD End%..,.EQUD|
00001830  20 53 65 72 76 69 63 65  25 0d 0b 36 0f 45 51 55  | Service%..6.EQU|
00001840  44 20 54 69 74 6c 65 25  0d 0b 40 0e 45 51 55 44  |D Title%..@.EQUD|
00001850  20 48 65 6c 70 25 0d 0b  4a 11 45 51 55 44 26 30  | Help%..J.EQUD&0|
00001860  30 30 30 30 30 30 30 0d  0b 54 11 45 51 55 44 26  |0000000..T.EQUD&|
00001870  30 30 30 30 30 30 30 30  0d 0b 5e 11 45 51 55 44  |00000000..^.EQUD|
00001880  26 30 30 30 30 30 30 30  30 0d 0b 68 11 45 51 55  |&00000000..h.EQU|
00001890  44 26 30 30 30 30 30 30  30 30 0d 0b 72 11 45 51  |D&00000000..r.EQ|
000018a0  55 44 26 30 30 30 30 30  30 30 30 0d 0b 7c 0b 2e  |UD&00000000..|..|
000018b0  54 69 74 6c 65 25 0d 0b  86 0f 45 51 55 53 20 54  |Title%....EQUS T|
000018c0  69 74 6c 65 24 0d 0b 90  0b 45 51 55 42 26 30 30  |itle$....EQUB&00|
000018d0  0d 0b 9a 09 41 4c 49 47  4e 0d 0b a4 0a 2e 48 65  |....ALIGN.....He|
000018e0  6c 70 25 0d 0b ae 0f 45  51 55 53 20 54 69 74 6c  |lp%....EQUS Titl|
000018f0  65 24 0d 0b b8 0d 45 51  55 57 26 30 39 30 39 0d  |e$....EQUW&0909.|
00001900  0b c2 25 45 51 55 53 22  31 2e 31 30 20 28 39 74  |..%EQUS"1.10 (9t|
00001910  68 20 44 65 63 20 31 39  39 32 29 20 21 55 74 69  |h Dec 1992) !Uti|
00001920  6c 73 20 22 0d 0b cc 0b  45 51 55 42 26 30 30 0d  |ls "....EQUB&00.|
00001930  0b d6 09 41 4c 49 47 4e  0d 0b e0 0b 2e 53 74 61  |...ALIGN.....Sta|
00001940  72 74 25 0d 0b ea 17 53  54 4d 46 44 20 52 31 33  |rt%....STMFD R13|
00001950  21 2c 7b 52 30 2c 52 31  34 7d 0d 0b f4 17 41 44  |!,{R0,R14}....AD|
00001960  52 20 52 30 2c 54 61 62  6c 65 4f 66 66 73 65 74  |R R0,TableOffset|
00001970  25 0d 0b fe 22 53 57 49  22 58 52 65 73 6f 75 72  |%..."SWI"XResour|
00001980  63 65 46 53 5f 52 65 67  69 73 74 65 72 46 69 6c  |ceFS_RegisterFil|
00001990  65 73 22 0d 0c 08 17 4c  44 4d 46 44 20 52 31 33  |es"....LDMFD R13|
000019a0  21 2c 7b 52 30 2c 50 43  7d 5e 0d 0c 12 09 2e 45  |!,{R0,PC}^.....E|
000019b0  6e 64 25 0d 0c 1c 17 53  54 4d 46 44 20 52 31 33  |nd%....STMFD R13|
000019c0  21 2c 7b 52 30 2c 52 31  34 7d 0d 0c 26 17 41 44  |!,{R0,R14}..&.AD|
000019d0  52 20 52 30 2c 54 61 62  6c 65 4f 66 66 73 65 74  |R R0,TableOffset|
000019e0  25 0d 0c 30 24 53 57 49  22 58 52 65 73 6f 75 72  |%..0$SWI"XResour|
000019f0  63 65 46 53 5f 44 65 72  65 67 69 73 74 65 72 46  |ceFS_DeregisterF|
00001a00  69 6c 65 73 22 0d 0c 3a  17 4c 44 4d 46 44 20 52  |iles"..:.LDMFD R|
00001a10  31 33 21 2c 7b 52 30 2c  50 43 7d 5e 0d 0c 44 0d  |13!,{R0,PC}^..D.|
00001a20  2e 53 65 72 76 69 63 65  25 0d 0c 4e 0f 54 45 51  |.Service%..N.TEQ|
00001a30  20 52 31 2c 23 26 36 30  0d 0c 58 10 4d 4f 56 4e  | R1,#&60..X.MOVN|
00001a40  45 20 50 43 2c 52 31 34  0d 0c 62 1a 53 54 4d 46  |E PC,R14..b.STMF|
00001a50  44 20 52 31 33 21 2c 7b  52 30 2d 52 33 2c 52 31  |D R13!,{R0-R3,R1|
00001a60  34 7d 0d 0c 6c 17 41 44  52 20 52 30 2c 54 61 62  |4}..l.ADR R0,Tab|
00001a70  6c 65 4f 66 66 73 65 74  25 0d 0c 76 0e 4d 4f 56  |leOffset%..v.MOV|
00001a80  20 52 31 34 2c 50 43 0d  0c 80 0d 4d 4f 56 20 50  | R14,PC....MOV P|
00001a90  43 2c 52 32 0d 0c 8a 11  45 51 55 44 26 45 38 46  |C,R2....EQUD&E8F|
00001aa0  44 38 30 30 46 0d 0c 94  11 2e 54 61 62 6c 65 4f  |D800F.....TableO|
00001ab0  66 66 73 65 74 25 0d 0c  9e 05 5d 0d 0c a8 0a ed  |ffset%....].....|
00001ac0  50 61 73 73 25 0d 0c b2  1d 54 61 62 6c 65 25 3d  |Pass%....Table%=|
00001ad0  43 6f 64 65 25 2b 54 61  62 6c 65 4f 66 66 73 65  |Code%+TableOffse|
00001ae0  74 25 0d 0c bc 10 4c 61  73 74 42 79 74 65 25 3d  |t%....LastByte%=|
00001af0  4f 25 0d 0c c6 05 e1 0d  0c d0 1b dd f2 5f 43 72  |O%..........._Cr|
00001b00  65 61 74 65 50 61 74 68  28 45 78 74 50 61 74 68  |eatePath(ExtPath|
00001b10  24 29 0d 0c da 1e ea 4e  65 78 74 25 2c 4c 65 61  |$).....Next%,Lea|
00001b20  66 4e 61 6d 65 24 2c 46  69 6c 65 4e 61 6d 65 24  |fName$,FileName$|
00001b30  0d 0c e4 1a ea 54 65 6d  70 53 6f 75 72 63 65 24  |.....TempSource$|
00001b40  2c 54 65 6d 70 46 69 6c  65 24 0d 0c ee 37 f1 22  |,TempFile$...7."|
00001b50  43 72 65 61 74 69 6e 67  20 66 69 6c 65 73 20 69  |Creating files i|
00001b60  6e 20 64 69 72 65 63 74  6f 72 79 20 3a 22 53 6f  |n directory :"So|
00001b70  75 72 63 65 50 61 74 68  24 45 78 74 50 61 74 68  |urcePath$ExtPath|
00001b80  24 0d 0c f8 0b 4e 65 78  74 25 3d 30 0d 0d 02 05  |$....Next%=0....|
00001b90  f5 0d 0d 0c 4d c8 99 22  4f 53 5f 47 42 50 42 22  |....M.."OS_GBPB"|
00001ba0  2c 31 30 2c 53 6f 75 72  63 65 50 61 74 68 24 2b  |,10,SourcePath$+|
00001bb0  45 78 74 50 61 74 68 24  2c 42 6c 6f 63 6b 25 2c  |ExtPath$,Block%,|
00001bc0  31 2c 4e 65 78 74 25 2c  32 35 36 2c 22 2a 22 b8  |1,Next%,256,"*".|
00001bd0  2c 2c 52 65 61 64 25 2c  2c 4e 65 78 74 25 0d 0d  |,,Read%,,Next%..|
00001be0  16 0f e7 4e 65 78 74 25  3c 3e 2d 31 8c 0d 0d 20  |...Next%<>-1... |
00001bf0  22 4c 65 61 66 4e 61 6d  65 24 3d a4 5f 4f 53 53  |"LeafName$=._OSS|
00001c00  74 72 69 6e 67 28 52 65  61 64 25 2b 32 30 29 0d  |tring(Read%+20).|
00001c10  0d 2a 12 e7 28 52 65 61  64 25 21 31 36 29 3d 32  |.*..(Read%!16)=2|
00001c20  8c 0d 0d 34 11 e7 45 78  74 50 61 74 68 24 3d 22  |...4..ExtPath$="|
00001c30  22 8c 0d 0d 3e 1f f2 5f  43 72 65 61 74 65 50 61  |"...>.._CreatePa|
00001c40  74 68 28 22 2e 22 2b 4c  65 61 66 4e 61 6d 65 24  |th("."+LeafName$|
00001c50  29 0d 0d 48 05 cc 0d 0d  52 28 f2 5f 43 72 65 61  |)..H....R(._Crea|
00001c60  74 65 50 61 74 68 28 45  78 74 50 61 74 68 24 2b  |tePath(ExtPath$+|
00001c70  22 2e 22 2b 4c 65 61 66  4e 61 6d 65 24 29 0d 0d  |"."+LeafName$)..|
00001c80  5c 05 cd 0d 0d 66 05 cc  0d 0d 70 11 e7 45 78 74  |\....f....p..Ext|
00001c90  50 61 74 68 24 3d 22 22  8c 0d 0d 7a 35 f2 5f 43  |Path$=""...z5._C|
00001ca0  72 65 61 74 65 46 69 6c  65 28 53 6f 75 72 63 65  |reateFile(Source|
00001cb0  50 61 74 68 24 2b 22 2e  22 2b 4c 65 61 66 4e 61  |Path$+"."+LeafNa|
00001cc0  6d 65 24 2c 4c 65 61 66  4e 61 6d 65 24 29 0d 0d  |me$,LeafName$)..|
00001cd0  84 05 cc 0d 0d 8e 32 54  65 6d 70 53 6f 75 72 63  |......2TempSourc|
00001ce0  65 24 3d 53 6f 75 72 63  65 50 61 74 68 24 2b 45  |e$=SourcePath$+E|
00001cf0  78 74 50 61 74 68 24 2b  22 2e 22 2b 4c 65 61 66  |xtPath$+"."+Leaf|
00001d00  4e 61 6d 65 24 0d 0d 98  28 54 65 6d 70 46 69 6c  |Name$...(TempFil|
00001d10  65 24 3d c1 45 78 74 50  61 74 68 24 2c 32 29 2b  |e$=.ExtPath$,2)+|
00001d20  22 2e 22 2b 4c 65 61 66  4e 61 6d 65 24 0d 0d a2  |"."+LeafName$...|
00001d30  27 f2 5f 43 72 65 61 74  65 46 69 6c 65 28 54 65  |'._CreateFile(Te|
00001d40  6d 70 53 6f 75 72 63 65  24 2c 54 65 6d 70 46 69  |mpSource$,TempFi|
00001d50  6c 65 24 29 0d 0d ac 05  cd 0d 0d b6 05 cd 0d 0d  |le$)............|
00001d60  c0 05 cd 0d 0d ca 0d fd  4e 65 78 74 25 3d 2d 31  |........Next%=-1|
00001d70  0d 0d d4 05 e1 0d 0d de  30 dd f2 5f 43 72 65 61  |........0.._Crea|
00001d80  74 65 46 69 6c 65 28 53  6f 75 72 63 65 46 69 6c  |teFile(SourceFil|
00001d90  65 4e 61 6d 65 24 2c 44  65 73 74 46 69 6c 65 4e  |eName$,DestFileN|
00001da0  61 6d 65 24 29 0d 0d e8  25 f1 22 20 20 43 72 65  |ame$)...%."  Cre|
00001db0  61 74 69 6e 67 20 46 69  6c 65 20 3a 22 44 65 73  |ating File :"Des|
00001dc0  74 46 69 6c 65 4e 61 6d  65 24 0d 0d f2 51 c8 99  |tFileName$...Q..|
00001dd0  22 4f 53 5f 46 69 6c 65  22 2c 31 37 2c 53 6f 75  |"OS_File",17,Sou|
00001de0  72 63 65 46 69 6c 65 4e  61 6d 65 24 b8 54 79 70  |rceFileName$.Typ|
00001df0  65 25 2c 2c 4c 6f 61 64  41 64 64 72 25 2c 45 78  |e%,,LoadAddr%,Ex|
00001e00  65 63 41 64 64 72 25 2c  46 69 6c 65 4c 65 6e 67  |ecAddr%,FileLeng|
00001e10  74 68 25 2c 41 74 74 72  69 62 25 0d 0d fc 1b e7  |th%,Attrib%.....|
00001e20  54 79 70 65 25 3d 30 8c  85 30 2c 22 4e 6f 74 20  |Type%=0..0,"Not |
00001e30  46 6f 75 6e 64 22 0d 0e  06 2a e7 54 79 70 65 25  |Found"...*.Type%|
00001e40  3d 32 8c 85 30 2c 22 43  61 6e 27 74 20 64 6f 20  |=2..0,"Can't do |
00001e50  64 69 72 65 63 74 6f 72  69 65 73 20 79 65 74 22  |directories yet"|
00001e60  0d 0e 10 2d e7 46 69 6c  65 4c 65 6e 67 74 68 25  |...-.FileLength%|
00001e70  3e 35 30 30 2a 31 30 32  34 8c 85 30 2c 22 56 65  |>500*1024..0,"Ve|
00001e80  72 79 20 4c 6f 6e 67 20  46 69 6c 65 22 0d 0e 1a  |ry Long File"...|
00001e90  20 4e 61 6d 65 45 6e 64  25 3d 32 30 2b a9 28 44  | NameEnd%=20+.(D|
00001ea0  65 73 74 46 69 6c 65 4e  61 6d 65 24 29 0d 0e 24  |estFileName$)..$|
00001eb0  21 4f 66 66 73 65 74 25  3d 4e 61 6d 65 45 6e 64  |!Offset%=NameEnd|
00001ec0  25 2b 34 2d 4e 61 6d 65  45 6e 64 25 83 34 0d 0e  |%+4-NameEnd%.4..|
00001ed0  2e 1f 46 69 6c 65 53 74  61 72 74 25 3d 54 61 62  |..FileStart%=Tab|
00001ee0  6c 65 25 2b 4f 66 66 73  65 74 25 2b 34 0d 0e 38  |le%+Offset%+4..8|
00001ef0  23 46 69 6c 65 45 6e 64  25 3d 46 69 6c 65 53 74  |#FileEnd%=FileSt|
00001f00  61 72 74 25 2b 46 69 6c  65 4c 65 6e 67 74 68 25  |art%+FileLength%|
00001f10  0d 0e 42 24 4e 65 78 74  54 61 62 6c 65 25 3d 46  |..B$NextTable%=F|
00001f20  69 6c 65 45 6e 64 25 2b  34 2d 46 69 6c 65 45 6e  |ileEnd%+4-FileEn|
00001f30  64 25 83 34 0d 0e 4c 1e  54 61 62 6c 65 25 21 30  |d%.4..L.Table%!0|
00001f40  3d 4e 65 78 74 54 61 62  6c 65 25 2d 54 61 62 6c  |=NextTable%-Tabl|
00001f50  65 25 0d 0e 56 16 54 61  62 6c 65 25 21 34 3d 4c  |e%..V.Table%!4=L|
00001f60  6f 61 64 41 64 64 72 25  0d 0e 60 16 54 61 62 6c  |oadAddr%..`.Tabl|
00001f70  65 25 21 38 3d 45 78 65  63 41 64 64 72 25 0d 0e  |e%!8=ExecAddr%..|
00001f80  6a 21 54 61 62 6c 65 25  21 31 32 3d 46 69 6c 65  |j!Table%!12=File|
00001f90  45 6e 64 25 2d 46 69 6c  65 53 74 61 72 74 25 0d  |End%-FileStart%.|
00001fa0  0e 74 17 54 61 62 6c 65  25 21 31 36 3d 26 30 30  |.t.Table%!16=&00|
00001fb0  30 30 30 30 30 33 0d 0e  7e 25 24 28 54 61 62 6c  |000003..~%$(Tabl|
00001fc0  65 25 2b 32 30 29 3d 44  65 73 74 46 69 6c 65 4e  |e%+20)=DestFileN|
00001fd0  61 6d 65 24 2b c4 35 2c  bd 30 29 0d 0e 88 28 54  |ame$+.5,.0)...(T|
00001fe0  61 62 6c 65 25 21 4f 66  66 73 65 74 25 3d 34 2b  |able%!Offset%=4+|
00001ff0  46 69 6c 65 45 6e 64 25  2d 46 69 6c 65 53 74 61  |FileEnd%-FileSta|
00002000  72 74 25 0d 0e 92 37 e3  6e 25 3d 46 69 6c 65 53  |rt%...7.n%=FileS|
00002010  74 61 72 74 25 2b 46 69  6c 65 4c 65 6e 67 74 68  |tart%+FileLength|
00002020  25 b8 46 69 6c 65 53 74  61 72 74 25 2b 46 69 6c  |%.FileStart%+Fil|
00002030  65 4c 65 6e 67 74 68 25  2b 35 0d 0e 9c 09 3f 6e  |eLength%+5....?n|
00002040  25 3d 30 0d 0e a6 05 ed  0d 0e b0 2d c8 99 22 4f  |%=0........-.."O|
00002050  53 5f 46 69 6c 65 22 2c  31 36 2c 53 6f 75 72 63  |S_File",16,Sourc|
00002060  65 46 69 6c 65 4e 61 6d  65 24 2c 46 69 6c 65 53  |eFileName$,FileS|
00002070  74 61 72 74 25 0d 0e ba  12 4e 65 78 74 54 61 62  |tart%....NextTab|
00002080  6c 65 25 21 30 3d 30 0d  0e c4 12 4e 65 78 74 54  |le%!0=0....NextT|
00002090  61 62 6c 65 25 21 34 3d  30 0d 0e ce 15 54 61 62  |able%!4=0....Tab|
000020a0  6c 65 25 3d 4e 65 78 74  54 61 62 6c 65 25 0d 0e  |le%=NextTable%..|
000020b0  d8 1a 4c 61 73 74 42 79  74 65 25 3d 4e 65 78 74  |..LastByte%=Next|
000020c0  54 61 62 6c 65 25 2b 38  0d 0e e2 05 e1 0d 0e ec  |Table%+8........|
000020d0  0c dd f2 5f 45 72 72 6f  72 0d 0e f6 13 ea 45 72  |..._Error.....Er|
000020e0  72 6f 72 24 2c 41 6e 73  77 65 72 25 0d 0f 00 06  |ror$,Answer%....|
000020f0  ea 85 0d 0f 0a 1b ee 85  ea c8 99 22 57 69 6d 70  |..........."Wimp|
00002100  5f 43 6c 6f 73 65 44 6f  77 6e 22 3a e0 0d 0f 14  |_CloseDown":....|
00002110  48 45 72 72 6f 72 24 3d  f6 24 2b 22 20 28 45 72  |HError$=.$+" (Er|
00002120  72 6f 72 20 43 6f 64 65  20 22 2b c3 28 9e 29 2b  |ror Code "+.(.)+|
00002130  22 29 20 20 20 20 4f 4b  20 74 6f 20 43 6f 6e 74  |")    OK to Cont|
00002140  69 6e 75 65 2c 20 43 41  4e 43 45 4c 20 74 6f 20  |inue, CANCEL to |
00002150  51 55 49 54 22 0d 0f 1e  1f 41 6e 73 77 65 72 25  |QUIT"....Answer%|
00002160  3d a4 5f 4d 65 73 73 61  67 65 28 45 72 72 6f 72  |=._Message(Error|
00002170  24 2c 33 29 0d 0f 28 0f  e7 41 6e 73 77 65 72 25  |$,3)..(..Answer%|
00002180  3d 30 8c 0d 0f 32 16 c8  99 22 57 69 6d 70 5f 43  |=0...2..."Wimp_C|
00002190  6c 6f 73 65 44 6f 77 6e  22 0d 0f 3c 05 e0 0d 0f  |loseDown"..<....|
000021a0  46 05 cd 0d 0f 50 06 f7  85 0d 0f 5a 05 e1 0d 0f  |F....P.....Z....|
000021b0  64 10 dd f2 5f 49 6e 69  74 61 6c 69 73 65 0d 0f  |d..._Initalise..|
000021c0  6e 1d de 42 6c 6f 63 6b  25 31 30 32 34 2c 53 75  |n..Block%1024,Su|
000021d0  62 42 6c 6f 63 6b 25 31  30 32 34 0d 0f 78 1a de  |bBlock%1024..x..|
000021e0  43 6f 64 65 25 4d 61 78  4d 6f 64 53 69 7a 65 25  |Code%MaxModSize%|
000021f0  2a 26 34 30 30 0d 0f 82  0b 45 78 69 74 25 3d a3  |*&400....Exit%=.|
00002200  0d 0f 8c 1e 41 70 70 24  3d 22 52 65 73 6f 75 72  |....App$="Resour|
00002210  63 65 46 53 20 4d 6f 64  69 66 69 65 72 22 0d 0f  |ceFS Modifier"..|
00002220  96 36 c8 99 22 57 69 6d  70 5f 49 6e 69 74 69 61  |.6.."Wimp_Initia|
00002230  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
00002240  31 35 34 2c 41 70 70 24  b8 57 69 6d 70 25 2c 54  |154,App$.Wimp%,T|
00002250  61 73 6b 25 0d 0f a0 24  53 6f 75 72 63 65 44 69  |ask%...$SourceDi|
00002260  72 49 63 6f 6e 25 3d 39  3a 4d 6f 64 4e 61 6d 65  |rIcon%=9:ModName|
00002270  49 63 6f 6e 25 3d 31 30  0d 0f aa 14 46 69 6c 65  |Icon%=10....File|
00002280  4e 61 6d 65 49 63 6f 6e  25 3d 31 31 0d 0f b4 1d  |NameIcon%=11....|
00002290  48 65 6c 70 49 63 6f 6e  25 3d 31 33 3a 44 72 61  |HelpIcon%=13:Dra|
000022a0  67 49 63 6f 6e 25 3d 31  32 0d 0f be 17 de 54 65  |gIcon%=12.....Te|
000022b0  6d 70 6c 61 74 65 53 70  61 63 65 25 31 30 32 34  |mplateSpace%1024|
000022c0  0d 0f c8 1f 54 65 6d 70  6c 61 74 65 50 74 72 25  |....TemplatePtr%|
000022d0  3d 54 65 6d 70 6c 61 74  65 53 70 61 63 65 25 0d  |=TemplateSpace%.|
000022e0  0f d2 24 54 65 6d 70 6c  61 74 65 45 6e 64 25 3d  |..$TemplateEnd%=|
000022f0  54 65 6d 70 6c 61 74 65  53 70 61 63 65 25 2b 31  |TemplateSpace%+1|
00002300  30 32 34 0d 0f dc 33 c8  99 22 57 69 6d 70 5f 4f  |024...3.."Wimp_O|
00002310  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 22 3c  |penTemplate",,"<|
00002320  52 65 73 4d 6f 64 24 44  69 72 3e 2e 54 65 6d 70  |ResMod$Dir>.Temp|
00002330  6c 61 74 65 73 22 0d 0f  e6 56 c8 99 22 57 69 6d  |lates"...V.."Wim|
00002340  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00002350  2c 42 6c 6f 63 6b 25 2c  54 65 6d 70 6c 61 74 65  |,Block%,Template|
00002360  50 74 72 25 2c 54 65 6d  70 6c 61 74 65 45 6e 64  |Ptr%,TemplateEnd|
00002370  25 2c 2d 31 2c 22 49 6e  66 6f 22 2c 30 b8 2c 2c  |%,-1,"Info",0.,,|
00002380  54 65 6d 70 6c 61 74 65  50 74 72 25 0d 0f f0 2a  |TemplatePtr%...*|
00002390  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
000023a0  6e 64 6f 77 22 2c 2c 42  6c 6f 63 6b 25 b8 49 6e  |ndow",,Block%.In|
000023b0  66 6f 57 69 6e 25 0d 0f  fa 56 c8 99 22 57 69 6d  |foWin%...V.."Wim|
000023c0  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
000023d0  2c 42 6c 6f 63 6b 25 2c  54 65 6d 70 6c 61 74 65  |,Block%,Template|
000023e0  50 74 72 25 2c 54 65 6d  70 6c 61 74 65 45 6e 64  |Ptr%,TemplateEnd|
000023f0  25 2c 2d 31 2c 22 4d 61  69 6e 22 2c 30 b8 2c 2c  |%,-1,"Main",0.,,|
00002400  54 65 6d 70 6c 61 74 65  50 74 72 25 0d 10 04 2a  |TemplatePtr%...*|
00002410  c8 99 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |.."Wimp_CreateWi|
00002420  6e 64 6f 77 22 2c 2c 42  6c 6f 63 6b 25 b8 4d 61  |ndow",,Block%.Ma|
00002430  69 6e 57 69 6e 25 0d 10  0e 1a c8 99 22 57 69 6d  |inWin%......"Wim|
00002440  70 5f 43 6c 6f 73 65 54  65 6d 70 6c 61 74 65 22  |p_CloseTemplate"|
00002450  0d 10 18 18 53 75 62 42  6c 6f 63 6b 25 21 30 3d  |....SubBlock%!0=|
00002460  4d 61 69 6e 57 69 6e 25  0d 10 22 27 c8 99 22 57  |MainWin%.."'.."W|
00002470  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00002480  74 65 22 2c 30 2c 53 75  62 42 6c 6f 63 6b 25 0d  |te",0,SubBlock%.|
00002490  10 2c 13 53 75 62 42 6c  6f 63 6b 25 21 32 38 3d  |.,.SubBlock%!28=|
000024a0  2d 31 0d 10 36 23 c8 99  22 57 69 6d 70 5f 4f 70  |-1..6#.."Wimp_Op|
000024b0  65 6e 57 69 6e 64 6f 77  22 2c 30 2c 53 75 62 42  |enWindow",0,SubB|
000024c0  6c 6f 63 6b 25 0d 10 40  32 53 6f 75 72 63 65 44  |lock%..@2SourceD|
000024d0  69 72 25 3d a4 5f 47 65  74 49 6e 64 69 72 28 4d  |ir%=._GetIndir(M|
000024e0  61 69 6e 57 69 6e 25 2c  53 6f 75 72 63 65 44 69  |ainWin%,SourceDi|
000024f0  72 49 63 6f 6e 25 29 0d  10 4a 2e 4d 6f 64 4e 61  |rIcon%)..J.ModNa|
00002500  6d 65 25 3d a4 5f 47 65  74 49 6e 64 69 72 28 4d  |me%=._GetIndir(M|
00002510  61 69 6e 57 69 6e 25 2c  4d 6f 64 4e 61 6d 65 49  |ainWin%,ModNameI|
00002520  63 6f 6e 25 29 0d 10 54  30 46 69 6c 65 49 63 6f  |con%)..T0FileIco|
00002530  6e 25 3d a4 5f 47 65 74  49 6e 64 69 72 28 4d 61  |n%=._GetIndir(Ma|
00002540  69 6e 57 69 6e 25 2c 46  69 6c 65 4e 61 6d 65 49  |inWin%,FileNameI|
00002550  63 6f 6e 25 29 0d 10 5e  05 e1 0d ff              |con%)..^....|
0000255c