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

:
� � �shell_Error
:

#ț "<EvntShell$Path>ShellLibRT"
:
ș "Hourglass_On"
:
(ș "Wimp_SlotSize",-1,-1 � progsize%
pagesize%=1<<10
freespace%=&8000+progsize%
�=freespace%+pagesize%
�=freespace%
:
9�shell_HeapManagerInit("<EvntShell$Path>",freespace%)
�shell_Init
4task%=�shell_WimpInit_I(200,"EvntShell Creator")
�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 --------------------
+:
,ș "Hourglass_Off"
-	� � �
.� � �shell_Error
/�
0+  �shell_Action(�shell_Poll_I(0,task%))
1� _closedown%
2:
35� �shell_FileExists("<Wimp$ScrapDir>.AppBuild") �
4/  �("Wipe <Wimp$ScrapDir>.AppBuild ~CFR~V")
5�
6�shell_Exit
7�
8:
9L� ======================================================================
::
;��app_init
<default_name$="NewApp"
=&FileName_Original$ = default_name$
>FileName_New$      = ""
?5� �shell_FileExists("<Wimp$ScrapDir>.AppBuild") �
@/  �("Wipe <Wimp$ScrapDir>.AppBuild ~CFR~V")
A�
B&�("CDir <Wimp$ScrapDir>.AppBuild")
C�SetUp_Menus
D�SetUp_Windows
E�SetUp_IconBar
FG�shell_InitHelpSystem(�shell_GetAppName+"Res:"+�shell_GetAppName,�)
G�
H:
I
JF� ===== Menu_SetUp routines ======================================
K
L� �SetUp_Menus
M� void%
N
OHMenuHandle_IconBar%=�shell_MenuNew(�shell_MessageNoArgs("AppBuild"))
PIMenuItem_Info%     =�shell_MenuAdd(0,�shell_MessageNoArgs("Info"),"")
QYMenuItem_Help%     =�shell_MenuAdd(0,�shell_MessageNoArgs("Help"),"_MenuSelect_Help")
RYvoid%              =�shell_MenuAdd(0,�shell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
SF�shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
T
U�
V:
W
XF� ===== Window_SetUp routines ====================================
Y
Z� �SetUp_Windows
[-�shell_CreateWindowStatic("mainw",mainw%)
\0�shell_IconPutData(mainw%,3,default_name$,0)
]C�shell_IconPutData(mainw%,5,�shell_MessageNoArgs("mwprompt"),0)
^B�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("Waiting"),0)
_8�shell_AttachClickSelect(mainw%,0,"_ClickSelect_OK")
`-�shell_AttachHelpTag(mainw%,-1,"mainwin")
a=�shell_AttachDataLoad(mainw%,-1,&2000,"_DataLoad_2000",�)
b:�shell_AttachDataSave(mainw%,2,100,&2000,3,"_do_save")
c�
d
eF� ===== IconBar_SetUp routines ===================================
f
g� �SetUp_IconBar
hnsicon=�shell_Iconbar(-1,"!"+�shell_GetAppName,�shell_MessageNoArgs("Ready"),120,MenuHandle_IconBar%,0,0,0)
i,�shell_AttachHelpTag(-1,sicon,"iconbar")
j=�shell_AttachClickSelect(-1,sicon,"_ClickSelect_IconBar")
k<�shell_AttachDataLoad(-1,sicon,&2000,"_DataLoad_2000",�)
l�
m
nF� ===== Dialog_PreOpen routines ==================================
o
pݤ_PreOpenInfo(wh%)
qA�shell_IconPutData(wh%,0,�shell_MessageNoArgs("progInfo0"),0)
rA�shell_IconPutData(wh%,1,�shell_MessageNoArgs("progInfo1"),0)
sA�shell_IconPutData(wh%,2,�shell_MessageNoArgs("progInfo2"),0)
tA�shell_IconPutData(wh%,3,�shell_MessageNoArgs("progInfo3"),0)
u=0
v:
w
xF� ===== Dialog_PostOpen routines =================================
y
zF� ===== Click_Select routines ====================================
{
|&� �_ClickSelect_IconBar(wh%,icon%)
}B�shell_IconPutData(mainw%,8,�shell_MessageNoArgs("Waiting"),0)
~#�shell_OpenWindowStatic(mainw%)
"�shell_CaretSetRight(mainw%,3)
�=0
�:
�!� �_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_StrongHlpIsAvailable �
�-  �shell_HelpWord(�shell_GetAppName+".$")
��
�9  �shell_MessageSendDataLoad(&FFF,"AppBuildRes:Help")
��
�=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$)
�nș "Wimp_StartTask","<AppBuild$Dir>.BSed "+t$+" @@@@@@@@@ "+old_file$+" <Wimp$ScrapDir>.AppBuild.TmpFile0"
�kș "Wimp_StartTask","<AppBuild$Dir>.BSed @@@@@@@@@ "+r$+" <Wimp$ScrapDir>.AppBuild.TmpFile0 "+new_file$
�1�("Remove <Wimp$ScrapDir>.AppBuild.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
�pș "Wimp_StartTask","<AppBuild$Dir>.MSed "+t$+" @@@@@@@@@ "+old_file$+" > <Wimp$ScrapDir>.AppBuild.TmpFile0"
�mș "Wimp_StartTask","<AppBuild$Dir>.MSed @@@@@@@@@ "+r$+" <Wimp$ScrapDir>.AppBuild.TmpFile0 > "+new_file$
�1�("Remove <Wimp$ScrapDir>.AppBuild.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_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("WriteSpr0"))
�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%,13) �
�C    � Supporting StrongHlp, don't REM out initialisation line..
�  �
�0    � Not supporting StrongHlp, REM it out..
�m    �Edit_BasicProg(RunImage$,RunImage$,�(&F2)+"shell_InitHelpSystem",�(&F4)+" PROCshell_InitHelpSystem")
�  �
�
�*  � �shell_IsIconSelected(mainw%,10) �
�    � create stand alone..
�%    �Copy_ShellMsg(FileName_New$)
�$    �Copy_Modules(FileName_New$)
�I    �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyHeapC"))
�K    �("COPY <EvntShell$Path>Heapcode "+FileName_New$+".heapcode ~C ~V")
�P    � �shell_IsIconSelected(mainw%,11) � lib$="ShellLibRT" � lib$="ShellLib"
�K    �("COPY <EvntShell$Path>"+lib$+" "+FileName_New$+"."+lib$+" ~C ~V")
�    �shell_EnsurePoll
�I    � edit new !Run file to load modules from application directory..
�t    �Edit_File(FileName_New$+".!Run",FileName_New$+".!Run","<EvntShell$Path>","<Wimp$ScrapDir>.AppBuild>.",&FEB)
�c    �Edit_File(FileName_New$+".!Run",FileName_New$+".!Run","Shell resources not found","",&FEB)
�F    �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("ProcRI"))
�/    �shell_Action(�shell_Poll_I(0,_U%!148))
�L    �Edit_BasicProg(RunImage$,RunImage$,"","<Wimp$ScrapDir>.AppBuild>.")

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


  �

!    � not a stand alone app..

    � Hilke

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

F    �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("REMmod"))

/    �("Remove "+FileName_New$+".Interface")

.    �("Remove "+FileName_New$+".MsgTrans")

.    �("Remove "+FileName_New$+".FontMenu")

	/    �("Remove "+FileName_New$+".MenuUtils")


G    �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("REMcode"))

/    �("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_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("EditRun"))

Y    �Edit_File(RunFile$,RunFile$,"RMLoad <Obey$Dir>.","RMLoad <EvntShell$Path>",&FEB)

F    �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("ProcRI"))

    �shell_EnsurePoll

M    �Edit_BasicProg(RunImage$,RunImage$,"<Obey$Dir>.","<EvntShell$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_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyShMess"))

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

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

)�

*@  �("COPY EvntShellRes:ShellMsgs "+dest$+".ShellMsgs ~C ~V")

+�

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

-�

.:

/� �Copy_Modules(dest$)

0E�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyFMMod"))

1?�("COPY <EvntShell$Path>FontMenu "+dest$+".FontMenu ~C ~V")

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

3

4E�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyIFMod"))

5A�("COPY <EvntShell$Path>Interface "+dest$+".Interface ~C ~V")

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

7

8E�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyMUMod"))

9A�("COPY <EvntShell$Path>MenuUtils "+dest$+".MenuUtils ~C ~V")

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

;

<E�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyMTMod"))

=?�("COPY <EvntShell$Path>MsgTrans "+dest$+".MsgTrans ~C ~V")

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

?�

@:

A� �Create_New(fname$)

B� path$,lib$,new_name$

C!new_name$=�shell_Leaf(fname$)

Dpath$=�shell_GetAppDir

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

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

G

HB�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("Create"))

I�("CDIR "+fname$)

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

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

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

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

N�

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

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

Q  �

R�

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

T

UE�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyChkSp"))

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

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

X

YD�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("WriteRun"))

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

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

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

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

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

_�

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

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

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

c�

d.  �edit_file(fname$+".!Run","xxxK","224K")

e.  �edit_file(fname$+".!Run","xxxK","224K")

f�

g

hE�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("WriteMess"))

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

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

kT  �("COPY <EvntShell$Path>Resources.ResFind "+fname$+".Resources.ResFind ~C ~V")

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

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

n�

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

p�

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

r

sE�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("WriteTemp"))

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

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

v

wE�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("WriteSpr0"))

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

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

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

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

|'�shell_HeapBlockReturn(spritearea%)

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

~

E�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("WriteSpr1"))

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

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

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

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

�'�shell_HeapBlockReturn(spritearea%)

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

�

�E�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("WriteSpr2"))

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

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

�

�E�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("WriteSpr3"))

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

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

�

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

�G  �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyHelpD"))

�*  � �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_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyIndex"))

�*  � �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%))

��

�

�E�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("WriteBoot"))

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

�

�D�shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyHelp"))

�(� �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_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("ProcRI"))

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

�

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

�

�  � create standalone..

�  

�  � copy shellmsgs file..

�H  �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyShMess"))

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

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

�  �

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

�  �

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

�  

�  � copy modules..

�G  �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyFMMod"))

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

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

�  

�G  �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyIFMod"))

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

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

�  

�G  �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyMUMod"))

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

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

�  

�G  �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyMTMod"))

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

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

�  

�G  �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyHeapC"))

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

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

�  

�E  �shell_IconPutDataNow(mainw%,8,�shell_MessageNoArgs("CopyLib"))

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

�B  �("COPY <EvntShell$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..

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

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

�

��

�

�.RunImage$ = fname$+"."+�shell_Leaf(fname$)

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

�9  � Supporting StrongHlp, leave initialisation line..

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

�<    � ResFind is supported as well, no change required..

�  �

�B    � Alter initialisation line to remove ResFind references..

�G    �Edit_BasicProg(RunImage$,RunImage$,�34+"Res:"+�34,�34+"."+�34)

�    �Edit_BasicProg(RunImage$,RunImage$,�34+"InitHelpSystem("+�&A4+"shell_GetAppName"+�34,�34+"InitHelpSystem("+�&A4+"shell_GetAppDir"+�34)

�  �

��

�.  � Not supporting StrongHlp, REM it out..

�{  �Edit_BasicProg(RunImage$,RunImage$,�34+�(&F2)+"shell_InitHelpSystem"+�34,�34+�(&F4)+" PROCshell_InitHelpSystem"+�34)

��

�

�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$+" > <Wimp$ScrapDir>.AppBuild.TmpFile"

�5�("SETTYPE <Wimp$ScrapDir>.AppBuild.TmpFile FEB")

�F�("COPY <Wimp$ScrapDir>.AppBuild.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$+" <Wimp$ScrapDir>.AppBuild.TmpFile0"
(� �shell_IsIconSelected(mainw%,10) �
�  ș "Wimp_StartTask","<AppBuild$Dir>.BSed "+�34+"<EvntShell$Path>"+�34+" "+�34+"<Obey$Dir>."+�34+" "+"<Wimp$ScrapDir>.AppBuild.TmpFile0 <Wimp$ScrapDir>.AppBuild.TmpFile1"
3  �("Remove <Wimp$ScrapDir>.AppBuild.TmpFile0")
U  �("Rename <Wimp$ScrapDir>.AppBuild.TmpFile1 <Wimp$ScrapDir>.AppBuild.TmpFile0")
�
(� �shell_IsIconSelected(mainw%,11) �
  �
�    ș "Wimp_StartTask","<AppBuild$Dir>.BSed "+�34+"ShellLibRT"+�34+" "+�34+"ShellLib"+�34+" "+"<Wimp$ScrapDir>.AppBuild.TmpFile0 <Wimp$ScrapDir>.AppBuild.TmpFile1"
5    �("Remove <Wimp$ScrapDir>.AppBuild.TmpFile0")
W    �("Rename <Wimp$ScrapDir>.AppBuild.TmpFile1 <Wimp$ScrapDir>.AppBuild.TmpFile0")
  �
�
 7�("SetType <Wimp$ScrapDir>.AppBuild.TmpFile0 &FFB")
!F�("Copy <Wimp$ScrapDir>.AppBuild.TmpFile0 "+output_file$+" ~C ~V")
"1�("Remove <Wimp$ScrapDir>.AppBuild.TmpFile0")
#1�("Remove <Wimp$ScrapDir>.AppBuild.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  2e 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 2c 31  |1990,1991,1992,1|
00000060  39 39 33 0d 00 05 19 f4  20 52 68 65 69 6e 70 66  |993..... Rheinpf|
00000070  61 6c 7a 73 74 72 61 73  73 65 20 32 0d 00 06 19  |alzstrasse 2....|
00000080  f4 20 20 20 20 38 35 30  34 39 20 49 6e 67 6f 6c  |.    85049 Ingol|
00000090  73 74 61 64 74 0d 00 07  19 f4 20 20 20 20 20 20  |stadt.....      |
000000a0  20 20 20 20 20 20 20 47  65 72 6d 61 6e 79 0d 00  |       Germany..|
000000b0  08 05 3a 0d 00 09 3e f4  20 54 68 69 73 20 70 72  |..:...>. This pr|
000000c0  6f 67 72 61 6d 20 61 6e  64 20 70 61 72 74 73 20  |ogram and parts |
000000d0  74 68 65 72 65 6f 66 20  6d 61 79 20 62 65 20 66  |thereof may be f|
000000e0  72 65 65 6c 79 20 64 69  73 74 72 69 62 75 74 65  |reely distribute|
000000f0  64 0d 00 0a 05 3a 0d 00  0b 14 ee 20 85 20 f2 73  |d....:..... . .s|
00000100  68 65 6c 6c 5f 45 72 72  6f 72 0d 00 0c 05 3a 0d  |hell_Error....:.|
00000110  00 0d 23 c8 9b 20 22 3c  45 76 6e 74 53 68 65 6c  |..#.. "<EvntShel|
00000120  6c 24 50 61 74 68 3e 53  68 65 6c 6c 4c 69 62 52  |l$Path>ShellLibR|
00000130  54 22 0d 00 0e 05 3a 0d  00 0f 15 c8 99 20 22 48  |T"....:...... "H|
00000140  6f 75 72 67 6c 61 73 73  5f 4f 6e 22 0d 00 10 05  |ourglass_On"....|
00000150  3a 0d 00 11 28 c8 99 20  22 57 69 6d 70 5f 53 6c  |:...(.. "Wimp_Sl|
00000160  6f 74 53 69 7a 65 22 2c  2d 31 2c 2d 31 20 b8 20  |otSize",-1,-1 . |
00000170  70 72 6f 67 73 69 7a 65  25 0d 00 12 13 70 61 67  |progsize%....pag|
00000180  65 73 69 7a 65 25 3d 31  3c 3c 31 30 0d 00 13 1e  |esize%=1<<10....|
00000190  66 72 65 65 73 70 61 63  65 25 3d 26 38 30 30 30  |freespace%=&8000|
000001a0  2b 70 72 6f 67 73 69 7a  65 25 0d 00 14 1a e0 3d  |+progsize%.....=|
000001b0  66 72 65 65 73 70 61 63  65 25 2b 70 61 67 65 73  |freespace%+pages|
000001c0  69 7a 65 25 0d 00 15 10  d3 3d 66 72 65 65 73 70  |ize%.....=freesp|
000001d0  61 63 65 25 0d 00 16 05  3a 0d 00 17 39 f2 73 68  |ace%....:...9.sh|
000001e0  65 6c 6c 5f 48 65 61 70  4d 61 6e 61 67 65 72 49  |ell_HeapManagerI|
000001f0  6e 69 74 28 22 3c 45 76  6e 74 53 68 65 6c 6c 24  |nit("<EvntShell$|
00000200  50 61 74 68 3e 22 2c 66  72 65 65 73 70 61 63 65  |Path>",freespace|
00000210  25 29 0d 00 18 0f f2 73  68 65 6c 6c 5f 49 6e 69  |%).....shell_Ini|
00000220  74 0d 00 19 34 74 61 73  6b 25 3d a4 73 68 65 6c  |t...4task%=.shel|
00000230  6c 5f 57 69 6d 70 49 6e  69 74 5f 49 28 32 30 30  |l_WimpInit_I(200|
00000240  2c 22 45 76 6e 74 53 68  65 6c 6c 20 43 72 65 61  |,"EvntShell Crea|
00000250  74 6f 72 22 29 0d 00 1a  18 f2 73 68 65 6c 6c 5f  |tor").....shell_|
00000260  54 72 61 63 65 49 6e 69  74 28 22 22 29 0d 00 1b  |TraceInit("")...|
00000270  17 f4 20 50 52 4f 43 73  68 65 6c 6c 5f 54 72 61  |.. PROCshell_Tra|
00000280  63 65 4f 6e 0d 00 1c 18  f2 73 68 65 6c 6c 5f 52  |ceOn.....shell_R|
00000290  65 73 6f 75 72 63 65 73  49 6e 69 74 0d 00 1d 0d  |esourcesInit....|
000002a0  f2 61 70 70 5f 69 6e 69  74 0d 00 1e 05 3a 0d 00  |.app_init....:..|
000002b0  1f 4c f4 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.L. ------------|
000002c0  2d 2d 2d 2d 2d 2d 2d 2d  20 49 6e 69 74 69 61 6c  |-------- Initial|
000002d0  69 73 65 20 56 61 72 69  61 62 6c 65 73 20 2d 2d  |ise Variables --|
000002e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000002f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 00 20 05 3a 0d  |----------.. .:.|
00000300  00 21 47 5f 63 6c 6f 73  65 64 6f 77 6e 25 20 20  |.!G_closedown%  |
00000310  20 20 20 3d a3 20 3a f4  20 53 65 74 20 74 68 69  |   =. :. Set thi|
00000320  73 20 74 6f 20 54 52 55  45 20 77 68 65 6e 20 79  |s to TRUE when y|
00000330  6f 75 20 77 61 6e 74 20  74 68 65 20 70 72 6f 67  |ou want the prog|
00000340  72 61 6d 20 74 6f 0d 00  22 21 20 20 20 20 20 20  |ram to.."!      |
00000350  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000360  20 3a f4 20 65 6e 64 0d  00 23 44 63 68 61 6e 67  | :. end..#Dchang|
00000370  65 64 25 20 20 20 20 20  20 20 20 3d a3 20 3a f4  |ed%        =. :.|
00000380  20 55 73 65 64 20 74 6f  20 6b 65 65 70 20 74 72  | Used to keep tr|
00000390  61 63 6b 20 6f 66 20 77  68 65 74 68 65 72 20 74  |ack of whether t|
000003a0  68 65 20 64 61 74 61 20  68 61 73 0d 00 24 4b 20  |he data has..$K |
000003b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003c0  20 20 20 20 20 20 3a f4  20 62 65 65 6e 20 63 68  |      :. been ch|
000003d0  61 6e 67 65 64 2e 20 43  61 6c 6c 20 50 52 4f 43  |anged. Call PROC|
000003e0  66 69 6c 65 5f 63 68 61  6e 67 65 64 28 29 20 77  |file_changed() w|
000003f0  68 65 6e 20 69 74 0d 00  25 47 20 20 20 20 20 20  |hen it..%G      |
00000400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000410  20 3a f4 20 68 61 73 2e  20 42 75 74 20 69 66 20  | :. has. But if |
00000420  74 68 65 20 70 72 6f 67  72 61 6d 20 64 6f 65 73  |the program does|
00000430  20 6e 6f 74 20 75 73 65  20 64 61 74 61 0d 00 26  | not use data..&|
00000440  48 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |H               |
00000450  20 20 20 20 20 20 20 20  3a f4 20 66 69 6c 65 73  |        :. files|
00000460  20 6a 75 73 74 20 69 67  6e 6f 72 65 20 74 68 69  | just ignore thi|
00000470  73 20 76 61 72 69 61 62  6c 65 20 62 75 74 20 64  |s variable but d|
00000480  6f 20 6e 6f 74 0d 00 27  47 20 20 20 20 20 20 20  |o not..'G       |
00000490  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004a0  3a f4 20 64 65 6c 65 74  65 20 69 74 20 61 73 20  |:. delete it as |
000004b0  74 68 65 20 70 72 6f 67  72 61 6d 20 63 68 65 63  |the program chec|
000004c0  6b 73 20 69 74 20 62 65  66 6f 72 65 0d 00 28 26  |ks it before..(&|
000004d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000004e0  20 20 20 20 20 20 20 3a  f4 20 65 78 69 74 69 6e  |       :. exitin|
000004f0  67 21 0d 00 29 05 3a 0d  00 2a 4c f4 20 2d 2d 2d  |g!..).:..*L. ---|
00000500  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000510  2d 20 4d 69 73 63 65 6c  6c 65 61 6e 6f 75 73 20  |- Miscelleanous |
00000520  49 6e 69 74 69 61 6c 69  73 61 74 69 6f 6e 20 2d  |Initialisation -|
00000530  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000540  2d 2d 2d 0d 00 2b 05 3a  0d 00 2c 16 c8 99 20 22  |---..+.:..,... "|
00000550  48 6f 75 72 67 6c 61 73  73 5f 4f 66 66 22 0d 00  |Hourglass_Off"..|
00000560  2d 09 ee 20 85 20 87 0d  00 2e 14 ee 20 85 20 f2  |-.. . ...... . .|
00000570  73 68 65 6c 6c 5f 45 72  72 6f 72 0d 00 2f 05 f5  |shell_Error../..|
00000580  0d 00 30 2b 20 20 f2 73  68 65 6c 6c 5f 41 63 74  |..0+  .shell_Act|
00000590  69 6f 6e 28 a4 73 68 65  6c 6c 5f 50 6f 6c 6c 5f  |ion(.shell_Poll_|
000005a0  49 28 30 2c 74 61 73 6b  25 29 29 0d 00 31 11 fd  |I(0,task%))..1..|
000005b0  20 5f 63 6c 6f 73 65 64  6f 77 6e 25 0d 00 32 05  | _closedown%..2.|
000005c0  3a 0d 00 33 35 e7 20 a4  73 68 65 6c 6c 5f 46 69  |:..35. .shell_Fi|
000005d0  6c 65 45 78 69 73 74 73  28 22 3c 57 69 6d 70 24  |leExists("<Wimp$|
000005e0  53 63 72 61 70 44 69 72  3e 2e 41 70 70 42 75 69  |ScrapDir>.AppBui|
000005f0  6c 64 22 29 20 8c 0d 00  34 2f 20 20 ff 28 22 57  |ld") ...4/  .("W|
00000600  69 70 65 20 3c 57 69 6d  70 24 53 63 72 61 70 44  |ipe <Wimp$ScrapD|
00000610  69 72 3e 2e 41 70 70 42  75 69 6c 64 20 7e 43 46  |ir>.AppBuild ~CF|
00000620  52 7e 56 22 29 0d 00 35  05 cd 0d 00 36 0f f2 73  |R~V")..5....6..s|
00000630  68 65 6c 6c 5f 45 78 69  74 0d 00 37 05 e0 0d 00  |hell_Exit..7....|
00000640  38 05 3a 0d 00 39 4c f4  20 3d 3d 3d 3d 3d 3d 3d  |8.:..9L. =======|
00000650  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000680  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 0d  |===============.|
00000690  00 3a 05 3a 0d 00 3b 0e  dd f2 61 70 70 5f 69 6e  |.:.:..;...app_in|
000006a0  69 74 0d 00 3c 1a 64 65  66 61 75 6c 74 5f 6e 61  |it..<.default_na|
000006b0  6d 65 24 3d 22 4e 65 77  41 70 70 22 0d 00 3d 26  |me$="NewApp"..=&|
000006c0  46 69 6c 65 4e 61 6d 65  5f 4f 72 69 67 69 6e 61  |FileName_Origina|
000006d0  6c 24 20 3d 20 64 65 66  61 75 6c 74 5f 6e 61 6d  |l$ = default_nam|
000006e0  65 24 0d 00 3e 1b 46 69  6c 65 4e 61 6d 65 5f 4e  |e$..>.FileName_N|
000006f0  65 77 24 20 20 20 20 20  20 3d 20 22 22 0d 00 3f  |ew$      = ""..?|
00000700  35 e7 20 a4 73 68 65 6c  6c 5f 46 69 6c 65 45 78  |5. .shell_FileEx|
00000710  69 73 74 73 28 22 3c 57  69 6d 70 24 53 63 72 61  |ists("<Wimp$Scra|
00000720  70 44 69 72 3e 2e 41 70  70 42 75 69 6c 64 22 29  |pDir>.AppBuild")|
00000730  20 8c 0d 00 40 2f 20 20  ff 28 22 57 69 70 65 20  | ...@/  .("Wipe |
00000740  3c 57 69 6d 70 24 53 63  72 61 70 44 69 72 3e 2e  |<Wimp$ScrapDir>.|
00000750  41 70 70 42 75 69 6c 64  20 7e 43 46 52 7e 56 22  |AppBuild ~CFR~V"|
00000760  29 0d 00 41 05 cd 0d 00  42 26 ff 28 22 43 44 69  |)..A....B&.("CDi|
00000770  72 20 3c 57 69 6d 70 24  53 63 72 61 70 44 69 72  |r <Wimp$ScrapDir|
00000780  3e 2e 41 70 70 42 75 69  6c 64 22 29 0d 00 43 10  |>.AppBuild")..C.|
00000790  f2 53 65 74 55 70 5f 4d  65 6e 75 73 0d 00 44 12  |.SetUp_Menus..D.|
000007a0  f2 53 65 74 55 70 5f 57  69 6e 64 6f 77 73 0d 00  |.SetUp_Windows..|
000007b0  45 12 f2 53 65 74 55 70  5f 49 63 6f 6e 42 61 72  |E..SetUp_IconBar|
000007c0  0d 00 46 47 f2 73 68 65  6c 6c 5f 49 6e 69 74 48  |..FG.shell_InitH|
000007d0  65 6c 70 53 79 73 74 65  6d 28 a4 73 68 65 6c 6c  |elpSystem(.shell|
000007e0  5f 47 65 74 41 70 70 4e  61 6d 65 2b 22 52 65 73  |_GetAppName+"Res|
000007f0  3a 22 2b a4 73 68 65 6c  6c 5f 47 65 74 41 70 70  |:"+.shell_GetApp|
00000800  4e 61 6d 65 2c b9 29 0d  00 47 05 e1 0d 00 48 05  |Name,.)..G....H.|
00000810  3a 0d 00 49 04 0d 00 4a  46 f4 20 3d 3d 3d 3d 3d  |:..I...JF. =====|
00000820  20 4d 65 6e 75 5f 53 65  74 55 70 20 72 6f 75 74  | Menu_SetUp rout|
00000830  69 6e 65 73 20 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |ines ===========|
00000840  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000850  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 0d 00 4b 04 0d  |===========..K..|
00000860  00 4c 12 dd 20 f2 53 65  74 55 70 5f 4d 65 6e 75  |.L.. .SetUp_Menu|
00000870  73 0d 00 4d 0b ea 20 76  6f 69 64 25 0d 00 4e 04  |s..M.. void%..N.|
00000880  0d 00 4f 48 4d 65 6e 75  48 61 6e 64 6c 65 5f 49  |..OHMenuHandle_I|
00000890  63 6f 6e 42 61 72 25 3d  a4 73 68 65 6c 6c 5f 4d  |conBar%=.shell_M|
000008a0  65 6e 75 4e 65 77 28 a4  73 68 65 6c 6c 5f 4d 65  |enuNew(.shell_Me|
000008b0  73 73 61 67 65 4e 6f 41  72 67 73 28 22 41 70 70  |ssageNoArgs("App|
000008c0  42 75 69 6c 64 22 29 29  0d 00 50 49 4d 65 6e 75  |Build"))..PIMenu|
000008d0  49 74 65 6d 5f 49 6e 66  6f 25 20 20 20 20 20 3d  |Item_Info%     =|
000008e0  a4 73 68 65 6c 6c 5f 4d  65 6e 75 41 64 64 28 30  |.shell_MenuAdd(0|
000008f0  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
00000900  6f 41 72 67 73 28 22 49  6e 66 6f 22 29 2c 22 22  |oArgs("Info"),""|
00000910  29 0d 00 51 59 4d 65 6e  75 49 74 65 6d 5f 48 65  |)..QYMenuItem_He|
00000920  6c 70 25 20 20 20 20 20  3d a4 73 68 65 6c 6c 5f  |lp%     =.shell_|
00000930  4d 65 6e 75 41 64 64 28  30 2c a4 73 68 65 6c 6c  |MenuAdd(0,.shell|
00000940  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00000950  48 65 6c 70 22 29 2c 22  5f 4d 65 6e 75 53 65 6c  |Help"),"_MenuSel|
00000960  65 63 74 5f 48 65 6c 70  22 29 0d 00 52 59 76 6f  |ect_Help")..RYvo|
00000970  69 64 25 20 20 20 20 20  20 20 20 20 20 20 20 20  |id%             |
00000980  20 3d a4 73 68 65 6c 6c  5f 4d 65 6e 75 41 64 64  | =.shell_MenuAdd|
00000990  28 30 2c a4 73 68 65 6c  6c 5f 4d 65 73 73 61 67  |(0,.shell_Messag|
000009a0  65 4e 6f 41 72 67 73 28  22 51 75 69 74 22 29 2c  |eNoArgs("Quit"),|
000009b0  22 5f 4d 65 6e 75 53 65  6c 65 63 74 5f 51 75 69  |"_MenuSelect_Qui|
000009c0  74 22 29 0d 00 53 46 f2  73 68 65 6c 6c 5f 41 74  |t")..SF.shell_At|
000009d0  74 61 63 68 4d 65 6e 75  44 42 6f 78 28 4d 65 6e  |tachMenuDBox(Men|
000009e0  75 49 74 65 6d 5f 49 6e  66 6f 25 2c 22 70 72 6f  |uItem_Info%,"pro|
000009f0  67 49 6e 66 6f 22 2c 22  5f 50 72 65 4f 70 65 6e  |gInfo","_PreOpen|
00000a00  49 6e 66 6f 22 2c 22 22  29 0d 00 54 04 0d 00 55  |Info","")..T...U|
00000a10  05 e1 0d 00 56 05 3a 0d  00 57 04 0d 00 58 46 f4  |....V.:..W...XF.|
00000a20  20 3d 3d 3d 3d 3d 20 57  69 6e 64 6f 77 5f 53 65  | ===== Window_Se|
00000a30  74 55 70 20 72 6f 75 74  69 6e 65 73 20 3d 3d 3d  |tUp routines ===|
00000a40  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000a60  3d 0d 00 59 04 0d 00 5a  14 dd 20 f2 53 65 74 55  |=..Y...Z.. .SetU|
00000a70  70 5f 57 69 6e 64 6f 77  73 0d 00 5b 2d f2 73 68  |p_Windows..[-.sh|
00000a80  65 6c 6c 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |ell_CreateWindow|
00000a90  53 74 61 74 69 63 28 22  6d 61 69 6e 77 22 2c 6d  |Static("mainw",m|
00000aa0  61 69 6e 77 25 29 0d 00  5c 30 f2 73 68 65 6c 6c  |ainw%)..\0.shell|
00000ab0  5f 49 63 6f 6e 50 75 74  44 61 74 61 28 6d 61 69  |_IconPutData(mai|
00000ac0  6e 77 25 2c 33 2c 64 65  66 61 75 6c 74 5f 6e 61  |nw%,3,default_na|
00000ad0  6d 65 24 2c 30 29 0d 00  5d 43 f2 73 68 65 6c 6c  |me$,0)..]C.shell|
00000ae0  5f 49 63 6f 6e 50 75 74  44 61 74 61 28 6d 61 69  |_IconPutData(mai|
00000af0  6e 77 25 2c 35 2c a4 73  68 65 6c 6c 5f 4d 65 73  |nw%,5,.shell_Mes|
00000b00  73 61 67 65 4e 6f 41 72  67 73 28 22 6d 77 70 72  |sageNoArgs("mwpr|
00000b10  6f 6d 70 74 22 29 2c 30  29 0d 00 5e 42 f2 73 68  |ompt"),0)..^B.sh|
00000b20  65 6c 6c 5f 49 63 6f 6e  50 75 74 44 61 74 61 28  |ell_IconPutData(|
00000b30  6d 61 69 6e 77 25 2c 38  2c a4 73 68 65 6c 6c 5f  |mainw%,8,.shell_|
00000b40  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 57  |MessageNoArgs("W|
00000b50  61 69 74 69 6e 67 22 29  2c 30 29 0d 00 5f 38 f2  |aiting"),0).._8.|
00000b60  73 68 65 6c 6c 5f 41 74  74 61 63 68 43 6c 69 63  |shell_AttachClic|
00000b70  6b 53 65 6c 65 63 74 28  6d 61 69 6e 77 25 2c 30  |kSelect(mainw%,0|
00000b80  2c 22 5f 43 6c 69 63 6b  53 65 6c 65 63 74 5f 4f  |,"_ClickSelect_O|
00000b90  4b 22 29 0d 00 60 2d f2  73 68 65 6c 6c 5f 41 74  |K")..`-.shell_At|
00000ba0  74 61 63 68 48 65 6c 70  54 61 67 28 6d 61 69 6e  |tachHelpTag(main|
00000bb0  77 25 2c 2d 31 2c 22 6d  61 69 6e 77 69 6e 22 29  |w%,-1,"mainwin")|
00000bc0  0d 00 61 3d f2 73 68 65  6c 6c 5f 41 74 74 61 63  |..a=.shell_Attac|
00000bd0  68 44 61 74 61 4c 6f 61  64 28 6d 61 69 6e 77 25  |hDataLoad(mainw%|
00000be0  2c 2d 31 2c 26 32 30 30  30 2c 22 5f 44 61 74 61  |,-1,&2000,"_Data|
00000bf0  4c 6f 61 64 5f 32 30 30  30 22 2c b9 29 0d 00 62  |Load_2000",.)..b|
00000c00  3a f2 73 68 65 6c 6c 5f  41 74 74 61 63 68 44 61  |:.shell_AttachDa|
00000c10  74 61 53 61 76 65 28 6d  61 69 6e 77 25 2c 32 2c  |taSave(mainw%,2,|
00000c20  31 30 30 2c 26 32 30 30  30 2c 33 2c 22 5f 64 6f  |100,&2000,3,"_do|
00000c30  5f 73 61 76 65 22 29 0d  00 63 05 e1 0d 00 64 04  |_save")..c....d.|
00000c40  0d 00 65 46 f4 20 3d 3d  3d 3d 3d 20 49 63 6f 6e  |..eF. ===== Icon|
00000c50  42 61 72 5f 53 65 74 55  70 20 72 6f 75 74 69 6e  |Bar_SetUp routin|
00000c60  65 73 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |es =============|
00000c70  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000c80  3d 3d 3d 3d 3d 3d 0d 00  66 04 0d 00 67 14 dd 20  |======..f...g.. |
00000c90  f2 53 65 74 55 70 5f 49  63 6f 6e 42 61 72 0d 00  |.SetUp_IconBar..|
00000ca0  68 6e 73 69 63 6f 6e 3d  a4 73 68 65 6c 6c 5f 49  |hnsicon=.shell_I|
00000cb0  63 6f 6e 62 61 72 28 2d  31 2c 22 21 22 2b a4 73  |conbar(-1,"!"+.s|
00000cc0  68 65 6c 6c 5f 47 65 74  41 70 70 4e 61 6d 65 2c  |hell_GetAppName,|
00000cd0  a4 73 68 65 6c 6c 5f 4d  65 73 73 61 67 65 4e 6f  |.shell_MessageNo|
00000ce0  41 72 67 73 28 22 52 65  61 64 79 22 29 2c 31 32  |Args("Ready"),12|
00000cf0  30 2c 4d 65 6e 75 48 61  6e 64 6c 65 5f 49 63 6f  |0,MenuHandle_Ico|
00000d00  6e 42 61 72 25 2c 30 2c  30 2c 30 29 0d 00 69 2c  |nBar%,0,0,0)..i,|
00000d10  f2 73 68 65 6c 6c 5f 41  74 74 61 63 68 48 65 6c  |.shell_AttachHel|
00000d20  70 54 61 67 28 2d 31 2c  73 69 63 6f 6e 2c 22 69  |pTag(-1,sicon,"i|
00000d30  63 6f 6e 62 61 72 22 29  0d 00 6a 3d f2 73 68 65  |conbar")..j=.she|
00000d40  6c 6c 5f 41 74 74 61 63  68 43 6c 69 63 6b 53 65  |ll_AttachClickSe|
00000d50  6c 65 63 74 28 2d 31 2c  73 69 63 6f 6e 2c 22 5f  |lect(-1,sicon,"_|
00000d60  43 6c 69 63 6b 53 65 6c  65 63 74 5f 49 63 6f 6e  |ClickSelect_Icon|
00000d70  42 61 72 22 29 0d 00 6b  3c f2 73 68 65 6c 6c 5f  |Bar")..k<.shell_|
00000d80  41 74 74 61 63 68 44 61  74 61 4c 6f 61 64 28 2d  |AttachDataLoad(-|
00000d90  31 2c 73 69 63 6f 6e 2c  26 32 30 30 30 2c 22 5f  |1,sicon,&2000,"_|
00000da0  44 61 74 61 4c 6f 61 64  5f 32 30 30 30 22 2c b9  |DataLoad_2000",.|
00000db0  29 0d 00 6c 05 e1 0d 00  6d 04 0d 00 6e 46 f4 20  |)..l....m...nF. |
00000dc0  3d 3d 3d 3d 3d 20 44 69  61 6c 6f 67 5f 50 72 65  |===== Dialog_Pre|
00000dd0  4f 70 65 6e 20 72 6f 75  74 69 6e 65 73 20 3d 3d  |Open routines ==|
00000de0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00000e00  0d 00 6f 04 0d 00 70 17  dd a4 5f 50 72 65 4f 70  |..o...p..._PreOp|
00000e10  65 6e 49 6e 66 6f 28 77  68 25 29 0d 00 71 41 f2  |enInfo(wh%)..qA.|
00000e20  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
00000e30  61 28 77 68 25 2c 30 2c  a4 73 68 65 6c 6c 5f 4d  |a(wh%,0,.shell_M|
00000e40  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 70 72  |essageNoArgs("pr|
00000e50  6f 67 49 6e 66 6f 30 22  29 2c 30 29 0d 00 72 41  |ogInfo0"),0)..rA|
00000e60  f2 73 68 65 6c 6c 5f 49  63 6f 6e 50 75 74 44 61  |.shell_IconPutDa|
00000e70  74 61 28 77 68 25 2c 31  2c a4 73 68 65 6c 6c 5f  |ta(wh%,1,.shell_|
00000e80  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 70  |MessageNoArgs("p|
00000e90  72 6f 67 49 6e 66 6f 31  22 29 2c 30 29 0d 00 73  |rogInfo1"),0)..s|
00000ea0  41 f2 73 68 65 6c 6c 5f  49 63 6f 6e 50 75 74 44  |A.shell_IconPutD|
00000eb0  61 74 61 28 77 68 25 2c  32 2c a4 73 68 65 6c 6c  |ata(wh%,2,.shell|
00000ec0  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00000ed0  70 72 6f 67 49 6e 66 6f  32 22 29 2c 30 29 0d 00  |progInfo2"),0)..|
00000ee0  74 41 f2 73 68 65 6c 6c  5f 49 63 6f 6e 50 75 74  |tA.shell_IconPut|
00000ef0  44 61 74 61 28 77 68 25  2c 33 2c a4 73 68 65 6c  |Data(wh%,3,.shel|
00000f00  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
00000f10  22 70 72 6f 67 49 6e 66  6f 33 22 29 2c 30 29 0d  |"progInfo3"),0).|
00000f20  00 75 06 3d 30 0d 00 76  05 3a 0d 00 77 04 0d 00  |.u.=0..v.:..w...|
00000f30  78 46 f4 20 3d 3d 3d 3d  3d 20 44 69 61 6c 6f 67  |xF. ===== Dialog|
00000f40  5f 50 6f 73 74 4f 70 65  6e 20 72 6f 75 74 69 6e  |_PostOpen routin|
00000f50  65 73 20 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |es =============|
00000f60  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000f70  3d 3d 3d 3d 0d 00 79 04  0d 00 7a 46 f4 20 3d 3d  |====..y...zF. ==|
00000f80  3d 3d 3d 20 43 6c 69 63  6b 5f 53 65 6c 65 63 74  |=== Click_Select|
00000f90  20 72 6f 75 74 69 6e 65  73 20 3d 3d 3d 3d 3d 3d  | routines ======|
00000fa0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000fb0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 0d 00  |==============..|
00000fc0  7b 04 0d 00 7c 26 dd 20  a4 5f 43 6c 69 63 6b 53  |{...|&. ._ClickS|
00000fd0  65 6c 65 63 74 5f 49 63  6f 6e 42 61 72 28 77 68  |elect_IconBar(wh|
00000fe0  25 2c 69 63 6f 6e 25 29  0d 00 7d 42 f2 73 68 65  |%,icon%)..}B.she|
00000ff0  6c 6c 5f 49 63 6f 6e 50  75 74 44 61 74 61 28 6d  |ll_IconPutData(m|
00001000  61 69 6e 77 25 2c 38 2c  a4 73 68 65 6c 6c 5f 4d  |ainw%,8,.shell_M|
00001010  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 57 61  |essageNoArgs("Wa|
00001020  69 74 69 6e 67 22 29 2c  30 29 0d 00 7e 23 f2 73  |iting"),0)..~#.s|
00001030  68 65 6c 6c 5f 4f 70 65  6e 57 69 6e 64 6f 77 53  |hell_OpenWindowS|
00001040  74 61 74 69 63 28 6d 61  69 6e 77 25 29 0d 00 7f  |tatic(mainw%)...|
00001050  22 f2 73 68 65 6c 6c 5f  43 61 72 65 74 53 65 74  |".shell_CaretSet|
00001060  52 69 67 68 74 28 6d 61  69 6e 77 25 2c 33 29 0d  |Right(mainw%,3).|
00001070  00 80 06 3d 30 0d 00 81  05 3a 0d 00 82 21 dd 20  |...=0....:...!. |
00001080  a4 5f 43 6c 69 63 6b 53  65 6c 65 63 74 5f 4f 4b  |._ClickSelect_OK|
00001090  28 77 68 25 2c 69 63 6f  6e 25 29 0d 00 83 0b ea  |(wh%,icon%).....|
000010a0  20 76 6f 69 64 25 0d 00  84 31 76 6f 69 64 25 3d  | void%...1void%=|
000010b0  a4 5f 64 6f 5f 73 61 76  65 28 a4 73 68 65 6c 6c  |._do_save(.shell|
000010c0  5f 49 63 6f 6e 47 65 74  44 61 74 61 28 6d 61 69  |_IconGetData(mai|
000010d0  6e 77 25 2c 33 29 29 0d  00 85 06 3d 30 0d 00 86  |nw%,3))....=0...|
000010e0  05 3a 0d 00 87 04 0d 00  88 46 f4 20 3d 3d 3d 3d  |.:.......F. ====|
000010f0  3d 20 43 6c 69 63 6b 5f  41 64 6a 75 73 74 20 72  |= Click_Adjust r|
00001100  6f 75 74 69 6e 65 73 20  3d 3d 3d 3d 3d 3d 3d 3d  |outines ========|
00001110  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001120  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 0d 00 89 04  |============....|
00001130  0d 00 8a 46 f4 20 3d 3d  3d 3d 3d 20 4d 65 6e 75  |...F. ===== Menu|
00001140  5f 53 65 6c 65 63 74 20  72 6f 75 74 69 6e 65 73  |_Select routines|
00001150  20 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  | ===============|
00001160  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001170  3d 3d 3d 3d 3d 3d 0d 00  8b 04 0d 00 8c 1d dd 20  |======......... |
00001180  a4 5f 4d 65 6e 75 53 65  6c 65 63 74 5f 48 65 6c  |._MenuSelect_Hel|
00001190  70 28 62 6c 6b 25 29 0d  00 8d 23 e7 20 a4 73 68  |p(blk%)...#. .sh|
000011a0  65 6c 6c 5f 53 74 72 6f  6e 67 48 6c 70 49 73 41  |ell_StrongHlpIsA|
000011b0  76 61 69 6c 61 62 6c 65  20 8c 0d 00 8e 2d 20 20  |vailable ....-  |
000011c0  f2 73 68 65 6c 6c 5f 48  65 6c 70 57 6f 72 64 28  |.shell_HelpWord(|
000011d0  a4 73 68 65 6c 6c 5f 47  65 74 41 70 70 4e 61 6d  |.shell_GetAppNam|
000011e0  65 2b 22 2e 24 22 29 0d  00 8f 05 cc 0d 00 90 39  |e+".$")........9|
000011f0  20 20 f2 73 68 65 6c 6c  5f 4d 65 73 73 61 67 65  |  .shell_Message|
00001200  53 65 6e 64 44 61 74 61  4c 6f 61 64 28 26 46 46  |SendDataLoad(&FF|
00001210  46 2c 22 41 70 70 42 75  69 6c 64 52 65 73 3a 48  |F,"AppBuildRes:H|
00001220  65 6c 70 22 29 0d 00 91  05 cd 0d 00 92 06 3d 30  |elp").........=0|
00001230  0d 00 93 05 3a 0d 00 94  1d dd 20 a4 5f 4d 65 6e  |....:..... ._Men|
00001240  75 53 65 6c 65 63 74 5f  51 75 69 74 28 62 6c 6b  |uSelect_Quit(blk|
00001250  25 29 0d 00 95 11 5f 63  6c 6f 73 65 64 6f 77 6e  |%)...._closedown|
00001260  25 3d b9 0d 00 96 06 3d  30 0d 00 97 05 3a 0d 00  |%=.....=0....:..|
00001270  98 04 0d 00 99 46 f4 20  3d 3d 3d 3d 3d 20 4d 65  |.....F. ===== Me|
00001280  6e 75 5f 57 61 72 6e 69  6e 67 20 72 6f 75 74 69  |nu_Warning routi|
00001290  6e 65 73 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |nes ============|
000012a0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000012b0  3d 3d 3d 3d 3d 3d 3d 3d  0d 00 9a 04 0d 00 9b 46  |========.......F|
000012c0  f4 20 3d 3d 3d 3d 3d 20  44 61 74 61 5f 4c 6f 61  |. ===== Data_Loa|
000012d0  64 20 72 6f 75 74 69 6e  65 73 20 3d 3d 3d 3d 3d  |d routines =====|
000012e0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
*
00001300  3d 3d 0d 00 9c 04 0d 00  9d 2e dd 20 a4 5f 44 61  |==......... ._Da|
00001310  74 61 4c 6f 61 64 5f 32  30 30 30 28 61 64 64 72  |taLoad_2000(addr|
00001320  25 2c 74 79 70 65 25 2c  66 69 6c 65 24 2c 73 69  |%,type%,file$,si|
00001330  7a 65 25 29 0d 00 9e 0b  ea 20 76 6f 69 64 25 0d  |ze%)..... void%.|
00001340  00 9f 31 f2 73 68 65 6c  6c 5f 49 63 6f 6e 53 65  |..1.shell_IconSe|
00001350  74 52 69 67 68 74 4a 75  73 74 28 6d 61 69 6e 77  |tRightJust(mainw|
00001360  25 2c 33 2c 28 a9 66 69  6c 65 24 3e 31 30 29 29  |%,3,(.file$>10))|
00001370  0d 00 a0 28 f2 73 68 65  6c 6c 5f 49 63 6f 6e 50  |...(.shell_IconP|
00001380  75 74 44 61 74 61 28 6d  61 69 6e 77 25 2c 33 2c  |utData(mainw%,3,|
00001390  66 69 6c 65 24 2c b9 29  0d 00 a1 1c 46 69 6c 65  |file$,.)....File|
000013a0  4e 61 6d 65 5f 4f 72 69  67 69 6e 61 6c 24 3d 66  |Name_Original$=f|
000013b0  69 6c 65 24 0d 00 a2 23  f2 73 68 65 6c 6c 5f 4f  |ile$...#.shell_O|
000013c0  70 65 6e 57 69 6e 64 6f  77 53 74 61 74 69 63 28  |penWindowStatic(|
000013d0  6d 61 69 6e 77 25 29 0d  00 a3 22 f2 73 68 65 6c  |mainw%)...".shel|
000013e0  6c 5f 43 61 72 65 74 53  65 74 52 69 67 68 74 28  |l_CaretSetRight(|
000013f0  6d 61 69 6e 77 25 2c 33  29 0d 00 a4 06 3d 30 0d  |mainw%,3)....=0.|
00001400  00 a5 05 3a 0d 00 a6 04  0d 00 a7 46 f4 20 3d 3d  |...:.......F. ==|
00001410  3d 3d 3d 20 44 61 74 61  5f 53 61 76 65 20 72 6f  |=== Data_Save ro|
00001420  75 74 69 6e 65 73 20 3d  3d 3d 3d 3d 3d 3d 3d 3d  |utines =========|
00001430  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00001440  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 0d 00  |==============..|
00001450  a8 04 0d 00 a9 16 dd a4  5f 64 6f 5f 73 61 76 65  |........_do_save|
00001460  28 66 6e 61 6d 65 24 29  0d 00 aa 20 e7 20 a7 46  |(fname$)... . .F|
00001470  69 6c 65 4e 61 6d 65 5f  4f 72 69 67 69 6e 61 6c  |ileName_Original|
00001480  24 2c 22 2e 22 29 20 8c  0d 00 ab 17 20 20 f2 45  |$,".") .....  .E|
00001490  64 69 74 5f 4f 6c 64 28  66 6e 61 6d 65 24 29 0d  |dit_Old(fname$).|
000014a0  00 ac 05 cc 0d 00 ad 19  20 20 f2 43 72 65 61 74  |........  .Creat|
000014b0  65 5f 4e 65 77 28 66 6e  61 6d 65 24 29 0d 00 ae  |e_New(fname$)...|
000014c0  05 cd 0d 00 af 06 3d 30  0d 00 b0 05 3a 0d 00 b1  |......=0....:...|
000014d0  30 dd 20 f2 45 64 69 74  5f 42 61 73 69 63 50 72  |0. .Edit_BasicPr|
000014e0  6f 67 28 6f 6c 64 5f 66  69 6c 65 24 2c 6e 65 77  |og(old_file$,new|
000014f0  5f 66 69 6c 65 24 2c 74  24 2c 72 24 29 0d 00 b2  |_file$,t$,r$)...|
00001500  6e c8 99 20 22 57 69 6d  70 5f 53 74 61 72 74 54  |n.. "Wimp_StartT|
00001510  61 73 6b 22 2c 22 3c 41  70 70 42 75 69 6c 64 24  |ask","<AppBuild$|
00001520  44 69 72 3e 2e 42 53 65  64 20 22 2b 74 24 2b 22  |Dir>.BSed "+t$+"|
00001530  20 40 40 40 40 40 40 40  40 40 20 22 2b 6f 6c 64  | @@@@@@@@@ "+old|
00001540  5f 66 69 6c 65 24 2b 22  20 3c 57 69 6d 70 24 53  |_file$+" <Wimp$S|
00001550  63 72 61 70 44 69 72 3e  2e 41 70 70 42 75 69 6c  |crapDir>.AppBuil|
00001560  64 2e 54 6d 70 46 69 6c  65 30 22 0d 00 b3 6b c8  |d.TmpFile0"...k.|
00001570  99 20 22 57 69 6d 70 5f  53 74 61 72 74 54 61 73  |. "Wimp_StartTas|
00001580  6b 22 2c 22 3c 41 70 70  42 75 69 6c 64 24 44 69  |k","<AppBuild$Di|
00001590  72 3e 2e 42 53 65 64 20  40 40 40 40 40 40 40 40  |r>.BSed @@@@@@@@|
000015a0  40 20 22 2b 72 24 2b 22  20 3c 57 69 6d 70 24 53  |@ "+r$+" <Wimp$S|
000015b0  63 72 61 70 44 69 72 3e  2e 41 70 70 42 75 69 6c  |crapDir>.AppBuil|
000015c0  64 2e 54 6d 70 46 69 6c  65 30 20 22 2b 6e 65 77  |d.TmpFile0 "+new|
000015d0  5f 66 69 6c 65 24 0d 00  b4 31 ff 28 22 52 65 6d  |_file$...1.("Rem|
000015e0  6f 76 65 20 3c 57 69 6d  70 24 53 63 72 61 70 44  |ove <Wimp$ScrapD|
000015f0  69 72 3e 2e 41 70 70 42  75 69 6c 64 2e 54 6d 70  |ir>.AppBuild.Tmp|
00001600  46 69 6c 65 30 22 29 0d  00 b5 23 ff 28 22 53 65  |File0")...#.("Se|
00001610  74 54 79 70 65 20 22 2b  6e 65 77 5f 66 69 6c 65  |tType "+new_file|
00001620  24 2b 22 20 26 46 46 42  22 29 0d 00 b6 33 e7 20  |$+" &FFB")...3. |
00001630  6f 6c 64 5f 66 69 6c 65  24 3c 3e 6e 65 77 5f 66  |old_file$<>new_f|
00001640  69 6c 65 24 20 8c 20 ff  28 22 52 65 6d 6f 76 65  |ile$ . .("Remove|
00001650  20 22 2b 6f 6c 64 5f 66  69 6c 65 24 29 0d 00 b7  | "+old_file$)...|
00001660  05 e1 0d 00 b8 05 3a 0d  00 b9 31 dd 20 f2 45 64  |......:...1. .Ed|
00001670  69 74 5f 46 69 6c 65 28  6f 6c 64 5f 66 69 6c 65  |it_File(old_file|
00001680  24 2c 6e 65 77 5f 66 69  6c 65 24 2c 74 24 2c 72  |$,new_file$,t$,r|
00001690  24 2c 74 79 70 65 25 29  0d 00 ba 1f 74 24 3d bd  |$,type%)....t$=.|
000016a0  33 34 2b 74 24 2b bd 33  34 3a 72 24 3d bd 33 34  |34+t$+.34:r$=.34|
000016b0  2b 72 24 2b bd 33 34 0d  00 bb 70 c8 99 20 22 57  |+r$+.34...p.. "W|
000016c0  69 6d 70 5f 53 74 61 72  74 54 61 73 6b 22 2c 22  |imp_StartTask","|
000016d0  3c 41 70 70 42 75 69 6c  64 24 44 69 72 3e 2e 4d  |<AppBuild$Dir>.M|
000016e0  53 65 64 20 22 2b 74 24  2b 22 20 40 40 40 40 40  |Sed "+t$+" @@@@@|
000016f0  40 40 40 40 20 22 2b 6f  6c 64 5f 66 69 6c 65 24  |@@@@ "+old_file$|
00001700  2b 22 20 3e 20 3c 57 69  6d 70 24 53 63 72 61 70  |+" > <Wimp$Scrap|
00001710  44 69 72 3e 2e 41 70 70  42 75 69 6c 64 2e 54 6d  |Dir>.AppBuild.Tm|
00001720  70 46 69 6c 65 30 22 0d  00 bc 6d c8 99 20 22 57  |pFile0"...m.. "W|
00001730  69 6d 70 5f 53 74 61 72  74 54 61 73 6b 22 2c 22  |imp_StartTask","|
00001740  3c 41 70 70 42 75 69 6c  64 24 44 69 72 3e 2e 4d  |<AppBuild$Dir>.M|
00001750  53 65 64 20 40 40 40 40  40 40 40 40 40 20 22 2b  |Sed @@@@@@@@@ "+|
00001760  72 24 2b 22 20 3c 57 69  6d 70 24 53 63 72 61 70  |r$+" <Wimp$Scrap|
00001770  44 69 72 3e 2e 41 70 70  42 75 69 6c 64 2e 54 6d  |Dir>.AppBuild.Tm|
00001780  70 46 69 6c 65 30 20 3e  20 22 2b 6e 65 77 5f 66  |pFile0 > "+new_f|
00001790  69 6c 65 24 0d 00 bd 31  ff 28 22 52 65 6d 6f 76  |ile$...1.("Remov|
000017a0  65 20 3c 57 69 6d 70 24  53 63 72 61 70 44 69 72  |e <Wimp$ScrapDir|
000017b0  3e 2e 41 70 70 42 75 69  6c 64 2e 54 6d 70 46 69  |>.AppBuild.TmpFi|
000017c0  6c 65 30 22 29 0d 00 be  28 ff 28 22 53 65 74 54  |le0")...(.("SetT|
000017d0  79 70 65 20 22 2b 6e 65  77 5f 66 69 6c 65 24 2b  |ype "+new_file$+|
000017e0  22 20 26 22 2b c3 7e 74  79 70 65 25 29 0d 00 bf  |" &"+.~type%)...|
000017f0  33 e7 20 6f 6c 64 5f 66  69 6c 65 24 3c 3e 6e 65  |3. old_file$<>ne|
00001800  77 5f 66 69 6c 65 24 20  8c 20 ff 28 22 52 65 6d  |w_file$ . .("Rem|
00001810  6f 76 65 20 22 2b 6f 6c  64 5f 66 69 6c 65 24 29  |ove "+old_file$)|
00001820  0d 00 c0 05 e1 0d 00 c1  05 3a 0d 00 c2 25 dd 20  |.........:...%. |
00001830  f2 45 64 69 74 5f 53 70  72 69 74 65 46 69 6c 65  |.Edit_SpriteFile|
00001840  28 73 5f 66 69 6c 65 24  2c 74 24 2c 72 24 29 0d  |(s_file$,t$,r$).|
00001850  00 c3 11 ea 20 73 70 72  69 74 65 61 72 65 61 25  |.... spritearea%|
00001860  0d 00 c4 2e 73 70 72 69  74 65 61 72 65 61 25 3d  |....spritearea%=|
00001870  a4 73 68 65 6c 6c 5f 53  70 72 69 74 65 41 72 65  |.shell_SpriteAre|
00001880  61 4c 6f 61 64 28 73 5f  66 69 6c 65 24 29 0d 00  |aLoad(s_file$)..|
00001890  c5 2a f2 73 68 65 6c 6c  5f 53 70 72 69 74 65 52  |.*.shell_SpriteR|
000018a0  65 6e 61 6d 65 28 73 70  72 69 74 65 61 72 65 61  |ename(spritearea|
000018b0  25 2c 74 24 2c 72 24 29  0d 00 c6 2e f2 73 68 65  |%,t$,r$).....she|
000018c0  6c 6c 5f 53 70 72 69 74  65 41 72 65 61 53 61 76  |ll_SpriteAreaSav|
000018d0  65 28 73 70 72 69 74 65  61 72 65 61 25 2c 73 5f  |e(spritearea%,s_|
000018e0  66 69 6c 65 24 29 0d 00  c7 27 f2 73 68 65 6c 6c  |file$)...'.shell|
000018f0  5f 48 65 61 70 42 6c 6f  63 6b 52 65 74 75 72 6e  |_HeapBlockReturn|
00001900  28 73 70 72 69 74 65 61  72 65 61 25 29 0d 00 c8  |(spritearea%)...|
00001910  05 e1 0d 00 c9 05 3a 0d  00 ca 1e dd 20 f2 45 64  |......:..... .Ed|
00001920  69 74 5f 4f 6c 64 28 46  69 6c 65 4e 61 6d 65 5f  |it_Old(FileName_|
00001930  4e 65 77 24 29 0d 00 cb  45 ea 20 6c 69 62 24 2c  |New$)...E. lib$,|
00001940  73 70 72 69 74 65 61 72  65 61 25 2c 4e 65 77 5f  |spritearea%,New_|
00001950  50 72 6f 67 4e 61 6d 65  24 2c 4f 6c 64 5f 50 72  |ProgName$,Old_Pr|
00001960  6f 67 4e 61 6d 65 24 2c  52 75 6e 49 6d 61 67 65  |ogName$,RunImage|
00001970  24 2c 52 75 6e 46 69 6c  65 24 0d 00 cc 30 4e 65  |$,RunFile$...0Ne|
00001980  77 5f 50 72 6f 67 4e 61  6d 65 24 3d c1 a4 73 68  |w_ProgName$=..sh|
00001990  65 6c 6c 5f 4c 65 61 66  28 46 69 6c 65 4e 61 6d  |ell_Leaf(FileNam|
000019a0  65 5f 4e 65 77 24 29 2c  32 29 0d 00 cd 50 52 75  |e_New$),2)...PRu|
000019b0  6e 49 6d 61 67 65 24 3d  46 69 6c 65 4e 61 6d 65  |nImage$=FileName|
000019c0  5f 4e 65 77 24 2b 22 2e  21 22 2b 4e 65 77 5f 50  |_New$+".!"+New_P|
000019d0  72 6f 67 4e 61 6d 65 24  20 20 20 20 20 20 20 20  |rogName$        |
000019e0  3a f4 20 66 75 6c 6c 20  6e 61 6d 65 20 6f 66 20  |:. full name of |
000019f0  72 75 6e 69 6d 61 67 65  2e 2e 0d 00 ce 4a 52 75  |runimage.....JRu|
00001a00  6e 46 69 6c 65 24 20 3d  46 69 6c 65 4e 61 6d 65  |nFile$ =FileName|
00001a10  5f 4e 65 77 24 2b 22 2e  21 52 75 6e 22 20 20 20  |_New$+".!Run"   |
00001a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001a30  3a f4 20 66 75 6c 6c 20  6e 61 6d 65 20 6f 66 20  |:. full name of |
00001a40  21 72 75 6e 0d 00 cf 35  4f 6c 64 5f 50 72 6f 67  |!run...5Old_Prog|
00001a50  4e 61 6d 65 24 3d c1 a4  73 68 65 6c 6c 5f 4c 65  |Name$=..shell_Le|
00001a60  61 66 28 46 69 6c 65 4e  61 6d 65 5f 4f 72 69 67  |af(FileName_Orig|
00001a70  69 6e 61 6c 24 29 2c 32  29 0d 00 d0 40 f2 73 68  |inal$),2)...@.sh|
00001a80  65 6c 6c 5f 49 63 6f 6e  62 61 72 53 65 74 54 65  |ell_IconbarSetTe|
00001a90  78 74 28 2d 31 2c 73 69  63 6f 6e 2c a4 73 68 65  |xt(-1,sicon,.she|
00001aa0  6c 6c 5f 4d 65 73 73 61  67 65 4e 6f 41 72 67 73  |ll_MessageNoArgs|
00001ab0  28 22 42 75 73 79 22 29  29 0d 00 d1 29 e7 20 46  |("Busy"))...). F|
00001ac0  69 6c 65 4e 61 6d 65 5f  4e 65 77 24 3c 3e 46 69  |ileName_New$<>Fi|
00001ad0  6c 65 4e 61 6d 65 5f 4f  72 69 67 69 6e 61 6c 24  |leName_Original$|
00001ae0  20 8c 0d 00 d2 2a 20 20  f4 20 63 6f 70 79 20 65  | ....*  . copy e|
00001af0  78 69 73 74 69 6e 67 20  61 70 70 20 75 6e 64 65  |xisting app unde|
00001b00  72 20 6e 65 77 20 6e 61  6d 65 2e 2e 0d 00 d3 40  |r new name.....@|
00001b10  20 20 ff 28 22 43 6f 70  79 20 22 2b 46 69 6c 65  |  .("Copy "+File|
00001b20  4e 61 6d 65 5f 4f 72 69  67 69 6e 61 6c 24 2b 22  |Name_Original$+"|
00001b30  20 22 2b 46 69 6c 65 4e  61 6d 65 5f 4e 65 77 24  | "+FileName_New$|
00001b40  2b 22 20 7e 43 20 7e 56  20 52 22 29 0d 00 d4 47  |+" ~C ~V R")...G|
00001b50  20 20 f2 73 68 65 6c 6c  5f 49 63 6f 6e 50 75 74  |  .shell_IconPut|
00001b60  44 61 74 61 4e 6f 77 28  6d 61 69 6e 77 25 2c 38  |DataNow(mainw%,8|
00001b70  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
00001b80  6f 41 72 67 73 28 22 57  72 69 74 65 53 70 72 30  |oArgs("WriteSpr0|
00001b90  22 29 29 0d 00 d5 55 20  20 f2 45 64 69 74 5f 53  |"))...U  .Edit_S|
00001ba0  70 72 69 74 65 46 69 6c  65 28 46 69 6c 65 4e 61  |priteFile(FileNa|
00001bb0  6d 65 5f 4e 65 77 24 2b  22 2e 21 53 70 72 69 74  |me_New$+".!Sprit|
00001bc0  65 73 22 2c 22 21 22 2b  4f 6c 64 5f 50 72 6f 67  |es","!"+Old_Prog|
00001bd0  4e 61 6d 65 24 2c 22 21  22 2b 4e 65 77 5f 50 72  |Name$,"!"+New_Pr|
00001be0  6f 67 4e 61 6d 65 24 29  0d 00 d6 5e 20 20 f4 20  |ogName$)...^  . |
00001bf0  50 52 4f 43 45 64 69 74  5f 53 70 72 69 74 65 46  |PROCEdit_SpriteF|
00001c00  69 6c 65 28 46 69 6c 65  4e 61 6d 65 5f 4e 65 77  |ile(FileName_New|
00001c10  24 2b 22 2e 21 53 70 72  69 74 65 73 22 2c 22 69  |$+".!Sprites","i|
00001c20  63 5f 22 2b 4f 6c 64 5f  50 72 6f 67 4e 61 6d 65  |c_"+Old_ProgName|
00001c30  24 2c 22 69 63 5f 22 2b  4e 65 77 5f 50 72 6f 67  |$,"ic_"+New_Prog|
00001c40  4e 61 6d 65 24 29 0d 00  d7 57 20 20 f2 45 64 69  |Name$)...W  .Edi|
00001c50  74 5f 53 70 72 69 74 65  46 69 6c 65 28 46 69 6c  |t_SpriteFile(Fil|
00001c60  65 4e 61 6d 65 5f 4e 65  77 24 2b 22 2e 21 53 70  |eName_New$+".!Sp|
00001c70  72 69 74 65 73 32 32 22  2c 22 21 22 2b 4f 6c 64  |rites22","!"+Old|
00001c80  5f 50 72 6f 67 4e 61 6d  65 24 2c 22 21 22 2b 4e  |_ProgName$,"!"+N|
00001c90  65 77 5f 50 72 6f 67 4e  61 6d 65 24 29 0d 00 d8  |ew_ProgName$)...|
00001ca0  60 20 20 f4 20 50 52 4f  43 45 64 69 74 5f 53 70  |`  . PROCEdit_Sp|
00001cb0  72 69 74 65 46 69 6c 65  28 46 69 6c 65 4e 61 6d  |riteFile(FileNam|
00001cc0  65 5f 4e 65 77 24 2b 22  2e 21 53 70 72 69 74 65  |e_New$+".!Sprite|
00001cd0  73 32 32 22 2c 22 69 63  5f 22 2b 4f 6c 64 5f 50  |s22","ic_"+Old_P|
00001ce0  72 6f 67 4e 61 6d 65 24  2c 22 69 63 5f 22 2b 4e  |rogName$,"ic_"+N|
00001cf0  65 77 5f 50 72 6f 67 4e  61 6d 65 24 29 0d 00 d9  |ew_ProgName$)...|
00001d00  17 20 20 f2 73 68 65 6c  6c 5f 45 6e 73 75 72 65  |.  .shell_Ensure|
00001d10  50 6f 6c 6c 0d 00 da 5e  20 20 f2 45 64 69 74 5f  |Poll...^  .Edit_|
00001d20  46 69 6c 65 28 46 69 6c  65 4e 61 6d 65 5f 4e 65  |File(FileName_Ne|
00001d30  77 24 2b 22 2e 21 52 75  6e 22 2c 46 69 6c 65 4e  |w$+".!Run",FileN|
00001d40  61 6d 65 5f 4e 65 77 24  2b 22 2e 21 52 75 6e 22  |ame_New$+".!Run"|
00001d50  2c 4f 6c 64 5f 50 72 6f  67 4e 61 6d 65 24 2c 4e  |,Old_ProgName$,N|
00001d60  65 77 5f 50 72 6f 67 4e  61 6d 65 24 2c 26 46 45  |ew_ProgName$,&FE|
00001d70  42 29 0d 00 db 91 20 20  f2 45 64 69 74 5f 42 61  |B)....  .Edit_Ba|
00001d80  73 69 63 50 72 6f 67 28  46 69 6c 65 4e 61 6d 65  |sicProg(FileName|
00001d90  5f 4e 65 77 24 2b 22 2e  22 2b a4 73 68 65 6c 6c  |_New$+"."+.shell|
00001da0  5f 4c 65 61 66 28 46 69  6c 65 4e 61 6d 65 5f 4f  |_Leaf(FileName_O|
00001db0  72 69 67 69 6e 61 6c 24  29 2c 46 69 6c 65 4e 61  |riginal$),FileNa|
00001dc0  6d 65 5f 4e 65 77 24 2b  22 2e 22 2b a4 73 68 65  |me_New$+"."+.she|
00001dd0  6c 6c 5f 4c 65 61 66 28  46 69 6c 65 4e 61 6d 65  |ll_Leaf(FileName|
00001de0  5f 4e 65 77 24 29 2c 4f  6c 64 5f 50 72 6f 67 4e  |_New$),Old_ProgN|
00001df0  61 6d 65 24 2c 4e 65 77  5f 50 72 6f 67 4e 61 6d  |ame$,New_ProgNam|
00001e00  65 24 29 0d 00 dc 36 20  20 e7 20 a4 73 68 65 6c  |e$)...6  . .shel|
00001e10  6c 5f 46 69 6c 65 45 78  69 73 74 73 28 46 69 6c  |l_FileExists(Fil|
00001e20  65 4e 61 6d 65 5f 4e 65  77 24 2b 22 2e 4d 65 73  |eName_New$+".Mes|
00001e30  73 61 67 65 73 22 29 20  8c 0d 00 dd 68 20 20 20  |sages") ....h   |
00001e40  20 f2 45 64 69 74 5f 46  69 6c 65 28 46 69 6c 65  | .Edit_File(File|
00001e50  4e 61 6d 65 5f 4e 65 77  24 2b 22 2e 4d 65 73 73  |Name_New$+".Mess|
00001e60  61 67 65 73 22 2c 46 69  6c 65 4e 61 6d 65 5f 4e  |ages",FileName_N|
00001e70  65 77 24 2b 22 2e 4d 65  73 73 61 67 65 73 22 2c  |ew$+".Messages",|
00001e80  4f 6c 64 5f 50 72 6f 67  4e 61 6d 65 24 2c 4e 65  |Old_ProgName$,Ne|
00001e90  77 5f 50 72 6f 67 4e 61  6d 65 24 2c 26 46 46 46  |w_ProgName$,&FFF|
00001ea0  29 0d 00 de 07 20 20 cd  0d 00 df 43 20 20 e7 20  |)....  ....C  . |
00001eb0  a4 73 68 65 6c 6c 5f 46  69 6c 65 45 78 69 73 74  |.shell_FileExist|
00001ec0  73 28 46 69 6c 65 4e 61  6d 65 5f 4e 65 77 24 2b  |s(FileName_New$+|
00001ed0  22 2e 52 65 73 6f 75 72  63 65 73 2e 55 4b 2e 4d  |".Resources.UK.M|
00001ee0  65 73 73 61 67 65 73 22  29 20 8c 0d 00 e0 82 20  |essages") ..... |
00001ef0  20 20 20 f2 45 64 69 74  5f 46 69 6c 65 28 46 69  |   .Edit_File(Fi|
00001f00  6c 65 4e 61 6d 65 5f 4e  65 77 24 2b 22 2e 52 65  |leName_New$+".Re|
00001f10  73 6f 75 72 63 65 73 2e  55 4b 2e 4d 65 73 73 61  |sources.UK.Messa|
00001f20  67 65 73 22 2c 46 69 6c  65 4e 61 6d 65 5f 4e 65  |ges",FileName_Ne|
00001f30  77 24 2b 22 2e 52 65 73  6f 75 72 63 65 73 2e 55  |w$+".Resources.U|
00001f40  4b 2e 4d 65 73 73 61 67  65 73 22 2c 4f 6c 64 5f  |K.Messages",Old_|
00001f50  50 72 6f 67 4e 61 6d 65  24 2c 4e 65 77 5f 50 72  |ProgName$,New_Pr|
00001f60  6f 67 4e 61 6d 65 24 2c  26 46 46 46 29 0d 00 e1  |ogName$,&FFF)...|
00001f70  07 20 20 cd 0d 00 e2 49  20 20 e7 20 a4 73 68 65  |.  ....I  . .she|
00001f80  6c 6c 5f 46 69 6c 65 45  78 69 73 74 73 28 46 69  |ll_FileExists(Fi|
00001f90  6c 65 4e 61 6d 65 5f 4e  65 77 24 2b 22 2e 52 65  |leName_New$+".Re|
00001fa0  73 6f 75 72 63 65 73 2e  55 4b 2e 22 2b 4f 6c 64  |sources.UK."+Old|
00001fb0  5f 50 72 6f 67 4e 61 6d  65 24 29 20 8c 0d 00 e3  |_ProgName$) ....|
00001fc0  72 20 20 20 20 ff 28 22  52 65 6e 61 6d 65 20 22  |r    .("Rename "|
00001fd0  2b 46 69 6c 65 4e 61 6d  65 5f 4e 65 77 24 2b 22  |+FileName_New$+"|
00001fe0  2e 52 65 73 6f 75 72 63  65 73 2e 55 4b 2e 22 2b  |.Resources.UK."+|
00001ff0  4f 6c 64 5f 50 72 6f 67  4e 61 6d 65 24 2b 22 20  |Old_ProgName$+" |
00002000  22 2b 46 69 6c 65 4e 61  6d 65 5f 4e 65 77 24 2b  |"+FileName_New$+|
00002010  22 2e 52 65 73 6f 75 72  63 65 73 2e 55 4b 2e 22  |".Resources.UK."|
00002020  2b 4e 65 77 5f 50 72 6f  67 4e 61 6d 65 24 29 0d  |+New_ProgName$).|
00002030  00 e4 07 20 20 cd 0d 00  e5 3c 20 20 e7 20 a4 73  |...  ....<  . .s|
00002040  68 65 6c 6c 5f 46 69 6c  65 45 78 69 73 74 73 28  |hell_FileExists(|
00002050  46 69 6c 65 4e 61 6d 65  5f 4e 65 77 24 2b 22 2e  |FileName_New$+".|
00002060  22 2b 4f 6c 64 5f 50 72  6f 67 4e 61 6d 65 24 29  |"+Old_ProgName$)|
00002070  20 8c 0d 00 e6 58 20 20  20 20 ff 28 22 52 65 6e  | ....X    .("Ren|
00002080  61 6d 65 20 22 2b 46 69  6c 65 4e 61 6d 65 5f 4e  |ame "+FileName_N|
00002090  65 77 24 2b 22 2e 22 2b  4f 6c 64 5f 50 72 6f 67  |ew$+"."+Old_Prog|
000020a0  4e 61 6d 65 24 2b 22 20  22 2b 46 69 6c 65 4e 61  |Name$+" "+FileNa|
000020b0  6d 65 5f 4e 65 77 24 2b  22 2e 22 2b 4e 65 77 5f  |me_New$+"."+New_|
000020c0  50 72 6f 67 4e 61 6d 65  24 29 0d 00 e7 07 20 20  |ProgName$)....  |
000020d0  cd 0d 00 e8 05 cc 0d 00  e9 04 0d 00 ea 2a 20 20  |.............*  |
000020e0  e7 20 a4 73 68 65 6c 6c  5f 49 73 49 63 6f 6e 53  |. .shell_IsIconS|
000020f0  65 6c 65 63 74 65 64 28  6d 61 69 6e 77 25 2c 31  |elected(mainw%,1|
00002100  33 29 20 8c 0d 00 eb 43  20 20 20 20 f4 20 53 75  |3) ....C    . Su|
00002110  70 70 6f 72 74 69 6e 67  20 53 74 72 6f 6e 67 48  |pporting StrongH|
00002120  6c 70 2c 20 64 6f 6e 27  74 20 52 45 4d 20 6f 75  |lp, don't REM ou|
00002130  74 20 69 6e 69 74 69 61  6c 69 73 61 74 69 6f 6e  |t initialisation|
00002140  20 6c 69 6e 65 2e 2e 0d  00 ec 07 20 20 cc 0d 00  | line......  ...|
00002150  ed 30 20 20 20 20 f4 20  4e 6f 74 20 73 75 70 70  |.0    . Not supp|
00002160  6f 72 74 69 6e 67 20 53  74 72 6f 6e 67 48 6c 70  |orting StrongHlp|
00002170  2c 20 52 45 4d 20 69 74  20 6f 75 74 2e 2e 0d 00  |, REM it out....|
00002180  ee 6d 20 20 20 20 f2 45  64 69 74 5f 42 61 73 69  |.m    .Edit_Basi|
00002190  63 50 72 6f 67 28 52 75  6e 49 6d 61 67 65 24 2c  |cProg(RunImage$,|
000021a0  52 75 6e 49 6d 61 67 65  24 2c bd 28 26 46 32 29  |RunImage$,.(&F2)|
000021b0  2b 22 73 68 65 6c 6c 5f  49 6e 69 74 48 65 6c 70  |+"shell_InitHelp|
000021c0  53 79 73 74 65 6d 22 2c  bd 28 26 46 34 29 2b 22  |System",.(&F4)+"|
000021d0  20 50 52 4f 43 73 68 65  6c 6c 5f 49 6e 69 74 48  | PROCshell_InitH|
000021e0  65 6c 70 53 79 73 74 65  6d 22 29 0d 00 ef 07 20  |elpSystem").... |
000021f0  20 cd 0d 00 f0 04 0d 00  f1 2a 20 20 e7 20 a4 73  | ........*  . .s|
00002200  68 65 6c 6c 5f 49 73 49  63 6f 6e 53 65 6c 65 63  |hell_IsIconSelec|
00002210  74 65 64 28 6d 61 69 6e  77 25 2c 31 30 29 20 8c  |ted(mainw%,10) .|
00002220  0d 00 f2 1e 20 20 20 20  f4 20 63 72 65 61 74 65  |....    . create|
00002230  20 73 74 61 6e 64 20 61  6c 6f 6e 65 2e 2e 0d 00  | stand alone....|
00002240  f3 25 20 20 20 20 f2 43  6f 70 79 5f 53 68 65 6c  |.%    .Copy_Shel|
00002250  6c 4d 73 67 28 46 69 6c  65 4e 61 6d 65 5f 4e 65  |lMsg(FileName_Ne|
00002260  77 24 29 0d 00 f4 24 20  20 20 20 f2 43 6f 70 79  |w$)...$    .Copy|
00002270  5f 4d 6f 64 75 6c 65 73  28 46 69 6c 65 4e 61 6d  |_Modules(FileNam|
00002280  65 5f 4e 65 77 24 29 0d  00 f5 49 20 20 20 20 f2  |e_New$)...I    .|
00002290  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
000022a0  61 4e 6f 77 28 6d 61 69  6e 77 25 2c 38 2c a4 73  |aNow(mainw%,8,.s|
000022b0  68 65 6c 6c 5f 4d 65 73  73 61 67 65 4e 6f 41 72  |hell_MessageNoAr|
000022c0  67 73 28 22 43 6f 70 79  48 65 61 70 43 22 29 29  |gs("CopyHeapC"))|
000022d0  0d 00 f6 4b 20 20 20 20  ff 28 22 43 4f 50 59 20  |...K    .("COPY |
000022e0  3c 45 76 6e 74 53 68 65  6c 6c 24 50 61 74 68 3e  |<EvntShell$Path>|
000022f0  48 65 61 70 63 6f 64 65  20 22 2b 46 69 6c 65 4e  |Heapcode "+FileN|
00002300  61 6d 65 5f 4e 65 77 24  2b 22 2e 68 65 61 70 63  |ame_New$+".heapc|
00002310  6f 64 65 20 7e 43 20 7e  56 22 29 0d 00 f7 50 20  |ode ~C ~V")...P |
00002320  20 20 20 e7 20 a4 73 68  65 6c 6c 5f 49 73 49 63  |   . .shell_IsIc|
00002330  6f 6e 53 65 6c 65 63 74  65 64 28 6d 61 69 6e 77  |onSelected(mainw|
00002340  25 2c 31 31 29 20 8c 20  6c 69 62 24 3d 22 53 68  |%,11) . lib$="Sh|
00002350  65 6c 6c 4c 69 62 52 54  22 20 8b 20 6c 69 62 24  |ellLibRT" . lib$|
00002360  3d 22 53 68 65 6c 6c 4c  69 62 22 0d 00 f8 4b 20  |="ShellLib"...K |
00002370  20 20 20 ff 28 22 43 4f  50 59 20 3c 45 76 6e 74  |   .("COPY <Evnt|
00002380  53 68 65 6c 6c 24 50 61  74 68 3e 22 2b 6c 69 62  |Shell$Path>"+lib|
00002390  24 2b 22 20 22 2b 46 69  6c 65 4e 61 6d 65 5f 4e  |$+" "+FileName_N|
000023a0  65 77 24 2b 22 2e 22 2b  6c 69 62 24 2b 22 20 7e  |ew$+"."+lib$+" ~|
000023b0  43 20 7e 56 22 29 0d 00  f9 19 20 20 20 20 f2 73  |C ~V")....    .s|
000023c0  68 65 6c 6c 5f 45 6e 73  75 72 65 50 6f 6c 6c 0d  |hell_EnsurePoll.|
000023d0  00 fa 49 20 20 20 20 f4  20 65 64 69 74 20 6e 65  |..I    . edit ne|
000023e0  77 20 21 52 75 6e 20 66  69 6c 65 20 74 6f 20 6c  |w !Run file to l|
000023f0  6f 61 64 20 6d 6f 64 75  6c 65 73 20 66 72 6f 6d  |oad modules from|
00002400  20 61 70 70 6c 69 63 61  74 69 6f 6e 20 64 69 72  | application dir|
00002410  65 63 74 6f 72 79 2e 2e  0d 00 fb 74 20 20 20 20  |ectory.....t    |
00002420  f2 45 64 69 74 5f 46 69  6c 65 28 46 69 6c 65 4e  |.Edit_File(FileN|
00002430  61 6d 65 5f 4e 65 77 24  2b 22 2e 21 52 75 6e 22  |ame_New$+".!Run"|
00002440  2c 46 69 6c 65 4e 61 6d  65 5f 4e 65 77 24 2b 22  |,FileName_New$+"|
00002450  2e 21 52 75 6e 22 2c 22  3c 45 76 6e 74 53 68 65  |.!Run","<EvntShe|
00002460  6c 6c 24 50 61 74 68 3e  22 2c 22 3c 57 69 6d 70  |ll$Path>","<Wimp|
00002470  24 53 63 72 61 70 44 69  72 3e 2e 41 70 70 42 75  |$ScrapDir>.AppBu|
00002480  69 6c 64 3e 2e 22 2c 26  46 45 42 29 0d 00 fc 63  |ild>.",&FEB)...c|
00002490  20 20 20 20 f2 45 64 69  74 5f 46 69 6c 65 28 46  |    .Edit_File(F|
000024a0  69 6c 65 4e 61 6d 65 5f  4e 65 77 24 2b 22 2e 21  |ileName_New$+".!|
000024b0  52 75 6e 22 2c 46 69 6c  65 4e 61 6d 65 5f 4e 65  |Run",FileName_Ne|
000024c0  77 24 2b 22 2e 21 52 75  6e 22 2c 22 53 68 65 6c  |w$+".!Run","Shel|
000024d0  6c 20 72 65 73 6f 75 72  63 65 73 20 6e 6f 74 20  |l resources not |
000024e0  66 6f 75 6e 64 22 2c 22  22 2c 26 46 45 42 29 0d  |found","",&FEB).|
000024f0  00 fd 46 20 20 20 20 f2  73 68 65 6c 6c 5f 49 63  |..F    .shell_Ic|
00002500  6f 6e 50 75 74 44 61 74  61 4e 6f 77 28 6d 61 69  |onPutDataNow(mai|
00002510  6e 77 25 2c 38 2c a4 73  68 65 6c 6c 5f 4d 65 73  |nw%,8,.shell_Mes|
00002520  73 61 67 65 4e 6f 41 72  67 73 28 22 50 72 6f 63  |sageNoArgs("Proc|
00002530  52 49 22 29 29 0d 00 fe  2f 20 20 20 20 f2 73 68  |RI")).../    .sh|
00002540  65 6c 6c 5f 41 63 74 69  6f 6e 28 a4 73 68 65 6c  |ell_Action(.shel|
00002550  6c 5f 50 6f 6c 6c 5f 49  28 30 2c 5f 55 25 21 31  |l_Poll_I(0,_U%!1|
00002560  34 38 29 29 0d 00 ff 4c  20 20 20 20 f2 45 64 69  |48))...L    .Edi|
00002570  74 5f 42 61 73 69 63 50  72 6f 67 28 52 75 6e 49  |t_BasicProg(RunI|
00002580  6d 61 67 65 24 2c 52 75  6e 49 6d 61 67 65 24 2c  |mage$,RunImage$,|
00002590  22 22 2c 22 3c 57 69 6d  70 24 53 63 72 61 70 44  |"","<Wimp$ScrapD|
000025a0  69 72 3e 2e 41 70 70 42  75 69 6c 64 3e 2e 22 29  |ir>.AppBuild>.")|
000025b0  0d 01 00 2f 20 20 20 20  f2 73 68 65 6c 6c 5f 41  |.../    .shell_A|
000025c0  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
000025d0  6c 5f 49 28 30 2c 5f 55  25 21 31 34 38 29 29 0d  |l_I(0,_U%!148)).|
000025e0  01 01 07 20 20 cc 0d 01  02 21 20 20 20 20 f4 20  |...  ....!    . |
000025f0  6e 6f 74 20 61 20 73 74  61 6e 64 20 61 6c 6f 6e  |not a stand alon|
00002600  65 20 61 70 70 2e 2e 0d  01 03 0f 20 20 20 20 f4  |e app......    .|
00002610  20 48 69 6c 6b 65 0d 01  04 2f 20 20 20 20 f2 73  | Hilke.../    .s|
00002620  68 65 6c 6c 5f 41 63 74  69 6f 6e 28 a4 73 68 65  |hell_Action(.she|
00002630  6c 6c 5f 50 6f 6c 6c 5f  49 28 30 2c 5f 55 25 21  |ll_Poll_I(0,_U%!|
00002640  31 34 38 29 29 0d 01 05  46 20 20 20 20 f2 73 68  |148))...F    .sh|
00002650  65 6c 6c 5f 49 63 6f 6e  50 75 74 44 61 74 61 4e  |ell_IconPutDataN|
00002660  6f 77 28 6d 61 69 6e 77  25 2c 38 2c a4 73 68 65  |ow(mainw%,8,.she|
00002670  6c 6c 5f 4d 65 73 73 61  67 65 4e 6f 41 72 67 73  |ll_MessageNoArgs|
00002680  28 22 52 45 4d 6d 6f 64  22 29 29 0d 01 06 2f 20  |("REMmod")).../ |
00002690  20 20 20 ff 28 22 52 65  6d 6f 76 65 20 22 2b 46  |   .("Remove "+F|
000026a0  69 6c 65 4e 61 6d 65 5f  4e 65 77 24 2b 22 2e 49  |ileName_New$+".I|
000026b0  6e 74 65 72 66 61 63 65  22 29 0d 01 07 2e 20 20  |nterface")....  |
000026c0  20 20 ff 28 22 52 65 6d  6f 76 65 20 22 2b 46 69  |  .("Remove "+Fi|
000026d0  6c 65 4e 61 6d 65 5f 4e  65 77 24 2b 22 2e 4d 73  |leName_New$+".Ms|
000026e0  67 54 72 61 6e 73 22 29  0d 01 08 2e 20 20 20 20  |gTrans")....    |
000026f0  ff 28 22 52 65 6d 6f 76  65 20 22 2b 46 69 6c 65  |.("Remove "+File|
00002700  4e 61 6d 65 5f 4e 65 77  24 2b 22 2e 46 6f 6e 74  |Name_New$+".Font|
00002710  4d 65 6e 75 22 29 0d 01  09 2f 20 20 20 20 ff 28  |Menu").../    .(|
00002720  22 52 65 6d 6f 76 65 20  22 2b 46 69 6c 65 4e 61  |"Remove "+FileNa|
00002730  6d 65 5f 4e 65 77 24 2b  22 2e 4d 65 6e 75 55 74  |me_New$+".MenuUt|
00002740  69 6c 73 22 29 0d 01 0a  47 20 20 20 20 f2 73 68  |ils")...G    .sh|
00002750  65 6c 6c 5f 49 63 6f 6e  50 75 74 44 61 74 61 4e  |ell_IconPutDataN|
00002760  6f 77 28 6d 61 69 6e 77  25 2c 38 2c a4 73 68 65  |ow(mainw%,8,.she|
00002770  6c 6c 5f 4d 65 73 73 61  67 65 4e 6f 41 72 67 73  |ll_MessageNoArgs|
00002780  28 22 52 45 4d 63 6f 64  65 22 29 29 0d 01 0b 2f  |("REMcode")).../|
00002790  20 20 20 20 ff 28 22 52  65 6d 6f 76 65 20 22 2b  |    .("Remove "+|
000027a0  46 69 6c 65 4e 61 6d 65  5f 4e 65 77 24 2b 22 2e  |FileName_New$+".|
000027b0  53 68 65 6c 6c 4d 73 67  73 22 29 0d 01 0c 3c 20  |ShellMsgs")...< |
000027c0  20 20 20 ff 28 22 52 65  6d 6f 76 65 20 22 2b 46  |   .("Remove "+F|
000027d0  69 6c 65 4e 61 6d 65 5f  4e 65 77 24 2b 22 2e 52  |ileName_New$+".R|
000027e0  65 73 6f 75 72 63 65 73  2e 55 4b 2e 53 68 65 6c  |esources.UK.Shel|
000027f0  6c 4d 73 67 73 22 29 0d  01 0d 2e 20 20 20 20 ff  |lMsgs")....    .|
00002800  28 22 52 65 6d 6f 76 65  20 22 2b 46 69 6c 65 4e  |("Remove "+FileN|
00002810  61 6d 65 5f 4e 65 77 24  2b 22 2e 48 65 61 70 43  |ame_New$+".HeapC|
00002820  6f 64 65 22 29 0d 01 0e  2e 20 20 20 20 ff 28 22  |ode")....    .("|
00002830  52 65 6d 6f 76 65 20 22  2b 46 69 6c 65 4e 61 6d  |Remove "+FileNam|
00002840  65 5f 4e 65 77 24 2b 22  2e 53 68 65 6c 6c 4c 69  |e_New$+".ShellLi|
00002850  62 22 29 0d 01 0f 30 20  20 20 20 ff 28 22 52 65  |b")...0    .("Re|
00002860  6d 6f 76 65 20 22 2b 46  69 6c 65 4e 61 6d 65 5f  |move "+FileName_|
00002870  4e 65 77 24 2b 22 2e 53  68 65 6c 6c 4c 69 62 52  |New$+".ShellLibR|
00002880  54 22 29 0d 01 10 47 20  20 20 20 f2 73 68 65 6c  |T")...G    .shel|
00002890  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 4e 6f 77  |l_IconPutDataNow|
000028a0  28 6d 61 69 6e 77 25 2c  38 2c a4 73 68 65 6c 6c  |(mainw%,8,.shell|
000028b0  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
000028c0  45 64 69 74 52 75 6e 22  29 29 0d 01 11 59 20 20  |EditRun"))...Y  |
000028d0  20 20 f2 45 64 69 74 5f  46 69 6c 65 28 52 75 6e  |  .Edit_File(Run|
000028e0  46 69 6c 65 24 2c 52 75  6e 46 69 6c 65 24 2c 22  |File$,RunFile$,"|
000028f0  52 4d 4c 6f 61 64 20 3c  4f 62 65 79 24 44 69 72  |RMLoad <Obey$Dir|
00002900  3e 2e 22 2c 22 52 4d 4c  6f 61 64 20 3c 45 76 6e  |>.","RMLoad <Evn|
00002910  74 53 68 65 6c 6c 24 50  61 74 68 3e 22 2c 26 46  |tShell$Path>",&F|
00002920  45 42 29 0d 01 12 46 20  20 20 20 f2 73 68 65 6c  |EB)...F    .shel|
00002930  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 4e 6f 77  |l_IconPutDataNow|
00002940  28 6d 61 69 6e 77 25 2c  38 2c a4 73 68 65 6c 6c  |(mainw%,8,.shell|
00002950  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00002960  50 72 6f 63 52 49 22 29  29 0d 01 13 19 20 20 20  |ProcRI"))....   |
00002970  20 f2 73 68 65 6c 6c 5f  45 6e 73 75 72 65 50 6f  | .shell_EnsurePo|
00002980  6c 6c 0d 01 14 4d 20 20  20 20 f2 45 64 69 74 5f  |ll...M    .Edit_|
00002990  42 61 73 69 63 50 72 6f  67 28 52 75 6e 49 6d 61  |BasicProg(RunIma|
000029a0  67 65 24 2c 52 75 6e 49  6d 61 67 65 24 2c 22 3c  |ge$,RunImage$,"<|
000029b0  4f 62 65 79 24 44 69 72  3e 2e 22 2c 22 3c 45 76  |Obey$Dir>.","<Ev|
000029c0  6e 74 53 68 65 6c 6c 24  50 61 74 68 3e 22 29 0d  |ntShell$Path>").|
000029d0  01 15 07 20 20 cd 0d 01  16 43 20 20 f2 45 64 69  |...  ....C  .Edi|
000029e0  74 5f 42 61 73 69 63 50  72 6f 67 28 52 75 6e 49  |t_BasicProg(RunI|
000029f0  6d 61 67 65 24 2c 52 75  6e 49 6d 61 67 65 24 2c  |mage$,RunImage$,|
00002a00  22 53 68 65 6c 6c 4c 69  62 52 54 22 2c 22 a3 a3  |"ShellLibRT","..|
00002a10  a3 a3 a3 a3 a3 a3 a3 22  29 0d 01 17 41 20 20 f2  |.......")...A  .|
00002a20  45 64 69 74 5f 42 61 73  69 63 50 72 6f 67 28 52  |Edit_BasicProg(R|
00002a30  75 6e 49 6d 61 67 65 24  2c 52 75 6e 49 6d 61 67  |unImage$,RunImag|
00002a40  65 24 2c 22 53 68 65 6c  6c 4c 69 62 22 2c 22 a3  |e$,"ShellLib",".|
00002a50  a3 a3 a3 a3 a3 a3 a3 a3  22 29 0d 01 18 2a 20 20  |........")...*  |
00002a60  e7 20 a4 73 68 65 6c 6c  5f 49 73 49 63 6f 6e 53  |. .shell_IsIconS|
00002a70  65 6c 65 63 74 65 64 28  6d 61 69 6e 77 25 2c 31  |elected(mainw%,1|
00002a80  31 29 20 8c 0d 01 19 20  20 20 20 20 f4 20 75 73  |1) ....     . us|
00002a90  65 20 72 75 6e 74 69 6d  65 20 6c 69 62 72 61 72  |e runtime librar|
00002aa0  79 2e 2e 2e 0d 01 1a 45  20 20 20 20 f2 45 64 69  |y......E    .Edi|
00002ab0  74 5f 42 61 73 69 63 50  72 6f 67 28 52 75 6e 49  |t_BasicProg(RunI|
00002ac0  6d 61 67 65 24 2c 52 75  6e 49 6d 61 67 65 24 2c  |mage$,RunImage$,|
00002ad0  22 a3 a3 a3 a3 a3 a3 a3  a3 a3 22 2c 22 53 68 65  |".........","She|
00002ae0  6c 6c 4c 69 62 52 54 22  29 0d 01 1b 07 20 20 cc  |llLibRT")....  .|
00002af0  0d 01 1c 1c 20 20 20 20  f4 20 75 73 65 20 66 75  |....    . use fu|
00002b00  6c 6c 20 6c 69 62 72 61  72 79 2e 2e 0d 01 1d 43  |ll library.....C|
00002b10  20 20 20 20 f2 45 64 69  74 5f 42 61 73 69 63 50  |    .Edit_BasicP|
00002b20  72 6f 67 28 52 75 6e 49  6d 61 67 65 24 2c 52 75  |rog(RunImage$,Ru|
00002b30  6e 49 6d 61 67 65 24 2c  22 a3 a3 a3 a3 a3 a3 a3  |nImage$,".......|
00002b40  a3 a3 22 2c 22 53 68 65  6c 6c 4c 69 62 22 29 0d  |..","ShellLib").|
00002b50  01 1e 07 20 20 cd 0d 01  1f 05 cd 0d 01 20 43 f2  |...  ........ C.|
00002b60  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
00002b70  61 28 6d 61 69 6e 77 25  2c 38 2c a4 73 68 65 6c  |a(mainw%,8,.shel|
00002b80  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
00002b90  22 57 61 69 74 69 6e 67  22 29 2c 2d 31 29 0d 01  |"Waiting"),-1)..|
00002ba0  21 41 f2 73 68 65 6c 6c  5f 49 63 6f 6e 62 61 72  |!A.shell_Iconbar|
00002bb0  53 65 74 54 65 78 74 28  2d 31 2c 73 69 63 6f 6e  |SetText(-1,sicon|
00002bc0  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
00002bd0  6f 41 72 67 73 28 22 52  65 61 64 79 22 29 29 0d  |oArgs("Ready")).|
00002be0  01 22 1e f2 73 68 65 6c  6c 5f 43 6c 6f 73 65 57  |."..shell_CloseW|
00002bf0  69 6e 64 6f 77 28 6d 61  69 6e 77 25 29 0d 01 23  |indow(mainw%)..#|
00002c00  05 e1 0d 01 24 05 3a 0d  01 25 1b dd 20 f2 43 6f  |....$.:..%.. .Co|
00002c10  70 79 5f 53 68 65 6c 6c  4d 73 67 28 64 65 73 74  |py_ShellMsg(dest|
00002c20  24 29 0d 01 26 46 f2 73  68 65 6c 6c 5f 49 63 6f  |$)..&F.shell_Ico|
00002c30  6e 50 75 74 44 61 74 61  4e 6f 77 28 6d 61 69 6e  |nPutDataNow(main|
00002c40  77 25 2c 38 2c a4 73 68  65 6c 6c 5f 4d 65 73 73  |w%,8,.shell_Mess|
00002c50  61 67 65 4e 6f 41 72 67  73 28 22 43 6f 70 79 53  |ageNoArgs("CopyS|
00002c60  68 4d 65 73 73 22 29 29  0d 01 27 28 e7 20 a4 73  |hMess"))..'(. .s|
00002c70  68 65 6c 6c 5f 49 73 49  63 6f 6e 53 65 6c 65 63  |hell_IsIconSelec|
00002c80  74 65 64 28 6d 61 69 6e  77 25 2c 31 32 29 20 8c  |ted(mainw%,12) .|
00002c90  0d 01 28 4d 20 20 ff 28  22 43 4f 50 59 20 45 76  |..(M  .("COPY Ev|
00002ca0  6e 74 53 68 65 6c 6c 52  65 73 3a 53 68 65 6c 6c  |ntShellRes:Shell|
00002cb0  4d 73 67 73 20 22 2b 64  65 73 74 24 2b 22 2e 52  |Msgs "+dest$+".R|
00002cc0  65 73 6f 75 72 63 65 73  2e 55 4b 2e 53 68 65 6c  |esources.UK.Shel|
00002cd0  6c 4d 73 67 73 20 7e 43  20 7e 56 22 29 0d 01 29  |lMsgs ~C ~V")..)|
00002ce0  05 cc 0d 01 2a 40 20 20  ff 28 22 43 4f 50 59 20  |....*@  .("COPY |
00002cf0  45 76 6e 74 53 68 65 6c  6c 52 65 73 3a 53 68 65  |EvntShellRes:She|
00002d00  6c 6c 4d 73 67 73 20 22  2b 64 65 73 74 24 2b 22  |llMsgs "+dest$+"|
00002d10  2e 53 68 65 6c 6c 4d 73  67 73 20 7e 43 20 7e 56  |.ShellMsgs ~C ~V|
00002d20  22 29 0d 01 2b 05 cd 0d  01 2c 29 f2 73 68 65 6c  |")..+....,).shel|
00002d30  6c 5f 41 63 74 69 6f 6e  28 a4 73 68 65 6c 6c 5f  |l_Action(.shell_|
00002d40  50 6f 6c 6c 5f 49 28 30  2c 74 61 73 6b 25 29 29  |Poll_I(0,task%))|
00002d50  0d 01 2d 05 e1 0d 01 2e  05 3a 0d 01 2f 1a dd 20  |..-......:../.. |
00002d60  f2 43 6f 70 79 5f 4d 6f  64 75 6c 65 73 28 64 65  |.Copy_Modules(de|
00002d70  73 74 24 29 0d 01 30 45  f2 73 68 65 6c 6c 5f 49  |st$)..0E.shell_I|
00002d80  63 6f 6e 50 75 74 44 61  74 61 4e 6f 77 28 6d 61  |conPutDataNow(ma|
00002d90  69 6e 77 25 2c 38 2c a4  73 68 65 6c 6c 5f 4d 65  |inw%,8,.shell_Me|
00002da0  73 73 61 67 65 4e 6f 41  72 67 73 28 22 43 6f 70  |ssageNoArgs("Cop|
00002db0  79 46 4d 4d 6f 64 22 29  29 0d 01 31 3f ff 28 22  |yFMMod"))..1?.("|
00002dc0  43 4f 50 59 20 3c 45 76  6e 74 53 68 65 6c 6c 24  |COPY <EvntShell$|
00002dd0  50 61 74 68 3e 46 6f 6e  74 4d 65 6e 75 20 22 2b  |Path>FontMenu "+|
00002de0  64 65 73 74 24 2b 22 2e  46 6f 6e 74 4d 65 6e 75  |dest$+".FontMenu|
00002df0  20 7e 43 20 7e 56 22 29  0d 01 32 2b f2 73 68 65  | ~C ~V")..2+.she|
00002e00  6c 6c 5f 41 63 74 69 6f  6e 28 a4 73 68 65 6c 6c  |ll_Action(.shell|
00002e10  5f 50 6f 6c 6c 5f 49 28  30 2c 5f 55 25 21 31 34  |_Poll_I(0,_U%!14|
00002e20  38 29 29 0d 01 33 04 0d  01 34 45 f2 73 68 65 6c  |8))..3...4E.shel|
00002e30  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 4e 6f 77  |l_IconPutDataNow|
00002e40  28 6d 61 69 6e 77 25 2c  38 2c a4 73 68 65 6c 6c  |(mainw%,8,.shell|
00002e50  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00002e60  43 6f 70 79 49 46 4d 6f  64 22 29 29 0d 01 35 41  |CopyIFMod"))..5A|
00002e70  ff 28 22 43 4f 50 59 20  3c 45 76 6e 74 53 68 65  |.("COPY <EvntShe|
00002e80  6c 6c 24 50 61 74 68 3e  49 6e 74 65 72 66 61 63  |ll$Path>Interfac|
00002e90  65 20 22 2b 64 65 73 74  24 2b 22 2e 49 6e 74 65  |e "+dest$+".Inte|
00002ea0  72 66 61 63 65 20 7e 43  20 7e 56 22 29 0d 01 36  |rface ~C ~V")..6|
00002eb0  2b f2 73 68 65 6c 6c 5f  41 63 74 69 6f 6e 28 a4  |+.shell_Action(.|
00002ec0  73 68 65 6c 6c 5f 50 6f  6c 6c 5f 49 28 30 2c 5f  |shell_Poll_I(0,_|
00002ed0  55 25 21 31 34 38 29 29  0d 01 37 04 0d 01 38 45  |U%!148))..7...8E|
00002ee0  f2 73 68 65 6c 6c 5f 49  63 6f 6e 50 75 74 44 61  |.shell_IconPutDa|
00002ef0  74 61 4e 6f 77 28 6d 61  69 6e 77 25 2c 38 2c a4  |taNow(mainw%,8,.|
00002f00  73 68 65 6c 6c 5f 4d 65  73 73 61 67 65 4e 6f 41  |shell_MessageNoA|
00002f10  72 67 73 28 22 43 6f 70  79 4d 55 4d 6f 64 22 29  |rgs("CopyMUMod")|
00002f20  29 0d 01 39 41 ff 28 22  43 4f 50 59 20 3c 45 76  |)..9A.("COPY <Ev|
00002f30  6e 74 53 68 65 6c 6c 24  50 61 74 68 3e 4d 65 6e  |ntShell$Path>Men|
00002f40  75 55 74 69 6c 73 20 22  2b 64 65 73 74 24 2b 22  |uUtils "+dest$+"|
00002f50  2e 4d 65 6e 75 55 74 69  6c 73 20 7e 43 20 7e 56  |.MenuUtils ~C ~V|
00002f60  22 29 0d 01 3a 2b f2 73  68 65 6c 6c 5f 41 63 74  |")..:+.shell_Act|
00002f70  69 6f 6e 28 a4 73 68 65  6c 6c 5f 50 6f 6c 6c 5f  |ion(.shell_Poll_|
00002f80  49 28 30 2c 5f 55 25 21  31 34 38 29 29 0d 01 3b  |I(0,_U%!148))..;|
00002f90  04 0d 01 3c 45 f2 73 68  65 6c 6c 5f 49 63 6f 6e  |...<E.shell_Icon|
00002fa0  50 75 74 44 61 74 61 4e  6f 77 28 6d 61 69 6e 77  |PutDataNow(mainw|
00002fb0  25 2c 38 2c a4 73 68 65  6c 6c 5f 4d 65 73 73 61  |%,8,.shell_Messa|
00002fc0  67 65 4e 6f 41 72 67 73  28 22 43 6f 70 79 4d 54  |geNoArgs("CopyMT|
00002fd0  4d 6f 64 22 29 29 0d 01  3d 3f ff 28 22 43 4f 50  |Mod"))..=?.("COP|
00002fe0  59 20 3c 45 76 6e 74 53  68 65 6c 6c 24 50 61 74  |Y <EvntShell$Pat|
00002ff0  68 3e 4d 73 67 54 72 61  6e 73 20 22 2b 64 65 73  |h>MsgTrans "+des|
00003000  74 24 2b 22 2e 4d 73 67  54 72 61 6e 73 20 7e 43  |t$+".MsgTrans ~C|
00003010  20 7e 56 22 29 0d 01 3e  2b f2 73 68 65 6c 6c 5f  | ~V")..>+.shell_|
00003020  41 63 74 69 6f 6e 28 a4  73 68 65 6c 6c 5f 50 6f  |Action(.shell_Po|
00003030  6c 6c 5f 49 28 30 2c 5f  55 25 21 31 34 38 29 29  |ll_I(0,_U%!148))|
00003040  0d 01 3f 05 e1 0d 01 40  05 3a 0d 01 41 19 dd 20  |..?....@.:..A.. |
00003050  f2 43 72 65 61 74 65 5f  4e 65 77 28 66 6e 61 6d  |.Create_New(fnam|
00003060  65 24 29 0d 01 42 1a ea  20 70 61 74 68 24 2c 6c  |e$)..B.. path$,l|
00003070  69 62 24 2c 6e 65 77 5f  6e 61 6d 65 24 0d 01 43  |ib$,new_name$..C|
00003080  21 6e 65 77 5f 6e 61 6d  65 24 3d a4 73 68 65 6c  |!new_name$=.shel|
00003090  6c 5f 4c 65 61 66 28 66  6e 61 6d 65 24 29 0d 01  |l_Leaf(fname$)..|
000030a0  44 1a 70 61 74 68 24 3d  a4 73 68 65 6c 6c 5f 47  |D.path$=.shell_G|
000030b0  65 74 41 70 70 44 69 72  0d 01 45 40 f2 73 68 65  |etAppDir..E@.she|
000030c0  6c 6c 5f 49 63 6f 6e 62  61 72 53 65 74 54 65 78  |ll_IconbarSetTex|
000030d0  74 28 2d 31 2c 73 69 63  6f 6e 2c a4 73 68 65 6c  |t(-1,sicon,.shel|
000030e0  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
000030f0  22 42 75 73 79 22 29 29  0d 01 46 39 66 6e 61 6d  |"Busy"))..F9fnam|
00003100  65 24 3d a4 73 68 65 6c  6c 5f 42 72 61 6e 63 68  |e$=.shell_Branch|
00003110  28 66 6e 61 6d 65 24 29  2b 22 2e 21 22 2b a4 73  |(fname$)+".!"+.s|
00003120  68 65 6c 6c 5f 4c 65 61  66 28 66 6e 61 6d 65 24  |hell_Leaf(fname$|
00003130  29 0d 01 47 04 0d 01 48  42 f2 73 68 65 6c 6c 5f  |)..G...HB.shell_|
00003140  49 63 6f 6e 50 75 74 44  61 74 61 4e 6f 77 28 6d  |IconPutDataNow(m|
00003150  61 69 6e 77 25 2c 38 2c  a4 73 68 65 6c 6c 5f 4d  |ainw%,8,.shell_M|
00003160  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 43 72  |essageNoArgs("Cr|
00003170  65 61 74 65 22 29 29 0d  01 49 15 ff 28 22 43 44  |eate"))..I..("CD|
00003180  49 52 20 22 2b 66 6e 61  6d 65 24 29 0d 01 4a 28  |IR "+fname$)..J(|
00003190  e7 20 a4 73 68 65 6c 6c  5f 49 73 49 63 6f 6e 53  |. .shell_IsIconS|
000031a0  65 6c 65 63 74 65 64 28  6d 61 69 6e 77 25 2c 31  |elected(mainw%,1|
000031b0  32 29 20 8c 0d 01 4b 24  20 20 ff 28 22 43 44 49  |2) ...K$  .("CDI|
000031c0  52 20 22 2b 66 6e 61 6d  65 24 2b 22 2e 52 65 73  |R "+fname$+".Res|
000031d0  6f 75 72 63 65 73 22 29  0d 01 4c 27 20 20 ff 28  |ources")..L'  .(|
000031e0  22 43 44 49 52 20 22 2b  66 6e 61 6d 65 24 2b 22  |"CDIR "+fname$+"|
000031f0  2e 52 65 73 6f 75 72 63  65 73 2e 55 4b 22 29 0d  |.Resources.UK").|
00003200  01 4d 40 20 20 ff 28 22  43 44 49 52 20 22 2b 66  |.M@  .("CDIR "+f|
00003210  6e 61 6d 65 24 2b 22 2e  52 65 73 6f 75 72 63 65  |name$+".Resource|
00003220  73 2e 55 4b 2e 22 2b c1  a4 73 68 65 6c 6c 5f 4c  |s.UK."+..shell_L|
00003230  65 61 66 28 66 6e 61 6d  65 24 29 2c 32 29 29 0d  |eaf(fname$),2)).|
00003240  01 4e 05 cc 0d 01 4f 2a  20 20 e7 20 a4 73 68 65  |.N....O*  . .she|
00003250  6c 6c 5f 49 73 49 63 6f  6e 53 65 6c 65 63 74 65  |ll_IsIconSelecte|
00003260  64 28 6d 61 69 6e 77 25  2c 31 33 29 20 8c 0d 01  |d(mainw%,13) ...|
00003270  50 35 20 20 20 20 ff 28  22 43 44 49 52 20 22 2b  |P5    .("CDIR "+|
00003280  66 6e 61 6d 65 24 2b 22  2e 22 2b c1 a4 73 68 65  |fname$+"."+..she|
00003290  6c 6c 5f 4c 65 61 66 28  66 6e 61 6d 65 24 29 2c  |ll_Leaf(fname$),|
000032a0  32 29 29 0d 01 51 07 20  20 cd 0d 01 52 05 cd 0d  |2))..Q.  ...R...|
000032b0  01 53 2b f2 73 68 65 6c  6c 5f 41 63 74 69 6f 6e  |.S+.shell_Action|
000032c0  28 a4 73 68 65 6c 6c 5f  50 6f 6c 6c 5f 49 28 30  |(.shell_Poll_I(0|
000032d0  2c 5f 55 25 21 31 34 38  29 29 0d 01 54 04 0d 01  |,_U%!148))..T...|
000032e0  55 45 f2 73 68 65 6c 6c  5f 49 63 6f 6e 50 75 74  |UE.shell_IconPut|
000032f0  44 61 74 61 4e 6f 77 28  6d 61 69 6e 77 25 2c 38  |DataNow(mainw%,8|
00003300  2c a4 73 68 65 6c 6c 5f  4d 65 73 73 61 67 65 4e  |,.shell_MessageN|
00003310  6f 41 72 67 73 28 22 43  6f 70 79 43 68 6b 53 70  |oArgs("CopyChkSp|
00003320  22 29 29 0d 01 56 2f f2  63 6f 70 79 5f 66 69 6c  |"))..V/.copy_fil|
00003330  65 28 66 6e 61 6d 65 24  2c 70 61 74 68 24 2b 22  |e(fname$,path$+"|
00003340  2e 4e 65 77 41 70 70 2e  43 68 6b 53 70 72 22 2c  |.NewApp.ChkSpr",|
00003350  30 29 0d 01 57 29 f2 73  68 65 6c 6c 5f 41 63 74  |0)..W).shell_Act|
00003360  69 6f 6e 28 a4 73 68 65  6c 6c 5f 50 6f 6c 6c 5f  |ion(.shell_Poll_|
00003370  49 28 30 2c 74 61 73 6b  25 29 29 0d 01 58 04 0d  |I(0,task%))..X..|
00003380  01 59 44 f2 73 68 65 6c  6c 5f 49 63 6f 6e 50 75  |.YD.shell_IconPu|
00003390  74 44 61 74 61 4e 6f 77  28 6d 61 69 6e 77 25 2c  |tDataNow(mainw%,|
000033a0  38 2c a4 73 68 65 6c 6c  5f 4d 65 73 73 61 67 65  |8,.shell_Message|
000033b0  4e 6f 41 72 67 73 28 22  57 72 69 74 65 52 75 6e  |NoArgs("WriteRun|
000033c0  22 29 29 0d 01 5a 2e f2  63 6f 70 79 5f 66 69 6c  |"))..Z..copy_fil|
000033d0  65 28 66 6e 61 6d 65 24  2c 70 61 74 68 24 2b 22  |e(fname$,path$+"|
000033e0  2e 4e 65 77 41 70 70 2e  21 52 75 6e 22 2c 2d 31  |.NewApp.!Run",-1|
000033f0  29 0d 01 5b 28 e7 20 a4  73 68 65 6c 6c 5f 49 73  |)..[(. .shell_Is|
00003400  49 63 6f 6e 53 65 6c 65  63 74 65 64 28 6d 61 69  |IconSelected(mai|
00003410  6e 77 25 2c 31 32 29 20  8c 0d 01 5c 43 20 20 f2  |nw%,12) ...\C  .|
00003420  65 64 69 74 5f 66 69 6c  65 28 66 6e 61 6d 65 24  |edit_file(fname$|
00003430  2b 22 2e 21 52 75 6e 22  2c 22 7c 53 65 74 20 44  |+".!Run","|Set D|
00003440  75 6d 6d 79 24 50 61 74  68 22 2c 22 53 65 74 20  |ummy$Path","Set |
00003450  44 75 6d 6d 79 24 50 61  74 68 22 29 0d 01 5d 3b  |Dummy$Path")..];|
00003460  20 20 f2 65 64 69 74 5f  66 69 6c 65 28 66 6e 61  |  .edit_file(fna|
00003470  6d 65 24 2b 22 2e 21 52  75 6e 22 2c 22 7c 52 75  |me$+".!Run","|Ru|
00003480  6e 20 44 75 6d 6d 79 3a  22 2c 22 52 75 6e 20 44  |n Dummy:","Run D|
00003490  75 6d 6d 79 3a 22 29 0d  01 5e 47 20 20 f2 65 64  |ummy:")..^G  .ed|
000034a0  69 74 5f 66 69 6c 65 28  66 6e 61 6d 65 24 2b 22  |it_file(fname$+"|
000034b0  2e 21 52 75 6e 22 2c 22  7c 55 6e 73 65 74 20 44  |.!Run","|Unset D|
000034c0  75 6d 6d 79 24 50 61 74  68 22 2c 22 55 6e 73 65  |ummy$Path","Unse|
000034d0  74 20 44 75 6d 6d 79 24  50 61 74 68 22 29 0d 01  |t Dummy$Path")..|
000034e0  5f 05 cd 0d 01 60 28 e7  20 a4 73 68 65 6c 6c 5f  |_....`(. .shell_|
000034f0  49 73 49 63 6f 6e 53 65  6c 65 63 74 65 64 28 6d  |IsIconSelected(m|
00003500  61 69 6e 77 25 2c 31 31  29 20 8c 0d 01 61 2e 20  |ainw%,11) ...a. |
00003510  20 f2 65 64 69 74 5f 66  69 6c 65 28 66 6e 61 6d  | .edit_file(fnam|
00003520  65 24 2b 22 2e 21 52 75  6e 22 2c 22 78 78 78 4b  |e$+".!Run","xxxK|
00003530  22 2c 22 31 32 38 4b 22  29 0d 01 62 2e 20 20 f2  |","128K")..b.  .|
00003540  65 64 69 74 5f 66 69 6c  65 28 66 6e 61 6d 65 24  |edit_file(fname$|
00003550  2b 22 2e 21 52 75 6e 22  2c 22 78 78 78 4b 22 2c  |+".!Run","xxxK",|
00003560  22 31 32 38 4b 22 29 0d  01 63 05 cc 0d 01 64 2e  |"128K")..c....d.|
00003570  20 20 f2 65 64 69 74 5f  66 69 6c 65 28 66 6e 61  |  .edit_file(fna|
00003580  6d 65 24 2b 22 2e 21 52  75 6e 22 2c 22 78 78 78  |me$+".!Run","xxx|
00003590  4b 22 2c 22 32 32 34 4b  22 29 0d 01 65 2e 20 20  |K","224K")..e.  |
000035a0  f2 65 64 69 74 5f 66 69  6c 65 28 66 6e 61 6d 65  |.edit_file(fname|
000035b0  24 2b 22 2e 21 52 75 6e  22 2c 22 78 78 78 4b 22  |$+".!Run","xxxK"|
000035c0  2c 22 32 32 34 4b 22 29  0d 01 66 05 cd 0d 01 67  |,"224K")..f....g|
000035d0  04 0d 01 68 45 f2 73 68  65 6c 6c 5f 49 63 6f 6e  |...hE.shell_Icon|
000035e0  50 75 74 44 61 74 61 4e  6f 77 28 6d 61 69 6e 77  |PutDataNow(mainw|
000035f0  25 2c 38 2c a4 73 68 65  6c 6c 5f 4d 65 73 73 61  |%,8,.shell_Messa|
00003600  67 65 4e 6f 41 72 67 73  28 22 57 72 69 74 65 4d  |geNoArgs("WriteM|
00003610  65 73 73 22 29 29 0d 01  69 28 e7 20 a4 73 68 65  |ess"))..i(. .she|
00003620  6c 6c 5f 49 73 49 63 6f  6e 53 65 6c 65 63 74 65  |ll_IsIconSelecte|
00003630  64 28 6d 61 69 6e 77 25  2c 31 32 29 20 8c 0d 01  |d(mainw%,12) ...|
00003640  6a 50 20 20 ff 28 22 43  4f 50 59 20 22 2b 70 61  |jP  .("COPY "+pa|
00003650  74 68 24 2b 22 2e 4e 65  77 41 70 70 2e 4d 65 73  |th$+".NewApp.Mes|
00003660  73 61 67 65 73 20 22 2b  66 6e 61 6d 65 24 2b 22  |sages "+fname$+"|
00003670  2e 52 65 73 6f 75 72 63  65 73 2e 55 4b 2e 4d 65  |.Resources.UK.Me|
00003680  73 73 61 67 65 73 20 7e  43 20 7e 56 22 29 0d 01  |ssages ~C ~V")..|
00003690  6b 54 20 20 ff 28 22 43  4f 50 59 20 3c 45 76 6e  |kT  .("COPY <Evn|
000036a0  74 53 68 65 6c 6c 24 50  61 74 68 3e 52 65 73 6f  |tShell$Path>Reso|
000036b0  75 72 63 65 73 2e 52 65  73 46 69 6e 64 20 22 2b  |urces.ResFind "+|
000036c0  66 6e 61 6d 65 24 2b 22  2e 52 65 73 6f 75 72 63  |fname$+".Resourc|
000036d0  65 73 2e 52 65 73 46 69  6e 64 20 7e 43 20 7e 56  |es.ResFind ~C ~V|
000036e0  22 29 0d 01 6c 47 20 20  f2 65 64 69 74 5f 66 69  |")..lG  .edit_fi|
000036f0  6c 65 28 66 6e 61 6d 65  24 2b 22 2e 52 65 73 6f  |le(fname$+".Reso|
00003700  75 72 63 65 73 2e 55 4b  2e 4d 65 73 73 61 67 65  |urces.UK.Message|
00003710  73 22 2c 22 40 40 40 40  40 40 40 40 40 22 2c 6e  |s","@@@@@@@@@",n|
00003720  65 77 5f 6e 61 6d 65 24  29 0d 01 6d 38 20 20 ff  |ew_name$)..m8  .|
00003730  28 22 53 65 74 54 79 70  65 20 22 2b 66 6e 61 6d  |("SetType "+fnam|
00003740  65 24 2b 22 2e 52 65 73  6f 75 72 63 65 73 2e 55  |e$+".Resources.U|
00003750  4b 2e 4d 65 73 73 61 67  65 73 20 26 46 46 46 22  |K.Messages &FFF"|
00003760  29 0d 01 6e 05 cc 0d 01  6f 34 20 20 f2 63 6f 70  |)..n....o4  .cop|
00003770  79 5f 66 69 6c 65 28 66  6e 61 6d 65 24 2c 70 61  |y_file(fname$,pa|
00003780  74 68 24 2b 22 2e 4e 65  77 41 70 70 2e 4d 65 73  |th$+".NewApp.Mes|
00003790  73 61 67 65 73 22 2c 2d  31 29 0d 01 70 05 cd 0d  |sages",-1)..p...|
000037a0  01 71 29 f2 73 68 65 6c  6c 5f 41 63 74 69 6f 6e  |.q).shell_Action|
000037b0  28 a4 73 68 65 6c 6c 5f  50 6f 6c 6c 5f 49 28 30  |(.shell_Poll_I(0|
000037c0  2c 74 61 73 6b 25 29 29  0d 01 72 04 0d 01 73 45  |,task%))..r...sE|
000037d0  f2 73 68 65 6c 6c 5f 49  63 6f 6e 50 75 74 44 61  |.shell_IconPutDa|
000037e0  74 61 4e 6f 77 28 6d 61  69 6e 77 25 2c 38 2c a4  |taNow(mainw%,8,.|
000037f0  73 68 65 6c 6c 5f 4d 65  73 73 61 67 65 4e 6f 41  |shell_MessageNoA|
00003800  72 67 73 28 22 57 72 69  74 65 54 65 6d 70 22 29  |rgs("WriteTemp")|
00003810  29 0d 01 74 32 f2 63 6f  70 79 5f 66 69 6c 65 28  |)..t2.copy_file(|
00003820  66 6e 61 6d 65 24 2c 70  61 74 68 24 2b 22 2e 4e  |fname$,path$+".N|
00003830  65 77 41 70 70 2e 54 65  6d 70 6c 61 74 65 73 22  |ewApp.Templates"|
00003840  2c 30 29 0d 01 75 29 f2  73 68 65 6c 6c 5f 41 63  |,0)..u).shell_Ac|
00003850  74 69 6f 6e 28 a4 73 68  65 6c 6c 5f 50 6f 6c 6c  |tion(.shell_Poll|
00003860  5f 49 28 30 2c 74 61 73  6b 25 29 29 0d 01 76 04  |_I(0,task%))..v.|
00003870  0d 01 77 45 f2 73 68 65  6c 6c 5f 49 63 6f 6e 50  |..wE.shell_IconP|
00003880  75 74 44 61 74 61 4e 6f  77 28 6d 61 69 6e 77 25  |utDataNow(mainw%|
00003890  2c 38 2c a4 73 68 65 6c  6c 5f 4d 65 73 73 61 67  |,8,.shell_Messag|
000038a0  65 4e 6f 41 72 67 73 28  22 57 72 69 74 65 53 70  |eNoArgs("WriteSp|
000038b0  72 30 22 29 29 0d 01 78  3f 73 70 72 69 74 65 61  |r0"))..x?spritea|
000038c0  72 65 61 25 3d a4 73 68  65 6c 6c 5f 53 70 72 69  |rea%=.shell_Spri|
000038d0  74 65 41 72 65 61 4c 6f  61 64 28 70 61 74 68 24  |teAreaLoad(path$|
000038e0  2b 22 2e 4e 65 77 41 70  70 2e 21 53 70 72 69 74  |+".NewApp.!Sprit|
000038f0  65 73 22 29 0d 01 79 42  f2 73 68 65 6c 6c 5f 53  |es")..yB.shell_S|
00003900  70 72 69 74 65 52 65 6e  61 6d 65 28 73 70 72 69  |priteRename(spri|
00003910  74 65 61 72 65 61 25 2c  22 21 6e 65 77 61 70 70  |tearea%,"!newapp|
00003920  22 2c a4 73 68 65 6c 6c  5f 4c 65 61 66 28 66 6e  |",.shell_Leaf(fn|
00003930  61 6d 65 24 29 29 0d 01  7a 4e f2 73 68 65 6c 6c  |ame$))..zN.shell|
00003940  5f 53 70 72 69 74 65 52  65 6e 61 6d 65 28 73 70  |_SpriteRename(sp|
00003950  72 69 74 65 61 72 65 61  25 2c 22 69 63 5f 6e 65  |ritearea%,"ic_ne|
00003960  77 61 70 70 22 2c 22 69  63 5f 22 2b c1 a4 73 68  |wapp","ic_"+..sh|
00003970  65 6c 6c 5f 4c 65 61 66  28 66 6e 61 6d 65 24 29  |ell_Leaf(fname$)|
00003980  2c 32 29 29 0d 01 7b 39  f2 73 68 65 6c 6c 5f 53  |,2))..{9.shell_S|
00003990  70 72 69 74 65 41 72 65  61 53 61 76 65 28 73 70  |priteAreaSave(sp|
000039a0  72 69 74 65 61 72 65 61  25 2c 66 6e 61 6d 65 24  |ritearea%,fname$|
000039b0  2b 22 2e 21 53 70 72 69  74 65 73 22 29 0d 01 7c  |+".!Sprites")..||
000039c0  27 f2 73 68 65 6c 6c 5f  48 65 61 70 42 6c 6f 63  |'.shell_HeapBloc|
000039d0  6b 52 65 74 75 72 6e 28  73 70 72 69 74 65 61 72  |kReturn(spritear|
000039e0  65 61 25 29 0d 01 7d 29  f2 73 68 65 6c 6c 5f 41  |ea%)..}).shell_A|
000039f0  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
00003a00  6c 5f 49 28 30 2c 74 61  73 6b 25 29 29 0d 01 7e  |l_I(0,task%))..~|
00003a10  04 0d 01 7f 45 f2 73 68  65 6c 6c 5f 49 63 6f 6e  |....E.shell_Icon|
00003a20  50 75 74 44 61 74 61 4e  6f 77 28 6d 61 69 6e 77  |PutDataNow(mainw|
00003a30  25 2c 38 2c a4 73 68 65  6c 6c 5f 4d 65 73 73 61  |%,8,.shell_Messa|
00003a40  67 65 4e 6f 41 72 67 73  28 22 57 72 69 74 65 53  |geNoArgs("WriteS|
00003a50  70 72 31 22 29 29 0d 01  80 41 73 70 72 69 74 65  |pr1"))...Asprite|
00003a60  61 72 65 61 25 3d a4 73  68 65 6c 6c 5f 53 70 72  |area%=.shell_Spr|
00003a70  69 74 65 41 72 65 61 4c  6f 61 64 28 70 61 74 68  |iteAreaLoad(path|
00003a80  24 2b 22 2e 4e 65 77 41  70 70 2e 21 53 70 72 69  |$+".NewApp.!Spri|
00003a90  74 65 73 32 32 22 29 0d  01 81 42 f2 73 68 65 6c  |tes22")...B.shel|
00003aa0  6c 5f 53 70 72 69 74 65  52 65 6e 61 6d 65 28 73  |l_SpriteRename(s|
00003ab0  70 72 69 74 65 61 72 65  61 25 2c 22 21 6e 65 77  |pritearea%,"!new|
00003ac0  61 70 70 22 2c a4 73 68  65 6c 6c 5f 4c 65 61 66  |app",.shell_Leaf|
00003ad0  28 66 6e 61 6d 65 24 29  29 0d 01 82 4e f2 73 68  |(fname$))...N.sh|
00003ae0  65 6c 6c 5f 53 70 72 69  74 65 52 65 6e 61 6d 65  |ell_SpriteRename|
00003af0  28 73 70 72 69 74 65 61  72 65 61 25 2c 22 69 63  |(spritearea%,"ic|
00003b00  5f 6e 65 77 61 70 70 22  2c 22 69 63 5f 22 2b c1  |_newapp","ic_"+.|
00003b10  a4 73 68 65 6c 6c 5f 4c  65 61 66 28 66 6e 61 6d  |.shell_Leaf(fnam|
00003b20  65 24 29 2c 32 29 29 0d  01 83 3b f2 73 68 65 6c  |e$),2))...;.shel|
00003b30  6c 5f 53 70 72 69 74 65  41 72 65 61 53 61 76 65  |l_SpriteAreaSave|
00003b40  28 73 70 72 69 74 65 61  72 65 61 25 2c 66 6e 61  |(spritearea%,fna|
00003b50  6d 65 24 2b 22 2e 21 53  70 72 69 74 65 73 32 32  |me$+".!Sprites22|
00003b60  22 29 0d 01 84 27 f2 73  68 65 6c 6c 5f 48 65 61  |")...'.shell_Hea|
00003b70  70 42 6c 6f 63 6b 52 65  74 75 72 6e 28 73 70 72  |pBlockReturn(spr|
00003b80  69 74 65 61 72 65 61 25  29 0d 01 85 29 f2 73 68  |itearea%)...).sh|
00003b90  65 6c 6c 5f 41 63 74 69  6f 6e 28 a4 73 68 65 6c  |ell_Action(.shel|
00003ba0  6c 5f 50 6f 6c 6c 5f 49  28 30 2c 74 61 73 6b 25  |l_Poll_I(0,task%|
00003bb0  29 29 0d 01 86 04 0d 01  87 45 f2 73 68 65 6c 6c  |)).......E.shell|
00003bc0  5f 49 63 6f 6e 50 75 74  44 61 74 61 4e 6f 77 28  |_IconPutDataNow(|
00003bd0  6d 61 69 6e 77 25 2c 38  2c a4 73 68 65 6c 6c 5f  |mainw%,8,.shell_|
00003be0  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 57  |MessageNoArgs("W|
00003bf0  72 69 74 65 53 70 72 32  22 29 29 0d 01 88 30 f2  |riteSpr2"))...0.|
00003c00  63 6f 70 79 5f 66 69 6c  65 28 66 6e 61 6d 65 24  |copy_file(fname$|
00003c10  2c 70 61 74 68 24 2b 22  2e 4e 65 77 41 70 70 2e  |,path$+".NewApp.|
00003c20  53 70 72 69 74 65 73 22  2c 30 29 0d 01 89 29 f2  |Sprites",0)...).|
00003c30  73 68 65 6c 6c 5f 41 63  74 69 6f 6e 28 a4 73 68  |shell_Action(.sh|
00003c40  65 6c 6c 5f 50 6f 6c 6c  5f 49 28 30 2c 74 61 73  |ell_Poll_I(0,tas|
00003c50  6b 25 29 29 0d 01 8a 04  0d 01 8b 45 f2 73 68 65  |k%)).......E.she|
00003c60  6c 6c 5f 49 63 6f 6e 50  75 74 44 61 74 61 4e 6f  |ll_IconPutDataNo|
00003c70  77 28 6d 61 69 6e 77 25  2c 38 2c a4 73 68 65 6c  |w(mainw%,8,.shel|
00003c80  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
00003c90  22 57 72 69 74 65 53 70  72 33 22 29 29 0d 01 8c  |"WriteSpr3"))...|
00003ca0  32 f2 63 6f 70 79 5f 66  69 6c 65 28 66 6e 61 6d  |2.copy_file(fnam|
00003cb0  65 24 2c 70 61 74 68 24  2b 22 2e 4e 65 77 41 70  |e$,path$+".NewAp|
00003cc0  70 2e 53 70 72 69 74 65  73 32 32 22 2c 30 29 0d  |p.Sprites22",0).|
00003cd0  01 8d 29 f2 73 68 65 6c  6c 5f 41 63 74 69 6f 6e  |..).shell_Action|
00003ce0  28 a4 73 68 65 6c 6c 5f  50 6f 6c 6c 5f 49 28 30  |(.shell_Poll_I(0|
00003cf0  2c 74 61 73 6b 25 29 29  0d 01 8e 04 0d 01 8f 28  |,task%)).......(|
00003d00  e7 20 a4 73 68 65 6c 6c  5f 49 73 49 63 6f 6e 53  |. .shell_IsIconS|
00003d10  65 6c 65 63 74 65 64 28  6d 61 69 6e 77 25 2c 31  |elected(mainw%,1|
00003d20  33 29 20 8c 0d 01 90 47  20 20 f2 73 68 65 6c 6c  |3) ....G  .shell|
00003d30  5f 49 63 6f 6e 50 75 74  44 61 74 61 4e 6f 77 28  |_IconPutDataNow(|
00003d40  6d 61 69 6e 77 25 2c 38  2c a4 73 68 65 6c 6c 5f  |mainw%,8,.shell_|
00003d50  4d 65 73 73 61 67 65 4e  6f 41 72 67 73 28 22 43  |MessageNoArgs("C|
00003d60  6f 70 79 48 65 6c 70 44  22 29 29 0d 01 91 2a 20  |opyHelpD"))...* |
00003d70  20 e7 20 a4 73 68 65 6c  6c 5f 49 73 49 63 6f 6e  | . .shell_IsIcon|
00003d80  53 65 6c 65 63 74 65 64  28 6d 61 69 6e 77 25 2c  |Selected(mainw%,|
00003d90  31 32 29 20 8c 0d 01 92  76 20 20 20 20 ff 28 22  |12) ....v    .("|
00003da0  43 4f 50 59 20 20 22 2b  70 61 74 68 24 2b 22 2e  |COPY  "+path$+".|
00003db0  4e 65 77 41 70 70 2e 4e  65 77 41 70 70 2e 48 65  |NewApp.NewApp.He|
00003dc0  6c 70 44 61 74 61 20 22  2b 66 6e 61 6d 65 24 2b  |lpData "+fname$+|
00003dd0  22 2e 52 65 73 6f 75 72  63 65 73 2e 55 4b 2e 22  |".Resources.UK."|
00003de0  2b c1 a4 73 68 65 6c 6c  5f 4c 65 61 66 28 66 6e  |+..shell_Leaf(fn|
00003df0  61 6d 65 24 29 2c 32 29  2b 22 2e 48 65 6c 70 44  |ame$),2)+".HelpD|
00003e00  61 74 61 20 7e 43 20 7e  56 22 29 0d 01 93 07 20  |ata ~C ~V").... |
00003e10  20 cc 0d 01 94 69 20 20  20 20 ff 28 22 43 4f 50  | ....i    .("COP|
00003e20  59 20 20 22 2b 70 61 74  68 24 2b 22 2e 4e 65 77  |Y  "+path$+".New|
00003e30  41 70 70 2e 4e 65 77 41  70 70 2e 48 65 6c 70 44  |App.NewApp.HelpD|
00003e40  61 74 61 20 22 2b 66 6e  61 6d 65 24 2b 22 2e 22  |ata "+fname$+"."|
00003e50  2b c1 a4 73 68 65 6c 6c  5f 4c 65 61 66 28 66 6e  |+..shell_Leaf(fn|
00003e60  61 6d 65 24 29 2c 32 29  2b 22 2e 48 65 6c 70 44  |ame$),2)+".HelpD|
00003e70  61 74 61 20 7e 43 20 7e  56 22 29 0d 01 95 07 20  |ata ~C ~V").... |
00003e80  20 cd 0d 01 96 2b 20 20  f2 73 68 65 6c 6c 5f 41  | ....+  .shell_A|
00003e90  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
00003ea0  6c 5f 49 28 30 2c 74 61  73 6b 25 29 29 0d 01 97  |l_I(0,task%))...|
00003eb0  04 0d 01 98 47 20 20 f2  73 68 65 6c 6c 5f 49 63  |....G  .shell_Ic|
00003ec0  6f 6e 50 75 74 44 61 74  61 4e 6f 77 28 6d 61 69  |onPutDataNow(mai|
00003ed0  6e 77 25 2c 38 2c a4 73  68 65 6c 6c 5f 4d 65 73  |nw%,8,.shell_Mes|
00003ee0  73 61 67 65 4e 6f 41 72  67 73 28 22 43 6f 70 79  |sageNoArgs("Copy|
00003ef0  49 6e 64 65 78 22 29 29  0d 01 99 2a 20 20 e7 20  |Index"))...*  . |
00003f00  a4 73 68 65 6c 6c 5f 49  73 49 63 6f 6e 53 65 6c  |.shell_IsIconSel|
00003f10  65 63 74 65 64 28 6d 61  69 6e 77 25 2c 31 32 29  |ected(mainw%,12)|
00003f20  20 8c 0d 01 9a 70 20 20  20 20 ff 28 22 43 4f 50  | ....p    .("COP|
00003f30  59 20 20 22 2b 70 61 74  68 24 2b 22 2e 4e 65 77  |Y  "+path$+".New|
00003f40  41 70 70 2e 4e 65 77 41  70 70 2e 49 6e 64 65 78  |App.NewApp.Index|
00003f50  20 22 2b 66 6e 61 6d 65  24 2b 22 2e 52 65 73 6f  | "+fname$+".Reso|
00003f60  75 72 63 65 73 2e 55 4b  2e 22 2b c1 a4 73 68 65  |urces.UK."+..she|
00003f70  6c 6c 5f 4c 65 61 66 28  66 6e 61 6d 65 24 29 2c  |ll_Leaf(fname$),|
00003f80  32 29 2b 22 2e 49 6e 64  65 78 20 7e 43 20 7e 56  |2)+".Index ~C ~V|
00003f90  22 29 0d 01 9b 07 20 20  cc 0d 01 9c 63 20 20 20  |")....  ....c   |
00003fa0  20 ff 28 22 43 4f 50 59  20 20 22 2b 70 61 74 68  | .("COPY  "+path|
00003fb0  24 2b 22 2e 4e 65 77 41  70 70 2e 4e 65 77 41 70  |$+".NewApp.NewAp|
00003fc0  70 2e 49 6e 64 65 78 20  22 2b 66 6e 61 6d 65 24  |p.Index "+fname$|
00003fd0  2b 22 2e 22 2b c1 a4 73  68 65 6c 6c 5f 4c 65 61  |+"."+..shell_Lea|
00003fe0  66 28 66 6e 61 6d 65 24  29 2c 32 29 2b 22 2e 49  |f(fname$),2)+".I|
00003ff0  6e 64 65 78 20 7e 43 20  7e 56 22 29 0d 01 9d 07  |ndex ~C ~V")....|
00004000  20 20 cd 0d 01 9e 2b 20  20 f2 73 68 65 6c 6c 5f  |  ....+  .shell_|
00004010  41 63 74 69 6f 6e 28 a4  73 68 65 6c 6c 5f 50 6f  |Action(.shell_Po|
00004020  6c 6c 5f 49 28 30 2c 74  61 73 6b 25 29 29 0d 01  |ll_I(0,task%))..|
00004030  9f 05 cd 0d 01 a0 04 0d  01 a1 45 f2 73 68 65 6c  |..........E.shel|
00004040  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 4e 6f 77  |l_IconPutDataNow|
00004050  28 6d 61 69 6e 77 25 2c  38 2c a4 73 68 65 6c 6c  |(mainw%,8,.shell|
00004060  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
00004070  57 72 69 74 65 42 6f 6f  74 22 29 29 0d 01 a2 2f  |WriteBoot")).../|
00004080  f2 63 6f 70 79 5f 66 69  6c 65 28 66 6e 61 6d 65  |.copy_file(fname|
00004090  24 2c 70 61 74 68 24 2b  22 2e 4e 65 77 41 70 70  |$,path$+".NewApp|
000040a0  2e 21 42 6f 6f 74 22 2c  2d 31 29 0d 01 a3 04 0d  |.!Boot",-1).....|
000040b0  01 a4 44 f2 73 68 65 6c  6c 5f 49 63 6f 6e 50 75  |..D.shell_IconPu|
000040c0  74 44 61 74 61 4e 6f 77  28 6d 61 69 6e 77 25 2c  |tDataNow(mainw%,|
000040d0  38 2c a4 73 68 65 6c 6c  5f 4d 65 73 73 61 67 65  |8,.shell_Message|
000040e0  4e 6f 41 72 67 73 28 22  43 6f 70 79 48 65 6c 70  |NoArgs("CopyHelp|
000040f0  22 29 29 0d 01 a5 28 e7  20 a4 73 68 65 6c 6c 5f  |"))...(. .shell_|
00004100  49 73 49 63 6f 6e 53 65  6c 65 63 74 65 64 28 6d  |IsIconSelected(m|
00004110  61 69 6e 77 25 2c 31 32  29 20 8c 0d 01 a6 3f 20  |ainw%,12) ....? |
00004120  20 f2 63 6f 70 79 5f 66  69 6c 65 28 66 6e 61 6d  | .copy_file(fnam|
00004130  65 24 2b 22 2e 52 65 73  6f 75 72 63 65 73 2e 55  |e$+".Resources.U|
00004140  4b 22 2c 70 61 74 68 24  2b 22 2e 4e 65 77 41 70  |K",path$+".NewAp|
00004150  70 2e 48 65 6c 70 22 2c  30 29 0d 01 a7 31 20 20  |p.Help",0)...1  |
00004160  f2 63 6f 70 79 5f 66 69  6c 65 28 66 6e 61 6d 65  |.copy_file(fname|
00004170  24 2c 70 61 74 68 24 2b  22 2e 4e 65 77 41 70 70  |$,path$+".NewApp|
00004180  2e 21 48 65 6c 70 22 2c  2d 31 29 0d 01 a8 05 cc  |.!Help",-1).....|
00004190  0d 01 a9 2f 20 20 f2 63  6f 70 79 5f 66 69 6c 65  |.../  .copy_file|
000041a0  28 66 6e 61 6d 65 24 2c  70 61 74 68 24 2b 22 2e  |(fname$,path$+".|
000041b0  4e 65 77 41 70 70 2e 48  65 6c 70 22 2c 30 29 0d  |NewApp.Help",0).|
000041c0  01 aa 32 20 20 ff 28 22  52 65 6e 61 6d 65 20 22  |..2  .("Rename "|
000041d0  2b 66 6e 61 6d 65 24 2b  22 2e 48 65 6c 70 20 22  |+fname$+".Help "|
000041e0  2b 66 6e 61 6d 65 24 2b  22 2e 21 48 65 6c 70 22  |+fname$+".!Help"|
000041f0  29 0d 01 ab 05 cd 0d 01  ac 29 f2 73 68 65 6c 6c  |)........).shell|
00004200  5f 41 63 74 69 6f 6e 28  a4 73 68 65 6c 6c 5f 50  |_Action(.shell_P|
00004210  6f 6c 6c 5f 49 28 30 2c  74 61 73 6b 25 29 29 0d  |oll_I(0,task%)).|
00004220  01 ad 04 0d 01 ae 42 f2  73 68 65 6c 6c 5f 49 63  |......B.shell_Ic|
00004230  6f 6e 50 75 74 44 61 74  61 4e 6f 77 28 6d 61 69  |onPutDataNow(mai|
00004240  6e 77 25 2c 38 2c a4 73  68 65 6c 6c 5f 4d 65 73  |nw%,8,.shell_Mes|
00004250  73 61 67 65 4e 6f 41 72  67 73 28 22 50 72 6f 63  |sageNoArgs("Proc|
00004260  52 49 22 29 29 0d 01 af  50 f2 62 61 73 69 63 70  |RI"))...P.basicp|
00004270  72 6f 67 5f 70 72 6f 63  65 73 73 28 70 61 74 68  |rog_process(path|
00004280  24 2b 22 2e 4e 65 77 41  70 70 2e 21 52 75 6e 49  |$+".NewApp.!RunI|
00004290  6d 61 67 65 22 2c 66 6e  61 6d 65 24 2b 22 2e 22  |mage",fname$+"."|
000042a0  2b a4 73 68 65 6c 6c 5f  4c 65 61 66 28 66 6e 61  |+.shell_Leaf(fna|
000042b0  6d 65 24 29 29 0d 01 b0  04 0d 01 b1 28 e7 20 a4  |me$)).......(. .|
000042c0  73 68 65 6c 6c 5f 49 73  49 63 6f 6e 53 65 6c 65  |shell_IsIconSele|
000042d0  63 74 65 64 28 6d 61 69  6e 77 25 2c 31 30 29 20  |cted(mainw%,10) |
000042e0  8c 0d 01 b2 04 0d 01 b3  1b 20 20 f4 20 63 72 65  |.........  . cre|
000042f0  61 74 65 20 73 74 61 6e  64 61 6c 6f 6e 65 2e 2e  |ate standalone..|
00004300  0d 01 b4 06 20 20 0d 01  b5 1d 20 20 f4 20 63 6f  |....  ....  . co|
00004310  70 79 20 73 68 65 6c 6c  6d 73 67 73 20 66 69 6c  |py shellmsgs fil|
00004320  65 2e 2e 0d 01 b6 48 20  20 f2 73 68 65 6c 6c 5f  |e.....H  .shell_|
00004330  49 63 6f 6e 50 75 74 44  61 74 61 4e 6f 77 28 6d  |IconPutDataNow(m|
00004340  61 69 6e 77 25 2c 38 2c  a4 73 68 65 6c 6c 5f 4d  |ainw%,8,.shell_M|
00004350  65 73 73 61 67 65 4e 6f  41 72 67 73 28 22 43 6f  |essageNoArgs("Co|
00004360  70 79 53 68 4d 65 73 73  22 29 29 0d 01 b7 2a 20  |pyShMess"))...* |
00004370  20 e7 20 a4 73 68 65 6c  6c 5f 49 73 49 63 6f 6e  | . .shell_IsIcon|
00004380  53 65 6c 65 63 74 65 64  28 6d 61 69 6e 77 25 2c  |Selected(mainw%,|
00004390  31 32 29 20 8c 0d 01 b8  50 20 20 20 20 ff 28 22  |12) ....P    .("|
000043a0  43 4f 50 59 20 45 76 6e  74 53 68 65 6c 6c 52 65  |COPY EvntShellRe|
000043b0  73 3a 53 68 65 6c 6c 4d  73 67 73 20 22 2b 66 6e  |s:ShellMsgs "+fn|
000043c0  61 6d 65 24 2b 22 2e 52  65 73 6f 75 72 63 65 73  |ame$+".Resources|
000043d0  2e 55 4b 2e 53 68 65 6c  6c 4d 73 67 73 20 7e 43  |.UK.ShellMsgs ~C|
000043e0  20 7e 56 22 29 0d 01 b9  07 20 20 cc 0d 01 ba 43  | ~V")....  ....C|
000043f0  20 20 20 20 ff 28 22 43  4f 50 59 20 45 76 6e 74  |    .("COPY Evnt|
00004400  53 68 65 6c 6c 52 65 73  3a 53 68 65 6c 6c 4d 73  |ShellRes:ShellMs|
00004410  67 73 20 22 2b 66 6e 61  6d 65 24 2b 22 2e 53 68  |gs "+fname$+".Sh|
00004420  65 6c 6c 4d 73 67 73 20  7e 43 20 7e 56 22 29 0d  |ellMsgs ~C ~V").|
00004430  01 bb 07 20 20 cd 0d 01  bc 2b 20 20 f2 73 68 65  |...  ....+  .she|
00004440  6c 6c 5f 41 63 74 69 6f  6e 28 a4 73 68 65 6c 6c  |ll_Action(.shell|
00004450  5f 50 6f 6c 6c 5f 49 28  30 2c 74 61 73 6b 25 29  |_Poll_I(0,task%)|
00004460  29 0d 01 bd 06 20 20 0d  01 be 16 20 20 f4 20 63  |)....  ....  . c|
00004470  6f 70 79 20 6d 6f 64 75  6c 65 73 2e 2e 0d 01 bf  |opy modules.....|
00004480  47 20 20 f2 73 68 65 6c  6c 5f 49 63 6f 6e 50 75  |G  .shell_IconPu|
00004490  74 44 61 74 61 4e 6f 77  28 6d 61 69 6e 77 25 2c  |tDataNow(mainw%,|
000044a0  38 2c a4 73 68 65 6c 6c  5f 4d 65 73 73 61 67 65  |8,.shell_Message|
000044b0  4e 6f 41 72 67 73 28 22  43 6f 70 79 46 4d 4d 6f  |NoArgs("CopyFMMo|
000044c0  64 22 29 29 0d 01 c0 42  20 20 ff 28 22 43 4f 50  |d"))...B  .("COP|
000044d0  59 20 3c 45 76 6e 74 53  68 65 6c 6c 24 50 61 74  |Y <EvntShell$Pat|
000044e0  68 3e 46 6f 6e 74 4d 65  6e 75 20 22 2b 66 6e 61  |h>FontMenu "+fna|
000044f0  6d 65 24 2b 22 2e 46 6f  6e 74 4d 65 6e 75 20 7e  |me$+".FontMenu ~|
00004500  43 20 7e 56 22 29 0d 01  c1 2d 20 20 f2 73 68 65  |C ~V")...-  .she|
00004510  6c 6c 5f 41 63 74 69 6f  6e 28 a4 73 68 65 6c 6c  |ll_Action(.shell|
00004520  5f 50 6f 6c 6c 5f 49 28  30 2c 5f 55 25 21 31 34  |_Poll_I(0,_U%!14|
00004530  38 29 29 0d 01 c2 06 20  20 0d 01 c3 47 20 20 f2  |8))....  ...G  .|
00004540  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
00004550  61 4e 6f 77 28 6d 61 69  6e 77 25 2c 38 2c a4 73  |aNow(mainw%,8,.s|
00004560  68 65 6c 6c 5f 4d 65 73  73 61 67 65 4e 6f 41 72  |hell_MessageNoAr|
00004570  67 73 28 22 43 6f 70 79  49 46 4d 6f 64 22 29 29  |gs("CopyIFMod"))|
00004580  0d 01 c4 44 20 20 ff 28  22 43 4f 50 59 20 3c 45  |...D  .("COPY <E|
00004590  76 6e 74 53 68 65 6c 6c  24 50 61 74 68 3e 49 6e  |vntShell$Path>In|
000045a0  74 65 72 66 61 63 65 20  22 2b 66 6e 61 6d 65 24  |terface "+fname$|
000045b0  2b 22 2e 49 6e 74 65 72  66 61 63 65 20 7e 43 20  |+".Interface ~C |
000045c0  7e 56 22 29 0d 01 c5 2d  20 20 f2 73 68 65 6c 6c  |~V")...-  .shell|
000045d0  5f 41 63 74 69 6f 6e 28  a4 73 68 65 6c 6c 5f 50  |_Action(.shell_P|
000045e0  6f 6c 6c 5f 49 28 30 2c  5f 55 25 21 31 34 38 29  |oll_I(0,_U%!148)|
000045f0  29 0d 01 c6 06 20 20 0d  01 c7 47 20 20 f2 73 68  |)....  ...G  .sh|
00004600  65 6c 6c 5f 49 63 6f 6e  50 75 74 44 61 74 61 4e  |ell_IconPutDataN|
00004610  6f 77 28 6d 61 69 6e 77  25 2c 38 2c a4 73 68 65  |ow(mainw%,8,.she|
00004620  6c 6c 5f 4d 65 73 73 61  67 65 4e 6f 41 72 67 73  |ll_MessageNoArgs|
00004630  28 22 43 6f 70 79 4d 55  4d 6f 64 22 29 29 0d 01  |("CopyMUMod"))..|
00004640  c8 44 20 20 ff 28 22 43  4f 50 59 20 3c 45 76 6e  |.D  .("COPY <Evn|
00004650  74 53 68 65 6c 6c 24 50  61 74 68 3e 4d 65 6e 75  |tShell$Path>Menu|
00004660  55 74 69 6c 73 20 22 2b  66 6e 61 6d 65 24 2b 22  |Utils "+fname$+"|
00004670  2e 4d 65 6e 75 55 74 69  6c 73 20 7e 43 20 7e 56  |.MenuUtils ~C ~V|
00004680  22 29 0d 01 c9 2d 20 20  f2 73 68 65 6c 6c 5f 41  |")...-  .shell_A|
00004690  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
000046a0  6c 5f 49 28 30 2c 5f 55  25 21 31 34 38 29 29 0d  |l_I(0,_U%!148)).|
000046b0  01 ca 06 20 20 0d 01 cb  47 20 20 f2 73 68 65 6c  |...  ...G  .shel|
000046c0  6c 5f 49 63 6f 6e 50 75  74 44 61 74 61 4e 6f 77  |l_IconPutDataNow|
000046d0  28 6d 61 69 6e 77 25 2c  38 2c a4 73 68 65 6c 6c  |(mainw%,8,.shell|
000046e0  5f 4d 65 73 73 61 67 65  4e 6f 41 72 67 73 28 22  |_MessageNoArgs("|
000046f0  43 6f 70 79 4d 54 4d 6f  64 22 29 29 0d 01 cc 42  |CopyMTMod"))...B|
00004700  20 20 ff 28 22 43 4f 50  59 20 3c 45 76 6e 74 53  |  .("COPY <EvntS|
00004710  68 65 6c 6c 24 50 61 74  68 3e 4d 73 67 54 72 61  |hell$Path>MsgTra|
00004720  6e 73 20 22 2b 66 6e 61  6d 65 24 2b 22 2e 4d 73  |ns "+fname$+".Ms|
00004730  67 54 72 61 6e 73 20 7e  43 20 7e 56 22 29 0d 01  |gTrans ~C ~V")..|
00004740  cd 2d 20 20 f2 73 68 65  6c 6c 5f 41 63 74 69 6f  |.-  .shell_Actio|
00004750  6e 28 a4 73 68 65 6c 6c  5f 50 6f 6c 6c 5f 49 28  |n(.shell_Poll_I(|
00004760  30 2c 5f 55 25 21 31 34  38 29 29 0d 01 ce 06 20  |0,_U%!148)).... |
00004770  20 0d 01 cf 47 20 20 f2  73 68 65 6c 6c 5f 49 63  | ...G  .shell_Ic|
00004780  6f 6e 50 75 74 44 61 74  61 4e 6f 77 28 6d 61 69  |onPutDataNow(mai|
00004790  6e 77 25 2c 38 2c a4 73  68 65 6c 6c 5f 4d 65 73  |nw%,8,.shell_Mes|
000047a0  73 61 67 65 4e 6f 41 72  67 73 28 22 43 6f 70 79  |sageNoArgs("Copy|
000047b0  48 65 61 70 43 22 29 29  0d 01 d0 42 20 20 ff 28  |HeapC"))...B  .(|
000047c0  22 43 4f 50 59 20 3c 45  76 6e 74 53 68 65 6c 6c  |"COPY <EvntShell|
000047d0  24 50 61 74 68 3e 48 65  61 70 63 6f 64 65 20 22  |$Path>Heapcode "|
000047e0  2b 66 6e 61 6d 65 24 2b  22 2e 68 65 61 70 63 6f  |+fname$+".heapco|
000047f0  64 65 20 7e 43 20 7e 56  22 29 0d 01 d1 2d 20 20  |de ~C ~V")...-  |
00004800  f2 73 68 65 6c 6c 5f 41  63 74 69 6f 6e 28 a4 73  |.shell_Action(.s|
00004810  68 65 6c 6c 5f 50 6f 6c  6c 5f 49 28 30 2c 5f 55  |hell_Poll_I(0,_U|
00004820  25 21 31 34 38 29 29 0d  01 d2 06 20 20 0d 01 d3  |%!148))....  ...|
00004830  45 20 20 f2 73 68 65 6c  6c 5f 49 63 6f 6e 50 75  |E  .shell_IconPu|
00004840  74 44 61 74 61 4e 6f 77  28 6d 61 69 6e 77 25 2c  |tDataNow(mainw%,|
00004850  38 2c a4 73 68 65 6c 6c  5f 4d 65 73 73 61 67 65  |8,.shell_Message|
00004860  4e 6f 41 72 67 73 28 22  43 6f 70 79 4c 69 62 22  |NoArgs("CopyLib"|
00004870  29 29 0d 01 d4 4e 20 20  e7 20 a4 73 68 65 6c 6c  |))...N  . .shell|
00004880  5f 49 73 49 63 6f 6e 53  65 6c 65 63 74 65 64 28  |_IsIconSelected(|
00004890  6d 61 69 6e 77 25 2c 31  31 29 20 8c 20 6c 69 62  |mainw%,11) . lib|
000048a0  24 3d 22 53 68 65 6c 6c  4c 69 62 52 54 22 20 8b  |$="ShellLibRT" .|
000048b0  20 6c 69 62 24 3d 22 53  68 65 6c 6c 4c 69 62 22  | lib$="ShellLib"|
000048c0  0d 01 d5 42 20 20 ff 28  22 43 4f 50 59 20 3c 45  |...B  .("COPY <E|
000048d0  76 6e 74 53 68 65 6c 6c  24 50 61 74 68 3e 22 2b  |vntShell$Path>"+|
000048e0  6c 69 62 24 2b 22 20 22  2b 66 6e 61 6d 65 24 2b  |lib$+" "+fname$+|
000048f0  22 2e 22 2b 6c 69 62 24  2b 22 20 7e 43 20 7e 56  |"."+lib$+" ~C ~V|
00004900  22 29 0d 01 d6 2d 20 20  f2 73 68 65 6c 6c 5f 41  |")...-  .shell_A|
00004910  63 74 69 6f 6e 28 a4 73  68 65 6c 6c 5f 50 6f 6c  |ction(.shell_Pol|
00004920  6c 5f 49 28 30 2c 5f 55  25 21 31 34 38 29 29 0d  |l_I(0,_U%!148)).|
00004930  01 d7 06 20 20 0d 01 d8  47 20 20 f4 20 65 64 69  |...  ...G  . edi|
00004940  74 20 6e 65 77 20 21 52  75 6e 20 66 69 6c 65 20  |t new !Run file |
00004950  74 6f 20 6c 6f 61 64 20  6d 6f 64 75 6c 65 73 20  |to load modules |
00004960  66 72 6f 6d 20 61 70 70  6c 69 63 61 74 69 6f 6e  |from application|
00004970  20 64 69 72 65 63 74 6f  72 79 2e 2e 0d 01 d9 41  | directory.....A|
00004980  20 20 f2 65 64 69 74 5f  66 69 6c 65 28 66 6e 61  |  .edit_file(fna|
00004990  6d 65 24 2b 22 2e 21 52  75 6e 22 2c 22 3c 45 76  |me$+".!Run","<Ev|
000049a0  6e 74 53 68 65 6c 6c 24  50 61 74 68 3e 22 2c 22  |ntShell$Path>","|
000049b0  3c 4f 62 65 79 24 44 69  72 3e 2e 22 29 0d 01 da  |<Obey$Dir>.")...|
000049c0  3f 20 20 f2 65 64 69 74  5f 66 69 6c 65 28 66 6e  |?  .edit_file(fn|
000049d0  61 6d 65 24 2b 22 2e 21  52 75 6e 22 2c 22 53 68  |ame$+".!Run","Sh|
000049e0  65 6c 6c 20 72 65 73 6f  75 72 63 65 73 20 6e 6f  |ell resources no|
000049f0  74 20 66 6f 75 6e 64 22  2c 22 22 29 0d 01 db 04  |t found","")....|
00004a00  0d 01 dc 05 cd 0d 01 dd  04 0d 01 de 2e 52 75 6e  |.............Run|
00004a10  49 6d 61 67 65 24 20 3d  20 66 6e 61 6d 65 24 2b  |Image$ = fname$+|
00004a20  22 2e 22 2b a4 73 68 65  6c 6c 5f 4c 65 61 66 28  |"."+.shell_Leaf(|
00004a30  66 6e 61 6d 65 24 29 0d  01 df 28 e7 20 a4 73 68  |fname$)...(. .sh|
00004a40  65 6c 6c 5f 49 73 49 63  6f 6e 53 65 6c 65 63 74  |ell_IsIconSelect|
00004a50  65 64 28 6d 61 69 6e 77  25 2c 31 33 29 20 8c 0d  |ed(mainw%,13) ..|
00004a60  01 e0 39 20 20 f4 20 53  75 70 70 6f 72 74 69 6e  |..9  . Supportin|
00004a70  67 20 53 74 72 6f 6e 67  48 6c 70 2c 20 6c 65 61  |g StrongHlp, lea|
00004a80  76 65 20 69 6e 69 74 69  61 6c 69 73 61 74 69 6f  |ve initialisatio|
00004a90  6e 20 6c 69 6e 65 2e 2e  0d 01 e1 2a 20 20 e7 20  |n line.....*  . |
00004aa0  a4 73 68 65 6c 6c 5f 49  73 49 63 6f 6e 53 65 6c  |.shell_IsIconSel|
00004ab0  65 63 74 65 64 28 6d 61  69 6e 77 25 2c 31 32 29  |ected(mainw%,12)|
00004ac0  20 8c 0d 01 e2 3c 20 20  20 20 f4 20 52 65 73 46  | ....<    . ResF|
00004ad0  69 6e 64 20 69 73 20 73  75 70 70 6f 72 74 65 64  |ind is supported|
00004ae0  20 61 73 20 77 65 6c 6c  2c 20 6e 6f 20 63 68 61  | as well, no cha|
00004af0  6e 67 65 20 72 65 71 75  69 72 65 64 2e 2e 0d 01  |nge required....|
00004b00  e3 07 20 20 cc 0d 01 e4  42 20 20 20 20 f4 20 41  |..  ....B    . A|
00004b10  6c 74 65 72 20 69 6e 69  74 69 61 6c 69 73 61 74  |lter initialisat|
00004b20  69 6f 6e 20 6c 69 6e 65  20 74 6f 20 72 65 6d 6f  |ion line to remo|
00004b30  76 65 20 52 65 73 46 69  6e 64 20 72 65 66 65 72  |ve ResFind refer|
00004b40  65 6e 63 65 73 2e 2e 0d  01 e5 47 20 20 20 20 f2  |ences.....G    .|
00004b50  45 64 69 74 5f 42 61 73  69 63 50 72 6f 67 28 52  |Edit_BasicProg(R|
00004b60  75 6e 49 6d 61 67 65 24  2c 52 75 6e 49 6d 61 67  |unImage$,RunImag|
00004b70  65 24 2c bd 33 34 2b 22  52 65 73 3a 22 2b bd 33  |e$,.34+"Res:"+.3|
00004b80  34 2c bd 33 34 2b 22 2e  22 2b bd 33 34 29 0d 01  |4,.34+"."+.34)..|
00004b90  e6 8f 20 20 20 20 f2 45  64 69 74 5f 42 61 73 69  |..    .Edit_Basi|
00004ba0  63 50 72 6f 67 28 52 75  6e 49 6d 61 67 65 24 2c  |cProg(RunImage$,|
00004bb0  52 75 6e 49 6d 61 67 65  24 2c bd 33 34 2b 22 49  |RunImage$,.34+"I|
00004bc0  6e 69 74 48 65 6c 70 53  79 73 74 65 6d 28 22 2b  |nitHelpSystem("+|
00004bd0  bd 26 41 34 2b 22 73 68  65 6c 6c 5f 47 65 74 41  |.&A4+"shell_GetA|
00004be0  70 70 4e 61 6d 65 22 2b  bd 33 34 2c bd 33 34 2b  |ppName"+.34,.34+|
00004bf0  22 49 6e 69 74 48 65 6c  70 53 79 73 74 65 6d 28  |"InitHelpSystem(|
00004c00  22 2b bd 26 41 34 2b 22  73 68 65 6c 6c 5f 47 65  |"+.&A4+"shell_Ge|
00004c10  74 41 70 70 44 69 72 22  2b bd 33 34 29 0d 01 e7  |tAppDir"+.34)...|
00004c20  07 20 20 cd 0d 01 e8 05  cc 0d 01 e9 2e 20 20 f4  |.  ..........  .|
00004c30  20 4e 6f 74 20 73 75 70  70 6f 72 74 69 6e 67 20  | Not supporting |
00004c40  53 74 72 6f 6e 67 48 6c  70 2c 20 52 45 4d 20 69  |StrongHlp, REM i|
00004c50  74 20 6f 75 74 2e 2e 0d  01 ea 7b 20 20 f2 45 64  |t out.....{  .Ed|
00004c60  69 74 5f 42 61 73 69 63  50 72 6f 67 28 52 75 6e  |it_BasicProg(Run|
00004c70  49 6d 61 67 65 24 2c 52  75 6e 49 6d 61 67 65 24  |Image$,RunImage$|
00004c80  2c bd 33 34 2b bd 28 26  46 32 29 2b 22 73 68 65  |,.34+.(&F2)+"she|
00004c90  6c 6c 5f 49 6e 69 74 48  65 6c 70 53 79 73 74 65  |ll_InitHelpSyste|
00004ca0  6d 22 2b bd 33 34 2c bd  33 34 2b bd 28 26 46 34  |m"+.34,.34+.(&F4|
00004cb0  29 2b 22 20 50 52 4f 43  73 68 65 6c 6c 5f 49 6e  |)+" PROCshell_In|
00004cc0  69 74 48 65 6c 70 53 79  73 74 65 6d 22 2b bd 33  |itHelpSystem"+.3|
00004cd0  34 29 0d 01 eb 05 cd 0d  01 ec 04 0d 01 ed 42 f2  |4)............B.|
00004ce0  73 68 65 6c 6c 5f 49 63  6f 6e 50 75 74 44 61 74  |shell_IconPutDat|
00004cf0  61 28 6d 61 69 6e 77 25  2c 38 2c a4 73 68 65 6c  |a(mainw%,8,.shel|
00004d00  6c 5f 4d 65 73 73 61 67  65 4e 6f 41 72 67 73 28  |l_MessageNoArgs(|
00004d10  22 57 61 69 74 69 6e 67  22 29 2c 30 29 0d 01 ee  |"Waiting"),0)...|
00004d20  41 f2 73 68 65 6c 6c 5f  49 63 6f 6e 62 61 72 53  |A.shell_IconbarS|
00004d30  65 74 54 65 78 74 28 2d  31 2c 73 69 63 6f 6e 2c  |etText(-1,sicon,|
00004d40  a4 73 68 65 6c 6c 5f 4d  65 73 73 61 67 65 4e 6f  |.shell_MessageNo|
00004d50  41 72 67 73 28 22 52 65  61 64 79 22 29 29 0d 01  |Args("Ready"))..|
00004d60  ef 05 e1 0d 01 f0 05 3a  0d 01 f1 2c dd 20 f2 65  |.......:...,. .e|
00004d70  64 69 74 5f 66 69 6c 65  28 66 69 6c 65 6e 61 6d  |dit_file(filenam|
00004d80  65 24 2c 74 61 72 67 65  74 24 2c 72 65 70 6c 61  |e$,target$,repla|
00004d90  63 65 24 29 0d 01 f2 87  c8 99 20 22 57 69 6d 70  |ce$)...... "Wimp|
00004da0  5f 53 74 61 72 74 54 61  73 6b 22 2c 22 3c 41 70  |_StartTask","<Ap|
00004db0  70 42 75 69 6c 64 24 44  69 72 3e 2e 4d 53 65 64  |pBuild$Dir>.MSed|
00004dc0  20 22 2b bd 33 34 2b 74  61 72 67 65 74 24 2b bd  | "+.34+target$+.|
00004dd0  33 34 2b 22 20 22 2b bd  33 34 2b 72 65 70 6c 61  |34+" "+.34+repla|
00004de0  63 65 24 2b bd 33 34 2b  22 20 22 2b 66 69 6c 65  |ce$+.34+" "+file|
00004df0  6e 61 6d 65 24 2b 22 20  3e 20 3c 57 69 6d 70 24  |name$+" > <Wimp$|
00004e00  53 63 72 61 70 44 69 72  3e 2e 41 70 70 42 75 69  |ScrapDir>.AppBui|
00004e10  6c 64 2e 54 6d 70 46 69  6c 65 22 0d 01 f3 35 ff  |ld.TmpFile"...5.|
00004e20  28 22 53 45 54 54 59 50  45 20 3c 57 69 6d 70 24  |("SETTYPE <Wimp$|
00004e30  53 63 72 61 70 44 69 72  3e 2e 41 70 70 42 75 69  |ScrapDir>.AppBui|
00004e40  6c 64 2e 54 6d 70 46 69  6c 65 20 46 45 42 22 29  |ld.TmpFile FEB")|
00004e50  0d 01 f4 46 ff 28 22 43  4f 50 59 20 3c 57 69 6d  |...F.("COPY <Wim|
00004e60  70 24 53 63 72 61 70 44  69 72 3e 2e 41 70 70 42  |p$ScrapDir>.AppB|
00004e70  75 69 6c 64 2e 54 6d 70  46 69 6c 65 20 22 2b 66  |uild.TmpFile "+f|
00004e80  69 6c 65 6e 61 6d 65 24  2b 22 20 7e 43 20 7e 56  |ilename$+" ~C ~V|
00004e90  20 44 20 46 22 29 0d 01  f5 05 e1 0d 01 f6 05 3a  | D F").........:|
00004ea0  0d 01 f7 23 dd 20 f2 63  6f 70 79 5f 66 69 6c 65  |...#. .copy_file|
00004eb0  28 66 6e 61 6d 65 24 2c  66 69 6c 65 24 2c 70 61  |(fname$,file$,pa|
00004ec0  64 25 29 0d 01 f8 25 ea  20 70 61 74 68 24 2c 6c  |d%)...%. path$,l|
00004ed0  65 61 66 24 2c 69 6e 70  75 74 25 2c 6f 75 74 70  |eaf$,input%,outp|
00004ee0  75 74 25 2c 63 74 72 25  0d 01 f9 21 70 61 74 68  |ut%,ctr%...!path|
00004ef0  24 3d a4 73 68 65 6c 6c  5f 47 65 74 41 70 70 44  |$=.shell_GetAppD|
00004f00  69 72 3a 63 74 72 25 3d  30 0d 01 fa 2d 6c 65 61  |ir:ctr%=0...-lea|
00004f10  66 24 3d c1 a4 73 68 65  6c 6c 5f 4c 65 61 66 28  |f$=..shell_Leaf(|
00004f20  66 6e 61 6d 65 24 29 2c  32 29 3a f4 20 73 74 72  |fname$),2):. str|
00004f30  69 70 20 22 21 22 0d 01  fb 14 69 6e 70 75 74 25  |ip "!"....input%|
00004f40  20 3d 8e 28 66 69 6c 65  24 29 0d 01 fc 2c 6f 75  | =.(file$)...,ou|
00004f50  74 70 75 74 25 3d ae 28  66 6e 61 6d 65 24 2b 22  |tput%=.(fname$+"|
00004f60  2e 22 2b a4 73 68 65 6c  6c 5f 4c 65 61 66 28 66  |."+.shell_Leaf(f|
00004f70  69 6c 65 24 29 29 0d 01  fd 05 f5 0d 01 fe 15 20  |ile$))......... |
00004f80  20 62 79 74 65 25 3d 9a  23 20 69 6e 70 75 74 25  | byte%=.# input%|
00004f90  0d 01 ff 23 20 20 e7 20  62 79 74 65 25 3d 36 34  |...#  . byte%=64|
00004fa0  20 8c 20 63 74 72 25 2b  3d 31 20 8b 20 63 74 72  | . ctr%+=1 . ctr|
00004fb0  25 3d 30 0d 02 00 16 20  20 d5 23 20 6f 75 74 70  |%=0....  .# outp|
00004fc0  75 74 25 2c 62 79 74 65  25 0d 02 01 37 20 20 e7  |ut%,byte%...7  .|
00004fd0  20 63 74 72 25 3d 39 20  8c 20 63 74 72 25 3d 30  | ctr%=9 . ctr%=0|
00004fe0  3a f2 62 61 63 6b 5f 74  72 61 63 6b 28 6f 75 74  |:.back_track(out|
00004ff0  70 75 74 25 2c 6c 65 61  66 24 2c 70 61 64 25 29  |put%,leaf$,pad%)|
00005000  0d 02 02 0f fd 20 c5 23  20 69 6e 70 75 74 25 0d  |..... .# input%.|
00005010  02 03 0d d9 23 20 69 6e  70 75 74 25 0d 02 04 0e  |....# input%....|
00005020  d9 23 20 6f 75 74 70 75  74 25 0d 02 05 20 74 79  |.# output%... ty|
00005030  70 65 25 3d a4 73 68 65  6c 6c 5f 46 69 6c 65 54  |pe%=.shell_FileT|
00005040  79 70 65 28 66 69 6c 65  24 29 0d 02 06 3b ff 28  |ype(file$)...;.(|
00005050  22 53 65 74 54 79 70 65  20 22 2b 66 6e 61 6d 65  |"SetType "+fname|
00005060  24 2b 22 2e 22 2b a4 73  68 65 6c 6c 5f 4c 65 61  |$+"."+.shell_Lea|
00005070  66 28 66 69 6c 65 24 29  2b 22 20 22 2b c3 7e 74  |f(file$)+" "+.~t|
00005080  79 70 65 25 29 0d 02 07  05 e1 0d 02 08 05 3a 0d  |ype%).........:.|
00005090  02 09 23 dd 20 f2 62 61  63 6b 5f 74 72 61 63 6b  |..#. .back_track|
000050a0  28 66 70 74 72 25 2c 6e  61 6d 65 24 2c 70 61 64  |(fptr%,name$,pad|
000050b0  25 29 0d 02 0a 08 ea 20  49 25 0d 02 0b 3f e7 20  |%)..... I%...?. |
000050c0  70 61 64 25 3e 2d 31 20  8c 20 6e 61 6d 65 24 3d  |pad%>-1 . name$=|
000050d0  a4 73 68 65 6c 6c 5f 53  74 72 69 6e 67 50 61 64  |.shell_StringPad|
000050e0  54 72 61 69 6c 69 6e 67  28 6e 61 6d 65 24 2c bd  |Trailing(name$,.|
000050f0  28 70 61 64 25 29 2c 39  29 0d 02 0c 19 cf 23 20  |(pad%),9).....# |
00005100  66 70 74 72 25 3d 8f 23  20 66 70 74 72 25 20 2d  |fptr%=.# fptr% -|
00005110  20 39 0d 02 0d 13 e3 20  49 25 3d 31 20 b8 20 a9  | 9..... I%=1 . .|
00005120  6e 61 6d 65 24 0d 02 0e  1e 20 20 d5 23 20 66 70  |name$....  .# fp|
00005130  74 72 25 2c 97 28 c1 6e  61 6d 65 24 2c 49 25 2c  |tr%,.(.name$,I%,|
00005140  31 29 29 0d 02 0f 08 ed  20 49 25 0d 02 10 05 e1  |1))..... I%.....|
00005150  0d 02 11 05 3a 0d 02 12  32 dd 20 f2 62 61 73 69  |....:...2. .basi|
00005160  63 70 72 6f 67 5f 70 72  6f 63 65 73 73 28 69 6e  |cprog_process(in|
00005170  70 75 74 5f 66 69 6c 65  24 2c 6f 75 74 70 75 74  |put_file$,output|
00005180  5f 66 69 6c 65 24 29 0d  02 13 a1 c8 99 20 22 57  |_file$)...... "W|
00005190  69 6d 70 5f 53 74 61 72  74 54 61 73 6b 22 2c 22  |imp_StartTask","|
000051a0  3c 41 70 70 42 75 69 6c  64 24 44 69 72 3e 2e 42  |<AppBuild$Dir>.B|
000051b0  53 65 64 20 22 2b bd 33  34 2b 22 40 40 40 40 40  |Sed "+.34+"@@@@@|
000051c0  40 40 40 40 22 2b bd 33  34 2b 22 20 22 2b bd 33  |@@@@"+.34+" "+.3|
000051d0  34 2b c1 a4 73 68 65 6c  6c 5f 4c 65 61 66 28 6f  |4+..shell_Leaf(o|
000051e0  75 74 70 75 74 5f 66 69  6c 65 24 29 2c 32 29 2b  |utput_file$),2)+|
000051f0  bd 33 34 2b 22 20 22 2b  69 6e 70 75 74 5f 66 69  |.34+" "+input_fi|
00005200  6c 65 24 2b 22 20 3c 57  69 6d 70 24 53 63 72 61  |le$+" <Wimp$Scra|
00005210  70 44 69 72 3e 2e 41 70  70 42 75 69 6c 64 2e 54  |pDir>.AppBuild.T|
00005220  6d 70 46 69 6c 65 30 22  0d 02 14 28 e7 20 a4 73  |mpFile0"...(. .s|
00005230  68 65 6c 6c 5f 49 73 49  63 6f 6e 53 65 6c 65 63  |hell_IsIconSelec|
00005240  74 65 64 28 6d 61 69 6e  77 25 2c 31 30 29 20 8c  |ted(mainw%,10) .|
00005250  0d 02 15 af 20 20 c8 99  20 22 57 69 6d 70 5f 53  |....  .. "Wimp_S|
00005260  74 61 72 74 54 61 73 6b  22 2c 22 3c 41 70 70 42  |tartTask","<AppB|
00005270  75 69 6c 64 24 44 69 72  3e 2e 42 53 65 64 20 22  |uild$Dir>.BSed "|
00005280  2b bd 33 34 2b 22 3c 45  76 6e 74 53 68 65 6c 6c  |+.34+"<EvntShell|
00005290  24 50 61 74 68 3e 22 2b  bd 33 34 2b 22 20 22 2b  |$Path>"+.34+" "+|
000052a0  bd 33 34 2b 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |.34+"<Obey$Dir>.|
000052b0  22 2b bd 33 34 2b 22 20  22 2b 22 3c 57 69 6d 70  |"+.34+" "+"<Wimp|
000052c0  24 53 63 72 61 70 44 69  72 3e 2e 41 70 70 42 75  |$ScrapDir>.AppBu|
000052d0  69 6c 64 2e 54 6d 70 46  69 6c 65 30 20 3c 57 69  |ild.TmpFile0 <Wi|
000052e0  6d 70 24 53 63 72 61 70  44 69 72 3e 2e 41 70 70  |mp$ScrapDir>.App|
000052f0  42 75 69 6c 64 2e 54 6d  70 46 69 6c 65 31 22 0d  |Build.TmpFile1".|
00005300  02 16 33 20 20 ff 28 22  52 65 6d 6f 76 65 20 3c  |..3  .("Remove <|
00005310  57 69 6d 70 24 53 63 72  61 70 44 69 72 3e 2e 41  |Wimp$ScrapDir>.A|
00005320  70 70 42 75 69 6c 64 2e  54 6d 70 46 69 6c 65 30  |ppBuild.TmpFile0|
00005330  22 29 0d 02 17 55 20 20  ff 28 22 52 65 6e 61 6d  |")...U  .("Renam|
00005340  65 20 3c 57 69 6d 70 24  53 63 72 61 70 44 69 72  |e <Wimp$ScrapDir|
00005350  3e 2e 41 70 70 42 75 69  6c 64 2e 54 6d 70 46 69  |>.AppBuild.TmpFi|
00005360  6c 65 31 20 3c 57 69 6d  70 24 53 63 72 61 70 44  |le1 <Wimp$ScrapD|
00005370  69 72 3e 2e 41 70 70 42  75 69 6c 64 2e 54 6d 70  |ir>.AppBuild.Tmp|
00005380  46 69 6c 65 30 22 29 0d  02 18 05 cd 0d 02 19 28  |File0")........(|
00005390  e7 20 a4 73 68 65 6c 6c  5f 49 73 49 63 6f 6e 53  |. .shell_IsIconS|
000053a0  65 6c 65 63 74 65 64 28  6d 61 69 6e 77 25 2c 31  |elected(mainw%,1|
000053b0  31 29 20 8c 0d 02 1a 07  20 20 cc 0d 02 1b a8 20  |1) .....  ..... |
000053c0  20 20 20 c8 99 20 22 57  69 6d 70 5f 53 74 61 72  |   .. "Wimp_Star|
000053d0  74 54 61 73 6b 22 2c 22  3c 41 70 70 42 75 69 6c  |tTask","<AppBuil|
000053e0  64 24 44 69 72 3e 2e 42  53 65 64 20 22 2b bd 33  |d$Dir>.BSed "+.3|
000053f0  34 2b 22 53 68 65 6c 6c  4c 69 62 52 54 22 2b bd  |4+"ShellLibRT"+.|
00005400  33 34 2b 22 20 22 2b bd  33 34 2b 22 53 68 65 6c  |34+" "+.34+"Shel|
00005410  6c 4c 69 62 22 2b bd 33  34 2b 22 20 22 2b 22 3c  |lLib"+.34+" "+"<|
00005420  57 69 6d 70 24 53 63 72  61 70 44 69 72 3e 2e 41  |Wimp$ScrapDir>.A|
00005430  70 70 42 75 69 6c 64 2e  54 6d 70 46 69 6c 65 30  |ppBuild.TmpFile0|
00005440  20 3c 57 69 6d 70 24 53  63 72 61 70 44 69 72 3e  | <Wimp$ScrapDir>|
00005450  2e 41 70 70 42 75 69 6c  64 2e 54 6d 70 46 69 6c  |.AppBuild.TmpFil|
00005460  65 31 22 0d 02 1c 35 20  20 20 20 ff 28 22 52 65  |e1"...5    .("Re|
00005470  6d 6f 76 65 20 3c 57 69  6d 70 24 53 63 72 61 70  |move <Wimp$Scrap|
00005480  44 69 72 3e 2e 41 70 70  42 75 69 6c 64 2e 54 6d  |Dir>.AppBuild.Tm|
00005490  70 46 69 6c 65 30 22 29  0d 02 1d 57 20 20 20 20  |pFile0")...W    |
000054a0  ff 28 22 52 65 6e 61 6d  65 20 3c 57 69 6d 70 24  |.("Rename <Wimp$|
000054b0  53 63 72 61 70 44 69 72  3e 2e 41 70 70 42 75 69  |ScrapDir>.AppBui|
000054c0  6c 64 2e 54 6d 70 46 69  6c 65 31 20 3c 57 69 6d  |ld.TmpFile1 <Wim|
000054d0  70 24 53 63 72 61 70 44  69 72 3e 2e 41 70 70 42  |p$ScrapDir>.AppB|
000054e0  75 69 6c 64 2e 54 6d 70  46 69 6c 65 30 22 29 0d  |uild.TmpFile0").|
000054f0  02 1e 07 20 20 cd 0d 02  1f 05 cd 0d 02 20 37 ff  |...  ........ 7.|
00005500  28 22 53 65 74 54 79 70  65 20 3c 57 69 6d 70 24  |("SetType <Wimp$|
00005510  53 63 72 61 70 44 69 72  3e 2e 41 70 70 42 75 69  |ScrapDir>.AppBui|
00005520  6c 64 2e 54 6d 70 46 69  6c 65 30 20 26 46 46 42  |ld.TmpFile0 &FFB|
00005530  22 29 0d 02 21 46 ff 28  22 43 6f 70 79 20 3c 57  |")..!F.("Copy <W|
00005540  69 6d 70 24 53 63 72 61  70 44 69 72 3e 2e 41 70  |imp$ScrapDir>.Ap|
00005550  70 42 75 69 6c 64 2e 54  6d 70 46 69 6c 65 30 20  |pBuild.TmpFile0 |
00005560  22 2b 6f 75 74 70 75 74  5f 66 69 6c 65 24 2b 22  |"+output_file$+"|
00005570  20 7e 43 20 7e 56 22 29  0d 02 22 31 ff 28 22 52  | ~C ~V").."1.("R|
00005580  65 6d 6f 76 65 20 3c 57  69 6d 70 24 53 63 72 61  |emove <Wimp$Scra|
00005590  70 44 69 72 3e 2e 41 70  70 42 75 69 6c 64 2e 54  |pDir>.AppBuild.T|
000055a0  6d 70 46 69 6c 65 30 22  29 0d 02 23 31 ff 28 22  |mpFile0")..#1.("|
000055b0  52 65 6d 6f 76 65 20 3c  57 69 6d 70 24 53 63 72  |Remove <Wimp$Scr|
000055c0  61 70 44 69 72 3e 2e 41  70 70 42 75 69 6c 64 2e  |apDir>.AppBuild.|
000055d0  54 6d 70 46 69 6c 65 31  22 29 0d 02 24 05 e1 0d  |TmpFile1")..$...|
000055e0  02 25 05 3a 0d 02 26 04  0d 02 27 4a f4 20 3d 3d  |.%.:..&...'J. ==|
000055f0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00005600  3d 20 52 6f 75 74 69 6e  65 73 20 74 6f 20 67 6f  |= Routines to go|
00005610  20 69 6e 20 74 68 65 20  6c 69 62 72 61 72 79 20  | in the library |
00005620  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00005630  3d 3d 0d 02 28 05 3a 0d  ff                       |==..(.:..|
00005639