� > <AppBuild$Dir>.!AppBuild
:
debugging%=�
)� Copyright Paul Hobbs 1990,1991,1992
� Rheinpfalzstrasse 2
�    85049 Ingolstadt
�             Germany
:
	>� This program and parts thereof may be freely distributed

:
3� � �12:ș"Hourglass_Smash":�:�" at line: ";�:�
:

)ț "<EvntShellSystem$Path>ShellLibRT"
:
ș "Hourglass_On"
:
(ș "Wimp_SlotSize",-1,-1 � progsize%
pagesize%=1<<10
freespace%=&8000+progsize%
�=freespace%+pagesize%
�=freespace%
:
?�shell_HeapManagerInit("<EvntShellSystem$Path>",freespace%)
�shell_Init
<task%=�shell_WimpInit_I(200,"Shell Application Builder")
�shell_TraceInit("")
� PROCshell_TraceOn
�shell_ResourcesInit

�app_init
:
L� -------------------- Initialise Variables ----------------------------
 :
!G_closedown%     =� :� Set this to TRUE when you want the program to
"!                       :� end
#Dchanged%        =� :� Used to keep track of whether the data has
$K                       :� been changed. Call PROCfile_changed() when it
%G                       :� has. But if the program does not use data
&H                       :� files just ignore this variable but do not
'G                       :� delete it as the program checks it before
(&                       :� exiting!
):
*L� -------------------- Miscelleanous Initialisation --------------------
+:
,:
-� � �shell_Error
.:
/ș "Hourglass_Off"
0�
1+  �shell_Action(�shell_Poll_I(0,task%))
2� _closedown%
3:
4�shell_Exit:�
5:
6L� ======================================================================
7:
8��app_init
9default_name$="NewApp"
:$FileName_Original$=default_name$
;FileName_New$     =""
<�SetUp_Menus
=�SetUp_Windows
>�SetUp_IconBar
?G�shell_InitHelpSystem(�shell_GetAppName+"Res:"+�shell_GetAppName,�)
@�
A:
B
CF� ===== Menu_SetUp routines ======================================
D
E� �SetUp_Menus
F� void%
G
HHMenuHandle_IconBar%=�shell_MenuNew(�shell_MessageNoArgs("AppBuild"))
IIMenuItem_Info%     =�shell_MenuAdd(0,�shell_MessageNoArgs("Info"),"")
JYvoid%              =�shell_MenuAdd(0,�shell_MessageNoArgs("Help"),"_MenuSelect_Help")
KYvoid%              =�shell_MenuAdd(0,�shell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
LF�shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
M
N�
O:
P
QF� ===== Window_SetUp routines ====================================
R
S� �SetUp_Windows
T-�shell_CreateWindowStatic("mainw",mainw%)
U0�shell_IconPutData(mainw%,3,default_name$,0)
VC�shell_IconPutData(mainw%,5,�shell_MessageNoArgs("mwprompt"),0)
WB�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("Waiting"),0)
X8�shell_AttachClickSelect(mainw%,0,"_ClickSelect_OK")
Y-�shell_AttachHelpTag(mainw%,-1,"mainwin")
Z=�shell_AttachDataLoad(mainw%,-1,&2000,"_DataLoad_2000",�)
[:�shell_AttachDataSave(mainw%,2,100,&2000,3,"_do_save")
\�
]
^F� ===== IconBar_SetUp routines ===================================
_
`� �SetUp_IconBar
ansicon=�shell_Iconbar(-1,"!"+�shell_GetAppName,�shell_MessageNoArgs("Ready"),120,MenuHandle_IconBar%,0,0,0)
b,�shell_AttachHelpTag(-1,sicon,"iconbar")
c=�shell_AttachClickSelect(-1,sicon,"_ClickSelect_IconBar")
d<�shell_AttachDataLoad(-1,sicon,&2000,"_DataLoad_2000",�)
e�
f
gF� ===== Dialog_PreOpen routines ==================================
h
iݤ_PreOpenInfo(wh%)
jA�shell_IconPutData(wh%,0,�shell_MessageNoArgs("progInfo0"),0)
kA�shell_IconPutData(wh%,1,�shell_MessageNoArgs("progInfo1"),0)
lA�shell_IconPutData(wh%,2,�shell_MessageNoArgs("progInfo2"),0)
mA�shell_IconPutData(wh%,3,�shell_MessageNoArgs("progInfo3"),0)
n=0
o:
p
qF� ===== Dialog_PostOpen routines =================================
r
sF� ===== Click_Select routines ====================================
t
u&� �_ClickSelect_IconBar(wh%,icon%)
vB�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("Waiting"),0)
w#�shell_OpenWindowStatic(mainw%)
x"�shell_CaretSetRight(mainw%,3)
y=0
z:
{!� �_ClickSelect_OK(wh%,icon%)
|� void%
}1void%=�_do_save(�shell_IconGetData(mainw%,3))
~=0
:
�
�F� ===== Click_Adjust routines ====================================
�
�F� ===== Menu_Select routines =====================================
�
�� �_MenuSelect_Help(blk%)
�+�shell_HelpWord(�shell_GetAppName+".$")
�=0
�:
�� �_MenuSelect_Quit(blk%)
�_closedown%=�
�=0
�:
�
�F� ===== Menu_Warning routines ====================================
�
�F� ===== Data_Load routines =======================================
�
�.� �_DataLoad_2000(addr%,type%,file$,size%)
�� void%
�1�shell_IconSetRightJust(mainw%,3,(�file$>10))
�(�shell_IconPutData(mainw%,3,file$,�)
�FileName_Original$=file$
�#�shell_OpenWindowStatic(mainw%)
�"�shell_CaretSetRight(mainw%,3)
�=0
�:
�
�F� ===== Data_Save routines =======================================
�
�ݤ_do_save(fname$)
� � �FileName_Original$,".") �
�  �Edit_Old(fname$)
��
�  �Create_New(fname$)
��
�=0
�:
�0� �Edit_BasicProg(old_file$,new_file$,t$,r$)
�dș "Wimp_StartTask","<AppBuild$Dir>.BSed "+t$+" @@@@@@@@@ "+old_file$+" <AppBuild$Dir>.TmpFile0"
�aș "Wimp_StartTask","<AppBuild$Dir>.BSed @@@@@@@@@ "+r$+" <AppBuild$Dir>.TmpFile0 "+new_file$
�'�("Remove <AppBuild$Dir>.TmpFile0")
�#�("SetType "+new_file$+" &FFB")
�3� old_file$<>new_file$ � �("Remove "+old_file$)
��
�:
�1� �Edit_File(old_file$,new_file$,t$,r$,type%)
�t$=�34+t$+�34:r$=�34+r$+�34
�fș "Wimp_StartTask","<AppBuild$Dir>.MSed "+t$+" @@@@@@@@@ "+old_file$+" > <AppBuild$Dir>.TmpFile0"
�cș "Wimp_StartTask","<AppBuild$Dir>.MSed @@@@@@@@@ "+r$+" <AppBuild$Dir>.TmpFile0 > "+new_file$
�'�("Remove <AppBuild$Dir>.TmpFile0")
�(�("SetType "+new_file$+" &"+�~type%)
�3� old_file$<>new_file$ � �("Remove "+old_file$)
��
�:
�%� �Edit_SpriteFile(s_file$,t$,r$)
�� spritearea%
�.spritearea%=�shell_SpriteAreaLoad(s_file$)
�*�shell_SpriteRename(spritearea%,t$,r$)
�.�shell_SpriteAreaSave(spritearea%,s_file$)
�'�shell_HeapBlockReturn(spritearea%)
��
�:
�� �Edit_Old(FileName_New$)
�E� lib$,spritearea%,New_ProgName$,Old_ProgName$,RunImage$,RunFile$
�0New_ProgName$=��shell_Leaf(FileName_New$),2)
�PRunImage$=FileName_New$+".!"+New_ProgName$        :� full name of runimage..
�JRunFile$ =FileName_New$+".!Run"                   :� full name of !run
�5Old_ProgName$=��shell_Leaf(FileName_Original$),2)
�@�shell_IconbarSetText(-1,sicon,�shell_MessageNoArgs("Busy"))
�)� FileName_New$<>FileName_Original$ �
�*  � copy existing app under new name..
�@  �("Copy "+FileName_Original$+" "+FileName_New$+" ~C ~V R")
�G  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("WriteSpr0"),-1)
�U  �Edit_SpriteFile(FileName_New$+".!Sprites","!"+Old_ProgName$,"!"+New_ProgName$)
�^  � PROCEdit_SpriteFile(FileName_New$+".!Sprites","ic_"+Old_ProgName$,"ic_"+New_ProgName$)
�W  �Edit_SpriteFile(FileName_New$+".!Sprites22","!"+Old_ProgName$,"!"+New_ProgName$)
�`  � PROCEdit_SpriteFile(FileName_New$+".!Sprites22","ic_"+Old_ProgName$,"ic_"+New_ProgName$)
�  �shell_EnsurePoll
�^  �Edit_File(FileName_New$+".!Run",FileName_New$+".!Run",Old_ProgName$,New_ProgName$,&FEB)
Б  �Edit_BasicProg(FileName_New$+"."+�shell_Leaf(FileName_Original$),FileName_New$+"."+�shell_Leaf(FileName_New$),Old_ProgName$,New_ProgName$)
�6  � �shell_FileExists(FileName_New$+".Messages") �
�h    �Edit_File(FileName_New$+".Messages",FileName_New$+".Messages",Old_ProgName$,New_ProgName$,&FFF)
�  �
�C  � �shell_FileExists(FileName_New$+".Resources.UK.Messages") �
Ղ    �Edit_File(FileName_New$+".Resources.UK.Messages",FileName_New$+".Resources.UK.Messages",Old_ProgName$,New_ProgName$,&FFF)
�  �
�I  � �shell_FileExists(FileName_New$+".Resources.UK."+Old_ProgName$) �
�r    �("Rename "+FileName_New$+".Resources.UK."+Old_ProgName$+" "+FileName_New$+".Resources.UK."+New_ProgName$)
�  �
�<  � �shell_FileExists(FileName_New$+"."+Old_ProgName$) �
�X    �("Rename "+FileName_New$+"."+Old_ProgName$+" "+FileName_New$+"."+New_ProgName$)
�  �
��
�*  � �shell_IsIconSelected(mainw%,10) �
�    � create stand alone..
�%    �Copy_ShellMsg(FileName_New$)
�$    �Copy_Modules(FileName_New$)
�I    �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyHeapC"),-1)
�Q    �("COPY <EvntShellSystem$Path>Heapcode "+FileName_New$+".heapcode ~C ~V")
�P    � �shell_IsIconSelected(mainw%,11) � lib$="ShellLibRT" � lib$="ShellLib"
�Q    �("COPY <EvntShellSystem$Path>"+lib$+" "+FileName_New$+"."+lib$+" ~C ~V")
�    �shell_EnsurePoll
�I    � edit new !Run file to load modules from application directory..
�k    �Edit_File(FileName_New$+".!Run",FileName_New$+".!Run","<EvntShellSystem$Path>","<Obey$Dir>.",&FEB)
�c    �Edit_File(FileName_New$+".!Run",FileName_New$+".!Run","Shell resources not found","",&FEB)
�F    �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("ProcRI"),-1)
�/    �shell_Action(�shell_Poll_I(0,_U%!148))
�S    �Edit_BasicProg(RunImage$,RunImage$,"<EvntShellSystem$Path>","<Obey$Dir>.")
�/    �shell_Action(�shell_Poll_I(0,_U%!148))
�  �
�!    � not a stand alone app..
�    � Hilke
�/    �shell_Action(�shell_Poll_I(0,_U%!148))
�F    �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("REMmod"),-1)
�/    �("Remove "+FileName_New$+".Interface")
�.    �("Remove "+FileName_New$+".MsgTrans")
�.    �("Remove "+FileName_New$+".FontMenu")
�/    �("Remove "+FileName_New$+".MenuUtils")
�G    �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("REMcode"),-1)
�/    �("Remove "+FileName_New$+".ShellMsgs")
�<    �("Remove "+FileName_New$+".Resources.UK.ShellMsgs")
�.    �("Remove "+FileName_New$+".HeapCode")
�.    �("Remove "+FileName_New$+".ShellLib")
�0    �("Remove "+FileName_New$+".ShellLibRT")
�G    �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("EditRun"),-1)
�_    �Edit_File(RunFile$,RunFile$,"RMLoad <Obey$Dir>.","RMLoad <EvntShellSystem$Path>",&FEB)
�F    �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("ProcRI"),-1)

    �shell_EnsurePoll


S    �Edit_BasicProg(RunImage$,RunImage$,"<Obey$Dir>.","<EvntShellSystem$Path>")

  �

C  �Edit_BasicProg(RunImage$,RunImage$,"ShellLibRT","���������")

A  �Edit_BasicProg(RunImage$,RunImage$,"ShellLib","���������")

*  � �shell_IsIconSelected(mainw%,11) �

     � use runtime library...

E    �Edit_BasicProg(RunImage$,RunImage$,"���������","ShellLibRT")

  �

	    � use full library..


C    �Edit_BasicProg(RunImage$,RunImage$,"���������","ShellLib")

  �

�


C�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("Waiting"),-1)

A�shell_IconbarSetText(-1,sicon,�shell_MessageNoArgs("Ready"))

�shell_CloseWindow(mainw%)

�

:

� �Copy_ShellMsg(dest$)

F�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyShMess"),-1)

(� �shell_IsIconSelected(mainw%,12) �

L  �("COPY ShellSysRes:ShellMsgs "+dest$+".Resources.UK.ShellMsgs ~C ~V")

�

?  �("COPY ShellSysRes:ShellMsgs "+dest$+".ShellMsgs ~C ~V")

�

)�shell_Action(�shell_Poll_I(0,task%))

�

:

� �Copy_Modules(dest$)

E�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyFMMod"),-1)

E�("COPY <EvntShellSystem$Path>FontMenu "+dest$+".FontMenu ~C ~V")

+�shell_Action(�shell_Poll_I(0,_U%!148))

 

!E�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyIFMod"),-1)

"G�("COPY <EvntShellSystem$Path>Interface "+dest$+".Interface ~C ~V")

#+�shell_Action(�shell_Poll_I(0,_U%!148))

$

%E�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyMUMod"),-1)

&G�("COPY <EvntShellSystem$Path>MenuUtils "+dest$+".MenuUtils ~C ~V")

'+�shell_Action(�shell_Poll_I(0,_U%!148))

(

)E�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyMTMod"),-1)

*E�("COPY <EvntShellSystem$Path>MsgTrans "+dest$+".MsgTrans ~C ~V")

++�shell_Action(�shell_Poll_I(0,_U%!148))

,�

-:

.� �Create_New(fname$)

/� path$,lib$,new_name$

0!new_name$=�shell_Leaf(fname$)

1path$=�shell_GetAppDir

2@�shell_IconbarSetText(-1,sicon,�shell_MessageNoArgs("Busy"))

39fname$=�shell_Branch(fname$)+".!"+�shell_Leaf(fname$)

4

5B�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("Create"),-1)

6�("CDIR "+fname$)

7(� �shell_IsIconSelected(mainw%,12) �

8$  �("CDIR "+fname$+".Resources")

9'  �("CDIR "+fname$+".Resources.UK")

:@  �("CDIR "+fname$+".Resources.UK."+��shell_Leaf(fname$),2))

;�

<*  � �shell_IsIconSelected(mainw%,13) �

=5    �("CDIR "+fname$+"."+��shell_Leaf(fname$),2))

>  �

?�

@+�shell_Action(�shell_Poll_I(0,_U%!148))

A

BE�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyChkSp"),-1)

C/�copy_file(fname$,path$+".NewApp.ChkSpr",0)

D)�shell_Action(�shell_Poll_I(0,task%))

E

FE�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("WriteBoot"),-1)

G/�copy_file(fname$,path$+".NewApp.!Boot",-1)

H

ID�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("WriteRun"),-1)

J.�copy_file(fname$,path$+".NewApp.!Run",-1)

K(� �shell_IsIconSelected(mainw%,12) �

LC  �edit_file(fname$+".!Run","|Set Dummy$Path","Set Dummy$Path")

M;  �edit_file(fname$+".!Run","|Run Dummy:","Run Dummy:")

NG  �edit_file(fname$+".!Run","|Unset Dummy$Path","Unset Dummy$Path")

O�

P(� �shell_IsIconSelected(mainw%,11) �

Q.  �edit_file(fname$+".!Run","xxxK","128K")

R.  �edit_file(fname$+".!Run","xxxK","128K")

S�

T.  �edit_file(fname$+".!Run","xxxK","192K")

U.  �edit_file(fname$+".!Run","xxxK","192K")

V�

W

XE�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("WriteMess"),-1)

Y(� �shell_IsIconSelected(mainw%,12) �

ZP  �("COPY "+path$+".NewApp.Messages "+fname$+".Resources.UK.Messages ~C ~V")

[Z  �("COPY <EvntShellSystem$Path>Resources.ResFind "+fname$+".Resources.ResFind ~C ~V")

\G  �edit_file(fname$+".Resources.UK.Messages","@@@@@@@@@",new_name$)

]8  �("SetType "+fname$+".Resources.UK.Messages &FFF")

^�

_4  �copy_file(fname$,path$+".NewApp.Messages",-1)

`�

a)�shell_Action(�shell_Poll_I(0,task%))

b

cE�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("WriteTemp"),-1)

d2�copy_file(fname$,path$+".NewApp.Templates",0)

e)�shell_Action(�shell_Poll_I(0,task%))

f

gE�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("WriteSpr0"),-1)

h?spritearea%=�shell_SpriteAreaLoad(path$+".NewApp.!Sprites")

iB�shell_SpriteRename(spritearea%,"!newapp",�shell_Leaf(fname$))

jN�shell_SpriteRename(spritearea%,"ic_newapp","ic_"+��shell_Leaf(fname$),2))

k9�shell_SpriteAreaSave(spritearea%,fname$+".!Sprites")

l'�shell_HeapBlockReturn(spritearea%)

m)�shell_Action(�shell_Poll_I(0,task%))

n

oE�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("WriteSpr1"),-1)

pAspritearea%=�shell_SpriteAreaLoad(path$+".NewApp.!Sprites22")

qB�shell_SpriteRename(spritearea%,"!newapp",�shell_Leaf(fname$))

rN�shell_SpriteRename(spritearea%,"ic_newapp","ic_"+��shell_Leaf(fname$),2))

s;�shell_SpriteAreaSave(spritearea%,fname$+".!Sprites22")

t'�shell_HeapBlockReturn(spritearea%)

u)�shell_Action(�shell_Poll_I(0,task%))

v

wE�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("WriteSpr2"),-1)

x0�copy_file(fname$,path$+".NewApp.Sprites",0)

y)�shell_Action(�shell_Poll_I(0,task%))

z

{E�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("WriteSpr3"),-1)

|2�copy_file(fname$,path$+".NewApp.Sprites22",0)

})�shell_Action(�shell_Poll_I(0,task%))

~

(� �shell_IsIconSelected(mainw%,13) �

�G  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyHelpD"),-1)

�*  � �shell_IsIconSelected(mainw%,12) �

�v    �("COPY  "+path$+".NewApp.NewApp.HelpData "+fname$+".Resources.UK."+��shell_Leaf(fname$),2)+".HelpData ~C ~V")

�  �

�i    �("COPY  "+path$+".NewApp.NewApp.HelpData "+fname$+"."+��shell_Leaf(fname$),2)+".HelpData ~C ~V")

�  �

�+  �shell_Action(�shell_Poll_I(0,task%))

�

�G  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyIndex"),-1)

�*  � �shell_IsIconSelected(mainw%,12) �

�p    �("COPY  "+path$+".NewApp.NewApp.Index "+fname$+".Resources.UK."+��shell_Leaf(fname$),2)+".Index ~C ~V")

�  �

�c    �("COPY  "+path$+".NewApp.NewApp.Index "+fname$+"."+��shell_Leaf(fname$),2)+".Index ~C ~V")

�  �

�+  �shell_Action(�shell_Poll_I(0,task%))

��

�

�D�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyHelp"),-1)

�(� �shell_IsIconSelected(mainw%,12) �

�?  �copy_file(fname$+".Resources.UK",path$+".NewApp.Help",0)

�1  �copy_file(fname$,path$+".NewApp.!Help",-1)

��

�/  �copy_file(fname$,path$+".NewApp.Help",0)

�2  �("Rename "+fname$+".Help "+fname$+".!Help")

��

�)�shell_Action(�shell_Poll_I(0,task%))

�

�B�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("ProcRI"),-1)

�P�basicprog_process(path$+".NewApp.!RunImage",fname$+"."+�shell_Leaf(fname$))

�

�(� �shell_IsIconSelected(mainw%,10) �

�

�  � create standalone..

�  

�  � copy shellmsgs file..

�H  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyShMess"),-1)

�*  � �shell_IsIconSelected(mainw%,12) �

�O    �("COPY ShellSysRes:ShellMsgs "+fname$+".Resources.UK.ShellMsgs ~C ~V")

�  �

�B    �("COPY ShellSysRes:ShellMsgs "+fname$+".ShellMsgs ~C ~V")

�  �

�+  �shell_Action(�shell_Poll_I(0,task%))

�  

�  � copy modules..

�G  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyFMMod"),-1)

�H  �("COPY <EvntShellSystem$Path>FontMenu "+fname$+".FontMenu ~C ~V")

�-  �shell_Action(�shell_Poll_I(0,_U%!148))

�  

�G  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyIFMod"),-1)

�J  �("COPY <EvntShellSystem$Path>Interface "+fname$+".Interface ~C ~V")

�-  �shell_Action(�shell_Poll_I(0,_U%!148))

�  

�G  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyMUMod"),-1)

�J  �("COPY <EvntShellSystem$Path>MenuUtils "+fname$+".MenuUtils ~C ~V")

�-  �shell_Action(�shell_Poll_I(0,_U%!148))

�  

�G  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyMTMod"),-1)

�H  �("COPY <EvntShellSystem$Path>MsgTrans "+fname$+".MsgTrans ~C ~V")

�-  �shell_Action(�shell_Poll_I(0,_U%!148))

�  

�G  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyHeapC"),-1)

�H  �("COPY <EvntShellSystem$Path>Heapcode "+fname$+".heapcode ~C ~V")

�-  �shell_Action(�shell_Poll_I(0,_U%!148))

�  

�E  �shell_IconPutData(mainw%,8,�shell_MessageNoArgs("CopyLib"),-1)

�N  � �shell_IsIconSelected(mainw%,11) � lib$="ShellLibRT" � lib$="ShellLib"

�H  �("COPY <EvntShellSystem$Path>"+lib$+" "+fname$+"."+lib$+" ~C ~V")

�-  �shell_Action(�shell_Poll_I(0,_U%!148))

�  

�G  � edit new !Run file to load modules from application directory..

�G  �edit_file(fname$+".!Run","<EvntShellSystem$Path>","<Obey$Dir>.")

�?  �edit_file(fname$+".!Run","Shell resources not found","")

�

��

�B�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("Waiting"),0)

�A�shell_IconbarSetText(-1,sicon,�shell_MessageNoArgs("Ready"))

��

�:

�,� �edit_file(filename$,target$,replace$)

�}ș "Wimp_StartTask","<AppBuild$Dir>.MSed "+�34+target$+�34+" "+�34+replace$+�34+" "+filename$+" > <AppBuild$Dir>.TmpFile"

�+�("SETTYPE <AppBuild$Dir>.TmpFile FEB")

�<�("COPY <AppBuild$Dir>.TmpFile "+filename$+" ~C ~V D F")

��

�:

�#� �copy_file(fname$,file$,pad%)

�%� path$,leaf$,input%,output%,ctr%

�!path$=�shell_GetAppDir:ctr%=0

�-leaf$=��shell_Leaf(fname$),2):� strip "!"

�input% =�(file$)

�,output%=�(fname$+"."+�shell_Leaf(file$))

��

�  byte%=�# input%

�#  � byte%=64 � ctr%+=1 � ctr%=0

�  �# output%,byte%

�7  � ctr%=9 � ctr%=0:�back_track(output%,leaf$,pad%)

�� �# input%

�
�# input%

��# output%

� type%=�shell_FileType(file$)

�;�("SetType "+fname$+"."+�shell_Leaf(file$)+" "+�~type%)

��

�:

�#� �back_track(fptr%,name$,pad%)

�� I%

�?� pad%>-1 � name$=�shell_StringPadTrailing(name$,�(pad%),9)

��# fptr%=�# fptr% - 9

�� I%=1 � �name$

�  �# fptr%,�(�name$,I%,1))

�� I%

��

�:

�2� �basicprog_process(input_file$,output_file$)

�ș "Wimp_StartTask","<AppBuild$Dir>.BSed "+�34+"@@@@@@@@@"+�34+" "+�34+��shell_Leaf(output_file$),2)+�34+" "+input_file$+" <AppBuild$Dir>.TmpFile0"

�(� �shell_IsIconSelected(mainw%,10) �

�  ș "Wimp_StartTask","<AppBuild$Dir>.BSed "+�34+"<EvntShellSystem$Path>"+�34+" "+�34+"<Obey$Dir>."+�34+" "+"<AppBuild$Dir>.TmpFile0 <AppBuild$Dir>.TmpFile1"

�)  �("Remove <AppBuild$Dir>.TmpFile0")

�A  �("Rename <AppBuild$Dir>.TmpFile1 <AppBuild$Dir>.TmpFile0")

��

�(� �shell_IsIconSelected(mainw%,11) �

�  �

��    ș "Wimp_StartTask","<AppBuild$Dir>.BSed "+�34+"ShellLibRT"+�34+" "+�34+"ShellLib"+�34+" "+"<AppBuild$Dir>.TmpFile0 <AppBuild$Dir>.TmpFile1"

�+    �("Remove <AppBuild$Dir>.TmpFile0")

�C    �("Rename <AppBuild$Dir>.TmpFile1 <AppBuild$Dir>.TmpFile0")

�  �

��

�-�("SetType <AppBuild$Dir>.TmpFile0 &FFB")

�<�("Copy <AppBuild$Dir>.TmpFile0 "+output_file$+" ~C ~V")

�'�("Remove <AppBuild$Dir>.TmpFile0")
'�("Remove <AppBuild$Dir>.TmpFile1")

�
:

J� =================== Routines to go in the library ==================
:



�

00000000  0d 00 01 20 f4 20 3e 20  3c 41 70 70 42 75 69 6c  |... . > <AppBuil|
00000010  64 24 44 69 72 3e 2e 21  41 70 70 42 75 69 6c 64  |d$Dir>.!AppBuild|
00000020  0d 00 02 05 3a 0d 00 03  10 64 65 62 75 67 67 69  |....:....debuggi|
00000030  6e 67 25 3d a3 0d 00 04  29 f4 20 43 6f 70 79 72  |ng%=....). Copyr|
00000040  69 67 68 74 20 50 61 75  6c 20 48 6f 62 62 73 20  |ight Paul Hobbs |
00000050  31 39 39 30 2c 31 39 39  31 2c 31 39 39 32 0d 00  |1990,1991,1992..|
00000060  05 19 f4 20 52 68 65 69  6e 70 66 61 6c 7a 73 74  |... Rheinpfalzst|
00000070  72 61 73 73 65 20 32 0d  00 06 19 f4 20 20 20 20  |rasse 2.....    |
00000080  38 35 30 34 39 20 49 6e  67 6f 6c 73 74 61 64 74  |85049 Ingolstadt|
00000090  0d 00 07 19 f4 20 20 20  20 20 20 20 20 20 20 20  |.....           |
000000a0  20 20 47 65 72 6d 61 6e  79 0d 00 08 05 3a 0d 00  |  Germany....:..|
000000b0  09 3e f4 20 54 68 69 73  20 70 72 6f 67 72 61 6d  |.>. This program|
000000c0  20 61 6e 64 20 70 61 72  74 73 20 74 68 65 72 65  | and parts there|
000000d0  6f 66 20 6d 61 79 20 62  65 20 66 72 65 65 6c 79  |of may be freely|
000000e0  20 64 69 73 74 72 69 62  75 74 65 64 0d 00 0a 05  | distributed....|
000000f0  3a 0d 00 0b 33 ee 20 85  20 eb 31 32 3a c8 99 22  |:...3. . .12:.."|
00000100  48 6f 75 72 67 6c 61 73  73 5f 53 6d 61 73 68 22  |Hourglass_Smash"|
00000110  3a f6 3a f1 22 20 61 74  20 6c 69 6e 65 3a 20 22  |:.:." at line: "|
00000120  3b 9e 3a e0 0d 00 0c 05  3a 0d 00 0d 29 c8 9b 20  |;.:.....:...).. |
00000130  22 3c 45 76 6e 74 53 68  65 6c 6c 53 79 73 74 65  |"<EvntShellSyste|
00000140  6d 24 50 61 74 68 3e 53  68 65 6c 6c 4c 69 62 52  |m$Path>ShellLibR|
00000150  54 22 0d 00 0e 05 3a 0d  00 0f 15 c8 99 20 22 48  |T"....:...... "H|
00000160  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 00 10 05  |ourglass_On"....|
00000170  3a 0d 00 11 28 c8 99 20  22 57 69 6d 70 5f 53 6c  |:...(.. "Wimp_Sl|
00000180  6f 74 53 69 7a 65 22 2c  2d 31 2c 2d 31 20 b8 20  |otSize",-1,-1 . |
00000190  70 72 6f 67 73 69 7a 65  25 0d 00 12 13 70 61 67  |progsize%....pag|
000001a0  65 73 69 7a 65 25 3d 31  3c 3c 31 30 0d 00 13 1e  |esize%=1<<10....|
000001b0  66 72 65 65 73 70 61 63  65 25 3d 26 38 30 30 30  |freespace%=&8000|
000001c0  2b 70 72 6f 67 73 69 7a  65 25 0d 00 14 1a e0 3d  |+progsize%.....=|
000001d0  66 72 65 65 73 70 61 63  65 25 2b 70 61 67 65 73  |freespace%+pages|
000001e0  69 7a 65 25 0d 00 15 10  d3 3d 66 72 65 65 73 70  |ize%.....=freesp|
000001f0  61 63 65 25 0d 00 16 05  3a 0d 00 17 3f f2 73 68  |ace%....:...?.sh|
00000200  65 6c 6c 5f 48 65 61 70  4d 61 6e 61 67 65 72 49  |ell_HeapManagerI|
00000210  6e 69 74 28 22 3c 45 76  6e 74 53 68 65 6c 6c 53  |nit("<EvntShellS|
00000220  79 73 74 65 6d 24 50 61  74 68 3e 22 2c 66 72 65  |ystem$Path>",fre|
00000230  65 73 70 61 63 65 25 29  0d 00 18 0f f2 73 68 65  |espace%).....she|
00000240  6c 6c 5f 49 6e 69 74 0d  00 19 3c 74 61 73 6b 25  |ll_Init...<task%|
00000250  3d a4 73 68 65 6c 6c 5f  57 69 6d 70 49 6e 69 74  |=.shell_WimpInit|
00000260  5f 49 28 32 30 30 2c 22  53 68 65 6c 6c 20 41 70  |_I(200,"Shell Ap|
00000270  70 6c 69 63 61 74 69 6f  6e 20 42 75 69 6c 64 65  |plication Builde|
00000280  72 22 29 0d 00 1a 18 f2  73 68 65 6c 6c 5f 54 72  |r").....shell_Tr|
00000290  61 63 65 49 6e 69 74 28  22 22 29 0d 00 1b 17 f4  |aceInit("").....|
000002a0  20 50 52 4f 43 73 68 65  6c 6c 5f 54 72 61 63 65  | PROCshell_Trace|
000002b0  4f 6e 0d 00 1c 18 f2 73  68 65 6c 6c 5f 52 65 73  |On.....shell_Res|
000002c0  6f 75 72 63 65 73 49 6e  69 74 0d 00 1d 0d f2 61  |ourcesInit.....a|
000002d0  70 70 5f 69 6e 69 74 0d  00 1e 05 3a 0d 00 1f 4c  |pp_init....:...L|
000002e0  f4 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |. --------------|
000002f0  2d 2d 2d 2d 2d 2d 20 49  6e 69 74 69 61 6c 69 73  |------ Initialis|
00000300  65 20 56 61 72 69 61 62  6c 65 73 20 2d 2d 2d 2d  |e Variables ----|
00000310  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000320  2d 2d 2d 2d 2d 2d 2d 2d  0d 00 20 05 3a 0d 00 21  |--------.. .:..!|
00000330  47 5f 63 6c 6f 73 65 64  6f 77 6e 25 20 20 20 20  |G_closedown%    |
00000340  20 3d a3 20 3a f4 20 53  65 74 20 74 68 69 73 20  | =. :. Set this |
00000350  74 6f 20 54 52 55 45 20  77 68 65 6e 20 79 6f 75  |to TRUE when you|
00000360  20 77 61 6e 74 20 74 68  65 20 70 72 6f 67 72 61  | want the progra|
00000370  6d 20 74 6f 0d 00 22 21  20 20 20 20 20 20 20 20  |m to.."!        |
00000380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00000390  f4 20 65 6e 64 0d 00 23  44 63 68 61 6e 67 65 64  |. end..#Dchanged|
000003a0  25 20 20 20 20 20 20 20  20 3d a3 20 3a f4 20 55  |%        =. :. U|
000003b0  73 65 64 20 74 6f 20 6b  65 65 70 20 74 72 61 63  |sed to keep trac|
000003c0  6b 20 6f 66 20 77 68 65  74 68 65 72 20 74 68 65  |k of whether the|
000003d0  20 64 61 74 61 20 68 61  73 0d 00 24 4b 20 20 20  | data has..$K   |
000003e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003f0  20 20 20 20 3a f4 20 62  65 65 6e 20 63 68 61 6e  |    :. been chan|
00000400  67 65 64 2e 20 43 61 6c  6c 20 50 52 4f 43 66 69  |ged. Call PROCfi|
00000410  6c 65 5f 63 68 61 6e 67  65 64 28 29 20 77 68 65  |le_changed() whe|
00000420  6e 20 69 74 0d 00 25 47  20 20 20 20 20 20 20 20  |n it..%G        |
00000430  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3a  |               :|
00000440  f4 20 68 61 73 2e 20 42  75 74 20 69 66 20 74 68  |. has. But if th|
00000450  65 20 70 72 6f 67 72 61  6d 20 64 6f 65 73 20 6e  |e program does n|
00000460  6f 74 20 75 73 65 20 64  61 74 61 0d 00 26 48 20  |ot use data..&H |
00000470  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000480  20 20 20 20 20 20 3a f4  20 66 69 6c 65 73 20 6a  |      :. files j|
00000490  75 73 74 20 69 67 6e 6f  72 65 20 74 68 69 73 20  |ust ignore this |
000004a0  76 61 72 69 61 62 6c 65  20 62 75 74 20 64 6f 20  |variable but do |
000004b0  6e 6f 74 0d 00 27 47 20  20 20 20 20 20 20 20 20  |not..'G         |
000004c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3a f4  |              :.|
000004d0  20 64 65 6c 65 74 65 20  69 74 20 61 73 20 74 68  | delete it as th|
000004e0  65 20 70 72 6f 67 72 61  6d 20 63 68 65 63 6b 73  |e program checks|
000004f0  20 69 74 20 62 65 66 6f  72 65 0d 00 28 26 20 20  | it before..(&  |
00000500  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000510  20 20 20 20 20 3a f4 20  65 78 69 74 69 6e 67 21  |     :. exiting!|
00000520  0d 00 29 05 3a 0d 00 2a  4c f4 20 2d 2d 2d 2d 2d  |..).:..*L. -----|
00000530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 20  |--------------- |
00000540  4d 69 73 63 65 6c 6c 65  61 6e 6f 75 73 20 49 6e  |Miscelleanous In|
00000550  69 74 69 61 6c 69 73 61  74 69 6f 6e 20 2d 2d 2d  |itialisation ---|
00000560  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000570  2d 0d 00 2b 05 3a 0d 00  2c 05 3a 0d 00 2d 14 ee  |-..+.:..,.:..-..|
00000580  20 85 20 f2 73 68 65 6c  6c 5f 45 72 72 6f 72 0d  | . .shell_Error.|
00000590  00 2e 05 3a 0d 00 2f 16  c8 99 20 22 48 6f 75 72  |...:../... "Hour|
000005a0  67 6c 61 73 73 5f 4f 66  66 22 0d 00 30 05 f5 0d  |glass_Off"..0...|
000005b0  00 31 2b 20 20 f2 73 68  65 6c 6c 5f 41 63 74 69  |.1+  .shell_Acti|
000005c0  6f 6e 28 a4 73 68 65 6c  6c 5f 50 6f 6c 6c 5f 49  |on(.shell_Poll_I|
000005d0  28 30 2c 74 61 73 6b 25  29 29 0d 00 32 11 fd 20  |(0,task%))..2.. |
000005e0  5f 63 6c 6f 73 65 64 6f  77 6e 25 0d 00 33 05 3a  |_closedown%..3.:|
000005f0  0d 00 34 11 f2 73 68 65  6c 6c 5f 45 78 69 74 3a  |..4..shell_Exit:|
00000600  e0 0d 00 35 05 3a 0d 00  36 4c f4 20 3d 3d 3d 3d  |...5.:..6L. ====|
00000610  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000650  3d 3d 0d 00 37 05 3a 0d  00 38 0e dd f2 61 70 70  |==..7.:..8...app|
00000660  5f 69 6e 69 74 0d 00 39  1a 64 65 66 61 75 6c 74  |_init..9.default|
00000670  5f 6e 61 6d 65 24 3d 22  4e 65 77 41 70 70 22 0d  |_name$="NewApp".|
00000680  00 3a 24 46 69 6c 65 4e  61 6d 65 5f 4f 72 69 67  |.:$FileName_Orig|
00000690  69 6e 61 6c 24 3d 64 65  66 61 75 6c 74 5f 6e 61  |inal$=default_na|
000006a0  6d 65 24 0d 00 3b 19 46  69 6c 65 4e 61 6d 65 5f  |me$..;.FileName_|
000006b0  4e 65 77 24 20 20 20 20  20 3d 22 22 0d 00 3c 10  |New$     =""..<.|
000006c0  f2 53 65 74 55 70 5f 4d  65 6e 75 73 0d 00 3d 12  |.SetUp_Menus..=.|
000006d0  f2 53 65 74 55 70 5f 57  69 6e 64 6f 77 73 0d 00  |.SetUp_Windows..|
000006e0  3e 12 f2 53 65 74 55 70  5f 49 63 6f 6e 42 61 72  |>..SetUp_IconBar|
000006f0  0d 00 3f 47 f2 73 68 65  6c 6c 5f 49 6e 69 74 48  |..?G.shell_InitH|
00000700  65 6c 70 53 79 73 74 65  6d 28 a4 73 68 65 6c 6c  |elpSystem(.shell|
00000710  5f 47 65 74 41 70 70 4e  61 6d 65 2b 22 52 65 73  |_GetAppName+"Res|
00000720  3a 22 2b a4 73 68 65 6c  6c 5f 47 65 74 41 70 70  |:"+.shell_GetApp|
00000730  4e 61 6d 65 2c b9 29 0d  00 40 05 e1 0d 00 41 05  |Name,.)..@....A.|
00000740  3a 0d 00 42 04 0d 00 43  46 f4 20 3d 3d 3d 3d 3d  |:..B...CF. =====|
00000750  20 4d 65 6e 75 5f 53 65  74 55 70 20 72 6f 75 74  | Menu_SetUp rout|
00000760  69 6e 65 73 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |ines ===========|
00000770  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000780  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 0d 00 44 04 0d  |===========..D..|
00000790  00 45 12 dd 20 f2 53 65  74 55 70 5f 4d 65 6e 75  |.E.. .SetUp_Menu|
000007a0  73 0d 00 46 0b ea 20 76  6f 69 64 25 0d 00 47 04  |s..F.. void%..G.|
000007b0  0d 00 48 48 4d 65 6e 75  48 61 6e 64 6c 65 5f 49  |..HHMenuHandle_I|
000007c0  63 6f 6e 42 61 72 25 3d  a4 73 68 65 6c 6c 5f 4d  |conBar%=.shell_M|
000007d0  65 6e 75 4e 65 77 28 a4  73 68 65 6c 6c 5f 4d 65  |enuNew(.shell_Me|
000007e0  73 73 61 67 65 4e 6f 41  72 67 73 28 22 41 70 70  |ssageNoArgs("App|
000007f0  42 75 69 6c 64 22 29 29  0d 00 49 49 4d 65 6e 75  |Build"))..IIMenu|
00000800  49 74 65 6d 5f 49 6e 66  6f 25 20 20 20 20 20 3d  |Item_Info%     =|
00000810  a4 73 68 65 6c 6c 5f 4d  65 6e 75 41 64 64 28 30  |.shell_MenuAdd(0|
00000820  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
00000830  6f 41 72 67 73 28 22 49  6e 66 6f 22 29 2c 22 22  |oArgs("Info"),""|
00000840  29 0d 00 4a 59 76 6f 69  64 25 20 20 20 20 20 20  |)..JYvoid%      |
00000850  20 20 20 20 20 20 20 20  3d a4 73 68 65 6c 6c 5f  |        =.shell_|
00000860  4d 65 6e 75 41 64 64 28  30 2c a4 73 68 65 6c 6c  |MenuAdd(0,.shell|
00000870  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00000880  48 65 6c 70 22 29 2c 22  5f 4d 65 6e 75 53 65 6c  |Help"),"_MenuSel|
00000890  65 63 74 5f 48 65 6c 70  22 29 0d 00 4b 59 76 6f  |ect_Help")..KYvo|
000008a0  69 64 25 20 20 20 20 20  20 20 20 20 20 20 20 20  |id%             |
000008b0  20 3d a4 73 68 65 6c 6c  5f 4d 65 6e 75 41 64 64  | =.shell_MenuAdd|
000008c0  28 30 2c a4 73 68 65 6c  6c 5f 4d 65 73 73 61 67  |(0,.shell_Messag|
000008d0  65 4e 6f 41 72 67 73 28  22 51 75 69 74 22 29 2c  |eNoArgs("Quit"),|
000008e0  22 5f 4d 65 6e 75 53 65  6c 65 63 74 5f 51 75 69  |"_MenuSelect_Qui|
000008f0  74 22 29 0d 00 4c 46 f2  73 68 65 6c 6c 5f 41 74  |t")..LF.shell_At|
00000900  74 61 63 68 4d 65 6e 75  44 42 6f 78 28 4d 65 6e  |tachMenuDBox(Men|
00000910  75 49 74 65 6d 5f 49 6e  66 6f 25 2c 22 70 72 6f  |uItem_Info%,"pro|
00000920  67 49 6e 66 6f 22 2c 22  5f 50 72 65 4f 70 65 6e  |gInfo","_PreOpen|
00000930  49 6e 66 6f 22 2c 22 22  29 0d 00 4d 04 0d 00 4e  |Info","")..M...N|
00000940  05 e1 0d 00 4f 05 3a 0d  00 50 04 0d 00 51 46 f4  |....O.:..P...QF.|
00000950  20 3d 3d 3d 3d 3d 20 57  69 6e 64 6f 77 5f 53 65  | ===== Window_Se|
00000960  74 55 70 20 72 6f 75 74  69 6e 65 73 20 3d 3d 3d  |tUp routines ===|
00000970  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000990  3d 0d 00 52 04 0d 00 53  14 dd 20 f2 53 65 74 55  |=..R...S.. .SetU|
000009a0  70 5f 57 69 6e 64 6f 77  73 0d 00 54 2d f2 73 68  |p_Windows..T-.sh|
000009b0  65 6c 6c 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |ell_CreateWindow|
000009c0  53 74 61 74 69 63 28 22  6d 61 69 6e 77 22 2c 6d  |Static("mainw",m|
000009d0  61 69 6e 77 25 29 0d 00  55 30 f2 73 68 65 6c 6c  |ainw%)..U0.shell|
000009e0  5f 49 63 6f 6e 50 75 74  44 61 74 61 28 6d 61 69  |_IconPutData(mai|
000009f0  6e 77 25 2c 33 2c 64 65  66 61 75 6c 74 5f 6e 61  |nw%,3,default_na|
00000a00  6d 65 24 2c 30 29 0d 00  56 43 f2 73 68 65 6c 6c  |me$,0)..VC.shell|
00000a10  5f 49 63 6f 6e 50 75 74  44 61 74 61 28 6d 61 69  |_IconPutData(mai|
00000a20  6e 77 25 2c 35 2c a4 73  68 65 6c 6c 5f 4d 65 73  |nw%,5,.shell_Mes|
00000a30  73 61 67 65 4e 6f 41 72  67 73 28 22 6d 77 70 72  |sageNoArgs("mwpr|
00000a40  6f 6d 70 74 22 29 2c 30  29 0d 00 57 42 f2 73 68  |ompt"),0)..WB.sh|
00000a50  65 6c 6c 5f 49 63 6f 6e  50 75 74 44 61 74 61 28  |ell_IconPutData(|
00000a60  6d 61 69 6e 77 25 2c 38  2c a4 73 68 65 6c 6c 5f  |mainw%,8,.shell_|
00000a70  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 57  |MessageNoArgs("W|
00000a80  61 69 74 69 6e 67 22 29  2c 30 29 0d 00 58 38 f2  |aiting"),0)..X8.|
00000a90  73 68 65 6c 6c 5f 41 74  74 61 63 68 43 6c 69 63  |shell_AttachClic|
00000aa0  6b 53 65 6c 65 63 74 28  6d 61 69 6e 77 25 2c 30  |kSelect(mainw%,0|
00000ab0  2c 22 5f 43 6c 69 63 6b  53 65 6c 65 63 74 5f 4f  |,"_ClickSelect_O|
00000ac0  4b 22 29 0d 00 59 2d f2  73 68 65 6c 6c 5f 41 74  |K")..Y-.shell_At|
00000ad0  74 61 63 68 48 65 6c 70  54 61 67 28 6d 61 69 6e  |tachHelpTag(main|
00000ae0  77 25 2c 2d 31 2c 22 6d  61 69 6e 77 69 6e 22 29  |w%,-1,"mainwin")|
00000af0  0d 00 5a 3d f2 73 68 65  6c 6c 5f 41 74 74 61 63  |..Z=.shell_Attac|
00000b00  68 44 61 74 61 4c 6f 61  64 28 6d 61 69 6e 77 25  |hDataLoad(mainw%|
00000b10  2c 2d 31 2c 26 32 30 30  30 2c 22 5f 44 61 74 61  |,-1,&2000,"_Data|
00000b20  4c 6f 61 64 5f 32 30 30  30 22 2c b9 29 0d 00 5b  |Load_2000",.)..[|
00000b30  3a f2 73 68 65 6c 6c 5f  41 74 74 61 63 68 44 61  |:.shell_AttachDa|
00000b40  74 61 53 61 76 65 28 6d  61 69 6e 77 25 2c 32 2c  |taSave(mainw%,2,|
00000b50  31 30 30 2c 26 32 30 30  30 2c 33 2c 22 5f 64 6f  |100,&2000,3,"_do|
00000b60  5f 73 61 76 65 22 29 0d  00 5c 05 e1 0d 00 5d 04  |_save")..\....].|
00000b70  0d 00 5e 46 f4 20 3d 3d  3d 3d 3d 20 49 63 6f 6e  |..^F. ===== Icon|
00000b80  42 61 72 5f 53 65 74 55  70 20 72 6f 75 74 69 6e  |Bar_SetUp routin|
00000b90  65 73 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |es =============|
00000ba0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000bb0  3d 3d 3d 3d 3d 3d 0d 00  5f 04 0d 00 60 14 dd 20  |======.._...`.. |
00000bc0  f2 53 65 74 55 70 5f 49  63 6f 6e 42 61 72 0d 00  |.SetUp_IconBar..|
00000bd0  61 6e 73 69 63 6f 6e 3d  a4 73 68 65 6c 6c 5f 49  |ansicon=.shell_I|
00000be0  63 6f 6e 62 61 72 28 2d  31 2c 22 21 22 2b a4 73  |conbar(-1,"!"+.s|
00000bf0  68 65 6c 6c 5f 47 65 74  41 70 70 4e 61 6d 65 2c  |hell_GetAppName,|
00000c00  a4 73 68 65 6c 6c 5f 4d  65 73 73 61 67 65 4e 6f  |.shell_MessageNo|
00000c10  41 72 67 73 28 22 52 65  61 64 79 22 29 2c 31 32  |Args("Ready"),12|
00000c20  30 2c 4d 65 6e 75 48 61  6e 64 6c 65 5f 49 63 6f  |0,MenuHandle_Ico|
00000c30  6e 42 61 72 25 2c 30 2c  30 2c 30 29 0d 00 62 2c  |nBar%,0,0,0)..b,|
00000c40  f2 73 68 65 6c 6c 5f 41  74 74 61 63 68 48 65 6c  |.shell_AttachHel|
00000c50  70 54 61 67 28 2d 31 2c  73 69 63 6f 6e 2c 22 69  |pTag(-1,sicon,"i|
00000c60  63 6f 6e 62 61 72 22 29  0d 00 63 3d f2 73 68 65  |conbar")..c=.she|
00000c70  6c 6c 5f 41 74 74 61 63  68 43 6c 69 63 6b 53 65  |ll_AttachClickSe|
00000c80  6c 65 63 74 28 2d 31 2c  73 69 63 6f 6e 2c 22 5f  |lect(-1,sicon,"_|
00000c90  43 6c 69 63 6b 53 65 6c  65 63 74 5f 49 63 6f 6e  |ClickSelect_Icon|
00000ca0  42 61 72 22 29 0d 00 64  3c f2 73 68 65 6c 6c 5f  |Bar")..d<.shell_|
00000cb0  41 74 74 61 63 68 44 61  74 61 4c 6f 61 64 28 2d  |AttachDataLoad(-|
00000cc0  31 2c 73 69 63 6f 6e 2c  26 32 30 30 30 2c 22 5f  |1,sicon,&2000,"_|
00000cd0  44 61 74 61 4c 6f 61 64  5f 32 30 30 30 22 2c b9  |DataLoad_2000",.|
00000ce0  29 0d 00 65 05 e1 0d 00  66 04 0d 00 67 46 f4 20  |)..e....f...gF. |
00000cf0  3d 3d 3d 3d 3d 20 44 69  61 6c 6f 67 5f 50 72 65  |===== Dialog_Pre|
00000d00  4f 70 65 6e 20 72 6f 75  74 69 6e 65 73 20 3d 3d  |Open routines ==|
00000d10  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000d30  0d 00 68 04 0d 00 69 17  dd a4 5f 50 72 65 4f 70  |..h...i..._PreOp|
00000d40  65 6e 49 6e 66 6f 28 77  68 25 29 0d 00 6a 41 f2  |enInfo(wh%)..jA.|
00000d50  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
00000d60  61 28 77 68 25 2c 30 2c  a4 73 68 65 6c 6c 5f 4d  |a(wh%,0,.shell_M|
00000d70  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 70 72  |essageNoArgs("pr|
00000d80  6f 67 49 6e 66 6f 30 22  29 2c 30 29 0d 00 6b 41  |ogInfo0"),0)..kA|
00000d90  f2 73 68 65 6c 6c 5f 49  63 6f 6e 50 75 74 44 61  |.shell_IconPutDa|
00000da0  74 61 28 77 68 25 2c 31  2c a4 73 68 65 6c 6c 5f  |ta(wh%,1,.shell_|
00000db0  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 70  |MessageNoArgs("p|
00000dc0  72 6f 67 49 6e 66 6f 31  22 29 2c 30 29 0d 00 6c  |rogInfo1"),0)..l|
00000dd0  41 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  |A.shell_IconPutD|
00000de0  61 74 61 28 77 68 25 2c  32 2c a4 73 68 65 6c 6c  |ata(wh%,2,.shell|
00000df0  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00000e00  70 72 6f 67 49 6e 66 6f  32 22 29 2c 30 29 0d 00  |progInfo2"),0)..|
00000e10  6d 41 f2 73 68 65 6c 6c  5f 49 63 6f 6e 50 75 74  |mA.shell_IconPut|
00000e20  44 61 74 61 28 77 68 25  2c 33 2c a4 73 68 65 6c  |Data(wh%,3,.shel|
00000e30  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
00000e40  22 70 72 6f 67 49 6e 66  6f 33 22 29 2c 30 29 0d  |"progInfo3"),0).|
00000e50  00 6e 06 3d 30 0d 00 6f  05 3a 0d 00 70 04 0d 00  |.n.=0..o.:..p...|
00000e60  71 46 f4 20 3d 3d 3d 3d  3d 20 44 69 61 6c 6f 67  |qF. ===== Dialog|
00000e70  5f 50 6f 73 74 4f 70 65  6e 20 72 6f 75 74 69 6e  |_PostOpen routin|
00000e80  65 73 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |es =============|
00000e90  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000ea0  3d 3d 3d 3d 0d 00 72 04  0d 00 73 46 f4 20 3d 3d  |====..r...sF. ==|
00000eb0  3d 3d 3d 20 43 6c 69 63  6b 5f 53 65 6c 65 63 74  |=== Click_Select|
00000ec0  20 72 6f 75 74 69 6e 65  73 20 3d 3d 3d 3d 3d 3d  | routines ======|
00000ed0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000ee0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 0d 00  |==============..|
00000ef0  74 04 0d 00 75 26 dd 20  a4 5f 43 6c 69 63 6b 53  |t...u&. ._ClickS|
00000f00  65 6c 65 63 74 5f 49 63  6f 6e 42 61 72 28 77 68  |elect_IconBar(wh|
00000f10  25 2c 69 63 6f 6e 25 29  0d 00 76 42 f2 73 68 65  |%,icon%)..vB.she|
00000f20  6c 6c 5f 49 63 6f 6e 50  75 74 44 61 74 61 28 6d  |ll_IconPutData(m|
00000f30  61 69 6e 77 25 2c 38 2c  a4 73 68 65 6c 6c 5f 4d  |ainw%,8,.shell_M|
00000f40  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 57 61  |essageNoArgs("Wa|
00000f50  69 74 69 6e 67 22 29 2c  30 29 0d 00 77 23 f2 73  |iting"),0)..w#.s|
00000f60  68 65 6c 6c 5f 4f 70 65  6e 57 69 6e 64 6f 77 53  |hell_OpenWindowS|
00000f70  74 61 74 69 63 28 6d 61  69 6e 77 25 29 0d 00 78  |tatic(mainw%)..x|
00000f80  22 f2 73 68 65 6c 6c 5f  43 61 72 65 74 53 65 74  |".shell_CaretSet|
00000f90  52 69 67 68 74 28 6d 61  69 6e 77 25 2c 33 29 0d  |Right(mainw%,3).|
00000fa0  00 79 06 3d 30 0d 00 7a  05 3a 0d 00 7b 21 dd 20  |.y.=0..z.:..{!. |
00000fb0  a4 5f 43 6c 69 63 6b 53  65 6c 65 63 74 5f 4f 4b  |._ClickSelect_OK|
00000fc0  28 77 68 25 2c 69 63 6f  6e 25 29 0d 00 7c 0b ea  |(wh%,icon%)..|..|
00000fd0  20 76 6f 69 64 25 0d 00  7d 31 76 6f 69 64 25 3d  | void%..}1void%=|
00000fe0  a4 5f 64 6f 5f 73 61 76  65 28 a4 73 68 65 6c 6c  |._do_save(.shell|
00000ff0  5f 49 63 6f 6e 47 65 74  44 61 74 61 28 6d 61 69  |_IconGetData(mai|
00001000  6e 77 25 2c 33 29 29 0d  00 7e 06 3d 30 0d 00 7f  |nw%,3))..~.=0...|
00001010  05 3a 0d 00 80 04 0d 00  81 46 f4 20 3d 3d 3d 3d  |.:.......F. ====|
00001020  3d 20 43 6c 69 63 6b 5f  41 64 6a 75 73 74 20 72  |= Click_Adjust r|
00001030  6f 75 74 69 6e 65 73 20  3d 3d 3d 3d 3d 3d 3d 3d  |outines ========|
00001040  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001050  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 0d 00 82 04  |============....|
00001060  0d 00 83 46 f4 20 3d 3d  3d 3d 3d 20 4d 65 6e 75  |...F. ===== Menu|
00001070  5f 53 65 6c 65 63 74 20  72 6f 75 74 69 6e 65 73  |_Select routines|
00001080  20 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  | ===============|
00001090  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000010a0  3d 3d 3d 3d 3d 3d 0d 00  84 04 0d 00 85 1d dd 20  |======......... |
000010b0  a4 5f 4d 65 6e 75 53 65  6c 65 63 74 5f 48 65 6c  |._MenuSelect_Hel|
000010c0  70 28 62 6c 6b 25 29 0d  00 86 2b f2 73 68 65 6c  |p(blk%)...+.shel|
000010d0  6c 5f 48 65 6c 70 57 6f  72 64 28 a4 73 68 65 6c  |l_HelpWord(.shel|
000010e0  6c 5f 47 65 74 41 70 70  4e 61 6d 65 2b 22 2e 24  |l_GetAppName+".$|
000010f0  22 29 0d 00 87 06 3d 30  0d 00 88 05 3a 0d 00 89  |")....=0....:...|
00001100  1d dd 20 a4 5f 4d 65 6e  75 53 65 6c 65 63 74 5f  |.. ._MenuSelect_|
00001110  51 75 69 74 28 62 6c 6b  25 29 0d 00 8a 11 5f 63  |Quit(blk%)...._c|
00001120  6c 6f 73 65 64 6f 77 6e  25 3d b9 0d 00 8b 06 3d  |losedown%=.....=|
00001130  30 0d 00 8c 05 3a 0d 00  8d 04 0d 00 8e 46 f4 20  |0....:.......F. |
00001140  3d 3d 3d 3d 3d 20 4d 65  6e 75 5f 57 61 72 6e 69  |===== Menu_Warni|
00001150  6e 67 20 72 6f 75 74 69  6e 65 73 20 3d 3d 3d 3d  |ng routines ====|
00001160  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001180  0d 00 8f 04 0d 00 90 46  f4 20 3d 3d 3d 3d 3d 20  |.......F. ===== |
00001190  44 61 74 61 5f 4c 6f 61  64 20 72 6f 75 74 69 6e  |Data_Load routin|
000011a0  65 73 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |es =============|
000011b0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000011c0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 0d 00 91 04 0d 00  |==========......|
000011d0  92 2e dd 20 a4 5f 44 61  74 61 4c 6f 61 64 5f 32  |... ._DataLoad_2|
000011e0  30 30 30 28 61 64 64 72  25 2c 74 79 70 65 25 2c  |000(addr%,type%,|
000011f0  66 69 6c 65 24 2c 73 69  7a 65 25 29 0d 00 93 0b  |file$,size%)....|
00001200  ea 20 76 6f 69 64 25 0d  00 94 31 f2 73 68 65 6c  |. void%...1.shel|
00001210  6c 5f 49 63 6f 6e 53 65  74 52 69 67 68 74 4a 75  |l_IconSetRightJu|
00001220  73 74 28 6d 61 69 6e 77  25 2c 33 2c 28 a9 66 69  |st(mainw%,3,(.fi|
00001230  6c 65 24 3e 31 30 29 29  0d 00 95 28 f2 73 68 65  |le$>10))...(.she|
00001240  6c 6c 5f 49 63 6f 6e 50  75 74 44 61 74 61 28 6d  |ll_IconPutData(m|
00001250  61 69 6e 77 25 2c 33 2c  66 69 6c 65 24 2c b9 29  |ainw%,3,file$,.)|
00001260  0d 00 96 1c 46 69 6c 65  4e 61 6d 65 5f 4f 72 69  |....FileName_Ori|
00001270  67 69 6e 61 6c 24 3d 66  69 6c 65 24 0d 00 97 23  |ginal$=file$...#|
00001280  f2 73 68 65 6c 6c 5f 4f  70 65 6e 57 69 6e 64 6f  |.shell_OpenWindo|
00001290  77 53 74 61 74 69 63 28  6d 61 69 6e 77 25 29 0d  |wStatic(mainw%).|
000012a0  00 98 22 f2 73 68 65 6c  6c 5f 43 61 72 65 74 53  |..".shell_CaretS|
000012b0  65 74 52 69 67 68 74 28  6d 61 69 6e 77 25 2c 33  |etRight(mainw%,3|
000012c0  29 0d 00 99 06 3d 30 0d  00 9a 05 3a 0d 00 9b 04  |)....=0....:....|
000012d0  0d 00 9c 46 f4 20 3d 3d  3d 3d 3d 20 44 61 74 61  |...F. ===== Data|
000012e0  5f 53 61 76 65 20 72 6f  75 74 69 6e 65 73 20 3d  |_Save routines =|
000012f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001310  3d 3d 3d 3d 3d 3d 0d 00  9d 04 0d 00 9e 16 dd a4  |======..........|
00001320  5f 64 6f 5f 73 61 76 65  28 66 6e 61 6d 65 24 29  |_do_save(fname$)|
00001330  0d 00 9f 20 e7 20 a7 46  69 6c 65 4e 61 6d 65 5f  |... . .FileName_|
00001340  4f 72 69 67 69 6e 61 6c  24 2c 22 2e 22 29 20 8c  |Original$,".") .|
00001350  0d 00 a0 17 20 20 f2 45  64 69 74 5f 4f 6c 64 28  |....  .Edit_Old(|
00001360  66 6e 61 6d 65 24 29 0d  00 a1 05 cc 0d 00 a2 19  |fname$).........|
00001370  20 20 f2 43 72 65 61 74  65 5f 4e 65 77 28 66 6e  |  .Create_New(fn|
00001380  61 6d 65 24 29 0d 00 a3  05 cd 0d 00 a4 06 3d 30  |ame$).........=0|
00001390  0d 00 a5 05 3a 0d 00 a6  30 dd 20 f2 45 64 69 74  |....:...0. .Edit|
000013a0  5f 42 61 73 69 63 50 72  6f 67 28 6f 6c 64 5f 66  |_BasicProg(old_f|
000013b0  69 6c 65 24 2c 6e 65 77  5f 66 69 6c 65 24 2c 74  |ile$,new_file$,t|
000013c0  24 2c 72 24 29 0d 00 a7  64 c8 99 20 22 57 69 6d  |$,r$)...d.. "Wim|
000013d0  70 5f 53 74 61 72 74 54  61 73 6b 22 2c 22 3c 41  |p_StartTask","<A|
000013e0  70 70 42 75 69 6c 64 24  44 69 72 3e 2e 42 53 65  |ppBuild$Dir>.BSe|
000013f0  64 20 22 2b 74 24 2b 22  20 40 40 40 40 40 40 40  |d "+t$+" @@@@@@@|
00001400  40 40 20 22 2b 6f 6c 64  5f 66 69 6c 65 24 2b 22  |@@ "+old_file$+"|
00001410  20 3c 41 70 70 42 75 69  6c 64 24 44 69 72 3e 2e  | <AppBuild$Dir>.|
00001420  54 6d 70 46 69 6c 65 30  22 0d 00 a8 61 c8 99 20  |TmpFile0"...a.. |
00001430  22 57 69 6d 70 5f 53 74  61 72 74 54 61 73 6b 22  |"Wimp_StartTask"|
00001440  2c 22 3c 41 70 70 42 75  69 6c 64 24 44 69 72 3e  |,"<AppBuild$Dir>|
00001450  2e 42 53 65 64 20 40 40  40 40 40 40 40 40 40 20  |.BSed @@@@@@@@@ |
00001460  22 2b 72 24 2b 22 20 3c  41 70 70 42 75 69 6c 64  |"+r$+" <AppBuild|
00001470  24 44 69 72 3e 2e 54 6d  70 46 69 6c 65 30 20 22  |$Dir>.TmpFile0 "|
00001480  2b 6e 65 77 5f 66 69 6c  65 24 0d 00 a9 27 ff 28  |+new_file$...'.(|
00001490  22 52 65 6d 6f 76 65 20  3c 41 70 70 42 75 69 6c  |"Remove <AppBuil|
000014a0  64 24 44 69 72 3e 2e 54  6d 70 46 69 6c 65 30 22  |d$Dir>.TmpFile0"|
000014b0  29 0d 00 aa 23 ff 28 22  53 65 74 54 79 70 65 20  |)...#.("SetType |
000014c0  22 2b 6e 65 77 5f 66 69  6c 65 24 2b 22 20 26 46  |"+new_file$+" &F|
000014d0  46 42 22 29 0d 00 ab 33  e7 20 6f 6c 64 5f 66 69  |FB")...3. old_fi|
000014e0  6c 65 24 3c 3e 6e 65 77  5f 66 69 6c 65 24 20 8c  |le$<>new_file$ .|
000014f0  20 ff 28 22 52 65 6d 6f  76 65 20 22 2b 6f 6c 64  | .("Remove "+old|
00001500  5f 66 69 6c 65 24 29 0d  00 ac 05 e1 0d 00 ad 05  |_file$).........|
00001510  3a 0d 00 ae 31 dd 20 f2  45 64 69 74 5f 46 69 6c  |:...1. .Edit_Fil|
00001520  65 28 6f 6c 64 5f 66 69  6c 65 24 2c 6e 65 77 5f  |e(old_file$,new_|
00001530  66 69 6c 65 24 2c 74 24  2c 72 24 2c 74 79 70 65  |file$,t$,r$,type|
00001540  25 29 0d 00 af 1f 74 24  3d bd 33 34 2b 74 24 2b  |%)....t$=.34+t$+|
00001550  bd 33 34 3a 72 24 3d bd  33 34 2b 72 24 2b bd 33  |.34:r$=.34+r$+.3|
00001560  34 0d 00 b0 66 c8 99 20  22 57 69 6d 70 5f 53 74  |4...f.. "Wimp_St|
00001570  61 72 74 54 61 73 6b 22  2c 22 3c 41 70 70 42 75  |artTask","<AppBu|
00001580  69 6c 64 24 44 69 72 3e  2e 4d 53 65 64 20 22 2b  |ild$Dir>.MSed "+|
00001590  74 24 2b 22 20 40 40 40  40 40 40 40 40 40 20 22  |t$+" @@@@@@@@@ "|
000015a0  2b 6f 6c 64 5f 66 69 6c  65 24 2b 22 20 3e 20 3c  |+old_file$+" > <|
000015b0  41 70 70 42 75 69 6c 64  24 44 69 72 3e 2e 54 6d  |AppBuild$Dir>.Tm|
000015c0  70 46 69 6c 65 30 22 0d  00 b1 63 c8 99 20 22 57  |pFile0"...c.. "W|
000015d0  69 6d 70 5f 53 74 61 72  74 54 61 73 6b 22 2c 22  |imp_StartTask","|
000015e0  3c 41 70 70 42 75 69 6c  64 24 44 69 72 3e 2e 4d  |<AppBuild$Dir>.M|
000015f0  53 65 64 20 40 40 40 40  40 40 40 40 40 20 22 2b  |Sed @@@@@@@@@ "+|
00001600  72 24 2b 22 20 3c 41 70  70 42 75 69 6c 64 24 44  |r$+" <AppBuild$D|
00001610  69 72 3e 2e 54 6d 70 46  69 6c 65 30 20 3e 20 22  |ir>.TmpFile0 > "|
00001620  2b 6e 65 77 5f 66 69 6c  65 24 0d 00 b2 27 ff 28  |+new_file$...'.(|
00001630  22 52 65 6d 6f 76 65 20  3c 41 70 70 42 75 69 6c  |"Remove <AppBuil|
00001640  64 24 44 69 72 3e 2e 54  6d 70 46 69 6c 65 30 22  |d$Dir>.TmpFile0"|
00001650  29 0d 00 b3 28 ff 28 22  53 65 74 54 79 70 65 20  |)...(.("SetType |
00001660  22 2b 6e 65 77 5f 66 69  6c 65 24 2b 22 20 26 22  |"+new_file$+" &"|
00001670  2b c3 7e 74 79 70 65 25  29 0d 00 b4 33 e7 20 6f  |+.~type%)...3. o|
00001680  6c 64 5f 66 69 6c 65 24  3c 3e 6e 65 77 5f 66 69  |ld_file$<>new_fi|
00001690  6c 65 24 20 8c 20 ff 28  22 52 65 6d 6f 76 65 20  |le$ . .("Remove |
000016a0  22 2b 6f 6c 64 5f 66 69  6c 65 24 29 0d 00 b5 05  |"+old_file$)....|
000016b0  e1 0d 00 b6 05 3a 0d 00  b7 25 dd 20 f2 45 64 69  |.....:...%. .Edi|
000016c0  74 5f 53 70 72 69 74 65  46 69 6c 65 28 73 5f 66  |t_SpriteFile(s_f|
000016d0  69 6c 65 24 2c 74 24 2c  72 24 29 0d 00 b8 11 ea  |ile$,t$,r$).....|
000016e0  20 73 70 72 69 74 65 61  72 65 61 25 0d 00 b9 2e  | spritearea%....|
000016f0  73 70 72 69 74 65 61 72  65 61 25 3d a4 73 68 65  |spritearea%=.she|
00001700  6c 6c 5f 53 70 72 69 74  65 41 72 65 61 4c 6f 61  |ll_SpriteAreaLoa|
00001710  64 28 73 5f 66 69 6c 65  24 29 0d 00 ba 2a f2 73  |d(s_file$)...*.s|
00001720  68 65 6c 6c 5f 53 70 72  69 74 65 52 65 6e 61 6d  |hell_SpriteRenam|
00001730  65 28 73 70 72 69 74 65  61 72 65 61 25 2c 74 24  |e(spritearea%,t$|
00001740  2c 72 24 29 0d 00 bb 2e  f2 73 68 65 6c 6c 5f 53  |,r$).....shell_S|
00001750  70 72 69 74 65 41 72 65  61 53 61 76 65 28 73 70  |priteAreaSave(sp|
00001760  72 69 74 65 61 72 65 61  25 2c 73 5f 66 69 6c 65  |ritearea%,s_file|
00001770  24 29 0d 00 bc 27 f2 73  68 65 6c 6c 5f 48 65 61  |$)...'.shell_Hea|
00001780  70 42 6c 6f 63 6b 52 65  74 75 72 6e 28 73 70 72  |pBlockReturn(spr|
00001790  69 74 65 61 72 65 61 25  29 0d 00 bd 05 e1 0d 00  |itearea%).......|
000017a0  be 05 3a 0d 00 bf 1e dd  20 f2 45 64 69 74 5f 4f  |..:..... .Edit_O|
000017b0  6c 64 28 46 69 6c 65 4e  61 6d 65 5f 4e 65 77 24  |ld(FileName_New$|
000017c0  29 0d 00 c0 45 ea 20 6c  69 62 24 2c 73 70 72 69  |)...E. lib$,spri|
000017d0  74 65 61 72 65 61 25 2c  4e 65 77 5f 50 72 6f 67  |tearea%,New_Prog|
000017e0  4e 61 6d 65 24 2c 4f 6c  64 5f 50 72 6f 67 4e 61  |Name$,Old_ProgNa|
000017f0  6d 65 24 2c 52 75 6e 49  6d 61 67 65 24 2c 52 75  |me$,RunImage$,Ru|
00001800  6e 46 69 6c 65 24 0d 00  c1 30 4e 65 77 5f 50 72  |nFile$...0New_Pr|
00001810  6f 67 4e 61 6d 65 24 3d  c1 a4 73 68 65 6c 6c 5f  |ogName$=..shell_|
00001820  4c 65 61 66 28 46 69 6c  65 4e 61 6d 65 5f 4e 65  |Leaf(FileName_Ne|
00001830  77 24 29 2c 32 29 0d 00  c2 50 52 75 6e 49 6d 61  |w$),2)...PRunIma|
00001840  67 65 24 3d 46 69 6c 65  4e 61 6d 65 5f 4e 65 77  |ge$=FileName_New|
00001850  24 2b 22 2e 21 22 2b 4e  65 77 5f 50 72 6f 67 4e  |$+".!"+New_ProgN|
00001860  61 6d 65 24 20 20 20 20  20 20 20 20 3a f4 20 66  |ame$        :. f|
00001870  75 6c 6c 20 6e 61 6d 65  20 6f 66 20 72 75 6e 69  |ull name of runi|
00001880  6d 61 67 65 2e 2e 0d 00  c3 4a 52 75 6e 46 69 6c  |mage.....JRunFil|
00001890  65 24 20 3d 46 69 6c 65  4e 61 6d 65 5f 4e 65 77  |e$ =FileName_New|
000018a0  24 2b 22 2e 21 52 75 6e  22 20 20 20 20 20 20 20  |$+".!Run"       |
000018b0  20 20 20 20 20 20 20 20  20 20 20 20 3a f4 20 66  |            :. f|
000018c0  75 6c 6c 20 6e 61 6d 65  20 6f 66 20 21 72 75 6e  |ull name of !run|
000018d0  0d 00 c4 35 4f 6c 64 5f  50 72 6f 67 4e 61 6d 65  |...5Old_ProgName|
000018e0  24 3d c1 a4 73 68 65 6c  6c 5f 4c 65 61 66 28 46  |$=..shell_Leaf(F|
000018f0  69 6c 65 4e 61 6d 65 5f  4f 72 69 67 69 6e 61 6c  |ileName_Original|
00001900  24 29 2c 32 29 0d 00 c5  40 f2 73 68 65 6c 6c 5f  |$),2)...@.shell_|
00001910  49 63 6f 6e 62 61 72 53  65 74 54 65 78 74 28 2d  |IconbarSetText(-|
00001920  31 2c 73 69 63 6f 6e 2c  a4 73 68 65 6c 6c 5f 4d  |1,sicon,.shell_M|
00001930  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 42 75  |essageNoArgs("Bu|
00001940  73 79 22 29 29 0d 00 c6  29 e7 20 46 69 6c 65 4e  |sy"))...). FileN|
00001950  61 6d 65 5f 4e 65 77 24  3c 3e 46 69 6c 65 4e 61  |ame_New$<>FileNa|
00001960  6d 65 5f 4f 72 69 67 69  6e 61 6c 24 20 8c 0d 00  |me_Original$ ...|
00001970  c7 2a 20 20 f4 20 63 6f  70 79 20 65 78 69 73 74  |.*  . copy exist|
00001980  69 6e 67 20 61 70 70 20  75 6e 64 65 72 20 6e 65  |ing app under ne|
00001990  77 20 6e 61 6d 65 2e 2e  0d 00 c8 40 20 20 ff 28  |w name.....@  .(|
000019a0  22 43 6f 70 79 20 22 2b  46 69 6c 65 4e 61 6d 65  |"Copy "+FileName|
000019b0  5f 4f 72 69 67 69 6e 61  6c 24 2b 22 20 22 2b 46  |_Original$+" "+F|
000019c0  69 6c 65 4e 61 6d 65 5f  4e 65 77 24 2b 22 20 7e  |ileName_New$+" ~|
000019d0  43 20 7e 56 20 52 22 29  0d 00 c9 47 20 20 f2 73  |C ~V R")...G  .s|
000019e0  68 65 6c 6c 5f 49 63 6f  6e 50 75 74 44 61 74 61  |hell_IconPutData|
000019f0  28 6d 61 69 6e 77 25 2c  38 2c a4 73 68 65 6c 6c  |(mainw%,8,.shell|
00001a00  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00001a10  57 72 69 74 65 53 70 72  30 22 29 2c 2d 31 29 0d  |WriteSpr0"),-1).|
00001a20  00 ca 55 20 20 f2 45 64  69 74 5f 53 70 72 69 74  |..U  .Edit_Sprit|
00001a30  65 46 69 6c 65 28 46 69  6c 65 4e 61 6d 65 5f 4e  |eFile(FileName_N|
00001a40  65 77 24 2b 22 2e 21 53  70 72 69 74 65 73 22 2c  |ew$+".!Sprites",|
00001a50  22 21 22 2b 4f 6c 64 5f  50 72 6f 67 4e 61 6d 65  |"!"+Old_ProgName|
00001a60  24 2c 22 21 22 2b 4e 65  77 5f 50 72 6f 67 4e 61  |$,"!"+New_ProgNa|
00001a70  6d 65 24 29 0d 00 cb 5e  20 20 f4 20 50 52 4f 43  |me$)...^  . PROC|
00001a80  45 64 69 74 5f 53 70 72  69 74 65 46 69 6c 65 28  |Edit_SpriteFile(|
00001a90  46 69 6c 65 4e 61 6d 65  5f 4e 65 77 24 2b 22 2e  |FileName_New$+".|
00001aa0  21 53 70 72 69 74 65 73  22 2c 22 69 63 5f 22 2b  |!Sprites","ic_"+|
00001ab0  4f 6c 64 5f 50 72 6f 67  4e 61 6d 65 24 2c 22 69  |Old_ProgName$,"i|
00001ac0  63 5f 22 2b 4e 65 77 5f  50 72 6f 67 4e 61 6d 65  |c_"+New_ProgName|
00001ad0  24 29 0d 00 cc 57 20 20  f2 45 64 69 74 5f 53 70  |$)...W  .Edit_Sp|
00001ae0  72 69 74 65 46 69 6c 65  28 46 69 6c 65 4e 61 6d  |riteFile(FileNam|
00001af0  65 5f 4e 65 77 24 2b 22  2e 21 53 70 72 69 74 65  |e_New$+".!Sprite|
00001b00  73 32 32 22 2c 22 21 22  2b 4f 6c 64 5f 50 72 6f  |s22","!"+Old_Pro|
00001b10  67 4e 61 6d 65 24 2c 22  21 22 2b 4e 65 77 5f 50  |gName$,"!"+New_P|
00001b20  72 6f 67 4e 61 6d 65 24  29 0d 00 cd 60 20 20 f4  |rogName$)...`  .|
00001b30  20 50 52 4f 43 45 64 69  74 5f 53 70 72 69 74 65  | PROCEdit_Sprite|
00001b40  46 69 6c 65 28 46 69 6c  65 4e 61 6d 65 5f 4e 65  |File(FileName_Ne|
00001b50  77 24 2b 22 2e 21 53 70  72 69 74 65 73 32 32 22  |w$+".!Sprites22"|
00001b60  2c 22 69 63 5f 22 2b 4f  6c 64 5f 50 72 6f 67 4e  |,"ic_"+Old_ProgN|
00001b70  61 6d 65 24 2c 22 69 63  5f 22 2b 4e 65 77 5f 50  |ame$,"ic_"+New_P|
00001b80  72 6f 67 4e 61 6d 65 24  29 0d 00 ce 17 20 20 f2  |rogName$)....  .|
00001b90  73 68 65 6c 6c 5f 45 6e  73 75 72 65 50 6f 6c 6c  |shell_EnsurePoll|
00001ba0  0d 00 cf 5e 20 20 f2 45  64 69 74 5f 46 69 6c 65  |...^  .Edit_File|
00001bb0  28 46 69 6c 65 4e 61 6d  65 5f 4e 65 77 24 2b 22  |(FileName_New$+"|
00001bc0  2e 21 52 75 6e 22 2c 46  69 6c 65 4e 61 6d 65 5f  |.!Run",FileName_|
00001bd0  4e 65 77 24 2b 22 2e 21  52 75 6e 22 2c 4f 6c 64  |New$+".!Run",Old|
00001be0  5f 50 72 6f 67 4e 61 6d  65 24 2c 4e 65 77 5f 50  |_ProgName$,New_P|
00001bf0  72 6f 67 4e 61 6d 65 24  2c 26 46 45 42 29 0d 00  |rogName$,&FEB)..|
00001c00  d0 91 20 20 f2 45 64 69  74 5f 42 61 73 69 63 50  |..  .Edit_BasicP|
00001c10  72 6f 67 28 46 69 6c 65  4e 61 6d 65 5f 4e 65 77  |rog(FileName_New|
00001c20  24 2b 22 2e 22 2b a4 73  68 65 6c 6c 5f 4c 65 61  |$+"."+.shell_Lea|
00001c30  66 28 46 69 6c 65 4e 61  6d 65 5f 4f 72 69 67 69  |f(FileName_Origi|
00001c40  6e 61 6c 24 29 2c 46 69  6c 65 4e 61 6d 65 5f 4e  |nal$),FileName_N|
00001c50  65 77 24 2b 22 2e 22 2b  a4 73 68 65 6c 6c 5f 4c  |ew$+"."+.shell_L|
00001c60  65 61 66 28 46 69 6c 65  4e 61 6d 65 5f 4e 65 77  |eaf(FileName_New|
00001c70  24 29 2c 4f 6c 64 5f 50  72 6f 67 4e 61 6d 65 24  |$),Old_ProgName$|
00001c80  2c 4e 65 77 5f 50 72 6f  67 4e 61 6d 65 24 29 0d  |,New_ProgName$).|
00001c90  00 d1 36 20 20 e7 20 a4  73 68 65 6c 6c 5f 46 69  |..6  . .shell_Fi|
00001ca0  6c 65 45 78 69 73 74 73  28 46 69 6c 65 4e 61 6d  |leExists(FileNam|
00001cb0  65 5f 4e 65 77 24 2b 22  2e 4d 65 73 73 61 67 65  |e_New$+".Message|
00001cc0  73 22 29 20 8c 0d 00 d2  68 20 20 20 20 f2 45 64  |s") ....h    .Ed|
00001cd0  69 74 5f 46 69 6c 65 28  46 69 6c 65 4e 61 6d 65  |it_File(FileName|
00001ce0  5f 4e 65 77 24 2b 22 2e  4d 65 73 73 61 67 65 73  |_New$+".Messages|
00001cf0  22 2c 46 69 6c 65 4e 61  6d 65 5f 4e 65 77 24 2b  |",FileName_New$+|
00001d00  22 2e 4d 65 73 73 61 67  65 73 22 2c 4f 6c 64 5f  |".Messages",Old_|
00001d10  50 72 6f 67 4e 61 6d 65  24 2c 4e 65 77 5f 50 72  |ProgName$,New_Pr|
00001d20  6f 67 4e 61 6d 65 24 2c  26 46 46 46 29 0d 00 d3  |ogName$,&FFF)...|
00001d30  07 20 20 cd 0d 00 d4 43  20 20 e7 20 a4 73 68 65  |.  ....C  . .she|
00001d40  6c 6c 5f 46 69 6c 65 45  78 69 73 74 73 28 46 69  |ll_FileExists(Fi|
00001d50  6c 65 4e 61 6d 65 5f 4e  65 77 24 2b 22 2e 52 65  |leName_New$+".Re|
00001d60  73 6f 75 72 63 65 73 2e  55 4b 2e 4d 65 73 73 61  |sources.UK.Messa|
00001d70  67 65 73 22 29 20 8c 0d  00 d5 82 20 20 20 20 f2  |ges") .....    .|
00001d80  45 64 69 74 5f 46 69 6c  65 28 46 69 6c 65 4e 61  |Edit_File(FileNa|
00001d90  6d 65 5f 4e 65 77 24 2b  22 2e 52 65 73 6f 75 72  |me_New$+".Resour|
00001da0  63 65 73 2e 55 4b 2e 4d  65 73 73 61 67 65 73 22  |ces.UK.Messages"|
00001db0  2c 46 69 6c 65 4e 61 6d  65 5f 4e 65 77 24 2b 22  |,FileName_New$+"|
00001dc0  2e 52 65 73 6f 75 72 63  65 73 2e 55 4b 2e 4d 65  |.Resources.UK.Me|
00001dd0  73 73 61 67 65 73 22 2c  4f 6c 64 5f 50 72 6f 67  |ssages",Old_Prog|
00001de0  4e 61 6d 65 24 2c 4e 65  77 5f 50 72 6f 67 4e 61  |Name$,New_ProgNa|
00001df0  6d 65 24 2c 26 46 46 46  29 0d 00 d6 07 20 20 cd  |me$,&FFF)....  .|
00001e00  0d 00 d7 49 20 20 e7 20  a4 73 68 65 6c 6c 5f 46  |...I  . .shell_F|
00001e10  69 6c 65 45 78 69 73 74  73 28 46 69 6c 65 4e 61  |ileExists(FileNa|
00001e20  6d 65 5f 4e 65 77 24 2b  22 2e 52 65 73 6f 75 72  |me_New$+".Resour|
00001e30  63 65 73 2e 55 4b 2e 22  2b 4f 6c 64 5f 50 72 6f  |ces.UK."+Old_Pro|
00001e40  67 4e 61 6d 65 24 29 20  8c 0d 00 d8 72 20 20 20  |gName$) ....r   |
00001e50  20 ff 28 22 52 65 6e 61  6d 65 20 22 2b 46 69 6c  | .("Rename "+Fil|
00001e60  65 4e 61 6d 65 5f 4e 65  77 24 2b 22 2e 52 65 73  |eName_New$+".Res|
00001e70  6f 75 72 63 65 73 2e 55  4b 2e 22 2b 4f 6c 64 5f  |ources.UK."+Old_|
00001e80  50 72 6f 67 4e 61 6d 65  24 2b 22 20 22 2b 46 69  |ProgName$+" "+Fi|
00001e90  6c 65 4e 61 6d 65 5f 4e  65 77 24 2b 22 2e 52 65  |leName_New$+".Re|
00001ea0  73 6f 75 72 63 65 73 2e  55 4b 2e 22 2b 4e 65 77  |sources.UK."+New|
00001eb0  5f 50 72 6f 67 4e 61 6d  65 24 29 0d 00 d9 07 20  |_ProgName$).... |
00001ec0  20 cd 0d 00 da 3c 20 20  e7 20 a4 73 68 65 6c 6c  | ....<  . .shell|
00001ed0  5f 46 69 6c 65 45 78 69  73 74 73 28 46 69 6c 65  |_FileExists(File|
00001ee0  4e 61 6d 65 5f 4e 65 77  24 2b 22 2e 22 2b 4f 6c  |Name_New$+"."+Ol|
00001ef0  64 5f 50 72 6f 67 4e 61  6d 65 24 29 20 8c 0d 00  |d_ProgName$) ...|
00001f00  db 58 20 20 20 20 ff 28  22 52 65 6e 61 6d 65 20  |.X    .("Rename |
00001f10  22 2b 46 69 6c 65 4e 61  6d 65 5f 4e 65 77 24 2b  |"+FileName_New$+|
00001f20  22 2e 22 2b 4f 6c 64 5f  50 72 6f 67 4e 61 6d 65  |"."+Old_ProgName|
00001f30  24 2b 22 20 22 2b 46 69  6c 65 4e 61 6d 65 5f 4e  |$+" "+FileName_N|
00001f40  65 77 24 2b 22 2e 22 2b  4e 65 77 5f 50 72 6f 67  |ew$+"."+New_Prog|
00001f50  4e 61 6d 65 24 29 0d 00  dc 07 20 20 cd 0d 00 dd  |Name$)....  ....|
00001f60  05 cc 0d 00 de 2a 20 20  e7 20 a4 73 68 65 6c 6c  |.....*  . .shell|
00001f70  5f 49 73 49 63 6f 6e 53  65 6c 65 63 74 65 64 28  |_IsIconSelected(|
00001f80  6d 61 69 6e 77 25 2c 31  30 29 20 8c 0d 00 df 1e  |mainw%,10) .....|
00001f90  20 20 20 20 f4 20 63 72  65 61 74 65 20 73 74 61  |    . create sta|
00001fa0  6e 64 20 61 6c 6f 6e 65  2e 2e 0d 00 e0 25 20 20  |nd alone.....%  |
00001fb0  20 20 f2 43 6f 70 79 5f  53 68 65 6c 6c 4d 73 67  |  .Copy_ShellMsg|
00001fc0  28 46 69 6c 65 4e 61 6d  65 5f 4e 65 77 24 29 0d  |(FileName_New$).|
00001fd0  00 e1 24 20 20 20 20 f2  43 6f 70 79 5f 4d 6f 64  |..$    .Copy_Mod|
00001fe0  75 6c 65 73 28 46 69 6c  65 4e 61 6d 65 5f 4e 65  |ules(FileName_Ne|
00001ff0  77 24 29 0d 00 e2 49 20  20 20 20 f2 73 68 65 6c  |w$)...I    .shel|
00002000  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 28 6d 61  |l_IconPutData(ma|
00002010  69 6e 77 25 2c 38 2c a4  73 68 65 6c 6c 5f 4d 65  |inw%,8,.shell_Me|
00002020  73 73 61 67 65 4e 6f 41  72 67 73 28 22 43 6f 70  |ssageNoArgs("Cop|
00002030  79 48 65 61 70 43 22 29  2c 2d 31 29 0d 00 e3 51  |yHeapC"),-1)...Q|
00002040  20 20 20 20 ff 28 22 43  4f 50 59 20 3c 45 76 6e  |    .("COPY <Evn|
00002050  74 53 68 65 6c 6c 53 79  73 74 65 6d 24 50 61 74  |tShellSystem$Pat|
00002060  68 3e 48 65 61 70 63 6f  64 65 20 22 2b 46 69 6c  |h>Heapcode "+Fil|
00002070  65 4e 61 6d 65 5f 4e 65  77 24 2b 22 2e 68 65 61  |eName_New$+".hea|
00002080  70 63 6f 64 65 20 7e 43  20 7e 56 22 29 0d 00 e4  |pcode ~C ~V")...|
00002090  50 20 20 20 20 e7 20 a4  73 68 65 6c 6c 5f 49 73  |P    . .shell_Is|
000020a0  49 63 6f 6e 53 65 6c 65  63 74 65 64 28 6d 61 69  |IconSelected(mai|
000020b0  6e 77 25 2c 31 31 29 20  8c 20 6c 69 62 24 3d 22  |nw%,11) . lib$="|
000020c0  53 68 65 6c 6c 4c 69 62  52 54 22 20 8b 20 6c 69  |ShellLibRT" . li|
000020d0  62 24 3d 22 53 68 65 6c  6c 4c 69 62 22 0d 00 e5  |b$="ShellLib"...|
000020e0  51 20 20 20 20 ff 28 22  43 4f 50 59 20 3c 45 76  |Q    .("COPY <Ev|
000020f0  6e 74 53 68 65 6c 6c 53  79 73 74 65 6d 24 50 61  |ntShellSystem$Pa|
00002100  74 68 3e 22 2b 6c 69 62  24 2b 22 20 22 2b 46 69  |th>"+lib$+" "+Fi|
00002110  6c 65 4e 61 6d 65 5f 4e  65 77 24 2b 22 2e 22 2b  |leName_New$+"."+|
00002120  6c 69 62 24 2b 22 20 7e  43 20 7e 56 22 29 0d 00  |lib$+" ~C ~V")..|
00002130  e6 19 20 20 20 20 f2 73  68 65 6c 6c 5f 45 6e 73  |..    .shell_Ens|
00002140  75 72 65 50 6f 6c 6c 0d  00 e7 49 20 20 20 20 f4  |urePoll...I    .|
00002150  20 65 64 69 74 20 6e 65  77 20 21 52 75 6e 20 66  | edit new !Run f|
00002160  69 6c 65 20 74 6f 20 6c  6f 61 64 20 6d 6f 64 75  |ile to load modu|
00002170  6c 65 73 20 66 72 6f 6d  20 61 70 70 6c 69 63 61  |les from applica|
00002180  74 69 6f 6e 20 64 69 72  65 63 74 6f 72 79 2e 2e  |tion directory..|
00002190  0d 00 e8 6b 20 20 20 20  f2 45 64 69 74 5f 46 69  |...k    .Edit_Fi|
000021a0  6c 65 28 46 69 6c 65 4e  61 6d 65 5f 4e 65 77 24  |le(FileName_New$|
000021b0  2b 22 2e 21 52 75 6e 22  2c 46 69 6c 65 4e 61 6d  |+".!Run",FileNam|
000021c0  65 5f 4e 65 77 24 2b 22  2e 21 52 75 6e 22 2c 22  |e_New$+".!Run","|
000021d0  3c 45 76 6e 74 53 68 65  6c 6c 53 79 73 74 65 6d  |<EvntShellSystem|
000021e0  24 50 61 74 68 3e 22 2c  22 3c 4f 62 65 79 24 44  |$Path>","<Obey$D|
000021f0  69 72 3e 2e 22 2c 26 46  45 42 29 0d 00 e9 63 20  |ir>.",&FEB)...c |
00002200  20 20 20 f2 45 64 69 74  5f 46 69 6c 65 28 46 69  |   .Edit_File(Fi|
00002210  6c 65 4e 61 6d 65 5f 4e  65 77 24 2b 22 2e 21 52  |leName_New$+".!R|
00002220  75 6e 22 2c 46 69 6c 65  4e 61 6d 65 5f 4e 65 77  |un",FileName_New|
00002230  24 2b 22 2e 21 52 75 6e  22 2c 22 53 68 65 6c 6c  |$+".!Run","Shell|
00002240  20 72 65 73 6f 75 72 63  65 73 20 6e 6f 74 20 66  | resources not f|
00002250  6f 75 6e 64 22 2c 22 22  2c 26 46 45 42 29 0d 00  |ound","",&FEB)..|
00002260  ea 46 20 20 20 20 f2 73  68 65 6c 6c 5f 49 63 6f  |.F    .shell_Ico|
00002270  6e 50 75 74 44 61 74 61  28 6d 61 69 6e 77 25 2c  |nPutData(mainw%,|
00002280  38 2c a4 73 68 65 6c 6c  5f 4d 65 73 73 61 67 65  |8,.shell_Message|
00002290  4e 6f 41 72 67 73 28 22  50 72 6f 63 52 49 22 29  |NoArgs("ProcRI")|
000022a0  2c 2d 31 29 0d 00 eb 2f  20 20 20 20 f2 73 68 65  |,-1).../    .she|
000022b0  6c 6c 5f 41 63 74 69 6f  6e 28 a4 73 68 65 6c 6c  |ll_Action(.shell|
000022c0  5f 50 6f 6c 6c 5f 49 28  30 2c 5f 55 25 21 31 34  |_Poll_I(0,_U%!14|
000022d0  38 29 29 0d 00 ec 53 20  20 20 20 f2 45 64 69 74  |8))...S    .Edit|
000022e0  5f 42 61 73 69 63 50 72  6f 67 28 52 75 6e 49 6d  |_BasicProg(RunIm|
000022f0  61 67 65 24 2c 52 75 6e  49 6d 61 67 65 24 2c 22  |age$,RunImage$,"|
00002300  3c 45 76 6e 74 53 68 65  6c 6c 53 79 73 74 65 6d  |<EvntShellSystem|
00002310  24 50 61 74 68 3e 22 2c  22 3c 4f 62 65 79 24 44  |$Path>","<Obey$D|
00002320  69 72 3e 2e 22 29 0d 00  ed 2f 20 20 20 20 f2 73  |ir>.").../    .s|
00002330  68 65 6c 6c 5f 41 63 74  69 6f 6e 28 a4 73 68 65  |hell_Action(.she|
00002340  6c 6c 5f 50 6f 6c 6c 5f  49 28 30 2c 5f 55 25 21  |ll_Poll_I(0,_U%!|
00002350  31 34 38 29 29 0d 00 ee  07 20 20 cc 0d 00 ef 21  |148))....  ....!|
00002360  20 20 20 20 f4 20 6e 6f  74 20 61 20 73 74 61 6e  |    . not a stan|
00002370  64 20 61 6c 6f 6e 65 20  61 70 70 2e 2e 0d 00 f0  |d alone app.....|
00002380  0f 20 20 20 20 f4 20 48  69 6c 6b 65 0d 00 f1 2f  |.    . Hilke.../|
00002390  20 20 20 20 f2 73 68 65  6c 6c 5f 41 63 74 69 6f  |    .shell_Actio|
000023a0  6e 28 a4 73 68 65 6c 6c  5f 50 6f 6c 6c 5f 49 28  |n(.shell_Poll_I(|
000023b0  30 2c 5f 55 25 21 31 34  38 29 29 0d 00 f2 46 20  |0,_U%!148))...F |
000023c0  20 20 20 f2 73 68 65 6c  6c 5f 49 63 6f 6e 50 75  |   .shell_IconPu|
000023d0  74 44 61 74 61 28 6d 61  69 6e 77 25 2c 38 2c a4  |tData(mainw%,8,.|
000023e0  73 68 65 6c 6c 5f 4d 65  73 73 61 67 65 4e 6f 41  |shell_MessageNoA|
000023f0  72 67 73 28 22 52 45 4d  6d 6f 64 22 29 2c 2d 31  |rgs("REMmod"),-1|
00002400  29 0d 00 f3 2f 20 20 20  20 ff 28 22 52 65 6d 6f  |).../    .("Remo|
00002410  76 65 20 22 2b 46 69 6c  65 4e 61 6d 65 5f 4e 65  |ve "+FileName_Ne|
00002420  77 24 2b 22 2e 49 6e 74  65 72 66 61 63 65 22 29  |w$+".Interface")|
00002430  0d 00 f4 2e 20 20 20 20  ff 28 22 52 65 6d 6f 76  |....    .("Remov|
00002440  65 20 22 2b 46 69 6c 65  4e 61 6d 65 5f 4e 65 77  |e "+FileName_New|
00002450  24 2b 22 2e 4d 73 67 54  72 61 6e 73 22 29 0d 00  |$+".MsgTrans")..|
00002460  f5 2e 20 20 20 20 ff 28  22 52 65 6d 6f 76 65 20  |..    .("Remove |
00002470  22 2b 46 69 6c 65 4e 61  6d 65 5f 4e 65 77 24 2b  |"+FileName_New$+|
00002480  22 2e 46 6f 6e 74 4d 65  6e 75 22 29 0d 00 f6 2f  |".FontMenu").../|
00002490  20 20 20 20 ff 28 22 52  65 6d 6f 76 65 20 22 2b  |    .("Remove "+|
000024a0  46 69 6c 65 4e 61 6d 65  5f 4e 65 77 24 2b 22 2e  |FileName_New$+".|
000024b0  4d 65 6e 75 55 74 69 6c  73 22 29 0d 00 f7 47 20  |MenuUtils")...G |
000024c0  20 20 20 f2 73 68 65 6c  6c 5f 49 63 6f 6e 50 75  |   .shell_IconPu|
000024d0  74 44 61 74 61 28 6d 61  69 6e 77 25 2c 38 2c a4  |tData(mainw%,8,.|
000024e0  73 68 65 6c 6c 5f 4d 65  73 73 61 67 65 4e 6f 41  |shell_MessageNoA|
000024f0  72 67 73 28 22 52 45 4d  63 6f 64 65 22 29 2c 2d  |rgs("REMcode"),-|
00002500  31 29 0d 00 f8 2f 20 20  20 20 ff 28 22 52 65 6d  |1).../    .("Rem|
00002510  6f 76 65 20 22 2b 46 69  6c 65 4e 61 6d 65 5f 4e  |ove "+FileName_N|
00002520  65 77 24 2b 22 2e 53 68  65 6c 6c 4d 73 67 73 22  |ew$+".ShellMsgs"|
00002530  29 0d 00 f9 3c 20 20 20  20 ff 28 22 52 65 6d 6f  |)...<    .("Remo|
00002540  76 65 20 22 2b 46 69 6c  65 4e 61 6d 65 5f 4e 65  |ve "+FileName_Ne|
00002550  77 24 2b 22 2e 52 65 73  6f 75 72 63 65 73 2e 55  |w$+".Resources.U|
00002560  4b 2e 53 68 65 6c 6c 4d  73 67 73 22 29 0d 00 fa  |K.ShellMsgs")...|
00002570  2e 20 20 20 20 ff 28 22  52 65 6d 6f 76 65 20 22  |.    .("Remove "|
00002580  2b 46 69 6c 65 4e 61 6d  65 5f 4e 65 77 24 2b 22  |+FileName_New$+"|
00002590  2e 48 65 61 70 43 6f 64  65 22 29 0d 00 fb 2e 20  |.HeapCode").... |
000025a0  20 20 20 ff 28 22 52 65  6d 6f 76 65 20 22 2b 46  |   .("Remove "+F|
000025b0  69 6c 65 4e 61 6d 65 5f  4e 65 77 24 2b 22 2e 53  |ileName_New$+".S|
000025c0  68 65 6c 6c 4c 69 62 22  29 0d 00 fc 30 20 20 20  |hellLib")...0   |
000025d0  20 ff 28 22 52 65 6d 6f  76 65 20 22 2b 46 69 6c  | .("Remove "+Fil|
000025e0  65 4e 61 6d 65 5f 4e 65  77 24 2b 22 2e 53 68 65  |eName_New$+".She|
000025f0  6c 6c 4c 69 62 52 54 22  29 0d 00 fd 47 20 20 20  |llLibRT")...G   |
00002600  20 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  | .shell_IconPutD|
00002610  61 74 61 28 6d 61 69 6e  77 25 2c 38 2c a4 73 68  |ata(mainw%,8,.sh|
00002620  65 6c 6c 5f 4d 65 73 73  61 67 65 4e 6f 41 72 67  |ell_MessageNoArg|
00002630  73 28 22 45 64 69 74 52  75 6e 22 29 2c 2d 31 29  |s("EditRun"),-1)|
00002640  0d 00 fe 5f 20 20 20 20  f2 45 64 69 74 5f 46 69  |..._    .Edit_Fi|
00002650  6c 65 28 52 75 6e 46 69  6c 65 24 2c 52 75 6e 46  |le(RunFile$,RunF|
00002660  69 6c 65 24 2c 22 52 4d  4c 6f 61 64 20 3c 4f 62  |ile$,"RMLoad <Ob|
00002670  65 79 24 44 69 72 3e 2e  22 2c 22 52 4d 4c 6f 61  |ey$Dir>.","RMLoa|
00002680  64 20 3c 45 76 6e 74 53  68 65 6c 6c 53 79 73 74  |d <EvntShellSyst|
00002690  65 6d 24 50 61 74 68 3e  22 2c 26 46 45 42 29 0d  |em$Path>",&FEB).|
000026a0  00 ff 46 20 20 20 20 f2  73 68 65 6c 6c 5f 49 63  |..F    .shell_Ic|
000026b0  6f 6e 50 75 74 44 61 74  61 28 6d 61 69 6e 77 25  |onPutData(mainw%|
000026c0  2c 38 2c a4 73 68 65 6c  6c 5f 4d 65 73 73 61 67  |,8,.shell_Messag|
000026d0  65 4e 6f 41 72 67 73 28  22 50 72 6f 63 52 49 22  |eNoArgs("ProcRI"|
000026e0  29 2c 2d 31 29 0d 01 00  19 20 20 20 20 f2 73 68  |),-1)....    .sh|
000026f0  65 6c 6c 5f 45 6e 73 75  72 65 50 6f 6c 6c 0d 01  |ell_EnsurePoll..|
00002700  01 53 20 20 20 20 f2 45  64 69 74 5f 42 61 73 69  |.S    .Edit_Basi|
00002710  63 50 72 6f 67 28 52 75  6e 49 6d 61 67 65 24 2c  |cProg(RunImage$,|
00002720  52 75 6e 49 6d 61 67 65  24 2c 22 3c 4f 62 65 79  |RunImage$,"<Obey|
00002730  24 44 69 72 3e 2e 22 2c  22 3c 45 76 6e 74 53 68  |$Dir>.","<EvntSh|
00002740  65 6c 6c 53 79 73 74 65  6d 24 50 61 74 68 3e 22  |ellSystem$Path>"|
00002750  29 0d 01 02 07 20 20 cd  0d 01 03 43 20 20 f2 45  |)....  ....C  .E|
00002760  64 69 74 5f 42 61 73 69  63 50 72 6f 67 28 52 75  |dit_BasicProg(Ru|
00002770  6e 49 6d 61 67 65 24 2c  52 75 6e 49 6d 61 67 65  |nImage$,RunImage|
00002780  24 2c 22 53 68 65 6c 6c  4c 69 62 52 54 22 2c 22  |$,"ShellLibRT","|
00002790  a3 a3 a3 a3 a3 a3 a3 a3  a3 22 29 0d 01 04 41 20  |.........")...A |
000027a0  20 f2 45 64 69 74 5f 42  61 73 69 63 50 72 6f 67  | .Edit_BasicProg|
000027b0  28 52 75 6e 49 6d 61 67  65 24 2c 52 75 6e 49 6d  |(RunImage$,RunIm|
000027c0  61 67 65 24 2c 22 53 68  65 6c 6c 4c 69 62 22 2c  |age$,"ShellLib",|
000027d0  22 a3 a3 a3 a3 a3 a3 a3  a3 a3 22 29 0d 01 05 2a  |".........")...*|
000027e0  20 20 e7 20 a4 73 68 65  6c 6c 5f 49 73 49 63 6f  |  . .shell_IsIco|
000027f0  6e 53 65 6c 65 63 74 65  64 28 6d 61 69 6e 77 25  |nSelected(mainw%|
00002800  2c 31 31 29 20 8c 0d 01  06 20 20 20 20 20 f4 20  |,11) ....     . |
00002810  75 73 65 20 72 75 6e 74  69 6d 65 20 6c 69 62 72  |use runtime libr|
00002820  61 72 79 2e 2e 2e 0d 01  07 45 20 20 20 20 f2 45  |ary......E    .E|
00002830  64 69 74 5f 42 61 73 69  63 50 72 6f 67 28 52 75  |dit_BasicProg(Ru|
00002840  6e 49 6d 61 67 65 24 2c  52 75 6e 49 6d 61 67 65  |nImage$,RunImage|
00002850  24 2c 22 a3 a3 a3 a3 a3  a3 a3 a3 a3 22 2c 22 53  |$,".........","S|
00002860  68 65 6c 6c 4c 69 62 52  54 22 29 0d 01 08 07 20  |hellLibRT").... |
00002870  20 cc 0d 01 09 1c 20 20  20 20 f4 20 75 73 65 20  | .....    . use |
00002880  66 75 6c 6c 20 6c 69 62  72 61 72 79 2e 2e 0d 01  |full library....|
00002890  0a 43 20 20 20 20 f2 45  64 69 74 5f 42 61 73 69  |.C    .Edit_Basi|
000028a0  63 50 72 6f 67 28 52 75  6e 49 6d 61 67 65 24 2c  |cProg(RunImage$,|
000028b0  52 75 6e 49 6d 61 67 65  24 2c 22 a3 a3 a3 a3 a3  |RunImage$,".....|
000028c0  a3 a3 a3 a3 22 2c 22 53  68 65 6c 6c 4c 69 62 22  |....","ShellLib"|
000028d0  29 0d 01 0b 07 20 20 cd  0d 01 0c 05 cd 0d 01 0d  |)....  .........|
000028e0  43 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  |C.shell_IconPutD|
000028f0  61 74 61 28 6d 61 69 6e  77 25 2c 38 2c a4 73 68  |ata(mainw%,8,.sh|
00002900  65 6c 6c 5f 4d 65 73 73  61 67 65 4e 6f 41 72 67  |ell_MessageNoArg|
00002910  73 28 22 57 61 69 74 69  6e 67 22 29 2c 2d 31 29  |s("Waiting"),-1)|
00002920  0d 01 0e 41 f2 73 68 65  6c 6c 5f 49 63 6f 6e 62  |...A.shell_Iconb|
00002930  61 72 53 65 74 54 65 78  74 28 2d 31 2c 73 69 63  |arSetText(-1,sic|
00002940  6f 6e 2c a4 73 68 65 6c  6c 5f 4d 65 73 73 61 67  |on,.shell_Messag|
00002950  65 4e 6f 41 72 67 73 28  22 52 65 61 64 79 22 29  |eNoArgs("Ready")|
00002960  29 0d 01 0f 1e f2 73 68  65 6c 6c 5f 43 6c 6f 73  |).....shell_Clos|
00002970  65 57 69 6e 64 6f 77 28  6d 61 69 6e 77 25 29 0d  |eWindow(mainw%).|
00002980  01 10 05 e1 0d 01 11 05  3a 0d 01 12 1b dd 20 f2  |........:..... .|
00002990  43 6f 70 79 5f 53 68 65  6c 6c 4d 73 67 28 64 65  |Copy_ShellMsg(de|
000029a0  73 74 24 29 0d 01 13 46  f2 73 68 65 6c 6c 5f 49  |st$)...F.shell_I|
000029b0  63 6f 6e 50 75 74 44 61  74 61 28 6d 61 69 6e 77  |conPutData(mainw|
000029c0  25 2c 38 2c a4 73 68 65  6c 6c 5f 4d 65 73 73 61  |%,8,.shell_Messa|
000029d0  67 65 4e 6f 41 72 67 73  28 22 43 6f 70 79 53 68  |geNoArgs("CopySh|
000029e0  4d 65 73 73 22 29 2c 2d  31 29 0d 01 14 28 e7 20  |Mess"),-1)...(. |
000029f0  a4 73 68 65 6c 6c 5f 49  73 49 63 6f 6e 53 65 6c  |.shell_IsIconSel|
00002a00  65 63 74 65 64 28 6d 61  69 6e 77 25 2c 31 32 29  |ected(mainw%,12)|
00002a10  20 8c 0d 01 15 4c 20 20  ff 28 22 43 4f 50 59 20  | ....L  .("COPY |
00002a20  53 68 65 6c 6c 53 79 73  52 65 73 3a 53 68 65 6c  |ShellSysRes:Shel|
00002a30  6c 4d 73 67 73 20 22 2b  64 65 73 74 24 2b 22 2e  |lMsgs "+dest$+".|
00002a40  52 65 73 6f 75 72 63 65  73 2e 55 4b 2e 53 68 65  |Resources.UK.She|
00002a50  6c 6c 4d 73 67 73 20 7e  43 20 7e 56 22 29 0d 01  |llMsgs ~C ~V")..|
00002a60  16 05 cc 0d 01 17 3f 20  20 ff 28 22 43 4f 50 59  |......?  .("COPY|
00002a70  20 53 68 65 6c 6c 53 79  73 52 65 73 3a 53 68 65  | ShellSysRes:She|
00002a80  6c 6c 4d 73 67 73 20 22  2b 64 65 73 74 24 2b 22  |llMsgs "+dest$+"|
00002a90  2e 53 68 65 6c 6c 4d 73  67 73 20 7e 43 20 7e 56  |.ShellMsgs ~C ~V|
00002aa0  22 29 0d 01 18 05 cd 0d  01 19 29 f2 73 68 65 6c  |")........).shel|
00002ab0  6c 5f 41 63 74 69 6f 6e  28 a4 73 68 65 6c 6c 5f  |l_Action(.shell_|
00002ac0  50 6f 6c 6c 5f 49 28 30  2c 74 61 73 6b 25 29 29  |Poll_I(0,task%))|
00002ad0  0d 01 1a 05 e1 0d 01 1b  05 3a 0d 01 1c 1a dd 20  |.........:..... |
00002ae0  f2 43 6f 70 79 5f 4d 6f  64 75 6c 65 73 28 64 65  |.Copy_Modules(de|
00002af0  73 74 24 29 0d 01 1d 45  f2 73 68 65 6c 6c 5f 49  |st$)...E.shell_I|
00002b00  63 6f 6e 50 75 74 44 61  74 61 28 6d 61 69 6e 77  |conPutData(mainw|
00002b10  25 2c 38 2c a4 73 68 65  6c 6c 5f 4d 65 73 73 61  |%,8,.shell_Messa|
00002b20  67 65 4e 6f 41 72 67 73  28 22 43 6f 70 79 46 4d  |geNoArgs("CopyFM|
00002b30  4d 6f 64 22 29 2c 2d 31  29 0d 01 1e 45 ff 28 22  |Mod"),-1)...E.("|
00002b40  43 4f 50 59 20 3c 45 76  6e 74 53 68 65 6c 6c 53  |COPY <EvntShellS|
00002b50  79 73 74 65 6d 24 50 61  74 68 3e 46 6f 6e 74 4d  |ystem$Path>FontM|
00002b60  65 6e 75 20 22 2b 64 65  73 74 24 2b 22 2e 46 6f  |enu "+dest$+".Fo|
00002b70  6e 74 4d 65 6e 75 20 7e  43 20 7e 56 22 29 0d 01  |ntMenu ~C ~V")..|
00002b80  1f 2b f2 73 68 65 6c 6c  5f 41 63 74 69 6f 6e 28  |.+.shell_Action(|
00002b90  a4 73 68 65 6c 6c 5f 50  6f 6c 6c 5f 49 28 30 2c  |.shell_Poll_I(0,|
00002ba0  5f 55 25 21 31 34 38 29  29 0d 01 20 04 0d 01 21  |_U%!148)).. ...!|
00002bb0  45 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  |E.shell_IconPutD|
00002bc0  61 74 61 28 6d 61 69 6e  77 25 2c 38 2c a4 73 68  |ata(mainw%,8,.sh|
00002bd0  65 6c 6c 5f 4d 65 73 73  61 67 65 4e 6f 41 72 67  |ell_MessageNoArg|
00002be0  73 28 22 43 6f 70 79 49  46 4d 6f 64 22 29 2c 2d  |s("CopyIFMod"),-|
00002bf0  31 29 0d 01 22 47 ff 28  22 43 4f 50 59 20 3c 45  |1).."G.("COPY <E|
00002c00  76 6e 74 53 68 65 6c 6c  53 79 73 74 65 6d 24 50  |vntShellSystem$P|
00002c10  61 74 68 3e 49 6e 74 65  72 66 61 63 65 20 22 2b  |ath>Interface "+|
00002c20  64 65 73 74 24 2b 22 2e  49 6e 74 65 72 66 61 63  |dest$+".Interfac|
00002c30  65 20 7e 43 20 7e 56 22  29 0d 01 23 2b f2 73 68  |e ~C ~V")..#+.sh|
00002c40  65 6c 6c 5f 41 63 74 69  6f 6e 28 a4 73 68 65 6c  |ell_Action(.shel|
00002c50  6c 5f 50 6f 6c 6c 5f 49  28 30 2c 5f 55 25 21 31  |l_Poll_I(0,_U%!1|
00002c60  34 38 29 29 0d 01 24 04  0d 01 25 45 f2 73 68 65  |48))..$...%E.she|
00002c70  6c 6c 5f 49 63 6f 6e 50  75 74 44 61 74 61 28 6d  |ll_IconPutData(m|
00002c80  61 69 6e 77 25 2c 38 2c  a4 73 68 65 6c 6c 5f 4d  |ainw%,8,.shell_M|
00002c90  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 43 6f  |essageNoArgs("Co|
00002ca0  70 79 4d 55 4d 6f 64 22  29 2c 2d 31 29 0d 01 26  |pyMUMod"),-1)..&|
00002cb0  47 ff 28 22 43 4f 50 59  20 3c 45 76 6e 74 53 68  |G.("COPY <EvntSh|
00002cc0  65 6c 6c 53 79 73 74 65  6d 24 50 61 74 68 3e 4d  |ellSystem$Path>M|
00002cd0  65 6e 75 55 74 69 6c 73  20 22 2b 64 65 73 74 24  |enuUtils "+dest$|
00002ce0  2b 22 2e 4d 65 6e 75 55  74 69 6c 73 20 7e 43 20  |+".MenuUtils ~C |
00002cf0  7e 56 22 29 0d 01 27 2b  f2 73 68 65 6c 6c 5f 41  |~V")..'+.shell_A|
00002d00  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
00002d10  6c 5f 49 28 30 2c 5f 55  25 21 31 34 38 29 29 0d  |l_I(0,_U%!148)).|
00002d20  01 28 04 0d 01 29 45 f2  73 68 65 6c 6c 5f 49 63  |.(...)E.shell_Ic|
00002d30  6f 6e 50 75 74 44 61 74  61 28 6d 61 69 6e 77 25  |onPutData(mainw%|
00002d40  2c 38 2c a4 73 68 65 6c  6c 5f 4d 65 73 73 61 67  |,8,.shell_Messag|
00002d50  65 4e 6f 41 72 67 73 28  22 43 6f 70 79 4d 54 4d  |eNoArgs("CopyMTM|
00002d60  6f 64 22 29 2c 2d 31 29  0d 01 2a 45 ff 28 22 43  |od"),-1)..*E.("C|
00002d70  4f 50 59 20 3c 45 76 6e  74 53 68 65 6c 6c 53 79  |OPY <EvntShellSy|
00002d80  73 74 65 6d 24 50 61 74  68 3e 4d 73 67 54 72 61  |stem$Path>MsgTra|
00002d90  6e 73 20 22 2b 64 65 73  74 24 2b 22 2e 4d 73 67  |ns "+dest$+".Msg|
00002da0  54 72 61 6e 73 20 7e 43  20 7e 56 22 29 0d 01 2b  |Trans ~C ~V")..+|
00002db0  2b f2 73 68 65 6c 6c 5f  41 63 74 69 6f 6e 28 a4  |+.shell_Action(.|
00002dc0  73 68 65 6c 6c 5f 50 6f  6c 6c 5f 49 28 30 2c 5f  |shell_Poll_I(0,_|
00002dd0  55 25 21 31 34 38 29 29  0d 01 2c 05 e1 0d 01 2d  |U%!148))..,....-|
00002de0  05 3a 0d 01 2e 19 dd 20  f2 43 72 65 61 74 65 5f  |.:..... .Create_|
00002df0  4e 65 77 28 66 6e 61 6d  65 24 29 0d 01 2f 1a ea  |New(fname$)../..|
00002e00  20 70 61 74 68 24 2c 6c  69 62 24 2c 6e 65 77 5f  | path$,lib$,new_|
00002e10  6e 61 6d 65 24 0d 01 30  21 6e 65 77 5f 6e 61 6d  |name$..0!new_nam|
00002e20  65 24 3d a4 73 68 65 6c  6c 5f 4c 65 61 66 28 66  |e$=.shell_Leaf(f|
00002e30  6e 61 6d 65 24 29 0d 01  31 1a 70 61 74 68 24 3d  |name$)..1.path$=|
00002e40  a4 73 68 65 6c 6c 5f 47  65 74 41 70 70 44 69 72  |.shell_GetAppDir|
00002e50  0d 01 32 40 f2 73 68 65  6c 6c 5f 49 63 6f 6e 62  |..2@.shell_Iconb|
00002e60  61 72 53 65 74 54 65 78  74 28 2d 31 2c 73 69 63  |arSetText(-1,sic|
00002e70  6f 6e 2c a4 73 68 65 6c  6c 5f 4d 65 73 73 61 67  |on,.shell_Messag|
00002e80  65 4e 6f 41 72 67 73 28  22 42 75 73 79 22 29 29  |eNoArgs("Busy"))|
00002e90  0d 01 33 39 66 6e 61 6d  65 24 3d a4 73 68 65 6c  |..39fname$=.shel|
00002ea0  6c 5f 42 72 61 6e 63 68  28 66 6e 61 6d 65 24 29  |l_Branch(fname$)|
00002eb0  2b 22 2e 21 22 2b a4 73  68 65 6c 6c 5f 4c 65 61  |+".!"+.shell_Lea|
00002ec0  66 28 66 6e 61 6d 65 24  29 0d 01 34 04 0d 01 35  |f(fname$)..4...5|
00002ed0  42 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  |B.shell_IconPutD|
00002ee0  61 74 61 28 6d 61 69 6e  77 25 2c 38 2c a4 73 68  |ata(mainw%,8,.sh|
00002ef0  65 6c 6c 5f 4d 65 73 73  61 67 65 4e 6f 41 72 67  |ell_MessageNoArg|
00002f00  73 28 22 43 72 65 61 74  65 22 29 2c 2d 31 29 0d  |s("Create"),-1).|
00002f10  01 36 15 ff 28 22 43 44  49 52 20 22 2b 66 6e 61  |.6..("CDIR "+fna|
00002f20  6d 65 24 29 0d 01 37 28  e7 20 a4 73 68 65 6c 6c  |me$)..7(. .shell|
00002f30  5f 49 73 49 63 6f 6e 53  65 6c 65 63 74 65 64 28  |_IsIconSelected(|
00002f40  6d 61 69 6e 77 25 2c 31  32 29 20 8c 0d 01 38 24  |mainw%,12) ...8$|
00002f50  20 20 ff 28 22 43 44 49  52 20 22 2b 66 6e 61 6d  |  .("CDIR "+fnam|
00002f60  65 24 2b 22 2e 52 65 73  6f 75 72 63 65 73 22 29  |e$+".Resources")|
00002f70  0d 01 39 27 20 20 ff 28  22 43 44 49 52 20 22 2b  |..9'  .("CDIR "+|
00002f80  66 6e 61 6d 65 24 2b 22  2e 52 65 73 6f 75 72 63  |fname$+".Resourc|
00002f90  65 73 2e 55 4b 22 29 0d  01 3a 40 20 20 ff 28 22  |es.UK")..:@  .("|
00002fa0  43 44 49 52 20 22 2b 66  6e 61 6d 65 24 2b 22 2e  |CDIR "+fname$+".|
00002fb0  52 65 73 6f 75 72 63 65  73 2e 55 4b 2e 22 2b c1  |Resources.UK."+.|
00002fc0  a4 73 68 65 6c 6c 5f 4c  65 61 66 28 66 6e 61 6d  |.shell_Leaf(fnam|
00002fd0  65 24 29 2c 32 29 29 0d  01 3b 05 cc 0d 01 3c 2a  |e$),2))..;....<*|
00002fe0  20 20 e7 20 a4 73 68 65  6c 6c 5f 49 73 49 63 6f  |  . .shell_IsIco|
00002ff0  6e 53 65 6c 65 63 74 65  64 28 6d 61 69 6e 77 25  |nSelected(mainw%|
00003000  2c 31 33 29 20 8c 0d 01  3d 35 20 20 20 20 ff 28  |,13) ...=5    .(|
00003010  22 43 44 49 52 20 22 2b  66 6e 61 6d 65 24 2b 22  |"CDIR "+fname$+"|
00003020  2e 22 2b c1 a4 73 68 65  6c 6c 5f 4c 65 61 66 28  |."+..shell_Leaf(|
00003030  66 6e 61 6d 65 24 29 2c  32 29 29 0d 01 3e 07 20  |fname$),2))..>. |
00003040  20 cd 0d 01 3f 05 cd 0d  01 40 2b f2 73 68 65 6c  | ...?....@+.shel|
00003050  6c 5f 41 63 74 69 6f 6e  28 a4 73 68 65 6c 6c 5f  |l_Action(.shell_|
00003060  50 6f 6c 6c 5f 49 28 30  2c 5f 55 25 21 31 34 38  |Poll_I(0,_U%!148|
00003070  29 29 0d 01 41 04 0d 01  42 45 f2 73 68 65 6c 6c  |))..A...BE.shell|
00003080  5f 49 63 6f 6e 50 75 74  44 61 74 61 28 6d 61 69  |_IconPutData(mai|
00003090  6e 77 25 2c 38 2c a4 73  68 65 6c 6c 5f 4d 65 73  |nw%,8,.shell_Mes|
000030a0  73 61 67 65 4e 6f 41 72  67 73 28 22 43 6f 70 79  |sageNoArgs("Copy|
000030b0  43 68 6b 53 70 22 29 2c  2d 31 29 0d 01 43 2f f2  |ChkSp"),-1)..C/.|
000030c0  63 6f 70 79 5f 66 69 6c  65 28 66 6e 61 6d 65 24  |copy_file(fname$|
000030d0  2c 70 61 74 68 24 2b 22  2e 4e 65 77 41 70 70 2e  |,path$+".NewApp.|
000030e0  43 68 6b 53 70 72 22 2c  30 29 0d 01 44 29 f2 73  |ChkSpr",0)..D).s|
000030f0  68 65 6c 6c 5f 41 63 74  69 6f 6e 28 a4 73 68 65  |hell_Action(.she|
00003100  6c 6c 5f 50 6f 6c 6c 5f  49 28 30 2c 74 61 73 6b  |ll_Poll_I(0,task|
00003110  25 29 29 0d 01 45 04 0d  01 46 45 f2 73 68 65 6c  |%))..E...FE.shel|
00003120  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 28 6d 61  |l_IconPutData(ma|
00003130  69 6e 77 25 2c 38 2c a4  73 68 65 6c 6c 5f 4d 65  |inw%,8,.shell_Me|
00003140  73 73 61 67 65 4e 6f 41  72 67 73 28 22 57 72 69  |ssageNoArgs("Wri|
00003150  74 65 42 6f 6f 74 22 29  2c 2d 31 29 0d 01 47 2f  |teBoot"),-1)..G/|
00003160  f2 63 6f 70 79 5f 66 69  6c 65 28 66 6e 61 6d 65  |.copy_file(fname|
00003170  24 2c 70 61 74 68 24 2b  22 2e 4e 65 77 41 70 70  |$,path$+".NewApp|
00003180  2e 21 42 6f 6f 74 22 2c  2d 31 29 0d 01 48 04 0d  |.!Boot",-1)..H..|
00003190  01 49 44 f2 73 68 65 6c  6c 5f 49 63 6f 6e 50 75  |.ID.shell_IconPu|
000031a0  74 44 61 74 61 28 6d 61  69 6e 77 25 2c 38 2c a4  |tData(mainw%,8,.|
000031b0  73 68 65 6c 6c 5f 4d 65  73 73 61 67 65 4e 6f 41  |shell_MessageNoA|
000031c0  72 67 73 28 22 57 72 69  74 65 52 75 6e 22 29 2c  |rgs("WriteRun"),|
000031d0  2d 31 29 0d 01 4a 2e f2  63 6f 70 79 5f 66 69 6c  |-1)..J..copy_fil|
000031e0  65 28 66 6e 61 6d 65 24  2c 70 61 74 68 24 2b 22  |e(fname$,path$+"|
000031f0  2e 4e 65 77 41 70 70 2e  21 52 75 6e 22 2c 2d 31  |.NewApp.!Run",-1|
00003200  29 0d 01 4b 28 e7 20 a4  73 68 65 6c 6c 5f 49 73  |)..K(. .shell_Is|
00003210  49 63 6f 6e 53 65 6c 65  63 74 65 64 28 6d 61 69  |IconSelected(mai|
00003220  6e 77 25 2c 31 32 29 20  8c 0d 01 4c 43 20 20 f2  |nw%,12) ...LC  .|
00003230  65 64 69 74 5f 66 69 6c  65 28 66 6e 61 6d 65 24  |edit_file(fname$|
00003240  2b 22 2e 21 52 75 6e 22  2c 22 7c 53 65 74 20 44  |+".!Run","|Set D|
00003250  75 6d 6d 79 24 50 61 74  68 22 2c 22 53 65 74 20  |ummy$Path","Set |
00003260  44 75 6d 6d 79 24 50 61  74 68 22 29 0d 01 4d 3b  |Dummy$Path")..M;|
00003270  20 20 f2 65 64 69 74 5f  66 69 6c 65 28 66 6e 61  |  .edit_file(fna|
00003280  6d 65 24 2b 22 2e 21 52  75 6e 22 2c 22 7c 52 75  |me$+".!Run","|Ru|
00003290  6e 20 44 75 6d 6d 79 3a  22 2c 22 52 75 6e 20 44  |n Dummy:","Run D|
000032a0  75 6d 6d 79 3a 22 29 0d  01 4e 47 20 20 f2 65 64  |ummy:")..NG  .ed|
000032b0  69 74 5f 66 69 6c 65 28  66 6e 61 6d 65 24 2b 22  |it_file(fname$+"|
000032c0  2e 21 52 75 6e 22 2c 22  7c 55 6e 73 65 74 20 44  |.!Run","|Unset D|
000032d0  75 6d 6d 79 24 50 61 74  68 22 2c 22 55 6e 73 65  |ummy$Path","Unse|
000032e0  74 20 44 75 6d 6d 79 24  50 61 74 68 22 29 0d 01  |t Dummy$Path")..|
000032f0  4f 05 cd 0d 01 50 28 e7  20 a4 73 68 65 6c 6c 5f  |O....P(. .shell_|
00003300  49 73 49 63 6f 6e 53 65  6c 65 63 74 65 64 28 6d  |IsIconSelected(m|
00003310  61 69 6e 77 25 2c 31 31  29 20 8c 0d 01 51 2e 20  |ainw%,11) ...Q. |
00003320  20 f2 65 64 69 74 5f 66  69 6c 65 28 66 6e 61 6d  | .edit_file(fnam|
00003330  65 24 2b 22 2e 21 52 75  6e 22 2c 22 78 78 78 4b  |e$+".!Run","xxxK|
00003340  22 2c 22 31 32 38 4b 22  29 0d 01 52 2e 20 20 f2  |","128K")..R.  .|
00003350  65 64 69 74 5f 66 69 6c  65 28 66 6e 61 6d 65 24  |edit_file(fname$|
00003360  2b 22 2e 21 52 75 6e 22  2c 22 78 78 78 4b 22 2c  |+".!Run","xxxK",|
00003370  22 31 32 38 4b 22 29 0d  01 53 05 cc 0d 01 54 2e  |"128K")..S....T.|
00003380  20 20 f2 65 64 69 74 5f  66 69 6c 65 28 66 6e 61  |  .edit_file(fna|
00003390  6d 65 24 2b 22 2e 21 52  75 6e 22 2c 22 78 78 78  |me$+".!Run","xxx|
000033a0  4b 22 2c 22 31 39 32 4b  22 29 0d 01 55 2e 20 20  |K","192K")..U.  |
000033b0  f2 65 64 69 74 5f 66 69  6c 65 28 66 6e 61 6d 65  |.edit_file(fname|
000033c0  24 2b 22 2e 21 52 75 6e  22 2c 22 78 78 78 4b 22  |$+".!Run","xxxK"|
000033d0  2c 22 31 39 32 4b 22 29  0d 01 56 05 cd 0d 01 57  |,"192K")..V....W|
000033e0  04 0d 01 58 45 f2 73 68  65 6c 6c 5f 49 63 6f 6e  |...XE.shell_Icon|
000033f0  50 75 74 44 61 74 61 28  6d 61 69 6e 77 25 2c 38  |PutData(mainw%,8|
00003400  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
00003410  6f 41 72 67 73 28 22 57  72 69 74 65 4d 65 73 73  |oArgs("WriteMess|
00003420  22 29 2c 2d 31 29 0d 01  59 28 e7 20 a4 73 68 65  |"),-1)..Y(. .she|
00003430  6c 6c 5f 49 73 49 63 6f  6e 53 65 6c 65 63 74 65  |ll_IsIconSelecte|
00003440  64 28 6d 61 69 6e 77 25  2c 31 32 29 20 8c 0d 01  |d(mainw%,12) ...|
00003450  5a 50 20 20 ff 28 22 43  4f 50 59 20 22 2b 70 61  |ZP  .("COPY "+pa|
00003460  74 68 24 2b 22 2e 4e 65  77 41 70 70 2e 4d 65 73  |th$+".NewApp.Mes|
00003470  73 61 67 65 73 20 22 2b  66 6e 61 6d 65 24 2b 22  |sages "+fname$+"|
00003480  2e 52 65 73 6f 75 72 63  65 73 2e 55 4b 2e 4d 65  |.Resources.UK.Me|
00003490  73 73 61 67 65 73 20 7e  43 20 7e 56 22 29 0d 01  |ssages ~C ~V")..|
000034a0  5b 5a 20 20 ff 28 22 43  4f 50 59 20 3c 45 76 6e  |[Z  .("COPY <Evn|
000034b0  74 53 68 65 6c 6c 53 79  73 74 65 6d 24 50 61 74  |tShellSystem$Pat|
000034c0  68 3e 52 65 73 6f 75 72  63 65 73 2e 52 65 73 46  |h>Resources.ResF|
000034d0  69 6e 64 20 22 2b 66 6e  61 6d 65 24 2b 22 2e 52  |ind "+fname$+".R|
000034e0  65 73 6f 75 72 63 65 73  2e 52 65 73 46 69 6e 64  |esources.ResFind|
000034f0  20 7e 43 20 7e 56 22 29  0d 01 5c 47 20 20 f2 65  | ~C ~V")..\G  .e|
00003500  64 69 74 5f 66 69 6c 65  28 66 6e 61 6d 65 24 2b  |dit_file(fname$+|
00003510  22 2e 52 65 73 6f 75 72  63 65 73 2e 55 4b 2e 4d  |".Resources.UK.M|
00003520  65 73 73 61 67 65 73 22  2c 22 40 40 40 40 40 40  |essages","@@@@@@|
00003530  40 40 40 22 2c 6e 65 77  5f 6e 61 6d 65 24 29 0d  |@@@",new_name$).|
00003540  01 5d 38 20 20 ff 28 22  53 65 74 54 79 70 65 20  |.]8  .("SetType |
00003550  22 2b 66 6e 61 6d 65 24  2b 22 2e 52 65 73 6f 75  |"+fname$+".Resou|
00003560  72 63 65 73 2e 55 4b 2e  4d 65 73 73 61 67 65 73  |rces.UK.Messages|
00003570  20 26 46 46 46 22 29 0d  01 5e 05 cc 0d 01 5f 34  | &FFF")..^...._4|
00003580  20 20 f2 63 6f 70 79 5f  66 69 6c 65 28 66 6e 61  |  .copy_file(fna|
00003590  6d 65 24 2c 70 61 74 68  24 2b 22 2e 4e 65 77 41  |me$,path$+".NewA|
000035a0  70 70 2e 4d 65 73 73 61  67 65 73 22 2c 2d 31 29  |pp.Messages",-1)|
000035b0  0d 01 60 05 cd 0d 01 61  29 f2 73 68 65 6c 6c 5f  |..`....a).shell_|
000035c0  41 63 74 69 6f 6e 28 a4  73 68 65 6c 6c 5f 50 6f  |Action(.shell_Po|
000035d0  6c 6c 5f 49 28 30 2c 74  61 73 6b 25 29 29 0d 01  |ll_I(0,task%))..|
000035e0  62 04 0d 01 63 45 f2 73  68 65 6c 6c 5f 49 63 6f  |b...cE.shell_Ico|
000035f0  6e 50 75 74 44 61 74 61  28 6d 61 69 6e 77 25 2c  |nPutData(mainw%,|
00003600  38 2c a4 73 68 65 6c 6c  5f 4d 65 73 73 61 67 65  |8,.shell_Message|
00003610  4e 6f 41 72 67 73 28 22  57 72 69 74 65 54 65 6d  |NoArgs("WriteTem|
00003620  70 22 29 2c 2d 31 29 0d  01 64 32 f2 63 6f 70 79  |p"),-1)..d2.copy|
00003630  5f 66 69 6c 65 28 66 6e  61 6d 65 24 2c 70 61 74  |_file(fname$,pat|
00003640  68 24 2b 22 2e 4e 65 77  41 70 70 2e 54 65 6d 70  |h$+".NewApp.Temp|
00003650  6c 61 74 65 73 22 2c 30  29 0d 01 65 29 f2 73 68  |lates",0)..e).sh|
00003660  65 6c 6c 5f 41 63 74 69  6f 6e 28 a4 73 68 65 6c  |ell_Action(.shel|
00003670  6c 5f 50 6f 6c 6c 5f 49  28 30 2c 74 61 73 6b 25  |l_Poll_I(0,task%|
00003680  29 29 0d 01 66 04 0d 01  67 45 f2 73 68 65 6c 6c  |))..f...gE.shell|
00003690  5f 49 63 6f 6e 50 75 74  44 61 74 61 28 6d 61 69  |_IconPutData(mai|
000036a0  6e 77 25 2c 38 2c a4 73  68 65 6c 6c 5f 4d 65 73  |nw%,8,.shell_Mes|
000036b0  73 61 67 65 4e 6f 41 72  67 73 28 22 57 72 69 74  |sageNoArgs("Writ|
000036c0  65 53 70 72 30 22 29 2c  2d 31 29 0d 01 68 3f 73  |eSpr0"),-1)..h?s|
000036d0  70 72 69 74 65 61 72 65  61 25 3d a4 73 68 65 6c  |pritearea%=.shel|
000036e0  6c 5f 53 70 72 69 74 65  41 72 65 61 4c 6f 61 64  |l_SpriteAreaLoad|
000036f0  28 70 61 74 68 24 2b 22  2e 4e 65 77 41 70 70 2e  |(path$+".NewApp.|
00003700  21 53 70 72 69 74 65 73  22 29 0d 01 69 42 f2 73  |!Sprites")..iB.s|
00003710  68 65 6c 6c 5f 53 70 72  69 74 65 52 65 6e 61 6d  |hell_SpriteRenam|
00003720  65 28 73 70 72 69 74 65  61 72 65 61 25 2c 22 21  |e(spritearea%,"!|
00003730  6e 65 77 61 70 70 22 2c  a4 73 68 65 6c 6c 5f 4c  |newapp",.shell_L|
00003740  65 61 66 28 66 6e 61 6d  65 24 29 29 0d 01 6a 4e  |eaf(fname$))..jN|
00003750  f2 73 68 65 6c 6c 5f 53  70 72 69 74 65 52 65 6e  |.shell_SpriteRen|
00003760  61 6d 65 28 73 70 72 69  74 65 61 72 65 61 25 2c  |ame(spritearea%,|
00003770  22 69 63 5f 6e 65 77 61  70 70 22 2c 22 69 63 5f  |"ic_newapp","ic_|
00003780  22 2b c1 a4 73 68 65 6c  6c 5f 4c 65 61 66 28 66  |"+..shell_Leaf(f|
00003790  6e 61 6d 65 24 29 2c 32  29 29 0d 01 6b 39 f2 73  |name$),2))..k9.s|
000037a0  68 65 6c 6c 5f 53 70 72  69 74 65 41 72 65 61 53  |hell_SpriteAreaS|
000037b0  61 76 65 28 73 70 72 69  74 65 61 72 65 61 25 2c  |ave(spritearea%,|
000037c0  66 6e 61 6d 65 24 2b 22  2e 21 53 70 72 69 74 65  |fname$+".!Sprite|
000037d0  73 22 29 0d 01 6c 27 f2  73 68 65 6c 6c 5f 48 65  |s")..l'.shell_He|
000037e0  61 70 42 6c 6f 63 6b 52  65 74 75 72 6e 28 73 70  |apBlockReturn(sp|
000037f0  72 69 74 65 61 72 65 61  25 29 0d 01 6d 29 f2 73  |ritearea%)..m).s|
00003800  68 65 6c 6c 5f 41 63 74  69 6f 6e 28 a4 73 68 65  |hell_Action(.she|
00003810  6c 6c 5f 50 6f 6c 6c 5f  49 28 30 2c 74 61 73 6b  |ll_Poll_I(0,task|
00003820  25 29 29 0d 01 6e 04 0d  01 6f 45 f2 73 68 65 6c  |%))..n...oE.shel|
00003830  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 28 6d 61  |l_IconPutData(ma|
00003840  69 6e 77 25 2c 38 2c a4  73 68 65 6c 6c 5f 4d 65  |inw%,8,.shell_Me|
00003850  73 73 61 67 65 4e 6f 41  72 67 73 28 22 57 72 69  |ssageNoArgs("Wri|
00003860  74 65 53 70 72 31 22 29  2c 2d 31 29 0d 01 70 41  |teSpr1"),-1)..pA|
00003870  73 70 72 69 74 65 61 72  65 61 25 3d a4 73 68 65  |spritearea%=.she|
00003880  6c 6c 5f 53 70 72 69 74  65 41 72 65 61 4c 6f 61  |ll_SpriteAreaLoa|
00003890  64 28 70 61 74 68 24 2b  22 2e 4e 65 77 41 70 70  |d(path$+".NewApp|
000038a0  2e 21 53 70 72 69 74 65  73 32 32 22 29 0d 01 71  |.!Sprites22")..q|
000038b0  42 f2 73 68 65 6c 6c 5f  53 70 72 69 74 65 52 65  |B.shell_SpriteRe|
000038c0  6e 61 6d 65 28 73 70 72  69 74 65 61 72 65 61 25  |name(spritearea%|
000038d0  2c 22 21 6e 65 77 61 70  70 22 2c a4 73 68 65 6c  |,"!newapp",.shel|
000038e0  6c 5f 4c 65 61 66 28 66  6e 61 6d 65 24 29 29 0d  |l_Leaf(fname$)).|
000038f0  01 72 4e f2 73 68 65 6c  6c 5f 53 70 72 69 74 65  |.rN.shell_Sprite|
00003900  52 65 6e 61 6d 65 28 73  70 72 69 74 65 61 72 65  |Rename(spriteare|
00003910  61 25 2c 22 69 63 5f 6e  65 77 61 70 70 22 2c 22  |a%,"ic_newapp","|
00003920  69 63 5f 22 2b c1 a4 73  68 65 6c 6c 5f 4c 65 61  |ic_"+..shell_Lea|
00003930  66 28 66 6e 61 6d 65 24  29 2c 32 29 29 0d 01 73  |f(fname$),2))..s|
00003940  3b f2 73 68 65 6c 6c 5f  53 70 72 69 74 65 41 72  |;.shell_SpriteAr|
00003950  65 61 53 61 76 65 28 73  70 72 69 74 65 61 72 65  |eaSave(spriteare|
00003960  61 25 2c 66 6e 61 6d 65  24 2b 22 2e 21 53 70 72  |a%,fname$+".!Spr|
00003970  69 74 65 73 32 32 22 29  0d 01 74 27 f2 73 68 65  |ites22")..t'.she|
00003980  6c 6c 5f 48 65 61 70 42  6c 6f 63 6b 52 65 74 75  |ll_HeapBlockRetu|
00003990  72 6e 28 73 70 72 69 74  65 61 72 65 61 25 29 0d  |rn(spritearea%).|
000039a0  01 75 29 f2 73 68 65 6c  6c 5f 41 63 74 69 6f 6e  |.u).shell_Action|
000039b0  28 a4 73 68 65 6c 6c 5f  50 6f 6c 6c 5f 49 28 30  |(.shell_Poll_I(0|
000039c0  2c 74 61 73 6b 25 29 29  0d 01 76 04 0d 01 77 45  |,task%))..v...wE|
000039d0  f2 73 68 65 6c 6c 5f 49  63 6f 6e 50 75 74 44 61  |.shell_IconPutDa|
000039e0  74 61 28 6d 61 69 6e 77  25 2c 38 2c a4 73 68 65  |ta(mainw%,8,.she|
000039f0  6c 6c 5f 4d 65 73 73 61  67 65 4e 6f 41 72 67 73  |ll_MessageNoArgs|
00003a00  28 22 57 72 69 74 65 53  70 72 32 22 29 2c 2d 31  |("WriteSpr2"),-1|
00003a10  29 0d 01 78 30 f2 63 6f  70 79 5f 66 69 6c 65 28  |)..x0.copy_file(|
00003a20  66 6e 61 6d 65 24 2c 70  61 74 68 24 2b 22 2e 4e  |fname$,path$+".N|
00003a30  65 77 41 70 70 2e 53 70  72 69 74 65 73 22 2c 30  |ewApp.Sprites",0|
00003a40  29 0d 01 79 29 f2 73 68  65 6c 6c 5f 41 63 74 69  |)..y).shell_Acti|
00003a50  6f 6e 28 a4 73 68 65 6c  6c 5f 50 6f 6c 6c 5f 49  |on(.shell_Poll_I|
00003a60  28 30 2c 74 61 73 6b 25  29 29 0d 01 7a 04 0d 01  |(0,task%))..z...|
00003a70  7b 45 f2 73 68 65 6c 6c  5f 49 63 6f 6e 50 75 74  |{E.shell_IconPut|
00003a80  44 61 74 61 28 6d 61 69  6e 77 25 2c 38 2c a4 73  |Data(mainw%,8,.s|
00003a90  68 65 6c 6c 5f 4d 65 73  73 61 67 65 4e 6f 41 72  |hell_MessageNoAr|
00003aa0  67 73 28 22 57 72 69 74  65 53 70 72 33 22 29 2c  |gs("WriteSpr3"),|
00003ab0  2d 31 29 0d 01 7c 32 f2  63 6f 70 79 5f 66 69 6c  |-1)..|2.copy_fil|
00003ac0  65 28 66 6e 61 6d 65 24  2c 70 61 74 68 24 2b 22  |e(fname$,path$+"|
00003ad0  2e 4e 65 77 41 70 70 2e  53 70 72 69 74 65 73 32  |.NewApp.Sprites2|
00003ae0  32 22 2c 30 29 0d 01 7d  29 f2 73 68 65 6c 6c 5f  |2",0)..}).shell_|
00003af0  41 63 74 69 6f 6e 28 a4  73 68 65 6c 6c 5f 50 6f  |Action(.shell_Po|
00003b00  6c 6c 5f 49 28 30 2c 74  61 73 6b 25 29 29 0d 01  |ll_I(0,task%))..|
00003b10  7e 04 0d 01 7f 28 e7 20  a4 73 68 65 6c 6c 5f 49  |~....(. .shell_I|
00003b20  73 49 63 6f 6e 53 65 6c  65 63 74 65 64 28 6d 61  |sIconSelected(ma|
00003b30  69 6e 77 25 2c 31 33 29  20 8c 0d 01 80 47 20 20  |inw%,13) ....G  |
00003b40  f2 73 68 65 6c 6c 5f 49  63 6f 6e 50 75 74 44 61  |.shell_IconPutDa|
00003b50  74 61 28 6d 61 69 6e 77  25 2c 38 2c a4 73 68 65  |ta(mainw%,8,.she|
00003b60  6c 6c 5f 4d 65 73 73 61  67 65 4e 6f 41 72 67 73  |ll_MessageNoArgs|
00003b70  28 22 43 6f 70 79 48 65  6c 70 44 22 29 2c 2d 31  |("CopyHelpD"),-1|
00003b80  29 0d 01 81 2a 20 20 e7  20 a4 73 68 65 6c 6c 5f  |)...*  . .shell_|
00003b90  49 73 49 63 6f 6e 53 65  6c 65 63 74 65 64 28 6d  |IsIconSelected(m|
00003ba0  61 69 6e 77 25 2c 31 32  29 20 8c 0d 01 82 76 20  |ainw%,12) ....v |
00003bb0  20 20 20 ff 28 22 43 4f  50 59 20 20 22 2b 70 61  |   .("COPY  "+pa|
00003bc0  74 68 24 2b 22 2e 4e 65  77 41 70 70 2e 4e 65 77  |th$+".NewApp.New|
00003bd0  41 70 70 2e 48 65 6c 70  44 61 74 61 20 22 2b 66  |App.HelpData "+f|
00003be0  6e 61 6d 65 24 2b 22 2e  52 65 73 6f 75 72 63 65  |name$+".Resource|
00003bf0  73 2e 55 4b 2e 22 2b c1  a4 73 68 65 6c 6c 5f 4c  |s.UK."+..shell_L|
00003c00  65 61 66 28 66 6e 61 6d  65 24 29 2c 32 29 2b 22  |eaf(fname$),2)+"|
00003c10  2e 48 65 6c 70 44 61 74  61 20 7e 43 20 7e 56 22  |.HelpData ~C ~V"|
00003c20  29 0d 01 83 07 20 20 cc  0d 01 84 69 20 20 20 20  |)....  ....i    |
00003c30  ff 28 22 43 4f 50 59 20  20 22 2b 70 61 74 68 24  |.("COPY  "+path$|
00003c40  2b 22 2e 4e 65 77 41 70  70 2e 4e 65 77 41 70 70  |+".NewApp.NewApp|
00003c50  2e 48 65 6c 70 44 61 74  61 20 22 2b 66 6e 61 6d  |.HelpData "+fnam|
00003c60  65 24 2b 22 2e 22 2b c1  a4 73 68 65 6c 6c 5f 4c  |e$+"."+..shell_L|
00003c70  65 61 66 28 66 6e 61 6d  65 24 29 2c 32 29 2b 22  |eaf(fname$),2)+"|
00003c80  2e 48 65 6c 70 44 61 74  61 20 7e 43 20 7e 56 22  |.HelpData ~C ~V"|
00003c90  29 0d 01 85 07 20 20 cd  0d 01 86 2b 20 20 f2 73  |)....  ....+  .s|
00003ca0  68 65 6c 6c 5f 41 63 74  69 6f 6e 28 a4 73 68 65  |hell_Action(.she|
00003cb0  6c 6c 5f 50 6f 6c 6c 5f  49 28 30 2c 74 61 73 6b  |ll_Poll_I(0,task|
00003cc0  25 29 29 0d 01 87 04 0d  01 88 47 20 20 f2 73 68  |%)).......G  .sh|
00003cd0  65 6c 6c 5f 49 63 6f 6e  50 75 74 44 61 74 61 28  |ell_IconPutData(|
00003ce0  6d 61 69 6e 77 25 2c 38  2c a4 73 68 65 6c 6c 5f  |mainw%,8,.shell_|
00003cf0  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 43  |MessageNoArgs("C|
00003d00  6f 70 79 49 6e 64 65 78  22 29 2c 2d 31 29 0d 01  |opyIndex"),-1)..|
00003d10  89 2a 20 20 e7 20 a4 73  68 65 6c 6c 5f 49 73 49  |.*  . .shell_IsI|
00003d20  63 6f 6e 53 65 6c 65 63  74 65 64 28 6d 61 69 6e  |conSelected(main|
00003d30  77 25 2c 31 32 29 20 8c  0d 01 8a 70 20 20 20 20  |w%,12) ....p    |
00003d40  ff 28 22 43 4f 50 59 20  20 22 2b 70 61 74 68 24  |.("COPY  "+path$|
00003d50  2b 22 2e 4e 65 77 41 70  70 2e 4e 65 77 41 70 70  |+".NewApp.NewApp|
00003d60  2e 49 6e 64 65 78 20 22  2b 66 6e 61 6d 65 24 2b  |.Index "+fname$+|
00003d70  22 2e 52 65 73 6f 75 72  63 65 73 2e 55 4b 2e 22  |".Resources.UK."|
00003d80  2b c1 a4 73 68 65 6c 6c  5f 4c 65 61 66 28 66 6e  |+..shell_Leaf(fn|
00003d90  61 6d 65 24 29 2c 32 29  2b 22 2e 49 6e 64 65 78  |ame$),2)+".Index|
00003da0  20 7e 43 20 7e 56 22 29  0d 01 8b 07 20 20 cc 0d  | ~C ~V")....  ..|
00003db0  01 8c 63 20 20 20 20 ff  28 22 43 4f 50 59 20 20  |..c    .("COPY  |
00003dc0  22 2b 70 61 74 68 24 2b  22 2e 4e 65 77 41 70 70  |"+path$+".NewApp|
00003dd0  2e 4e 65 77 41 70 70 2e  49 6e 64 65 78 20 22 2b  |.NewApp.Index "+|
00003de0  66 6e 61 6d 65 24 2b 22  2e 22 2b c1 a4 73 68 65  |fname$+"."+..she|
00003df0  6c 6c 5f 4c 65 61 66 28  66 6e 61 6d 65 24 29 2c  |ll_Leaf(fname$),|
00003e00  32 29 2b 22 2e 49 6e 64  65 78 20 7e 43 20 7e 56  |2)+".Index ~C ~V|
00003e10  22 29 0d 01 8d 07 20 20  cd 0d 01 8e 2b 20 20 f2  |")....  ....+  .|
00003e20  73 68 65 6c 6c 5f 41 63  74 69 6f 6e 28 a4 73 68  |shell_Action(.sh|
00003e30  65 6c 6c 5f 50 6f 6c 6c  5f 49 28 30 2c 74 61 73  |ell_Poll_I(0,tas|
00003e40  6b 25 29 29 0d 01 8f 05  cd 0d 01 90 04 0d 01 91  |k%))............|
00003e50  44 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  |D.shell_IconPutD|
00003e60  61 74 61 28 6d 61 69 6e  77 25 2c 38 2c a4 73 68  |ata(mainw%,8,.sh|
00003e70  65 6c 6c 5f 4d 65 73 73  61 67 65 4e 6f 41 72 67  |ell_MessageNoArg|
00003e80  73 28 22 43 6f 70 79 48  65 6c 70 22 29 2c 2d 31  |s("CopyHelp"),-1|
00003e90  29 0d 01 92 28 e7 20 a4  73 68 65 6c 6c 5f 49 73  |)...(. .shell_Is|
00003ea0  49 63 6f 6e 53 65 6c 65  63 74 65 64 28 6d 61 69  |IconSelected(mai|
00003eb0  6e 77 25 2c 31 32 29 20  8c 0d 01 93 3f 20 20 f2  |nw%,12) ....?  .|
00003ec0  63 6f 70 79 5f 66 69 6c  65 28 66 6e 61 6d 65 24  |copy_file(fname$|
00003ed0  2b 22 2e 52 65 73 6f 75  72 63 65 73 2e 55 4b 22  |+".Resources.UK"|
00003ee0  2c 70 61 74 68 24 2b 22  2e 4e 65 77 41 70 70 2e  |,path$+".NewApp.|
00003ef0  48 65 6c 70 22 2c 30 29  0d 01 94 31 20 20 f2 63  |Help",0)...1  .c|
00003f00  6f 70 79 5f 66 69 6c 65  28 66 6e 61 6d 65 24 2c  |opy_file(fname$,|
00003f10  70 61 74 68 24 2b 22 2e  4e 65 77 41 70 70 2e 21  |path$+".NewApp.!|
00003f20  48 65 6c 70 22 2c 2d 31  29 0d 01 95 05 cc 0d 01  |Help",-1).......|
00003f30  96 2f 20 20 f2 63 6f 70  79 5f 66 69 6c 65 28 66  |./  .copy_file(f|
00003f40  6e 61 6d 65 24 2c 70 61  74 68 24 2b 22 2e 4e 65  |name$,path$+".Ne|
00003f50  77 41 70 70 2e 48 65 6c  70 22 2c 30 29 0d 01 97  |wApp.Help",0)...|
00003f60  32 20 20 ff 28 22 52 65  6e 61 6d 65 20 22 2b 66  |2  .("Rename "+f|
00003f70  6e 61 6d 65 24 2b 22 2e  48 65 6c 70 20 22 2b 66  |name$+".Help "+f|
00003f80  6e 61 6d 65 24 2b 22 2e  21 48 65 6c 70 22 29 0d  |name$+".!Help").|
00003f90  01 98 05 cd 0d 01 99 29  f2 73 68 65 6c 6c 5f 41  |.......).shell_A|
00003fa0  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
00003fb0  6c 5f 49 28 30 2c 74 61  73 6b 25 29 29 0d 01 9a  |l_I(0,task%))...|
00003fc0  04 0d 01 9b 42 f2 73 68  65 6c 6c 5f 49 63 6f 6e  |....B.shell_Icon|
00003fd0  50 75 74 44 61 74 61 28  6d 61 69 6e 77 25 2c 38  |PutData(mainw%,8|
00003fe0  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
00003ff0  6f 41 72 67 73 28 22 50  72 6f 63 52 49 22 29 2c  |oArgs("ProcRI"),|
00004000  2d 31 29 0d 01 9c 50 f2  62 61 73 69 63 70 72 6f  |-1)...P.basicpro|
00004010  67 5f 70 72 6f 63 65 73  73 28 70 61 74 68 24 2b  |g_process(path$+|
00004020  22 2e 4e 65 77 41 70 70  2e 21 52 75 6e 49 6d 61  |".NewApp.!RunIma|
00004030  67 65 22 2c 66 6e 61 6d  65 24 2b 22 2e 22 2b a4  |ge",fname$+"."+.|
00004040  73 68 65 6c 6c 5f 4c 65  61 66 28 66 6e 61 6d 65  |shell_Leaf(fname|
00004050  24 29 29 0d 01 9d 04 0d  01 9e 28 e7 20 a4 73 68  |$)).......(. .sh|
00004060  65 6c 6c 5f 49 73 49 63  6f 6e 53 65 6c 65 63 74  |ell_IsIconSelect|
00004070  65 64 28 6d 61 69 6e 77  25 2c 31 30 29 20 8c 0d  |ed(mainw%,10) ..|
00004080  01 9f 04 0d 01 a0 1b 20  20 f4 20 63 72 65 61 74  |.......  . creat|
00004090  65 20 73 74 61 6e 64 61  6c 6f 6e 65 2e 2e 0d 01  |e standalone....|
000040a0  a1 06 20 20 0d 01 a2 1d  20 20 f4 20 63 6f 70 79  |..  ....  . copy|
000040b0  20 73 68 65 6c 6c 6d 73  67 73 20 66 69 6c 65 2e  | shellmsgs file.|
000040c0  2e 0d 01 a3 48 20 20 f2  73 68 65 6c 6c 5f 49 63  |....H  .shell_Ic|
000040d0  6f 6e 50 75 74 44 61 74  61 28 6d 61 69 6e 77 25  |onPutData(mainw%|
000040e0  2c 38 2c a4 73 68 65 6c  6c 5f 4d 65 73 73 61 67  |,8,.shell_Messag|
000040f0  65 4e 6f 41 72 67 73 28  22 43 6f 70 79 53 68 4d  |eNoArgs("CopyShM|
00004100  65 73 73 22 29 2c 2d 31  29 0d 01 a4 2a 20 20 e7  |ess"),-1)...*  .|
00004110  20 a4 73 68 65 6c 6c 5f  49 73 49 63 6f 6e 53 65  | .shell_IsIconSe|
00004120  6c 65 63 74 65 64 28 6d  61 69 6e 77 25 2c 31 32  |lected(mainw%,12|
00004130  29 20 8c 0d 01 a5 4f 20  20 20 20 ff 28 22 43 4f  |) ....O    .("CO|
00004140  50 59 20 53 68 65 6c 6c  53 79 73 52 65 73 3a 53  |PY ShellSysRes:S|
00004150  68 65 6c 6c 4d 73 67 73  20 22 2b 66 6e 61 6d 65  |hellMsgs "+fname|
00004160  24 2b 22 2e 52 65 73 6f  75 72 63 65 73 2e 55 4b  |$+".Resources.UK|
00004170  2e 53 68 65 6c 6c 4d 73  67 73 20 7e 43 20 7e 56  |.ShellMsgs ~C ~V|
00004180  22 29 0d 01 a6 07 20 20  cc 0d 01 a7 42 20 20 20  |")....  ....B   |
00004190  20 ff 28 22 43 4f 50 59  20 53 68 65 6c 6c 53 79  | .("COPY ShellSy|
000041a0  73 52 65 73 3a 53 68 65  6c 6c 4d 73 67 73 20 22  |sRes:ShellMsgs "|
000041b0  2b 66 6e 61 6d 65 24 2b  22 2e 53 68 65 6c 6c 4d  |+fname$+".ShellM|
000041c0  73 67 73 20 7e 43 20 7e  56 22 29 0d 01 a8 07 20  |sgs ~C ~V").... |
000041d0  20 cd 0d 01 a9 2b 20 20  f2 73 68 65 6c 6c 5f 41  | ....+  .shell_A|
000041e0  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
000041f0  6c 5f 49 28 30 2c 74 61  73 6b 25 29 29 0d 01 aa  |l_I(0,task%))...|
00004200  06 20 20 0d 01 ab 16 20  20 f4 20 63 6f 70 79 20  |.  ....  . copy |
00004210  6d 6f 64 75 6c 65 73 2e  2e 0d 01 ac 47 20 20 f2  |modules.....G  .|
00004220  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
00004230  61 28 6d 61 69 6e 77 25  2c 38 2c a4 73 68 65 6c  |a(mainw%,8,.shel|
00004240  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
00004250  22 43 6f 70 79 46 4d 4d  6f 64 22 29 2c 2d 31 29  |"CopyFMMod"),-1)|
00004260  0d 01 ad 48 20 20 ff 28  22 43 4f 50 59 20 3c 45  |...H  .("COPY <E|
00004270  76 6e 74 53 68 65 6c 6c  53 79 73 74 65 6d 24 50  |vntShellSystem$P|
00004280  61 74 68 3e 46 6f 6e 74  4d 65 6e 75 20 22 2b 66  |ath>FontMenu "+f|
00004290  6e 61 6d 65 24 2b 22 2e  46 6f 6e 74 4d 65 6e 75  |name$+".FontMenu|
000042a0  20 7e 43 20 7e 56 22 29  0d 01 ae 2d 20 20 f2 73  | ~C ~V")...-  .s|
000042b0  68 65 6c 6c 5f 41 63 74  69 6f 6e 28 a4 73 68 65  |hell_Action(.she|
000042c0  6c 6c 5f 50 6f 6c 6c 5f  49 28 30 2c 5f 55 25 21  |ll_Poll_I(0,_U%!|
000042d0  31 34 38 29 29 0d 01 af  06 20 20 0d 01 b0 47 20  |148))....  ...G |
000042e0  20 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  | .shell_IconPutD|
000042f0  61 74 61 28 6d 61 69 6e  77 25 2c 38 2c a4 73 68  |ata(mainw%,8,.sh|
00004300  65 6c 6c 5f 4d 65 73 73  61 67 65 4e 6f 41 72 67  |ell_MessageNoArg|
00004310  73 28 22 43 6f 70 79 49  46 4d 6f 64 22 29 2c 2d  |s("CopyIFMod"),-|
00004320  31 29 0d 01 b1 4a 20 20  ff 28 22 43 4f 50 59 20  |1)...J  .("COPY |
00004330  3c 45 76 6e 74 53 68 65  6c 6c 53 79 73 74 65 6d  |<EvntShellSystem|
00004340  24 50 61 74 68 3e 49 6e  74 65 72 66 61 63 65 20  |$Path>Interface |
00004350  22 2b 66 6e 61 6d 65 24  2b 22 2e 49 6e 74 65 72  |"+fname$+".Inter|
00004360  66 61 63 65 20 7e 43 20  7e 56 22 29 0d 01 b2 2d  |face ~C ~V")...-|
00004370  20 20 f2 73 68 65 6c 6c  5f 41 63 74 69 6f 6e 28  |  .shell_Action(|
00004380  a4 73 68 65 6c 6c 5f 50  6f 6c 6c 5f 49 28 30 2c  |.shell_Poll_I(0,|
00004390  5f 55 25 21 31 34 38 29  29 0d 01 b3 06 20 20 0d  |_U%!148))....  .|
000043a0  01 b4 47 20 20 f2 73 68  65 6c 6c 5f 49 63 6f 6e  |..G  .shell_Icon|
000043b0  50 75 74 44 61 74 61 28  6d 61 69 6e 77 25 2c 38  |PutData(mainw%,8|
000043c0  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
000043d0  6f 41 72 67 73 28 22 43  6f 70 79 4d 55 4d 6f 64  |oArgs("CopyMUMod|
000043e0  22 29 2c 2d 31 29 0d 01  b5 4a 20 20 ff 28 22 43  |"),-1)...J  .("C|
000043f0  4f 50 59 20 3c 45 76 6e  74 53 68 65 6c 6c 53 79  |OPY <EvntShellSy|
00004400  73 74 65 6d 24 50 61 74  68 3e 4d 65 6e 75 55 74  |stem$Path>MenuUt|
00004410  69 6c 73 20 22 2b 66 6e  61 6d 65 24 2b 22 2e 4d  |ils "+fname$+".M|
00004420  65 6e 75 55 74 69 6c 73  20 7e 43 20 7e 56 22 29  |enuUtils ~C ~V")|
00004430  0d 01 b6 2d 20 20 f2 73  68 65 6c 6c 5f 41 63 74  |...-  .shell_Act|
00004440  69 6f 6e 28 a4 73 68 65  6c 6c 5f 50 6f 6c 6c 5f  |ion(.shell_Poll_|
00004450  49 28 30 2c 5f 55 25 21  31 34 38 29 29 0d 01 b7  |I(0,_U%!148))...|
00004460  06 20 20 0d 01 b8 47 20  20 f2 73 68 65 6c 6c 5f  |.  ...G  .shell_|
00004470  49 63 6f 6e 50 75 74 44  61 74 61 28 6d 61 69 6e  |IconPutData(main|
00004480  77 25 2c 38 2c a4 73 68  65 6c 6c 5f 4d 65 73 73  |w%,8,.shell_Mess|
00004490  61 67 65 4e 6f 41 72 67  73 28 22 43 6f 70 79 4d  |ageNoArgs("CopyM|
000044a0  54 4d 6f 64 22 29 2c 2d  31 29 0d 01 b9 48 20 20  |TMod"),-1)...H  |
000044b0  ff 28 22 43 4f 50 59 20  3c 45 76 6e 74 53 68 65  |.("COPY <EvntShe|
000044c0  6c 6c 53 79 73 74 65 6d  24 50 61 74 68 3e 4d 73  |llSystem$Path>Ms|
000044d0  67 54 72 61 6e 73 20 22  2b 66 6e 61 6d 65 24 2b  |gTrans "+fname$+|
000044e0  22 2e 4d 73 67 54 72 61  6e 73 20 7e 43 20 7e 56  |".MsgTrans ~C ~V|
000044f0  22 29 0d 01 ba 2d 20 20  f2 73 68 65 6c 6c 5f 41  |")...-  .shell_A|
00004500  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
00004510  6c 5f 49 28 30 2c 5f 55  25 21 31 34 38 29 29 0d  |l_I(0,_U%!148)).|
00004520  01 bb 06 20 20 0d 01 bc  47 20 20 f2 73 68 65 6c  |...  ...G  .shel|
00004530  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 28 6d 61  |l_IconPutData(ma|
00004540  69 6e 77 25 2c 38 2c a4  73 68 65 6c 6c 5f 4d 65  |inw%,8,.shell_Me|
00004550  73 73 61 67 65 4e 6f 41  72 67 73 28 22 43 6f 70  |ssageNoArgs("Cop|
00004560  79 48 65 61 70 43 22 29  2c 2d 31 29 0d 01 bd 48  |yHeapC"),-1)...H|
00004570  20 20 ff 28 22 43 4f 50  59 20 3c 45 76 6e 74 53  |  .("COPY <EvntS|
00004580  68 65 6c 6c 53 79 73 74  65 6d 24 50 61 74 68 3e  |hellSystem$Path>|
00004590  48 65 61 70 63 6f 64 65  20 22 2b 66 6e 61 6d 65  |Heapcode "+fname|
000045a0  24 2b 22 2e 68 65 61 70  63 6f 64 65 20 7e 43 20  |$+".heapcode ~C |
000045b0  7e 56 22 29 0d 01 be 2d  20 20 f2 73 68 65 6c 6c  |~V")...-  .shell|
000045c0  5f 41 63 74 69 6f 6e 28  a4 73 68 65 6c 6c 5f 50  |_Action(.shell_P|
000045d0  6f 6c 6c 5f 49 28 30 2c  5f 55 25 21 31 34 38 29  |oll_I(0,_U%!148)|
000045e0  29 0d 01 bf 06 20 20 0d  01 c0 45 20 20 f2 73 68  |)....  ...E  .sh|
000045f0  65 6c 6c 5f 49 63 6f 6e  50 75 74 44 61 74 61 28  |ell_IconPutData(|
00004600  6d 61 69 6e 77 25 2c 38  2c a4 73 68 65 6c 6c 5f  |mainw%,8,.shell_|
00004610  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 43  |MessageNoArgs("C|
00004620  6f 70 79 4c 69 62 22 29  2c 2d 31 29 0d 01 c1 4e  |opyLib"),-1)...N|
00004630  20 20 e7 20 a4 73 68 65  6c 6c 5f 49 73 49 63 6f  |  . .shell_IsIco|
00004640  6e 53 65 6c 65 63 74 65  64 28 6d 61 69 6e 77 25  |nSelected(mainw%|
00004650  2c 31 31 29 20 8c 20 6c  69 62 24 3d 22 53 68 65  |,11) . lib$="She|
00004660  6c 6c 4c 69 62 52 54 22  20 8b 20 6c 69 62 24 3d  |llLibRT" . lib$=|
00004670  22 53 68 65 6c 6c 4c 69  62 22 0d 01 c2 48 20 20  |"ShellLib"...H  |
00004680  ff 28 22 43 4f 50 59 20  3c 45 76 6e 74 53 68 65  |.("COPY <EvntShe|
00004690  6c 6c 53 79 73 74 65 6d  24 50 61 74 68 3e 22 2b  |llSystem$Path>"+|
000046a0  6c 69 62 24 2b 22 20 22  2b 66 6e 61 6d 65 24 2b  |lib$+" "+fname$+|
000046b0  22 2e 22 2b 6c 69 62 24  2b 22 20 7e 43 20 7e 56  |"."+lib$+" ~C ~V|
000046c0  22 29 0d 01 c3 2d 20 20  f2 73 68 65 6c 6c 5f 41  |")...-  .shell_A|
000046d0  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
000046e0  6c 5f 49 28 30 2c 5f 55  25 21 31 34 38 29 29 0d  |l_I(0,_U%!148)).|
000046f0  01 c4 06 20 20 0d 01 c5  47 20 20 f4 20 65 64 69  |...  ...G  . edi|
00004700  74 20 6e 65 77 20 21 52  75 6e 20 66 69 6c 65 20  |t new !Run file |
00004710  74 6f 20 6c 6f 61 64 20  6d 6f 64 75 6c 65 73 20  |to load modules |
00004720  66 72 6f 6d 20 61 70 70  6c 69 63 61 74 69 6f 6e  |from application|
00004730  20 64 69 72 65 63 74 6f  72 79 2e 2e 0d 01 c6 47  | directory.....G|
00004740  20 20 f2 65 64 69 74 5f  66 69 6c 65 28 66 6e 61  |  .edit_file(fna|
00004750  6d 65 24 2b 22 2e 21 52  75 6e 22 2c 22 3c 45 76  |me$+".!Run","<Ev|
00004760  6e 74 53 68 65 6c 6c 53  79 73 74 65 6d 24 50 61  |ntShellSystem$Pa|
00004770  74 68 3e 22 2c 22 3c 4f  62 65 79 24 44 69 72 3e  |th>","<Obey$Dir>|
00004780  2e 22 29 0d 01 c7 3f 20  20 f2 65 64 69 74 5f 66  |.")...?  .edit_f|
00004790  69 6c 65 28 66 6e 61 6d  65 24 2b 22 2e 21 52 75  |ile(fname$+".!Ru|
000047a0  6e 22 2c 22 53 68 65 6c  6c 20 72 65 73 6f 75 72  |n","Shell resour|
000047b0  63 65 73 20 6e 6f 74 20  66 6f 75 6e 64 22 2c 22  |ces not found","|
000047c0  22 29 0d 01 c8 04 0d 01  c9 05 cd 0d 01 ca 42 f2  |")............B.|
000047d0  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
000047e0  61 28 6d 61 69 6e 77 25  2c 38 2c a4 73 68 65 6c  |a(mainw%,8,.shel|
000047f0  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
00004800  22 57 61 69 74 69 6e 67  22 29 2c 30 29 0d 01 cb  |"Waiting"),0)...|
00004810  41 f2 73 68 65 6c 6c 5f  49 63 6f 6e 62 61 72 53  |A.shell_IconbarS|
00004820  65 74 54 65 78 74 28 2d  31 2c 73 69 63 6f 6e 2c  |etText(-1,sicon,|
00004830  a4 73 68 65 6c 6c 5f 4d  65 73 73 61 67 65 4e 6f  |.shell_MessageNo|
00004840  41 72 67 73 28 22 52 65  61 64 79 22 29 29 0d 01  |Args("Ready"))..|
00004850  cc 05 e1 0d 01 cd 05 3a  0d 01 ce 2c dd 20 f2 65  |.......:...,. .e|
00004860  64 69 74 5f 66 69 6c 65  28 66 69 6c 65 6e 61 6d  |dit_file(filenam|
00004870  65 24 2c 74 61 72 67 65  74 24 2c 72 65 70 6c 61  |e$,target$,repla|
00004880  63 65 24 29 0d 01 cf 7d  c8 99 20 22 57 69 6d 70  |ce$)...}.. "Wimp|
00004890  5f 53 74 61 72 74 54 61  73 6b 22 2c 22 3c 41 70  |_StartTask","<Ap|
000048a0  70 42 75 69 6c 64 24 44  69 72 3e 2e 4d 53 65 64  |pBuild$Dir>.MSed|
000048b0  20 22 2b bd 33 34 2b 74  61 72 67 65 74 24 2b bd  | "+.34+target$+.|
000048c0  33 34 2b 22 20 22 2b bd  33 34 2b 72 65 70 6c 61  |34+" "+.34+repla|
000048d0  63 65 24 2b bd 33 34 2b  22 20 22 2b 66 69 6c 65  |ce$+.34+" "+file|
000048e0  6e 61 6d 65 24 2b 22 20  3e 20 3c 41 70 70 42 75  |name$+" > <AppBu|
000048f0  69 6c 64 24 44 69 72 3e  2e 54 6d 70 46 69 6c 65  |ild$Dir>.TmpFile|
00004900  22 0d 01 d0 2b ff 28 22  53 45 54 54 59 50 45 20  |"...+.("SETTYPE |
00004910  3c 41 70 70 42 75 69 6c  64 24 44 69 72 3e 2e 54  |<AppBuild$Dir>.T|
00004920  6d 70 46 69 6c 65 20 46  45 42 22 29 0d 01 d1 3c  |mpFile FEB")...<|
00004930  ff 28 22 43 4f 50 59 20  3c 41 70 70 42 75 69 6c  |.("COPY <AppBuil|
00004940  64 24 44 69 72 3e 2e 54  6d 70 46 69 6c 65 20 22  |d$Dir>.TmpFile "|
00004950  2b 66 69 6c 65 6e 61 6d  65 24 2b 22 20 7e 43 20  |+filename$+" ~C |
00004960  7e 56 20 44 20 46 22 29  0d 01 d2 05 e1 0d 01 d3  |~V D F")........|
00004970  05 3a 0d 01 d4 23 dd 20  f2 63 6f 70 79 5f 66 69  |.:...#. .copy_fi|
00004980  6c 65 28 66 6e 61 6d 65  24 2c 66 69 6c 65 24 2c  |le(fname$,file$,|
00004990  70 61 64 25 29 0d 01 d5  25 ea 20 70 61 74 68 24  |pad%)...%. path$|
000049a0  2c 6c 65 61 66 24 2c 69  6e 70 75 74 25 2c 6f 75  |,leaf$,input%,ou|
000049b0  74 70 75 74 25 2c 63 74  72 25 0d 01 d6 21 70 61  |tput%,ctr%...!pa|
000049c0  74 68 24 3d a4 73 68 65  6c 6c 5f 47 65 74 41 70  |th$=.shell_GetAp|
000049d0  70 44 69 72 3a 63 74 72  25 3d 30 0d 01 d7 2d 6c  |pDir:ctr%=0...-l|
000049e0  65 61 66 24 3d c1 a4 73  68 65 6c 6c 5f 4c 65 61  |eaf$=..shell_Lea|
000049f0  66 28 66 6e 61 6d 65 24  29 2c 32 29 3a f4 20 73  |f(fname$),2):. s|
00004a00  74 72 69 70 20 22 21 22  0d 01 d8 14 69 6e 70 75  |trip "!"....inpu|
00004a10  74 25 20 3d 8e 28 66 69  6c 65 24 29 0d 01 d9 2c  |t% =.(file$)...,|
00004a20  6f 75 74 70 75 74 25 3d  ae 28 66 6e 61 6d 65 24  |output%=.(fname$|
00004a30  2b 22 2e 22 2b a4 73 68  65 6c 6c 5f 4c 65 61 66  |+"."+.shell_Leaf|
00004a40  28 66 69 6c 65 24 29 29  0d 01 da 05 f5 0d 01 db  |(file$))........|
00004a50  15 20 20 62 79 74 65 25  3d 9a 23 20 69 6e 70 75  |.  byte%=.# inpu|
00004a60  74 25 0d 01 dc 23 20 20  e7 20 62 79 74 65 25 3d  |t%...#  . byte%=|
00004a70  36 34 20 8c 20 63 74 72  25 2b 3d 31 20 8b 20 63  |64 . ctr%+=1 . c|
00004a80  74 72 25 3d 30 0d 01 dd  16 20 20 d5 23 20 6f 75  |tr%=0....  .# ou|
00004a90  74 70 75 74 25 2c 62 79  74 65 25 0d 01 de 37 20  |tput%,byte%...7 |
00004aa0  20 e7 20 63 74 72 25 3d  39 20 8c 20 63 74 72 25  | . ctr%=9 . ctr%|
00004ab0  3d 30 3a f2 62 61 63 6b  5f 74 72 61 63 6b 28 6f  |=0:.back_track(o|
00004ac0  75 74 70 75 74 25 2c 6c  65 61 66 24 2c 70 61 64  |utput%,leaf$,pad|
00004ad0  25 29 0d 01 df 0f fd 20  c5 23 20 69 6e 70 75 74  |%)..... .# input|
00004ae0  25 0d 01 e0 0d d9 23 20  69 6e 70 75 74 25 0d 01  |%.....# input%..|
00004af0  e1 0e d9 23 20 6f 75 74  70 75 74 25 0d 01 e2 20  |...# output%... |
00004b00  74 79 70 65 25 3d a4 73  68 65 6c 6c 5f 46 69 6c  |type%=.shell_Fil|
00004b10  65 54 79 70 65 28 66 69  6c 65 24 29 0d 01 e3 3b  |eType(file$)...;|
00004b20  ff 28 22 53 65 74 54 79  70 65 20 22 2b 66 6e 61  |.("SetType "+fna|
00004b30  6d 65 24 2b 22 2e 22 2b  a4 73 68 65 6c 6c 5f 4c  |me$+"."+.shell_L|
00004b40  65 61 66 28 66 69 6c 65  24 29 2b 22 20 22 2b c3  |eaf(file$)+" "+.|
00004b50  7e 74 79 70 65 25 29 0d  01 e4 05 e1 0d 01 e5 05  |~type%).........|
00004b60  3a 0d 01 e6 23 dd 20 f2  62 61 63 6b 5f 74 72 61  |:...#. .back_tra|
00004b70  63 6b 28 66 70 74 72 25  2c 6e 61 6d 65 24 2c 70  |ck(fptr%,name$,p|
00004b80  61 64 25 29 0d 01 e7 08  ea 20 49 25 0d 01 e8 3f  |ad%)..... I%...?|
00004b90  e7 20 70 61 64 25 3e 2d  31 20 8c 20 6e 61 6d 65  |. pad%>-1 . name|
00004ba0  24 3d a4 73 68 65 6c 6c  5f 53 74 72 69 6e 67 50  |$=.shell_StringP|
00004bb0  61 64 54 72 61 69 6c 69  6e 67 28 6e 61 6d 65 24  |adTrailing(name$|
00004bc0  2c bd 28 70 61 64 25 29  2c 39 29 0d 01 e9 19 cf  |,.(pad%),9).....|
00004bd0  23 20 66 70 74 72 25 3d  8f 23 20 66 70 74 72 25  |# fptr%=.# fptr%|
00004be0  20 2d 20 39 0d 01 ea 13  e3 20 49 25 3d 31 20 b8  | - 9..... I%=1 .|
00004bf0  20 a9 6e 61 6d 65 24 0d  01 eb 1e 20 20 d5 23 20  | .name$....  .# |
00004c00  66 70 74 72 25 2c 97 28  c1 6e 61 6d 65 24 2c 49  |fptr%,.(.name$,I|
00004c10  25 2c 31 29 29 0d 01 ec  08 ed 20 49 25 0d 01 ed  |%,1))..... I%...|
00004c20  05 e1 0d 01 ee 05 3a 0d  01 ef 32 dd 20 f2 62 61  |......:...2. .ba|
00004c30  73 69 63 70 72 6f 67 5f  70 72 6f 63 65 73 73 28  |sicprog_process(|
00004c40  69 6e 70 75 74 5f 66 69  6c 65 24 2c 6f 75 74 70  |input_file$,outp|
00004c50  75 74 5f 66 69 6c 65 24  29 0d 01 f0 97 c8 99 20  |ut_file$)...... |
00004c60  22 57 69 6d 70 5f 53 74  61 72 74 54 61 73 6b 22  |"Wimp_StartTask"|
00004c70  2c 22 3c 41 70 70 42 75  69 6c 64 24 44 69 72 3e  |,"<AppBuild$Dir>|
00004c80  2e 42 53 65 64 20 22 2b  bd 33 34 2b 22 40 40 40  |.BSed "+.34+"@@@|
00004c90  40 40 40 40 40 40 22 2b  bd 33 34 2b 22 20 22 2b  |@@@@@@"+.34+" "+|
00004ca0  bd 33 34 2b c1 a4 73 68  65 6c 6c 5f 4c 65 61 66  |.34+..shell_Leaf|
00004cb0  28 6f 75 74 70 75 74 5f  66 69 6c 65 24 29 2c 32  |(output_file$),2|
00004cc0  29 2b bd 33 34 2b 22 20  22 2b 69 6e 70 75 74 5f  |)+.34+" "+input_|
00004cd0  66 69 6c 65 24 2b 22 20  3c 41 70 70 42 75 69 6c  |file$+" <AppBuil|
00004ce0  64 24 44 69 72 3e 2e 54  6d 70 46 69 6c 65 30 22  |d$Dir>.TmpFile0"|
00004cf0  0d 01 f1 28 e7 20 a4 73  68 65 6c 6c 5f 49 73 49  |...(. .shell_IsI|
00004d00  63 6f 6e 53 65 6c 65 63  74 65 64 28 6d 61 69 6e  |conSelected(main|
00004d10  77 25 2c 31 30 29 20 8c  0d 01 f2 a1 20 20 c8 99  |w%,10) .....  ..|
00004d20  20 22 57 69 6d 70 5f 53  74 61 72 74 54 61 73 6b  | "Wimp_StartTask|
00004d30  22 2c 22 3c 41 70 70 42  75 69 6c 64 24 44 69 72  |","<AppBuild$Dir|
00004d40  3e 2e 42 53 65 64 20 22  2b bd 33 34 2b 22 3c 45  |>.BSed "+.34+"<E|
00004d50  76 6e 74 53 68 65 6c 6c  53 79 73 74 65 6d 24 50  |vntShellSystem$P|
00004d60  61 74 68 3e 22 2b bd 33  34 2b 22 20 22 2b bd 33  |ath>"+.34+" "+.3|
00004d70  34 2b 22 3c 4f 62 65 79  24 44 69 72 3e 2e 22 2b  |4+"<Obey$Dir>."+|
00004d80  bd 33 34 2b 22 20 22 2b  22 3c 41 70 70 42 75 69  |.34+" "+"<AppBui|
00004d90  6c 64 24 44 69 72 3e 2e  54 6d 70 46 69 6c 65 30  |ld$Dir>.TmpFile0|
00004da0  20 3c 41 70 70 42 75 69  6c 64 24 44 69 72 3e 2e  | <AppBuild$Dir>.|
00004db0  54 6d 70 46 69 6c 65 31  22 0d 01 f3 29 20 20 ff  |TmpFile1"...)  .|
00004dc0  28 22 52 65 6d 6f 76 65  20 3c 41 70 70 42 75 69  |("Remove <AppBui|
00004dd0  6c 64 24 44 69 72 3e 2e  54 6d 70 46 69 6c 65 30  |ld$Dir>.TmpFile0|
00004de0  22 29 0d 01 f4 41 20 20  ff 28 22 52 65 6e 61 6d  |")...A  .("Renam|
00004df0  65 20 3c 41 70 70 42 75  69 6c 64 24 44 69 72 3e  |e <AppBuild$Dir>|
00004e00  2e 54 6d 70 46 69 6c 65  31 20 3c 41 70 70 42 75  |.TmpFile1 <AppBu|
00004e10  69 6c 64 24 44 69 72 3e  2e 54 6d 70 46 69 6c 65  |ild$Dir>.TmpFile|
00004e20  30 22 29 0d 01 f5 05 cd  0d 01 f6 28 e7 20 a4 73  |0")........(. .s|
00004e30  68 65 6c 6c 5f 49 73 49  63 6f 6e 53 65 6c 65 63  |hell_IsIconSelec|
00004e40  74 65 64 28 6d 61 69 6e  77 25 2c 31 31 29 20 8c  |ted(mainw%,11) .|
00004e50  0d 01 f7 07 20 20 cc 0d  01 f8 94 20 20 20 20 c8  |....  .....    .|
00004e60  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
00004e70  6b 22 2c 22 3c 41 70 70  42 75 69 6c 64 24 44 69  |k","<AppBuild$Di|
00004e80  72 3e 2e 42 53 65 64 20  22 2b bd 33 34 2b 22 53  |r>.BSed "+.34+"S|
00004e90  68 65 6c 6c 4c 69 62 52  54 22 2b bd 33 34 2b 22  |hellLibRT"+.34+"|
00004ea0  20 22 2b bd 33 34 2b 22  53 68 65 6c 6c 4c 69 62  | "+.34+"ShellLib|
00004eb0  22 2b bd 33 34 2b 22 20  22 2b 22 3c 41 70 70 42  |"+.34+" "+"<AppB|
00004ec0  75 69 6c 64 24 44 69 72  3e 2e 54 6d 70 46 69 6c  |uild$Dir>.TmpFil|
00004ed0  65 30 20 3c 41 70 70 42  75 69 6c 64 24 44 69 72  |e0 <AppBuild$Dir|
00004ee0  3e 2e 54 6d 70 46 69 6c  65 31 22 0d 01 f9 2b 20  |>.TmpFile1"...+ |
00004ef0  20 20 20 ff 28 22 52 65  6d 6f 76 65 20 3c 41 70  |   .("Remove <Ap|
00004f00  70 42 75 69 6c 64 24 44  69 72 3e 2e 54 6d 70 46  |pBuild$Dir>.TmpF|
00004f10  69 6c 65 30 22 29 0d 01  fa 43 20 20 20 20 ff 28  |ile0")...C    .(|
00004f20  22 52 65 6e 61 6d 65 20  3c 41 70 70 42 75 69 6c  |"Rename <AppBuil|
00004f30  64 24 44 69 72 3e 2e 54  6d 70 46 69 6c 65 31 20  |d$Dir>.TmpFile1 |
00004f40  3c 41 70 70 42 75 69 6c  64 24 44 69 72 3e 2e 54  |<AppBuild$Dir>.T|
00004f50  6d 70 46 69 6c 65 30 22  29 0d 01 fb 07 20 20 cd  |mpFile0")....  .|
00004f60  0d 01 fc 05 cd 0d 01 fd  2d ff 28 22 53 65 74 54  |........-.("SetT|
00004f70  79 70 65 20 3c 41 70 70  42 75 69 6c 64 24 44 69  |ype <AppBuild$Di|
00004f80  72 3e 2e 54 6d 70 46 69  6c 65 30 20 26 46 46 42  |r>.TmpFile0 &FFB|
00004f90  22 29 0d 01 fe 3c ff 28  22 43 6f 70 79 20 3c 41  |")...<.("Copy <A|
00004fa0  70 70 42 75 69 6c 64 24  44 69 72 3e 2e 54 6d 70  |ppBuild$Dir>.Tmp|
00004fb0  46 69 6c 65 30 20 22 2b  6f 75 74 70 75 74 5f 66  |File0 "+output_f|
00004fc0  69 6c 65 24 2b 22 20 7e  43 20 7e 56 22 29 0d 01  |ile$+" ~C ~V")..|
00004fd0  ff 27 ff 28 22 52 65 6d  6f 76 65 20 3c 41 70 70  |.'.("Remove <App|
00004fe0  42 75 69 6c 64 24 44 69  72 3e 2e 54 6d 70 46 69  |Build$Dir>.TmpFi|
00004ff0  6c 65 30 22 29 0d 02 00  27 ff 28 22 52 65 6d 6f  |le0")...'.("Remo|
00005000  76 65 20 3c 41 70 70 42  75 69 6c 64 24 44 69 72  |ve <AppBuild$Dir|
00005010  3e 2e 54 6d 70 46 69 6c  65 31 22 29 0d 02 01 05  |>.TmpFile1")....|
00005020  e1 0d 02 02 05 3a 0d 02  03 04 0d 02 04 4a f4 20  |.....:.......J. |
00005030  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00005040  3d 3d 3d 20 52 6f 75 74  69 6e 65 73 20 74 6f 20  |=== Routines to |
00005050  67 6f 20 69 6e 20 74 68  65 20 6c 69 62 72 61 72  |go in the librar|
00005060  79 20 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |y ==============|
00005070  3d 3d 3d 3d 0d 02 05 05  3a 0d 02 06 04 0d 02 07  |====....:.......|
00005080  04 0d 02 08 04 0d ff                              |.......|
00005087