�><Bootplus$dir>.!Runimage

@�Tlms%16

J�Tloi%24

T
�Buf1%128

^
�Buf2%512

h
�Blck%512

r�Odat$(50,5)

|�Oflg%(50,5)

��Optr%(50)

��Rusr$(20)

��Rdir$(20)

��Rtim$(20)

��Boot_Type$(20,3)

��Standard$(10,2)
�Weekdays$(7)
�Dirdat$(50)
�Dirflg%(50)
&�Sublist%(3,6)
��Tdir$(100,1)
��Typt%(100)
��Tnpt%(100)
��Tflg%(100,1)
�
MP%=20
��toolbox_values
��initialise
�Quit%=�
���4:�$;" at line ";�:�
��
�!ș"Wimp_Poll",1,Blck%�reason%
��do

�Quit%
&ș"Wimp_CloseDown",Thdl%,&48534154
�
\��toolbox_values
�E_ABS%=&82881
�E_TOAC%=&44ec1
�E_WATBS%=&82880
�E_WHBH%=&82890
�E_WFVC%=&82885
�E_DDE%=&82888
�E_MSM%=&828C2
�E_MATBS%=&828c0
�E_MHBH%=&828c1
E_MS%=&828c3
E_SSVC%=&8288E
E_SSATBS%=&8288f
$E_PUATBS%=&8288b
.E_NRVC%=&8288d
VE_UQA%=1
~M_D_SS%=644
�M_D_SSP%=640
�M_D_ST%=642
�M_RB_GS%=389
�T_TOMO%=&44ec6
�T_TSO%=&44ec3
�T_TTLU%=&44EFB
�T_THO%=&44ec4

XBIT%=&20000
�
Z��initialise
��exists%,a%
��init_globals
�a%=0
�	b%=10
�Zzzzpass_Status%=0
�Zzzzchk_Status%=0
�Zzzzpass_Informed%=�
��
�1ș"TaskManager_EnumerateTasks",a%,Buf1%,16�a%
#�indirect(Buf1%!4)="zzzzpass"�
Zzzzpass_Status%=3
Zzzzpass_Handle%=Buf1%!0
"�
,"�indirect(Buf1%!4)="zzzzchk"�
6Zzzzchk_Status%=3
@Zzzzchk_Handle%=Buf1%!0
J�
T	�a%<0
|�init_files
�
Buf1%!0=0
�
Buf2%!0=0
�Vș"Toolbox_Initialise",0,310,Buf2%,Buf1%,"<Bootplus$Dir>",Tlms%,Tloi%�,Thdl%,sprt%
�ș"OS_File",20,Passfile$�f%
�
�f%=0�
&J�error_message("Missing password file, refer to documentation","",0,0)
0�
:�
���init_globals
�Bootplus_Version$="2.0"
�Logged_User$=""
�Logon_ID%=-1
�Ownerpass_ID%=-1
�Objs%=0
�Ntrs%=0
�
Rusers%=0
�Rusr%=1
�/Optfile$="<bootplus$dir>.Resources.Options"
0T_Optfile$="<bootplus$dir>.Resources.Optxxx"
1Accessfile$="<bootplus$dir>.Resources.Access"
6T_Accessfile$="<bootplus$dir>.Resources.Accessxxx"
 /Timesfile$="<bootplus$dir>.Resources.Times"
*4T_Timesfile$="<bootplus$dir>.Resources.Timesxxx"
41Passfile$="<bootplus$dir>.Resources.password"
>4Thieffile$="<Bootplus$Dir>.Resources.killriscpc"
H/Logfile$="<Bootplus$dir>.Resources.logfile"
R3Ologfile$="<Bootplus$dir>.Resources.oldlogfile"
\/Ownerfile$="<Bootplus$dir>.Resources.owner"
fAutoclose%=�
pEdit_Type$=""
zAlias_WH%=0
�Font_Lh%=44
� Font_Name$="Homerton.Medium"
�Editors%=0
�Tdirs%=0
�Tydir%=0
�Tndir%=0
��Boot_Types%
��a%=1�Boot_Types%
��b%=1�3
��Boot_Type$(a%,b%)
	�b%
	�a%
	8�Standards%
	B�a%=1�Standards%
	L�b%=1�2
	V�Standard$(a%,b%)
	`�b%
	j�a%
	~�a%=1�7
	��Weekdays$(a%)
	��a%
	��
	���init_files

�f%,a%,a$,b%
2ș"OS_File",20,Optfile$�f%
<
�f%=0�
F'�save_options(240,5,60,�,�,�,�,�,�)
PGuest_Logins%=�
ZFull_Owner_Access%=�
d�
nG�get_options(a%,a%,a%,a%,a%,a%,Guest_Logins%,Y%,Full_Owner_Access%)
x�
� ș"OS_File",20,Thieffile$�f%
�
�f%=0�
�f%=�(Thieffile$)
��#f%,"| a list for killing"
��#f%
�%�("*Settype "+Thieffile$+" obey")
��
!ș"OS_File",20,Accessfile$�f%

�f%=0�
@
Rusers%=1
JRusr$(1)="GUEST"
TNRdir$(1)="|Apps|Diversions|Images|Public|Sound|Tutorials|Utilities|Video|"
^f%=�(Passfile$)
h�
ra$=�#f%
|Rusers%+=1
�a%=�a$,�(9))
�Rusr$(Rusers%)=�a$,a%-1)
�TRdir$(Rusers%)="|Apps|Diversions|Images|Public|Sound|Tutorials|Utilities|Video|"
�	��#f%
��#f%
��save_useraccess
��
��get_useraccess
��
� ș"OS_File",20,Timesfile$�f%

�f%=0�
0�a%=1�Rusers%
:
a$="|"
D�b%=1�7
Na$+=Weekdays$(b%)+"Y=8=17|"
X�b%
bRtim$(a%)=a$
l�a%
v�save_usertimes
��
��get_usertimes
��
�ș"OS_File",20,Logfile$�f%
�	�f%=0
� ș"OS_File",11,Logfile$,&FFF
�f%=�(Logfile$)

�#f%,"| Bootplus log file"

�#f%

�

 �

f��do

�Ȏreason%�

��1

��redraw_window

��2

��open_window

��3

��close_window

��6

��mouse_click

��10

��scroll_request

�
�17,18,19
�wimp_messages
	�&200
�toolbox_events
$�
.�
t��redraw_window
�ȎBlck%!0�
��Sublist%(1,2)
��draw_main(1,2)
��Sublist%(1,1)
�draw_sub(1,2,�,0)

�Sublist%(2,2)
2�draw_main(2,2)
<�Sublist%(2,1)
d�draw_sub(2,2,�,0)
n�Sublist%(3,1)
��draw_sub(3,2,�,0)
��
��
���open_window
�bh%
,bh%=Blck%!28
6ȎBlck%!0�
@�Sublist%(1,2)
hBlck%!28=Sublist%(1,1)
rș"Wimp_OpenWindow",,Blck%
|�draw_sub(1,3,�,bh%)
��Sublist%(1,1)
�ș"Wimp_OpenWindow",,Blck%
��Sublist%(2,2)
�Blck%!28=Sublist%(2,1)
�ș"Wimp_OpenWindow",,Blck%
��draw_sub(2,3,�,bh%)
��draw_sub(3,3,�,bh%)
�Sublist%(2,1)
0ș"Wimp_OpenWindow",,Blck%
:�Sublist%(3,1)
bș"Wimp_OpenWindow",,Blck%
l�
v�
���close_window
�ȎBlck%!0�
��Sublist%(1,2)
Blck%!0=Sublist%(1,2)
 ș"Wimp_CloseWindow",,Blck%
*Blck%!0=Sublist%(1,1)
4ș"Wimp_CloseWindow",,Blck%
>�Sublist%(2,2)
fBlck%!0=Sublist%(2,2)
pș"Wimp_CloseWindow",,Blck%
zBlck%!0=Sublist%(2,1)
�ș"Wimp_CloseWindow",,Blck%
�Blck%!0=Sublist%(3,1)
�ș"Wimp_CloseWindow",,Blck%
��
��
���mouse_click
�wk_my%,os_wy%,tr%,p%
.ȎBlck%!12�
8�Sublist%(1,1)
`�bootlist_clicked
j�Sublist%(2,1)
�7�dirlist_clicked(2,Tydirs%,Tndirs%,Typt%(),Tnpt%())
��set_list_extent(2,�)
��draw_sub(2,2,�,0)
��set_list_extent(3,�)
��draw_sub(3,2,�,0)
��Sublist%(3,1)
7�dirlist_clicked(3,Tndirs%,Tydirs%,Tnpt%(),Typt%())
F�set_list_extent(2,�)
P�draw_sub(2,2,�,0)
Z�set_list_extent(3,�)
d�draw_sub(3,2,�,0)
n�
x�
���bootlist_clicked
�os_my%=Blck%!4
Blck%!0=Sublist%(1,1)
"ș"Wimp_GetWindowState",,Blck%
"%wk_my%=os_my%-(Blck%!16-Blck%!24)
,tr%=�(-wk_my%/Font_Lh%)+1
6�tr%<=Objs%�
^p%=Optr%(tr%)
h�(Oflg%(p%,5)� 64)=0�
�Oflg%(p%,5)=16
��p%=tr%�Objs%
�Optr%(p%)=Optr%(p%+1)
��p%
�Objs%-=1
��set_list_extent(1,�)
��draw_sub(1,2,�,0)
��
h�error_message("That entry is standard.  This application will not allow them to be deleted","",0,0)
&�
0�
:�
�;��dirlist_clicked(sid%,�frct%,�toct%,�frpt%(),�topt%())
��os_my%,wk_my%,tr%,p%
�os_my%=Blck%!4
�Blck%!0=Sublist%(sid%,1)
�"ș"Wimp_GetWindowState",,Blck%
�%wk_my%=os_my%-(Blck%!16-Blck%!24)
tr%=�(-wk_my%/Font_Lh%)+1
�tr%<=frct%�
4p%=frpt%(tr%)
>5�((Tflg%(p%,1)�&40)=&40)�(Rusr$(Rusr%)<>"OWNER")�
fI�error_message("That entry can only be accessed by the OWNER","",0,0)
p�
�toct%+=1
�a%=toct%
�ȕ(topt%(a%-1)>p%)�(a%>1)
�topt%(a%)=topt%(a%-1)
�	a%-=1
��
�topt%(a%)=p%
�frct%-=1
�tr%<=frct%�
�a%=tr%�frct%
frpt%(a%)=frpt%(a%+1)
$�a%
.�
8frpt%(frct%+1)=0
B�
L�
V�
���scroll_request
��r%,bh%
�bh%=Blck%!28
�ȎBlck%!0�
��Sublist%(1,1)
'r%=�((Blck%!16-Blck%!8)/Font_Lh%)-1
(ȎBlck%!36�
2�-2
<Blck%!24-=Font_Lh%*r%
F�-1
PBlck%!24-=Font_Lh%
Z�1
dBlck%!24+=Font_Lh%
n�2
xBlck%!24+=Font_Lh%*r%
��
�ș"Wimp_OpenWindow",,Blck%
��Sublist%(2,1)
��Sublist%(2,2)
�ȎBlck%!36�
��-2
�Blck%!24-=128
�-1
Blck%!24-=16
�1
"Blck%!24+=16
,�2
6Blck%!24+=128
@�
Jș"Wimp_OpenWindow",,Blck%
T�draw_sub(2,3,�,bh%)
^�draw_sub(3,3,�,bh%)
h�
r�
���toolbox_events
�Event_Size%=Blck%!0
�Event_Reference%=Blck%!4
�Event_Code%=Blck%!8
�Event_Flags%=Blck%!12
Event_Block%=Blck%!20
0?�callers(0,Ancestor_ID%,Ancestor_Name$,Ancestor_Component%)
:9�callers(8,Parent_ID%,Parent_Name$,Parent_Component%)
D4�callers(16,Self_ID%,Self_Name$,Self_Component%)
vȎSelf_Name$�
��"Alias"
��handle_alias
��"Automenu"
��handle_automenu
��"Ibarmenu"
��handle_ibarmenu
��"Iconbar"
��handle_iconbar
��"Mainlist"
��handle_mainlist
��"Maintenance"
��handle_maintenance
��"Options"
�handle_options
�"Nodir"
�handle_nodir
 �"Passmenu"
*�handle_passmenu
4�"Password"
>�handle_password
H�"Sublist"
R�handle_sublist
\�"Thieftrap"
f�handle_thieftrap
p�"Useraccess"
z�handle_useraccess
�
�"Yesdir"
��handle_yesdir
�
�"Wmi"
��handle_wmi
��
��
���wimp_messages
$�state%,a%,al%,dur%,b%
8ȎBlck%!16�
B�0
LQuit%=�
V�2
~path$=�indirect(Blck%+44)
��Application$="!Thieftrap"�
��make_thieftrap(path$)
��
��make_alias(path$)
��
��3
Source$=�indirect(Blck%+44)
(ȎBlck%!20�
2�Alias_WH%
<�dragged_to_alias
F�Sublist%(1,1)
P�dragged_to_edit
Z�
d�&400C2
�Ȏ�indirect(Blck%+28)�
��"zzzzpass"
�Zzzzpass_Status%=3
�Zzzzpass_Handle%=Blck%!4
��Logged_User$<>""�
��user_times(al%,dur%,a%,b%)
��inform_zzzzpass(dur%)
��
��"zzzzchk"
Zzzzchk_Status%=3
Zzzzchk_Handle%=Blck%!4
�
"�&808c0
J�Blck%!4=Zzzzpass_Handle%�
rIș"Wimp_TransferBlock",Zzzzpass_Handle%,Blck%!24,Thdl%,Buf1%,Blck%!20
|
Ȏ!Buf1%�
��1
��login_user($(Buf1%+4),�)
�/Blck%!0=32:Blck%!12=Blck%!8:Blck%!16=&808c0
�Blck%!20=4:Blck%!24=Buf2%
�!Buf2%=2
�2ș"Wimp_SendMessage",17,Blck%,Zzzzpass_Handle%
��2
 Quit%=Autoclose%
 �4
 D1șT_TOMO%,0,Ibarmenu_ID%,24,"User Logged Off"
 NLogged_User$=""
 X�
 b�
 l�
 v�
 ���dragged_to_alias
 ��Blck%!40<>&2000�
!g�error_message("File "+Source$+" is not an application and has a filetype of "+�~(Blck%!40),"",0,0)
!�
!>a%=�(Source$)-1
!H�:a%-=1:��Source$,a%,1)="."
!RApplication$=�Source$,a%+1)
!\1șT_TOMO%,0,Alias_ID%,M_D_SSP%,0,Application$
!f0șT_TOMO%,0,Alias_ID%,M_D_ST%,0,Application$
!z�
!��
!���dragged_to_edit
!�$�a%,p%,a$,b$,c$,leaf$,duplicate%
"Ȏ��
"*�(Blck%!40<>&2000)�(Edit_Type$="boot")
"X�error_message("File "+Source$+" is not an application and cannot be booted","",0,0)
"$/�(Blck%!40<>&2000)�(Edit_Type$="resources")
".h�error_message("File "+Source$+" is not an application and cannot be added to the resources","",0,0)
"8
"`a%=�(Source$)-1
"j�:a%-=1:��Source$,a%,1)="."
"tleaf$=�Source$,a%+1)
"~duplicate%=�
"��a%=1�Objs%
"��leaf$=Odat$(Optr%(a%),1)�
"�duplicate%=�
"��
"��a%
"��duplicate%�
"�?�error_message("File "+leaf$+" is already included","",0,0)
"��
#Ontr%+=1
#Objs%+=1
#(Optr%(Objs%)=Ontr%
#2Odat$(Ontr%,1)=leaf$
#<ȎBlck%!40�
#F
�&2000
#nȎEdit_Type$�
#x�"autorun"
#�(Odat$(Ontr%,2)="Application (alias)"
#��"boot"
#�,Odat$(Ontr%,2)="Application (reference)"
#��"resources"
#�,Odat$(Ontr%,2)="Application (reference)"
#��"predesk"
#� Odat$(Ontr%,2)="Application"
#��
#�Odat$(Ontr%,3)="2000"
#�
�&1000
$Odat$(Ontr%,2)="Directory"
$Odat$(Ontr%,3)="1000"
$
$"-ș"OS_ConvertHex4",Blck%!40,Buf2%,128�,p%
$,
?p%=13
$6�Buf2%?0=48�
$@Odat$(Ontr%,3)=�$Buf2%,3)
$J�
$TOdat$(Ontr%,3)=$Buf2%
$^�
$hEș"XOS_ReadVarVal","File$Type_"+Odat$(Ontr%,3),Buf1%,128,0,3�,,l%
$r
�l%=0�
$�%Odat$(Ontr%,2)="&"+Odat$(Ontr%,3)
$��
$�Buf1%?l%=13
$�Odat$(Ontr%,2)=$Buf1%
$��
$��
%Odat$(Ontr%,4)=""
%c%=0
%&�
%0	c%+=1
%:^�(Boot_Type$(c%,1)=Edit_Type$)�((Boot_Type$(c%,2)=Odat$(Ontr%,3))�(Boot_Type$(c%,2)="*"))�
%D#Odat$(Ontr%,4)=Boot_Type$(c%,3)
%N�
%X*�(c%=Boot_Types%)�(Odat$(Ontr%,4)<>"")
%�Odat$(Ontr%,5)=Source$
%�#Oflg%(Ontr%,1)=(24<<16)�&100�13
%�$Oflg%(Ontr%,2)=(200<<16)�&100�13
%�Oflg%(Ontr%,3)=8
%�ȎEdit_Type$�
%��"boot"
%�$Oflg%(Ontr%,4)=(512<<16)�&100�13
%��"resources"
%�$Oflg%(Ontr%,4)=(512<<16)�&100�13
%��"autorun"
%�$Oflg%(Ontr%,4)=(480<<16)�&100�13
%��"predesk"
%�$Oflg%(Ontr%,4)=(400<<16)�&100�13
&�
&Oflg%(Ontr%,5)=32
&�
& �
&H�set_list_extent(1,�)
&R�draw_sub(1,2,�,0)
&\�
&�'��callers(offset%,�id%,�id$,�cpnt%)
&�	�ptr%
'ptr%=Tloi%+offset%
'
id%=!ptr%
'$�id%<>0�
'./ș"Toolbox_GetTemplateName",0,id%,Buf1%,128
'8id$=�indirect(Buf1%)
'B�
'L
id$=""
'V�
'`cpnt%=ptr%!4
'j�
'���handle_iconbar
'��
(��handle_alias
((�state%,bo%,p%
(<ȎEvent_Code%�
(F�E_TOAC%
(nAlias_ID%=Self_ID%
(x%șT_TOMO%,0,Alias_ID%,0�Alias_WH%
(�
�E_WATBS%
(�Application$=""
(�+șT_TOMO%,0,Alias_ID%,640,0,"!Bootplus"
(�(șT_TOMO%,0,Alias_ID%,642,0,"<none>"
(��E_DDE%
(�Buf2%!0=64
(�+Buf2%!12=0:Buf2%!16=1:Buf2%!20=Blck%!16
)4Buf2%!28=Blck%!24:Buf2%!32=Blck%!28:Buf2%!36=128
)+Buf2%!40=&2000:$(Buf2%+44)=Application$
)*ș"Wimp_SendMessage",17,Buf2%,Blck%!16
)"�
),�
)r��handle_automenu
)�ȎEvent_Code%�
)�
�E_MS%
)�ȎSelf_Component%�
)��&9
)�Edit_Type$="autorun"
*�&b
*0Edit_Type$="boot"
*:�&5
*bEdit_Type$="resources"
*l�&c
*�Edit_Type$="predesk"
*��
*��get_applist
*��draw_main(1,0)
*��
*��
+��handle_ibarmenu
+4ȎEvent_Code%�
+>�E_TOAC%
+fIbarmenu_ID%=Self_ID%
+p
�E_MATBS%
+�ȎLogged_User$�
+��"OWNER"
+�"șT_TOMO%,0,Ibarmenu_ID%,2,6,0
+�#șT_TOMO%,0,Ibarmenu_ID%,2,&a,0
+�#șT_TOMO%,0,Ibarmenu_ID%,2,&b,0
+��""
+�"șT_TOMO%,0,Ibarmenu_ID%,2,6,1
+�#șT_TOMO%,0,Ibarmenu_ID%,2,&a,1
+�#șT_TOMO%,0,Ibarmenu_ID%,2,&b,1
+�
+�"șT_TOMO%,0,Ibarmenu_ID%,2,6,1
,#șT_TOMO%,0,Ibarmenu_ID%,2,&a,1
,#șT_TOMO%,0,Ibarmenu_ID%,2,&b,0
,�
,$�E_UQA%
,LQuit%=�
,V�
,`�
,���handle_mainlist
,�ȎEvent_Code%�
,��E_TOAC%
,�Mainlist_ID%=Self_ID%
,�,șT_TOMO%,0,Mainlist_ID%,0�Sublist%(1,2)
,��E_ABS%
-ȎSelf_Component%�
-(�3
-P�get_applist
-Z�set_list_extent(1,�)
-d�draw_sub(1,2,�,0)
-n�4
-��r%=1�Ontr%
-�ȎOflg%(r%,5)�
-��16
-��modify_boot(r%,"remove",�)
-��32
.�modify_boot(r%,"insert",�)
.
.6�
.@�r%
.J�
.T�E_WHBH%
.|șT_THO%,0,Sublist_ID%
.��
.��
.���handle_maintenance
.�ȎEvent_Code%�
/
�E_MS%
/0ȎSelf_Component%�
/:�0
/bș"OS_File",6,Ologfile$
/l*ș"OS_FSControl",25,Logfile$,Ologfile$
/v ș"OS_File",11,Logfile$,&FFF
/��1
/��("*Filer_Run "+Logfile$)
/��&d
/��kill_thieftraps
/��9
0�install_logins
0�&a
0>�remove_logins
0H�&10
0p�pause_logins
0z�&11
0�*Filer_Run <Boot$dir>.!Run
0��
0��
0��
1��handle_nodir
1.ȎEvent_Code%�
18�E_TOAC%
1`Nodir_ID%=Self_ID%
1j)șT_TOMO%,0,Nodir_ID%,0�Sublist%(3,1)
1tSublist%(3,3)=512
1~Sublist%(3,4)=-320
1�Sublist%(3,5)=352
1�Sublist%(3,6)=-232
1��
1��
1���handle_options
2�a%,b%,c%,d%,e%,f%,g%,h%,i%
2(ȎEvent_Code%�
22�E_TOAC%
2ZOptions_ID%=Self_ID%
2d
�E_WATBS%
2�,�get_options(a%,b%,c%,d%,e%,f%,g%,h%,i%)
2�'șT_TOMO%,0,Options_ID%,512,3,�(a%)
2�'șT_TOMO%,0,Options_ID%,512,1,�(b%)
2�'șT_TOMO%,0,Options_ID%,512,2,�(c%)
2�%șT_TOMO%,0,Options_ID%,196,9,-d%
2�&șT_TOMO%,0,Options_ID%,196,&a,-e%
2�&șT_TOMO%,0,Options_ID%,196,&c,-f%
2�&șT_TOMO%,0,Options_ID%,196,&d,-g%
2�'șT_TOMO%,0,Options_ID%,196,&14,-h%
2�'șT_TOMO%,0,Options_ID%,196,&15,-i%
2��E_ABS%
3ȎSelf_Component%�
3"�&11
3J3șT_TOMO%,0,Options_ID%,513,3,Buf1%,128�,,,,,l%
3TBuf1%?l%=13:a%=�($Buf1%)
3^3șT_TOMO%,0,Options_ID%,513,1,Buf1%,128�,,,,,l%
3hBuf1%?l%=13:b%=�($Buf1%)
3r3șT_TOMO%,0,Options_ID%,513,2,Buf1%,128�,,,,,l%
3|Buf1%?l%=13:c%=�($Buf1%)
3�$șT_TOMO%,0,Options_ID%,197,9�d%
3�%șT_TOMO%,0,Options_ID%,197,&a�e%
3�%șT_TOMO%,0,Options_ID%,197,&c�f%
3�%șT_TOMO%,0,Options_ID%,197,&d�g%
3�&șT_TOMO%,0,Options_ID%,197,&14�h%
3�&șT_TOMO%,0,Options_ID%,197,&15�i%
3�E�save_options(a%,b%,c%,(d%=1),(e%=1),(f%=1),(g%=1),(h%=1),(i%=1))
3��
3��
3��
4&��handle_passmenu
4N
�l%,l$,a%
4bȎEvent_Code%�
4l�E_TOAC%
4�Passmenu_ID%=Self_ID%
4�
�E_MATBS%
4�ȎLogged_User$�
4��""
4�"�passmenu_greys(0,1,1,1,1,1,1)
5�"OWNER"
5*"�passmenu_greys(0,0,0,0,0,0,0)
54
5\"�passmenu_greys(0,0,1,1,1,1,1)
5f�
5p
�E_MS%
5�ȎSelf_Component%�
5��&C
5�Rusr%=1
5��make_dirlist
6	l$=""
6�a%=1�Rusers%
6l$+=Rusr$(a%)
6$�a%<Rusers%�l$+=","
6.�a%
68)șT_TOMO%,0,Useraccess_ID%,896,&1b,l$
6B(șT_TOMO%,1,Useraccess_ID%,898,&1b,0
6L�user_gadgets
6V�draw_main(2,0)
6`�
6j�
6t�
6���handle_password
6�ȎEvent_Code%�
6��E_TOAC%
7Password_ID%=Self_ID%
7
�E_WATBS%
7F�showing_password
7P�E_WFVC%
7��E_ABS%
7�ȎSelf_Component%�
7��8
7��action_ok_password
7��9
8<șT_TSO%,0,Password_ID%,0,0,Parent_ID%,Parent_Component%
8�
8"�
8,�
8r��handle_sublist
8�ȎEvent_Code%�
8��E_TOAC%
8�Sublist_ID%=Self_ID%
8�+șT_TOMO%,0,Sublist_ID%,0�Sublist%(1,1)
8�Sublist%(1,3)=64
8�Sublist%(1,4)=-64
8�Sublist%(1,5)=812
8�Sublist%(1,6)=-232
9�
9�
9X��handle_thieftrap
9�ȎEvent_Code%�
9��E_TOAC%
9�Thieftrap_ID%=Self_ID%
9�
�E_WATBS%
9�)șT_TOMO%,0,Thieftrap_ID%,M_D_SS%,2,1
9�1Source$="<BootPlus$Dir>.Resources.!Thieftrap"
9�Application$="!Thieftrap"
:�E_DDE%
:*Buf2%!0=64
:4+Buf2%!12=0:Buf2%!16=1:Buf2%!20=Blck%!16
:>4Buf2%!28=Blck%!24:Buf2%!32=Blck%!28:Buf2%!36=128
:H+Buf2%!40=&2000:$(Buf2%+44)=Application$
:R*ș"Wimp_SendMessage",17,Buf2%,Blck%!16
:\�
:f�
:���handle_useraccess
:��l$,a%,ov%
:�ȎEvent_Code%�
:��E_TOAC%
;Useraccess_ID%=Self_ID%
;$.șT_TOMO%,0,Useraccess_ID%,0�Sublist%(2,2)
;.Sublist%(3,2)=Sublist%(2,2)
;8�E_SSVC%
;`3șT_TOMO%,1,Useraccess_ID%,899,&1b,Buf1%,128�a%
;jRusr%=a%+1
;��user_gadgets
;��set_list_extent(2,�)
;��draw_sub(2,2,�,0)
;��set_list_extent(3,�)
;��draw_sub(3,2,�,0)
;��E_ABS%
;�ȎSelf_Component%�
;��&18
<�modify_useraccess
<(�save_useraccess
<2�save_usertimes
<<�
<F�E_WHBH%
<nșT_THO%,0,Yesdir_ID%
<xșT_THO%,0,Nodir_ID%
<��
<��
<���handle_yesdir
<�ȎEvent_Code%�
=�E_TOAC%
=,Yesdir_ID%=Self_ID%
=6*șT_TOMO%,0,Yesdir_ID%,0�Sublist%(2,1)
=@Sublist%(2,3)=80
=JSublist%(2,4)=-320
=TSublist%(2,5)=352
=^Sublist%(2,6)=-232
=h�
=r�
=���handle_wmi
=��nm$,st$,tn$,pc$,tp$
=�ȎEvent_Code%�
>
�E_WATBS%
>0f%=�(Ownerfile$)
>:
�f%=0�
>D"ș"OS_File",11,Ownerfile$,&FFF
>N�a%=1�5
>X-șT_TOMO%,0,Self_ID%,512,a%+4,"<Unknown>"
>b�a%
>l�
>v�a%=1�5
>�a$=�#f%
>�$șT_TOMO%,0,Self_ID%,512,a%+4,a$
>��a%
>��#f%
>��
>��E_ABS%
>��Self_Component%=10
>�f%=�(Ownerfile$)
>��a%=1�5
>�3șT_TOMO%,0,Self_ID%,513,a%+4,Buf1%,128�,,,,,l%
?Buf1%?l%=13
?�#f%,$Buf1%
?�a%
? �#f%
?*�
?4�
?>�
?���make_thieftrap(dest$)
?��f%,a%,a$,p%
?�p%=�dest$,".!Thieftrap")
?�/f%=�("<Bootplus$Dir>.Resources.killriscpc")
?�a%=1
?��
?�	a%+=1
?�a$=�#f%
?�	��#f%
@ a$=�dest$,p%)+"!Trap_"+�(a%)
@."�#f%,"*WIPE "+a$+" ~F R ~C ~V"
@8�#f%
@`A�("*COPY <BootPlus$Dir>.Resources.!Thieftrap "+a$+" ~C ~V R")
@�J�("*COPY <BootPlus$Dir>.Resources.!zzzzpass "+a$+".!zzzzpass ~C ~V R")
@��
@���kill_thieftraps
A
�a%,a$,f%
A(f%=�(Thieffile$)
A2a$=�#f%
A<ȕ��#f%
AFa$=�#f%
APa%=�a$," ~F")
AZf$=�a$,7,a%-6)
Adș"XOS_FSControl",27,f$,,3
An�
Ax�#f%
A�%ș"OS_FSControl",27,Thieffile$,,3
A�"ș"OS_File",11,Thieffile$,&FEB
A�f%=�(Thieffile$)
A��#f%,"| Files for killing"
A��#f%
A��
A���showing_password
B"ȎParent_Name$�
B,�"Iconbar"
BTC�clear_fields("User Login","","","","",0,0,&80000000,&80000000)
B^Autoclose%=�
Bh�"Passmenu"
BrȎParent_Component%�
B|�3
B�W�clear_fields("System Owner Verification","OWNER","","","",0,0,&80000000,&80000000)
B�Username$="OWNER"
B��8
B�W�clear_fields("System Owner Verification","OWNER","","","",0,0,&80000000,&80000000)
B�Username$="OWNER"
B��7
CC�clear_fields("User Login","","","","",0,0,&80000000,&80000000)
C&�6
CN�Logged_User$=""�
CX9�error_message("A user has not logged on yet","",0,0)
Cb�
ClM�clear_fields("Change of Password",Logged_User$,"","","",&80000000,0,0,0)
CvUsername$=Logged_User$
C��
C��
C�Autoclose%=�
C��"Password"
C�ȎParent_Component%�
C��100
C�A�clear_fields("New User Details","","","","",0,&80000000,0,0)
C��101
DE�clear_fields("Reset Users Password","","","","",0,&80000000,0,0)
D�102
D>G�clear_fields("New Owner","OWNER","","","",&80000000,&80000000,0,0)
DHUsername$="OWNER"
DR�
D\Autoclose%=�
Df�
Dp�
D���valchange_password
D��Blck%!16=0�
E>�error_message("Input is too long, please shorten","",0,0)
E�
EȎSelf_Component%�
E$�4
E.!Username$=�indirect(Blck%+16)
E8�5
EB!Password$=�indirect(Blck%+16)
EL�6
EV$Newpassword$=�indirect(Blck%+16)
E`�7
EjVerify$=�indirect(Blck%+16)
Et�
E~�
E��
E���action_ok_password
E�!�u$,p$,valid%,verify%,exists%
F
-șT_TOMO%,0,Password_ID%,513,&4,Buf1%,256
Fu$=�indirect(Buf1%)
F-șT_TOMO%,0,Password_ID%,513,&5,Buf1%,256
F(p$=�indirect(Buf1%)
F2-șT_TOMO%,0,Password_ID%,513,&6,Buf1%,256
F<n$=�indirect(Buf1%)
FF-șT_TOMO%,0,Password_ID%,513,&7,Buf1%,256
FPv$=�indirect(Buf1%)
FZ%valid%=�check_user(u$,p$,exists%)
Fdverify%=(n$=v$)
FnȎParent_Name$�
Fx�"Iconbar"
F��valid%�
F��login_user(u$,�)
F��
F�
�exists%�
F�2�error_message("Unrecognised password","",0,0)
F��
F�2�error_message("Unrecognised username","",0,0)
F��
F��
F��"Passmenu"
G"ȎParent_Component%�
G,�3
GT�valid%�
G^0șT_TSO%,0,Password_ID%,0,0,Password_ID%,100
Gh�
Gr3�error_message("Invalid OWNER password","",0,0)
G|�
G��8
G��valid%�
G�0șT_TSO%,0,Password_ID%,0,0,Password_ID%,101
G��
G�3�error_message("Invalid OWNER password","",0,0)
G��
G��7
H�valid%�
H�login_user(u$,�)
H�
H&
�exists%�
H02�error_message("Unrecognised password","",0,0)
H:�
HD2�error_message("Unrecognised username","",0,0)
HN�
HX�
Hb�6
H��valid%�
H�
�verify%�
H�
�(n$)<4�
H�E�error_message("Password must have at least 4 characters","",0,0)
H��
H��n$=p$�
H�;�error_message("New password must be different","",0,0)
H��
H��modify_user(u$,n$)
H��
H��
H��
I6�error_message("New password not verified","",0,0)
I�
I�
I 6�error_message("Invalid original password","",0,0)
I*�
I4�
I>�"Password"
IfȎParent_Component%�
Ip�100
I�
�exists%�
I�7�error_message("User "+u$+" already exists","",0,0)
I��
I�
�verify%�
I�
�(n$)<4�
I�E�error_message("Password must have at least 4 characters","",0,0)
I��
I��add_user(u$,n$)
I��
I��
I�<�error_message("Password not verified, re-enter","",0,0)
J0șT_TSO%,0,Password_ID%,0,0,Password_ID%,100
J�
J�
J$�101
JL�exists%�
JV7�error_message("User "+u$+" does not exist","",0,0)
J`�
Jj
�verify%�
Jt
�(n$)<4�
J~E�error_message("Password must have at least 4 characters","",0,0)
J��
J��modify_user(u$,n$)
J��
J��
J�<�error_message("Password not verified, re-enter","",0,0)
J�0șT_TSO%,0,Password_ID%,0,0,Password_ID%,101
J��
J��
J��102
K
�verify%�
K
#�add_user("OWNER",Newpassword$)
K�login_user("OWNER",�)
K�
K(<�error_message("Password not verified, re-enter","",0,0)
K20șT_TSO%,0,Password_ID%,0,0,Password_ID%,102
K<�
KF�
KP�
KZ�
K�?��get_options(�at%,�wt%,�dt%,�ts%,�tq%,�da%,�gl%,�tm%,�fo%)
L,
�f%,a$,a%
L@f%=�(Optfile$)
LJu%=0
LT�
L^a$=�#f%
Lha%=�a$,":")
LrȎ�a$,a%-2)�
L|�"Allow Time"
L�at%=�(�a$,a%+2))
L��"Warn Time"
L�wt%=�(�a$,a%+2))
L��"Die Time"
L�dt%=�(�a$,a%+2))
L��"Task Starting"
L�ts%=(�a$,a%+2)="Y")
L��"Task Quitting"
L�tq%=(�a$,a%+2)="Y")
L��"Directory Access"
L�da%=(�a$,a%+2)="Y")
L��"Guest Logins"
L�gl%=(�a$,a%+2)="Y")
M�"Test Mode Logins"
Mtm%=(�a$,a%+2)="Y")
M�"Full Owner Access"
M&fo%=(�a$,a%+2)="Y")
M0�
M:	��#f%
MD�#f%
MN�
M���get_useraccess
M�
�f%,a$,a%
M�f%=�(Accessfile$)
M�
Rusers%=0
M��
M�a$=�#f%
Na%=�a$,":")
NRusers%+=1
NRusr$(Rusers%)=�a$,a%-2)
N Rdir$(Rusers%)=�a$,a%+2)
N*	��#f%
N4�#f%
N>�
N���get_usertimes
N�
�f%,a$,a%
N�f%=�(Timesfile$)
N�
Rusers%=0
N��
N�a$=�#f%
N�a%=�a$,":")
N�Rusers%+=1
N�Rtim$(Rusers%)=�a$,a%+2)
O	��#f%
O�#f%
O�
O`7��save_options(at%,wt%,dt%,ts%,tq%,da%,gl%,tm%,fo%)
O��f%
Pf%=�(T_Optfile$)
P
�#f%,"Allow Time : "+�(at%)
P�#f%,"Warn Time : "+�(wt%)
P�#f%,"Die Time : "+�(dt%)
P(0�#f%,"Task Starting : "+�(-89*ts%-78*(�ts%))
P20�#f%,"Task Quitting : "+�(-89*tq%-78*(�tq%))
P<3�#f%,"Directory Access : "+�(-89*da%-78*(�da%))
PF/�#f%,"Guest Logins : "+�(-89*gl%-78*(�gl%))
PP3�#f%,"Test Mode Logins : "+�(-89*tm%-78*(�tm%))
PZ4�#f%,"Full Owner Access : "+�(-89*fo%-78*(�fo%))
Pd�#f%
Pnș"OS_File",6,Optfile$
Px+ș"OS_FSControl",25,T_Optfile$,Optfile$
P��
P���save_useraccess
Q
�f%,a%
Qf%=�(T_Accessfile$)
Q"�a%=1�Rusers%
Q,"�#f%,Rusr$(a%)+" : "+Rdir$(a%)
Q6�a%
Q@�#f%
QJș"OS_File",6,Accessfile$
QT1ș"OS_FSControl",25,T_Accessfile$,Accessfile$
Q^�
Q���save_usertimes
Q�
�f%,a%
Q�f%=�(T_Timesfile$)
Q��a%=1�Rusers%
Q�"�#f%,Rusr$(a%)+" : "+Rtim$(a%)
R�a%
R�#f%
Rș"OS_File",6,Timesfile$
R&/ș"OS_FSControl",25,T_Timesfile$,Timesfile$
R0�
Rv��make_dirlist
R��pntr%,spntr%,a%
R�Tdirs%=0
R�a%=0
R��
R�;ș"OS_GBPB",12,"<Boot$dir>.^",Buf1%,1,a%,256,"*"�,,,,a%
R��(a%<>-1)�(Buf1%!20>&fff)�
S 
Tdirs%+=1
S*'Tdir$(Tdirs%,1)=�indirect(Buf1%+24)
S4R�Rusr$(Rusr%)<>"OWNER"�(Tdir$(Tdirs%,1)="!Boot"��Tdir$(Tdirs%,1),6)="!Trap_")�
S\(Tflg%(Tdirs%,1)=&7�&100�(24<<16)�&40
Sf�
S�$Tflg%(Tdirs%,1)=&7�&100�(24<<16)
S��
S��
S�
�a%=-1
S�
Tnpt%()=0
S�
Typt%()=0
S��
T��user_gadgets
TB�a%,d%,l%,r%,e1%,e2%,t$
TV
Tydirs%=0
T`
Tndirs%=0
Tj�a%=1�Tdirs%
Tt*�Rdir$(Rusr%),"|"+Tdir$(a%,1)+"|")>0�
T�Tydirs%+=1
T�Typt%(Tydirs%)=a%
T��
T�Tndirs%+=1
T�Tnpt%(Tndirs%)=a%
T��
U�(Tflg%(a%,1)�&40)=&40�
U<�Rusr$(Rusr%)="OWNER"�
UF*Tflg%(a%,1)=(Tflg%(a%,1)�&FFFFFFFC)�&7
UP�
UZ*Tflg%(a%,1)=(Tflg%(a%,1)�&FFFFFFFC)�&5
Ud�
Un�
Ux�a%
U�t$=Rtim$(Rusr%)
U�l%=1
U��d%=1�7
U�r%=�t$,"|",l%+1)
U�e1%=�t$,"=",l%+1)
U�e2%=�t$,"=",e1%+1)
U��t$,l%+3,1)="Y"�
V*șT_TOMO%,0,Useraccess_ID%,196,d%+&3,1
V�
V*șT_TOMO%,0,Useraccess_ID%,196,d%+&3,0
V"�
VJAșT_TOMO%,0,Useraccess_ID%,832,d%+&23,�(�t$,e1%+1,e2%-e1%-1))
Vr@șT_TOMO%,0,Useraccess_ID%,832,d%+&30,�(�t$,e2%+1,r%-e2%-1))
V|	l%=r%
V�r%=�t$,"|",l%+1)
V��d%
V��
V���modify_useraccess
W�a$,a%,b,t$
W0
a$="|"
W:�a%=1�Tydirs%
WDa$+=Tdir$(Typt%(a%),1)+"|"
WN�a%
WXRdir$(Rusr%)=a$
W�
a$="|"
W��d%=1�7
W�a$+=Weekdays$(d%)
W�+șT_TOMO%,0,Useraccess_ID%,197,&3+d%�a%
W�
�a%=1�
W�a$+="Y"
W��
W�a$+="N"
W��
W�,șT_TOMO%,0,Useraccess_ID%,833,d%+&23�a%
W�a$+="="+�(a%)
X,șT_TOMO%,0,Useraccess_ID%,833,d%+&30�a%
Xa$+="="+�(a%)+"|"
X �d%
X*Rtim$(Rusr%)=a$
X4�
Xz1��passmenu_greys(i1%,i2%,i3%,i4%,i5%,i6%,i7%)
X�$șT_TOMO%,0,Passmenu_ID%,2,7,i1%
X�$șT_TOMO%,0,Passmenu_ID%,2,6,i2%
Y$șT_TOMO%,0,Passmenu_ID%,2,3,i3%
Y$șT_TOMO%,0,Passmenu_ID%,2,8,i4%
Y%șT_TOMO%,0,Passmenu_ID%,2,&c,i7%
Y$�
Yj;��clear_fields(lb$,t1$,t2$,t3$,t4$,fd1%,fd2%,fd3%,fd4%)
Y�'șT_TOMO%,0,Password_ID%,448,&a,lb$
Z&șT_TOMO%,0,Password_ID%,512,4,t1$
Z
&șT_TOMO%,0,Password_ID%,512,5,t2$
Z&șT_TOMO%,0,Password_ID%,512,6,t3$
Z&șT_TOMO%,0,Password_ID%,512,7,t3$
Z(&șT_TOMO%,0,Password_ID%,65,0,fd1%
Z2&șT_TOMO%,0,Password_ID%,65,4,fd1%
Z<&șT_TOMO%,0,Password_ID%,65,1,fd2%
ZF&șT_TOMO%,0,Password_ID%,65,5,fd2%
ZP&șT_TOMO%,0,Password_ID%,65,2,fd3%
ZZ&șT_TOMO%,0,Password_ID%,65,6,fd3%
Zd&șT_TOMO%,0,Password_ID%,65,3,fd4%
Zn&șT_TOMO%,0,Password_ID%,65,7,fd4%
Zx�
Z���install_logins
Z�Application$="!zzzzpass"
[0Source$="<bootplus$dir>.resources.!zzzzpass"
[-�make_alias("<Boot$ToBeTasks>.!zzzzpass")
[Application$="!Bootplus"
["Source$="<Bootplus$dir>"
[,-�make_alias("<Boot$ToBeTasks>.!Bootplus")
[6�
[|��remove_logins
[�8ș"XOS_FSControl",27,"<Boot$ToBeTasks>.!zzzzpass",,3
[�8ș"XOS_FSControl",27,"<Boot$ToBeTasks>.!bootplus",,3
[��kill_thieftraps
[��
\��pause_logins
\:�Zzzzpass_Status%=3�
\b)Blck%!0=28:Blck%!12=0:Blck%!16=&808c0
\lBlck%!20=4:Blck%!24=Buf2%
\v!Buf2%=3
\�2ș"Wimp_SendMessage",17,Blck%,Zzzzpass_Handle%
\��
\��Zzzzchk_Status%=3�
\�)Blck%!0=28:Blck%!12=0:Blck%!16=&808c0
\�Blck%!20=4:Blck%!24=Buf2%
\�!Buf2%=3
\�1ș"Wimp_SendMessage",17,Blck%,Zzzzchk_Handle%
\��
\��
]Rݤencode(pswd$)
]��a%,b%,c%,d%,encd$
]�encd$=""
]�a%=�(pswd$)
]��e%=1�a%
]�b%=�(�pswd$,e%,1))
]�c%=�(�pswd$,a%-e%+1,1))
]�d%=(b%*(c%+1))�&FF
]��d%<32�d%+=32
]��d%>=127� d%<=139�d%+=23
]�encd$+=�(d%)
^�e%
^$
=encd$
^j$ݤcheck_user(usnm$,pass$,�nami%)
^�'�encd$,ntry$,f%,ok%,pnam$,ppas$,p1$
^��usnm$="GUEST"�
_(ok%=((pass$="GUEST")� Guest_Logins%)
_(nami%=�
_2�
_Za%=0
_dp1$=�encode(pass$)
_nencd$=�encode(p1$)
_x	ok%=�
_�nami%=�
_�f%=�(Passfile$)
_�ȕ�(�#f%�ok%)
_�ntry$=�#f%
_�tab1%=�ntry$,�(9))
_�tab2%=�ntry$,�(9),tab1%+1)
_�pnam$=�ntry$,tab1%-1)
_�'ppas$=�ntry$,tab1%+1,tab2%-tab1%-1)
_�	a%+=1
_�%ok%=((usnm$=pnam$)�(encd$=ppas$))
_��usnm$=pnam$�nami%=�
_��
_��#f%
`�
`=ok%
`^��add_user(usnm$,pass$)
`��encd$,pad%,p1$,bd$,f%,l%
`�p1$=�encode(pass$)
`�encd$=�encode(p1$)
`�!pad%=35-(�(usnm$)+�(encd$)+2)
`�f%=�(Passfile$)
`�ȕ��#f%
`�ntry$=�#f%
a�
a)�#f%,usnm$+�(9)+encd$+�(9)+�pad%,"x")
a�#f%
aX3ș"OS_ReadVarVal","Boot$Dir",Buf1%,128,0,0�,,l%
ab	l%-=6
alBuf1%?l%=13
avbd$=$Buf1%
a�#ș"OS_File",20,bd$+".Groups"�f%
a�
�f%=0�
a�ș"OS_File",8,bd$+".Groups"
a��
a�*ș"OS_File",20,bd$+".Groups."+usnm$�f%
a�
�f%=0�
b&ș"OS_File",8,bd$+".Groups."+usnm$
b�
bRusers%+=1
b Rusr$(Rusers%)=usnm$
b*TRdir$(Rusers%)="|Apps|Diversions|Images|Public|Sound|Tutorials|Utilities|Video|"
b4bd$="|"
b>�b%=1�7
bH bd$+=Weekdays$(b%)+"Y=8=17|"
bR�b%
b\Rtim$(Rusers%)=bd$
bf�save_useraccess
bp�save_usertimes
bz�
b���modify_user(usnm$,pass$)
c+�encd$,ntyr$,pad%,tab1%,tab2%,pnam$,p1$
cp1$=�encode(pass$)
c$encd$=�encode(p1$)
c.!pad%=35-(�(usnm$)+�(encd$)+2)
c8f%=�(Passfile$)
cB�
cLposn%=�#f%
cVntry$=�#f%
c`tab1%=�ntry$,�(9))
cjtab2%=�ntry$,�(9),tab1%+1)
ctpnam$=�ntry$,tab1%-1)
c~�pnam$=usnm$
c��#f%=posn%
c�)�#f%,usnm$+�(9)+encd$+�(9)+�pad%,"x")
c��#f%
c��
c���login_user(usnm$,inform%)
d2�a%,al%,dur%,sh%,eh%
dF�Logged_User$<>usnm$�
dn�a%=1�Rusers%
dx�Rusr$(a%)=usnm$�
d�Rusr%=a%
d��
d��a%
d�)�(usnm$="OWNER"� Full_Owner_Access%)�
d�	al%=1
d��
d�!�user_times(al%,dur%,sh%,eh%)
d��
d�
Ȏal%�
d��1
e""șT_TOMO%,0,Ibarmenu_ID%,2,6,0
e,1șT_TOMO%,0,Ibarmenu_ID%,24,"Logged : "+usnm$
e6Logged_User$=usnm$
e^#�(Zzzzpass_Status%=3)� inform%�
e��inform_zzzzpass(dur%)
e��
e��2
e�K�error_message("You are not allowed access today","Machine Access",0,0)
e��3
e��error_message("You are not allowed access at this time, try between "+�(sh%)+"hrs to "+�(eh%)+"hrs inclusive","Machine Access",0,0)
e��
f�
f0B�error_message("You are already logged on ?!?","Confused",0,0)
f:�
fD�
f�0��user_times(�allowed%,�duration%,�sh%,�eh%)
f��a%,th%,mn%,wd%,e1%,e2%,b%
f�!Buf1%=3
f�ș"OS_Word",14,Buf1%
f�#ș&c1,Buf1%,Buf2%,128,"%24"�,a%
f�
?a%=13
f�th%=�($Buf2%)
g#ș&c1,Buf1%,Buf2%,128,"%WN"�,a%
g
?a%=13
gwd%=�($Buf2%)
g #ș&c1,Buf1%,Buf2%,128,"%MI"�,a%
g*
?a%=13
g4mn%=�($Buf2%)
g>&a%=�Rtim$(Rusr%),Weekdays$(wd%),1)
gHduration%=0
gR�Rtim$(Rusr%),a%+2,1)="Y"
gze1%=�Rtim$(Rusr%),"=",a%+3)
g� e2%=�Rtim$(Rusr%),"=",e1%+2)
g�b%=�Rtim$(Rusr%),"|",e2%+2)
g�)sh%=�(�Rtim$(Rusr%),e1%+1,e2%-e1%-1))
g�(eh%=�(�Rtim$(Rusr%),e2%+1,b%-e2%-1))
g��(th%>=sh%� th%<=eh%)�
g�allowed%=1
g� duration%=(eh%-th%+1)*60-mn%
g��
g�allowed%=3
g��
g��
g�allowed%=2
g��
h�
hV ��inform_zzzzpass(duration%)
h�
�p%,a%
i	p%=20
i(!Buf2%=1
i2Buf2%!4=p%
i<"$(Buf2%+20)=Logged_User$+�(13)
iFp%+=�(Logged_User$)+2
iPBuf2%!12=p%
iZ"$(Buf2%+Buf2%!12)=Rdir$(Rusr%)
idp%+=�(Rdir$(Rusr%))
inBuf2%!16=duration%
i�)Blck%!0=32:Blck%!12=0:Blck%!16=&808c0
i�Blck%!20=p%:Blck%!24=Buf2%
i�'Blck%!20=Buf2%!12+�(Rdir$(Rusr%))+2
i�2ș"Wimp_SendMessage",17,Blck%,Zzzzpass_Handle%
i��
j��draw_main(mid%,reason%)
jh�a%
j��mid%=2�
j��draw_sub(2,reason%,�,0)
j��draw_sub(3,reason%,�,0)
j��
j��draw_sub(1,reason%,�,0)
j��
k&Blck%!0=Sublist%(mid%,2)
k0"ș"Wimp_GetWindowState",,Blck%
k:Blck%!28=Sublist%(mid%,1)
kDȎreason%�
kN�0
kvȎmid%�
k��1
k�ȎEdit_Type$�
k��"autorun"
k�4șT_TOMO%,0,Mainlist_ID%,11,"Edit Autorun Files"
k��"boot"
k�>șT_TOMO%,0,Mainlist_ID%,11,"Edit Autobooted Applications"
k��"resources"
k�<șT_TOMO%,0,Mainlist_ID%,11,"Edit Resource Applications"
k��"predesk"
k�4șT_TOMO%,0,Mainlist_ID%,11,"Edit Predesk Files"
l�
l�
lș"Wimp_OpenWindow",,Blck%
l �2
l* ș"Wimp_RedrawWindow",,Blck%
l4�
l>�
l�&��draw_sub(sid%,reason%,main%,bh%)
m.�a%,r%,os_wx%,os_wy%
mL�reason%<>2�
mtBuf1%!0=Sublist%(sid%,2)
m~"ș"Wimp_GetWindowState",,Buf1%
m�os_wx%=(Buf1%!4-Buf1%!20)
m�os_wy%=(Buf1%!16-Buf1%!24)
m�Buf2%!0=Sublist%(sid%,1)
m�"ș"Wimp_GetWindowState",,Buf2%
m�#Buf2%!4=os_wx%+Sublist%(sid%,3)
m�4Buf2%!8=os_wy%+Sublist%(sid%,4)+Sublist%(sid%,6)
m�5Buf2%!12=os_wx%+Sublist%(sid%,3)+Sublist%(sid%,5)
m�$Buf2%!16=os_wy%+Sublist%(sid%,4)
m��
nȎreason%�
n
�0
n2�(Buf1%!32�&10000)=0�
nd�set_list_extent(sid%,�)
nnBuf2%!28=-1
nxș"Wimp_OpenWindow",,Buf2%
n��
n��set_list_extent(sid%,�)
n�Ȏsid%�
n��1
n�/�draw_list(1,Objs%,Optr%(),Odat$(),Oflg%())
o�2
o,1�draw_list(2,Tydirs%,Typt%(),Tdir$(),Tflg%())
o6�3
o^1�draw_list(3,Tndirs%,Tnpt%(),Tdir$(),Tflg%())
oh�
or�
o|�2
o�Ȏsid%�
o��1
o�/�draw_list(1,Objs%,Optr%(),Odat$(),Oflg%())
o��2
p1�draw_list(2,Tydirs%,Typt%(),Tdir$(),Tflg%())
p�3
p:1�draw_list(3,Tndirs%,Tnpt%(),Tdir$(),Tflg%())
pD�
pN�3
pvBuf2%!28=bh%
p�ș"Wimp_OpenWindow",,Buf2%
p��
p��
p�#��set_list_extent(sid%,redraw%)
q Blck%!0=Sublist%(sid%,1)
q*&ș"Wimp_GetWindowInfo",,(Blck%�&1)
q4Ȏsid%�
q>�1
qHBlck%!48=-Font_Lh%*Objs%
qR�2
q\Blck%!48=-Font_Lh%*Tydirs%
qf�3
qpBlck%!48=-Font_Lh%*Tndirs%
qz�
q�!�Blck%!48>(Blck%!8-Blck%!16)�
q�Blck%!48=Blck%!8-Blck%!16
q��
q�'ș"Wimp_SetExtent",Blck%!0,Blck%+44
q�
�redraw%�
q�ș"Wimp_OpenWindow",,Blck%
q��
q��
r85��draw_list(sid%,ntrs%,ptrs%(),sdata$(),flags%())
r�G�fh%,m%,os_wl%,os_wt%,wk_rl%,wk_rt%,wk_rb%,tt%,tb%,r%,e%,cls%,xpos%
r�cls%=�(sdata$(),2)
r�1ș"Font_FindFont",,Font_Name$,192,192,0,0�fh%
r�$ș"Font_ReadInfo",fh%�,,fb%,,ft%
r�Font_Lh%=ft%-fb%+4
r�Blck%!0=Sublist%(sid%,1)
s#ș"Wimp_RedrawWindow",,Blck%�m%
s
�
s2-�(Blck%!36>Blck%!28)�(Blck%!40>Blck%!32)�
sZos_wl%=(Blck%!4-Blck%!20)
sdos_wt%=(Blck%!16-Blck%!24)
s�wk_rl%=Blck%!28-os_wl%
s�wk_rt%=Blck%!40-os_wt%
s�wk_rb%=Blck%!32-os_wt%
s�tt%=�(-wk_rt%/Font_Lh%)+1
s�tb%=�(-wk_rb%/Font_Lh%)+1
t"�r%=tt%�tb%
tTp%=ptrs%(r%)
t^
�p%>0�
t��c%=1�cls%
t��(flags%(p%,c%)�&100)=&100�
t�'xpos%=(flags%(p%,c%)�&ffff0000)>>16
t�2ș"Wimp_SetFontColours",,0,(flags%(p%,c%)� 15)
t�Mș"Font_Paint",fh%,sdata$(p%,c%),16,os_wl%+xpos%,os_wt%-r%*Font_Lh%-fb%-4
t��
t��c%
t��
t��r%
t��
u�m%<>0�
u0#ș"Wimp_GetRectangle",,Blck%�m%
u:�
uD	�m%=0
uN�
u���get_applist
v*)�aline$,f1%,p%,offset%,app$,found%,r%
vRObjs%=0
v\
Oflg%()=7
vf
Optr%()=0
vpOdat$()=""
vzȎEdit_Type$�
v��"resources"
v�?�get_filelisted("<choices$write>.Boot.PreDeskTop","AddApp")
v��"boot"
v�@�get_filelisted("<choices$write>.Boot.Desktop","Filer_Boot")
v��"autorun"
w&�get_dirlisted("<Boot$ToBeTasks>")
w�"predesk"
wB'�get_dirlisted("<Boot$ToBeLoaded>")
wL�
wtOntr%=Objs%
w~�r%=1�Objs%
w�Optr%(r%)=r%
w�)Oflg%(r%,1)=Oflg%(r%,1)�(24<<16)�&100
w�*Oflg%(r%,2)=Oflg%(r%,2)�(200<<16)�&100
w�ȎEdit_Type$�
w��"boot"
w�*Oflg%(r%,4)=Oflg%(r%,4)�(512<<16)�&100
w��"resources"
w�*Oflg%(r%,4)=Oflg%(r%,4)�(512<<16)�&100
w��"autorun"
w�*Oflg%(r%,4)=Oflg%(r%,4)�(480<<16)�&100
w��"predesk"
w�*Oflg%(r%,4)=Oflg%(r%,4)�(400<<16)�&100
x�
x
�r%
x�
xZ ��get_filelisted(file$,com$)
x��f1%,aline$,p%
x�f1%=�(file$)
x��
x�aline$=�#f1%
x�_�(�aline$,"|Start")>0��aline$,"Mars")>0��aline$,"!Bootplus")>0��aline$,Edit_Type$)>0)��#f1%
x���#f1%�
x��
x�aline$=�#f1%
x��aline$,com$)=1�
yp%=�aline$,".!")
y
�p%>0�
yObjs%+=1
y" Odat$(Objs%,1)=�aline$,p%+1)
y,,Odat$(Objs%,2)="Application (reference)"
y6Odat$(Objs%,3)="2000"
y^p%=�aline$," ")
yh Odat$(Objs%,5)=�aline$,p%+1)
yr$ș"OS_File",23,Odat$(Objs%,5)�p%
y|
�p%=0�
y�%Odat$(Objs%,4)="Original Missing"
y�Oflg%(Objs%,4)=11
y��
y��
y��
y���aline$,"|End")>0��#f1%
y��
y�	�#f1%
y��
z��get_dirlisted(dir$)
zD4�file$,offset%,found%,l%,p%,l$,f%,a$,b$,c$,a%,c%
zX
offset%=0
zb�
zl9ș"OS_GBPB",12,dir$,Buf1%,1,offset%,128,0�,,,,offset%
zv�offset%<>-1� Buf1%!20<>-1�
z�ȎBuf1%!20�
z�
�&1000
z�Objs%+=1
z�&Odat$(Objs%,1)=�indirect(Buf1%+24)
z�Odat$(Objs%,2)="Directory"
z�Odat$(Objs%,3)="1000"
z�Odat$(Objs%,4)=""
z�*Odat$(Objs%,5)=dir$+"."+Odat$(Objs%,1)
z�
�&2000
{Objs%+=1
{ &Odat$(Objs%,1)=�indirect(Buf1%+24)
{**Odat$(Objs%,5)=dir$+"."+Odat$(Objs%,1)
{4Oș"OS_GBPB",10,dir$+"."+Odat$(Objs%,1),Buf1%,10,0,200,"!Sprites*"�,,,found%
{>�found%=0�
{f5ș"OS_File",20,dir$+"."+Odat$(Objs%,1)+".!Run"�f%
{p
�f%=0�
{�(Odat$(Objs%,2)="Application (full?)"
{�!Odat$(Objs%,4)="No !run file"
{�Oflg%(Objs%,4)=11
{��
{�(Odat$(Objs%,2)="Application (alias)"
{�)f%=�(dir$+"."+Odat$(Objs%,1)+".!Run")
{�l$=�#f%
{��#f%
|l$=�l$,11)
|ș"XOS_File",23,l$�p%;f%
|�(f%� 1)=1�
|((Odat$(Objs%,2)="Application (full?)"
|)(Odat$(Objs%,4)="No !Sprites... file"
|.�
|L
�p%=0�
|V%Odat$(Objs%,4)="Original Missing"
|`Oflg%(Objs%,4)=11
|a�
|j�
|t�
|~�
|�'Odat$(Objs%,2)="Application (full)"
|��
|�Odat$(Objs%,3)="2000"
|�
|�Objs%+=1
|�&Odat$(Objs%,1)=�indirect(Buf1%+24)
}*Odat$(Objs%,5)=dir$+"."+Odat$(Objs%,1)
}
-ș"OS_ConvertHex4",Buf1%!20,Buf2%,128�,p%
}
?p%=13
}Odat$(Objs%,3)=�$Buf2%,3)
}(Eș"XOS_ReadVarVal","File$Type_"+Odat$(Objs%,3),Buf1%,128,0,3�,,l%
}2
�l%=0�
}Z%Odat$(Objs%,2)="&"+Odat$(Objs%,3)
}d�
}�Buf1%?l%=13
}�Odat$(Objs%,2)=$Buf1%
}��
}��
}��Odat$(Objs%,4)=""�
}�c%=0
}��
}�	c%+=1
}�^�(Boot_Type$(c%,1)=Edit_Type$)�((Boot_Type$(c%,2)=Odat$(Objs%,3))�(Boot_Type$(c%,2)="*"))�
~#Odat$(Objs%,4)=Boot_Type$(c%,3)
~�
~*�(c%=Boot_Types%)�(Odat$(Objs%,4)<>"")
~"�
~J�c%=1�Standards%
~TC�(Standard$(c%,1)=Edit_Type$)�(Standard$(c%,2)=Odat$(Objs%,1))�
~|Oflg%(Objs%,1)=5
~�Oflg%(Objs%,2)=5
~�Oflg%(Objs%,3)=5
~�Oflg%(Objs%,4)=5
~�Oflg%(Objs%,5)=64
~��
~��c%
~��
~��offset%=-1
~��
&��modify_boot(ntry%,mode$,nomess%)
N�
bȎEdit_Type$�
l�"autorun"
vȎmode$�
�
�"insert"
��Odat$(ntry%,3)="2000"�
�Source$=Odat$(ntry%,5)
�Application$=Odat$(ntry%,1)
�3�make_alias("<Boot$ToBeTasks>."+Odat$(ntry%,1))
��
�L�("*COPY "+Odat$(ntry%,5)+" <Boot$ToBeTasks>."+Odat$(ntry%,1)+" ~V~P~C")
��
�
�"remove"
�4(�("*WIPE "+Odat$(ntry%,5)+" ~VF~CR")
�>�
�H�"resources"
�R3�modify_boot_file(Odat$(ntry%,5),mode$,nomess%)
�\�"boot"
�f3�modify_boot_file(Odat$(ntry%,5),mode$,nomess%)
�p�"predesk"
�z�
���
����make_alias(pathname$)
�
�f%,l%
�.!ș"OS_File",8,pathname$,0,0,0
�8-ș"OS_File",11,pathname$+".!Run",&FEB,0,0
�B.ș"OS_File",11,pathname$+".!Help",&FFF,0,0
�t%�Source$,1)="<"��Source$,1)=">"�
�~Aș"OS_ReadVarVal",�Source$,2,�(Source$)-2),Buf1%,128,0,0�,,l%
��Buf1%?l%=13
��Source$=$Buf1%
���
��f%=�(pathname$+".!Run")
���#f%,"Filer_Run "+Source$
���#f%
�f%=�(pathname$+".!Help")
�
.�#f%,"Alias for application "+Application$
�2�#f%,"Which can be found at location "+Source$
��#f%
�(�
�2�
�n*��modify_boot_file(app$,mode$,nomess%)
��6�f1%,f2%,aline$,bootname$,ftyp%,oldname$,tempname$
��C�found%,done%,ftyp%,bootname$,tempname$,oldname$,f1%,f2%,aline$
��found%=�
��done%=�
�start%=�
�ȎEdit_Type$�
��"resources"
�"ftyp%=&feb
�,/bootname$="<choices$write>.boot.PreDesktop"
�6/tempname$="<choices$write>.boot.PreDesknew"
�@.oldname$="<choices$write>.boot.PreDeskold"
�J�"boot"
�Tftyp%=&fea
�^,bootname$="<choices$write>.boot.Desktop"
�h/tempname$="<choices$write>.boot.Desktopnew"
�r.oldname$="<choices$write>.boot.Desktopold"
�|�
��ș"OS_File",6,tempname$
��"ș"OS_File",11,tempname$,ftyp%
��f1%=�(tempname$)
��f2%=�(bootname$)
���
��aline$=�#f2%
��
�start%�
�_start%=(�aline$,"|Start")>0��aline$,"Mars")>0��aline$,"!Bootplus")>0��aline$,Edit_Type$)>0)
��#f1%,aline$
��
�DȎmode$�
�N
�"remove"
�XD�(app$="all"��aline$,".!")>0� start%)�(�aline$,app$)>0� start%)�
��found%=�
��done%=�
���
���#f1%,aline$
���
��
�"insert"
���(�aline$,app$)>0)� start%�
��found%=�
��W�nomess%��error_message("Application "+app$+" is already in boot sequence","",0,0)
���
�+�(�aline$,"|End")>0)� start%�(�found%)�
�*ȎEdit_Type$�
�4�"resources"
�>�#f1%,"AddApp "+app$
�H�"boot"
�R�#f1%,"Filer_Boot "+app$
�\�
�fdone%=�
�p�
�z�#f1%,aline$
���
���
��
��#f2%
�� �(�start%)�(mode$="insert")�
��ȎEdit_Type$�
���"resources"
���#f1%,""
��A�#f1%,"|Start Mars !Bootplus "+Bootplus_Version$+" resources"
��$�#f1%,"| ----------------------"
��
�#f1%,"|"
��#f1%,"|       resources"
�
�#f1%,"|"
�$�#f1%,"| ----------------------"
�$7�#f1%,"| Insert Resources apps directory additions"
�."�#f1%,"| INserted by Bootplus"
�8
�#f1%,"|"
�B�#f1%,"AddApp "+app$
�L�#f1%,"|End"
�V�"boot"
�`�#f1%,""
�j<�#f1%,"|Start Mars !Bootplus "+Bootplus_Version$+" boot"
�t$�#f1%,"| ----------------------"
�~
�#f1%,"|"
���#f1%,"|       boot"
��
�#f1%,"|"
��$�#f1%,"| ----------------------"
��!�#f1%,"| Booted applications"
��"�#f1%,"| Inserted by Bootplus"
��
�#f1%,"|"
���#f1%,"Filer_Boot "+app$
���#f1%,"|End"
���
��done%=�
���
��	�#f1%
�	�#f2%
�(�done%�
�2ș"OS_File",6,oldname$
�<*ș"OS_FSControl",25,bootname$,oldname$
�F+ș"OS_FSControl",25,tempname$,bootname$
�P�
�xș"OS_File",6,tempname$
���
���
��ݤindirect(pntr%)
�
�answ$
�"ș"OS_WriteN",pntr%,0�answ$
�,
=answ$
�r2��error_message(message$,etitle$,flags%,enum%)
��Blck%!0=enum%
��$(Blck%+4)=message$
��#�etitle$=""�etitle$="!bootplus"
��-ș"Wimp_ReportError",Blck%,flags%,etitle$
���
�D� 9
�N.� "predesk","FEB","Run (cached in memory)"
�X� "predesk","FF8","Run"
�b-� "predesk","FF9","Added to wimp sprites"
�l � "predesk","FFA","RMLoaded"
�v/� "predesk","FFB","Run using 'BASIC -quit'"
��� "predesk","FFC","Run"
��*� "predesk","1000","Run embedded !Run"
��� "predesk","*","*Loaded"
��� "autorun","*","Filer_Run"
��� 6
��� "predesk","ARPlayer"
��� "predesk","BandLimit"
��� "predesk","SetUpNet"
��� "predesk","Configure"
��� "autorun","Configure"
�� "autorun","~CDReinit"
�*� Su,Mo,Tu,We,Th,Fr,Sa
�

00000000  0d 00 0a 1e f4 3e 3c 42  6f 6f 74 70 6c 75 73 24  |.....><Bootplus$|
00000010  64 69 72 3e 2e 21 52 75  6e 69 6d 61 67 65 0d 01  |dir>.!Runimage..|
00000020  40 0c de 54 6c 6d 73 25  31 36 0d 01 4a 0c de 54  |@..Tlms%16..J..T|
00000030  6c 6f 69 25 32 34 0d 01  54 0d de 42 75 66 31 25  |loi%24..T..Buf1%|
00000040  31 32 38 0d 01 5e 0d de  42 75 66 32 25 35 31 32  |128..^..Buf2%512|
00000050  0d 01 68 0d de 42 6c 63  6b 25 35 31 32 0d 01 72  |..h..Blck%512..r|
00000060  10 de 4f 64 61 74 24 28  35 30 2c 35 29 0d 01 7c  |..Odat$(50,5)..||
00000070  10 de 4f 66 6c 67 25 28  35 30 2c 35 29 0d 01 cc  |..Oflg%(50,5)...|
00000080  0e de 4f 70 74 72 25 28  35 30 29 0d 01 d6 0e de  |..Optr%(50).....|
00000090  52 75 73 72 24 28 32 30  29 0d 01 e0 0e de 52 64  |Rusr$(20).....Rd|
000000a0  69 72 24 28 32 30 29 0d  01 ea 0e de 52 74 69 6d  |ir$(20).....Rtim|
000000b0  24 28 32 30 29 0d 01 f4  15 de 42 6f 6f 74 5f 54  |$(20).....Boot_T|
000000c0  79 70 65 24 28 32 30 2c  33 29 0d 01 fe 14 de 53  |ype$(20,3).....S|
000000d0  74 61 6e 64 61 72 64 24  28 31 30 2c 32 29 0d 02  |tandard$(10,2)..|
000000e0  08 11 de 57 65 65 6b 64  61 79 73 24 28 37 29 0d  |...Weekdays$(7).|
000000f0  02 12 10 de 44 69 72 64  61 74 24 28 35 30 29 0d  |....Dirdat$(50).|
00000100  02 1c 10 de 44 69 72 66  6c 67 25 28 35 30 29 0d  |....Dirflg%(50).|
00000110  02 26 12 de 53 75 62 6c  69 73 74 25 28 33 2c 36  |.&..Sublist%(3,6|
00000120  29 0d 02 8a 11 de 54 64  69 72 24 28 31 30 30 2c  |).....Tdir$(100,|
00000130  31 29 0d 02 94 0f de 54  79 70 74 25 28 31 30 30  |1).....Typt%(100|
00000140  29 0d 02 9e 0f de 54 6e  70 74 25 28 31 30 30 29  |).....Tnpt%(100)|
00000150  0d 02 a8 11 de 54 66 6c  67 25 28 31 30 30 2c 31  |.....Tflg%(100,1|
00000160  29 0d 02 b2 0a 4d 50 25  3d 32 30 0d 02 bc 13 f2  |)....MP%=20.....|
00000170  74 6f 6f 6c 62 6f 78 5f  76 61 6c 75 65 73 0d 02  |toolbox_values..|
00000180  c6 0f f2 69 6e 69 74 69  61 6c 69 73 65 0d 02 d0  |...initialise...|
00000190  0b 51 75 69 74 25 3d a3  0d 02 da 1c ee 85 ef 34  |.Quit%=........4|
000001a0  3a f1 f6 24 3b 22 20 61  74 20 6c 69 6e 65 20 22  |:..$;" at line "|
000001b0  3b 9e 3a e0 0d 02 e4 05  f5 0d 02 ee 21 c8 99 22  |;.:.........!.."|
000001c0  57 69 6d 70 5f 50 6f 6c  6c 22 2c 31 2c 42 6c 63  |Wimp_Poll",1,Blc|
000001d0  6b 25 b8 72 65 61 73 6f  6e 25 0d 02 f8 07 f2 64  |k%.reason%.....d|
000001e0  6f 0d 03 02 0a fd 51 75  69 74 25 0d 03 0c 26 c8  |o.....Quit%...&.|
000001f0  99 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |."Wimp_CloseDown|
00000200  22 2c 54 68 64 6c 25 2c  26 34 38 35 33 34 31 35  |",Thdl%,&4853415|
00000210  34 0d 03 16 05 e0 0d 03  5c 14 dd f2 74 6f 6f 6c  |4.......\...tool|
00000220  62 6f 78 5f 76 61 6c 75  65 73 0d 03 ac 11 45 5f  |box_values....E_|
00000230  41 42 53 25 3d 26 38 32  38 38 31 0d 03 b6 12 45  |ABS%=&82881....E|
00000240  5f 54 4f 41 43 25 3d 26  34 34 65 63 31 0d 03 c0  |_TOAC%=&44ec1...|
00000250  13 45 5f 57 41 54 42 53  25 3d 26 38 32 38 38 30  |.E_WATBS%=&82880|
00000260  0d 03 ca 12 45 5f 57 48  42 48 25 3d 26 38 32 38  |....E_WHBH%=&828|
00000270  39 30 0d 03 d4 12 45 5f  57 46 56 43 25 3d 26 38  |90....E_WFVC%=&8|
00000280  32 38 38 35 0d 03 de 11  45 5f 44 44 45 25 3d 26  |2885....E_DDE%=&|
00000290  38 32 38 38 38 0d 03 e8  11 45 5f 4d 53 4d 25 3d  |82888....E_MSM%=|
000002a0  26 38 32 38 43 32 0d 03  f2 13 45 5f 4d 41 54 42  |&828C2....E_MATB|
000002b0  53 25 3d 26 38 32 38 63  30 0d 03 fc 12 45 5f 4d  |S%=&828c0....E_M|
000002c0  48 42 48 25 3d 26 38 32  38 63 31 0d 04 06 10 45  |HBH%=&828c1....E|
000002d0  5f 4d 53 25 3d 26 38 32  38 63 33 0d 04 10 12 45  |_MS%=&828c3....E|
000002e0  5f 53 53 56 43 25 3d 26  38 32 38 38 45 0d 04 1a  |_SSVC%=&8288E...|
000002f0  14 45 5f 53 53 41 54 42  53 25 3d 26 38 32 38 38  |.E_SSATBS%=&8288|
00000300  66 0d 04 24 14 45 5f 50  55 41 54 42 53 25 3d 26  |f..$.E_PUATBS%=&|
00000310  38 32 38 38 62 0d 04 2e  12 45 5f 4e 52 56 43 25  |8288b....E_NRVC%|
00000320  3d 26 38 32 38 38 64 0d  04 56 0c 45 5f 55 51 41  |=&8288d..V.E_UQA|
00000330  25 3d 31 0d 04 7e 0f 4d  5f 44 5f 53 53 25 3d 36  |%=1..~.M_D_SS%=6|
00000340  34 34 0d 04 88 10 4d 5f  44 5f 53 53 50 25 3d 36  |44....M_D_SSP%=6|
00000350  34 30 0d 04 92 0f 4d 5f  44 5f 53 54 25 3d 36 34  |40....M_D_ST%=64|
00000360  32 0d 04 9c 10 4d 5f 52  42 5f 47 53 25 3d 33 38  |2....M_RB_GS%=38|
00000370  39 0d 04 c4 12 54 5f 54  4f 4d 4f 25 3d 26 34 34  |9....T_TOMO%=&44|
00000380  65 63 36 0d 04 ce 11 54  5f 54 53 4f 25 3d 26 34  |ec6....T_TSO%=&4|
00000390  34 65 63 33 0d 04 d8 12  54 5f 54 54 4c 55 25 3d  |4ec3....T_TTLU%=|
000003a0  26 34 34 45 46 42 0d 04  e2 11 54 5f 54 48 4f 25  |&44EFB....T_THO%|
000003b0  3d 26 34 34 65 63 34 0d  05 0a 10 58 42 49 54 25  |=&44ec4....XBIT%|
000003c0  3d 26 32 30 30 30 30 0d  05 14 05 e1 0d 05 5a 10  |=&20000.......Z.|
000003d0  dd f2 69 6e 69 74 69 61  6c 69 73 65 0d 05 82 0f  |..initialise....|
000003e0  ea 65 78 69 73 74 73 25  2c 61 25 0d 05 96 11 f2  |.exists%,a%.....|
000003f0  69 6e 69 74 5f 67 6c 6f  62 61 6c 73 0d 05 be 08  |init_globals....|
00000400  61 25 3d 30 0d 05 c8 09  62 25 3d 31 30 0d 05 d2  |a%=0....b%=10...|
00000410  16 5a 7a 7a 7a 70 61 73  73 5f 53 74 61 74 75 73  |.Zzzzpass_Status|
00000420  25 3d 30 0d 05 dc 15 5a  7a 7a 7a 63 68 6b 5f 53  |%=0....Zzzzchk_S|
00000430  74 61 74 75 73 25 3d 30  0d 05 e6 18 5a 7a 7a 7a  |tatus%=0....Zzzz|
00000440  70 61 73 73 5f 49 6e 66  6f 72 6d 65 64 25 3d a3  |pass_Informed%=.|
00000450  0d 05 f0 05 f5 0d 05 fa  31 c8 99 22 54 61 73 6b  |........1.."Task|
00000460  4d 61 6e 61 67 65 72 5f  45 6e 75 6d 65 72 61 74  |Manager_Enumerat|
00000470  65 54 61 73 6b 73 22 2c  61 25 2c 42 75 66 31 25  |eTasks",a%,Buf1%|
00000480  2c 31 36 b8 61 25 0d 06  04 23 e7 a4 69 6e 64 69  |,16.a%...#..indi|
00000490  72 65 63 74 28 42 75 66  31 25 21 34 29 3d 22 7a  |rect(Buf1%!4)="z|
000004a0  7a 7a 7a 70 61 73 73 22  8c 0d 06 0e 16 5a 7a 7a  |zzzpass".....Zzz|
000004b0  7a 70 61 73 73 5f 53 74  61 74 75 73 25 3d 33 0d  |zpass_Status%=3.|
000004c0  06 18 1c 5a 7a 7a 7a 70  61 73 73 5f 48 61 6e 64  |...Zzzzpass_Hand|
000004d0  6c 65 25 3d 42 75 66 31  25 21 30 0d 06 22 05 cd  |le%=Buf1%!0.."..|
000004e0  0d 06 2c 22 e7 a4 69 6e  64 69 72 65 63 74 28 42  |..,"..indirect(B|
000004f0  75 66 31 25 21 34 29 3d  22 7a 7a 7a 7a 63 68 6b  |uf1%!4)="zzzzchk|
00000500  22 8c 0d 06 36 15 5a 7a  7a 7a 63 68 6b 5f 53 74  |"...6.Zzzzchk_St|
00000510  61 74 75 73 25 3d 33 0d  06 40 1b 5a 7a 7a 7a 63  |atus%=3..@.Zzzzc|
00000520  68 6b 5f 48 61 6e 64 6c  65 25 3d 42 75 66 31 25  |hk_Handle%=Buf1%|
00000530  21 30 0d 06 4a 05 cd 0d  06 54 09 fd 61 25 3c 30  |!0..J....T..a%<0|
00000540  0d 06 7c 0f f2 69 6e 69  74 5f 66 69 6c 65 73 0d  |..|..init_files.|
00000550  06 a4 0d 42 75 66 31 25  21 30 3d 30 0d 06 ae 0d  |...Buf1%!0=0....|
00000560  42 75 66 32 25 21 30 3d  30 0d 06 b8 56 c8 99 22  |Buf2%!0=0...V.."|
00000570  54 6f 6f 6c 62 6f 78 5f  49 6e 69 74 69 61 6c 69  |Toolbox_Initiali|
00000580  73 65 22 2c 30 2c 33 31  30 2c 42 75 66 32 25 2c  |se",0,310,Buf2%,|
00000590  42 75 66 31 25 2c 22 3c  42 6f 6f 74 70 6c 75 73  |Buf1%,"<Bootplus|
000005a0  24 44 69 72 3e 22 2c 54  6c 6d 73 25 2c 54 6c 6f  |$Dir>",Tlms%,Tlo|
000005b0  69 25 b8 2c 54 68 64 6c  25 2c 73 70 72 74 25 0d  |i%.,Thdl%,sprt%.|
000005c0  06 ea 1f c8 99 22 4f 53  5f 46 69 6c 65 22 2c 32  |....."OS_File",2|
000005d0  30 2c 50 61 73 73 66 69  6c 65 24 b8 66 25 0d 06  |0,Passfile$.f%..|
000005e0  f4 0a e7 66 25 3d 30 8c  0d 07 26 4a f2 65 72 72  |...f%=0...&J.err|
000005f0  6f 72 5f 6d 65 73 73 61  67 65 28 22 4d 69 73 73  |or_message("Miss|
00000600  69 6e 67 20 70 61 73 73  77 6f 72 64 20 66 69 6c  |ing password fil|
00000610  65 2c 20 72 65 66 65 72  20 74 6f 20 64 6f 63 75  |e, refer to docu|
00000620  6d 65 6e 74 61 74 69 6f  6e 22 2c 22 22 2c 30 2c  |mentation","",0,|
00000630  30 29 0d 07 30 05 cd 0d  07 3a 05 e1 0d 07 80 12  |0)..0....:......|
00000640  dd f2 69 6e 69 74 5f 67  6c 6f 62 61 6c 73 0d 07  |..init_globals..|
00000650  a8 1b 42 6f 6f 74 70 6c  75 73 5f 56 65 72 73 69  |..Bootplus_Versi|
00000660  6f 6e 24 3d 22 32 2e 30  22 0d 07 b2 13 4c 6f 67  |on$="2.0"....Log|
00000670  67 65 64 5f 55 73 65 72  24 3d 22 22 0d 07 bc 10  |ged_User$=""....|
00000680  4c 6f 67 6f 6e 5f 49 44  25 3d 2d 31 0d 07 c6 14  |Logon_ID%=-1....|
00000690  4f 77 6e 65 72 70 61 73  73 5f 49 44 25 3d 2d 31  |Ownerpass_ID%=-1|
000006a0  0d 07 d0 0b 4f 62 6a 73  25 3d 30 0d 07 da 0b 4e  |....Objs%=0....N|
000006b0  74 72 73 25 3d 30 0d 07  e4 0d 52 75 73 65 72 73  |trs%=0....Rusers|
000006c0  25 3d 30 0d 07 ee 0b 52  75 73 72 25 3d 31 0d 07  |%=0....Rusr%=1..|
000006d0  f8 2f 4f 70 74 66 69 6c  65 24 3d 22 3c 62 6f 6f  |./Optfile$="<boo|
000006e0  74 70 6c 75 73 24 64 69  72 3e 2e 52 65 73 6f 75  |tplus$dir>.Resou|
000006f0  72 63 65 73 2e 4f 70 74  69 6f 6e 73 22 0d 08 02  |rces.Options"...|
00000700  30 54 5f 4f 70 74 66 69  6c 65 24 3d 22 3c 62 6f  |0T_Optfile$="<bo|
00000710  6f 74 70 6c 75 73 24 64  69 72 3e 2e 52 65 73 6f  |otplus$dir>.Reso|
00000720  75 72 63 65 73 2e 4f 70  74 78 78 78 22 0d 08 0c  |urces.Optxxx"...|
00000730  31 41 63 63 65 73 73 66  69 6c 65 24 3d 22 3c 62  |1Accessfile$="<b|
00000740  6f 6f 74 70 6c 75 73 24  64 69 72 3e 2e 52 65 73  |ootplus$dir>.Res|
00000750  6f 75 72 63 65 73 2e 41  63 63 65 73 73 22 0d 08  |ources.Access"..|
00000760  16 36 54 5f 41 63 63 65  73 73 66 69 6c 65 24 3d  |.6T_Accessfile$=|
00000770  22 3c 62 6f 6f 74 70 6c  75 73 24 64 69 72 3e 2e  |"<bootplus$dir>.|
00000780  52 65 73 6f 75 72 63 65  73 2e 41 63 63 65 73 73  |Resources.Access|
00000790  78 78 78 22 0d 08 20 2f  54 69 6d 65 73 66 69 6c  |xxx".. /Timesfil|
000007a0  65 24 3d 22 3c 62 6f 6f  74 70 6c 75 73 24 64 69  |e$="<bootplus$di|
000007b0  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 54 69 6d  |r>.Resources.Tim|
000007c0  65 73 22 0d 08 2a 34 54  5f 54 69 6d 65 73 66 69  |es"..*4T_Timesfi|
000007d0  6c 65 24 3d 22 3c 62 6f  6f 74 70 6c 75 73 24 64  |le$="<bootplus$d|
000007e0  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 54 69  |ir>.Resources.Ti|
000007f0  6d 65 73 78 78 78 22 0d  08 34 31 50 61 73 73 66  |mesxxx"..41Passf|
00000800  69 6c 65 24 3d 22 3c 62  6f 6f 74 70 6c 75 73 24  |ile$="<bootplus$|
00000810  64 69 72 3e 2e 52 65 73  6f 75 72 63 65 73 2e 70  |dir>.Resources.p|
00000820  61 73 73 77 6f 72 64 22  0d 08 3e 34 54 68 69 65  |assword"..>4Thie|
00000830  66 66 69 6c 65 24 3d 22  3c 42 6f 6f 74 70 6c 75  |ffile$="<Bootplu|
00000840  73 24 44 69 72 3e 2e 52  65 73 6f 75 72 63 65 73  |s$Dir>.Resources|
00000850  2e 6b 69 6c 6c 72 69 73  63 70 63 22 0d 08 48 2f  |.killriscpc"..H/|
00000860  4c 6f 67 66 69 6c 65 24  3d 22 3c 42 6f 6f 74 70  |Logfile$="<Bootp|
00000870  6c 75 73 24 64 69 72 3e  2e 52 65 73 6f 75 72 63  |lus$dir>.Resourc|
00000880  65 73 2e 6c 6f 67 66 69  6c 65 22 0d 08 52 33 4f  |es.logfile"..R3O|
00000890  6c 6f 67 66 69 6c 65 24  3d 22 3c 42 6f 6f 74 70  |logfile$="<Bootp|
000008a0  6c 75 73 24 64 69 72 3e  2e 52 65 73 6f 75 72 63  |lus$dir>.Resourc|
000008b0  65 73 2e 6f 6c 64 6c 6f  67 66 69 6c 65 22 0d 08  |es.oldlogfile"..|
000008c0  5c 2f 4f 77 6e 65 72 66  69 6c 65 24 3d 22 3c 42  |\/Ownerfile$="<B|
000008d0  6f 6f 74 70 6c 75 73 24  64 69 72 3e 2e 52 65 73  |ootplus$dir>.Res|
000008e0  6f 75 72 63 65 73 2e 6f  77 6e 65 72 22 0d 08 66  |ources.owner"..f|
000008f0  10 41 75 74 6f 63 6c 6f  73 65 25 3d a3 0d 08 70  |.Autoclose%=...p|
00000900  11 45 64 69 74 5f 54 79  70 65 24 3d 22 22 0d 08  |.Edit_Type$=""..|
00000910  7a 0f 41 6c 69 61 73 5f  57 48 25 3d 30 0d 08 84  |z.Alias_WH%=0...|
00000920  0f 46 6f 6e 74 5f 4c 68  25 3d 34 34 0d 08 8e 20  |.Font_Lh%=44... |
00000930  46 6f 6e 74 5f 4e 61 6d  65 24 3d 22 48 6f 6d 65  |Font_Name$="Home|
00000940  72 74 6f 6e 2e 4d 65 64  69 75 6d 22 0d 08 98 0e  |rton.Medium"....|
00000950  45 64 69 74 6f 72 73 25  3d 30 0d 08 a2 0c 54 64  |Editors%=0....Td|
00000960  69 72 73 25 3d 30 0d 08  ac 0c 54 79 64 69 72 25  |irs%=0....Tydir%|
00000970  3d 30 0d 08 b6 0c 54 6e  64 69 72 25 3d 30 0d 08  |=0....Tndir%=0..|
00000980  de 10 f3 42 6f 6f 74 5f  54 79 70 65 73 25 0d 08  |...Boot_Types%..|
00000990  e8 15 e3 61 25 3d 31 b8  42 6f 6f 74 5f 54 79 70  |...a%=1.Boot_Typ|
000009a0  65 73 25 0d 08 f2 0b e3  62 25 3d 31 b8 33 0d 08  |es%.....b%=1.3..|
000009b0  fc 16 f3 42 6f 6f 74 5f  54 79 70 65 24 28 61 25  |...Boot_Type$(a%|
000009c0  2c 62 25 29 0d 09 06 07  ed 62 25 0d 09 10 07 ed  |,b%).....b%.....|
000009d0  61 25 0d 09 38 0f f3 53  74 61 6e 64 61 72 64 73  |a%..8..Standards|
000009e0  25 0d 09 42 14 e3 61 25  3d 31 b8 53 74 61 6e 64  |%..B..a%=1.Stand|
000009f0  61 72 64 73 25 0d 09 4c  0b e3 62 25 3d 31 b8 32  |ards%..L..b%=1.2|
00000a00  0d 09 56 15 f3 53 74 61  6e 64 61 72 64 24 28 61  |..V..Standard$(a|
00000a10  25 2c 62 25 29 0d 09 60  07 ed 62 25 0d 09 6a 07  |%,b%)..`..b%..j.|
00000a20  ed 61 25 0d 09 7e 0b e3  61 25 3d 31 b8 37 0d 09  |.a%..~..a%=1.7..|
00000a30  88 12 f3 57 65 65 6b 64  61 79 73 24 28 61 25 29  |...Weekdays$(a%)|
00000a40  0d 09 92 07 ed 61 25 0d  09 9c 05 e1 0d 09 e2 10  |.....a%.........|
00000a50  dd f2 69 6e 69 74 5f 66  69 6c 65 73 0d 0a 0a 10  |..init_files....|
00000a60  ea 66 25 2c 61 25 2c 61  24 2c 62 25 0d 0a 32 1e  |.f%,a%,a$,b%..2.|
00000a70  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 32 30 2c 4f  |.."OS_File",20,O|
00000a80  70 74 66 69 6c 65 24 b8  66 25 0d 0a 3c 0a e7 66  |ptfile$.f%..<..f|
00000a90  25 3d 30 8c 0d 0a 46 27  f2 73 61 76 65 5f 6f 70  |%=0...F'.save_op|
00000aa0  74 69 6f 6e 73 28 32 34  30 2c 35 2c 36 30 2c b9  |tions(240,5,60,.|
00000ab0  2c b9 2c b9 2c b9 2c b9  2c b9 29 0d 0a 50 13 47  |,.,.,.,.,.)..P.G|
00000ac0  75 65 73 74 5f 4c 6f 67  69 6e 73 25 3d b9 0d 0a  |uest_Logins%=...|
00000ad0  5a 18 46 75 6c 6c 5f 4f  77 6e 65 72 5f 41 63 63  |Z.Full_Owner_Acc|
00000ae0  65 73 73 25 3d b9 0d 0a  64 05 cc 0d 0a 6e 47 f2  |ess%=...d....nG.|
00000af0  67 65 74 5f 6f 70 74 69  6f 6e 73 28 61 25 2c 61  |get_options(a%,a|
00000b00  25 2c 61 25 2c 61 25 2c  61 25 2c 61 25 2c 47 75  |%,a%,a%,a%,a%,Gu|
00000b10  65 73 74 5f 4c 6f 67 69  6e 73 25 2c 59 25 2c 46  |est_Logins%,Y%,F|
00000b20  75 6c 6c 5f 4f 77 6e 65  72 5f 41 63 63 65 73 73  |ull_Owner_Access|
00000b30  25 29 0d 0a 78 05 cd 0d  0a a0 20 c8 99 22 4f 53  |%)..x..... .."OS|
00000b40  5f 46 69 6c 65 22 2c 32  30 2c 54 68 69 65 66 66  |_File",20,Thieff|
00000b50  69 6c 65 24 b8 66 25 0d  0a aa 0a e7 66 25 3d 30  |ile$.f%.....f%=0|
00000b60  8c 0d 0a b4 14 66 25 3d  ae 28 54 68 69 65 66 66  |.....f%=.(Thieff|
00000b70  69 6c 65 24 29 0d 0a be  1f d5 23 66 25 2c 22 7c  |ile$).....#f%,"||
00000b80  20 61 20 6c 69 73 74 20  66 6f 72 20 6b 69 6c 6c  | a list for kill|
00000b90  69 6e 67 22 0d 0a c8 08  d9 23 66 25 0d 0a d2 25  |ing".....#f%...%|
00000ba0  ff 28 22 2a 53 65 74 74  79 70 65 20 22 2b 54 68  |.("*Settype "+Th|
00000bb0  69 65 66 66 69 6c 65 24  2b 22 20 6f 62 65 79 22  |ieffile$+" obey"|
00000bc0  29 0d 0a dc 05 cd 0d 0b  04 21 c8 99 22 4f 53 5f  |)........!.."OS_|
00000bd0  46 69 6c 65 22 2c 32 30  2c 41 63 63 65 73 73 66  |File",20,Accessf|
00000be0  69 6c 65 24 b8 66 25 0d  0b 0e 0a e7 66 25 3d 30  |ile$.f%.....f%=0|
00000bf0  8c 0d 0b 40 0d 52 75 73  65 72 73 25 3d 31 0d 0b  |...@.Rusers%=1..|
00000c00  4a 14 52 75 73 72 24 28  31 29 3d 22 47 55 45 53  |J.Rusr$(1)="GUES|
00000c10  54 22 0d 0b 54 4e 52 64  69 72 24 28 31 29 3d 22  |T"..TNRdir$(1)="|
00000c20  7c 41 70 70 73 7c 44 69  76 65 72 73 69 6f 6e 73  ||Apps|Diversions|
00000c30  7c 49 6d 61 67 65 73 7c  50 75 62 6c 69 63 7c 53  ||Images|Public|S|
00000c40  6f 75 6e 64 7c 54 75 74  6f 72 69 61 6c 73 7c 55  |ound|Tutorials|U|
00000c50  74 69 6c 69 74 69 65 73  7c 56 69 64 65 6f 7c 22  |tilities|Video|"|
00000c60  0d 0b 5e 13 66 25 3d 8e  28 50 61 73 73 66 69 6c  |..^.f%=.(Passfil|
00000c70  65 24 29 0d 0b 68 05 f5  0d 0b 72 0b 61 24 3d be  |e$)..h....r.a$=.|
00000c80  23 66 25 0d 0b 7c 0e 52  75 73 65 72 73 25 2b 3d  |#f%..|.Rusers%+=|
00000c90  31 0d 0b 86 10 61 25 3d  a7 61 24 2c bd 28 39 29  |1....a%=.a$,.(9)|
00000ca0  29 0d 0b 90 1c 52 75 73  72 24 28 52 75 73 65 72  |)....Rusr$(Ruser|
00000cb0  73 25 29 3d c0 61 24 2c  61 25 2d 31 29 0d 0b 9a  |s%)=.a$,a%-1)...|
00000cc0  54 52 64 69 72 24 28 52  75 73 65 72 73 25 29 3d  |TRdir$(Rusers%)=|
00000cd0  22 7c 41 70 70 73 7c 44  69 76 65 72 73 69 6f 6e  |"|Apps|Diversion|
00000ce0  73 7c 49 6d 61 67 65 73  7c 50 75 62 6c 69 63 7c  |s|Images|Public||
00000cf0  53 6f 75 6e 64 7c 54 75  74 6f 72 69 61 6c 73 7c  |Sound|Tutorials||
00000d00  55 74 69 6c 69 74 69 65  73 7c 56 69 64 65 6f 7c  |Utilities|Video||
00000d10  22 0d 0b a4 09 fd c5 23  66 25 0d 0b ae 08 d9 23  |"......#f%.....#|
00000d20  66 25 0d 0b b8 14 f2 73  61 76 65 5f 75 73 65 72  |f%.....save_user|
00000d30  61 63 63 65 73 73 0d 0b  c2 05 cc 0d 0b cc 13 f2  |access..........|
00000d40  67 65 74 5f 75 73 65 72  61 63 63 65 73 73 0d 0b  |get_useraccess..|
00000d50  d6 05 cd 0d 0b fe 20 c8  99 22 4f 53 5f 46 69 6c  |...... .."OS_Fil|
00000d60  65 22 2c 32 30 2c 54 69  6d 65 73 66 69 6c 65 24  |e",20,Timesfile$|
00000d70  b8 66 25 0d 0c 08 0a e7  66 25 3d 30 8c 0d 0c 30  |.f%.....f%=0...0|
00000d80  11 e3 61 25 3d 31 b8 52  75 73 65 72 73 25 0d 0c  |..a%=1.Rusers%..|
00000d90  3a 0a 61 24 3d 22 7c 22  0d 0c 44 0b e3 62 25 3d  |:.a$="|"..D..b%=|
00000da0  31 b8 37 0d 0c 4e 1f 61  24 2b 3d 57 65 65 6b 64  |1.7..N.a$+=Weekd|
00000db0  61 79 73 24 28 62 25 29  2b 22 59 3d 38 3d 31 37  |ays$(b%)+"Y=8=17|
00000dc0  7c 22 0d 0c 58 07 ed 62  25 0d 0c 62 10 52 74 69  ||"..X..b%..b.Rti|
00000dd0  6d 24 28 61 25 29 3d 61  24 0d 0c 6c 07 ed 61 25  |m$(a%)=a$..l..a%|
00000de0  0d 0c 76 13 f2 73 61 76  65 5f 75 73 65 72 74 69  |..v..save_userti|
00000df0  6d 65 73 0d 0c 80 05 cc  0d 0c 8a 12 f2 67 65 74  |mes..........get|
00000e00  5f 75 73 65 72 74 69 6d  65 73 0d 0c 94 05 cd 0d  |_usertimes......|
00000e10  0c bc 1e c8 99 22 4f 53  5f 46 69 6c 65 22 2c 32  |....."OS_File",2|
00000e20  30 2c 4c 6f 67 66 69 6c  65 24 b8 66 25 0d 0c c6  |0,Logfile$.f%...|
00000e30  09 e7 66 25 3d 30 0d 0c  ee 20 c8 99 22 4f 53 5f  |..f%=0... .."OS_|
00000e40  46 69 6c 65 22 2c 31 31  2c 4c 6f 67 66 69 6c 65  |File",11,Logfile|
00000e50  24 2c 26 46 46 46 0d 0c  f8 12 66 25 3d ad 28 4c  |$,&FFF....f%=.(L|
00000e60  6f 67 66 69 6c 65 24 29  0d 0d 02 1e d5 23 66 25  |ogfile$).....#f%|
00000e70  2c 22 7c 20 42 6f 6f 74  70 6c 75 73 20 6c 6f 67  |,"| Bootplus log|
00000e80  20 66 69 6c 65 22 0d 0d  0c 08 d9 23 66 25 0d 0d  | file".....#f%..|
00000e90  16 05 cd 0d 0d 20 05 e1  0d 0d 66 08 dd f2 64 6f  |..... ....f...do|
00000ea0  0d 0d 8e 0e c8 8e 72 65  61 73 6f 6e 25 ca 0d 0d  |......reason%...|
00000eb0  98 06 c9 31 0d 0d a2 12  f2 72 65 64 72 61 77 5f  |...1.....redraw_|
00000ec0  77 69 6e 64 6f 77 0d 0d  ac 06 c9 32 0d 0d b6 10  |window.....2....|
00000ed0  f2 6f 70 65 6e 5f 77 69  6e 64 6f 77 0d 0d c0 06  |.open_window....|
00000ee0  c9 33 0d 0d ca 11 f2 63  6c 6f 73 65 5f 77 69 6e  |.3.....close_win|
00000ef0  64 6f 77 0d 0d d4 06 c9  36 0d 0d de 10 f2 6d 6f  |dow.....6.....mo|
00000f00  75 73 65 5f 63 6c 69 63  6b 0d 0d e8 07 c9 31 30  |use_click.....10|
00000f10  0d 0d f2 13 f2 73 63 72  6f 6c 6c 5f 72 65 71 75  |.....scroll_requ|
00000f20  65 73 74 0d 0d fc 0d c9  31 37 2c 31 38 2c 31 39  |est.....17,18,19|
00000f30  0d 0e 06 12 f2 77 69 6d  70 5f 6d 65 73 73 61 67  |.....wimp_messag|
00000f40  65 73 0d 0e 10 09 c9 26  32 30 30 0d 0e 1a 13 f2  |es.....&200.....|
00000f50  74 6f 6f 6c 62 6f 78 5f  65 76 65 6e 74 73 0d 0e  |toolbox_events..|
00000f60  24 05 cb 0d 0e 2e 05 e1  0d 0e 74 13 dd f2 72 65  |$.........t...re|
00000f70  64 72 61 77 5f 77 69 6e  64 6f 77 0d 0e 9c 0e c8  |draw_window.....|
00000f80  8e 42 6c 63 6b 25 21 30  ca 0d 0e a6 12 c9 53 75  |.Blck%!0......Su|
00000f90  62 6c 69 73 74 25 28 31  2c 32 29 0d 0e ce 13 f2  |blist%(1,2).....|
00000fa0  64 72 61 77 5f 6d 61 69  6e 28 31 2c 32 29 0d 0e  |draw_main(1,2)..|
00000fb0  d8 12 c9 53 75 62 6c 69  73 74 25 28 31 2c 31 29  |...Sublist%(1,1)|
00000fc0  0d 0f 00 16 f2 64 72 61  77 5f 73 75 62 28 31 2c  |.....draw_sub(1,|
00000fd0  32 2c a3 2c 30 29 0d 0f  0a 12 c9 53 75 62 6c 69  |2,.,0).....Subli|
00000fe0  73 74 25 28 32 2c 32 29  0d 0f 32 13 f2 64 72 61  |st%(2,2)..2..dra|
00000ff0  77 5f 6d 61 69 6e 28 32  2c 32 29 0d 0f 3c 12 c9  |w_main(2,2)..<..|
00001000  53 75 62 6c 69 73 74 25  28 32 2c 31 29 0d 0f 64  |Sublist%(2,1)..d|
00001010  16 f2 64 72 61 77 5f 73  75 62 28 32 2c 32 2c a3  |..draw_sub(2,2,.|
00001020  2c 30 29 0d 0f 6e 12 c9  53 75 62 6c 69 73 74 25  |,0)..n..Sublist%|
00001030  28 33 2c 31 29 0d 0f 96  16 f2 64 72 61 77 5f 73  |(3,1).....draw_s|
00001040  75 62 28 33 2c 32 2c a3  2c 30 29 0d 0f a0 05 cb  |ub(3,2,.,0).....|
00001050  0d 0f aa 05 e1 0d 0f f0  11 dd f2 6f 70 65 6e 5f  |...........open_|
00001060  77 69 6e 64 6f 77 0d 10  18 08 ea 62 68 25 0d 10  |window.....bh%..|
00001070  2c 10 62 68 25 3d 42 6c  63 6b 25 21 32 38 0d 10  |,.bh%=Blck%!28..|
00001080  36 0e c8 8e 42 6c 63 6b  25 21 30 ca 0d 10 40 12  |6...Blck%!0...@.|
00001090  c9 53 75 62 6c 69 73 74  25 28 31 2c 32 29 0d 10  |.Sublist%(1,2)..|
000010a0  68 1a 42 6c 63 6b 25 21  32 38 3d 53 75 62 6c 69  |h.Blck%!28=Subli|
000010b0  73 74 25 28 31 2c 31 29  0d 10 72 1e c8 99 22 57  |st%(1,1)..r..."W|
000010c0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000010d0  2c 42 6c 63 6b 25 0d 10  7c 18 f2 64 72 61 77 5f  |,Blck%..|..draw_|
000010e0  73 75 62 28 31 2c 33 2c  a3 2c 62 68 25 29 0d 10  |sub(1,3,.,bh%)..|
000010f0  86 12 c9 53 75 62 6c 69  73 74 25 28 31 2c 31 29  |...Sublist%(1,1)|
00001100  0d 10 ae 1e c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |......"Wimp_Open|
00001110  57 69 6e 64 6f 77 22 2c  2c 42 6c 63 6b 25 0d 10  |Window",,Blck%..|
00001120  b8 12 c9 53 75 62 6c 69  73 74 25 28 32 2c 32 29  |...Sublist%(2,2)|
00001130  0d 10 e0 1a 42 6c 63 6b  25 21 32 38 3d 53 75 62  |....Blck%!28=Sub|
00001140  6c 69 73 74 25 28 32 2c  31 29 0d 10 ea 1e c8 99  |list%(2,1)......|
00001150  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
00001160  22 2c 2c 42 6c 63 6b 25  0d 10 f4 18 f2 64 72 61  |",,Blck%.....dra|
00001170  77 5f 73 75 62 28 32 2c  33 2c a3 2c 62 68 25 29  |w_sub(2,3,.,bh%)|
00001180  0d 10 fe 18 f2 64 72 61  77 5f 73 75 62 28 33 2c  |.....draw_sub(3,|
00001190  33 2c a3 2c 62 68 25 29  0d 11 08 12 c9 53 75 62  |3,.,bh%).....Sub|
000011a0  6c 69 73 74 25 28 32 2c  31 29 0d 11 30 1e c8 99  |list%(2,1)..0...|
000011b0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
000011c0  22 2c 2c 42 6c 63 6b 25  0d 11 3a 12 c9 53 75 62  |",,Blck%..:..Sub|
000011d0  6c 69 73 74 25 28 33 2c  31 29 0d 11 62 1e c8 99  |list%(3,1)..b...|
000011e0  22 57 69 6d 70 5f 4f 70  65 6e 57 69 6e 64 6f 77  |"Wimp_OpenWindow|
000011f0  22 2c 2c 42 6c 63 6b 25  0d 11 6c 05 cb 0d 11 76  |",,Blck%..l....v|
00001200  05 e1 0d 11 bc 12 dd f2  63 6c 6f 73 65 5f 77 69  |........close_wi|
00001210  6e 64 6f 77 0d 11 e4 0e  c8 8e 42 6c 63 6b 25 21  |ndow......Blck%!|
00001220  30 ca 0d 11 ee 12 c9 53  75 62 6c 69 73 74 25 28  |0......Sublist%(|
00001230  31 2c 32 29 0d 12 16 19  42 6c 63 6b 25 21 30 3d  |1,2)....Blck%!0=|
00001240  53 75 62 6c 69 73 74 25  28 31 2c 32 29 0d 12 20  |Sublist%(1,2).. |
00001250  1f c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |..."Wimp_CloseWi|
00001260  6e 64 6f 77 22 2c 2c 42  6c 63 6b 25 0d 12 2a 19  |ndow",,Blck%..*.|
00001270  42 6c 63 6b 25 21 30 3d  53 75 62 6c 69 73 74 25  |Blck%!0=Sublist%|
00001280  28 31 2c 31 29 0d 12 34  1f c8 99 22 57 69 6d 70  |(1,1)..4..."Wimp|
00001290  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 42  |_CloseWindow",,B|
000012a0  6c 63 6b 25 0d 12 3e 12  c9 53 75 62 6c 69 73 74  |lck%..>..Sublist|
000012b0  25 28 32 2c 32 29 0d 12  66 19 42 6c 63 6b 25 21  |%(2,2)..f.Blck%!|
000012c0  30 3d 53 75 62 6c 69 73  74 25 28 32 2c 32 29 0d  |0=Sublist%(2,2).|
000012d0  12 70 1f c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |.p..."Wimp_Close|
000012e0  57 69 6e 64 6f 77 22 2c  2c 42 6c 63 6b 25 0d 12  |Window",,Blck%..|
000012f0  7a 19 42 6c 63 6b 25 21  30 3d 53 75 62 6c 69 73  |z.Blck%!0=Sublis|
00001300  74 25 28 32 2c 31 29 0d  12 84 1f c8 99 22 57 69  |t%(2,1)......"Wi|
00001310  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00001320  2c 42 6c 63 6b 25 0d 12  8e 19 42 6c 63 6b 25 21  |,Blck%....Blck%!|
00001330  30 3d 53 75 62 6c 69 73  74 25 28 33 2c 31 29 0d  |0=Sublist%(3,1).|
00001340  12 98 1f c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |....."Wimp_Close|
00001350  57 69 6e 64 6f 77 22 2c  2c 42 6c 63 6b 25 0d 12  |Window",,Blck%..|
00001360  a2 05 cb 0d 12 ac 05 e1  0d 12 f2 11 dd f2 6d 6f  |..............mo|
00001370  75 73 65 5f 63 6c 69 63  6b 0d 13 1a 19 ea 77 6b  |use_click.....wk|
00001380  5f 6d 79 25 2c 6f 73 5f  77 79 25 2c 74 72 25 2c  |_my%,os_wy%,tr%,|
00001390  70 25 0d 13 2e 0f c8 8e  42 6c 63 6b 25 21 31 32  |p%......Blck%!12|
000013a0  ca 0d 13 38 12 c9 53 75  62 6c 69 73 74 25 28 31  |...8..Sublist%(1|
000013b0  2c 31 29 0d 13 60 15 f2  62 6f 6f 74 6c 69 73 74  |,1)..`..bootlist|
000013c0  5f 63 6c 69 63 6b 65 64  0d 13 6a 12 c9 53 75 62  |_clicked..j..Sub|
000013d0  6c 69 73 74 25 28 32 2c  31 29 0d 13 92 37 f2 64  |list%(2,1)...7.d|
000013e0  69 72 6c 69 73 74 5f 63  6c 69 63 6b 65 64 28 32  |irlist_clicked(2|
000013f0  2c 54 79 64 69 72 73 25  2c 54 6e 64 69 72 73 25  |,Tydirs%,Tndirs%|
00001400  2c 54 79 70 74 25 28 29  2c 54 6e 70 74 25 28 29  |,Typt%(),Tnpt%()|
00001410  29 0d 13 c4 19 f2 73 65  74 5f 6c 69 73 74 5f 65  |).....set_list_e|
00001420  78 74 65 6e 74 28 32 2c  b9 29 0d 13 ce 16 f2 64  |xtent(2,.).....d|
00001430  72 61 77 5f 73 75 62 28  32 2c 32 2c a3 2c 30 29  |raw_sub(2,2,.,0)|
00001440  0d 13 d8 19 f2 73 65 74  5f 6c 69 73 74 5f 65 78  |.....set_list_ex|
00001450  74 65 6e 74 28 33 2c b9  29 0d 13 e2 16 f2 64 72  |tent(3,.).....dr|
00001460  61 77 5f 73 75 62 28 33  2c 32 2c a3 2c 30 29 0d  |aw_sub(3,2,.,0).|
00001470  13 ec 12 c9 53 75 62 6c  69 73 74 25 28 33 2c 31  |....Sublist%(3,1|
00001480  29 0d 14 14 37 f2 64 69  72 6c 69 73 74 5f 63 6c  |)...7.dirlist_cl|
00001490  69 63 6b 65 64 28 33 2c  54 6e 64 69 72 73 25 2c  |icked(3,Tndirs%,|
000014a0  54 79 64 69 72 73 25 2c  54 6e 70 74 25 28 29 2c  |Tydirs%,Tnpt%(),|
000014b0  54 79 70 74 25 28 29 29  0d 14 46 19 f2 73 65 74  |Typt%())..F..set|
000014c0  5f 6c 69 73 74 5f 65 78  74 65 6e 74 28 32 2c b9  |_list_extent(2,.|
000014d0  29 0d 14 50 16 f2 64 72  61 77 5f 73 75 62 28 32  |)..P..draw_sub(2|
000014e0  2c 32 2c a3 2c 30 29 0d  14 5a 19 f2 73 65 74 5f  |,2,.,0)..Z..set_|
000014f0  6c 69 73 74 5f 65 78 74  65 6e 74 28 33 2c b9 29  |list_extent(3,.)|
00001500  0d 14 64 16 f2 64 72 61  77 5f 73 75 62 28 33 2c  |..d..draw_sub(3,|
00001510  32 2c a3 2c 30 29 0d 14  6e 05 cb 0d 14 78 05 e1  |2,.,0)..n....x..|
00001520  0d 14 be 16 dd f2 62 6f  6f 74 6c 69 73 74 5f 63  |......bootlist_c|
00001530  6c 69 63 6b 65 64 0d 14  e6 12 6f 73 5f 6d 79 25  |licked....os_my%|
00001540  3d 42 6c 63 6b 25 21 34  0d 15 0e 19 42 6c 63 6b  |=Blck%!4....Blck|
00001550  25 21 30 3d 53 75 62 6c  69 73 74 25 28 31 2c 31  |%!0=Sublist%(1,1|
00001560  29 0d 15 18 22 c8 99 22  57 69 6d 70 5f 47 65 74  |)...".."Wimp_Get|
00001570  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 42 6c  |WindowState",,Bl|
00001580  63 6b 25 0d 15 22 25 77  6b 5f 6d 79 25 3d 6f 73  |ck%.."%wk_my%=os|
00001590  5f 6d 79 25 2d 28 42 6c  63 6b 25 21 31 36 2d 42  |_my%-(Blck%!16-B|
000015a0  6c 63 6b 25 21 32 34 29  0d 15 2c 1d 74 72 25 3d  |lck%!24)..,.tr%=|
000015b0  a8 28 2d 77 6b 5f 6d 79  25 2f 46 6f 6e 74 5f 4c  |.(-wk_my%/Font_L|
000015c0  68 25 29 2b 31 0d 15 36  10 e7 74 72 25 3c 3d 4f  |h%)+1..6..tr%<=O|
000015d0  62 6a 73 25 8c 0d 15 5e  11 70 25 3d 4f 70 74 72  |bjs%...^.p%=Optr|
000015e0  25 28 74 72 25 29 0d 15  68 19 e7 28 4f 66 6c 67  |%(tr%)..h..(Oflg|
000015f0  25 28 70 25 2c 35 29 80  20 36 34 29 3d 30 8c 0d  |%(p%,5). 64)=0..|
00001600  15 90 12 4f 66 6c 67 25  28 70 25 2c 35 29 3d 31  |...Oflg%(p%,5)=1|
00001610  36 0d 15 9a 11 e3 70 25  3d 74 72 25 b8 4f 62 6a  |6.....p%=tr%.Obj|
00001620  73 25 0d 15 a4 19 4f 70  74 72 25 28 70 25 29 3d  |s%....Optr%(p%)=|
00001630  4f 70 74 72 25 28 70 25  2b 31 29 0d 15 ae 07 ed  |Optr%(p%+1).....|
00001640  70 25 0d 15 b8 0c 4f 62  6a 73 25 2d 3d 31 0d 15  |p%....Objs%-=1..|
00001650  e0 19 f2 73 65 74 5f 6c  69 73 74 5f 65 78 74 65  |...set_list_exte|
00001660  6e 74 28 31 2c b9 29 0d  15 ea 16 f2 64 72 61 77  |nt(1,.).....draw|
00001670  5f 73 75 62 28 31 2c 32  2c a3 2c 30 29 0d 15 f4  |_sub(1,2,.,0)...|
00001680  05 cc 0d 16 1c 68 f2 65  72 72 6f 72 5f 6d 65 73  |.....h.error_mes|
00001690  73 61 67 65 28 22 54 68  61 74 20 65 6e 74 72 79  |sage("That entry|
000016a0  20 69 73 20 73 74 61 6e  64 61 72 64 2e 20 20 54  | is standard.  T|
000016b0  68 69 73 20 61 70 70 6c  69 63 61 74 69 6f 6e 20  |his application |
000016c0  77 69 6c 6c 20 6e 6f 74  20 61 6c 6c 6f 77 20 74  |will not allow t|
000016d0  68 65 6d 20 74 6f 20 62  65 20 64 65 6c 65 74 65  |hem to be delete|
000016e0  64 22 2c 22 22 2c 30 2c  30 29 0d 16 26 05 cd 0d  |d","",0,0)..&...|
000016f0  16 30 05 cd 0d 16 3a 05  e1 0d 16 80 3b dd f2 64  |.0....:.....;..d|
00001700  69 72 6c 69 73 74 5f 63  6c 69 63 6b 65 64 28 73  |irlist_clicked(s|
00001710  69 64 25 2c f8 66 72 63  74 25 2c f8 74 6f 63 74  |id%,.frct%,.toct|
00001720  25 2c f8 66 72 70 74 25  28 29 2c f8 74 6f 70 74  |%,.frpt%(),.topt|
00001730  25 28 29 29 0d 16 a8 19  ea 6f 73 5f 6d 79 25 2c  |%()).....os_my%,|
00001740  77 6b 5f 6d 79 25 2c 74  72 25 2c 70 25 0d 16 bc  |wk_my%,tr%,p%...|
00001750  12 6f 73 5f 6d 79 25 3d  42 6c 63 6b 25 21 34 0d  |.os_my%=Blck%!4.|
00001760  16 e4 1c 42 6c 63 6b 25  21 30 3d 53 75 62 6c 69  |...Blck%!0=Subli|
00001770  73 74 25 28 73 69 64 25  2c 31 29 0d 16 ee 22 c8  |st%(sid%,1)...".|
00001780  99 22 57 69 6d 70 5f 47  65 74 57 69 6e 64 6f 77  |."Wimp_GetWindow|
00001790  53 74 61 74 65 22 2c 2c  42 6c 63 6b 25 0d 16 f8  |State",,Blck%...|
000017a0  25 77 6b 5f 6d 79 25 3d  6f 73 5f 6d 79 25 2d 28  |%wk_my%=os_my%-(|
000017b0  42 6c 63 6b 25 21 31 36  2d 42 6c 63 6b 25 21 32  |Blck%!16-Blck%!2|
000017c0  34 29 0d 17 02 1d 74 72  25 3d a8 28 2d 77 6b 5f  |4)....tr%=.(-wk_|
000017d0  6d 79 25 2f 46 6f 6e 74  5f 4c 68 25 29 2b 31 0d  |my%/Font_Lh%)+1.|
000017e0  17 0c 10 e7 74 72 25 3c  3d 66 72 63 74 25 8c 0d  |....tr%<=frct%..|
000017f0  17 34 11 70 25 3d 66 72  70 74 25 28 74 72 25 29  |.4.p%=frpt%(tr%)|
00001800  0d 17 3e 35 e7 28 28 54  66 6c 67 25 28 70 25 2c  |..>5.((Tflg%(p%,|
00001810  31 29 80 26 34 30 29 3d  26 34 30 29 80 28 52 75  |1).&40)=&40).(Ru|
00001820  73 72 24 28 52 75 73 72  25 29 3c 3e 22 4f 57 4e  |sr$(Rusr%)<>"OWN|
00001830  45 52 22 29 8c 0d 17 66  49 f2 65 72 72 6f 72 5f  |ER")...fI.error_|
00001840  6d 65 73 73 61 67 65 28  22 54 68 61 74 20 65 6e  |message("That en|
00001850  74 72 79 20 63 61 6e 20  6f 6e 6c 79 20 62 65 20  |try can only be |
00001860  61 63 63 65 73 73 65 64  20 62 79 20 74 68 65 20  |accessed by the |
00001870  4f 57 4e 45 52 22 2c 22  22 2c 30 2c 30 29 0d 17  |OWNER","",0,0)..|
00001880  70 05 cc 0d 17 98 0c 74  6f 63 74 25 2b 3d 31 0d  |p......toct%+=1.|
00001890  17 a2 0c 61 25 3d 74 6f  63 74 25 0d 17 ac 1d c8  |...a%=toct%.....|
000018a0  95 28 74 6f 70 74 25 28  61 25 2d 31 29 3e 70 25  |.(topt%(a%-1)>p%|
000018b0  29 80 28 61 25 3e 31 29  0d 17 b6 19 74 6f 70 74  |).(a%>1)....topt|
000018c0  25 28 61 25 29 3d 74 6f  70 74 25 28 61 25 2d 31  |%(a%)=topt%(a%-1|
000018d0  29 0d 17 c0 09 61 25 2d  3d 31 0d 17 ca 05 ce 0d  |)....a%-=1......|
000018e0  17 d4 10 74 6f 70 74 25  28 61 25 29 3d 70 25 0d  |...topt%(a%)=p%.|
000018f0  17 fc 0c 66 72 63 74 25  2d 3d 31 0d 18 06 10 e7  |...frct%-=1.....|
00001900  74 72 25 3c 3d 66 72 63  74 25 8c 0d 18 10 11 e3  |tr%<=frct%......|
00001910  61 25 3d 74 72 25 b8 66  72 63 74 25 0d 18 1a 19  |a%=tr%.frct%....|
00001920  66 72 70 74 25 28 61 25  29 3d 66 72 70 74 25 28  |frpt%(a%)=frpt%(|
00001930  61 25 2b 31 29 0d 18 24  07 ed 61 25 0d 18 2e 05  |a%+1)..$..a%....|
00001940  cd 0d 18 38 14 66 72 70  74 25 28 66 72 63 74 25  |...8.frpt%(frct%|
00001950  2b 31 29 3d 30 0d 18 42  05 cd 0d 18 4c 05 cd 0d  |+1)=0..B....L...|
00001960  18 56 05 e1 0d 18 9c 14  dd f2 73 63 72 6f 6c 6c  |.V........scroll|
00001970  5f 72 65 71 75 65 73 74  0d 18 c4 0b ea 72 25 2c  |_request.....r%,|
00001980  62 68 25 0d 18 d8 10 62  68 25 3d 42 6c 63 6b 25  |bh%....bh%=Blck%|
00001990  21 32 38 0d 18 e2 0e c8  8e 42 6c 63 6b 25 21 30  |!28......Blck%!0|
000019a0  ca 0d 18 ec 12 c9 53 75  62 6c 69 73 74 25 28 31  |......Sublist%(1|
000019b0  2c 31 29 0d 19 1e 27 72  25 3d a8 28 28 42 6c 63  |,1)...'r%=.((Blc|
000019c0  6b 25 21 31 36 2d 42 6c  63 6b 25 21 38 29 2f 46  |k%!16-Blck%!8)/F|
000019d0  6f 6e 74 5f 4c 68 25 29  2d 31 0d 19 28 0f c8 8e  |ont_Lh%)-1..(...|
000019e0  42 6c 63 6b 25 21 33 36  ca 0d 19 32 07 c9 2d 32  |Blck%!36...2..-2|
000019f0  0d 19 3c 19 42 6c 63 6b  25 21 32 34 2d 3d 46 6f  |..<.Blck%!24-=Fo|
00001a00  6e 74 5f 4c 68 25 2a 72  25 0d 19 46 07 c9 2d 31  |nt_Lh%*r%..F..-1|
00001a10  0d 19 50 16 42 6c 63 6b  25 21 32 34 2d 3d 46 6f  |..P.Blck%!24-=Fo|
00001a20  6e 74 5f 4c 68 25 0d 19  5a 06 c9 31 0d 19 64 16  |nt_Lh%..Z..1..d.|
00001a30  42 6c 63 6b 25 21 32 34  2b 3d 46 6f 6e 74 5f 4c  |Blck%!24+=Font_L|
00001a40  68 25 0d 19 6e 06 c9 32  0d 19 78 19 42 6c 63 6b  |h%..n..2..x.Blck|
00001a50  25 21 32 34 2b 3d 46 6f  6e 74 5f 4c 68 25 2a 72  |%!24+=Font_Lh%*r|
00001a60  25 0d 19 82 05 cb 0d 19  8c 1e c8 99 22 57 69 6d  |%..........."Wim|
00001a70  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 42  |p_OpenWindow",,B|
00001a80  6c 63 6b 25 0d 19 96 12  c9 53 75 62 6c 69 73 74  |lck%.....Sublist|
00001a90  25 28 32 2c 31 29 0d 19  be 12 c9 53 75 62 6c 69  |%(2,1).....Subli|
00001aa0  73 74 25 28 32 2c 32 29  0d 19 e6 0f c8 8e 42 6c  |st%(2,2)......Bl|
00001ab0  63 6b 25 21 33 36 ca 0d  19 f0 07 c9 2d 32 0d 19  |ck%!36......-2..|
00001ac0  fa 11 42 6c 63 6b 25 21  32 34 2d 3d 31 32 38 0d  |..Blck%!24-=128.|
00001ad0  1a 04 07 c9 2d 31 0d 1a  0e 10 42 6c 63 6b 25 21  |....-1....Blck%!|
00001ae0  32 34 2d 3d 31 36 0d 1a  18 06 c9 31 0d 1a 22 10  |24-=16.....1..".|
00001af0  42 6c 63 6b 25 21 32 34  2b 3d 31 36 0d 1a 2c 06  |Blck%!24+=16..,.|
00001b00  c9 32 0d 1a 36 11 42 6c  63 6b 25 21 32 34 2b 3d  |.2..6.Blck%!24+=|
00001b10  31 32 38 0d 1a 40 05 cb  0d 1a 4a 1e c8 99 22 57  |128..@....J..."W|
00001b20  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00001b30  2c 42 6c 63 6b 25 0d 1a  54 18 f2 64 72 61 77 5f  |,Blck%..T..draw_|
00001b40  73 75 62 28 32 2c 33 2c  a3 2c 62 68 25 29 0d 1a  |sub(2,3,.,bh%)..|
00001b50  5e 18 f2 64 72 61 77 5f  73 75 62 28 33 2c 33 2c  |^..draw_sub(3,3,|
00001b60  a3 2c 62 68 25 29 0d 1a  68 05 cb 0d 1a 72 05 e1  |.,bh%)..h....r..|
00001b70  0d 1a b8 14 dd f2 74 6f  6f 6c 62 6f 78 5f 65 76  |......toolbox_ev|
00001b80  65 6e 74 73 0d 1a e0 17  45 76 65 6e 74 5f 53 69  |ents....Event_Si|
00001b90  7a 65 25 3d 42 6c 63 6b  25 21 30 0d 1a ea 1c 45  |ze%=Blck%!0....E|
00001ba0  76 65 6e 74 5f 52 65 66  65 72 65 6e 63 65 25 3d  |vent_Reference%=|
00001bb0  42 6c 63 6b 25 21 34 0d  1a f4 17 45 76 65 6e 74  |Blck%!4....Event|
00001bc0  5f 43 6f 64 65 25 3d 42  6c 63 6b 25 21 38 0d 1a  |_Code%=Blck%!8..|
00001bd0  fe 19 45 76 65 6e 74 5f  46 6c 61 67 73 25 3d 42  |..Event_Flags%=B|
00001be0  6c 63 6b 25 21 31 32 0d  1b 08 19 45 76 65 6e 74  |lck%!12....Event|
00001bf0  5f 42 6c 6f 63 6b 25 3d  42 6c 63 6b 25 21 32 30  |_Block%=Blck%!20|
00001c00  0d 1b 30 3f f2 63 61 6c  6c 65 72 73 28 30 2c 41  |..0?.callers(0,A|
00001c10  6e 63 65 73 74 6f 72 5f  49 44 25 2c 41 6e 63 65  |ncestor_ID%,Ance|
00001c20  73 74 6f 72 5f 4e 61 6d  65 24 2c 41 6e 63 65 73  |stor_Name$,Ances|
00001c30  74 6f 72 5f 43 6f 6d 70  6f 6e 65 6e 74 25 29 0d  |tor_Component%).|
00001c40  1b 3a 39 f2 63 61 6c 6c  65 72 73 28 38 2c 50 61  |.:9.callers(8,Pa|
00001c50  72 65 6e 74 5f 49 44 25  2c 50 61 72 65 6e 74 5f  |rent_ID%,Parent_|
00001c60  4e 61 6d 65 24 2c 50 61  72 65 6e 74 5f 43 6f 6d  |Name$,Parent_Com|
00001c70  70 6f 6e 65 6e 74 25 29  0d 1b 44 34 f2 63 61 6c  |ponent%)..D4.cal|
00001c80  6c 65 72 73 28 31 36 2c  53 65 6c 66 5f 49 44 25  |lers(16,Self_ID%|
00001c90  2c 53 65 6c 66 5f 4e 61  6d 65 24 2c 53 65 6c 66  |,Self_Name$,Self|
00001ca0  5f 43 6f 6d 70 6f 6e 65  6e 74 25 29 0d 1b 76 11  |_Component%)..v.|
00001cb0  c8 8e 53 65 6c 66 5f 4e  61 6d 65 24 ca 0d 1b 80  |..Self_Name$....|
00001cc0  0c c9 22 41 6c 69 61 73  22 0d 1b 8a 11 f2 68 61  |.."Alias".....ha|
00001cd0  6e 64 6c 65 5f 61 6c 69  61 73 0d 1b 94 0f c9 22  |ndle_alias....."|
00001ce0  41 75 74 6f 6d 65 6e 75  22 0d 1b 9e 14 f2 68 61  |Automenu".....ha|
00001cf0  6e 64 6c 65 5f 61 75 74  6f 6d 65 6e 75 0d 1b a8  |ndle_automenu...|
00001d00  0f c9 22 49 62 61 72 6d  65 6e 75 22 0d 1b b2 14  |.."Ibarmenu"....|
00001d10  f2 68 61 6e 64 6c 65 5f  69 62 61 72 6d 65 6e 75  |.handle_ibarmenu|
00001d20  0d 1b bc 0e c9 22 49 63  6f 6e 62 61 72 22 0d 1b  |....."Iconbar"..|
00001d30  c6 13 f2 68 61 6e 64 6c  65 5f 69 63 6f 6e 62 61  |...handle_iconba|
00001d40  72 0d 1b d0 0f c9 22 4d  61 69 6e 6c 69 73 74 22  |r....."Mainlist"|
00001d50  0d 1b da 14 f2 68 61 6e  64 6c 65 5f 6d 61 69 6e  |.....handle_main|
00001d60  6c 69 73 74 0d 1b e4 12  c9 22 4d 61 69 6e 74 65  |list....."Mainte|
00001d70  6e 61 6e 63 65 22 0d 1b  ee 17 f2 68 61 6e 64 6c  |nance".....handl|
00001d80  65 5f 6d 61 69 6e 74 65  6e 61 6e 63 65 0d 1b f8  |e_maintenance...|
00001d90  0e c9 22 4f 70 74 69 6f  6e 73 22 0d 1c 02 13 f2  |.."Options".....|
00001da0  68 61 6e 64 6c 65 5f 6f  70 74 69 6f 6e 73 0d 1c  |handle_options..|
00001db0  0c 0c c9 22 4e 6f 64 69  72 22 0d 1c 16 11 f2 68  |..."Nodir".....h|
00001dc0  61 6e 64 6c 65 5f 6e 6f  64 69 72 0d 1c 20 0f c9  |andle_nodir.. ..|
00001dd0  22 50 61 73 73 6d 65 6e  75 22 0d 1c 2a 14 f2 68  |"Passmenu"..*..h|
00001de0  61 6e 64 6c 65 5f 70 61  73 73 6d 65 6e 75 0d 1c  |andle_passmenu..|
00001df0  34 0f c9 22 50 61 73 73  77 6f 72 64 22 0d 1c 3e  |4.."Password"..>|
00001e00  14 f2 68 61 6e 64 6c 65  5f 70 61 73 73 77 6f 72  |..handle_passwor|
00001e10  64 0d 1c 48 0e c9 22 53  75 62 6c 69 73 74 22 0d  |d..H.."Sublist".|
00001e20  1c 52 13 f2 68 61 6e 64  6c 65 5f 73 75 62 6c 69  |.R..handle_subli|
00001e30  73 74 0d 1c 5c 10 c9 22  54 68 69 65 66 74 72 61  |st..\.."Thieftra|
00001e40  70 22 0d 1c 66 15 f2 68  61 6e 64 6c 65 5f 74 68  |p"..f..handle_th|
00001e50  69 65 66 74 72 61 70 0d  1c 70 11 c9 22 55 73 65  |ieftrap..p.."Use|
00001e60  72 61 63 63 65 73 73 22  0d 1c 7a 16 f2 68 61 6e  |raccess"..z..han|
00001e70  64 6c 65 5f 75 73 65 72  61 63 63 65 73 73 0d 1c  |dle_useraccess..|
00001e80  84 0d c9 22 59 65 73 64  69 72 22 0d 1c 8e 12 f2  |..."Yesdir".....|
00001e90  68 61 6e 64 6c 65 5f 79  65 73 64 69 72 0d 1c 98  |handle_yesdir...|
00001ea0  0a c9 22 57 6d 69 22 0d  1c a2 0f f2 68 61 6e 64  |.."Wmi".....hand|
00001eb0  6c 65 5f 77 6d 69 0d 1c  ac 05 cb 0d 1c b6 05 e1  |le_wmi..........|
00001ec0  0d 1c fc 13 dd f2 77 69  6d 70 5f 6d 65 73 73 61  |......wimp_messa|
00001ed0  67 65 73 0d 1d 24 1a ea  73 74 61 74 65 25 2c 61  |ges..$..state%,a|
00001ee0  25 2c 61 6c 25 2c 64 75  72 25 2c 62 25 0d 1d 38  |%,al%,dur%,b%..8|
00001ef0  0f c8 8e 42 6c 63 6b 25  21 31 36 ca 0d 1d 42 06  |...Blck%!16...B.|
00001f00  c9 30 0d 1d 4c 0b 51 75  69 74 25 3d b9 0d 1d 56  |.0..L.Quit%=...V|
00001f10  06 c9 32 0d 1d 7e 1d 70  61 74 68 24 3d a4 69 6e  |..2..~.path$=.in|
00001f20  64 69 72 65 63 74 28 42  6c 63 6b 25 2b 34 34 29  |direct(Blck%+44)|
00001f30  0d 1d 88 1f e7 41 70 70  6c 69 63 61 74 69 6f 6e  |.....Application|
00001f40  24 3d 22 21 54 68 69 65  66 74 72 61 70 22 8c 0d  |$="!Thieftrap"..|
00001f50  1d b0 1a f2 6d 61 6b 65  5f 74 68 69 65 66 74 72  |....make_thieftr|
00001f60  61 70 28 70 61 74 68 24  29 0d 1d ba 05 cc 0d 1d  |ap(path$).......|
00001f70  e2 16 f2 6d 61 6b 65 5f  61 6c 69 61 73 28 70 61  |...make_alias(pa|
00001f80  74 68 24 29 0d 1d ec 05  cd 0d 1d f6 06 c9 33 0d  |th$)..........3.|
00001f90  1e 1e 1f 53 6f 75 72 63  65 24 3d a4 69 6e 64 69  |...Source$=.indi|
00001fa0  72 65 63 74 28 42 6c 63  6b 25 2b 34 34 29 0d 1e  |rect(Blck%+44)..|
00001fb0  28 0f c8 8e 42 6c 63 6b  25 21 32 30 ca 0d 1e 32  |(...Blck%!20...2|
00001fc0  0e c9 41 6c 69 61 73 5f  57 48 25 0d 1e 3c 15 f2  |..Alias_WH%..<..|
00001fd0  64 72 61 67 67 65 64 5f  74 6f 5f 61 6c 69 61 73  |dragged_to_alias|
00001fe0  0d 1e 46 12 c9 53 75 62  6c 69 73 74 25 28 31 2c  |..F..Sublist%(1,|
00001ff0  31 29 0d 1e 50 14 f2 64  72 61 67 67 65 64 5f 74  |1)..P..dragged_t|
00002000  6f 5f 65 64 69 74 0d 1e  5a 05 cb 0d 1e 64 0b c9  |o_edit..Z....d..|
00002010  26 34 30 30 43 32 0d 1e  8c 1a c8 8e a4 69 6e 64  |&400C2.......ind|
00002020  69 72 65 63 74 28 42 6c  63 6b 25 2b 32 38 29 ca  |irect(Blck%+28).|
00002030  0d 1e 96 0f c9 22 7a 7a  7a 7a 70 61 73 73 22 0d  |....."zzzzpass".|
00002040  1e a0 16 5a 7a 7a 7a 70  61 73 73 5f 53 74 61 74  |...Zzzzpass_Stat|
00002050  75 73 25 3d 33 0d 1e aa  1c 5a 7a 7a 7a 70 61 73  |us%=3....Zzzzpas|
00002060  73 5f 48 61 6e 64 6c 65  25 3d 42 6c 63 6b 25 21  |s_Handle%=Blck%!|
00002070  34 0d 1e b4 16 e7 4c 6f  67 67 65 64 5f 55 73 65  |4.....Logged_Use|
00002080  72 24 3c 3e 22 22 8c 0d  1e dc 1f f2 75 73 65 72  |r$<>""......user|
00002090  5f 74 69 6d 65 73 28 61  6c 25 2c 64 75 72 25 2c  |_times(al%,dur%,|
000020a0  61 25 2c 62 25 29 0d 1e  e6 1a f2 69 6e 66 6f 72  |a%,b%).....infor|
000020b0  6d 5f 7a 7a 7a 7a 70 61  73 73 28 64 75 72 25 29  |m_zzzzpass(dur%)|
000020c0  0d 1e f0 05 cd 0d 1e fa  0e c9 22 7a 7a 7a 7a 63  |.........."zzzzc|
000020d0  68 6b 22 0d 1f 04 15 5a  7a 7a 7a 63 68 6b 5f 53  |hk"....Zzzzchk_S|
000020e0  74 61 74 75 73 25 3d 33  0d 1f 0e 1b 5a 7a 7a 7a  |tatus%=3....Zzzz|
000020f0  63 68 6b 5f 48 61 6e 64  6c 65 25 3d 42 6c 63 6b  |chk_Handle%=Blck|
00002100  25 21 34 0d 1f 18 05 cb  0d 1f 22 0b c9 26 38 30  |%!4......."..&80|
00002110  38 63 30 0d 1f 4a 1e e7  42 6c 63 6b 25 21 34 3d  |8c0..J..Blck%!4=|
00002120  5a 7a 7a 7a 70 61 73 73  5f 48 61 6e 64 6c 65 25  |Zzzzpass_Handle%|
00002130  8c 0d 1f 72 49 c8 99 22  57 69 6d 70 5f 54 72 61  |...rI.."Wimp_Tra|
00002140  6e 73 66 65 72 42 6c 6f  63 6b 22 2c 5a 7a 7a 7a  |nsferBlock",Zzzz|
00002150  70 61 73 73 5f 48 61 6e  64 6c 65 25 2c 42 6c 63  |pass_Handle%,Blc|
00002160  6b 25 21 32 34 2c 54 68  64 6c 25 2c 42 75 66 31  |k%!24,Thdl%,Buf1|
00002170  25 2c 42 6c 63 6b 25 21  32 30 0d 1f 7c 0d c8 8e  |%,Blck%!20..|...|
00002180  21 42 75 66 31 25 ca 0d  1f 86 06 c9 31 0d 1f ae  |!Buf1%......1...|
00002190  1d f2 6c 6f 67 69 6e 5f  75 73 65 72 28 24 28 42  |..login_user($(B|
000021a0  75 66 31 25 2b 34 29 2c  a3 29 0d 1f b8 2f 42 6c  |uf1%+4),.).../Bl|
000021b0  63 6b 25 21 30 3d 33 32  3a 42 6c 63 6b 25 21 31  |ck%!0=32:Blck%!1|
000021c0  32 3d 42 6c 63 6b 25 21  38 3a 42 6c 63 6b 25 21  |2=Blck%!8:Blck%!|
000021d0  31 36 3d 26 38 30 38 63  30 0d 1f c2 1d 42 6c 63  |16=&808c0....Blc|
000021e0  6b 25 21 32 30 3d 34 3a  42 6c 63 6b 25 21 32 34  |k%!20=4:Blck%!24|
000021f0  3d 42 75 66 32 25 0d 1f  cc 0c 21 42 75 66 32 25  |=Buf2%....!Buf2%|
00002200  3d 32 0d 1f d6 32 c8 99  22 57 69 6d 70 5f 53 65  |=2...2.."Wimp_Se|
00002210  6e 64 4d 65 73 73 61 67  65 22 2c 31 37 2c 42 6c  |ndMessage",17,Bl|
00002220  63 6b 25 2c 5a 7a 7a 7a  70 61 73 73 5f 48 61 6e  |ck%,Zzzzpass_Han|
00002230  64 6c 65 25 0d 1f e0 06  c9 32 0d 20 12 14 51 75  |dle%.....2. ..Qu|
00002240  69 74 25 3d 41 75 74 6f  63 6c 6f 73 65 25 0d 20  |it%=Autoclose%. |
00002250  1c 06 c9 34 0d 20 44 31  c8 99 54 5f 54 4f 4d 4f  |...4. D1..T_TOMO|
00002260  25 2c 30 2c 49 62 61 72  6d 65 6e 75 5f 49 44 25  |%,0,Ibarmenu_ID%|
00002270  2c 32 34 2c 22 55 73 65  72 20 4c 6f 67 67 65 64  |,24,"User Logged|
00002280  20 4f 66 66 22 0d 20 4e  13 4c 6f 67 67 65 64 5f  | Off". N.Logged_|
00002290  55 73 65 72 24 3d 22 22  0d 20 58 05 cb 0d 20 62  |User$="". X... b|
000022a0  05 cd 0d 20 6c 05 cb 0d  20 76 05 e1 0d 20 bc 16  |... l... v... ..|
000022b0  dd f2 64 72 61 67 67 65  64 5f 74 6f 5f 61 6c 69  |..dragged_to_ali|
000022c0  61 73 0d 20 e4 15 e7 42  6c 63 6b 25 21 34 30 3c  |as. ...Blck%!40<|
000022d0  3e 26 32 30 30 30 8c 0d  21 0c 67 f2 65 72 72 6f  |>&2000..!.g.erro|
000022e0  72 5f 6d 65 73 73 61 67  65 28 22 46 69 6c 65 20  |r_message("File |
000022f0  22 2b 53 6f 75 72 63 65  24 2b 22 20 69 73 20 6e  |"+Source$+" is n|
00002300  6f 74 20 61 6e 20 61 70  70 6c 69 63 61 74 69 6f  |ot an applicatio|
00002310  6e 20 61 6e 64 20 68 61  73 20 61 20 66 69 6c 65  |n and has a file|
00002320  74 79 70 65 20 6f 66 20  22 2b c3 7e 28 42 6c 63  |type of "+.~(Blc|
00002330  6b 25 21 34 30 29 2c 22  22 2c 30 2c 30 29 0d 21  |k%!40),"",0,0).!|
00002340  16 05 cc 0d 21 3e 13 61  25 3d a9 28 53 6f 75 72  |....!>.a%=.(Sour|
00002350  63 65 24 29 2d 31 0d 21  48 1f f5 3a 61 25 2d 3d  |ce$)-1.!H..:a%-=|
00002360  31 3a fd c1 53 6f 75 72  63 65 24 2c 61 25 2c 31  |1:..Source$,a%,1|
00002370  29 3d 22 2e 22 0d 21 52  1f 41 70 70 6c 69 63 61  |)=".".!R.Applica|
00002380  74 69 6f 6e 24 3d c1 53  6f 75 72 63 65 24 2c 61  |tion$=.Source$,a|
00002390  25 2b 31 29 0d 21 5c 31  c8 99 54 5f 54 4f 4d 4f  |%+1).!\1..T_TOMO|
000023a0  25 2c 30 2c 41 6c 69 61  73 5f 49 44 25 2c 4d 5f  |%,0,Alias_ID%,M_|
000023b0  44 5f 53 53 50 25 2c 30  2c 41 70 70 6c 69 63 61  |D_SSP%,0,Applica|
000023c0  74 69 6f 6e 24 0d 21 66  30 c8 99 54 5f 54 4f 4d  |tion$.!f0..T_TOM|
000023d0  4f 25 2c 30 2c 41 6c 69  61 73 5f 49 44 25 2c 4d  |O%,0,Alias_ID%,M|
000023e0  5f 44 5f 53 54 25 2c 30  2c 41 70 70 6c 69 63 61  |_D_ST%,0,Applica|
000023f0  74 69 6f 6e 24 0d 21 7a  05 cd 0d 21 84 05 e1 0d  |tion$.!z...!....|
00002400  21 ca 15 dd f2 64 72 61  67 67 65 64 5f 74 6f 5f  |!....dragged_to_|
00002410  65 64 69 74 0d 21 f2 24  ea 61 25 2c 70 25 2c 61  |edit.!.$.a%,p%,a|
00002420  24 2c 62 24 2c 63 24 2c  6c 65 61 66 24 2c 64 75  |$,b$,c$,leaf$,du|
00002430  70 6c 69 63 61 74 65 25  0d 22 06 08 c8 8e b9 ca  |plicate%."......|
00002440  0d 22 10 2a c9 28 42 6c  63 6b 25 21 34 30 3c 3e  |.".*.(Blck%!40<>|
00002450  26 32 30 30 30 29 80 28  45 64 69 74 5f 54 79 70  |&2000).(Edit_Typ|
00002460  65 24 3d 22 62 6f 6f 74  22 29 0d 22 1a 58 f2 65  |e$="boot").".X.e|
00002470  72 72 6f 72 5f 6d 65 73  73 61 67 65 28 22 46 69  |rror_message("Fi|
00002480  6c 65 20 22 2b 53 6f 75  72 63 65 24 2b 22 20 69  |le "+Source$+" i|
00002490  73 20 6e 6f 74 20 61 6e  20 61 70 70 6c 69 63 61  |s not an applica|
000024a0  74 69 6f 6e 20 61 6e 64  20 63 61 6e 6e 6f 74 20  |tion and cannot |
000024b0  62 65 20 62 6f 6f 74 65  64 22 2c 22 22 2c 30 2c  |be booted","",0,|
000024c0  30 29 0d 22 24 2f c9 28  42 6c 63 6b 25 21 34 30  |0)."$/.(Blck%!40|
000024d0  3c 3e 26 32 30 30 30 29  80 28 45 64 69 74 5f 54  |<>&2000).(Edit_T|
000024e0  79 70 65 24 3d 22 72 65  73 6f 75 72 63 65 73 22  |ype$="resources"|
000024f0  29 0d 22 2e 68 f2 65 72  72 6f 72 5f 6d 65 73 73  |).".h.error_mess|
00002500  61 67 65 28 22 46 69 6c  65 20 22 2b 53 6f 75 72  |age("File "+Sour|
00002510  63 65 24 2b 22 20 69 73  20 6e 6f 74 20 61 6e 20  |ce$+" is not an |
00002520  61 70 70 6c 69 63 61 74  69 6f 6e 20 61 6e 64 20  |application and |
00002530  63 61 6e 6e 6f 74 20 62  65 20 61 64 64 65 64 20  |cannot be added |
00002540  74 6f 20 74 68 65 20 72  65 73 6f 75 72 63 65 73  |to the resources|
00002550  22 2c 22 22 2c 30 2c 30  29 0d 22 38 05 7f 0d 22  |","",0,0)."8..."|
00002560  60 13 61 25 3d a9 28 53  6f 75 72 63 65 24 29 2d  |`.a%=.(Source$)-|
00002570  31 0d 22 6a 1f f5 3a 61  25 2d 3d 31 3a fd c1 53  |1."j..:a%-=1:..S|
00002580  6f 75 72 63 65 24 2c 61  25 2c 31 29 3d 22 2e 22  |ource$,a%,1)="."|
00002590  0d 22 74 18 6c 65 61 66  24 3d c1 53 6f 75 72 63  |."t.leaf$=.Sourc|
000025a0  65 24 2c 61 25 2b 31 29  0d 22 7e 10 64 75 70 6c  |e$,a%+1)."~.dupl|
000025b0  69 63 61 74 65 25 3d a3  0d 22 88 0f e3 61 25 3d  |icate%=.."...a%=|
000025c0  31 b8 4f 62 6a 73 25 0d  22 92 1e e7 6c 65 61 66  |1.Objs%."...leaf|
000025d0  24 3d 4f 64 61 74 24 28  4f 70 74 72 25 28 61 25  |$=Odat$(Optr%(a%|
000025e0  29 2c 31 29 8c 0d 22 9c  10 64 75 70 6c 69 63 61  |),1).."..duplica|
000025f0  74 65 25 3d b9 0d 22 a6  05 cd 0d 22 b0 07 ed 61  |te%=.."...."...a|
00002600  25 0d 22 ba 10 e7 64 75  70 6c 69 63 61 74 65 25  |%."...duplicate%|
00002610  8c 0d 22 e2 3f f2 65 72  72 6f 72 5f 6d 65 73 73  |..".?.error_mess|
00002620  61 67 65 28 22 46 69 6c  65 20 22 2b 6c 65 61 66  |age("File "+leaf|
00002630  24 2b 22 20 69 73 20 61  6c 72 65 61 64 79 20 69  |$+" is already i|
00002640  6e 63 6c 75 64 65 64 22  2c 22 22 2c 30 2c 30 29  |ncluded","",0,0)|
00002650  0d 22 ec 05 cc 0d 23 14  0c 4f 6e 74 72 25 2b 3d  |."....#..Ontr%+=|
00002660  31 0d 23 1e 0c 4f 62 6a  73 25 2b 3d 31 0d 23 28  |1.#..Objs%+=1.#(|
00002670  16 4f 70 74 72 25 28 4f  62 6a 73 25 29 3d 4f 6e  |.Optr%(Objs%)=On|
00002680  74 72 25 0d 23 32 18 4f  64 61 74 24 28 4f 6e 74  |tr%.#2.Odat$(Ont|
00002690  72 25 2c 31 29 3d 6c 65  61 66 24 0d 23 3c 0f c8  |r%,1)=leaf$.#<..|
000026a0  8e 42 6c 63 6b 25 21 34  30 ca 0d 23 46 0a c9 26  |.Blck%!40..#F..&|
000026b0  32 30 30 30 0d 23 6e 11  c8 8e 45 64 69 74 5f 54  |2000.#n...Edit_T|
000026c0  79 70 65 24 ca 0d 23 78  0e c9 22 61 75 74 6f 72  |ype$..#x.."autor|
000026d0  75 6e 22 0d 23 82 28 4f  64 61 74 24 28 4f 6e 74  |un".#.(Odat$(Ont|
000026e0  72 25 2c 32 29 3d 22 41  70 70 6c 69 63 61 74 69  |r%,2)="Applicati|
000026f0  6f 6e 20 28 61 6c 69 61  73 29 22 0d 23 8c 0b c9  |on (alias)".#...|
00002700  22 62 6f 6f 74 22 0d 23  96 2c 4f 64 61 74 24 28  |"boot".#.,Odat$(|
00002710  4f 6e 74 72 25 2c 32 29  3d 22 41 70 70 6c 69 63  |Ontr%,2)="Applic|
00002720  61 74 69 6f 6e 20 28 72  65 66 65 72 65 6e 63 65  |ation (reference|
00002730  29 22 0d 23 a0 10 c9 22  72 65 73 6f 75 72 63 65  |)".#..."resource|
00002740  73 22 0d 23 aa 2c 4f 64  61 74 24 28 4f 6e 74 72  |s".#.,Odat$(Ontr|
00002750  25 2c 32 29 3d 22 41 70  70 6c 69 63 61 74 69 6f  |%,2)="Applicatio|
00002760  6e 20 28 72 65 66 65 72  65 6e 63 65 29 22 0d 23  |n (reference)".#|
00002770  b4 0e c9 22 70 72 65 64  65 73 6b 22 0d 23 be 20  |..."predesk".#. |
00002780  4f 64 61 74 24 28 4f 6e  74 72 25 2c 32 29 3d 22  |Odat$(Ontr%,2)="|
00002790  41 70 70 6c 69 63 61 74  69 6f 6e 22 0d 23 c8 05  |Application".#..|
000027a0  cb 0d 23 d2 19 4f 64 61  74 24 28 4f 6e 74 72 25  |..#..Odat$(Ontr%|
000027b0  2c 33 29 3d 22 32 30 30  30 22 0d 23 dc 0a c9 26  |,3)="2000".#...&|
000027c0  31 30 30 30 0d 24 04 1e  4f 64 61 74 24 28 4f 6e  |1000.$..Odat$(On|
000027d0  74 72 25 2c 32 29 3d 22  44 69 72 65 63 74 6f 72  |tr%,2)="Director|
000027e0  79 22 0d 24 0e 19 4f 64  61 74 24 28 4f 6e 74 72  |y".$..Odat$(Ontr|
000027f0  25 2c 33 29 3d 22 31 30  30 30 22 0d 24 18 05 7f  |%,3)="1000".$...|
00002800  0d 24 22 2d c8 99 22 4f  53 5f 43 6f 6e 76 65 72  |.$"-.."OS_Conver|
00002810  74 48 65 78 34 22 2c 42  6c 63 6b 25 21 34 30 2c  |tHex4",Blck%!40,|
00002820  42 75 66 32 25 2c 31 32  38 b8 2c 70 25 0d 24 2c  |Buf2%,128.,p%.$,|
00002830  0a 3f 70 25 3d 31 33 0d  24 36 10 e7 42 75 66 32  |.?p%=13.$6..Buf2|
00002840  25 3f 30 3d 34 38 8c 0d  24 40 1d 4f 64 61 74 24  |%?0=48..$@.Odat$|
00002850  28 4f 6e 74 72 25 2c 33  29 3d c2 24 42 75 66 32  |(Ontr%,3)=.$Buf2|
00002860  25 2c 33 29 0d 24 4a 05  cc 0d 24 54 19 4f 64 61  |%,3).$J...$T.Oda|
00002870  74 24 28 4f 6e 74 72 25  2c 33 29 3d 24 42 75 66  |t$(Ontr%,3)=$Buf|
00002880  32 25 0d 24 5e 05 cd 0d  24 68 45 c8 99 22 58 4f  |2%.$^...$hE.."XO|
00002890  53 5f 52 65 61 64 56 61  72 56 61 6c 22 2c 22 46  |S_ReadVarVal","F|
000028a0  69 6c 65 24 54 79 70 65  5f 22 2b 4f 64 61 74 24  |ile$Type_"+Odat$|
000028b0  28 4f 6e 74 72 25 2c 33  29 2c 42 75 66 31 25 2c  |(Ontr%,3),Buf1%,|
000028c0  31 32 38 2c 30 2c 33 b8  2c 2c 6c 25 0d 24 72 0a  |128,0,3.,,l%.$r.|
000028d0  e7 6c 25 3d 30 8c 0d 24  9a 25 4f 64 61 74 24 28  |.l%=0..$.%Odat$(|
000028e0  4f 6e 74 72 25 2c 32 29  3d 22 26 22 2b 4f 64 61  |Ontr%,2)="&"+Oda|
000028f0  74 24 28 4f 6e 74 72 25  2c 33 29 0d 24 a4 05 cc  |t$(Ontr%,3).$...|
00002900  0d 24 cc 0f 42 75 66 31  25 3f 6c 25 3d 31 33 0d  |.$..Buf1%?l%=13.|
00002910  24 d6 19 4f 64 61 74 24  28 4f 6e 74 72 25 2c 32  |$..Odat$(Ontr%,2|
00002920  29 3d 24 42 75 66 31 25  0d 24 e0 05 cd 0d 24 ea  |)=$Buf1%.$....$.|
00002930  05 cb 0d 25 12 15 4f 64  61 74 24 28 4f 6e 74 72  |...%..Odat$(Ontr|
00002940  25 2c 34 29 3d 22 22 0d  25 1c 08 63 25 3d 30 0d  |%,4)="".%..c%=0.|
00002950  25 26 05 f5 0d 25 30 09  63 25 2b 3d 31 0d 25 3a  |%&...%0.c%+=1.%:|
00002960  5e e7 28 42 6f 6f 74 5f  54 79 70 65 24 28 63 25  |^.(Boot_Type$(c%|
00002970  2c 31 29 3d 45 64 69 74  5f 54 79 70 65 24 29 80  |,1)=Edit_Type$).|
00002980  28 28 42 6f 6f 74 5f 54  79 70 65 24 28 63 25 2c  |((Boot_Type$(c%,|
00002990  32 29 3d 4f 64 61 74 24  28 4f 6e 74 72 25 2c 33  |2)=Odat$(Ontr%,3|
000029a0  29 29 84 28 42 6f 6f 74  5f 54 79 70 65 24 28 63  |)).(Boot_Type$(c|
000029b0  25 2c 32 29 3d 22 2a 22  29 29 8c 0d 25 44 23 4f  |%,2)="*"))..%D#O|
000029c0  64 61 74 24 28 4f 6e 74  72 25 2c 34 29 3d 42 6f  |dat$(Ontr%,4)=Bo|
000029d0  6f 74 5f 54 79 70 65 24  28 63 25 2c 33 29 0d 25  |ot_Type$(c%,3).%|
000029e0  4e 05 cd 0d 25 58 2a fd  28 63 25 3d 42 6f 6f 74  |N...%X*.(c%=Boot|
000029f0  5f 54 79 70 65 73 25 29  84 28 4f 64 61 74 24 28  |_Types%).(Odat$(|
00002a00  4f 6e 74 72 25 2c 34 29  3c 3e 22 22 29 0d 25 80  |Ontr%,4)<>"").%.|
00002a10  1a 4f 64 61 74 24 28 4f  6e 74 72 25 2c 35 29 3d  |.Odat$(Ontr%,5)=|
00002a20  53 6f 75 72 63 65 24 0d  25 8a 23 4f 66 6c 67 25  |Source$.%.#Oflg%|
00002a30  28 4f 6e 74 72 25 2c 31  29 3d 28 32 34 3c 3c 31  |(Ontr%,1)=(24<<1|
00002a40  36 29 84 26 31 30 30 84  31 33 0d 25 94 24 4f 66  |6).&100.13.%.$Of|
00002a50  6c 67 25 28 4f 6e 74 72  25 2c 32 29 3d 28 32 30  |lg%(Ontr%,2)=(20|
00002a60  30 3c 3c 31 36 29 84 26  31 30 30 84 31 33 0d 25  |0<<16).&100.13.%|
00002a70  9e 14 4f 66 6c 67 25 28  4f 6e 74 72 25 2c 33 29  |..Oflg%(Ontr%,3)|
00002a80  3d 38 0d 25 a8 11 c8 8e  45 64 69 74 5f 54 79 70  |=8.%....Edit_Typ|
00002a90  65 24 ca 0d 25 b2 0b c9  22 62 6f 6f 74 22 0d 25  |e$..%..."boot".%|
00002aa0  bc 24 4f 66 6c 67 25 28  4f 6e 74 72 25 2c 34 29  |.$Oflg%(Ontr%,4)|
00002ab0  3d 28 35 31 32 3c 3c 31  36 29 84 26 31 30 30 84  |=(512<<16).&100.|
00002ac0  31 33 0d 25 c6 10 c9 22  72 65 73 6f 75 72 63 65  |13.%..."resource|
00002ad0  73 22 0d 25 d0 24 4f 66  6c 67 25 28 4f 6e 74 72  |s".%.$Oflg%(Ontr|
00002ae0  25 2c 34 29 3d 28 35 31  32 3c 3c 31 36 29 84 26  |%,4)=(512<<16).&|
00002af0  31 30 30 84 31 33 0d 25  da 0e c9 22 61 75 74 6f  |100.13.%..."auto|
00002b00  72 75 6e 22 0d 25 e4 24  4f 66 6c 67 25 28 4f 6e  |run".%.$Oflg%(On|
00002b10  74 72 25 2c 34 29 3d 28  34 38 30 3c 3c 31 36 29  |tr%,4)=(480<<16)|
00002b20  84 26 31 30 30 84 31 33  0d 25 ee 0e c9 22 70 72  |.&100.13.%..."pr|
00002b30  65 64 65 73 6b 22 0d 25  f8 24 4f 66 6c 67 25 28  |edesk".%.$Oflg%(|
00002b40  4f 6e 74 72 25 2c 34 29  3d 28 34 30 30 3c 3c 31  |Ontr%,4)=(400<<1|
00002b50  36 29 84 26 31 30 30 84  31 33 0d 26 02 05 cb 0d  |6).&100.13.&....|
00002b60  26 0c 15 4f 66 6c 67 25  28 4f 6e 74 72 25 2c 35  |&..Oflg%(Ontr%,5|
00002b70  29 3d 33 32 0d 26 16 05  cd 0d 26 20 05 cb 0d 26  |)=32.&....& ...&|
00002b80  48 19 f2 73 65 74 5f 6c  69 73 74 5f 65 78 74 65  |H..set_list_exte|
00002b90  6e 74 28 31 2c b9 29 0d  26 52 16 f2 64 72 61 77  |nt(1,.).&R..draw|
00002ba0  5f 73 75 62 28 31 2c 32  2c a3 2c 30 29 0d 26 5c  |_sub(1,2,.,0).&\|
00002bb0  05 e1 0d 26 a2 27 dd f2  63 61 6c 6c 65 72 73 28  |...&.'..callers(|
00002bc0  6f 66 66 73 65 74 25 2c  f8 69 64 25 2c f8 69 64  |offset%,.id%,.id|
00002bd0  24 2c f8 63 70 6e 74 25  29 0d 26 fc 09 ea 70 74  |$,.cpnt%).&...pt|
00002be0  72 25 0d 27 10 16 70 74  72 25 3d 54 6c 6f 69 25  |r%.'..ptr%=Tloi%|
00002bf0  2b 6f 66 66 73 65 74 25  0d 27 1a 0d 69 64 25 3d  |+offset%.'..id%=|
00002c00  21 70 74 72 25 0d 27 24  0c e7 69 64 25 3c 3e 30  |!ptr%.'$..id%<>0|
00002c10  8c 0d 27 2e 2f c8 99 22  54 6f 6f 6c 62 6f 78 5f  |..'./.."Toolbox_|
00002c20  47 65 74 54 65 6d 70 6c  61 74 65 4e 61 6d 65 22  |GetTemplateName"|
00002c30  2c 30 2c 69 64 25 2c 42  75 66 31 25 2c 31 32 38  |,0,id%,Buf1%,128|
00002c40  0d 27 38 18 69 64 24 3d  a4 69 6e 64 69 72 65 63  |.'8.id$=.indirec|
00002c50  74 28 42 75 66 31 25 29  0d 27 42 05 cc 0d 27 4c  |t(Buf1%).'B...'L|
00002c60  0a 69 64 24 3d 22 22 0d  27 56 05 cd 0d 27 60 10  |.id$="".'V...'`.|
00002c70  63 70 6e 74 25 3d 70 74  72 25 21 34 0d 27 6a 05  |cpnt%=ptr%!4.'j.|
00002c80  e1 0d 27 b0 14 dd f2 68  61 6e 64 6c 65 5f 69 63  |..'....handle_ic|
00002c90  6f 6e 62 61 72 0d 27 ba  05 e1 0d 28 00 12 dd f2  |onbar.'....(....|
00002ca0  68 61 6e 64 6c 65 5f 61  6c 69 61 73 0d 28 28 12  |handle_alias.((.|
00002cb0  ea 73 74 61 74 65 25 2c  62 6f 25 2c 70 25 0d 28  |.state%,bo%,p%.(|
00002cc0  3c 12 c8 8e 45 76 65 6e  74 5f 43 6f 64 65 25 ca  |<...Event_Code%.|
00002cd0  0d 28 46 0c c9 45 5f 54  4f 41 43 25 0d 28 6e 16  |.(F..E_TOAC%.(n.|
00002ce0  41 6c 69 61 73 5f 49 44  25 3d 53 65 6c 66 5f 49  |Alias_ID%=Self_I|
00002cf0  44 25 0d 28 78 25 c8 99  54 5f 54 4f 4d 4f 25 2c  |D%.(x%..T_TOMO%,|
00002d00  30 2c 41 6c 69 61 73 5f  49 44 25 2c 30 b8 41 6c  |0,Alias_ID%,0.Al|
00002d10  69 61 73 5f 57 48 25 0d  28 82 0d c9 45 5f 57 41  |ias_WH%.(...E_WA|
00002d20  54 42 53 25 0d 28 aa 13  41 70 70 6c 69 63 61 74  |TBS%.(..Applicat|
00002d30  69 6f 6e 24 3d 22 22 0d  28 b4 2b c8 99 54 5f 54  |ion$="".(.+..T_T|
00002d40  4f 4d 4f 25 2c 30 2c 41  6c 69 61 73 5f 49 44 25  |OMO%,0,Alias_ID%|
00002d50  2c 36 34 30 2c 30 2c 22  21 42 6f 6f 74 70 6c 75  |,640,0,"!Bootplu|
00002d60  73 22 0d 28 be 28 c8 99  54 5f 54 4f 4d 4f 25 2c  |s".(.(..T_TOMO%,|
00002d70  30 2c 41 6c 69 61 73 5f  49 44 25 2c 36 34 32 2c  |0,Alias_ID%,642,|
00002d80  30 2c 22 3c 6e 6f 6e 65  3e 22 0d 28 c8 0b c9 45  |0,"<none>".(...E|
00002d90  5f 44 44 45 25 0d 28 f0  0e 42 75 66 32 25 21 30  |_DDE%.(..Buf2%!0|
00002da0  3d 36 34 0d 28 fa 2b 42  75 66 32 25 21 31 32 3d  |=64.(.+Buf2%!12=|
00002db0  30 3a 42 75 66 32 25 21  31 36 3d 31 3a 42 75 66  |0:Buf2%!16=1:Buf|
00002dc0  32 25 21 32 30 3d 42 6c  63 6b 25 21 31 36 0d 29  |2%!20=Blck%!16.)|
00002dd0  04 34 42 75 66 32 25 21  32 38 3d 42 6c 63 6b 25  |.4Buf2%!28=Blck%|
00002de0  21 32 34 3a 42 75 66 32  25 21 33 32 3d 42 6c 63  |!24:Buf2%!32=Blc|
00002df0  6b 25 21 32 38 3a 42 75  66 32 25 21 33 36 3d 31  |k%!28:Buf2%!36=1|
00002e00  32 38 0d 29 0e 2b 42 75  66 32 25 21 34 30 3d 26  |28.).+Buf2%!40=&|
00002e10  32 30 30 30 3a 24 28 42  75 66 32 25 2b 34 34 29  |2000:$(Buf2%+44)|
00002e20  3d 41 70 70 6c 69 63 61  74 69 6f 6e 24 0d 29 18  |=Application$.).|
00002e30  2a c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |*.."Wimp_SendMes|
00002e40  73 61 67 65 22 2c 31 37  2c 42 75 66 32 25 2c 42  |sage",17,Buf2%,B|
00002e50  6c 63 6b 25 21 31 36 0d  29 22 05 cb 0d 29 2c 05  |lck%!16.)"...),.|
00002e60  e1 0d 29 72 15 dd f2 68  61 6e 64 6c 65 5f 61 75  |..)r...handle_au|
00002e70  74 6f 6d 65 6e 75 0d 29  9a 12 c8 8e 45 76 65 6e  |tomenu.)....Even|
00002e80  74 5f 43 6f 64 65 25 ca  0d 29 a4 0a c9 45 5f 4d  |t_Code%..)...E_M|
00002e90  53 25 0d 29 cc 16 c8 8e  53 65 6c 66 5f 43 6f 6d  |S%.)....Self_Com|
00002ea0  70 6f 6e 65 6e 74 25 ca  0d 29 d6 07 c9 26 39 0d  |ponent%..)...&9.|
00002eb0  29 fe 18 45 64 69 74 5f  54 79 70 65 24 3d 22 61  |)..Edit_Type$="a|
00002ec0  75 74 6f 72 75 6e 22 0d  2a 08 07 c9 26 62 0d 2a  |utorun".*...&b.*|
00002ed0  30 15 45 64 69 74 5f 54  79 70 65 24 3d 22 62 6f  |0.Edit_Type$="bo|
00002ee0  6f 74 22 0d 2a 3a 07 c9  26 35 0d 2a 62 1a 45 64  |ot".*:..&5.*b.Ed|
00002ef0  69 74 5f 54 79 70 65 24  3d 22 72 65 73 6f 75 72  |it_Type$="resour|
00002f00  63 65 73 22 0d 2a 6c 07  c9 26 63 0d 2a 94 18 45  |ces".*l..&c.*..E|
00002f10  64 69 74 5f 54 79 70 65  24 3d 22 70 72 65 64 65  |dit_Type$="prede|
00002f20  73 6b 22 0d 2a 9e 05 cb  0d 2a a8 10 f2 67 65 74  |sk".*....*...get|
00002f30  5f 61 70 70 6c 69 73 74  0d 2a b2 13 f2 64 72 61  |_applist.*...dra|
00002f40  77 5f 6d 61 69 6e 28 31  2c 30 29 0d 2a bc 05 cb  |w_main(1,0).*...|
00002f50  0d 2a c6 05 e1 0d 2b 0c  15 dd f2 68 61 6e 64 6c  |.*....+....handl|
00002f60  65 5f 69 62 61 72 6d 65  6e 75 0d 2b 34 12 c8 8e  |e_ibarmenu.+4...|
00002f70  45 76 65 6e 74 5f 43 6f  64 65 25 ca 0d 2b 3e 0c  |Event_Code%..+>.|
00002f80  c9 45 5f 54 4f 41 43 25  0d 2b 66 19 49 62 61 72  |.E_TOAC%.+f.Ibar|
00002f90  6d 65 6e 75 5f 49 44 25  3d 53 65 6c 66 5f 49 44  |menu_ID%=Self_ID|
00002fa0  25 0d 2b 70 0d c9 45 5f  4d 41 54 42 53 25 0d 2b  |%.+p..E_MATBS%.+|
00002fb0  98 13 c8 8e 4c 6f 67 67  65 64 5f 55 73 65 72 24  |....Logged_User$|
00002fc0  ca 0d 2b a2 0c c9 22 4f  57 4e 45 52 22 0d 2b ac  |..+..."OWNER".+.|
00002fd0  22 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 49 62 61  |"..T_TOMO%,0,Iba|
00002fe0  72 6d 65 6e 75 5f 49 44  25 2c 32 2c 36 2c 30 0d  |rmenu_ID%,2,6,0.|
00002ff0  2b b6 23 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 49  |+.#..T_TOMO%,0,I|
00003000  62 61 72 6d 65 6e 75 5f  49 44 25 2c 32 2c 26 61  |barmenu_ID%,2,&a|
00003010  2c 30 0d 2b c0 23 c8 99  54 5f 54 4f 4d 4f 25 2c  |,0.+.#..T_TOMO%,|
00003020  30 2c 49 62 61 72 6d 65  6e 75 5f 49 44 25 2c 32  |0,Ibarmenu_ID%,2|
00003030  2c 26 62 2c 30 0d 2b ca  07 c9 22 22 0d 2b d4 22  |,&b,0.+..."".+."|
00003040  c8 99 54 5f 54 4f 4d 4f  25 2c 30 2c 49 62 61 72  |..T_TOMO%,0,Ibar|
00003050  6d 65 6e 75 5f 49 44 25  2c 32 2c 36 2c 31 0d 2b  |menu_ID%,2,6,1.+|
00003060  de 23 c8 99 54 5f 54 4f  4d 4f 25 2c 30 2c 49 62  |.#..T_TOMO%,0,Ib|
00003070  61 72 6d 65 6e 75 5f 49  44 25 2c 32 2c 26 61 2c  |armenu_ID%,2,&a,|
00003080  31 0d 2b e8 23 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |1.+.#..T_TOMO%,0|
00003090  2c 49 62 61 72 6d 65 6e  75 5f 49 44 25 2c 32 2c  |,Ibarmenu_ID%,2,|
000030a0  26 62 2c 31 0d 2b f2 05  7f 0d 2b fc 22 c8 99 54  |&b,1.+....+."..T|
000030b0  5f 54 4f 4d 4f 25 2c 30  2c 49 62 61 72 6d 65 6e  |_TOMO%,0,Ibarmen|
000030c0  75 5f 49 44 25 2c 32 2c  36 2c 31 0d 2c 06 23 c8  |u_ID%,2,6,1.,.#.|
000030d0  99 54 5f 54 4f 4d 4f 25  2c 30 2c 49 62 61 72 6d  |.T_TOMO%,0,Ibarm|
000030e0  65 6e 75 5f 49 44 25 2c  32 2c 26 61 2c 31 0d 2c  |enu_ID%,2,&a,1.,|
000030f0  10 23 c8 99 54 5f 54 4f  4d 4f 25 2c 30 2c 49 62  |.#..T_TOMO%,0,Ib|
00003100  61 72 6d 65 6e 75 5f 49  44 25 2c 32 2c 26 62 2c  |armenu_ID%,2,&b,|
00003110  30 0d 2c 1a 05 cb 0d 2c  24 0b c9 45 5f 55 51 41  |0.,....,$..E_UQA|
00003120  25 0d 2c 4c 0b 51 75 69  74 25 3d b9 0d 2c 56 05  |%.,L.Quit%=..,V.|
00003130  cb 0d 2c 60 05 e1 0d 2c  a6 15 dd f2 68 61 6e 64  |..,`...,....hand|
00003140  6c 65 5f 6d 61 69 6e 6c  69 73 74 0d 2c b0 12 c8  |le_mainlist.,...|
00003150  8e 45 76 65 6e 74 5f 43  6f 64 65 25 ca 0d 2c ba  |.Event_Code%..,.|
00003160  0c c9 45 5f 54 4f 41 43  25 0d 2c e2 19 4d 61 69  |..E_TOAC%.,..Mai|
00003170  6e 6c 69 73 74 5f 49 44  25 3d 53 65 6c 66 5f 49  |nlist_ID%=Self_I|
00003180  44 25 0d 2c ec 2c c8 99  54 5f 54 4f 4d 4f 25 2c  |D%.,.,..T_TOMO%,|
00003190  30 2c 4d 61 69 6e 6c 69  73 74 5f 49 44 25 2c 30  |0,Mainlist_ID%,0|
000031a0  b8 53 75 62 6c 69 73 74  25 28 31 2c 32 29 0d 2c  |.Sublist%(1,2).,|
000031b0  f6 0b c9 45 5f 41 42 53  25 0d 2d 1e 16 c8 8e 53  |...E_ABS%.-....S|
000031c0  65 6c 66 5f 43 6f 6d 70  6f 6e 65 6e 74 25 ca 0d  |elf_Component%..|
000031d0  2d 28 06 c9 33 0d 2d 50  10 f2 67 65 74 5f 61 70  |-(..3.-P..get_ap|
000031e0  70 6c 69 73 74 0d 2d 5a  19 f2 73 65 74 5f 6c 69  |plist.-Z..set_li|
000031f0  73 74 5f 65 78 74 65 6e  74 28 31 2c b9 29 0d 2d  |st_extent(1,.).-|
00003200  64 16 f2 64 72 61 77 5f  73 75 62 28 31 2c 32 2c  |d..draw_sub(1,2,|
00003210  a3 2c 30 29 0d 2d 6e 06  c9 34 0d 2d 96 0f e3 72  |.,0).-n..4.-...r|
00003220  25 3d 31 b8 4f 6e 74 72  25 0d 2d a0 12 c8 8e 4f  |%=1.Ontr%.-....O|
00003230  66 6c 67 25 28 72 25 2c  35 29 ca 0d 2d aa 07 c9  |flg%(r%,5)..-...|
00003240  31 36 0d 2d d2 1f f2 6d  6f 64 69 66 79 5f 62 6f  |16.-...modify_bo|
00003250  6f 74 28 72 25 2c 22 72  65 6d 6f 76 65 22 2c a3  |ot(r%,"remove",.|
00003260  29 0d 2d dc 07 c9 33 32  0d 2e 04 1f f2 6d 6f 64  |).-...32.....mod|
00003270  69 66 79 5f 62 6f 6f 74  28 72 25 2c 22 69 6e 73  |ify_boot(r%,"ins|
00003280  65 72 74 22 2c a3 29 0d  2e 0e 05 7f 0d 2e 36 05  |ert",.).......6.|
00003290  cb 0d 2e 40 07 ed 72 25  0d 2e 4a 05 cb 0d 2e 54  |...@..r%..J....T|
000032a0  0c c9 45 5f 57 48 42 48  25 0d 2e 7c 1a c8 99 54  |..E_WHBH%..|...T|
000032b0  5f 54 48 4f 25 2c 30 2c  53 75 62 6c 69 73 74 5f  |_THO%,0,Sublist_|
000032c0  49 44 25 0d 2e 86 05 cb  0d 2e 90 05 e1 0d 2e d6  |ID%.............|
000032d0  18 dd f2 68 61 6e 64 6c  65 5f 6d 61 69 6e 74 65  |...handle_mainte|
000032e0  6e 61 6e 63 65 0d 2e fe  12 c8 8e 45 76 65 6e 74  |nance......Event|
000032f0  5f 43 6f 64 65 25 ca 0d  2f 08 0a c9 45 5f 4d 53  |_Code%../...E_MS|
00003300  25 0d 2f 30 16 c8 8e 53  65 6c 66 5f 43 6f 6d 70  |%./0...Self_Comp|
00003310  6f 6e 65 6e 74 25 ca 0d  2f 3a 06 c9 30 0d 2f 62  |onent%../:..0./b|
00003320  1b c8 99 22 4f 53 5f 46  69 6c 65 22 2c 36 2c 4f  |..."OS_File",6,O|
00003330  6c 6f 67 66 69 6c 65 24  0d 2f 6c 2a c8 99 22 4f  |logfile$./l*.."O|
00003340  53 5f 46 53 43 6f 6e 74  72 6f 6c 22 2c 32 35 2c  |S_FSControl",25,|
00003350  4c 6f 67 66 69 6c 65 24  2c 4f 6c 6f 67 66 69 6c  |Logfile$,Ologfil|
00003360  65 24 0d 2f 76 20 c8 99  22 4f 53 5f 46 69 6c 65  |e$./v .."OS_File|
00003370  22 2c 31 31 2c 4c 6f 67  66 69 6c 65 24 2c 26 46  |",11,Logfile$,&F|
00003380  46 46 0d 2f 80 06 c9 31  0d 2f a8 1d ff 28 22 2a  |FF./...1./...("*|
00003390  46 69 6c 65 72 5f 52 75  6e 20 22 2b 4c 6f 67 66  |Filer_Run "+Logf|
000033a0  69 6c 65 24 29 0d 2f b2  07 c9 26 64 0d 2f da 14  |ile$)./...&d./..|
000033b0  f2 6b 69 6c 6c 5f 74 68  69 65 66 74 72 61 70 73  |.kill_thieftraps|
000033c0  0d 2f e4 06 c9 39 0d 30  0c 13 f2 69 6e 73 74 61  |./...9.0...insta|
000033d0  6c 6c 5f 6c 6f 67 69 6e  73 0d 30 16 07 c9 26 61  |ll_logins.0...&a|
000033e0  0d 30 3e 12 f2 72 65 6d  6f 76 65 5f 6c 6f 67 69  |.0>..remove_logi|
000033f0  6e 73 0d 30 48 08 c9 26  31 30 0d 30 70 11 f2 70  |ns.0H..&10.0p..p|
00003400  61 75 73 65 5f 6c 6f 67  69 6e 73 0d 30 7a 08 c9  |ause_logins.0z..|
00003410  26 31 31 0d 30 a2 1e 2a  46 69 6c 65 72 5f 52 75  |&11.0..*Filer_Ru|
00003420  6e 20 3c 42 6f 6f 74 24  64 69 72 3e 2e 21 52 75  |n <Boot$dir>.!Ru|
00003430  6e 0d 30 ac 05 cb 0d 30  b6 05 cb 0d 30 c0 05 e1  |n.0....0....0...|
00003440  0d 31 06 12 dd f2 68 61  6e 64 6c 65 5f 6e 6f 64  |.1....handle_nod|
00003450  69 72 0d 31 2e 12 c8 8e  45 76 65 6e 74 5f 43 6f  |ir.1....Event_Co|
00003460  64 65 25 ca 0d 31 38 0c  c9 45 5f 54 4f 41 43 25  |de%..18..E_TOAC%|
00003470  0d 31 60 16 4e 6f 64 69  72 5f 49 44 25 3d 53 65  |.1`.Nodir_ID%=Se|
00003480  6c 66 5f 49 44 25 0d 31  6a 29 c8 99 54 5f 54 4f  |lf_ID%.1j)..T_TO|
00003490  4d 4f 25 2c 30 2c 4e 6f  64 69 72 5f 49 44 25 2c  |MO%,0,Nodir_ID%,|
000034a0  30 b8 53 75 62 6c 69 73  74 25 28 33 2c 31 29 0d  |0.Sublist%(3,1).|
000034b0  31 74 15 53 75 62 6c 69  73 74 25 28 33 2c 33 29  |1t.Sublist%(3,3)|
000034c0  3d 35 31 32 0d 31 7e 16  53 75 62 6c 69 73 74 25  |=512.1~.Sublist%|
000034d0  28 33 2c 34 29 3d 2d 33  32 30 0d 31 88 15 53 75  |(3,4)=-320.1..Su|
000034e0  62 6c 69 73 74 25 28 33  2c 35 29 3d 33 35 32 0d  |blist%(3,5)=352.|
000034f0  31 92 16 53 75 62 6c 69  73 74 25 28 33 2c 36 29  |1..Sublist%(3,6)|
00003500  3d 2d 32 33 32 0d 31 9c  05 cb 0d 31 a6 05 e1 0d  |=-232.1....1....|
00003510  31 ec 14 dd f2 68 61 6e  64 6c 65 5f 6f 70 74 69  |1....handle_opti|
00003520  6f 6e 73 0d 32 14 1f ea  61 25 2c 62 25 2c 63 25  |ons.2...a%,b%,c%|
00003530  2c 64 25 2c 65 25 2c 66  25 2c 67 25 2c 68 25 2c  |,d%,e%,f%,g%,h%,|
00003540  69 25 0d 32 28 12 c8 8e  45 76 65 6e 74 5f 43 6f  |i%.2(...Event_Co|
00003550  64 65 25 ca 0d 32 32 0c  c9 45 5f 54 4f 41 43 25  |de%..22..E_TOAC%|
00003560  0d 32 5a 18 4f 70 74 69  6f 6e 73 5f 49 44 25 3d  |.2Z.Options_ID%=|
00003570  53 65 6c 66 5f 49 44 25  0d 32 64 0d c9 45 5f 57  |Self_ID%.2d..E_W|
00003580  41 54 42 53 25 0d 32 8c  2c f2 67 65 74 5f 6f 70  |ATBS%.2.,.get_op|
00003590  74 69 6f 6e 73 28 61 25  2c 62 25 2c 63 25 2c 64  |tions(a%,b%,c%,d|
000035a0  25 2c 65 25 2c 66 25 2c  67 25 2c 68 25 2c 69 25  |%,e%,f%,g%,h%,i%|
000035b0  29 0d 32 96 27 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |).2.'..T_TOMO%,0|
000035c0  2c 4f 70 74 69 6f 6e 73  5f 49 44 25 2c 35 31 32  |,Options_ID%,512|
000035d0  2c 33 2c c3 28 61 25 29  0d 32 a0 27 c8 99 54 5f  |,3,.(a%).2.'..T_|
000035e0  54 4f 4d 4f 25 2c 30 2c  4f 70 74 69 6f 6e 73 5f  |TOMO%,0,Options_|
000035f0  49 44 25 2c 35 31 32 2c  31 2c c3 28 62 25 29 0d  |ID%,512,1,.(b%).|
00003600  32 aa 27 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 4f  |2.'..T_TOMO%,0,O|
00003610  70 74 69 6f 6e 73 5f 49  44 25 2c 35 31 32 2c 32  |ptions_ID%,512,2|
00003620  2c c3 28 63 25 29 0d 32  b4 25 c8 99 54 5f 54 4f  |,.(c%).2.%..T_TO|
00003630  4d 4f 25 2c 30 2c 4f 70  74 69 6f 6e 73 5f 49 44  |MO%,0,Options_ID|
00003640  25 2c 31 39 36 2c 39 2c  2d 64 25 0d 32 be 26 c8  |%,196,9,-d%.2.&.|
00003650  99 54 5f 54 4f 4d 4f 25  2c 30 2c 4f 70 74 69 6f  |.T_TOMO%,0,Optio|
00003660  6e 73 5f 49 44 25 2c 31  39 36 2c 26 61 2c 2d 65  |ns_ID%,196,&a,-e|
00003670  25 0d 32 c8 26 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |%.2.&..T_TOMO%,0|
00003680  2c 4f 70 74 69 6f 6e 73  5f 49 44 25 2c 31 39 36  |,Options_ID%,196|
00003690  2c 26 63 2c 2d 66 25 0d  32 d2 26 c8 99 54 5f 54  |,&c,-f%.2.&..T_T|
000036a0  4f 4d 4f 25 2c 30 2c 4f  70 74 69 6f 6e 73 5f 49  |OMO%,0,Options_I|
000036b0  44 25 2c 31 39 36 2c 26  64 2c 2d 67 25 0d 32 dc  |D%,196,&d,-g%.2.|
000036c0  27 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 4f 70 74  |'..T_TOMO%,0,Opt|
000036d0  69 6f 6e 73 5f 49 44 25  2c 31 39 36 2c 26 31 34  |ions_ID%,196,&14|
000036e0  2c 2d 68 25 0d 32 e6 27  c8 99 54 5f 54 4f 4d 4f  |,-h%.2.'..T_TOMO|
000036f0  25 2c 30 2c 4f 70 74 69  6f 6e 73 5f 49 44 25 2c  |%,0,Options_ID%,|
00003700  31 39 36 2c 26 31 35 2c  2d 69 25 0d 32 f0 0b c9  |196,&15,-i%.2...|
00003710  45 5f 41 42 53 25 0d 33  18 16 c8 8e 53 65 6c 66  |E_ABS%.3....Self|
00003720  5f 43 6f 6d 70 6f 6e 65  6e 74 25 ca 0d 33 22 08  |_Component%..3".|
00003730  c9 26 31 31 0d 33 4a 33  c8 99 54 5f 54 4f 4d 4f  |.&11.3J3..T_TOMO|
00003740  25 2c 30 2c 4f 70 74 69  6f 6e 73 5f 49 44 25 2c  |%,0,Options_ID%,|
00003750  35 31 33 2c 33 2c 42 75  66 31 25 2c 31 32 38 b8  |513,3,Buf1%,128.|
00003760  2c 2c 2c 2c 2c 6c 25 0d  33 54 1c 42 75 66 31 25  |,,,,,l%.3T.Buf1%|
00003770  3f 6c 25 3d 31 33 3a 61  25 3d bb 28 24 42 75 66  |?l%=13:a%=.($Buf|
00003780  31 25 29 0d 33 5e 33 c8  99 54 5f 54 4f 4d 4f 25  |1%).3^3..T_TOMO%|
00003790  2c 30 2c 4f 70 74 69 6f  6e 73 5f 49 44 25 2c 35  |,0,Options_ID%,5|
000037a0  31 33 2c 31 2c 42 75 66  31 25 2c 31 32 38 b8 2c  |13,1,Buf1%,128.,|
000037b0  2c 2c 2c 2c 6c 25 0d 33  68 1c 42 75 66 31 25 3f  |,,,,l%.3h.Buf1%?|
000037c0  6c 25 3d 31 33 3a 62 25  3d bb 28 24 42 75 66 31  |l%=13:b%=.($Buf1|
000037d0  25 29 0d 33 72 33 c8 99  54 5f 54 4f 4d 4f 25 2c  |%).3r3..T_TOMO%,|
000037e0  30 2c 4f 70 74 69 6f 6e  73 5f 49 44 25 2c 35 31  |0,Options_ID%,51|
000037f0  33 2c 32 2c 42 75 66 31  25 2c 31 32 38 b8 2c 2c  |3,2,Buf1%,128.,,|
00003800  2c 2c 2c 6c 25 0d 33 7c  1c 42 75 66 31 25 3f 6c  |,,,l%.3|.Buf1%?l|
00003810  25 3d 31 33 3a 63 25 3d  bb 28 24 42 75 66 31 25  |%=13:c%=.($Buf1%|
00003820  29 0d 33 86 24 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |).3.$..T_TOMO%,0|
00003830  2c 4f 70 74 69 6f 6e 73  5f 49 44 25 2c 31 39 37  |,Options_ID%,197|
00003840  2c 39 b8 64 25 0d 33 90  25 c8 99 54 5f 54 4f 4d  |,9.d%.3.%..T_TOM|
00003850  4f 25 2c 30 2c 4f 70 74  69 6f 6e 73 5f 49 44 25  |O%,0,Options_ID%|
00003860  2c 31 39 37 2c 26 61 b8  65 25 0d 33 9a 25 c8 99  |,197,&a.e%.3.%..|
00003870  54 5f 54 4f 4d 4f 25 2c  30 2c 4f 70 74 69 6f 6e  |T_TOMO%,0,Option|
00003880  73 5f 49 44 25 2c 31 39  37 2c 26 63 b8 66 25 0d  |s_ID%,197,&c.f%.|
00003890  33 a4 25 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 4f  |3.%..T_TOMO%,0,O|
000038a0  70 74 69 6f 6e 73 5f 49  44 25 2c 31 39 37 2c 26  |ptions_ID%,197,&|
000038b0  64 b8 67 25 0d 33 ae 26  c8 99 54 5f 54 4f 4d 4f  |d.g%.3.&..T_TOMO|
000038c0  25 2c 30 2c 4f 70 74 69  6f 6e 73 5f 49 44 25 2c  |%,0,Options_ID%,|
000038d0  31 39 37 2c 26 31 34 b8  68 25 0d 33 b8 26 c8 99  |197,&14.h%.3.&..|
000038e0  54 5f 54 4f 4d 4f 25 2c  30 2c 4f 70 74 69 6f 6e  |T_TOMO%,0,Option|
000038f0  73 5f 49 44 25 2c 31 39  37 2c 26 31 35 b8 69 25  |s_ID%,197,&15.i%|
00003900  0d 33 c2 45 f2 73 61 76  65 5f 6f 70 74 69 6f 6e  |.3.E.save_option|
00003910  73 28 61 25 2c 62 25 2c  63 25 2c 28 64 25 3d 31  |s(a%,b%,c%,(d%=1|
00003920  29 2c 28 65 25 3d 31 29  2c 28 66 25 3d 31 29 2c  |),(e%=1),(f%=1),|
00003930  28 67 25 3d 31 29 2c 28  68 25 3d 31 29 2c 28 69  |(g%=1),(h%=1),(i|
00003940  25 3d 31 29 29 0d 33 cc  05 cb 0d 33 d6 05 cb 0d  |%=1)).3....3....|
00003950  33 e0 05 e1 0d 34 26 15  dd f2 68 61 6e 64 6c 65  |3....4&...handle|
00003960  5f 70 61 73 73 6d 65 6e  75 0d 34 4e 0d ea 6c 25  |_passmenu.4N..l%|
00003970  2c 6c 24 2c 61 25 0d 34  62 12 c8 8e 45 76 65 6e  |,l$,a%.4b...Even|
00003980  74 5f 43 6f 64 65 25 ca  0d 34 6c 0c c9 45 5f 54  |t_Code%..4l..E_T|
00003990  4f 41 43 25 0d 34 94 19  50 61 73 73 6d 65 6e 75  |OAC%.4..Passmenu|
000039a0  5f 49 44 25 3d 53 65 6c  66 5f 49 44 25 0d 34 9e  |_ID%=Self_ID%.4.|
000039b0  0d c9 45 5f 4d 41 54 42  53 25 0d 34 c6 13 c8 8e  |..E_MATBS%.4....|
000039c0  4c 6f 67 67 65 64 5f 55  73 65 72 24 ca 0d 34 d0  |Logged_User$..4.|
000039d0  07 c9 22 22 0d 34 f8 22  f2 70 61 73 73 6d 65 6e  |.."".4.".passmen|
000039e0  75 5f 67 72 65 79 73 28  30 2c 31 2c 31 2c 31 2c  |u_greys(0,1,1,1,|
000039f0  31 2c 31 2c 31 29 0d 35  02 0c c9 22 4f 57 4e 45  |1,1,1).5..."OWNE|
00003a00  52 22 0d 35 2a 22 f2 70  61 73 73 6d 65 6e 75 5f  |R".5*".passmenu_|
00003a10  67 72 65 79 73 28 30 2c  30 2c 30 2c 30 2c 30 2c  |greys(0,0,0,0,0,|
00003a20  30 2c 30 29 0d 35 34 05  7f 0d 35 5c 22 f2 70 61  |0,0).54...5\".pa|
00003a30  73 73 6d 65 6e 75 5f 67  72 65 79 73 28 30 2c 30  |ssmenu_greys(0,0|
00003a40  2c 31 2c 31 2c 31 2c 31  2c 31 29 0d 35 66 05 cb  |,1,1,1,1,1).5f..|
00003a50  0d 35 70 0a c9 45 5f 4d  53 25 0d 35 98 16 c8 8e  |.5p..E_MS%.5....|
00003a60  53 65 6c 66 5f 43 6f 6d  70 6f 6e 65 6e 74 25 ca  |Self_Component%.|
00003a70  0d 35 a2 07 c9 26 43 0d  35 d4 0b 52 75 73 72 25  |.5...&C.5..Rusr%|
00003a80  3d 31 0d 35 de 11 f2 6d  61 6b 65 5f 64 69 72 6c  |=1.5...make_dirl|
00003a90  69 73 74 0d 36 06 09 6c  24 3d 22 22 0d 36 10 11  |ist.6..l$="".6..|
00003aa0  e3 61 25 3d 31 b8 52 75  73 65 72 73 25 0d 36 1a  |.a%=1.Rusers%.6.|
00003ab0  11 6c 24 2b 3d 52 75 73  72 24 28 61 25 29 0d 36  |.l$+=Rusr$(a%).6|
00003ac0  24 17 e7 61 25 3c 52 75  73 65 72 73 25 8c 6c 24  |$..a%<Rusers%.l$|
00003ad0  2b 3d 22 2c 22 0d 36 2e  07 ed 61 25 0d 36 38 29  |+=",".6...a%.68)|
00003ae0  c8 99 54 5f 54 4f 4d 4f  25 2c 30 2c 55 73 65 72  |..T_TOMO%,0,User|
00003af0  61 63 63 65 73 73 5f 49  44 25 2c 38 39 36 2c 26  |access_ID%,896,&|
00003b00  31 62 2c 6c 24 0d 36 42  28 c8 99 54 5f 54 4f 4d  |1b,l$.6B(..T_TOM|
00003b10  4f 25 2c 31 2c 55 73 65  72 61 63 63 65 73 73 5f  |O%,1,Useraccess_|
00003b20  49 44 25 2c 38 39 38 2c  26 31 62 2c 30 0d 36 4c  |ID%,898,&1b,0.6L|
00003b30  11 f2 75 73 65 72 5f 67  61 64 67 65 74 73 0d 36  |..user_gadgets.6|
00003b40  56 13 f2 64 72 61 77 5f  6d 61 69 6e 28 32 2c 30  |V..draw_main(2,0|
00003b50  29 0d 36 60 05 cb 0d 36  6a 05 cb 0d 36 74 05 e1  |).6`...6j...6t..|
00003b60  0d 36 ba 15 dd f2 68 61  6e 64 6c 65 5f 70 61 73  |.6....handle_pas|
00003b70  73 77 6f 72 64 0d 36 e2  12 c8 8e 45 76 65 6e 74  |sword.6....Event|
00003b80  5f 43 6f 64 65 25 ca 0d  36 ec 0c c9 45 5f 54 4f  |_Code%..6...E_TO|
00003b90  41 43 25 0d 37 14 19 50  61 73 73 77 6f 72 64 5f  |AC%.7..Password_|
00003ba0  49 44 25 3d 53 65 6c 66  5f 49 44 25 0d 37 1e 0d  |ID%=Self_ID%.7..|
00003bb0  c9 45 5f 57 41 54 42 53  25 0d 37 46 15 f2 73 68  |.E_WATBS%.7F..sh|
00003bc0  6f 77 69 6e 67 5f 70 61  73 73 77 6f 72 64 0d 37  |owing_password.7|
00003bd0  50 0c c9 45 5f 57 46 56  43 25 0d 37 82 0b c9 45  |P..E_WFVC%.7...E|
00003be0  5f 41 42 53 25 0d 37 aa  16 c8 8e 53 65 6c 66 5f  |_ABS%.7....Self_|
00003bf0  43 6f 6d 70 6f 6e 65 6e  74 25 ca 0d 37 b4 06 c9  |Component%..7...|
00003c00  38 0d 37 dc 17 f2 61 63  74 69 6f 6e 5f 6f 6b 5f  |8.7...action_ok_|
00003c10  70 61 73 73 77 6f 72 64  0d 37 e6 06 c9 39 0d 38  |password.7...9.8|
00003c20  0e 3c c8 99 54 5f 54 53  4f 25 2c 30 2c 50 61 73  |.<..T_TSO%,0,Pas|
00003c30  73 77 6f 72 64 5f 49 44  25 2c 30 2c 30 2c 50 61  |sword_ID%,0,0,Pa|
00003c40  72 65 6e 74 5f 49 44 25  2c 50 61 72 65 6e 74 5f  |rent_ID%,Parent_|
00003c50  43 6f 6d 70 6f 6e 65 6e  74 25 0d 38 18 05 cb 0d  |Component%.8....|
00003c60  38 22 05 cb 0d 38 2c 05  e1 0d 38 72 14 dd f2 68  |8"...8,...8r...h|
00003c70  61 6e 64 6c 65 5f 73 75  62 6c 69 73 74 0d 38 9a  |andle_sublist.8.|
00003c80  12 c8 8e 45 76 65 6e 74  5f 43 6f 64 65 25 ca 0d  |...Event_Code%..|
00003c90  38 a4 0c c9 45 5f 54 4f  41 43 25 0d 38 cc 18 53  |8...E_TOAC%.8..S|
00003ca0  75 62 6c 69 73 74 5f 49  44 25 3d 53 65 6c 66 5f  |ublist_ID%=Self_|
00003cb0  49 44 25 0d 38 d6 2b c8  99 54 5f 54 4f 4d 4f 25  |ID%.8.+..T_TOMO%|
00003cc0  2c 30 2c 53 75 62 6c 69  73 74 5f 49 44 25 2c 30  |,0,Sublist_ID%,0|
00003cd0  b8 53 75 62 6c 69 73 74  25 28 31 2c 31 29 0d 38  |.Sublist%(1,1).8|
00003ce0  e0 14 53 75 62 6c 69 73  74 25 28 31 2c 33 29 3d  |..Sublist%(1,3)=|
00003cf0  36 34 0d 38 ea 15 53 75  62 6c 69 73 74 25 28 31  |64.8..Sublist%(1|
00003d00  2c 34 29 3d 2d 36 34 0d  38 f4 15 53 75 62 6c 69  |,4)=-64.8..Subli|
00003d10  73 74 25 28 31 2c 35 29  3d 38 31 32 0d 38 fe 16  |st%(1,5)=812.8..|
00003d20  53 75 62 6c 69 73 74 25  28 31 2c 36 29 3d 2d 32  |Sublist%(1,6)=-2|
00003d30  33 32 0d 39 08 05 cb 0d  39 12 05 e1 0d 39 58 16  |32.9....9....9X.|
00003d40  dd f2 68 61 6e 64 6c 65  5f 74 68 69 65 66 74 72  |..handle_thieftr|
00003d50  61 70 0d 39 80 12 c8 8e  45 76 65 6e 74 5f 43 6f  |ap.9....Event_Co|
00003d60  64 65 25 ca 0d 39 8a 0c  c9 45 5f 54 4f 41 43 25  |de%..9...E_TOAC%|
00003d70  0d 39 b2 1a 54 68 69 65  66 74 72 61 70 5f 49 44  |.9..Thieftrap_ID|
00003d80  25 3d 53 65 6c 66 5f 49  44 25 0d 39 bc 0d c9 45  |%=Self_ID%.9...E|
00003d90  5f 57 41 54 42 53 25 0d  39 e4 29 c8 99 54 5f 54  |_WATBS%.9.)..T_T|
00003da0  4f 4d 4f 25 2c 30 2c 54  68 69 65 66 74 72 61 70  |OMO%,0,Thieftrap|
00003db0  5f 49 44 25 2c 4d 5f 44  5f 53 53 25 2c 32 2c 31  |_ID%,M_D_SS%,2,1|
00003dc0  0d 39 ee 31 53 6f 75 72  63 65 24 3d 22 3c 42 6f  |.9.1Source$="<Bo|
00003dd0  6f 74 50 6c 75 73 24 44  69 72 3e 2e 52 65 73 6f  |otPlus$Dir>.Reso|
00003de0  75 72 63 65 73 2e 21 54  68 69 65 66 74 72 61 70  |urces.!Thieftrap|
00003df0  22 0d 39 f8 1d 41 70 70  6c 69 63 61 74 69 6f 6e  |".9..Application|
00003e00  24 3d 22 21 54 68 69 65  66 74 72 61 70 22 0d 3a  |$="!Thieftrap".:|
00003e10  02 0b c9 45 5f 44 44 45  25 0d 3a 2a 0e 42 75 66  |...E_DDE%.:*.Buf|
00003e20  32 25 21 30 3d 36 34 0d  3a 34 2b 42 75 66 32 25  |2%!0=64.:4+Buf2%|
00003e30  21 31 32 3d 30 3a 42 75  66 32 25 21 31 36 3d 31  |!12=0:Buf2%!16=1|
00003e40  3a 42 75 66 32 25 21 32  30 3d 42 6c 63 6b 25 21  |:Buf2%!20=Blck%!|
00003e50  31 36 0d 3a 3e 34 42 75  66 32 25 21 32 38 3d 42  |16.:>4Buf2%!28=B|
00003e60  6c 63 6b 25 21 32 34 3a  42 75 66 32 25 21 33 32  |lck%!24:Buf2%!32|
00003e70  3d 42 6c 63 6b 25 21 32  38 3a 42 75 66 32 25 21  |=Blck%!28:Buf2%!|
00003e80  33 36 3d 31 32 38 0d 3a  48 2b 42 75 66 32 25 21  |36=128.:H+Buf2%!|
00003e90  34 30 3d 26 32 30 30 30  3a 24 28 42 75 66 32 25  |40=&2000:$(Buf2%|
00003ea0  2b 34 34 29 3d 41 70 70  6c 69 63 61 74 69 6f 6e  |+44)=Application|
00003eb0  24 0d 3a 52 2a c8 99 22  57 69 6d 70 5f 53 65 6e  |$.:R*.."Wimp_Sen|
00003ec0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 42 75 66  |dMessage",17,Buf|
00003ed0  32 25 2c 42 6c 63 6b 25  21 31 36 0d 3a 5c 05 cb  |2%,Blck%!16.:\..|
00003ee0  0d 3a 66 05 e1 0d 3a ac  17 dd f2 68 61 6e 64 6c  |.:f...:....handl|
00003ef0  65 5f 75 73 65 72 61 63  63 65 73 73 0d 3a d4 0e  |e_useraccess.:..|
00003f00  ea 6c 24 2c 61 25 2c 6f  76 25 0d 3a e8 12 c8 8e  |.l$,a%,ov%.:....|
00003f10  45 76 65 6e 74 5f 43 6f  64 65 25 ca 0d 3a f2 0c  |Event_Code%..:..|
00003f20  c9 45 5f 54 4f 41 43 25  0d 3b 1a 1b 55 73 65 72  |.E_TOAC%.;..User|
00003f30  61 63 63 65 73 73 5f 49  44 25 3d 53 65 6c 66 5f  |access_ID%=Self_|
00003f40  49 44 25 0d 3b 24 2e c8  99 54 5f 54 4f 4d 4f 25  |ID%.;$...T_TOMO%|
00003f50  2c 30 2c 55 73 65 72 61  63 63 65 73 73 5f 49 44  |,0,Useraccess_ID|
00003f60  25 2c 30 b8 53 75 62 6c  69 73 74 25 28 32 2c 32  |%,0.Sublist%(2,2|
00003f70  29 0d 3b 2e 1f 53 75 62  6c 69 73 74 25 28 33 2c  |).;..Sublist%(3,|
00003f80  32 29 3d 53 75 62 6c 69  73 74 25 28 32 2c 32 29  |2)=Sublist%(2,2)|
00003f90  0d 3b 38 0c c9 45 5f 53  53 56 43 25 0d 3b 60 33  |.;8..E_SSVC%.;`3|
00003fa0  c8 99 54 5f 54 4f 4d 4f  25 2c 31 2c 55 73 65 72  |..T_TOMO%,1,User|
00003fb0  61 63 63 65 73 73 5f 49  44 25 2c 38 39 39 2c 26  |access_ID%,899,&|
00003fc0  31 62 2c 42 75 66 31 25  2c 31 32 38 b8 61 25 0d  |1b,Buf1%,128.a%.|
00003fd0  3b 6a 0e 52 75 73 72 25  3d 61 25 2b 31 0d 3b 92  |;j.Rusr%=a%+1.;.|
00003fe0  11 f2 75 73 65 72 5f 67  61 64 67 65 74 73 0d 3b  |..user_gadgets.;|
00003ff0  9c 19 f2 73 65 74 5f 6c  69 73 74 5f 65 78 74 65  |...set_list_exte|
00004000  6e 74 28 32 2c b9 29 0d  3b a6 16 f2 64 72 61 77  |nt(2,.).;...draw|
00004010  5f 73 75 62 28 32 2c 32  2c a3 2c 30 29 0d 3b b0  |_sub(2,2,.,0).;.|
00004020  19 f2 73 65 74 5f 6c 69  73 74 5f 65 78 74 65 6e  |..set_list_exten|
00004030  74 28 33 2c b9 29 0d 3b  ba 16 f2 64 72 61 77 5f  |t(3,.).;...draw_|
00004040  73 75 62 28 33 2c 32 2c  a3 2c 30 29 0d 3b c4 0b  |sub(3,2,.,0).;..|
00004050  c9 45 5f 41 42 53 25 0d  3b ec 16 c8 8e 53 65 6c  |.E_ABS%.;....Sel|
00004060  66 5f 43 6f 6d 70 6f 6e  65 6e 74 25 ca 0d 3b f6  |f_Component%..;.|
00004070  08 c9 26 31 38 0d 3c 1e  16 f2 6d 6f 64 69 66 79  |..&18.<...modify|
00004080  5f 75 73 65 72 61 63 63  65 73 73 0d 3c 28 14 f2  |_useraccess.<(..|
00004090  73 61 76 65 5f 75 73 65  72 61 63 63 65 73 73 0d  |save_useraccess.|
000040a0  3c 32 13 f2 73 61 76 65  5f 75 73 65 72 74 69 6d  |<2..save_usertim|
000040b0  65 73 0d 3c 3c 05 cb 0d  3c 46 0c c9 45 5f 57 48  |es.<<...<F..E_WH|
000040c0  42 48 25 0d 3c 6e 19 c8  99 54 5f 54 48 4f 25 2c  |BH%.<n...T_THO%,|
000040d0  30 2c 59 65 73 64 69 72  5f 49 44 25 0d 3c 78 18  |0,Yesdir_ID%.<x.|
000040e0  c8 99 54 5f 54 48 4f 25  2c 30 2c 4e 6f 64 69 72  |..T_THO%,0,Nodir|
000040f0  5f 49 44 25 0d 3c 82 05  cb 0d 3c 8c 05 e1 0d 3c  |_ID%.<....<....<|
00004100  d2 13 dd f2 68 61 6e 64  6c 65 5f 79 65 73 64 69  |....handle_yesdi|
00004110  72 0d 3c fa 12 c8 8e 45  76 65 6e 74 5f 43 6f 64  |r.<....Event_Cod|
00004120  65 25 ca 0d 3d 04 0c c9  45 5f 54 4f 41 43 25 0d  |e%..=...E_TOAC%.|
00004130  3d 2c 17 59 65 73 64 69  72 5f 49 44 25 3d 53 65  |=,.Yesdir_ID%=Se|
00004140  6c 66 5f 49 44 25 0d 3d  36 2a c8 99 54 5f 54 4f  |lf_ID%.=6*..T_TO|
00004150  4d 4f 25 2c 30 2c 59 65  73 64 69 72 5f 49 44 25  |MO%,0,Yesdir_ID%|
00004160  2c 30 b8 53 75 62 6c 69  73 74 25 28 32 2c 31 29  |,0.Sublist%(2,1)|
00004170  0d 3d 40 14 53 75 62 6c  69 73 74 25 28 32 2c 33  |.=@.Sublist%(2,3|
00004180  29 3d 38 30 0d 3d 4a 16  53 75 62 6c 69 73 74 25  |)=80.=J.Sublist%|
00004190  28 32 2c 34 29 3d 2d 33  32 30 0d 3d 54 15 53 75  |(2,4)=-320.=T.Su|
000041a0  62 6c 69 73 74 25 28 32  2c 35 29 3d 33 35 32 0d  |blist%(2,5)=352.|
000041b0  3d 5e 16 53 75 62 6c 69  73 74 25 28 32 2c 36 29  |=^.Sublist%(2,6)|
000041c0  3d 2d 32 33 32 0d 3d 68  05 cb 0d 3d 72 05 e1 0d  |=-232.=h...=r...|
000041d0  3d c2 10 dd f2 68 61 6e  64 6c 65 5f 77 6d 69 0d  |=....handle_wmi.|
000041e0  3d ea 18 ea 6e 6d 24 2c  73 74 24 2c 74 6e 24 2c  |=...nm$,st$,tn$,|
000041f0  70 63 24 2c 74 70 24 0d  3d fe 12 c8 8e 45 76 65  |pc$,tp$.=....Eve|
00004200  6e 74 5f 43 6f 64 65 25  ca 0d 3e 08 0d c9 45 5f  |nt_Code%..>...E_|
00004210  57 41 54 42 53 25 0d 3e  30 14 66 25 3d 8e 28 4f  |WATBS%.>0.f%=.(O|
00004220  77 6e 65 72 66 69 6c 65  24 29 0d 3e 3a 0a e7 66  |wnerfile$).>:..f|
00004230  25 3d 30 8c 0d 3e 44 22  c8 99 22 4f 53 5f 46 69  |%=0..>D".."OS_Fi|
00004240  6c 65 22 2c 31 31 2c 4f  77 6e 65 72 66 69 6c 65  |le",11,Ownerfile|
00004250  24 2c 26 46 46 46 0d 3e  4e 0b e3 61 25 3d 31 b8  |$,&FFF.>N..a%=1.|
00004260  35 0d 3e 58 2d c8 99 54  5f 54 4f 4d 4f 25 2c 30  |5.>X-..T_TOMO%,0|
00004270  2c 53 65 6c 66 5f 49 44  25 2c 35 31 32 2c 61 25  |,Self_ID%,512,a%|
00004280  2b 34 2c 22 3c 55 6e 6b  6e 6f 77 6e 3e 22 0d 3e  |+4,"<Unknown>".>|
00004290  62 07 ed 61 25 0d 3e 6c  05 cc 0d 3e 76 0b e3 61  |b..a%.>l...>v..a|
000042a0  25 3d 31 b8 35 0d 3e 80  0b 61 24 3d be 23 66 25  |%=1.5.>..a$=.#f%|
000042b0  0d 3e 8a 24 c8 99 54 5f  54 4f 4d 4f 25 2c 30 2c  |.>.$..T_TOMO%,0,|
000042c0  53 65 6c 66 5f 49 44 25  2c 35 31 32 2c 61 25 2b  |Self_ID%,512,a%+|
000042d0  34 2c 61 24 0d 3e 94 07  ed 61 25 0d 3e 9e 08 d9  |4,a$.>...a%.>...|
000042e0  23 66 25 0d 3e a8 05 cd  0d 3e b2 0b c9 45 5f 41  |#f%.>....>...E_A|
000042f0  42 53 25 0d 3e da 17 e7  53 65 6c 66 5f 43 6f 6d  |BS%.>...Self_Com|
00004300  70 6f 6e 65 6e 74 25 3d  31 30 0d 3e e4 14 66 25  |ponent%=10.>..f%|
00004310  3d ad 28 4f 77 6e 65 72  66 69 6c 65 24 29 0d 3e  |=.(Ownerfile$).>|
00004320  ee 0b e3 61 25 3d 31 b8  35 0d 3e f8 33 c8 99 54  |...a%=1.5.>.3..T|
00004330  5f 54 4f 4d 4f 25 2c 30  2c 53 65 6c 66 5f 49 44  |_TOMO%,0,Self_ID|
00004340  25 2c 35 31 33 2c 61 25  2b 34 2c 42 75 66 31 25  |%,513,a%+4,Buf1%|
00004350  2c 31 32 38 b8 2c 2c 2c  2c 2c 6c 25 0d 3f 02 0f  |,128.,,,,,l%.?..|
00004360  42 75 66 31 25 3f 6c 25  3d 31 33 0d 3f 0c 0f d5  |Buf1%?l%=13.?...|
00004370  23 66 25 2c 24 42 75 66  31 25 0d 3f 16 07 ed 61  |#f%,$Buf1%.?...a|
00004380  25 0d 3f 20 08 d9 23 66  25 0d 3f 2a 05 cd 0d 3f  |%.? ..#f%.?*...?|
00004390  34 05 cb 0d 3f 3e 05 e1  0d 3f 84 1b dd f2 6d 61  |4...?>...?....ma|
000043a0  6b 65 5f 74 68 69 65 66  74 72 61 70 28 64 65 73  |ke_thieftrap(des|
000043b0  74 24 29 0d 3f ac 10 ea  66 25 2c 61 25 2c 61 24  |t$).?...f%,a%,a$|
000043c0  2c 70 25 0d 3f c0 1c 70  25 3d a7 64 65 73 74 24  |,p%.?..p%=.dest$|
000043d0  2c 22 2e 21 54 68 69 65  66 74 72 61 70 22 29 0d  |,".!Thieftrap").|
000043e0  3f ca 2f 66 25 3d ad 28  22 3c 42 6f 6f 74 70 6c  |?./f%=.("<Bootpl|
000043f0  75 73 24 44 69 72 3e 2e  52 65 73 6f 75 72 63 65  |us$Dir>.Resource|
00004400  73 2e 6b 69 6c 6c 72 69  73 63 70 63 22 29 0d 3f  |s.killriscpc").?|
00004410  d4 08 61 25 3d 31 0d 3f  de 05 f5 0d 3f e8 09 61  |..a%=1.?....?..a|
00004420  25 2b 3d 31 0d 3f f2 0b  61 24 3d be 23 66 25 0d  |%+=1.?..a$=.#f%.|
00004430  3f fc 09 fd c5 23 66 25  0d 40 06 20 61 24 3d c0  |?....#f%.@. a$=.|
00004440  64 65 73 74 24 2c 70 25  29 2b 22 21 54 72 61 70  |dest$,p%)+"!Trap|
00004450  5f 22 2b c3 28 61 25 29  0d 40 2e 22 d5 23 66 25  |_"+.(a%).@.".#f%|
00004460  2c 22 2a 57 49 50 45 20  22 2b 61 24 2b 22 20 7e  |,"*WIPE "+a$+" ~|
00004470  46 20 52 20 7e 43 20 7e  56 22 0d 40 38 08 d9 23  |F R ~C ~V".@8..#|
00004480  66 25 0d 40 60 41 ff 28  22 2a 43 4f 50 59 20 3c  |f%.@`A.("*COPY <|
00004490  42 6f 6f 74 50 6c 75 73  24 44 69 72 3e 2e 52 65  |BootPlus$Dir>.Re|
000044a0  73 6f 75 72 63 65 73 2e  21 54 68 69 65 66 74 72  |sources.!Thieftr|
000044b0  61 70 20 22 2b 61 24 2b  22 20 7e 43 20 7e 56 20  |ap "+a$+" ~C ~V |
000044c0  52 22 29 0d 40 88 4a ff  28 22 2a 43 4f 50 59 20  |R").@.J.("*COPY |
000044d0  3c 42 6f 6f 74 50 6c 75  73 24 44 69 72 3e 2e 52  |<BootPlus$Dir>.R|
000044e0  65 73 6f 75 72 63 65 73  2e 21 7a 7a 7a 7a 70 61  |esources.!zzzzpa|
000044f0  73 73 20 22 2b 61 24 2b  22 2e 21 7a 7a 7a 7a 70  |ss "+a$+".!zzzzp|
00004500  61 73 73 20 7e 43 20 7e  56 20 52 22 29 0d 40 9c  |ass ~C ~V R").@.|
00004510  05 e1 0d 40 ec 15 dd f2  6b 69 6c 6c 5f 74 68 69  |...@....kill_thi|
00004520  65 66 74 72 61 70 73 0d  41 14 0d ea 61 25 2c 61  |eftraps.A...a%,a|
00004530  24 2c 66 25 0d 41 28 14  66 25 3d 8e 28 54 68 69  |$,f%.A(.f%=.(Thi|
00004540  65 66 66 69 6c 65 24 29  0d 41 32 0b 61 24 3d be  |effile$).A2.a$=.|
00004550  23 66 25 0d 41 3c 0b c8  95 ac c5 23 66 25 0d 41  |#f%.A<.....#f%.A|
00004560  46 0b 61 24 3d be 23 66  25 0d 41 50 11 61 25 3d  |F.a$=.#f%.AP.a%=|
00004570  a7 61 24 2c 22 20 7e 46  22 29 0d 41 5a 12 66 24  |.a$," ~F").AZ.f$|
00004580  3d c1 61 24 2c 37 2c 61  25 2d 36 29 0d 41 64 1e  |=.a$,7,a%-6).Ad.|
00004590  c8 99 22 58 4f 53 5f 46  53 43 6f 6e 74 72 6f 6c  |.."XOS_FSControl|
000045a0  22 2c 32 37 2c 66 24 2c  2c 33 0d 41 6e 05 ce 0d  |",27,f$,,3.An...|
000045b0  41 78 08 d9 23 66 25 0d  41 82 25 c8 99 22 4f 53  |Ax..#f%.A.%.."OS|
000045c0  5f 46 53 43 6f 6e 74 72  6f 6c 22 2c 32 37 2c 54  |_FSControl",27,T|
000045d0  68 69 65 66 66 69 6c 65  24 2c 2c 33 0d 41 8c 22  |hieffile$,,3.A."|
000045e0  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 31 31 2c 54  |.."OS_File",11,T|
000045f0  68 69 65 66 66 69 6c 65  24 2c 26 46 45 42 0d 41  |hieffile$,&FEB.A|
00004600  96 14 66 25 3d ae 28 54  68 69 65 66 66 69 6c 65  |..f%=.(Thieffile|
00004610  24 29 0d 41 a0 1e d5 23  66 25 2c 22 7c 20 46 69  |$).A...#f%,"| Fi|
00004620  6c 65 73 20 66 6f 72 20  6b 69 6c 6c 69 6e 67 22  |les for killing"|
00004630  0d 41 aa 08 d9 23 66 25  0d 41 b4 05 e1 0d 41 fa  |.A...#f%.A....A.|
00004640  16 dd f2 73 68 6f 77 69  6e 67 5f 70 61 73 73 77  |...showing_passw|
00004650  6f 72 64 0d 42 22 13 c8  8e 50 61 72 65 6e 74 5f  |ord.B"...Parent_|
00004660  4e 61 6d 65 24 ca 0d 42  2c 0e c9 22 49 63 6f 6e  |Name$..B,.."Icon|
00004670  62 61 72 22 0d 42 54 43  f2 63 6c 65 61 72 5f 66  |bar".BTC.clear_f|
00004680  69 65 6c 64 73 28 22 55  73 65 72 20 4c 6f 67 69  |ields("User Logi|
00004690  6e 22 2c 22 22 2c 22 22  2c 22 22 2c 22 22 2c 30  |n","","","","",0|
000046a0  2c 30 2c 26 38 30 30 30  30 30 30 30 2c 26 38 30  |,0,&80000000,&80|
000046b0  30 30 30 30 30 30 29 0d  42 5e 10 41 75 74 6f 63  |000000).B^.Autoc|
000046c0  6c 6f 73 65 25 3d b9 0d  42 68 0f c9 22 50 61 73  |lose%=..Bh.."Pas|
000046d0  73 6d 65 6e 75 22 0d 42  72 18 c8 8e 50 61 72 65  |smenu".Br...Pare|
000046e0  6e 74 5f 43 6f 6d 70 6f  6e 65 6e 74 25 ca 0d 42  |nt_Component%..B|
000046f0  7c 06 c9 33 0d 42 a4 57  f2 63 6c 65 61 72 5f 66  ||..3.B.W.clear_f|
00004700  69 65 6c 64 73 28 22 53  79 73 74 65 6d 20 4f 77  |ields("System Ow|
00004710  6e 65 72 20 56 65 72 69  66 69 63 61 74 69 6f 6e  |ner Verification|
00004720  22 2c 22 4f 57 4e 45 52  22 2c 22 22 2c 22 22 2c  |","OWNER","","",|
00004730  22 22 2c 30 2c 30 2c 26  38 30 30 30 30 30 30 30  |"",0,0,&80000000|
00004740  2c 26 38 30 30 30 30 30  30 30 29 0d 42 ae 15 55  |,&80000000).B..U|
00004750  73 65 72 6e 61 6d 65 24  3d 22 4f 57 4e 45 52 22  |sername$="OWNER"|
00004760  0d 42 b8 06 c9 38 0d 42  e0 57 f2 63 6c 65 61 72  |.B...8.B.W.clear|
00004770  5f 66 69 65 6c 64 73 28  22 53 79 73 74 65 6d 20  |_fields("System |
00004780  4f 77 6e 65 72 20 56 65  72 69 66 69 63 61 74 69  |Owner Verificati|
00004790  6f 6e 22 2c 22 4f 57 4e  45 52 22 2c 22 22 2c 22  |on","OWNER","","|
000047a0  22 2c 22 22 2c 30 2c 30  2c 26 38 30 30 30 30 30  |","",0,0,&800000|
000047b0  30 30 2c 26 38 30 30 30  30 30 30 30 29 0d 42 ea  |00,&80000000).B.|
000047c0  15 55 73 65 72 6e 61 6d  65 24 3d 22 4f 57 4e 45  |.Username$="OWNE|
000047d0  52 22 0d 42 f4 06 c9 37  0d 43 1c 43 f2 63 6c 65  |R".B...7.C.C.cle|
000047e0  61 72 5f 66 69 65 6c 64  73 28 22 55 73 65 72 20  |ar_fields("User |
000047f0  4c 6f 67 69 6e 22 2c 22  22 2c 22 22 2c 22 22 2c  |Login","","","",|
00004800  22 22 2c 30 2c 30 2c 26  38 30 30 30 30 30 30 30  |"",0,0,&80000000|
00004810  2c 26 38 30 30 30 30 30  30 30 29 0d 43 26 06 c9  |,&80000000).C&..|
00004820  36 0d 43 4e 15 e7 4c 6f  67 67 65 64 5f 55 73 65  |6.CN..Logged_Use|
00004830  72 24 3d 22 22 8c 0d 43  58 39 f2 65 72 72 6f 72  |r$=""..CX9.error|
00004840  5f 6d 65 73 73 61 67 65  28 22 41 20 75 73 65 72  |_message("A user|
00004850  20 68 61 73 20 6e 6f 74  20 6c 6f 67 67 65 64 20  | has not logged |
00004860  6f 6e 20 79 65 74 22 2c  22 22 2c 30 2c 30 29 0d  |on yet","",0,0).|
00004870  43 62 05 cc 0d 43 6c 4d  f2 63 6c 65 61 72 5f 66  |Cb...ClM.clear_f|
00004880  69 65 6c 64 73 28 22 43  68 61 6e 67 65 20 6f 66  |ields("Change of|
00004890  20 50 61 73 73 77 6f 72  64 22 2c 4c 6f 67 67 65  | Password",Logge|
000048a0  64 5f 55 73 65 72 24 2c  22 22 2c 22 22 2c 22 22  |d_User$,"","",""|
000048b0  2c 26 38 30 30 30 30 30  30 30 2c 30 2c 30 2c 30  |,&80000000,0,0,0|
000048c0  29 0d 43 76 1a 55 73 65  72 6e 61 6d 65 24 3d 4c  |).Cv.Username$=L|
000048d0  6f 67 67 65 64 5f 55 73  65 72 24 0d 43 80 05 cd  |ogged_User$.C...|
000048e0  0d 43 8a 05 cb 0d 43 94  10 41 75 74 6f 63 6c 6f  |.C....C..Autoclo|
000048f0  73 65 25 3d a3 0d 43 9e  0f c9 22 50 61 73 73 77  |se%=..C..."Passw|
00004900  6f 72 64 22 0d 43 a8 18  c8 8e 50 61 72 65 6e 74  |ord".C....Parent|
00004910  5f 43 6f 6d 70 6f 6e 65  6e 74 25 ca 0d 43 b2 08  |_Component%..C..|
00004920  c9 31 30 30 0d 43 da 41  f2 63 6c 65 61 72 5f 66  |.100.C.A.clear_f|
00004930  69 65 6c 64 73 28 22 4e  65 77 20 55 73 65 72 20  |ields("New User |
00004940  44 65 74 61 69 6c 73 22  2c 22 22 2c 22 22 2c 22  |Details","","","|
00004950  22 2c 22 22 2c 30 2c 26  38 30 30 30 30 30 30 30  |","",0,&80000000|
00004960  2c 30 2c 30 29 0d 43 e4  08 c9 31 30 31 0d 44 0c  |,0,0).C...101.D.|
00004970  45 f2 63 6c 65 61 72 5f  66 69 65 6c 64 73 28 22  |E.clear_fields("|
00004980  52 65 73 65 74 20 55 73  65 72 73 20 50 61 73 73  |Reset Users Pass|
00004990  77 6f 72 64 22 2c 22 22  2c 22 22 2c 22 22 2c 22  |word","","","","|
000049a0  22 2c 30 2c 26 38 30 30  30 30 30 30 30 2c 30 2c  |",0,&80000000,0,|
000049b0  30 29 0d 44 16 08 c9 31  30 32 0d 44 3e 47 f2 63  |0).D...102.D>G.c|
000049c0  6c 65 61 72 5f 66 69 65  6c 64 73 28 22 4e 65 77  |lear_fields("New|
000049d0  20 4f 77 6e 65 72 22 2c  22 4f 57 4e 45 52 22 2c  | Owner","OWNER",|
000049e0  22 22 2c 22 22 2c 22 22  2c 26 38 30 30 30 30 30  |"","","",&800000|
000049f0  30 30 2c 26 38 30 30 30  30 30 30 30 2c 30 2c 30  |00,&80000000,0,0|
00004a00  29 0d 44 48 15 55 73 65  72 6e 61 6d 65 24 3d 22  |).DH.Username$="|
00004a10  4f 57 4e 45 52 22 0d 44  52 05 cb 0d 44 5c 10 41  |OWNER".DR...D\.A|
00004a20  75 74 6f 63 6c 6f 73 65  25 3d a3 0d 44 66 05 cb  |utoclose%=..Df..|
00004a30  0d 44 70 05 e1 0d 44 b6  18 dd f2 76 61 6c 63 68  |.Dp...D....valch|
00004a40  61 6e 67 65 5f 70 61 73  73 77 6f 72 64 0d 44 de  |ange_password.D.|
00004a50  10 e7 42 6c 63 6b 25 21  31 36 3d 30 8c 0d 45 06  |..Blck%!16=0..E.|
00004a60  3e f2 65 72 72 6f 72 5f  6d 65 73 73 61 67 65 28  |>.error_message(|
00004a70  22 49 6e 70 75 74 20 69  73 20 74 6f 6f 20 6c 6f  |"Input is too lo|
00004a80  6e 67 2c 20 70 6c 65 61  73 65 20 73 68 6f 72 74  |ng, please short|
00004a90  65 6e 22 2c 22 22 2c 30  2c 30 29 0d 45 10 05 cc  |en","",0,0).E...|
00004aa0  0d 45 1a 16 c8 8e 53 65  6c 66 5f 43 6f 6d 70 6f  |.E....Self_Compo|
00004ab0  6e 65 6e 74 25 ca 0d 45  24 06 c9 34 0d 45 2e 21  |nent%..E$..4.E.!|
00004ac0  55 73 65 72 6e 61 6d 65  24 3d a4 69 6e 64 69 72  |Username$=.indir|
00004ad0  65 63 74 28 42 6c 63 6b  25 2b 31 36 29 0d 45 38  |ect(Blck%+16).E8|
00004ae0  06 c9 35 0d 45 42 21 50  61 73 73 77 6f 72 64 24  |..5.EB!Password$|
00004af0  3d a4 69 6e 64 69 72 65  63 74 28 42 6c 63 6b 25  |=.indirect(Blck%|
00004b00  2b 31 36 29 0d 45 4c 06  c9 36 0d 45 56 24 4e 65  |+16).EL..6.EV$Ne|
00004b10  77 70 61 73 73 77 6f 72  64 24 3d a4 69 6e 64 69  |wpassword$=.indi|
00004b20  72 65 63 74 28 42 6c 63  6b 25 2b 31 36 29 0d 45  |rect(Blck%+16).E|
00004b30  60 06 c9 37 0d 45 6a 1f  56 65 72 69 66 79 24 3d  |`..7.Ej.Verify$=|
00004b40  a4 69 6e 64 69 72 65 63  74 28 42 6c 63 6b 25 2b  |.indirect(Blck%+|
00004b50  31 36 29 0d 45 74 05 cb  0d 45 7e 05 cd 0d 45 88  |16).Et...E~...E.|
00004b60  05 e1 0d 45 ce 18 dd f2  61 63 74 69 6f 6e 5f 6f  |...E....action_o|
00004b70  6b 5f 70 61 73 73 77 6f  72 64 0d 45 f6 21 ea 75  |k_password.E.!.u|
00004b80  24 2c 70 24 2c 76 61 6c  69 64 25 2c 76 65 72 69  |$,p$,valid%,veri|
00004b90  66 79 25 2c 65 78 69 73  74 73 25 0d 46 0a 2d c8  |fy%,exists%.F.-.|
00004ba0  99 54 5f 54 4f 4d 4f 25  2c 30 2c 50 61 73 73 77  |.T_TOMO%,0,Passw|
00004bb0  6f 72 64 5f 49 44 25 2c  35 31 33 2c 26 34 2c 42  |ord_ID%,513,&4,B|
00004bc0  75 66 31 25 2c 32 35 36  0d 46 14 17 75 24 3d a4  |uf1%,256.F..u$=.|
00004bd0  69 6e 64 69 72 65 63 74  28 42 75 66 31 25 29 0d  |indirect(Buf1%).|
00004be0  46 1e 2d c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 50  |F.-..T_TOMO%,0,P|
00004bf0  61 73 73 77 6f 72 64 5f  49 44 25 2c 35 31 33 2c  |assword_ID%,513,|
00004c00  26 35 2c 42 75 66 31 25  2c 32 35 36 0d 46 28 17  |&5,Buf1%,256.F(.|
00004c10  70 24 3d a4 69 6e 64 69  72 65 63 74 28 42 75 66  |p$=.indirect(Buf|
00004c20  31 25 29 0d 46 32 2d c8  99 54 5f 54 4f 4d 4f 25  |1%).F2-..T_TOMO%|
00004c30  2c 30 2c 50 61 73 73 77  6f 72 64 5f 49 44 25 2c  |,0,Password_ID%,|
00004c40  35 31 33 2c 26 36 2c 42  75 66 31 25 2c 32 35 36  |513,&6,Buf1%,256|
00004c50  0d 46 3c 17 6e 24 3d a4  69 6e 64 69 72 65 63 74  |.F<.n$=.indirect|
00004c60  28 42 75 66 31 25 29 0d  46 46 2d c8 99 54 5f 54  |(Buf1%).FF-..T_T|
00004c70  4f 4d 4f 25 2c 30 2c 50  61 73 73 77 6f 72 64 5f  |OMO%,0,Password_|
00004c80  49 44 25 2c 35 31 33 2c  26 37 2c 42 75 66 31 25  |ID%,513,&7,Buf1%|
00004c90  2c 32 35 36 0d 46 50 17  76 24 3d a4 69 6e 64 69  |,256.FP.v$=.indi|
00004ca0  72 65 63 74 28 42 75 66  31 25 29 0d 46 5a 25 76  |rect(Buf1%).FZ%v|
00004cb0  61 6c 69 64 25 3d a4 63  68 65 63 6b 5f 75 73 65  |alid%=.check_use|
00004cc0  72 28 75 24 2c 70 24 2c  65 78 69 73 74 73 25 29  |r(u$,p$,exists%)|
00004cd0  0d 46 64 13 76 65 72 69  66 79 25 3d 28 6e 24 3d  |.Fd.verify%=(n$=|
00004ce0  76 24 29 0d 46 6e 13 c8  8e 50 61 72 65 6e 74 5f  |v$).Fn...Parent_|
00004cf0  4e 61 6d 65 24 ca 0d 46  78 0e c9 22 49 63 6f 6e  |Name$..Fx.."Icon|
00004d00  62 61 72 22 0d 46 a0 0c  e7 76 61 6c 69 64 25 8c  |bar".F...valid%.|
00004d10  0d 46 aa 15 f2 6c 6f 67  69 6e 5f 75 73 65 72 28  |.F...login_user(|
00004d20  75 24 2c b9 29 0d 46 b4  05 cc 0d 46 be 0d e7 65  |u$,.).F....F...e|
00004d30  78 69 73 74 73 25 8c 0d  46 c8 32 f2 65 72 72 6f  |xists%..F.2.erro|
00004d40  72 5f 6d 65 73 73 61 67  65 28 22 55 6e 72 65 63  |r_message("Unrec|
00004d50  6f 67 6e 69 73 65 64 20  70 61 73 73 77 6f 72 64  |ognised password|
00004d60  22 2c 22 22 2c 30 2c 30  29 0d 46 d2 05 cc 0d 46  |","",0,0).F....F|
00004d70  dc 32 f2 65 72 72 6f 72  5f 6d 65 73 73 61 67 65  |.2.error_message|
00004d80  28 22 55 6e 72 65 63 6f  67 6e 69 73 65 64 20 75  |("Unrecognised u|
00004d90  73 65 72 6e 61 6d 65 22  2c 22 22 2c 30 2c 30 29  |sername","",0,0)|
00004da0  0d 46 e6 05 cd 0d 46 f0  05 cd 0d 46 fa 0f c9 22  |.F....F....F..."|
00004db0  50 61 73 73 6d 65 6e 75  22 0d 47 22 18 c8 8e 50  |Passmenu".G"...P|
00004dc0  61 72 65 6e 74 5f 43 6f  6d 70 6f 6e 65 6e 74 25  |arent_Component%|
00004dd0  ca 0d 47 2c 06 c9 33 0d  47 54 0c e7 76 61 6c 69  |..G,..3.GT..vali|
00004de0  64 25 8c 0d 47 5e 30 c8  99 54 5f 54 53 4f 25 2c  |d%..G^0..T_TSO%,|
00004df0  30 2c 50 61 73 73 77 6f  72 64 5f 49 44 25 2c 30  |0,Password_ID%,0|
00004e00  2c 30 2c 50 61 73 73 77  6f 72 64 5f 49 44 25 2c  |,0,Password_ID%,|
00004e10  31 30 30 0d 47 68 05 cc  0d 47 72 33 f2 65 72 72  |100.Gh...Gr3.err|
00004e20  6f 72 5f 6d 65 73 73 61  67 65 28 22 49 6e 76 61  |or_message("Inva|
00004e30  6c 69 64 20 4f 57 4e 45  52 20 70 61 73 73 77 6f  |lid OWNER passwo|
00004e40  72 64 22 2c 22 22 2c 30  2c 30 29 0d 47 7c 05 cd  |rd","",0,0).G|..|
00004e50  0d 47 86 06 c9 38 0d 47  ae 0c e7 76 61 6c 69 64  |.G...8.G...valid|
00004e60  25 8c 0d 47 b8 30 c8 99  54 5f 54 53 4f 25 2c 30  |%..G.0..T_TSO%,0|
00004e70  2c 50 61 73 73 77 6f 72  64 5f 49 44 25 2c 30 2c  |,Password_ID%,0,|
00004e80  30 2c 50 61 73 73 77 6f  72 64 5f 49 44 25 2c 31  |0,Password_ID%,1|
00004e90  30 31 0d 47 c2 05 cc 0d  47 cc 33 f2 65 72 72 6f  |01.G....G.3.erro|
00004ea0  72 5f 6d 65 73 73 61 67  65 28 22 49 6e 76 61 6c  |r_message("Inval|
00004eb0  69 64 20 4f 57 4e 45 52  20 70 61 73 73 77 6f 72  |id OWNER passwor|
00004ec0  64 22 2c 22 22 2c 30 2c  30 29 0d 47 d6 05 cd 0d  |d","",0,0).G....|
00004ed0  47 e0 06 c9 37 0d 48 08  0c e7 76 61 6c 69 64 25  |G...7.H...valid%|
00004ee0  8c 0d 48 12 15 f2 6c 6f  67 69 6e 5f 75 73 65 72  |..H...login_user|
00004ef0  28 75 24 2c b9 29 0d 48  1c 05 cc 0d 48 26 0d e7  |(u$,.).H....H&..|
00004f00  65 78 69 73 74 73 25 8c  0d 48 30 32 f2 65 72 72  |exists%..H02.err|
00004f10  6f 72 5f 6d 65 73 73 61  67 65 28 22 55 6e 72 65  |or_message("Unre|
00004f20  63 6f 67 6e 69 73 65 64  20 70 61 73 73 77 6f 72  |cognised passwor|
00004f30  64 22 2c 22 22 2c 30 2c  30 29 0d 48 3a 05 cc 0d  |d","",0,0).H:...|
00004f40  48 44 32 f2 65 72 72 6f  72 5f 6d 65 73 73 61 67  |HD2.error_messag|
00004f50  65 28 22 55 6e 72 65 63  6f 67 6e 69 73 65 64 20  |e("Unrecognised |
00004f60  75 73 65 72 6e 61 6d 65  22 2c 22 22 2c 30 2c 30  |username","",0,0|
00004f70  29 0d 48 4e 05 cd 0d 48  58 05 cd 0d 48 62 06 c9  |).HN...HX...Hb..|
00004f80  36 0d 48 8a 0c e7 76 61  6c 69 64 25 8c 0d 48 94  |6.H...valid%..H.|
00004f90  0d e7 76 65 72 69 66 79  25 8c 0d 48 9e 0d e7 a9  |..verify%..H....|
00004fa0  28 6e 24 29 3c 34 8c 0d  48 a8 45 f2 65 72 72 6f  |(n$)<4..H.E.erro|
00004fb0  72 5f 6d 65 73 73 61 67  65 28 22 50 61 73 73 77  |r_message("Passw|
00004fc0  6f 72 64 20 6d 75 73 74  20 68 61 76 65 20 61 74  |ord must have at|
00004fd0  20 6c 65 61 73 74 20 34  20 63 68 61 72 61 63 74  | least 4 charact|
00004fe0  65 72 73 22 2c 22 22 2c  30 2c 30 29 0d 48 b2 05  |ers","",0,0).H..|
00004ff0  cc 0d 48 bc 0b e7 6e 24  3d 70 24 8c 0d 48 c6 3b  |..H...n$=p$..H.;|
00005000  f2 65 72 72 6f 72 5f 6d  65 73 73 61 67 65 28 22  |.error_message("|
00005010  4e 65 77 20 70 61 73 73  77 6f 72 64 20 6d 75 73  |New password mus|
00005020  74 20 62 65 20 64 69 66  66 65 72 65 6e 74 22 2c  |t be different",|
00005030  22 22 2c 30 2c 30 29 0d  48 d0 05 cc 0d 48 da 17  |"",0,0).H....H..|
00005040  f2 6d 6f 64 69 66 79 5f  75 73 65 72 28 75 24 2c  |.modify_user(u$,|
00005050  6e 24 29 0d 48 e4 05 cd  0d 48 ee 05 cd 0d 48 f8  |n$).H....H....H.|
00005060  05 cc 0d 49 02 36 f2 65  72 72 6f 72 5f 6d 65 73  |...I.6.error_mes|
00005070  73 61 67 65 28 22 4e 65  77 20 70 61 73 73 77 6f  |sage("New passwo|
00005080  72 64 20 6e 6f 74 20 76  65 72 69 66 69 65 64 22  |rd not verified"|
00005090  2c 22 22 2c 30 2c 30 29  0d 49 0c 05 cd 0d 49 16  |,"",0,0).I....I.|
000050a0  05 cc 0d 49 20 36 f2 65  72 72 6f 72 5f 6d 65 73  |...I 6.error_mes|
000050b0  73 61 67 65 28 22 49 6e  76 61 6c 69 64 20 6f 72  |sage("Invalid or|
000050c0  69 67 69 6e 61 6c 20 70  61 73 73 77 6f 72 64 22  |iginal password"|
000050d0  2c 22 22 2c 30 2c 30 29  0d 49 2a 05 cd 0d 49 34  |,"",0,0).I*...I4|
000050e0  05 cb 0d 49 3e 0f c9 22  50 61 73 73 77 6f 72 64  |...I>.."Password|
000050f0  22 0d 49 66 18 c8 8e 50  61 72 65 6e 74 5f 43 6f  |".If...Parent_Co|
00005100  6d 70 6f 6e 65 6e 74 25  ca 0d 49 70 08 c9 31 30  |mponent%..Ip..10|
00005110  30 0d 49 98 0d e7 65 78  69 73 74 73 25 8c 0d 49  |0.I...exists%..I|
00005120  a2 37 f2 65 72 72 6f 72  5f 6d 65 73 73 61 67 65  |.7.error_message|
00005130  28 22 55 73 65 72 20 22  2b 75 24 2b 22 20 61 6c  |("User "+u$+" al|
00005140  72 65 61 64 79 20 65 78  69 73 74 73 22 2c 22 22  |ready exists",""|
00005150  2c 30 2c 30 29 0d 49 ac  05 cc 0d 49 b6 0d e7 76  |,0,0).I....I...v|
00005160  65 72 69 66 79 25 8c 0d  49 c0 0d e7 a9 28 6e 24  |erify%..I....(n$|
00005170  29 3c 34 8c 0d 49 ca 45  f2 65 72 72 6f 72 5f 6d  |)<4..I.E.error_m|
00005180  65 73 73 61 67 65 28 22  50 61 73 73 77 6f 72 64  |essage("Password|
00005190  20 6d 75 73 74 20 68 61  76 65 20 61 74 20 6c 65  | must have at le|
000051a0  61 73 74 20 34 20 63 68  61 72 61 63 74 65 72 73  |ast 4 characters|
000051b0  22 2c 22 22 2c 30 2c 30  29 0d 49 d4 05 cc 0d 49  |","",0,0).I....I|
000051c0  de 14 f2 61 64 64 5f 75  73 65 72 28 75 24 2c 6e  |...add_user(u$,n|
000051d0  24 29 0d 49 e8 05 cd 0d  49 f2 05 cc 0d 49 fc 3c  |$).I....I....I.<|
000051e0  f2 65 72 72 6f 72 5f 6d  65 73 73 61 67 65 28 22  |.error_message("|
000051f0  50 61 73 73 77 6f 72 64  20 6e 6f 74 20 76 65 72  |Password not ver|
00005200  69 66 69 65 64 2c 20 72  65 2d 65 6e 74 65 72 22  |ified, re-enter"|
00005210  2c 22 22 2c 30 2c 30 29  0d 4a 06 30 c8 99 54 5f  |,"",0,0).J.0..T_|
00005220  54 53 4f 25 2c 30 2c 50  61 73 73 77 6f 72 64 5f  |TSO%,0,Password_|
00005230  49 44 25 2c 30 2c 30 2c  50 61 73 73 77 6f 72 64  |ID%,0,0,Password|
00005240  5f 49 44 25 2c 31 30 30  0d 4a 10 05 cd 0d 4a 1a  |_ID%,100.J....J.|
00005250  05 cd 0d 4a 24 08 c9 31  30 31 0d 4a 4c 0e e7 ac  |...J$..101.JL...|
00005260  65 78 69 73 74 73 25 8c  0d 4a 56 37 f2 65 72 72  |exists%..JV7.err|
00005270  6f 72 5f 6d 65 73 73 61  67 65 28 22 55 73 65 72  |or_message("User|
00005280  20 22 2b 75 24 2b 22 20  64 6f 65 73 20 6e 6f 74  | "+u$+" does not|
00005290  20 65 78 69 73 74 22 2c  22 22 2c 30 2c 30 29 0d  | exist","",0,0).|
000052a0  4a 60 05 cc 0d 4a 6a 0d  e7 76 65 72 69 66 79 25  |J`...Jj..verify%|
000052b0  8c 0d 4a 74 0d e7 a9 28  6e 24 29 3c 34 8c 0d 4a  |..Jt...(n$)<4..J|
000052c0  7e 45 f2 65 72 72 6f 72  5f 6d 65 73 73 61 67 65  |~E.error_message|
000052d0  28 22 50 61 73 73 77 6f  72 64 20 6d 75 73 74 20  |("Password must |
000052e0  68 61 76 65 20 61 74 20  6c 65 61 73 74 20 34 20  |have at least 4 |
000052f0  63 68 61 72 61 63 74 65  72 73 22 2c 22 22 2c 30  |characters","",0|
00005300  2c 30 29 0d 4a 88 05 cc  0d 4a 92 17 f2 6d 6f 64  |,0).J....J...mod|
00005310  69 66 79 5f 75 73 65 72  28 75 24 2c 6e 24 29 0d  |ify_user(u$,n$).|
00005320  4a 9c 05 cd 0d 4a a6 05  cc 0d 4a b0 3c f2 65 72  |J....J....J.<.er|
00005330  72 6f 72 5f 6d 65 73 73  61 67 65 28 22 50 61 73  |ror_message("Pas|
00005340  73 77 6f 72 64 20 6e 6f  74 20 76 65 72 69 66 69  |sword not verifi|
00005350  65 64 2c 20 72 65 2d 65  6e 74 65 72 22 2c 22 22  |ed, re-enter",""|
00005360  2c 30 2c 30 29 0d 4a ba  30 c8 99 54 5f 54 53 4f  |,0,0).J.0..T_TSO|
00005370  25 2c 30 2c 50 61 73 73  77 6f 72 64 5f 49 44 25  |%,0,Password_ID%|
00005380  2c 30 2c 30 2c 50 61 73  73 77 6f 72 64 5f 49 44  |,0,0,Password_ID|
00005390  25 2c 31 30 31 0d 4a c4  05 cd 0d 4a ce 05 cd 0d  |%,101.J....J....|
000053a0  4a d8 08 c9 31 30 32 0d  4b 00 0d e7 76 65 72 69  |J...102.K...veri|
000053b0  66 79 25 8c 0d 4b 0a 23  f2 61 64 64 5f 75 73 65  |fy%..K.#.add_use|
000053c0  72 28 22 4f 57 4e 45 52  22 2c 4e 65 77 70 61 73  |r("OWNER",Newpas|
000053d0  73 77 6f 72 64 24 29 0d  4b 14 1a f2 6c 6f 67 69  |sword$).K...logi|
000053e0  6e 5f 75 73 65 72 28 22  4f 57 4e 45 52 22 2c b9  |n_user("OWNER",.|
000053f0  29 0d 4b 1e 05 cc 0d 4b  28 3c f2 65 72 72 6f 72  |).K....K(<.error|
00005400  5f 6d 65 73 73 61 67 65  28 22 50 61 73 73 77 6f  |_message("Passwo|
00005410  72 64 20 6e 6f 74 20 76  65 72 69 66 69 65 64 2c  |rd not verified,|
00005420  20 72 65 2d 65 6e 74 65  72 22 2c 22 22 2c 30 2c  | re-enter","",0,|
00005430  30 29 0d 4b 32 30 c8 99  54 5f 54 53 4f 25 2c 30  |0).K20..T_TSO%,0|
00005440  2c 50 61 73 73 77 6f 72  64 5f 49 44 25 2c 30 2c  |,Password_ID%,0,|
00005450  30 2c 50 61 73 73 77 6f  72 64 5f 49 44 25 2c 31  |0,Password_ID%,1|
00005460  30 32 0d 4b 3c 05 cd 0d  4b 46 05 cb 0d 4b 50 05  |02.K<...KF...KP.|
00005470  cb 0d 4b 5a 05 e1 0d 4b  a0 3f dd f2 67 65 74 5f  |..KZ...K.?..get_|
00005480  6f 70 74 69 6f 6e 73 28  f8 61 74 25 2c f8 77 74  |options(.at%,.wt|
00005490  25 2c f8 64 74 25 2c f8  74 73 25 2c f8 74 71 25  |%,.dt%,.ts%,.tq%|
000054a0  2c f8 64 61 25 2c f8 67  6c 25 2c f8 74 6d 25 2c  |,.da%,.gl%,.tm%,|
000054b0  f8 66 6f 25 29 0d 4c 2c  0d ea 66 25 2c 61 24 2c  |.fo%).L,..f%,a$,|
000054c0  61 25 0d 4c 40 12 66 25  3d 8e 28 4f 70 74 66 69  |a%.L@.f%=.(Optfi|
000054d0  6c 65 24 29 0d 4c 4a 08  75 25 3d 30 0d 4c 54 05  |le$).LJ.u%=0.LT.|
000054e0  f5 0d 4c 5e 0b 61 24 3d  be 23 66 25 0d 4c 68 0f  |..L^.a$=.#f%.Lh.|
000054f0  61 25 3d a7 61 24 2c 22  3a 22 29 0d 4c 72 10 c8  |a%=.a$,":").Lr..|
00005500  8e c0 61 24 2c 61 25 2d  32 29 ca 0d 4c 7c 11 c9  |..a$,a%-2)..L|..|
00005510  22 41 6c 6c 6f 77 20 54  69 6d 65 22 0d 4c 86 14  |"Allow Time".L..|
00005520  61 74 25 3d bb 28 c1 61  24 2c 61 25 2b 32 29 29  |at%=.(.a$,a%+2))|
00005530  0d 4c 90 10 c9 22 57 61  72 6e 20 54 69 6d 65 22  |.L..."Warn Time"|
00005540  0d 4c 9a 14 77 74 25 3d  bb 28 c1 61 24 2c 61 25  |.L..wt%=.(.a$,a%|
00005550  2b 32 29 29 0d 4c a4 0f  c9 22 44 69 65 20 54 69  |+2)).L..."Die Ti|
00005560  6d 65 22 0d 4c ae 14 64  74 25 3d bb 28 c1 61 24  |me".L..dt%=.(.a$|
00005570  2c 61 25 2b 32 29 29 0d  4c b8 14 c9 22 54 61 73  |,a%+2)).L..."Tas|
00005580  6b 20 53 74 61 72 74 69  6e 67 22 0d 4c c2 17 74  |k Starting".L..t|
00005590  73 25 3d 28 c1 61 24 2c  61 25 2b 32 29 3d 22 59  |s%=(.a$,a%+2)="Y|
000055a0  22 29 0d 4c cc 14 c9 22  54 61 73 6b 20 51 75 69  |").L..."Task Qui|
000055b0  74 74 69 6e 67 22 0d 4c  d6 17 74 71 25 3d 28 c1  |tting".L..tq%=(.|
000055c0  61 24 2c 61 25 2b 32 29  3d 22 59 22 29 0d 4c e0  |a$,a%+2)="Y").L.|
000055d0  17 c9 22 44 69 72 65 63  74 6f 72 79 20 41 63 63  |.."Directory Acc|
000055e0  65 73 73 22 0d 4c ea 17  64 61 25 3d 28 c1 61 24  |ess".L..da%=(.a$|
000055f0  2c 61 25 2b 32 29 3d 22  59 22 29 0d 4c f4 13 c9  |,a%+2)="Y").L...|
00005600  22 47 75 65 73 74 20 4c  6f 67 69 6e 73 22 0d 4c  |"Guest Logins".L|
00005610  fe 17 67 6c 25 3d 28 c1  61 24 2c 61 25 2b 32 29  |..gl%=(.a$,a%+2)|
00005620  3d 22 59 22 29 0d 4d 08  17 c9 22 54 65 73 74 20  |="Y").M..."Test |
00005630  4d 6f 64 65 20 4c 6f 67  69 6e 73 22 0d 4d 12 17  |Mode Logins".M..|
00005640  74 6d 25 3d 28 c1 61 24  2c 61 25 2b 32 29 3d 22  |tm%=(.a$,a%+2)="|
00005650  59 22 29 0d 4d 1c 18 c9  22 46 75 6c 6c 20 4f 77  |Y").M..."Full Ow|
00005660  6e 65 72 20 41 63 63 65  73 73 22 0d 4d 26 17 66  |ner Access".M&.f|
00005670  6f 25 3d 28 c1 61 24 2c  61 25 2b 32 29 3d 22 59  |o%=(.a$,a%+2)="Y|
00005680  22 29 0d 4d 30 05 cb 0d  4d 3a 09 fd c5 23 66 25  |").M0...M:...#f%|
00005690  0d 4d 44 08 d9 23 66 25  0d 4d 4e 05 e1 0d 4d 9e  |.MD..#f%.MN...M.|
000056a0  14 dd f2 67 65 74 5f 75  73 65 72 61 63 63 65 73  |...get_useracces|
000056b0  73 0d 4d c6 0d ea 66 25  2c 61 24 2c 61 25 0d 4d  |s.M...f%,a$,a%.M|
000056c0  da 15 66 25 3d 8e 28 41  63 63 65 73 73 66 69 6c  |..f%=.(Accessfil|
000056d0  65 24 29 0d 4d e4 0d 52  75 73 65 72 73 25 3d 30  |e$).M..Rusers%=0|
000056e0  0d 4d ee 05 f5 0d 4d f8  0b 61 24 3d be 23 66 25  |.M....M..a$=.#f%|
000056f0  0d 4e 02 0f 61 25 3d a7  61 24 2c 22 3a 22 29 0d  |.N..a%=.a$,":").|
00005700  4e 0c 0e 52 75 73 65 72  73 25 2b 3d 31 0d 4e 16  |N..Rusers%+=1.N.|
00005710  1c 52 75 73 72 24 28 52  75 73 65 72 73 25 29 3d  |.Rusr$(Rusers%)=|
00005720  c0 61 24 2c 61 25 2d 32  29 0d 4e 20 1c 52 64 69  |.a$,a%-2).N .Rdi|
00005730  72 24 28 52 75 73 65 72  73 25 29 3d c1 61 24 2c  |r$(Rusers%)=.a$,|
00005740  61 25 2b 32 29 0d 4e 2a  09 fd c5 23 66 25 0d 4e  |a%+2).N*...#f%.N|
00005750  34 08 d9 23 66 25 0d 4e  3e 05 e1 0d 4e 84 13 dd  |4..#f%.N>...N...|
00005760  f2 67 65 74 5f 75 73 65  72 74 69 6d 65 73 0d 4e  |.get_usertimes.N|
00005770  ac 0d ea 66 25 2c 61 24  2c 61 25 0d 4e c0 14 66  |...f%,a$,a%.N..f|
00005780  25 3d 8e 28 54 69 6d 65  73 66 69 6c 65 24 29 0d  |%=.(Timesfile$).|
00005790  4e ca 0d 52 75 73 65 72  73 25 3d 30 0d 4e d4 05  |N..Rusers%=0.N..|
000057a0  f5 0d 4e de 0b 61 24 3d  be 23 66 25 0d 4e e8 0f  |..N..a$=.#f%.N..|
000057b0  61 25 3d a7 61 24 2c 22  3a 22 29 0d 4e f2 0e 52  |a%=.a$,":").N..R|
000057c0  75 73 65 72 73 25 2b 3d  31 0d 4e fc 1c 52 74 69  |users%+=1.N..Rti|
000057d0  6d 24 28 52 75 73 65 72  73 25 29 3d c1 61 24 2c  |m$(Rusers%)=.a$,|
000057e0  61 25 2b 32 29 0d 4f 06  09 fd c5 23 66 25 0d 4f  |a%+2).O....#f%.O|
000057f0  10 08 d9 23 66 25 0d 4f  1a 05 e1 0d 4f 60 37 dd  |...#f%.O....O`7.|
00005800  f2 73 61 76 65 5f 6f 70  74 69 6f 6e 73 28 61 74  |.save_options(at|
00005810  25 2c 77 74 25 2c 64 74  25 2c 74 73 25 2c 74 71  |%,wt%,dt%,ts%,tq|
00005820  25 2c 64 61 25 2c 67 6c  25 2c 74 6d 25 2c 66 6f  |%,da%,gl%,tm%,fo|
00005830  25 29 0d 4f ec 07 ea 66  25 0d 50 00 14 66 25 3d  |%).O...f%.P..f%=|
00005840  ae 28 54 5f 4f 70 74 66  69 6c 65 24 29 0d 50 0a  |.(T_Optfile$).P.|
00005850  1f d5 23 66 25 2c 22 41  6c 6c 6f 77 20 54 69 6d  |..#f%,"Allow Tim|
00005860  65 20 3a 20 22 2b c3 28  61 74 25 29 0d 50 14 1e  |e : "+.(at%).P..|
00005870  d5 23 66 25 2c 22 57 61  72 6e 20 54 69 6d 65 20  |.#f%,"Warn Time |
00005880  3a 20 22 2b c3 28 77 74  25 29 0d 50 1e 1d d5 23  |: "+.(wt%).P...#|
00005890  66 25 2c 22 44 69 65 20  54 69 6d 65 20 3a 20 22  |f%,"Die Time : "|
000058a0  2b c3 28 64 74 25 29 0d  50 28 30 d5 23 66 25 2c  |+.(dt%).P(0.#f%,|
000058b0  22 54 61 73 6b 20 53 74  61 72 74 69 6e 67 20 3a  |"Task Starting :|
000058c0  20 22 2b bd 28 2d 38 39  2a 74 73 25 2d 37 38 2a  | "+.(-89*ts%-78*|
000058d0  28 ac 74 73 25 29 29 0d  50 32 30 d5 23 66 25 2c  |(.ts%)).P20.#f%,|
000058e0  22 54 61 73 6b 20 51 75  69 74 74 69 6e 67 20 3a  |"Task Quitting :|
000058f0  20 22 2b bd 28 2d 38 39  2a 74 71 25 2d 37 38 2a  | "+.(-89*tq%-78*|
00005900  28 ac 74 71 25 29 29 0d  50 3c 33 d5 23 66 25 2c  |(.tq%)).P<3.#f%,|
00005910  22 44 69 72 65 63 74 6f  72 79 20 41 63 63 65 73  |"Directory Acces|
00005920  73 20 3a 20 22 2b bd 28  2d 38 39 2a 64 61 25 2d  |s : "+.(-89*da%-|
00005930  37 38 2a 28 ac 64 61 25  29 29 0d 50 46 2f d5 23  |78*(.da%)).PF/.#|
00005940  66 25 2c 22 47 75 65 73  74 20 4c 6f 67 69 6e 73  |f%,"Guest Logins|
00005950  20 3a 20 22 2b bd 28 2d  38 39 2a 67 6c 25 2d 37  | : "+.(-89*gl%-7|
00005960  38 2a 28 ac 67 6c 25 29  29 0d 50 50 33 d5 23 66  |8*(.gl%)).PP3.#f|
00005970  25 2c 22 54 65 73 74 20  4d 6f 64 65 20 4c 6f 67  |%,"Test Mode Log|
00005980  69 6e 73 20 3a 20 22 2b  bd 28 2d 38 39 2a 74 6d  |ins : "+.(-89*tm|
00005990  25 2d 37 38 2a 28 ac 74  6d 25 29 29 0d 50 5a 34  |%-78*(.tm%)).PZ4|
000059a0  d5 23 66 25 2c 22 46 75  6c 6c 20 4f 77 6e 65 72  |.#f%,"Full Owner|
000059b0  20 41 63 63 65 73 73 20  3a 20 22 2b bd 28 2d 38  | Access : "+.(-8|
000059c0  39 2a 66 6f 25 2d 37 38  2a 28 ac 66 6f 25 29 29  |9*fo%-78*(.fo%))|
000059d0  0d 50 64 08 d9 23 66 25  0d 50 6e 1a c8 99 22 4f  |.Pd..#f%.Pn..."O|
000059e0  53 5f 46 69 6c 65 22 2c  36 2c 4f 70 74 66 69 6c  |S_File",6,Optfil|
000059f0  65 24 0d 50 78 2b c8 99  22 4f 53 5f 46 53 43 6f  |e$.Px+.."OS_FSCo|
00005a00  6e 74 72 6f 6c 22 2c 32  35 2c 54 5f 4f 70 74 66  |ntrol",25,T_Optf|
00005a10  69 6c 65 24 2c 4f 70 74  66 69 6c 65 24 0d 50 82  |ile$,Optfile$.P.|
00005a20  05 e1 0d 50 dc 15 dd f2  73 61 76 65 5f 75 73 65  |...P....save_use|
00005a30  72 61 63 63 65 73 73 0d  51 04 0a ea 66 25 2c 61  |raccess.Q...f%,a|
00005a40  25 0d 51 18 17 66 25 3d  ae 28 54 5f 41 63 63 65  |%.Q..f%=.(T_Acce|
00005a50  73 73 66 69 6c 65 24 29  0d 51 22 11 e3 61 25 3d  |ssfile$).Q"..a%=|
00005a60  31 b8 52 75 73 65 72 73  25 0d 51 2c 22 d5 23 66  |1.Rusers%.Q,".#f|
00005a70  25 2c 52 75 73 72 24 28  61 25 29 2b 22 20 3a 20  |%,Rusr$(a%)+" : |
00005a80  22 2b 52 64 69 72 24 28  61 25 29 0d 51 36 07 ed  |"+Rdir$(a%).Q6..|
00005a90  61 25 0d 51 40 08 d9 23  66 25 0d 51 4a 1d c8 99  |a%.Q@..#f%.QJ...|
00005aa0  22 4f 53 5f 46 69 6c 65  22 2c 36 2c 41 63 63 65  |"OS_File",6,Acce|
00005ab0  73 73 66 69 6c 65 24 0d  51 54 31 c8 99 22 4f 53  |ssfile$.QT1.."OS|
00005ac0  5f 46 53 43 6f 6e 74 72  6f 6c 22 2c 32 35 2c 54  |_FSControl",25,T|
00005ad0  5f 41 63 63 65 73 73 66  69 6c 65 24 2c 41 63 63  |_Accessfile$,Acc|
00005ae0  65 73 73 66 69 6c 65 24  0d 51 5e 05 e1 0d 51 ae  |essfile$.Q^...Q.|
00005af0  14 dd f2 73 61 76 65 5f  75 73 65 72 74 69 6d 65  |...save_usertime|
00005b00  73 0d 51 d6 0a ea 66 25  2c 61 25 0d 51 ea 16 66  |s.Q...f%,a%.Q..f|
00005b10  25 3d ae 28 54 5f 54 69  6d 65 73 66 69 6c 65 24  |%=.(T_Timesfile$|
00005b20  29 0d 51 f4 11 e3 61 25  3d 31 b8 52 75 73 65 72  |).Q...a%=1.Ruser|
00005b30  73 25 0d 51 fe 22 d5 23  66 25 2c 52 75 73 72 24  |s%.Q.".#f%,Rusr$|
00005b40  28 61 25 29 2b 22 20 3a  20 22 2b 52 74 69 6d 24  |(a%)+" : "+Rtim$|
00005b50  28 61 25 29 0d 52 08 07  ed 61 25 0d 52 12 08 d9  |(a%).R...a%.R...|
00005b60  23 66 25 0d 52 1c 1c c8  99 22 4f 53 5f 46 69 6c  |#f%.R...."OS_Fil|
00005b70  65 22 2c 36 2c 54 69 6d  65 73 66 69 6c 65 24 0d  |e",6,Timesfile$.|
00005b80  52 26 2f c8 99 22 4f 53  5f 46 53 43 6f 6e 74 72  |R&/.."OS_FSContr|
00005b90  6f 6c 22 2c 32 35 2c 54  5f 54 69 6d 65 73 66 69  |ol",25,T_Timesfi|
00005ba0  6c 65 24 2c 54 69 6d 65  73 66 69 6c 65 24 0d 52  |le$,Timesfile$.R|
00005bb0  30 05 e1 0d 52 76 12 dd  f2 6d 61 6b 65 5f 64 69  |0...Rv...make_di|
00005bc0  72 6c 69 73 74 0d 52 9e  14 ea 70 6e 74 72 25 2c  |rlist.R...pntr%,|
00005bd0  73 70 6e 74 72 25 2c 61  25 0d 52 b2 0c 54 64 69  |spntr%,a%.R..Tdi|
00005be0  72 73 25 3d 30 0d 52 da  08 61 25 3d 30 0d 52 e4  |rs%=0.R..a%=0.R.|
00005bf0  05 f5 0d 52 ee 3b c8 99  22 4f 53 5f 47 42 50 42  |...R.;.."OS_GBPB|
00005c00  22 2c 31 32 2c 22 3c 42  6f 6f 74 24 64 69 72 3e  |",12,"<Boot$dir>|
00005c10  2e 5e 22 2c 42 75 66 31  25 2c 31 2c 61 25 2c 32  |.^",Buf1%,1,a%,2|
00005c20  35 36 2c 22 2a 22 b8 2c  2c 2c 2c 61 25 0d 52 f8  |56,"*".,,,,a%.R.|
00005c30  1e e7 28 61 25 3c 3e 2d  31 29 80 28 42 75 66 31  |..(a%<>-1).(Buf1|
00005c40  25 21 32 30 3e 26 66 66  66 29 8c 0d 53 20 0d 54  |%!20>&fff)..S .T|
00005c50  64 69 72 73 25 2b 3d 31  0d 53 2a 27 54 64 69 72  |dirs%+=1.S*'Tdir|
00005c60  24 28 54 64 69 72 73 25  2c 31 29 3d a4 69 6e 64  |$(Tdirs%,1)=.ind|
00005c70  69 72 65 63 74 28 42 75  66 31 25 2b 32 34 29 0d  |irect(Buf1%+24).|
00005c80  53 34 52 e7 52 75 73 72  24 28 52 75 73 72 25 29  |S4R.Rusr$(Rusr%)|
00005c90  3c 3e 22 4f 57 4e 45 52  22 80 28 54 64 69 72 24  |<>"OWNER".(Tdir$|
00005ca0  28 54 64 69 72 73 25 2c  31 29 3d 22 21 42 6f 6f  |(Tdirs%,1)="!Boo|
00005cb0  74 22 84 c0 54 64 69 72  24 28 54 64 69 72 73 25  |t"..Tdir$(Tdirs%|
00005cc0  2c 31 29 2c 36 29 3d 22  21 54 72 61 70 5f 22 29  |,1),6)="!Trap_")|
00005cd0  8c 0d 53 5c 28 54 66 6c  67 25 28 54 64 69 72 73  |..S\(Tflg%(Tdirs|
00005ce0  25 2c 31 29 3d 26 37 84  26 31 30 30 84 28 32 34  |%,1)=&7.&100.(24|
00005cf0  3c 3c 31 36 29 84 26 34  30 0d 53 66 05 cc 0d 53  |<<16).&40.Sf...S|
00005d00  8e 24 54 66 6c 67 25 28  54 64 69 72 73 25 2c 31  |.$Tflg%(Tdirs%,1|
00005d10  29 3d 26 37 84 26 31 30  30 84 28 32 34 3c 3c 31  |)=&7.&100.(24<<1|
00005d20  36 29 0d 53 98 05 cd 0d  53 a2 05 cd 0d 53 ac 0a  |6).S....S....S..|
00005d30  fd 61 25 3d 2d 31 0d 53  b6 0d 54 6e 70 74 25 28  |.a%=-1.S..Tnpt%(|
00005d40  29 3d 30 0d 53 c0 0d 54  79 70 74 25 28 29 3d 30  |)=0.S..Typt%()=0|
00005d50  0d 53 ca 05 e1 0d 54 1a  12 dd f2 75 73 65 72 5f  |.S....T....user_|
00005d60  67 61 64 67 65 74 73 0d  54 42 1b ea 61 25 2c 64  |gadgets.TB..a%,d|
00005d70  25 2c 6c 25 2c 72 25 2c  65 31 25 2c 65 32 25 2c  |%,l%,r%,e1%,e2%,|
00005d80  74 24 0d 54 56 0d 54 79  64 69 72 73 25 3d 30 0d  |t$.TV.Tydirs%=0.|
00005d90  54 60 0d 54 6e 64 69 72  73 25 3d 30 0d 54 6a 10  |T`.Tndirs%=0.Tj.|
00005da0  e3 61 25 3d 31 b8 54 64  69 72 73 25 0d 54 74 2a  |.a%=1.Tdirs%.Tt*|
00005db0  e7 a7 52 64 69 72 24 28  52 75 73 72 25 29 2c 22  |..Rdir$(Rusr%),"|
00005dc0  7c 22 2b 54 64 69 72 24  28 61 25 2c 31 29 2b 22  ||"+Tdir$(a%,1)+"|
00005dd0  7c 22 29 3e 30 8c 0d 54  9c 0e 54 79 64 69 72 73  ||")>0..T..Tydirs|
00005de0  25 2b 3d 31 0d 54 a6 15  54 79 70 74 25 28 54 79  |%+=1.T..Typt%(Ty|
00005df0  64 69 72 73 25 29 3d 61  25 0d 54 b0 05 cc 0d 54  |dirs%)=a%.T....T|
00005e00  d8 0e 54 6e 64 69 72 73  25 2b 3d 31 0d 54 e2 15  |..Tndirs%+=1.T..|
00005e10  54 6e 70 74 25 28 54 6e  64 69 72 73 25 29 3d 61  |Tnpt%(Tndirs%)=a|
00005e20  25 0d 54 ec 05 cd 0d 55  14 1b e7 28 54 66 6c 67  |%.T....U...(Tflg|
00005e30  25 28 61 25 2c 31 29 80  26 34 30 29 3d 26 34 30  |%(a%,1).&40)=&40|
00005e40  8c 0d 55 3c 1a e7 52 75  73 72 24 28 52 75 73 72  |..U<..Rusr$(Rusr|
00005e50  25 29 3d 22 4f 57 4e 45  52 22 8c 0d 55 46 2a 54  |%)="OWNER"..UF*T|
00005e60  66 6c 67 25 28 61 25 2c  31 29 3d 28 54 66 6c 67  |flg%(a%,1)=(Tflg|
00005e70  25 28 61 25 2c 31 29 80  26 46 46 46 46 46 46 46  |%(a%,1).&FFFFFFF|
00005e80  43 29 84 26 37 0d 55 50  05 cc 0d 55 5a 2a 54 66  |C).&7.UP...UZ*Tf|
00005e90  6c 67 25 28 61 25 2c 31  29 3d 28 54 66 6c 67 25  |lg%(a%,1)=(Tflg%|
00005ea0  28 61 25 2c 31 29 80 26  46 46 46 46 46 46 46 43  |(a%,1).&FFFFFFFC|
00005eb0  29 84 26 35 0d 55 64 05  cd 0d 55 6e 05 cd 0d 55  |).&5.Ud...Un...U|
00005ec0  78 07 ed 61 25 0d 55 a0  13 74 24 3d 52 74 69 6d  |x..a%.U..t$=Rtim|
00005ed0  24 28 52 75 73 72 25 29  0d 55 aa 08 6c 25 3d 31  |$(Rusr%).U..l%=1|
00005ee0  0d 55 b4 0b e3 64 25 3d  31 b8 37 0d 55 be 14 72  |.U...d%=1.7.U..r|
00005ef0  25 3d a7 74 24 2c 22 7c  22 2c 6c 25 2b 31 29 0d  |%=.t$,"|",l%+1).|
00005f00  55 c8 15 65 31 25 3d a7  74 24 2c 22 3d 22 2c 6c  |U..e1%=.t$,"=",l|
00005f10  25 2b 31 29 0d 55 d2 16  65 32 25 3d a7 74 24 2c  |%+1).U..e2%=.t$,|
00005f20  22 3d 22 2c 65 31 25 2b  31 29 0d 55 fa 15 e7 c1  |"=",e1%+1).U....|
00005f30  74 24 2c 6c 25 2b 33 2c  31 29 3d 22 59 22 8c 0d  |t$,l%+3,1)="Y"..|
00005f40  56 04 2a c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 55  |V.*..T_TOMO%,0,U|
00005f50  73 65 72 61 63 63 65 73  73 5f 49 44 25 2c 31 39  |seraccess_ID%,19|
00005f60  36 2c 64 25 2b 26 33 2c  31 0d 56 0e 05 cc 0d 56  |6,d%+&3,1.V....V|
00005f70  18 2a c8 99 54 5f 54 4f  4d 4f 25 2c 30 2c 55 73  |.*..T_TOMO%,0,Us|
00005f80  65 72 61 63 63 65 73 73  5f 49 44 25 2c 31 39 36  |eraccess_ID%,196|
00005f90  2c 64 25 2b 26 33 2c 30  0d 56 22 05 cd 0d 56 4a  |,d%+&3,0.V"...VJ|
00005fa0  41 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 55 73 65  |A..T_TOMO%,0,Use|
00005fb0  72 61 63 63 65 73 73 5f  49 44 25 2c 38 33 32 2c  |raccess_ID%,832,|
00005fc0  64 25 2b 26 32 33 2c bb  28 c1 74 24 2c 65 31 25  |d%+&23,.(.t$,e1%|
00005fd0  2b 31 2c 65 32 25 2d 65  31 25 2d 31 29 29 0d 56  |+1,e2%-e1%-1)).V|
00005fe0  72 40 c8 99 54 5f 54 4f  4d 4f 25 2c 30 2c 55 73  |r@..T_TOMO%,0,Us|
00005ff0  65 72 61 63 63 65 73 73  5f 49 44 25 2c 38 33 32  |eraccess_ID%,832|
00006000  2c 64 25 2b 26 33 30 2c  bb 28 c1 74 24 2c 65 32  |,d%+&30,.(.t$,e2|
00006010  25 2b 31 2c 72 25 2d 65  32 25 2d 31 29 29 0d 56  |%+1,r%-e2%-1)).V|
00006020  7c 09 6c 25 3d 72 25 0d  56 86 14 72 25 3d a7 74  ||.l%=r%.V..r%=.t|
00006030  24 2c 22 7c 22 2c 6c 25  2b 31 29 0d 56 90 07 ed  |$,"|",l%+1).V...|
00006040  64 25 0d 56 9a 05 e1 0d  56 e0 17 dd f2 6d 6f 64  |d%.V....V....mod|
00006050  69 66 79 5f 75 73 65 72  61 63 63 65 73 73 0d 57  |ify_useraccess.W|
00006060  08 0f ea 61 24 2c 61 25  2c 62 2c 74 24 0d 57 30  |...a$,a%,b,t$.W0|
00006070  0a 61 24 3d 22 7c 22 0d  57 3a 11 e3 61 25 3d 31  |.a$="|".W:..a%=1|
00006080  b8 54 79 64 69 72 73 25  0d 57 44 1e 61 24 2b 3d  |.Tydirs%.WD.a$+=|
00006090  54 64 69 72 24 28 54 79  70 74 25 28 61 25 29 2c  |Tdir$(Typt%(a%),|
000060a0  31 29 2b 22 7c 22 0d 57  4e 07 ed 61 25 0d 57 58  |1)+"|".WN..a%.WX|
000060b0  13 52 64 69 72 24 28 52  75 73 72 25 29 3d 61 24  |.Rdir$(Rusr%)=a$|
000060c0  0d 57 80 0a 61 24 3d 22  7c 22 0d 57 8a 0b e3 64  |.W..a$="|".W...d|
000060d0  25 3d 31 b8 37 0d 57 94  15 61 24 2b 3d 57 65 65  |%=1.7.W..a$+=Wee|
000060e0  6b 64 61 79 73 24 28 64  25 29 0d 57 9e 2b c8 99  |kdays$(d%).W.+..|
000060f0  54 5f 54 4f 4d 4f 25 2c  30 2c 55 73 65 72 61 63  |T_TOMO%,0,Userac|
00006100  63 65 73 73 5f 49 44 25  2c 31 39 37 2c 26 33 2b  |cess_ID%,197,&3+|
00006110  64 25 b8 61 25 0d 57 a8  0a e7 61 25 3d 31 8c 0d  |d%.a%.W...a%=1..|
00006120  57 b2 0b 61 24 2b 3d 22  59 22 0d 57 bc 05 cc 0d  |W..a$+="Y".W....|
00006130  57 c6 0b 61 24 2b 3d 22  4e 22 0d 57 d0 05 cd 0d  |W..a$+="N".W....|
00006140  57 da 2c c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 55  |W.,..T_TOMO%,0,U|
00006150  73 65 72 61 63 63 65 73  73 5f 49 44 25 2c 38 33  |seraccess_ID%,83|
00006160  33 2c 64 25 2b 26 32 33  b8 61 25 0d 57 e4 11 61  |3,d%+&23.a%.W..a|
00006170  24 2b 3d 22 3d 22 2b c3  28 61 25 29 0d 58 0c 2c  |$+="="+.(a%).X.,|
00006180  c8 99 54 5f 54 4f 4d 4f  25 2c 30 2c 55 73 65 72  |..T_TOMO%,0,User|
00006190  61 63 63 65 73 73 5f 49  44 25 2c 38 33 33 2c 64  |access_ID%,833,d|
000061a0  25 2b 26 33 30 b8 61 25  0d 58 16 15 61 24 2b 3d  |%+&30.a%.X..a$+=|
000061b0  22 3d 22 2b c3 28 61 25  29 2b 22 7c 22 0d 58 20  |"="+.(a%)+"|".X |
000061c0  07 ed 64 25 0d 58 2a 13  52 74 69 6d 24 28 52 75  |..d%.X*.Rtim$(Ru|
000061d0  73 72 25 29 3d 61 24 0d  58 34 05 e1 0d 58 7a 31  |sr%)=a$.X4...Xz1|
000061e0  dd f2 70 61 73 73 6d 65  6e 75 5f 67 72 65 79 73  |..passmenu_greys|
000061f0  28 69 31 25 2c 69 32 25  2c 69 33 25 2c 69 34 25  |(i1%,i2%,i3%,i4%|
00006200  2c 69 35 25 2c 69 36 25  2c 69 37 25 29 0d 58 f2  |,i5%,i6%,i7%).X.|
00006210  24 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 50 61 73  |$..T_TOMO%,0,Pas|
00006220  73 6d 65 6e 75 5f 49 44  25 2c 32 2c 37 2c 69 31  |smenu_ID%,2,7,i1|
00006230  25 0d 58 fc 24 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |%.X.$..T_TOMO%,0|
00006240  2c 50 61 73 73 6d 65 6e  75 5f 49 44 25 2c 32 2c  |,Passmenu_ID%,2,|
00006250  36 2c 69 32 25 0d 59 06  24 c8 99 54 5f 54 4f 4d  |6,i2%.Y.$..T_TOM|
00006260  4f 25 2c 30 2c 50 61 73  73 6d 65 6e 75 5f 49 44  |O%,0,Passmenu_ID|
00006270  25 2c 32 2c 33 2c 69 33  25 0d 59 10 24 c8 99 54  |%,2,3,i3%.Y.$..T|
00006280  5f 54 4f 4d 4f 25 2c 30  2c 50 61 73 73 6d 65 6e  |_TOMO%,0,Passmen|
00006290  75 5f 49 44 25 2c 32 2c  38 2c 69 34 25 0d 59 1a  |u_ID%,2,8,i4%.Y.|
000062a0  25 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 50 61 73  |%..T_TOMO%,0,Pas|
000062b0  73 6d 65 6e 75 5f 49 44  25 2c 32 2c 26 63 2c 69  |smenu_ID%,2,&c,i|
000062c0  37 25 0d 59 24 05 e1 0d  59 6a 3b dd f2 63 6c 65  |7%.Y$...Yj;..cle|
000062d0  61 72 5f 66 69 65 6c 64  73 28 6c 62 24 2c 74 31  |ar_fields(lb$,t1|
000062e0  24 2c 74 32 24 2c 74 33  24 2c 74 34 24 2c 66 64  |$,t2$,t3$,t4$,fd|
000062f0  31 25 2c 66 64 32 25 2c  66 64 33 25 2c 66 64 34  |1%,fd2%,fd3%,fd4|
00006300  25 29 0d 59 f6 27 c8 99  54 5f 54 4f 4d 4f 25 2c  |%).Y.'..T_TOMO%,|
00006310  30 2c 50 61 73 73 77 6f  72 64 5f 49 44 25 2c 34  |0,Password_ID%,4|
00006320  34 38 2c 26 61 2c 6c 62  24 0d 5a 00 26 c8 99 54  |48,&a,lb$.Z.&..T|
00006330  5f 54 4f 4d 4f 25 2c 30  2c 50 61 73 73 77 6f 72  |_TOMO%,0,Passwor|
00006340  64 5f 49 44 25 2c 35 31  32 2c 34 2c 74 31 24 0d  |d_ID%,512,4,t1$.|
00006350  5a 0a 26 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 50  |Z.&..T_TOMO%,0,P|
00006360  61 73 73 77 6f 72 64 5f  49 44 25 2c 35 31 32 2c  |assword_ID%,512,|
00006370  35 2c 74 32 24 0d 5a 14  26 c8 99 54 5f 54 4f 4d  |5,t2$.Z.&..T_TOM|
00006380  4f 25 2c 30 2c 50 61 73  73 77 6f 72 64 5f 49 44  |O%,0,Password_ID|
00006390  25 2c 35 31 32 2c 36 2c  74 33 24 0d 5a 1e 26 c8  |%,512,6,t3$.Z.&.|
000063a0  99 54 5f 54 4f 4d 4f 25  2c 30 2c 50 61 73 73 77  |.T_TOMO%,0,Passw|
000063b0  6f 72 64 5f 49 44 25 2c  35 31 32 2c 37 2c 74 33  |ord_ID%,512,7,t3|
000063c0  24 0d 5a 28 26 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |$.Z(&..T_TOMO%,0|
000063d0  2c 50 61 73 73 77 6f 72  64 5f 49 44 25 2c 36 35  |,Password_ID%,65|
000063e0  2c 30 2c 66 64 31 25 0d  5a 32 26 c8 99 54 5f 54  |,0,fd1%.Z2&..T_T|
000063f0  4f 4d 4f 25 2c 30 2c 50  61 73 73 77 6f 72 64 5f  |OMO%,0,Password_|
00006400  49 44 25 2c 36 35 2c 34  2c 66 64 31 25 0d 5a 3c  |ID%,65,4,fd1%.Z<|
00006410  26 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 50 61 73  |&..T_TOMO%,0,Pas|
00006420  73 77 6f 72 64 5f 49 44  25 2c 36 35 2c 31 2c 66  |sword_ID%,65,1,f|
00006430  64 32 25 0d 5a 46 26 c8  99 54 5f 54 4f 4d 4f 25  |d2%.ZF&..T_TOMO%|
00006440  2c 30 2c 50 61 73 73 77  6f 72 64 5f 49 44 25 2c  |,0,Password_ID%,|
00006450  36 35 2c 35 2c 66 64 32  25 0d 5a 50 26 c8 99 54  |65,5,fd2%.ZP&..T|
00006460  5f 54 4f 4d 4f 25 2c 30  2c 50 61 73 73 77 6f 72  |_TOMO%,0,Passwor|
00006470  64 5f 49 44 25 2c 36 35  2c 32 2c 66 64 33 25 0d  |d_ID%,65,2,fd3%.|
00006480  5a 5a 26 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 50  |ZZ&..T_TOMO%,0,P|
00006490  61 73 73 77 6f 72 64 5f  49 44 25 2c 36 35 2c 36  |assword_ID%,65,6|
000064a0  2c 66 64 33 25 0d 5a 64  26 c8 99 54 5f 54 4f 4d  |,fd3%.Zd&..T_TOM|
000064b0  4f 25 2c 30 2c 50 61 73  73 77 6f 72 64 5f 49 44  |O%,0,Password_ID|
000064c0  25 2c 36 35 2c 33 2c 66  64 34 25 0d 5a 6e 26 c8  |%,65,3,fd4%.Zn&.|
000064d0  99 54 5f 54 4f 4d 4f 25  2c 30 2c 50 61 73 73 77  |.T_TOMO%,0,Passw|
000064e0  6f 72 64 5f 49 44 25 2c  36 35 2c 37 2c 66 64 34  |ord_ID%,65,7,fd4|
000064f0  25 0d 5a 78 05 e1 0d 5a  be 14 dd f2 69 6e 73 74  |%.Zx...Z....inst|
00006500  61 6c 6c 5f 6c 6f 67 69  6e 73 0d 5a fa 1c 41 70  |all_logins.Z..Ap|
00006510  70 6c 69 63 61 74 69 6f  6e 24 3d 22 21 7a 7a 7a  |plication$="!zzz|
00006520  7a 70 61 73 73 22 0d 5b  04 30 53 6f 75 72 63 65  |zpass".[.0Source|
00006530  24 3d 22 3c 62 6f 6f 74  70 6c 75 73 24 64 69 72  |$="<bootplus$dir|
00006540  3e 2e 72 65 73 6f 75 72  63 65 73 2e 21 7a 7a 7a  |>.resources.!zzz|
00006550  7a 70 61 73 73 22 0d 5b  0e 2d f2 6d 61 6b 65 5f  |zpass".[.-.make_|
00006560  61 6c 69 61 73 28 22 3c  42 6f 6f 74 24 54 6f 42  |alias("<Boot$ToB|
00006570  65 54 61 73 6b 73 3e 2e  21 7a 7a 7a 7a 70 61 73  |eTasks>.!zzzzpas|
00006580  73 22 29 0d 5b 18 1c 41  70 70 6c 69 63 61 74 69  |s").[..Applicati|
00006590  6f 6e 24 3d 22 21 42 6f  6f 74 70 6c 75 73 22 0d  |on$="!Bootplus".|
000065a0  5b 22 1c 53 6f 75 72 63  65 24 3d 22 3c 42 6f 6f  |[".Source$="<Boo|
000065b0  74 70 6c 75 73 24 64 69  72 3e 22 0d 5b 2c 2d f2  |tplus$dir>".[,-.|
000065c0  6d 61 6b 65 5f 61 6c 69  61 73 28 22 3c 42 6f 6f  |make_alias("<Boo|
000065d0  74 24 54 6f 42 65 54 61  73 6b 73 3e 2e 21 42 6f  |t$ToBeTasks>.!Bo|
000065e0  6f 74 70 6c 75 73 22 29  0d 5b 36 05 e1 0d 5b 7c  |otplus").[6...[||
000065f0  13 dd f2 72 65 6d 6f 76  65 5f 6c 6f 67 69 6e 73  |...remove_logins|
00006600  0d 5b ae 38 c8 99 22 58  4f 53 5f 46 53 43 6f 6e  |.[.8.."XOS_FSCon|
00006610  74 72 6f 6c 22 2c 32 37  2c 22 3c 42 6f 6f 74 24  |trol",27,"<Boot$|
00006620  54 6f 42 65 54 61 73 6b  73 3e 2e 21 7a 7a 7a 7a  |ToBeTasks>.!zzzz|
00006630  70 61 73 73 22 2c 2c 33  0d 5b b8 38 c8 99 22 58  |pass",,3.[.8.."X|
00006640  4f 53 5f 46 53 43 6f 6e  74 72 6f 6c 22 2c 32 37  |OS_FSControl",27|
00006650  2c 22 3c 42 6f 6f 74 24  54 6f 42 65 54 61 73 6b  |,"<Boot$ToBeTask|
00006660  73 3e 2e 21 62 6f 6f 74  70 6c 75 73 22 2c 2c 33  |s>.!bootplus",,3|
00006670  0d 5b c2 14 f2 6b 69 6c  6c 5f 74 68 69 65 66 74  |.[...kill_thieft|
00006680  72 61 70 73 0d 5b cc 05  e1 0d 5c 12 12 dd f2 70  |raps.[....\....p|
00006690  61 75 73 65 5f 6c 6f 67  69 6e 73 0d 5c 3a 18 e7  |ause_logins.\:..|
000066a0  5a 7a 7a 7a 70 61 73 73  5f 53 74 61 74 75 73 25  |Zzzzpass_Status%|
000066b0  3d 33 8c 0d 5c 62 29 42  6c 63 6b 25 21 30 3d 32  |=3..\b)Blck%!0=2|
000066c0  38 3a 42 6c 63 6b 25 21  31 32 3d 30 3a 42 6c 63  |8:Blck%!12=0:Blc|
000066d0  6b 25 21 31 36 3d 26 38  30 38 63 30 0d 5c 6c 1d  |k%!16=&808c0.\l.|
000066e0  42 6c 63 6b 25 21 32 30  3d 34 3a 42 6c 63 6b 25  |Blck%!20=4:Blck%|
000066f0  21 32 34 3d 42 75 66 32  25 0d 5c 76 0c 21 42 75  |!24=Buf2%.\v.!Bu|
00006700  66 32 25 3d 33 0d 5c 80  32 c8 99 22 57 69 6d 70  |f2%=3.\.2.."Wimp|
00006710  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00006720  2c 42 6c 63 6b 25 2c 5a  7a 7a 7a 70 61 73 73 5f  |,Blck%,Zzzzpass_|
00006730  48 61 6e 64 6c 65 25 0d  5c 8a 05 cd 0d 5c 94 17  |Handle%.\....\..|
00006740  e7 5a 7a 7a 7a 63 68 6b  5f 53 74 61 74 75 73 25  |.Zzzzchk_Status%|
00006750  3d 33 8c 0d 5c bc 29 42  6c 63 6b 25 21 30 3d 32  |=3..\.)Blck%!0=2|
00006760  38 3a 42 6c 63 6b 25 21  31 32 3d 30 3a 42 6c 63  |8:Blck%!12=0:Blc|
00006770  6b 25 21 31 36 3d 26 38  30 38 63 30 0d 5c c6 1d  |k%!16=&808c0.\..|
00006780  42 6c 63 6b 25 21 32 30  3d 34 3a 42 6c 63 6b 25  |Blck%!20=4:Blck%|
00006790  21 32 34 3d 42 75 66 32  25 0d 5c d0 0c 21 42 75  |!24=Buf2%.\..!Bu|
000067a0  66 32 25 3d 33 0d 5c da  31 c8 99 22 57 69 6d 70  |f2%=3.\.1.."Wimp|
000067b0  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
000067c0  2c 42 6c 63 6b 25 2c 5a  7a 7a 7a 63 68 6b 5f 48  |,Blck%,Zzzzchk_H|
000067d0  61 6e 64 6c 65 25 0d 5c  e4 05 cd 0d 5c ee 05 e1  |andle%.\....\...|
000067e0  0d 5d 52 13 dd a4 65 6e  63 6f 64 65 28 70 73 77  |.]R...encode(psw|
000067f0  64 24 29 0d 5d 98 16 ea  61 25 2c 62 25 2c 63 25  |d$).]...a%,b%,c%|
00006800  2c 64 25 2c 65 6e 63 64  24 0d 5d ac 0c 65 6e 63  |,d%,encd$.]..enc|
00006810  64 24 3d 22 22 0d 5d b6  0f 61 25 3d a9 28 70 73  |d$="".]..a%=.(ps|
00006820  77 64 24 29 0d 5d c0 0c  e3 65 25 3d 31 b8 61 25  |wd$).]...e%=1.a%|
00006830  0d 5d ca 16 62 25 3d 97  28 c1 70 73 77 64 24 2c  |.]..b%=.(.pswd$,|
00006840  65 25 2c 31 29 29 0d 5d  d4 1b 63 25 3d 97 28 c1  |e%,1)).]..c%=.(.|
00006850  70 73 77 64 24 2c 61 25  2d 65 25 2b 31 2c 31 29  |pswd$,a%-e%+1,1)|
00006860  29 0d 5d de 16 64 25 3d  28 62 25 2a 28 63 25 2b  |).]..d%=(b%*(c%+|
00006870  31 29 29 80 26 46 46 0d  5d e8 11 e7 64 25 3c 33  |1)).&FF.]...d%<3|
00006880  32 8c 64 25 2b 3d 33 32  0d 5d f2 1c e7 64 25 3e  |2.d%+=32.]...d%>|
00006890  3d 31 32 37 80 20 64 25  3c 3d 31 33 39 8c 64 25  |=127. d%<=139.d%|
000068a0  2b 3d 32 33 0d 5d fc 10  65 6e 63 64 24 2b 3d bd  |+=23.]..encd$+=.|
000068b0  28 64 25 29 0d 5e 06 07  ed 65 25 0d 5e 24 0a 3d  |(d%).^...e%.^$.=|
000068c0  65 6e 63 64 24 0d 5e 6a  24 dd a4 63 68 65 63 6b  |encd$.^j$..check|
000068d0  5f 75 73 65 72 28 75 73  6e 6d 24 2c 70 61 73 73  |_user(usnm$,pass|
000068e0  24 2c f8 6e 61 6d 69 25  29 0d 5e e2 27 ea 65 6e  |$,.nami%).^.'.en|
000068f0  63 64 24 2c 6e 74 72 79  24 2c 66 25 2c 6f 6b 25  |cd$,ntry$,f%,ok%|
00006900  2c 70 6e 61 6d 24 2c 70  70 61 73 24 2c 70 31 24  |,pnam$,ppas$,p1$|
00006910  0d 5e f6 13 e7 75 73 6e  6d 24 3d 22 47 55 45 53  |.^...usnm$="GUES|
00006920  54 22 8c 0d 5f 1e 28 6f  6b 25 3d 28 28 70 61 73  |T".._.(ok%=((pas|
00006930  73 24 3d 22 47 55 45 53  54 22 29 80 20 47 75 65  |s$="GUEST"). Gue|
00006940  73 74 5f 4c 6f 67 69 6e  73 25 29 0d 5f 28 0b 6e  |st_Logins%)._(.n|
00006950  61 6d 69 25 3d b9 0d 5f  32 05 cc 0d 5f 5a 08 61  |ami%=.._2..._Z.a|
00006960  25 3d 30 0d 5f 64 16 70  31 24 3d a4 65 6e 63 6f  |%=0._d.p1$=.enco|
00006970  64 65 28 70 61 73 73 24  29 0d 5f 6e 16 65 6e 63  |de(pass$)._n.enc|
00006980  64 24 3d a4 65 6e 63 6f  64 65 28 70 31 24 29 0d  |d$=.encode(p1$).|
00006990  5f 78 09 6f 6b 25 3d a3  0d 5f 82 0b 6e 61 6d 69  |_x.ok%=.._..nami|
000069a0  25 3d a3 0d 5f 8c 13 66  25 3d 8e 28 50 61 73 73  |%=.._..f%=.(Pass|
000069b0  66 69 6c 65 24 29 0d 5f  96 11 c8 95 ac 28 c5 23  |file$)._.....(.#|
000069c0  66 25 84 6f 6b 25 29 0d  5f a0 0e 6e 74 72 79 24  |f%.ok%)._..ntry$|
000069d0  3d be 23 66 25 0d 5f aa  16 74 61 62 31 25 3d a7  |=.#f%._..tab1%=.|
000069e0  6e 74 72 79 24 2c bd 28  39 29 29 0d 5f b4 1e 74  |ntry$,.(9))._..t|
000069f0  61 62 32 25 3d a7 6e 74  72 79 24 2c bd 28 39 29  |ab2%=.ntry$,.(9)|
00006a00  2c 74 61 62 31 25 2b 31  29 0d 5f be 19 70 6e 61  |,tab1%+1)._..pna|
00006a10  6d 24 3d c0 6e 74 72 79  24 2c 74 61 62 31 25 2d  |m$=.ntry$,tab1%-|
00006a20  31 29 0d 5f c8 27 70 70  61 73 24 3d c1 6e 74 72  |1)._.'ppas$=.ntr|
00006a30  79 24 2c 74 61 62 31 25  2b 31 2c 74 61 62 32 25  |y$,tab1%+1,tab2%|
00006a40  2d 74 61 62 31 25 2d 31  29 0d 5f d2 09 61 25 2b  |-tab1%-1)._..a%+|
00006a50  3d 31 0d 5f dc 25 6f 6b  25 3d 28 28 75 73 6e 6d  |=1._.%ok%=((usnm|
00006a60  24 3d 70 6e 61 6d 24 29  80 28 65 6e 63 64 24 3d  |$=pnam$).(encd$=|
00006a70  70 70 61 73 24 29 29 0d  5f e6 18 e7 75 73 6e 6d  |ppas$))._...usnm|
00006a80  24 3d 70 6e 61 6d 24 8c  6e 61 6d 69 25 3d b9 0d  |$=pnam$.nami%=..|
00006a90  5f f0 05 ce 0d 5f fa 08  d9 23 66 25 0d 60 04 05  |_...._...#f%.`..|
00006aa0  cd 0d 60 18 08 3d 6f 6b  25 0d 60 5e 1b dd f2 61  |..`..=ok%.`^...a|
00006ab0  64 64 5f 75 73 65 72 28  75 73 6e 6d 24 2c 70 61  |dd_user(usnm$,pa|
00006ac0  73 73 24 29 0d 60 a4 1d  ea 65 6e 63 64 24 2c 70  |ss$).`...encd$,p|
00006ad0  61 64 25 2c 70 31 24 2c  62 64 24 2c 66 25 2c 6c  |ad%,p1$,bd$,f%,l|
00006ae0  25 0d 60 cc 16 70 31 24  3d a4 65 6e 63 6f 64 65  |%.`..p1$=.encode|
00006af0  28 70 61 73 73 24 29 0d  60 d6 16 65 6e 63 64 24  |(pass$).`..encd$|
00006b00  3d a4 65 6e 63 6f 64 65  28 70 31 24 29 0d 60 e0  |=.encode(p1$).`.|
00006b10  21 70 61 64 25 3d 33 35  2d 28 a9 28 75 73 6e 6d  |!pad%=35-(.(usnm|
00006b20  24 29 2b a9 28 65 6e 63  64 24 29 2b 32 29 0d 60  |$)+.(encd$)+2).`|
00006b30  ea 13 66 25 3d ad 28 50  61 73 73 66 69 6c 65 24  |..f%=.(Passfile$|
00006b40  29 0d 60 f4 0b c8 95 ac  c5 23 66 25 0d 60 fe 0e  |).`......#f%.`..|
00006b50  6e 74 72 79 24 3d be 23  66 25 0d 61 08 05 ce 0d  |ntry$=.#f%.a....|
00006b60  61 12 29 d5 23 66 25 2c  75 73 6e 6d 24 2b bd 28  |a.).#f%,usnm$+.(|
00006b70  39 29 2b 65 6e 63 64 24  2b bd 28 39 29 2b c4 70  |9)+encd$+.(9)+.p|
00006b80  61 64 25 2c 22 78 22 29  0d 61 1c 08 d9 23 66 25  |ad%,"x").a...#f%|
00006b90  0d 61 58 33 c8 99 22 4f  53 5f 52 65 61 64 56 61  |.aX3.."OS_ReadVa|
00006ba0  72 56 61 6c 22 2c 22 42  6f 6f 74 24 44 69 72 22  |rVal","Boot$Dir"|
00006bb0  2c 42 75 66 31 25 2c 31  32 38 2c 30 2c 30 b8 2c  |,Buf1%,128,0,0.,|
00006bc0  2c 6c 25 0d 61 62 09 6c  25 2d 3d 36 0d 61 6c 0f  |,l%.ab.l%-=6.al.|
00006bd0  42 75 66 31 25 3f 6c 25  3d 31 33 0d 61 76 0e 62  |Buf1%?l%=13.av.b|
00006be0  64 24 3d 24 42 75 66 31  25 0d 61 8a 23 c8 99 22  |d$=$Buf1%.a.#.."|
00006bf0  4f 53 5f 46 69 6c 65 22  2c 32 30 2c 62 64 24 2b  |OS_File",20,bd$+|
00006c00  22 2e 47 72 6f 75 70 73  22 b8 66 25 0d 61 94 0a  |".Groups".f%.a..|
00006c10  e7 66 25 3d 30 8c 0d 61  bc 1f c8 99 22 4f 53 5f  |.f%=0..a...."OS_|
00006c20  46 69 6c 65 22 2c 38 2c  62 64 24 2b 22 2e 47 72  |File",8,bd$+".Gr|
00006c30  6f 75 70 73 22 0d 61 c6  05 cd 0d 61 d0 2a c8 99  |oups".a....a.*..|
00006c40  22 4f 53 5f 46 69 6c 65  22 2c 32 30 2c 62 64 24  |"OS_File",20,bd$|
00006c50  2b 22 2e 47 72 6f 75 70  73 2e 22 2b 75 73 6e 6d  |+".Groups."+usnm|
00006c60  24 b8 66 25 0d 61 da 0a  e7 66 25 3d 30 8c 0d 62  |$.f%.a...f%=0..b|
00006c70  02 26 c8 99 22 4f 53 5f  46 69 6c 65 22 2c 38 2c  |.&.."OS_File",8,|
00006c80  62 64 24 2b 22 2e 47 72  6f 75 70 73 2e 22 2b 75  |bd$+".Groups."+u|
00006c90  73 6e 6d 24 0d 62 0c 05  cd 0d 62 16 0e 52 75 73  |snm$.b....b..Rus|
00006ca0  65 72 73 25 2b 3d 31 0d  62 20 18 52 75 73 72 24  |ers%+=1.b .Rusr$|
00006cb0  28 52 75 73 65 72 73 25  29 3d 75 73 6e 6d 24 0d  |(Rusers%)=usnm$.|
00006cc0  62 2a 54 52 64 69 72 24  28 52 75 73 65 72 73 25  |b*TRdir$(Rusers%|
00006cd0  29 3d 22 7c 41 70 70 73  7c 44 69 76 65 72 73 69  |)="|Apps|Diversi|
00006ce0  6f 6e 73 7c 49 6d 61 67  65 73 7c 50 75 62 6c 69  |ons|Images|Publi|
00006cf0  63 7c 53 6f 75 6e 64 7c  54 75 74 6f 72 69 61 6c  |c|Sound|Tutorial|
00006d00  73 7c 55 74 69 6c 69 74  69 65 73 7c 56 69 64 65  |s|Utilities|Vide|
00006d10  6f 7c 22 0d 62 34 0b 62  64 24 3d 22 7c 22 0d 62  |o|".b4.bd$="|".b|
00006d20  3e 0b e3 62 25 3d 31 b8  37 0d 62 48 20 62 64 24  |>..b%=1.7.bH bd$|
00006d30  2b 3d 57 65 65 6b 64 61  79 73 24 28 62 25 29 2b  |+=Weekdays$(b%)+|
00006d40  22 59 3d 38 3d 31 37 7c  22 0d 62 52 07 ed 62 25  |"Y=8=17|".bR..b%|
00006d50  0d 62 5c 16 52 74 69 6d  24 28 52 75 73 65 72 73  |.b\.Rtim$(Rusers|
00006d60  25 29 3d 62 64 24 0d 62  66 14 f2 73 61 76 65 5f  |%)=bd$.bf..save_|
00006d70  75 73 65 72 61 63 63 65  73 73 0d 62 70 13 f2 73  |useraccess.bp..s|
00006d80  61 76 65 5f 75 73 65 72  74 69 6d 65 73 0d 62 7a  |ave_usertimes.bz|
00006d90  05 e1 0d 62 c0 1e dd f2  6d 6f 64 69 66 79 5f 75  |...b....modify_u|
00006da0  73 65 72 28 75 73 6e 6d  24 2c 70 61 73 73 24 29  |ser(usnm$,pass$)|
00006db0  0d 63 06 2b ea 65 6e 63  64 24 2c 6e 74 79 72 24  |.c.+.encd$,ntyr$|
00006dc0  2c 70 61 64 25 2c 74 61  62 31 25 2c 74 61 62 32  |,pad%,tab1%,tab2|
00006dd0  25 2c 70 6e 61 6d 24 2c  70 31 24 0d 63 1a 16 70  |%,pnam$,p1$.c..p|
00006de0  31 24 3d a4 65 6e 63 6f  64 65 28 70 61 73 73 24  |1$=.encode(pass$|
00006df0  29 0d 63 24 16 65 6e 63  64 24 3d a4 65 6e 63 6f  |).c$.encd$=.enco|
00006e00  64 65 28 70 31 24 29 0d  63 2e 21 70 61 64 25 3d  |de(p1$).c.!pad%=|
00006e10  33 35 2d 28 a9 28 75 73  6e 6d 24 29 2b a9 28 65  |35-(.(usnm$)+.(e|
00006e20  6e 63 64 24 29 2b 32 29  0d 63 38 13 66 25 3d ad  |ncd$)+2).c8.f%=.|
00006e30  28 50 61 73 73 66 69 6c  65 24 29 0d 63 42 05 f5  |(Passfile$).cB..|
00006e40  0d 63 4c 0e 70 6f 73 6e  25 3d 8f 23 66 25 0d 63  |.cL.posn%=.#f%.c|
00006e50  56 0e 6e 74 72 79 24 3d  be 23 66 25 0d 63 60 16  |V.ntry$=.#f%.c`.|
00006e60  74 61 62 31 25 3d a7 6e  74 72 79 24 2c bd 28 39  |tab1%=.ntry$,.(9|
00006e70  29 29 0d 63 6a 1e 74 61  62 32 25 3d a7 6e 74 72  |)).cj.tab2%=.ntr|
00006e80  79 24 2c bd 28 39 29 2c  74 61 62 31 25 2b 31 29  |y$,.(9),tab1%+1)|
00006e90  0d 63 74 19 70 6e 61 6d  24 3d c0 6e 74 72 79 24  |.ct.pnam$=.ntry$|
00006ea0  2c 74 61 62 31 25 2d 31  29 0d 63 7e 10 fd 70 6e  |,tab1%-1).c~..pn|
00006eb0  61 6d 24 3d 75 73 6e 6d  24 0d 63 88 0e cf 23 66  |am$=usnm$.c...#f|
00006ec0  25 3d 70 6f 73 6e 25 0d  63 92 29 d5 23 66 25 2c  |%=posn%.c.).#f%,|
00006ed0  75 73 6e 6d 24 2b bd 28  39 29 2b 65 6e 63 64 24  |usnm$+.(9)+encd$|
00006ee0  2b bd 28 39 29 2b c4 70  61 64 25 2c 22 78 22 29  |+.(9)+.pad%,"x")|
00006ef0  0d 63 9c 08 d9 23 66 25  0d 63 a6 05 e1 0d 63 ec  |.c...#f%.c....c.|
00006f00  1f dd f2 6c 6f 67 69 6e  5f 75 73 65 72 28 75 73  |...login_user(us|
00006f10  6e 6d 24 2c 69 6e 66 6f  72 6d 25 29 0d 64 32 18  |nm$,inform%).d2.|
00006f20  ea 61 25 2c 61 6c 25 2c  64 75 72 25 2c 73 68 25  |.a%,al%,dur%,sh%|
00006f30  2c 65 68 25 0d 64 46 19  e7 4c 6f 67 67 65 64 5f  |,eh%.dF..Logged_|
00006f40  55 73 65 72 24 3c 3e 75  73 6e 6d 24 8c 0d 64 6e  |User$<>usnm$..dn|
00006f50  11 e3 61 25 3d 31 b8 52  75 73 65 72 73 25 0d 64  |..a%=1.Rusers%.d|
00006f60  78 15 e7 52 75 73 72 24  28 61 25 29 3d 75 73 6e  |x..Rusr$(a%)=usn|
00006f70  6d 24 8c 0d 64 82 0c 52  75 73 72 25 3d 61 25 0d  |m$..d..Rusr%=a%.|
00006f80  64 8c 05 cd 0d 64 96 07  ed 61 25 0d 64 be 29 e7  |d....d...a%.d.).|
00006f90  28 75 73 6e 6d 24 3d 22  4f 57 4e 45 52 22 80 20  |(usnm$="OWNER". |
00006fa0  46 75 6c 6c 5f 4f 77 6e  65 72 5f 41 63 63 65 73  |Full_Owner_Acces|
00006fb0  73 25 29 8c 0d 64 c8 09  61 6c 25 3d 31 0d 64 d2  |s%)..d..al%=1.d.|
00006fc0  05 cc 0d 64 dc 21 f2 75  73 65 72 5f 74 69 6d 65  |...d.!.user_time|
00006fd0  73 28 61 6c 25 2c 64 75  72 25 2c 73 68 25 2c 65  |s(al%,dur%,sh%,e|
00006fe0  68 25 29 0d 64 e6 05 cd  0d 64 f0 0a c8 8e 61 6c  |h%).d....d....al|
00006ff0  25 ca 0d 64 fa 06 c9 31  0d 65 22 22 c8 99 54 5f  |%..d...1.e""..T_|
00007000  54 4f 4d 4f 25 2c 30 2c  49 62 61 72 6d 65 6e 75  |TOMO%,0,Ibarmenu|
00007010  5f 49 44 25 2c 32 2c 36  2c 30 0d 65 2c 31 c8 99  |_ID%,2,6,0.e,1..|
00007020  54 5f 54 4f 4d 4f 25 2c  30 2c 49 62 61 72 6d 65  |T_TOMO%,0,Ibarme|
00007030  6e 75 5f 49 44 25 2c 32  34 2c 22 4c 6f 67 67 65  |nu_ID%,24,"Logge|
00007040  64 20 3a 20 22 2b 75 73  6e 6d 24 0d 65 36 16 4c  |d : "+usnm$.e6.L|
00007050  6f 67 67 65 64 5f 55 73  65 72 24 3d 75 73 6e 6d  |ogged_User$=usnm|
00007060  24 0d 65 5e 23 e7 28 5a  7a 7a 7a 70 61 73 73 5f  |$.e^#.(Zzzzpass_|
00007070  53 74 61 74 75 73 25 3d  33 29 80 20 69 6e 66 6f  |Status%=3). info|
00007080  72 6d 25 8c 0d 65 86 1a  f2 69 6e 66 6f 72 6d 5f  |rm%..e...inform_|
00007090  7a 7a 7a 7a 70 61 73 73  28 64 75 72 25 29 0d 65  |zzzzpass(dur%).e|
000070a0  90 05 cd 0d 65 9a 06 c9  32 0d 65 c2 4b f2 65 72  |....e...2.e.K.er|
000070b0  72 6f 72 5f 6d 65 73 73  61 67 65 28 22 59 6f 75  |ror_message("You|
000070c0  20 61 72 65 20 6e 6f 74  20 61 6c 6c 6f 77 65 64  | are not allowed|
000070d0  20 61 63 63 65 73 73 20  74 6f 64 61 79 22 2c 22  | access today","|
000070e0  4d 61 63 68 69 6e 65 20  41 63 63 65 73 73 22 2c  |Machine Access",|
000070f0  30 2c 30 29 0d 65 cc 06  c9 33 0d 65 f4 88 f2 65  |0,0).e...3.e...e|
00007100  72 72 6f 72 5f 6d 65 73  73 61 67 65 28 22 59 6f  |rror_message("Yo|
00007110  75 20 61 72 65 20 6e 6f  74 20 61 6c 6c 6f 77 65  |u are not allowe|
00007120  64 20 61 63 63 65 73 73  20 61 74 20 74 68 69 73  |d access at this|
00007130  20 74 69 6d 65 2c 20 74  72 79 20 62 65 74 77 65  | time, try betwe|
00007140  65 6e 20 22 2b c3 28 73  68 25 29 2b 22 68 72 73  |en "+.(sh%)+"hrs|
00007150  20 74 6f 20 22 2b c3 28  65 68 25 29 2b 22 68 72  | to "+.(eh%)+"hr|
00007160  73 20 69 6e 63 6c 75 73  69 76 65 22 2c 22 4d 61  |s inclusive","Ma|
00007170  63 68 69 6e 65 20 41 63  63 65 73 73 22 2c 30 2c  |chine Access",0,|
00007180  30 29 0d 65 fe 05 cb 0d  66 08 05 cc 0d 66 30 42  |0).e....f....f0B|
00007190  f2 65 72 72 6f 72 5f 6d  65 73 73 61 67 65 28 22  |.error_message("|
000071a0  59 6f 75 20 61 72 65 20  61 6c 72 65 61 64 79 20  |You are already |
000071b0  6c 6f 67 67 65 64 20 6f  6e 20 3f 21 3f 22 2c 22  |logged on ?!?","|
000071c0  43 6f 6e 66 75 73 65 64  22 2c 30 2c 30 29 0d 66  |Confused",0,0).f|
000071d0  3a 05 cd 0d 66 44 05 e1  0d 66 94 30 dd f2 75 73  |:...fD...f.0..us|
000071e0  65 72 5f 74 69 6d 65 73  28 f8 61 6c 6c 6f 77 65  |er_times(.allowe|
000071f0  64 25 2c f8 64 75 72 61  74 69 6f 6e 25 2c f8 73  |d%,.duration%,.s|
00007200  68 25 2c f8 65 68 25 29  0d 66 bc 1e ea 61 25 2c  |h%,.eh%).f...a%,|
00007210  74 68 25 2c 6d 6e 25 2c  77 64 25 2c 65 31 25 2c  |th%,mn%,wd%,e1%,|
00007220  65 32 25 2c 62 25 0d 66  d0 0c 21 42 75 66 31 25  |e2%,b%.f..!Buf1%|
00007230  3d 33 0d 66 da 18 c8 99  22 4f 53 5f 57 6f 72 64  |=3.f...."OS_Word|
00007240  22 2c 31 34 2c 42 75 66  31 25 0d 66 e4 23 c8 99  |",14,Buf1%.f.#..|
00007250  26 63 31 2c 42 75 66 31  25 2c 42 75 66 32 25 2c  |&c1,Buf1%,Buf2%,|
00007260  31 32 38 2c 22 25 32 34  22 b8 2c 61 25 0d 66 ee  |128,"%24".,a%.f.|
00007270  0a 3f 61 25 3d 31 33 0d  66 f8 11 74 68 25 3d bb  |.?a%=13.f..th%=.|
00007280  28 24 42 75 66 32 25 29  0d 67 02 23 c8 99 26 63  |($Buf2%).g.#..&c|
00007290  31 2c 42 75 66 31 25 2c  42 75 66 32 25 2c 31 32  |1,Buf1%,Buf2%,12|
000072a0  38 2c 22 25 57 4e 22 b8  2c 61 25 0d 67 0c 0a 3f  |8,"%WN".,a%.g..?|
000072b0  61 25 3d 31 33 0d 67 16  11 77 64 25 3d bb 28 24  |a%=13.g..wd%=.($|
000072c0  42 75 66 32 25 29 0d 67  20 23 c8 99 26 63 31 2c  |Buf2%).g #..&c1,|
000072d0  42 75 66 31 25 2c 42 75  66 32 25 2c 31 32 38 2c  |Buf1%,Buf2%,128,|
000072e0  22 25 4d 49 22 b8 2c 61  25 0d 67 2a 0a 3f 61 25  |"%MI".,a%.g*.?a%|
000072f0  3d 31 33 0d 67 34 11 6d  6e 25 3d bb 28 24 42 75  |=13.g4.mn%=.($Bu|
00007300  66 32 25 29 0d 67 3e 26  61 25 3d a7 52 74 69 6d  |f2%).g>&a%=.Rtim|
00007310  24 28 52 75 73 72 25 29  2c 57 65 65 6b 64 61 79  |$(Rusr%),Weekday|
00007320  73 24 28 77 64 25 29 2c  31 29 0d 67 48 0f 64 75  |s$(wd%),1).gH.du|
00007330  72 61 74 69 6f 6e 25 3d  30 0d 67 52 1e e7 c1 52  |ration%=0.gR...R|
00007340  74 69 6d 24 28 52 75 73  72 25 29 2c 61 25 2b 32  |tim$(Rusr%),a%+2|
00007350  2c 31 29 3d 22 59 22 0d  67 7a 1f 65 31 25 3d a7  |,1)="Y".gz.e1%=.|
00007360  52 74 69 6d 24 28 52 75  73 72 25 29 2c 22 3d 22  |Rtim$(Rusr%),"="|
00007370  2c 61 25 2b 33 29 0d 67  84 20 65 32 25 3d a7 52  |,a%+3).g. e2%=.R|
00007380  74 69 6d 24 28 52 75 73  72 25 29 2c 22 3d 22 2c  |tim$(Rusr%),"=",|
00007390  65 31 25 2b 32 29 0d 67  8e 1f 62 25 3d a7 52 74  |e1%+2).g..b%=.Rt|
000073a0  69 6d 24 28 52 75 73 72  25 29 2c 22 7c 22 2c 65  |im$(Rusr%),"|",e|
000073b0  32 25 2b 32 29 0d 67 98  29 73 68 25 3d bb 28 c1  |2%+2).g.)sh%=.(.|
000073c0  52 74 69 6d 24 28 52 75  73 72 25 29 2c 65 31 25  |Rtim$(Rusr%),e1%|
000073d0  2b 31 2c 65 32 25 2d 65  31 25 2d 31 29 29 0d 67  |+1,e2%-e1%-1)).g|
000073e0  a2 28 65 68 25 3d bb 28  c1 52 74 69 6d 24 28 52  |.(eh%=.(.Rtim$(R|
000073f0  75 73 72 25 29 2c 65 32  25 2b 31 2c 62 25 2d 65  |usr%),e2%+1,b%-e|
00007400  32 25 2d 31 29 29 0d 67  ac 1a e7 28 74 68 25 3e  |2%-1)).g...(th%>|
00007410  3d 73 68 25 80 20 74 68  25 3c 3d 65 68 25 29 8c  |=sh%. th%<=eh%).|
00007420  0d 67 b6 0e 61 6c 6c 6f  77 65 64 25 3d 31 0d 67  |.g..allowed%=1.g|
00007430  c0 20 64 75 72 61 74 69  6f 6e 25 3d 28 65 68 25  |. duration%=(eh%|
00007440  2d 74 68 25 2b 31 29 2a  36 30 2d 6d 6e 25 0d 67  |-th%+1)*60-mn%.g|
00007450  ca 05 cc 0d 67 d4 0e 61  6c 6c 6f 77 65 64 25 3d  |....g..allowed%=|
00007460  33 0d 67 de 05 cd 0d 67  e8 05 cc 0d 67 f2 0e 61  |3.g....g....g..a|
00007470  6c 6c 6f 77 65 64 25 3d  32 0d 67 fc 05 cd 0d 68  |llowed%=2.g....h|
00007480  06 05 e1 0d 68 56 20 dd  f2 69 6e 66 6f 72 6d 5f  |....hV ..inform_|
00007490  7a 7a 7a 7a 70 61 73 73  28 64 75 72 61 74 69 6f  |zzzzpass(duratio|
000074a0  6e 25 29 0d 68 88 0a ea  70 25 2c 61 25 0d 69 1e  |n%).h...p%,a%.i.|
000074b0  09 70 25 3d 32 30 0d 69  28 0c 21 42 75 66 32 25  |.p%=20.i(.!Buf2%|
000074c0  3d 31 0d 69 32 0e 42 75  66 32 25 21 34 3d 70 25  |=1.i2.Buf2%!4=p%|
000074d0  0d 69 3c 22 24 28 42 75  66 32 25 2b 32 30 29 3d  |.i<"$(Buf2%+20)=|
000074e0  4c 6f 67 67 65 64 5f 55  73 65 72 24 2b bd 28 31  |Logged_User$+.(1|
000074f0  33 29 0d 69 46 19 70 25  2b 3d a9 28 4c 6f 67 67  |3).iF.p%+=.(Logg|
00007500  65 64 5f 55 73 65 72 24  29 2b 32 0d 69 50 0f 42  |ed_User$)+2.iP.B|
00007510  75 66 32 25 21 31 32 3d  70 25 0d 69 5a 22 24 28  |uf2%!12=p%.iZ"$(|
00007520  42 75 66 32 25 2b 42 75  66 32 25 21 31 32 29 3d  |Buf2%+Buf2%!12)=|
00007530  52 64 69 72 24 28 52 75  73 72 25 29 0d 69 64 17  |Rdir$(Rusr%).id.|
00007540  70 25 2b 3d a9 28 52 64  69 72 24 28 52 75 73 72  |p%+=.(Rdir$(Rusr|
00007550  25 29 29 0d 69 6e 16 42  75 66 32 25 21 31 36 3d  |%)).in.Buf2%!16=|
00007560  64 75 72 61 74 69 6f 6e  25 0d 69 96 29 42 6c 63  |duration%.i.)Blc|
00007570  6b 25 21 30 3d 33 32 3a  42 6c 63 6b 25 21 31 32  |k%!0=32:Blck%!12|
00007580  3d 30 3a 42 6c 63 6b 25  21 31 36 3d 26 38 30 38  |=0:Blck%!16=&808|
00007590  63 30 0d 69 a0 1e 42 6c  63 6b 25 21 32 30 3d 70  |c0.i..Blck%!20=p|
000075a0  25 3a 42 6c 63 6b 25 21  32 34 3d 42 75 66 32 25  |%:Blck%!24=Buf2%|
000075b0  0d 69 aa 27 42 6c 63 6b  25 21 32 30 3d 42 75 66  |.i.'Blck%!20=Buf|
000075c0  32 25 21 31 32 2b a9 28  52 64 69 72 24 28 52 75  |2%!12+.(Rdir$(Ru|
000075d0  73 72 25 29 29 2b 32 0d  69 b4 32 c8 99 22 57 69  |sr%))+2.i.2.."Wi|
000075e0  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
000075f0  31 37 2c 42 6c 63 6b 25  2c 5a 7a 7a 7a 70 61 73  |17,Blck%,Zzzzpas|
00007600  73 5f 48 61 6e 64 6c 65  25 0d 69 be 05 e1 0d 6a  |s_Handle%.i....j|
00007610  18 1d dd f2 64 72 61 77  5f 6d 61 69 6e 28 6d 69  |....draw_main(mi|
00007620  64 25 2c 72 65 61 73 6f  6e 25 29 0d 6a 68 07 ea  |d%,reason%).jh..|
00007630  61 25 0d 6a 90 0c e7 6d  69 64 25 3d 32 8c 0d 6a  |a%.j...mid%=2..j|
00007640  b8 1c f2 64 72 61 77 5f  73 75 62 28 32 2c 72 65  |...draw_sub(2,re|
00007650  61 73 6f 6e 25 2c b9 2c  30 29 0d 6a c2 1c f2 64  |ason%,.,0).j...d|
00007660  72 61 77 5f 73 75 62 28  33 2c 72 65 61 73 6f 6e  |raw_sub(3,reason|
00007670  25 2c b9 2c 30 29 0d 6a  cc 05 cc 0d 6a f4 1c f2  |%,.,0).j....j...|
00007680  64 72 61 77 5f 73 75 62  28 31 2c 72 65 61 73 6f  |draw_sub(1,reaso|
00007690  6e 25 2c b9 2c 30 29 0d  6a fe 05 cd 0d 6b 26 1c  |n%,.,0).j....k&.|
000076a0  42 6c 63 6b 25 21 30 3d  53 75 62 6c 69 73 74 25  |Blck%!0=Sublist%|
000076b0  28 6d 69 64 25 2c 32 29  0d 6b 30 22 c8 99 22 57  |(mid%,2).k0".."W|
000076c0  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
000076d0  74 65 22 2c 2c 42 6c 63  6b 25 0d 6b 3a 1d 42 6c  |te",,Blck%.k:.Bl|
000076e0  63 6b 25 21 32 38 3d 53  75 62 6c 69 73 74 25 28  |ck%!28=Sublist%(|
000076f0  6d 69 64 25 2c 31 29 0d  6b 44 0e c8 8e 72 65 61  |mid%,1).kD...rea|
00007700  73 6f 6e 25 ca 0d 6b 4e  06 c9 30 0d 6b 76 0b c8  |son%..kN..0.kv..|
00007710  8e 6d 69 64 25 ca 0d 6b  80 06 c9 31 0d 6b a8 11  |.mid%..k...1.k..|
00007720  c8 8e 45 64 69 74 5f 54  79 70 65 24 ca 0d 6b b2  |..Edit_Type$..k.|
00007730  0e c9 22 61 75 74 6f 72  75 6e 22 0d 6b bc 34 c8  |.."autorun".k.4.|
00007740  99 54 5f 54 4f 4d 4f 25  2c 30 2c 4d 61 69 6e 6c  |.T_TOMO%,0,Mainl|
00007750  69 73 74 5f 49 44 25 2c  31 31 2c 22 45 64 69 74  |ist_ID%,11,"Edit|
00007760  20 41 75 74 6f 72 75 6e  20 46 69 6c 65 73 22 0d  | Autorun Files".|
00007770  6b c6 0b c9 22 62 6f 6f  74 22 0d 6b d0 3e c8 99  |k..."boot".k.>..|
00007780  54 5f 54 4f 4d 4f 25 2c  30 2c 4d 61 69 6e 6c 69  |T_TOMO%,0,Mainli|
00007790  73 74 5f 49 44 25 2c 31  31 2c 22 45 64 69 74 20  |st_ID%,11,"Edit |
000077a0  41 75 74 6f 62 6f 6f 74  65 64 20 41 70 70 6c 69  |Autobooted Appli|
000077b0  63 61 74 69 6f 6e 73 22  0d 6b da 10 c9 22 72 65  |cations".k..."re|
000077c0  73 6f 75 72 63 65 73 22  0d 6b e4 3c c8 99 54 5f  |sources".k.<..T_|
000077d0  54 4f 4d 4f 25 2c 30 2c  4d 61 69 6e 6c 69 73 74  |TOMO%,0,Mainlist|
000077e0  5f 49 44 25 2c 31 31 2c  22 45 64 69 74 20 52 65  |_ID%,11,"Edit Re|
000077f0  73 6f 75 72 63 65 20 41  70 70 6c 69 63 61 74 69  |source Applicati|
00007800  6f 6e 73 22 0d 6b ee 0e  c9 22 70 72 65 64 65 73  |ons".k..."predes|
00007810  6b 22 0d 6b f8 34 c8 99  54 5f 54 4f 4d 4f 25 2c  |k".k.4..T_TOMO%,|
00007820  30 2c 4d 61 69 6e 6c 69  73 74 5f 49 44 25 2c 31  |0,Mainlist_ID%,1|
00007830  31 2c 22 45 64 69 74 20  50 72 65 64 65 73 6b 20  |1,"Edit Predesk |
00007840  46 69 6c 65 73 22 0d 6c  02 05 cb 0d 6c 0c 05 cb  |Files".l....l...|
00007850  0d 6c 16 1e c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |.l...."Wimp_Open|
00007860  57 69 6e 64 6f 77 22 2c  2c 42 6c 63 6b 25 0d 6c  |Window",,Blck%.l|
00007870  20 06 c9 32 0d 6c 2a 20  c8 99 22 57 69 6d 70 5f  | ..2.l* .."Wimp_|
00007880  52 65 64 72 61 77 57 69  6e 64 6f 77 22 2c 2c 42  |RedrawWindow",,B|
00007890  6c 63 6b 25 0d 6c 34 05  cb 0d 6c 3e 05 e1 0d 6c  |lck%.l4...l>...l|
000078a0  d4 26 dd f2 64 72 61 77  5f 73 75 62 28 73 69 64  |.&..draw_sub(sid|
000078b0  25 2c 72 65 61 73 6f 6e  25 2c 6d 61 69 6e 25 2c  |%,reason%,main%,|
000078c0  62 68 25 29 0d 6d 2e 18  ea 61 25 2c 72 25 2c 6f  |bh%).m...a%,r%,o|
000078d0  73 5f 77 78 25 2c 6f 73  5f 77 79 25 0d 6d 4c 10  |s_wx%,os_wy%.mL.|
000078e0  e7 72 65 61 73 6f 6e 25  3c 3e 32 8c 0d 6d 74 1c  |.reason%<>2..mt.|
000078f0  42 75 66 31 25 21 30 3d  53 75 62 6c 69 73 74 25  |Buf1%!0=Sublist%|
00007900  28 73 69 64 25 2c 32 29  0d 6d 7e 22 c8 99 22 57  |(sid%,2).m~".."W|
00007910  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00007920  74 65 22 2c 2c 42 75 66  31 25 0d 6d 88 1d 6f 73  |te",,Buf1%.m..os|
00007930  5f 77 78 25 3d 28 42 75  66 31 25 21 34 2d 42 75  |_wx%=(Buf1%!4-Bu|
00007940  66 31 25 21 32 30 29 0d  6d 92 1e 6f 73 5f 77 79  |f1%!20).m..os_wy|
00007950  25 3d 28 42 75 66 31 25  21 31 36 2d 42 75 66 31  |%=(Buf1%!16-Buf1|
00007960  25 21 32 34 29 0d 6d 9c  1c 42 75 66 32 25 21 30  |%!24).m..Buf2%!0|
00007970  3d 53 75 62 6c 69 73 74  25 28 73 69 64 25 2c 31  |=Sublist%(sid%,1|
00007980  29 0d 6d a6 22 c8 99 22  57 69 6d 70 5f 47 65 74  |).m.".."Wimp_Get|
00007990  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 42 75  |WindowState",,Bu|
000079a0  66 32 25 0d 6d b0 23 42  75 66 32 25 21 34 3d 6f  |f2%.m.#Buf2%!4=o|
000079b0  73 5f 77 78 25 2b 53 75  62 6c 69 73 74 25 28 73  |s_wx%+Sublist%(s|
000079c0  69 64 25 2c 33 29 0d 6d  ba 34 42 75 66 32 25 21  |id%,3).m.4Buf2%!|
000079d0  38 3d 6f 73 5f 77 79 25  2b 53 75 62 6c 69 73 74  |8=os_wy%+Sublist|
000079e0  25 28 73 69 64 25 2c 34  29 2b 53 75 62 6c 69 73  |%(sid%,4)+Sublis|
000079f0  74 25 28 73 69 64 25 2c  36 29 0d 6d c4 35 42 75  |t%(sid%,6).m.5Bu|
00007a00  66 32 25 21 31 32 3d 6f  73 5f 77 78 25 2b 53 75  |f2%!12=os_wx%+Su|
00007a10  62 6c 69 73 74 25 28 73  69 64 25 2c 33 29 2b 53  |blist%(sid%,3)+S|
00007a20  75 62 6c 69 73 74 25 28  73 69 64 25 2c 35 29 0d  |ublist%(sid%,5).|
00007a30  6d ce 24 42 75 66 32 25  21 31 36 3d 6f 73 5f 77  |m.$Buf2%!16=os_w|
00007a40  79 25 2b 53 75 62 6c 69  73 74 25 28 73 69 64 25  |y%+Sublist%(sid%|
00007a50  2c 34 29 0d 6d d8 05 cd  0d 6e 00 0e c8 8e 72 65  |,4).m....n....re|
00007a60  61 73 6f 6e 25 ca 0d 6e  0a 06 c9 30 0d 6e 32 19  |ason%..n...0.n2.|
00007a70  e7 28 42 75 66 31 25 21  33 32 80 26 31 30 30 30  |.(Buf1%!32.&1000|
00007a80  30 29 3d 30 8c 0d 6e 64  1c f2 73 65 74 5f 6c 69  |0)=0..nd..set_li|
00007a90  73 74 5f 65 78 74 65 6e  74 28 73 69 64 25 2c a3  |st_extent(sid%,.|
00007aa0  29 0d 6e 6e 0f 42 75 66  32 25 21 32 38 3d 2d 31  |).nn.Buf2%!28=-1|
00007ab0  0d 6e 78 1e c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |.nx..."Wimp_Open|
00007ac0  57 69 6e 64 6f 77 22 2c  2c 42 75 66 32 25 0d 6e  |Window",,Buf2%.n|
00007ad0  82 05 cc 0d 6e be 1c f2  73 65 74 5f 6c 69 73 74  |....n...set_list|
00007ae0  5f 65 78 74 65 6e 74 28  73 69 64 25 2c b9 29 0d  |_extent(sid%,.).|
00007af0  6e c8 0b c8 8e 73 69 64  25 ca 0d 6e d2 06 c9 31  |n....sid%..n...1|
00007b00  0d 6e fa 2f f2 64 72 61  77 5f 6c 69 73 74 28 31  |.n./.draw_list(1|
00007b10  2c 4f 62 6a 73 25 2c 4f  70 74 72 25 28 29 2c 4f  |,Objs%,Optr%(),O|
00007b20  64 61 74 24 28 29 2c 4f  66 6c 67 25 28 29 29 0d  |dat$(),Oflg%()).|
00007b30  6f 04 06 c9 32 0d 6f 2c  31 f2 64 72 61 77 5f 6c  |o...2.o,1.draw_l|
00007b40  69 73 74 28 32 2c 54 79  64 69 72 73 25 2c 54 79  |ist(2,Tydirs%,Ty|
00007b50  70 74 25 28 29 2c 54 64  69 72 24 28 29 2c 54 66  |pt%(),Tdir$(),Tf|
00007b60  6c 67 25 28 29 29 0d 6f  36 06 c9 33 0d 6f 5e 31  |lg%()).o6..3.o^1|
00007b70  f2 64 72 61 77 5f 6c 69  73 74 28 33 2c 54 6e 64  |.draw_list(3,Tnd|
00007b80  69 72 73 25 2c 54 6e 70  74 25 28 29 2c 54 64 69  |irs%,Tnpt%(),Tdi|
00007b90  72 24 28 29 2c 54 66 6c  67 25 28 29 29 0d 6f 68  |r$(),Tflg%()).oh|
00007ba0  05 cb 0d 6f 72 05 cd 0d  6f 7c 06 c9 32 0d 6f a4  |...or...o|..2.o.|
00007bb0  0b c8 8e 73 69 64 25 ca  0d 6f ae 06 c9 31 0d 6f  |...sid%..o...1.o|
00007bc0  d6 2f f2 64 72 61 77 5f  6c 69 73 74 28 31 2c 4f  |./.draw_list(1,O|
00007bd0  62 6a 73 25 2c 4f 70 74  72 25 28 29 2c 4f 64 61  |bjs%,Optr%(),Oda|
00007be0  74 24 28 29 2c 4f 66 6c  67 25 28 29 29 0d 6f e0  |t$(),Oflg%()).o.|
00007bf0  06 c9 32 0d 70 08 31 f2  64 72 61 77 5f 6c 69 73  |..2.p.1.draw_lis|
00007c00  74 28 32 2c 54 79 64 69  72 73 25 2c 54 79 70 74  |t(2,Tydirs%,Typt|
00007c10  25 28 29 2c 54 64 69 72  24 28 29 2c 54 66 6c 67  |%(),Tdir$(),Tflg|
00007c20  25 28 29 29 0d 70 12 06  c9 33 0d 70 3a 31 f2 64  |%()).p...3.p:1.d|
00007c30  72 61 77 5f 6c 69 73 74  28 33 2c 54 6e 64 69 72  |raw_list(3,Tndir|
00007c40  73 25 2c 54 6e 70 74 25  28 29 2c 54 64 69 72 24  |s%,Tnpt%(),Tdir$|
00007c50  28 29 2c 54 66 6c 67 25  28 29 29 0d 70 44 05 cb  |(),Tflg%()).pD..|
00007c60  0d 70 4e 06 c9 33 0d 70  76 10 42 75 66 32 25 21  |.pN..3.pv.Buf2%!|
00007c70  32 38 3d 62 68 25 0d 70  80 1e c8 99 22 57 69 6d  |28=bh%.p...."Wim|
00007c80  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 42  |p_OpenWindow",,B|
00007c90  75 66 32 25 0d 70 8a 05  cb 0d 70 94 05 e1 0d 70  |uf2%.p....p....p|
00007ca0  f8 23 dd f2 73 65 74 5f  6c 69 73 74 5f 65 78 74  |.#..set_list_ext|
00007cb0  65 6e 74 28 73 69 64 25  2c 72 65 64 72 61 77 25  |ent(sid%,redraw%|
00007cc0  29 0d 71 20 1c 42 6c 63  6b 25 21 30 3d 53 75 62  |).q .Blck%!0=Sub|
00007cd0  6c 69 73 74 25 28 73 69  64 25 2c 31 29 0d 71 2a  |list%(sid%,1).q*|
00007ce0  26 c8 99 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |&.."Wimp_GetWind|
00007cf0  6f 77 49 6e 66 6f 22 2c  2c 28 42 6c 63 6b 25 84  |owInfo",,(Blck%.|
00007d00  26 31 29 0d 71 34 0b c8  8e 73 69 64 25 ca 0d 71  |&1).q4...sid%..q|
00007d10  3e 06 c9 31 0d 71 48 1c  42 6c 63 6b 25 21 34 38  |>..1.qH.Blck%!48|
00007d20  3d 2d 46 6f 6e 74 5f 4c  68 25 2a 4f 62 6a 73 25  |=-Font_Lh%*Objs%|
00007d30  0d 71 52 06 c9 32 0d 71  5c 1e 42 6c 63 6b 25 21  |.qR..2.q\.Blck%!|
00007d40  34 38 3d 2d 46 6f 6e 74  5f 4c 68 25 2a 54 79 64  |48=-Font_Lh%*Tyd|
00007d50  69 72 73 25 0d 71 66 06  c9 33 0d 71 70 1e 42 6c  |irs%.qf..3.qp.Bl|
00007d60  63 6b 25 21 34 38 3d 2d  46 6f 6e 74 5f 4c 68 25  |ck%!48=-Font_Lh%|
00007d70  2a 54 6e 64 69 72 73 25  0d 71 7a 05 cb 0d 71 84  |*Tndirs%.qz...q.|
00007d80  21 e7 42 6c 63 6b 25 21  34 38 3e 28 42 6c 63 6b  |!.Blck%!48>(Blck|
00007d90  25 21 38 2d 42 6c 63 6b  25 21 31 36 29 8c 0d 71  |%!8-Blck%!16)..q|
00007da0  8e 1d 42 6c 63 6b 25 21  34 38 3d 42 6c 63 6b 25  |..Blck%!48=Blck%|
00007db0  21 38 2d 42 6c 63 6b 25  21 31 36 0d 71 98 05 cd  |!8-Blck%!16.q...|
00007dc0  0d 71 a2 27 c8 99 22 57  69 6d 70 5f 53 65 74 45  |.q.'.."Wimp_SetE|
00007dd0  78 74 65 6e 74 22 2c 42  6c 63 6b 25 21 30 2c 42  |xtent",Blck%!0,B|
00007de0  6c 63 6b 25 2b 34 34 0d  71 ac 0d e7 72 65 64 72  |lck%+44.q...redr|
00007df0  61 77 25 8c 0d 71 de 1e  c8 99 22 57 69 6d 70 5f  |aw%..q...."Wimp_|
00007e00  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 42 6c 63  |OpenWindow",,Blc|
00007e10  6b 25 0d 71 e8 05 cd 0d  71 f2 05 e1 0d 72 38 35  |k%.q....q....r85|
00007e20  dd f2 64 72 61 77 5f 6c  69 73 74 28 73 69 64 25  |..draw_list(sid%|
00007e30  2c 6e 74 72 73 25 2c 70  74 72 73 25 28 29 2c 73  |,ntrs%,ptrs%(),s|
00007e40  64 61 74 61 24 28 29 2c  66 6c 61 67 73 25 28 29  |data$(),flags%()|
00007e50  29 0d 72 ba 47 ea 66 68  25 2c 6d 25 2c 6f 73 5f  |).r.G.fh%,m%,os_|
00007e60  77 6c 25 2c 6f 73 5f 77  74 25 2c 77 6b 5f 72 6c  |wl%,os_wt%,wk_rl|
00007e70  25 2c 77 6b 5f 72 74 25  2c 77 6b 5f 72 62 25 2c  |%,wk_rt%,wk_rb%,|
00007e80  74 74 25 2c 74 62 25 2c  72 25 2c 65 25 2c 63 6c  |tt%,tb%,r%,e%,cl|
00007e90  73 25 2c 78 70 6f 73 25  0d 72 ce 16 63 6c 73 25  |s%,xpos%.r..cls%|
00007ea0  3d de 28 73 64 61 74 61  24 28 29 2c 32 29 0d 72  |=.(sdata$(),2).r|
00007eb0  d8 31 c8 99 22 46 6f 6e  74 5f 46 69 6e 64 46 6f  |.1.."Font_FindFo|
00007ec0  6e 74 22 2c 2c 46 6f 6e  74 5f 4e 61 6d 65 24 2c  |nt",,Font_Name$,|
00007ed0  31 39 32 2c 31 39 32 2c  30 2c 30 b8 66 68 25 0d  |192,192,0,0.fh%.|
00007ee0  72 e2 24 c8 99 22 46 6f  6e 74 5f 52 65 61 64 49  |r.$.."Font_ReadI|
00007ef0  6e 66 6f 22 2c 66 68 25  b8 2c 2c 66 62 25 2c 2c  |nfo",fh%.,,fb%,,|
00007f00  66 74 25 0d 72 ec 16 46  6f 6e 74 5f 4c 68 25 3d  |ft%.r..Font_Lh%=|
00007f10  66 74 25 2d 66 62 25 2b  34 0d 72 f6 1c 42 6c 63  |ft%-fb%+4.r..Blc|
00007f20  6b 25 21 30 3d 53 75 62  6c 69 73 74 25 28 73 69  |k%!0=Sublist%(si|
00007f30  64 25 2c 31 29 0d 73 00  23 c8 99 22 57 69 6d 70  |d%,1).s.#.."Wimp|
00007f40  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
00007f50  42 6c 63 6b 25 b8 6d 25  0d 73 0a 05 f5 0d 73 32  |Blck%.m%.s....s2|
00007f60  2d e7 28 42 6c 63 6b 25  21 33 36 3e 42 6c 63 6b  |-.(Blck%!36>Blck|
00007f70  25 21 32 38 29 80 28 42  6c 63 6b 25 21 34 30 3e  |%!28).(Blck%!40>|
00007f80  42 6c 63 6b 25 21 33 32  29 8c 0d 73 5a 1d 6f 73  |Blck%!32)..sZ.os|
00007f90  5f 77 6c 25 3d 28 42 6c  63 6b 25 21 34 2d 42 6c  |_wl%=(Blck%!4-Bl|
00007fa0  63 6b 25 21 32 30 29 0d  73 64 1e 6f 73 5f 77 74  |ck%!20).sd.os_wt|
00007fb0  25 3d 28 42 6c 63 6b 25  21 31 36 2d 42 6c 63 6b  |%=(Blck%!16-Blck|
00007fc0  25 21 32 34 29 0d 73 96  1a 77 6b 5f 72 6c 25 3d  |%!24).s..wk_rl%=|
00007fd0  42 6c 63 6b 25 21 32 38  2d 6f 73 5f 77 6c 25 0d  |Blck%!28-os_wl%.|
00007fe0  73 a0 1a 77 6b 5f 72 74  25 3d 42 6c 63 6b 25 21  |s..wk_rt%=Blck%!|
00007ff0  34 30 2d 6f 73 5f 77 74  25 0d 73 aa 1a 77 6b 5f  |40-os_wt%.s..wk_|
00008000  72 62 25 3d 42 6c 63 6b  25 21 33 32 2d 6f 73 5f  |rb%=Blck%!32-os_|
00008010  77 74 25 0d 73 d2 1d 74  74 25 3d a8 28 2d 77 6b  |wt%.s..tt%=.(-wk|
00008020  5f 72 74 25 2f 46 6f 6e  74 5f 4c 68 25 29 2b 31  |_rt%/Font_Lh%)+1|
00008030  0d 73 dc 1d 74 62 25 3d  a8 28 2d 77 6b 5f 72 62  |.s..tb%=.(-wk_rb|
00008040  25 2f 46 6f 6e 74 5f 4c  68 25 29 2b 31 0d 74 22  |%/Font_Lh%)+1.t"|
00008050  0f e3 72 25 3d 74 74 25  b8 74 62 25 0d 74 54 10  |..r%=tt%.tb%.tT.|
00008060  70 25 3d 70 74 72 73 25  28 72 25 29 0d 74 5e 0a  |p%=ptrs%(r%).t^.|
00008070  e7 70 25 3e 30 8c 0d 74  86 0e e3 63 25 3d 31 b8  |.p%>0..t...c%=1.|
00008080  63 6c 73 25 0d 74 90 1f  e7 28 66 6c 61 67 73 25  |cls%.t...(flags%|
00008090  28 70 25 2c 63 25 29 80  26 31 30 30 29 3d 26 31  |(p%,c%).&100)=&1|
000080a0  30 30 8c 0d 74 b8 27 78  70 6f 73 25 3d 28 66 6c  |00..t.'xpos%=(fl|
000080b0  61 67 73 25 28 70 25 2c  63 25 29 80 26 66 66 66  |ags%(p%,c%).&fff|
000080c0  66 30 30 30 30 29 3e 3e  31 36 0d 74 c2 32 c8 99  |f0000)>>16.t.2..|
000080d0  22 57 69 6d 70 5f 53 65  74 46 6f 6e 74 43 6f 6c  |"Wimp_SetFontCol|
000080e0  6f 75 72 73 22 2c 2c 30  2c 28 66 6c 61 67 73 25  |ours",,0,(flags%|
000080f0  28 70 25 2c 63 25 29 80  20 31 35 29 0d 74 cc 4d  |(p%,c%). 15).t.M|
00008100  c8 99 22 46 6f 6e 74 5f  50 61 69 6e 74 22 2c 66  |.."Font_Paint",f|
00008110  68 25 2c 73 64 61 74 61  24 28 70 25 2c 63 25 29  |h%,sdata$(p%,c%)|
00008120  2c 31 36 2c 6f 73 5f 77  6c 25 2b 78 70 6f 73 25  |,16,os_wl%+xpos%|
00008130  2c 6f 73 5f 77 74 25 2d  72 25 2a 46 6f 6e 74 5f  |,os_wt%-r%*Font_|
00008140  4c 68 25 2d 66 62 25 2d  34 0d 74 d6 05 cd 0d 74  |Lh%-fb%-4.t....t|
00008150  e0 07 ed 63 25 0d 74 ea  05 cd 0d 74 f4 07 ed 72  |...c%.t....t...r|
00008160  25 0d 74 fe 05 cd 0d 75  08 0b e7 6d 25 3c 3e 30  |%.t....u...m%<>0|
00008170  8c 0d 75 30 23 c8 99 22  57 69 6d 70 5f 47 65 74  |..u0#.."Wimp_Get|
00008180  52 65 63 74 61 6e 67 6c  65 22 2c 2c 42 6c 63 6b  |Rectangle",,Blck|
00008190  25 b8 6d 25 0d 75 3a 05  cd 0d 75 44 09 fd 6d 25  |%.m%.u:...uD..m%|
000081a0  3d 30 0d 75 4e 05 e1 0d  75 94 11 dd f2 67 65 74  |=0.uN...u....get|
000081b0  5f 61 70 70 6c 69 73 74  0d 76 2a 29 ea 61 6c 69  |_applist.v*).ali|
000081c0  6e 65 24 2c 66 31 25 2c  70 25 2c 6f 66 66 73 65  |ne$,f1%,p%,offse|
000081d0  74 25 2c 61 70 70 24 2c  66 6f 75 6e 64 25 2c 72  |t%,app$,found%,r|
000081e0  25 0d 76 52 0b 4f 62 6a  73 25 3d 30 0d 76 5c 0d  |%.vR.Objs%=0.v\.|
000081f0  4f 66 6c 67 25 28 29 3d  37 0d 76 66 0d 4f 70 74  |Oflg%()=7.vf.Opt|
00008200  72 25 28 29 3d 30 0d 76  70 0e 4f 64 61 74 24 28  |r%()=0.vp.Odat$(|
00008210  29 3d 22 22 0d 76 7a 11  c8 8e 45 64 69 74 5f 54  |)="".vz...Edit_T|
00008220  79 70 65 24 ca 0d 76 84  10 c9 22 72 65 73 6f 75  |ype$..v..."resou|
00008230  72 63 65 73 22 0d 76 ac  3f f2 67 65 74 5f 66 69  |rces".v.?.get_fi|
00008240  6c 65 6c 69 73 74 65 64  28 22 3c 63 68 6f 69 63  |lelisted("<choic|
00008250  65 73 24 77 72 69 74 65  3e 2e 42 6f 6f 74 2e 50  |es$write>.Boot.P|
00008260  72 65 44 65 73 6b 54 6f  70 22 2c 22 41 64 64 41  |reDeskTop","AddA|
00008270  70 70 22 29 0d 76 b6 0b  c9 22 62 6f 6f 74 22 0d  |pp").v..."boot".|
00008280  76 de 40 f2 67 65 74 5f  66 69 6c 65 6c 69 73 74  |v.@.get_filelist|
00008290  65 64 28 22 3c 63 68 6f  69 63 65 73 24 77 72 69  |ed("<choices$wri|
000082a0  74 65 3e 2e 42 6f 6f 74  2e 44 65 73 6b 74 6f 70  |te>.Boot.Desktop|
000082b0  22 2c 22 46 69 6c 65 72  5f 42 6f 6f 74 22 29 0d  |","Filer_Boot").|
000082c0  76 e8 0e c9 22 61 75 74  6f 72 75 6e 22 0d 77 10  |v..."autorun".w.|
000082d0  26 f2 67 65 74 5f 64 69  72 6c 69 73 74 65 64 28  |&.get_dirlisted(|
000082e0  22 3c 42 6f 6f 74 24 54  6f 42 65 54 61 73 6b 73  |"<Boot$ToBeTasks|
000082f0  3e 22 29 0d 77 1a 0e c9  22 70 72 65 64 65 73 6b  |>").w..."predesk|
00008300  22 0d 77 42 27 f2 67 65  74 5f 64 69 72 6c 69 73  |".wB'.get_dirlis|
00008310  74 65 64 28 22 3c 42 6f  6f 74 24 54 6f 42 65 4c  |ted("<Boot$ToBeL|
00008320  6f 61 64 65 64 3e 22 29  0d 77 4c 05 cb 0d 77 74  |oaded>").wL...wt|
00008330  0f 4f 6e 74 72 25 3d 4f  62 6a 73 25 0d 77 7e 0f  |.Ontr%=Objs%.w~.|
00008340  e3 72 25 3d 31 b8 4f 62  6a 73 25 0d 77 88 10 4f  |.r%=1.Objs%.w..O|
00008350  70 74 72 25 28 72 25 29  3d 72 25 0d 77 92 29 4f  |ptr%(r%)=r%.w.)O|
00008360  66 6c 67 25 28 72 25 2c  31 29 3d 4f 66 6c 67 25  |flg%(r%,1)=Oflg%|
00008370  28 72 25 2c 31 29 84 28  32 34 3c 3c 31 36 29 84  |(r%,1).(24<<16).|
00008380  26 31 30 30 0d 77 9c 2a  4f 66 6c 67 25 28 72 25  |&100.w.*Oflg%(r%|
00008390  2c 32 29 3d 4f 66 6c 67  25 28 72 25 2c 32 29 84  |,2)=Oflg%(r%,2).|
000083a0  28 32 30 30 3c 3c 31 36  29 84 26 31 30 30 0d 77  |(200<<16).&100.w|
000083b0  a6 11 c8 8e 45 64 69 74  5f 54 79 70 65 24 ca 0d  |....Edit_Type$..|
000083c0  77 b0 0b c9 22 62 6f 6f  74 22 0d 77 ba 2a 4f 66  |w..."boot".w.*Of|
000083d0  6c 67 25 28 72 25 2c 34  29 3d 4f 66 6c 67 25 28  |lg%(r%,4)=Oflg%(|
000083e0  72 25 2c 34 29 84 28 35  31 32 3c 3c 31 36 29 84  |r%,4).(512<<16).|
000083f0  26 31 30 30 0d 77 c4 10  c9 22 72 65 73 6f 75 72  |&100.w..."resour|
00008400  63 65 73 22 0d 77 ce 2a  4f 66 6c 67 25 28 72 25  |ces".w.*Oflg%(r%|
00008410  2c 34 29 3d 4f 66 6c 67  25 28 72 25 2c 34 29 84  |,4)=Oflg%(r%,4).|
00008420  28 35 31 32 3c 3c 31 36  29 84 26 31 30 30 0d 77  |(512<<16).&100.w|
00008430  d8 0e c9 22 61 75 74 6f  72 75 6e 22 0d 77 e2 2a  |..."autorun".w.*|
00008440  4f 66 6c 67 25 28 72 25  2c 34 29 3d 4f 66 6c 67  |Oflg%(r%,4)=Oflg|
00008450  25 28 72 25 2c 34 29 84  28 34 38 30 3c 3c 31 36  |%(r%,4).(480<<16|
00008460  29 84 26 31 30 30 0d 77  ec 0e c9 22 70 72 65 64  |).&100.w..."pred|
00008470  65 73 6b 22 0d 77 f6 2a  4f 66 6c 67 25 28 72 25  |esk".w.*Oflg%(r%|
00008480  2c 34 29 3d 4f 66 6c 67  25 28 72 25 2c 34 29 84  |,4)=Oflg%(r%,4).|
00008490  28 34 30 30 3c 3c 31 36  29 84 26 31 30 30 0d 78  |(400<<16).&100.x|
000084a0  00 05 cb 0d 78 0a 07 ed  72 25 0d 78 14 05 e1 0d  |....x...r%.x....|
000084b0  78 5a 20 dd f2 67 65 74  5f 66 69 6c 65 6c 69 73  |xZ ..get_filelis|
000084c0  74 65 64 28 66 69 6c 65  24 2c 63 6f 6d 24 29 0d  |ted(file$,com$).|
000084d0  78 82 12 ea 66 31 25 2c  61 6c 69 6e 65 24 2c 70  |x...f1%,aline$,p|
000084e0  25 0d 78 96 10 66 31 25  3d 8e 28 66 69 6c 65 24  |%.x..f1%=.(file$|
000084f0  29 0d 78 a0 05 f5 0d 78  aa 10 61 6c 69 6e 65 24  |).x....x..aline$|
00008500  3d be 23 66 31 25 0d 78  b4 5f fd 28 a7 61 6c 69  |=.#f1%.x._.(.ali|
00008510  6e 65 24 2c 22 7c 53 74  61 72 74 22 29 3e 30 80  |ne$,"|Start")>0.|
00008520  a7 61 6c 69 6e 65 24 2c  22 4d 61 72 73 22 29 3e  |.aline$,"Mars")>|
00008530  30 80 a7 61 6c 69 6e 65  24 2c 22 21 42 6f 6f 74  |0..aline$,"!Boot|
00008540  70 6c 75 73 22 29 3e 30  80 a7 61 6c 69 6e 65 24  |plus")>0..aline$|
00008550  2c 45 64 69 74 5f 54 79  70 65 24 29 3e 30 29 84  |,Edit_Type$)>0).|
00008560  c5 23 66 31 25 0d 78 be  0c e7 ac c5 23 66 31 25  |.#f1%.x.....#f1%|
00008570  8c 0d 78 e6 05 f5 0d 78  f0 10 61 6c 69 6e 65 24  |..x....x..aline$|
00008580  3d be 23 66 31 25 0d 78  fa 15 e7 a7 61 6c 69 6e  |=.#f1%.x....alin|
00008590  65 24 2c 63 6f 6d 24 29  3d 31 8c 0d 79 04 14 70  |e$,com$)=1..y..p|
000085a0  25 3d a7 61 6c 69 6e 65  24 2c 22 2e 21 22 29 0d  |%=.aline$,".!").|
000085b0  79 0e 0a e7 70 25 3e 30  8c 0d 79 18 0c 4f 62 6a  |y...p%>0..y..Obj|
000085c0  73 25 2b 3d 31 0d 79 22  20 4f 64 61 74 24 28 4f  |s%+=1.y" Odat$(O|
000085d0  62 6a 73 25 2c 31 29 3d  c1 61 6c 69 6e 65 24 2c  |bjs%,1)=.aline$,|
000085e0  70 25 2b 31 29 0d 79 2c  2c 4f 64 61 74 24 28 4f  |p%+1).y,,Odat$(O|
000085f0  62 6a 73 25 2c 32 29 3d  22 41 70 70 6c 69 63 61  |bjs%,2)="Applica|
00008600  74 69 6f 6e 20 28 72 65  66 65 72 65 6e 63 65 29  |tion (reference)|
00008610  22 0d 79 36 19 4f 64 61  74 24 28 4f 62 6a 73 25  |".y6.Odat$(Objs%|
00008620  2c 33 29 3d 22 32 30 30  30 22 0d 79 5e 13 70 25  |,3)="2000".y^.p%|
00008630  3d a7 61 6c 69 6e 65 24  2c 22 20 22 29 0d 79 68  |=.aline$," ").yh|
00008640  20 4f 64 61 74 24 28 4f  62 6a 73 25 2c 35 29 3d  | Odat$(Objs%,5)=|
00008650  c1 61 6c 69 6e 65 24 2c  70 25 2b 31 29 0d 79 72  |.aline$,p%+1).yr|
00008660  24 c8 99 22 4f 53 5f 46  69 6c 65 22 2c 32 33 2c  |$.."OS_File",23,|
00008670  4f 64 61 74 24 28 4f 62  6a 73 25 2c 35 29 b8 70  |Odat$(Objs%,5).p|
00008680  25 0d 79 7c 0a e7 70 25  3d 30 8c 0d 79 86 25 4f  |%.y|..p%=0..y.%O|
00008690  64 61 74 24 28 4f 62 6a  73 25 2c 34 29 3d 22 4f  |dat$(Objs%,4)="O|
000086a0  72 69 67 69 6e 61 6c 20  4d 69 73 73 69 6e 67 22  |riginal Missing"|
000086b0  0d 79 90 15 4f 66 6c 67  25 28 4f 62 6a 73 25 2c  |.y..Oflg%(Objs%,|
000086c0  34 29 3d 31 31 0d 79 9a  05 cd 0d 79 a4 05 cd 0d  |4)=11.y....y....|
000086d0  79 ae 05 cd 0d 79 b8 1c  fd a7 61 6c 69 6e 65 24  |y....y....aline$|
000086e0  2c 22 7c 45 6e 64 22 29  3e 30 84 c5 23 66 31 25  |,"|End")>0..#f1%|
000086f0  0d 79 c2 05 cd 0d 79 cc  09 d9 23 66 31 25 0d 79  |.y....y...#f1%.y|
00008700  d6 05 e1 0d 7a 1c 19 dd  f2 67 65 74 5f 64 69 72  |....z....get_dir|
00008710  6c 69 73 74 65 64 28 64  69 72 24 29 0d 7a 44 34  |listed(dir$).zD4|
00008720  ea 66 69 6c 65 24 2c 6f  66 66 73 65 74 25 2c 66  |.file$,offset%,f|
00008730  6f 75 6e 64 25 2c 6c 25  2c 70 25 2c 6c 24 2c 66  |ound%,l%,p%,l$,f|
00008740  25 2c 61 24 2c 62 24 2c  63 24 2c 61 25 2c 63 25  |%,a$,b$,c$,a%,c%|
00008750  0d 7a 58 0d 6f 66 66 73  65 74 25 3d 30 0d 7a 62  |.zX.offset%=0.zb|
00008760  05 f5 0d 7a 6c 39 c8 99  22 4f 53 5f 47 42 50 42  |...zl9.."OS_GBPB|
00008770  22 2c 31 32 2c 64 69 72  24 2c 42 75 66 31 25 2c  |",12,dir$,Buf1%,|
00008780  31 2c 6f 66 66 73 65 74  25 2c 31 32 38 2c 30 b8  |1,offset%,128,0.|
00008790  2c 2c 2c 2c 6f 66 66 73  65 74 25 0d 7a 76 1f e7  |,,,,offset%.zv..|
000087a0  6f 66 66 73 65 74 25 3c  3e 2d 31 80 20 42 75 66  |offset%<>-1. Buf|
000087b0  31 25 21 32 30 3c 3e 2d  31 8c 0d 7a 80 0f c8 8e  |1%!20<>-1..z....|
000087c0  42 75 66 31 25 21 32 30  ca 0d 7a 8a 0a c9 26 31  |Buf1%!20..z...&1|
000087d0  30 30 30 0d 7a b2 0c 4f  62 6a 73 25 2b 3d 31 0d  |000.z..Objs%+=1.|
000087e0  7a bc 26 4f 64 61 74 24  28 4f 62 6a 73 25 2c 31  |z.&Odat$(Objs%,1|
000087f0  29 3d a4 69 6e 64 69 72  65 63 74 28 42 75 66 31  |)=.indirect(Buf1|
00008800  25 2b 32 34 29 0d 7a c6  1e 4f 64 61 74 24 28 4f  |%+24).z..Odat$(O|
00008810  62 6a 73 25 2c 32 29 3d  22 44 69 72 65 63 74 6f  |bjs%,2)="Directo|
00008820  72 79 22 0d 7a d0 19 4f  64 61 74 24 28 4f 62 6a  |ry".z..Odat$(Obj|
00008830  73 25 2c 33 29 3d 22 31  30 30 30 22 0d 7a da 15  |s%,3)="1000".z..|
00008840  4f 64 61 74 24 28 4f 62  6a 73 25 2c 34 29 3d 22  |Odat$(Objs%,4)="|
00008850  22 0d 7a e4 2a 4f 64 61  74 24 28 4f 62 6a 73 25  |".z.*Odat$(Objs%|
00008860  2c 35 29 3d 64 69 72 24  2b 22 2e 22 2b 4f 64 61  |,5)=dir$+"."+Oda|
00008870  74 24 28 4f 62 6a 73 25  2c 31 29 0d 7a ee 0a c9  |t$(Objs%,1).z...|
00008880  26 32 30 30 30 0d 7b 16  0c 4f 62 6a 73 25 2b 3d  |&2000.{..Objs%+=|
00008890  31 0d 7b 20 26 4f 64 61  74 24 28 4f 62 6a 73 25  |1.{ &Odat$(Objs%|
000088a0  2c 31 29 3d a4 69 6e 64  69 72 65 63 74 28 42 75  |,1)=.indirect(Bu|
000088b0  66 31 25 2b 32 34 29 0d  7b 2a 2a 4f 64 61 74 24  |f1%+24).{**Odat$|
000088c0  28 4f 62 6a 73 25 2c 35  29 3d 64 69 72 24 2b 22  |(Objs%,5)=dir$+"|
000088d0  2e 22 2b 4f 64 61 74 24  28 4f 62 6a 73 25 2c 31  |."+Odat$(Objs%,1|
000088e0  29 0d 7b 34 4f c8 99 22  4f 53 5f 47 42 50 42 22  |).{4O.."OS_GBPB"|
000088f0  2c 31 30 2c 64 69 72 24  2b 22 2e 22 2b 4f 64 61  |,10,dir$+"."+Oda|
00008900  74 24 28 4f 62 6a 73 25  2c 31 29 2c 42 75 66 31  |t$(Objs%,1),Buf1|
00008910  25 2c 31 30 2c 30 2c 32  30 30 2c 22 21 53 70 72  |%,10,0,200,"!Spr|
00008920  69 74 65 73 2a 22 b8 2c  2c 2c 66 6f 75 6e 64 25  |ites*".,,,found%|
00008930  0d 7b 3e 0e e7 66 6f 75  6e 64 25 3d 30 8c 0d 7b  |.{>..found%=0..{|
00008940  66 35 c8 99 22 4f 53 5f  46 69 6c 65 22 2c 32 30  |f5.."OS_File",20|
00008950  2c 64 69 72 24 2b 22 2e  22 2b 4f 64 61 74 24 28  |,dir$+"."+Odat$(|
00008960  4f 62 6a 73 25 2c 31 29  2b 22 2e 21 52 75 6e 22  |Objs%,1)+".!Run"|
00008970  b8 66 25 0d 7b 70 0a e7  66 25 3d 30 8c 0d 7b 98  |.f%.{p..f%=0..{.|
00008980  28 4f 64 61 74 24 28 4f  62 6a 73 25 2c 32 29 3d  |(Odat$(Objs%,2)=|
00008990  22 41 70 70 6c 69 63 61  74 69 6f 6e 20 28 66 75  |"Application (fu|
000089a0  6c 6c 3f 29 22 0d 7b a2  21 4f 64 61 74 24 28 4f  |ll?)".{.!Odat$(O|
000089b0  62 6a 73 25 2c 34 29 3d  22 4e 6f 20 21 72 75 6e  |bjs%,4)="No !run|
000089c0  20 66 69 6c 65 22 0d 7b  ac 15 4f 66 6c 67 25 28  | file".{..Oflg%(|
000089d0  4f 62 6a 73 25 2c 34 29  3d 31 31 0d 7b b6 05 cc  |Objs%,4)=11.{...|
000089e0  0d 7b de 28 4f 64 61 74  24 28 4f 62 6a 73 25 2c  |.{.(Odat$(Objs%,|
000089f0  32 29 3d 22 41 70 70 6c  69 63 61 74 69 6f 6e 20  |2)="Application |
00008a00  28 61 6c 69 61 73 29 22  0d 7b e8 29 66 25 3d 8e  |(alias)".{.)f%=.|
00008a10  28 64 69 72 24 2b 22 2e  22 2b 4f 64 61 74 24 28  |(dir$+"."+Odat$(|
00008a20  4f 62 6a 73 25 2c 31 29  2b 22 2e 21 52 75 6e 22  |Objs%,1)+".!Run"|
00008a30  29 0d 7b f2 0b 6c 24 3d  be 23 66 25 0d 7b fc 08  |).{..l$=.#f%.{..|
00008a40  d9 23 66 25 0d 7c 06 0e  6c 24 3d c1 6c 24 2c 31  |.#f%.|..l$=.l$,1|
00008a50  31 29 0d 7c 10 1c c8 99  22 58 4f 53 5f 46 69 6c  |1).|...."XOS_Fil|
00008a60  65 22 2c 32 33 2c 6c 24  b8 70 25 3b 66 25 0d 7c  |e",23,l$.p%;f%.||
00008a70  1a 0f e7 28 66 25 80 20  31 29 3d 31 8c 0d 7c 28  |...(f%. 1)=1..|(|
00008a80  28 4f 64 61 74 24 28 4f  62 6a 73 25 2c 32 29 3d  |(Odat$(Objs%,2)=|
00008a90  22 41 70 70 6c 69 63 61  74 69 6f 6e 20 28 66 75  |"Application (fu|
00008aa0  6c 6c 3f 29 22 0d 7c 29  28 4f 64 61 74 24 28 4f  |ll?)".|)(Odat$(O|
00008ab0  62 6a 73 25 2c 34 29 3d  22 4e 6f 20 21 53 70 72  |bjs%,4)="No !Spr|
00008ac0  69 74 65 73 2e 2e 2e 20  66 69 6c 65 22 0d 7c 2e  |ites... file".|.|
00008ad0  05 cc 0d 7c 4c 0a e7 70  25 3d 30 8c 0d 7c 56 25  |...|L..p%=0..|V%|
00008ae0  4f 64 61 74 24 28 4f 62  6a 73 25 2c 34 29 3d 22  |Odat$(Objs%,4)="|
00008af0  4f 72 69 67 69 6e 61 6c  20 4d 69 73 73 69 6e 67  |Original Missing|
00008b00  22 0d 7c 60 15 4f 66 6c  67 25 28 4f 62 6a 73 25  |".|`.Oflg%(Objs%|
00008b10  2c 34 29 3d 31 31 0d 7c  61 05 cd 0d 7c 6a 05 cd  |,4)=11.|a...|j..|
00008b20  0d 7c 74 05 cd 0d 7c 7e  05 cc 0d 7c a6 27 4f 64  |.|t...|~...|.'Od|
00008b30  61 74 24 28 4f 62 6a 73  25 2c 32 29 3d 22 41 70  |at$(Objs%,2)="Ap|
00008b40  70 6c 69 63 61 74 69 6f  6e 20 28 66 75 6c 6c 29  |plication (full)|
00008b50  22 0d 7c b0 05 cd 0d 7c  ba 19 4f 64 61 74 24 28  |".|....|..Odat$(|
00008b60  4f 62 6a 73 25 2c 33 29  3d 22 32 30 30 30 22 0d  |Objs%,3)="2000".|
00008b70  7c c4 05 7f 0d 7c ec 0c  4f 62 6a 73 25 2b 3d 31  ||....|..Objs%+=1|
00008b80  0d 7c f6 26 4f 64 61 74  24 28 4f 62 6a 73 25 2c  |.|.&Odat$(Objs%,|
00008b90  31 29 3d a4 69 6e 64 69  72 65 63 74 28 42 75 66  |1)=.indirect(Buf|
00008ba0  31 25 2b 32 34 29 0d 7d  00 2a 4f 64 61 74 24 28  |1%+24).}.*Odat$(|
00008bb0  4f 62 6a 73 25 2c 35 29  3d 64 69 72 24 2b 22 2e  |Objs%,5)=dir$+".|
00008bc0  22 2b 4f 64 61 74 24 28  4f 62 6a 73 25 2c 31 29  |"+Odat$(Objs%,1)|
00008bd0  0d 7d 0a 2d c8 99 22 4f  53 5f 43 6f 6e 76 65 72  |.}.-.."OS_Conver|
00008be0  74 48 65 78 34 22 2c 42  75 66 31 25 21 32 30 2c  |tHex4",Buf1%!20,|
00008bf0  42 75 66 32 25 2c 31 32  38 b8 2c 70 25 0d 7d 14  |Buf2%,128.,p%.}.|
00008c00  0a 3f 70 25 3d 31 33 0d  7d 1e 1d 4f 64 61 74 24  |.?p%=13.}..Odat$|
00008c10  28 4f 62 6a 73 25 2c 33  29 3d c2 24 42 75 66 32  |(Objs%,3)=.$Buf2|
00008c20  25 2c 33 29 0d 7d 28 45  c8 99 22 58 4f 53 5f 52  |%,3).}(E.."XOS_R|
00008c30  65 61 64 56 61 72 56 61  6c 22 2c 22 46 69 6c 65  |eadVarVal","File|
00008c40  24 54 79 70 65 5f 22 2b  4f 64 61 74 24 28 4f 62  |$Type_"+Odat$(Ob|
00008c50  6a 73 25 2c 33 29 2c 42  75 66 31 25 2c 31 32 38  |js%,3),Buf1%,128|
00008c60  2c 30 2c 33 b8 2c 2c 6c  25 0d 7d 32 0a e7 6c 25  |,0,3.,,l%.}2..l%|
00008c70  3d 30 8c 0d 7d 5a 25 4f  64 61 74 24 28 4f 62 6a  |=0..}Z%Odat$(Obj|
00008c80  73 25 2c 32 29 3d 22 26  22 2b 4f 64 61 74 24 28  |s%,2)="&"+Odat$(|
00008c90  4f 62 6a 73 25 2c 33 29  0d 7d 64 05 cc 0d 7d 8c  |Objs%,3).}d...}.|
00008ca0  0f 42 75 66 31 25 3f 6c  25 3d 31 33 0d 7d 96 19  |.Buf1%?l%=13.}..|
00008cb0  4f 64 61 74 24 28 4f 62  6a 73 25 2c 32 29 3d 24  |Odat$(Objs%,2)=$|
00008cc0  42 75 66 31 25 0d 7d a0  05 cd 0d 7d aa 05 cb 0d  |Buf1%.}....}....|
00008cd0  7d d2 17 e7 4f 64 61 74  24 28 4f 62 6a 73 25 2c  |}...Odat$(Objs%,|
00008ce0  34 29 3d 22 22 8c 0d 7d  dc 08 63 25 3d 30 0d 7d  |4)=""..}..c%=0.}|
00008cf0  e6 05 f5 0d 7d f0 09 63  25 2b 3d 31 0d 7d fa 5e  |....}..c%+=1.}.^|
00008d00  e7 28 42 6f 6f 74 5f 54  79 70 65 24 28 63 25 2c  |.(Boot_Type$(c%,|
00008d10  31 29 3d 45 64 69 74 5f  54 79 70 65 24 29 80 28  |1)=Edit_Type$).(|
00008d20  28 42 6f 6f 74 5f 54 79  70 65 24 28 63 25 2c 32  |(Boot_Type$(c%,2|
00008d30  29 3d 4f 64 61 74 24 28  4f 62 6a 73 25 2c 33 29  |)=Odat$(Objs%,3)|
00008d40  29 84 28 42 6f 6f 74 5f  54 79 70 65 24 28 63 25  |).(Boot_Type$(c%|
00008d50  2c 32 29 3d 22 2a 22 29  29 8c 0d 7e 04 23 4f 64  |,2)="*"))..~.#Od|
00008d60  61 74 24 28 4f 62 6a 73  25 2c 34 29 3d 42 6f 6f  |at$(Objs%,4)=Boo|
00008d70  74 5f 54 79 70 65 24 28  63 25 2c 33 29 0d 7e 0e  |t_Type$(c%,3).~.|
00008d80  05 cd 0d 7e 18 2a fd 28  63 25 3d 42 6f 6f 74 5f  |...~.*.(c%=Boot_|
00008d90  54 79 70 65 73 25 29 84  28 4f 64 61 74 24 28 4f  |Types%).(Odat$(O|
00008da0  62 6a 73 25 2c 34 29 3c  3e 22 22 29 0d 7e 22 05  |bjs%,4)<>"").~".|
00008db0  cd 0d 7e 4a 14 e3 63 25  3d 31 b8 53 74 61 6e 64  |..~J..c%=1.Stand|
00008dc0  61 72 64 73 25 0d 7e 54  43 e7 28 53 74 61 6e 64  |ards%.~TC.(Stand|
00008dd0  61 72 64 24 28 63 25 2c  31 29 3d 45 64 69 74 5f  |ard$(c%,1)=Edit_|
00008de0  54 79 70 65 24 29 80 28  53 74 61 6e 64 61 72 64  |Type$).(Standard|
00008df0  24 28 63 25 2c 32 29 3d  4f 64 61 74 24 28 4f 62  |$(c%,2)=Odat$(Ob|
00008e00  6a 73 25 2c 31 29 29 8c  0d 7e 7c 14 4f 66 6c 67  |js%,1))..~|.Oflg|
00008e10  25 28 4f 62 6a 73 25 2c  31 29 3d 35 0d 7e 86 14  |%(Objs%,1)=5.~..|
00008e20  4f 66 6c 67 25 28 4f 62  6a 73 25 2c 32 29 3d 35  |Oflg%(Objs%,2)=5|
00008e30  0d 7e 90 14 4f 66 6c 67  25 28 4f 62 6a 73 25 2c  |.~..Oflg%(Objs%,|
00008e40  33 29 3d 35 0d 7e 9a 14  4f 66 6c 67 25 28 4f 62  |3)=5.~..Oflg%(Ob|
00008e50  6a 73 25 2c 34 29 3d 35  0d 7e a4 15 4f 66 6c 67  |js%,4)=5.~..Oflg|
00008e60  25 28 4f 62 6a 73 25 2c  35 29 3d 36 34 0d 7e ae  |%(Objs%,5)=64.~.|
00008e70  05 cd 0d 7e b8 07 ed 63  25 0d 7e c2 05 cd 0d 7e  |...~...c%.~....~|
00008e80  cc 0f fd 6f 66 66 73 65  74 25 3d 2d 31 0d 7e d6  |...offset%=-1.~.|
00008e90  05 e1 0d 7f 1c 26 dd f2  6d 6f 64 69 66 79 5f 62  |.....&..modify_b|
00008ea0  6f 6f 74 28 6e 74 72 79  25 2c 6d 6f 64 65 24 2c  |oot(ntry%,mode$,|
00008eb0  6e 6f 6d 65 73 73 25 29  0d 7f 4e 05 ea 0d 7f 62  |nomess%)..N....b|
00008ec0  11 c8 8e 45 64 69 74 5f  54 79 70 65 24 ca 0d 7f  |...Edit_Type$...|
00008ed0  6c 0e c9 22 61 75 74 6f  72 75 6e 22 0d 7f 76 0c  |l.."autorun"..v.|
00008ee0  c8 8e 6d 6f 64 65 24 ca  0d 7f 80 0d c9 22 69 6e  |..mode$......"in|
00008ef0  73 65 72 74 22 0d 7f 8a  1b e7 4f 64 61 74 24 28  |sert".....Odat$(|
00008f00  6e 74 72 79 25 2c 33 29  3d 22 32 30 30 30 22 8c  |ntry%,3)="2000".|
00008f10  0d 7f b2 1a 53 6f 75 72  63 65 24 3d 4f 64 61 74  |....Source$=Odat|
00008f20  24 28 6e 74 72 79 25 2c  35 29 0d 7f bc 1f 41 70  |$(ntry%,5)....Ap|
00008f30  70 6c 69 63 61 74 69 6f  6e 24 3d 4f 64 61 74 24  |plication$=Odat$|
00008f40  28 6e 74 72 79 25 2c 31  29 0d 7f c6 33 f2 6d 61  |(ntry%,1)...3.ma|
00008f50  6b 65 5f 61 6c 69 61 73  28 22 3c 42 6f 6f 74 24  |ke_alias("<Boot$|
00008f60  54 6f 42 65 54 61 73 6b  73 3e 2e 22 2b 4f 64 61  |ToBeTasks>."+Oda|
00008f70  74 24 28 6e 74 72 79 25  2c 31 29 29 0d 7f d0 05  |t$(ntry%,1))....|
00008f80  cc 0d 7f f8 4c ff 28 22  2a 43 4f 50 59 20 22 2b  |....L.("*COPY "+|
00008f90  4f 64 61 74 24 28 6e 74  72 79 25 2c 35 29 2b 22  |Odat$(ntry%,5)+"|
00008fa0  20 3c 42 6f 6f 74 24 54  6f 42 65 54 61 73 6b 73  | <Boot$ToBeTasks|
00008fb0  3e 2e 22 2b 4f 64 61 74  24 28 6e 74 72 79 25 2c  |>."+Odat$(ntry%,|
00008fc0  31 29 2b 22 20 7e 56 7e  50 7e 43 22 29 0d 80 02  |1)+" ~V~P~C")...|
00008fd0  05 cd 0d 80 0c 0d c9 22  72 65 6d 6f 76 65 22 0d  |......."remove".|
00008fe0  80 34 28 ff 28 22 2a 57  49 50 45 20 22 2b 4f 64  |.4(.("*WIPE "+Od|
00008ff0  61 74 24 28 6e 74 72 79  25 2c 35 29 2b 22 20 7e  |at$(ntry%,5)+" ~|
00009000  56 46 7e 43 52 22 29 0d  80 3e 05 cb 0d 80 48 10  |VF~CR")..>....H.|
00009010  c9 22 72 65 73 6f 75 72  63 65 73 22 0d 80 52 33  |."resources"..R3|
00009020  f2 6d 6f 64 69 66 79 5f  62 6f 6f 74 5f 66 69 6c  |.modify_boot_fil|
00009030  65 28 4f 64 61 74 24 28  6e 74 72 79 25 2c 35 29  |e(Odat$(ntry%,5)|
00009040  2c 6d 6f 64 65 24 2c 6e  6f 6d 65 73 73 25 29 0d  |,mode$,nomess%).|
00009050  80 5c 0b c9 22 62 6f 6f  74 22 0d 80 66 33 f2 6d  |.\.."boot"..f3.m|
00009060  6f 64 69 66 79 5f 62 6f  6f 74 5f 66 69 6c 65 28  |odify_boot_file(|
00009070  4f 64 61 74 24 28 6e 74  72 79 25 2c 35 29 2c 6d  |Odat$(ntry%,5),m|
00009080  6f 64 65 24 2c 6e 6f 6d  65 73 73 25 29 0d 80 70  |ode$,nomess%)..p|
00009090  0e c9 22 70 72 65 64 65  73 6b 22 0d 80 7a 05 cb  |.."predesk"..z..|
000090a0  0d 80 84 05 e1 0d 80 de  1b dd f2 6d 61 6b 65 5f  |...........make_|
000090b0  61 6c 69 61 73 28 70 61  74 68 6e 61 6d 65 24 29  |alias(pathname$)|
000090c0  0d 81 1a 0a ea 66 25 2c  6c 25 0d 81 2e 21 c8 99  |.....f%,l%...!..|
000090d0  22 4f 53 5f 46 69 6c 65  22 2c 38 2c 70 61 74 68  |"OS_File",8,path|
000090e0  6e 61 6d 65 24 2c 30 2c  30 2c 30 0d 81 38 2d c8  |name$,0,0,0..8-.|
000090f0  99 22 4f 53 5f 46 69 6c  65 22 2c 31 31 2c 70 61  |."OS_File",11,pa|
00009100  74 68 6e 61 6d 65 24 2b  22 2e 21 52 75 6e 22 2c  |thname$+".!Run",|
00009110  26 46 45 42 2c 30 2c 30  0d 81 42 2e c8 99 22 4f  |&FEB,0,0..B..."O|
00009120  53 5f 46 69 6c 65 22 2c  31 31 2c 70 61 74 68 6e  |S_File",11,pathn|
00009130  61 6d 65 24 2b 22 2e 21  48 65 6c 70 22 2c 26 46  |ame$+".!Help",&F|
00009140  46 46 2c 30 2c 30 0d 81  74 25 e7 c0 53 6f 75 72  |FF,0,0..t%..Sour|
00009150  63 65 24 2c 31 29 3d 22  3c 22 80 c2 53 6f 75 72  |ce$,1)="<"..Sour|
00009160  63 65 24 2c 31 29 3d 22  3e 22 8c 0d 81 7e 41 c8  |ce$,1)=">"...~A.|
00009170  99 22 4f 53 5f 52 65 61  64 56 61 72 56 61 6c 22  |."OS_ReadVarVal"|
00009180  2c c1 53 6f 75 72 63 65  24 2c 32 2c a9 28 53 6f  |,.Source$,2,.(So|
00009190  75 72 63 65 24 29 2d 32  29 2c 42 75 66 31 25 2c  |urce$)-2),Buf1%,|
000091a0  31 32 38 2c 30 2c 30 b8  2c 2c 6c 25 0d 81 88 0f  |128,0,0.,,l%....|
000091b0  42 75 66 31 25 3f 6c 25  3d 31 33 0d 81 92 12 53  |Buf1%?l%=13....S|
000091c0  6f 75 72 63 65 24 3d 24  42 75 66 31 25 0d 81 9c  |ource$=$Buf1%...|
000091d0  05 cd 0d 81 c4 1b 66 25  3d ad 28 70 61 74 68 6e  |......f%=.(pathn|
000091e0  61 6d 65 24 2b 22 2e 21  52 75 6e 22 29 0d 81 ce  |ame$+".!Run")...|
000091f0  1d d5 23 66 25 2c 22 46  69 6c 65 72 5f 52 75 6e  |..#f%,"Filer_Run|
00009200  20 22 2b 53 6f 75 72 63  65 24 0d 81 d8 08 d9 23  | "+Source$.....#|
00009210  66 25 0d 82 00 1c 66 25  3d ad 28 70 61 74 68 6e  |f%....f%=.(pathn|
00009220  61 6d 65 24 2b 22 2e 21  48 65 6c 70 22 29 0d 82  |ame$+".!Help")..|
00009230  0a 2e d5 23 66 25 2c 22  41 6c 69 61 73 20 66 6f  |...#f%,"Alias fo|
00009240  72 20 61 70 70 6c 69 63  61 74 69 6f 6e 20 22 2b  |r application "+|
00009250  41 70 70 6c 69 63 61 74  69 6f 6e 24 0d 82 14 32  |Application$...2|
00009260  d5 23 66 25 2c 22 57 68  69 63 68 20 63 61 6e 20  |.#f%,"Which can |
00009270  62 65 20 66 6f 75 6e 64  20 61 74 20 6c 6f 63 61  |be found at loca|
00009280  74 69 6f 6e 20 22 2b 53  6f 75 72 63 65 24 0d 82  |tion "+Source$..|
00009290  1e 08 d9 23 66 25 0d 82  28 05 cd 0d 82 32 05 e1  |...#f%..(....2..|
000092a0  0d 82 6e 2a dd f2 6d 6f  64 69 66 79 5f 62 6f 6f  |..n*..modify_boo|
000092b0  74 5f 66 69 6c 65 28 61  70 70 24 2c 6d 6f 64 65  |t_file(app$,mode|
000092c0  24 2c 6e 6f 6d 65 73 73  25 29 0d 82 be 36 ea 66  |$,nomess%)...6.f|
000092d0  31 25 2c 66 32 25 2c 61  6c 69 6e 65 24 2c 62 6f  |1%,f2%,aline$,bo|
000092e0  6f 74 6e 61 6d 65 24 2c  66 74 79 70 25 2c 6f 6c  |otname$,ftyp%,ol|
000092f0  64 6e 61 6d 65 24 2c 74  65 6d 70 6e 61 6d 65 24  |dname$,tempname$|
00009300  0d 82 c8 43 ea 66 6f 75  6e 64 25 2c 64 6f 6e 65  |...C.found%,done|
00009310  25 2c 66 74 79 70 25 2c  62 6f 6f 74 6e 61 6d 65  |%,ftyp%,bootname|
00009320  24 2c 74 65 6d 70 6e 61  6d 65 24 2c 6f 6c 64 6e  |$,tempname$,oldn|
00009330  61 6d 65 24 2c 66 31 25  2c 66 32 25 2c 61 6c 69  |ame$,f1%,f2%,ali|
00009340  6e 65 24 0d 82 f0 0c 66  6f 75 6e 64 25 3d a3 0d  |ne$....found%=..|
00009350  82 fa 0b 64 6f 6e 65 25  3d a3 0d 83 04 0c 73 74  |...done%=.....st|
00009360  61 72 74 25 3d a3 0d 83  0e 11 c8 8e 45 64 69 74  |art%=.......Edit|
00009370  5f 54 79 70 65 24 ca 0d  83 18 10 c9 22 72 65 73  |_Type$......"res|
00009380  6f 75 72 63 65 73 22 0d  83 22 0e 66 74 79 70 25  |ources"..".ftyp%|
00009390  3d 26 66 65 62 0d 83 2c  2f 62 6f 6f 74 6e 61 6d  |=&feb..,/bootnam|
000093a0  65 24 3d 22 3c 63 68 6f  69 63 65 73 24 77 72 69  |e$="<choices$wri|
000093b0  74 65 3e 2e 62 6f 6f 74  2e 50 72 65 44 65 73 6b  |te>.boot.PreDesk|
000093c0  74 6f 70 22 0d 83 36 2f  74 65 6d 70 6e 61 6d 65  |top"..6/tempname|
000093d0  24 3d 22 3c 63 68 6f 69  63 65 73 24 77 72 69 74  |$="<choices$writ|
000093e0  65 3e 2e 62 6f 6f 74 2e  50 72 65 44 65 73 6b 6e  |e>.boot.PreDeskn|
000093f0  65 77 22 0d 83 40 2e 6f  6c 64 6e 61 6d 65 24 3d  |ew"..@.oldname$=|
00009400  22 3c 63 68 6f 69 63 65  73 24 77 72 69 74 65 3e  |"<choices$write>|
00009410  2e 62 6f 6f 74 2e 50 72  65 44 65 73 6b 6f 6c 64  |.boot.PreDeskold|
00009420  22 0d 83 4a 0b c9 22 62  6f 6f 74 22 0d 83 54 0e  |"..J.."boot"..T.|
00009430  66 74 79 70 25 3d 26 66  65 61 0d 83 5e 2c 62 6f  |ftyp%=&fea..^,bo|
00009440  6f 74 6e 61 6d 65 24 3d  22 3c 63 68 6f 69 63 65  |otname$="<choice|
00009450  73 24 77 72 69 74 65 3e  2e 62 6f 6f 74 2e 44 65  |s$write>.boot.De|
00009460  73 6b 74 6f 70 22 0d 83  68 2f 74 65 6d 70 6e 61  |sktop"..h/tempna|
00009470  6d 65 24 3d 22 3c 63 68  6f 69 63 65 73 24 77 72  |me$="<choices$wr|
00009480  69 74 65 3e 2e 62 6f 6f  74 2e 44 65 73 6b 74 6f  |ite>.boot.Deskto|
00009490  70 6e 65 77 22 0d 83 72  2e 6f 6c 64 6e 61 6d 65  |pnew"..r.oldname|
000094a0  24 3d 22 3c 63 68 6f 69  63 65 73 24 77 72 69 74  |$="<choices$writ|
000094b0  65 3e 2e 62 6f 6f 74 2e  44 65 73 6b 74 6f 70 6f  |e>.boot.Desktopo|
000094c0  6c 64 22 0d 83 7c 05 cb  0d 83 a4 1b c8 99 22 4f  |ld"..|........"O|
000094d0  53 5f 46 69 6c 65 22 2c  36 2c 74 65 6d 70 6e 61  |S_File",6,tempna|
000094e0  6d 65 24 0d 83 ae 22 c8  99 22 4f 53 5f 46 69 6c  |me$...".."OS_Fil|
000094f0  65 22 2c 31 31 2c 74 65  6d 70 6e 61 6d 65 24 2c  |e",11,tempname$,|
00009500  66 74 79 70 25 0d 83 b8  14 66 31 25 3d ad 28 74  |ftyp%....f1%=.(t|
00009510  65 6d 70 6e 61 6d 65 24  29 0d 83 c2 14 66 32 25  |empname$)....f2%|
00009520  3d 8e 28 62 6f 6f 74 6e  61 6d 65 24 29 0d 83 cc  |=.(bootname$)...|
00009530  05 f5 0d 83 d6 10 61 6c  69 6e 65 24 3d be 23 66  |......aline$=.#f|
00009540  32 25 0d 83 e0 0d e7 ac  73 74 61 72 74 25 8c 0d  |2%......start%..|
00009550  84 08 5f 73 74 61 72 74  25 3d 28 a7 61 6c 69 6e  |.._start%=(.alin|
00009560  65 24 2c 22 7c 53 74 61  72 74 22 29 3e 30 80 a7  |e$,"|Start")>0..|
00009570  61 6c 69 6e 65 24 2c 22  4d 61 72 73 22 29 3e 30  |aline$,"Mars")>0|
00009580  80 a7 61 6c 69 6e 65 24  2c 22 21 42 6f 6f 74 70  |..aline$,"!Bootp|
00009590  6c 75 73 22 29 3e 30 80  a7 61 6c 69 6e 65 24 2c  |lus")>0..aline$,|
000095a0  45 64 69 74 5f 54 79 70  65 24 29 3e 30 29 0d 84  |Edit_Type$)>0)..|
000095b0  12 10 d5 23 66 31 25 2c  61 6c 69 6e 65 24 0d 84  |...#f1%,aline$..|
000095c0  1c 05 cc 0d 84 44 0c c8  8e 6d 6f 64 65 24 ca 0d  |.....D...mode$..|
000095d0  84 4e 0d c9 22 72 65 6d  6f 76 65 22 0d 84 58 44  |.N.."remove"..XD|
000095e0  e7 28 61 70 70 24 3d 22  61 6c 6c 22 80 a7 61 6c  |.(app$="all"..al|
000095f0  69 6e 65 24 2c 22 2e 21  22 29 3e 30 80 20 73 74  |ine$,".!")>0. st|
00009600  61 72 74 25 29 84 28 a7  61 6c 69 6e 65 24 2c 61  |art%).(.aline$,a|
00009610  70 70 24 29 3e 30 80 20  73 74 61 72 74 25 29 8c  |pp$)>0. start%).|
00009620  0d 84 80 0c 66 6f 75 6e  64 25 3d b9 0d 84 8a 0b  |....found%=.....|
00009630  64 6f 6e 65 25 3d b9 0d  84 94 05 cc 0d 84 bc 10  |done%=..........|
00009640  d5 23 66 31 25 2c 61 6c  69 6e 65 24 0d 84 c6 05  |.#f1%,aline$....|
00009650  cd 0d 84 d0 0d c9 22 69  6e 73 65 72 74 22 0d 84  |......"insert"..|
00009660  da 1f e7 28 a7 61 6c 69  6e 65 24 2c 61 70 70 24  |...(.aline$,app$|
00009670  29 3e 30 29 80 20 73 74  61 72 74 25 8c 0d 84 e4  |)>0). start%....|
00009680  0c 66 6f 75 6e 64 25 3d  b9 0d 84 ee 57 e7 ac 6e  |.found%=....W..n|
00009690  6f 6d 65 73 73 25 8c f2  65 72 72 6f 72 5f 6d 65  |omess%..error_me|
000096a0  73 73 61 67 65 28 22 41  70 70 6c 69 63 61 74 69  |ssage("Applicati|
000096b0  6f 6e 20 22 2b 61 70 70  24 2b 22 20 69 73 20 61  |on "+app$+" is a|
000096c0  6c 72 65 61 64 79 20 69  6e 20 62 6f 6f 74 20 73  |lready in boot s|
000096d0  65 71 75 65 6e 63 65 22  2c 22 22 2c 30 2c 30 29  |equence","",0,0)|
000096e0  0d 84 f8 05 cd 0d 85 02  2b e7 28 a7 61 6c 69 6e  |........+.(.alin|
000096f0  65 24 2c 22 7c 45 6e 64  22 29 3e 30 29 80 20 73  |e$,"|End")>0). s|
00009700  74 61 72 74 25 80 28 ac  66 6f 75 6e 64 25 29 8c  |tart%.(.found%).|
00009710  0d 85 2a 11 c8 8e 45 64  69 74 5f 54 79 70 65 24  |..*...Edit_Type$|
00009720  ca 0d 85 34 10 c9 22 72  65 73 6f 75 72 63 65 73  |...4.."resources|
00009730  22 0d 85 3e 18 d5 23 66  31 25 2c 22 41 64 64 41  |"..>..#f1%,"AddA|
00009740  70 70 20 22 2b 61 70 70  24 0d 85 48 0b c9 22 62  |pp "+app$..H.."b|
00009750  6f 6f 74 22 0d 85 52 1c  d5 23 66 31 25 2c 22 46  |oot"..R..#f1%,"F|
00009760  69 6c 65 72 5f 42 6f 6f  74 20 22 2b 61 70 70 24  |iler_Boot "+app$|
00009770  0d 85 5c 05 cb 0d 85 66  0b 64 6f 6e 65 25 3d b9  |..\....f.done%=.|
00009780  0d 85 70 05 cd 0d 85 7a  10 d5 23 66 31 25 2c 61  |..p....z..#f1%,a|
00009790  6c 69 6e 65 24 0d 85 84  05 cb 0d 85 8e 05 cd 0d  |line$...........|
000097a0  85 98 0a fd c5 23 66 32  25 0d 85 a2 20 e7 28 ac  |.....#f2%... .(.|
000097b0  73 74 61 72 74 25 29 80  28 6d 6f 64 65 24 3d 22  |start%).(mode$="|
000097c0  69 6e 73 65 72 74 22 29  8c 0d 85 ca 11 c8 8e 45  |insert").......E|
000097d0  64 69 74 5f 54 79 70 65  24 ca 0d 85 d4 10 c9 22  |dit_Type$......"|
000097e0  72 65 73 6f 75 72 63 65  73 22 0d 85 de 0c d5 23  |resources".....#|
000097f0  66 31 25 2c 22 22 0d 85  e8 41 d5 23 66 31 25 2c  |f1%,""...A.#f1%,|
00009800  22 7c 53 74 61 72 74 20  4d 61 72 73 20 21 42 6f  |"|Start Mars !Bo|
00009810  6f 74 70 6c 75 73 20 22  2b 42 6f 6f 74 70 6c 75  |otplus "+Bootplu|
00009820  73 5f 56 65 72 73 69 6f  6e 24 2b 22 20 72 65 73  |s_Version$+" res|
00009830  6f 75 72 63 65 73 22 0d  85 f2 24 d5 23 66 31 25  |ources"...$.#f1%|
00009840  2c 22 7c 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |,"| ------------|
00009850  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 22 0d 85 fc 0d d5  |----------".....|
00009860  23 66 31 25 2c 22 7c 22  0d 86 06 1d d5 23 66 31  |#f1%,"|".....#f1|
00009870  25 2c 22 7c 20 20 20 20  20 20 20 72 65 73 6f 75  |%,"|       resou|
00009880  72 63 65 73 22 0d 86 10  0d d5 23 66 31 25 2c 22  |rces".....#f1%,"|
00009890  7c 22 0d 86 1a 24 d5 23  66 31 25 2c 22 7c 20 2d  ||"...$.#f1%,"| -|
000098a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000098b0  2d 2d 2d 2d 2d 22 0d 86  24 37 d5 23 66 31 25 2c  |-----"..$7.#f1%,|
000098c0  22 7c 20 49 6e 73 65 72  74 20 52 65 73 6f 75 72  |"| Insert Resour|
000098d0  63 65 73 20 61 70 70 73  20 64 69 72 65 63 74 6f  |ces apps directo|
000098e0  72 79 20 61 64 64 69 74  69 6f 6e 73 22 0d 86 2e  |ry additions"...|
000098f0  22 d5 23 66 31 25 2c 22  7c 20 49 4e 73 65 72 74  |".#f1%,"| INsert|
00009900  65 64 20 62 79 20 42 6f  6f 74 70 6c 75 73 22 0d  |ed by Bootplus".|
00009910  86 38 0d d5 23 66 31 25  2c 22 7c 22 0d 86 42 18  |.8..#f1%,"|"..B.|
00009920  d5 23 66 31 25 2c 22 41  64 64 41 70 70 20 22 2b  |.#f1%,"AddApp "+|
00009930  61 70 70 24 0d 86 4c 10  d5 23 66 31 25 2c 22 7c  |app$..L..#f1%,"||
00009940  45 6e 64 22 0d 86 56 0b  c9 22 62 6f 6f 74 22 0d  |End"..V.."boot".|
00009950  86 60 0c d5 23 66 31 25  2c 22 22 0d 86 6a 3c d5  |.`..#f1%,""..j<.|
00009960  23 66 31 25 2c 22 7c 53  74 61 72 74 20 4d 61 72  |#f1%,"|Start Mar|
00009970  73 20 21 42 6f 6f 74 70  6c 75 73 20 22 2b 42 6f  |s !Bootplus "+Bo|
00009980  6f 74 70 6c 75 73 5f 56  65 72 73 69 6f 6e 24 2b  |otplus_Version$+|
00009990  22 20 62 6f 6f 74 22 0d  86 74 24 d5 23 66 31 25  |" boot"..t$.#f1%|
000099a0  2c 22 7c 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |,"| ------------|
000099b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 22 0d 86 7e 0d d5  |----------"..~..|
000099c0  23 66 31 25 2c 22 7c 22  0d 86 88 18 d5 23 66 31  |#f1%,"|".....#f1|
000099d0  25 2c 22 7c 20 20 20 20  20 20 20 62 6f 6f 74 22  |%,"|       boot"|
000099e0  0d 86 92 0d d5 23 66 31  25 2c 22 7c 22 0d 86 9c  |.....#f1%,"|"...|
000099f0  24 d5 23 66 31 25 2c 22  7c 20 2d 2d 2d 2d 2d 2d  |$.#f1%,"| ------|
00009a00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00009a10  22 0d 86 a6 21 d5 23 66  31 25 2c 22 7c 20 42 6f  |"...!.#f1%,"| Bo|
00009a20  6f 74 65 64 20 61 70 70  6c 69 63 61 74 69 6f 6e  |oted application|
00009a30  73 22 0d 86 b0 22 d5 23  66 31 25 2c 22 7c 20 49  |s"...".#f1%,"| I|
00009a40  6e 73 65 72 74 65 64 20  62 79 20 42 6f 6f 74 70  |nserted by Bootp|
00009a50  6c 75 73 22 0d 86 ba 0d  d5 23 66 31 25 2c 22 7c  |lus".....#f1%,"||
00009a60  22 0d 86 c4 1c d5 23 66  31 25 2c 22 46 69 6c 65  |".....#f1%,"File|
00009a70  72 5f 42 6f 6f 74 20 22  2b 61 70 70 24 0d 86 ce  |r_Boot "+app$...|
00009a80  10 d5 23 66 31 25 2c 22  7c 45 6e 64 22 0d 86 d8  |..#f1%,"|End"...|
00009a90  05 cb 0d 86 e2 0b 64 6f  6e 65 25 3d b9 0d 86 ec  |......done%=....|
00009aa0  05 cd 0d 86 f6 09 d9 23  66 31 25 0d 87 00 09 d9  |.......#f1%.....|
00009ab0  23 66 32 25 0d 87 28 0b  e7 64 6f 6e 65 25 8c 0d  |#f2%..(..done%..|
00009ac0  87 32 1a c8 99 22 4f 53  5f 46 69 6c 65 22 2c 36  |.2..."OS_File",6|
00009ad0  2c 6f 6c 64 6e 61 6d 65  24 0d 87 3c 2a c8 99 22  |,oldname$..<*.."|
00009ae0  4f 53 5f 46 53 43 6f 6e  74 72 6f 6c 22 2c 32 35  |OS_FSControl",25|
00009af0  2c 62 6f 6f 74 6e 61 6d  65 24 2c 6f 6c 64 6e 61  |,bootname$,oldna|
00009b00  6d 65 24 0d 87 46 2b c8  99 22 4f 53 5f 46 53 43  |me$..F+.."OS_FSC|
00009b10  6f 6e 74 72 6f 6c 22 2c  32 35 2c 74 65 6d 70 6e  |ontrol",25,tempn|
00009b20  61 6d 65 24 2c 62 6f 6f  74 6e 61 6d 65 24 0d 87  |ame$,bootname$..|
00009b30  50 05 cc 0d 87 78 1b c8  99 22 4f 53 5f 46 69 6c  |P....x..."OS_Fil|
00009b40  65 22 2c 36 2c 74 65 6d  70 6e 61 6d 65 24 0d 87  |e",6,tempname$..|
00009b50  82 05 cd 0d 87 8c 05 e1  0d 87 d2 15 dd a4 69 6e  |..............in|
00009b60  64 69 72 65 63 74 28 70  6e 74 72 25 29 0d 88 0e  |direct(pntr%)...|
00009b70  0a ea 61 6e 73 77 24 0d  88 22 1f c8 99 22 4f 53  |..answ$.."..."OS|
00009b80  5f 57 72 69 74 65 4e 22  2c 70 6e 74 72 25 2c 30  |_WriteN",pntr%,0|
00009b90  b8 61 6e 73 77 24 0d 88  2c 0a 3d 61 6e 73 77 24  |.answ$..,.=answ$|
00009ba0  0d 88 72 32 dd f2 65 72  72 6f 72 5f 6d 65 73 73  |..r2..error_mess|
00009bb0  61 67 65 28 6d 65 73 73  61 67 65 24 2c 65 74 69  |age(message$,eti|
00009bc0  74 6c 65 24 2c 66 6c 61  67 73 25 2c 65 6e 75 6d  |tle$,flags%,enum|
00009bd0  25 29 0d 88 cc 11 42 6c  63 6b 25 21 30 3d 65 6e  |%)....Blck%!0=en|
00009be0  75 6d 25 0d 88 d6 17 24  28 42 6c 63 6b 25 2b 34  |um%....$(Blck%+4|
00009bf0  29 3d 6d 65 73 73 61 67  65 24 0d 88 e0 23 e7 65  |)=message$...#.e|
00009c00  74 69 74 6c 65 24 3d 22  22 8c 65 74 69 74 6c 65  |title$="".etitle|
00009c10  24 3d 22 21 62 6f 6f 74  70 6c 75 73 22 0d 88 ea  |$="!bootplus"...|
00009c20  2d c8 99 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |-.."Wimp_ReportE|
00009c30  72 72 6f 72 22 2c 42 6c  63 6b 25 2c 66 6c 61 67  |rror",Blck%,flag|
00009c40  73 25 2c 65 74 69 74 6c  65 24 0d 88 f4 05 e1 0d  |s%,etitle$......|
00009c50  89 44 07 dc 20 39 0d 89  4e 2e dc 20 22 70 72 65  |.D.. 9..N.. "pre|
00009c60  64 65 73 6b 22 2c 22 46  45 42 22 2c 22 52 75 6e  |desk","FEB","Run|
00009c70  20 28 63 61 63 68 65 64  20 69 6e 20 6d 65 6d 6f  | (cached in memo|
00009c80  72 79 29 22 0d 89 58 1b  dc 20 22 70 72 65 64 65  |ry)"..X.. "prede|
00009c90  73 6b 22 2c 22 46 46 38  22 2c 22 52 75 6e 22 0d  |sk","FF8","Run".|
00009ca0  89 62 2d dc 20 22 70 72  65 64 65 73 6b 22 2c 22  |.b-. "predesk","|
00009cb0  46 46 39 22 2c 22 41 64  64 65 64 20 74 6f 20 77  |FF9","Added to w|
00009cc0  69 6d 70 20 73 70 72 69  74 65 73 22 0d 89 6c 20  |imp sprites"..l |
00009cd0  dc 20 22 70 72 65 64 65  73 6b 22 2c 22 46 46 41  |. "predesk","FFA|
00009ce0  22 2c 22 52 4d 4c 6f 61  64 65 64 22 0d 89 76 2f  |","RMLoaded"..v/|
00009cf0  dc 20 22 70 72 65 64 65  73 6b 22 2c 22 46 46 42  |. "predesk","FFB|
00009d00  22 2c 22 52 75 6e 20 75  73 69 6e 67 20 27 42 41  |","Run using 'BA|
00009d10  53 49 43 20 2d 71 75 69  74 27 22 0d 89 80 1b dc  |SIC -quit'".....|
00009d20  20 22 70 72 65 64 65 73  6b 22 2c 22 46 46 43 22  | "predesk","FFC"|
00009d30  2c 22 52 75 6e 22 0d 89  8a 2a dc 20 22 70 72 65  |,"Run"...*. "pre|
00009d40  64 65 73 6b 22 2c 22 31  30 30 30 22 2c 22 52 75  |desk","1000","Ru|
00009d50  6e 20 65 6d 62 65 64 64  65 64 20 21 52 75 6e 22  |n embedded !Run"|
00009d60  0d 89 94 1d dc 20 22 70  72 65 64 65 73 6b 22 2c  |..... "predesk",|
00009d70  22 2a 22 2c 22 2a 4c 6f  61 64 65 64 22 0d 89 9e  |"*","*Loaded"...|
00009d80  1f dc 20 22 61 75 74 6f  72 75 6e 22 2c 22 2a 22  |.. "autorun","*"|
00009d90  2c 22 46 69 6c 65 72 5f  52 75 6e 22 0d 89 c6 07  |,"Filer_Run"....|
00009da0  dc 20 36 0d 89 d0 1a dc  20 22 70 72 65 64 65 73  |. 6..... "predes|
00009db0  6b 22 2c 22 41 52 50 6c  61 79 65 72 22 0d 89 da  |k","ARPlayer"...|
00009dc0  1b dc 20 22 70 72 65 64  65 73 6b 22 2c 22 42 61  |.. "predesk","Ba|
00009dd0  6e 64 4c 69 6d 69 74 22  0d 89 e4 1a dc 20 22 70  |ndLimit"..... "p|
00009de0  72 65 64 65 73 6b 22 2c  22 53 65 74 55 70 4e 65  |redesk","SetUpNe|
00009df0  74 22 0d 89 ee 1b dc 20  22 70 72 65 64 65 73 6b  |t"..... "predesk|
00009e00  22 2c 22 43 6f 6e 66 69  67 75 72 65 22 0d 89 f8  |","Configure"...|
00009e10  1b dc 20 22 61 75 74 6f  72 75 6e 22 2c 22 43 6f  |.. "autorun","Co|
00009e20  6e 66 69 67 75 72 65 22  0d 8a 02 1b dc 20 22 61  |nfigure"..... "a|
00009e30  75 74 6f 72 75 6e 22 2c  22 7e 43 44 52 65 69 6e  |utorun","~CDRein|
00009e40  69 74 22 0d 8a 2a 1a dc  20 53 75 2c 4d 6f 2c 54  |it"..*.. Su,Mo,T|
00009e50  75 2c 57 65 2c 54 68 2c  46 72 2c 53 61 0d ff     |u,We,Th,Fr,Sa..|
00009e5f