Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Extras » BootPlus/!Bootplus/!Runimage

BootPlus/!Bootplus/!Runimage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1997-07 A.adf » Extras
Filename: BootPlus/!Bootplus/!Runimage
Read OK:
File size: C71A bytes
Load address: 0000
Exec address: 0000
File contents
   10REM><Bootplus$dir>.!Runimage
  500DIMTlms%16
  510DIMTloi%24
  520DIMBuf1%128
  530DIMBuf2%512
  540DIMBlck%512
  550DIMOdat$(50,5)
  560DIMOflg%(50,5)
  640DIMOptr%(50)
  650DIMRusr$(20)
  660DIMRdir$(20)
  670DIMRtim$(20)
  680DIMBoot_Type$(20,3)
  690DIMStandard$(20,2)
  700DIMWeekdays$(7)
  710DIMDirdat$(50)
  720DIMDirflg%(50)
  730DIMSublist%(3,6)
  830DIMTdir$(100,1)
  840DIMTypt%(100)
  850DIMTnpt%(100)
  860DIMTflg%(100,1)
  870MP%=20
  880PROCtoolbox_values
  890PROCinitialise
  900Quit%=FALSE
  910ONERRORVDU4:PRINTREPORT$;" at line ";ERL:END
  920REPEAT
  930IF(Sequence$="LOGON")OR(Sequence$="PROMPTING")THEN
  940SYS"Wimp_PollIdle",0,Blck%,25TOreason%
  950ELSE
  960SYS"Wimp_Poll",1,Blck%TOreason%
  970ENDIF
  980PROCdo
  990UNTILQuit%
 1000SYS"Wimp_CloseDown",Thdl%,&48534154
 1010END
 1080DEFPROCtoolbox_values
 1160E_ABS%=&82881
 1170E_TOAC%=&44ec1
 1180E_WATBS%=&82880
 1190E_WHBH%=&82890
 1200E_WFVC%=&82885
 1210E_DDE%=&82888
 1220E_MSM%=&828C2
 1230E_MATBS%=&828c0
 1240E_MHBH%=&828c1
 1250E_MS%=&828c3
 1260E_SSVC%=&8288E
 1270E_SSATBS%=&8288f
 1280E_PUATBS%=&8288b
 1290E_NRVC%=&8288d
 1330E_UQA%=1
 1370M_D_SS%=644
 1380M_D_SSP%=640
 1390M_D_ST%=642
 1400M_RB_GS%=389
 1440T_TOMO%=&44ec6
 1450T_TSO%=&44ec3
 1460T_TTLU%=&44EFB
 1470T_THO%=&44ec4
 1510XBIT%=&20000
 1520ENDPROC
 1590DEFPROCinitialise
 1630LOCALexists%,a%
 1650PROCinit_globals
 1690a%=0
 1700b%=10
 1710Zzzzpass_Status%=0
 1720Zzzzchk_Status%=0
 1730Zzzzpass_Informed%=FALSE
 1740REPEAT
 1750SYS"TaskManager_EnumerateTasks",a%,Buf1%,16TOa%
 1760IFFNindirect(Buf1%!4)="zzzzpass"THEN
 1770Zzzzpass_Status%=3
 1780Zzzzpass_Handle%=Buf1%!0
 1790ENDIF
 1800IFFNindirect(Buf1%!4)="zzzzchk"THEN
 1810Zzzzchk_Status%=3
 1820Zzzzchk_Handle%=Buf1%!0
 1830ENDIF
 1840UNTILa%<0
 1880PROCinit_files
 1920Buf1%!0=0
 1930Buf2%!0=0
 1940SYS"Toolbox_Initialise",0,310,Buf2%,Buf1%,"<Bootplus$Dir>",Tlms%,Tloi%TO,Thdl%,sprt%
 1980IFAuto_Prompt%AND Passwords_Enabled%THEN
 1990Sequence$="LOGON"
 2000ELSE
 2010Sequence$="NORMAL"
 2020ENDIF
 2060Owner$=FNget_message("OWN","","","","")
 2100PROCread_filedefs
 2110ENDPROC
 2180DEFPROCinit_globals
 2220LOCALa$,a%,b%
 2240Bootplus_Version$="3.1"
 2250Started%=FALSE
 2260Logged_User$=""
 2270Logon_ID%=-1
 2280Ownerpass_ID%=-1
 2290Objs%=0
 2300Ntrs%=0
 2310Rusers%=0
 2320Rusr%=1
 2330Password_ID%=0
 2340Passmenu_ID%=0
 2350Optfile$="<bootplus$dir>.Resources.Options"
 2360T_Optfile$="<bootplus$dir>.Resources.Optxxx"
 2370Accessfile$="<bootplus$dir>.Resources.Access"
 2380T_Accessfile$="<bootplus$dir>.Resources.Accessxxx"
 2390Timesfile$="<bootplus$dir>.Resources.Times"
 2400T_Timesfile$="<bootplus$dir>.Resources.Timesxxx"
 2410Passfile$="<bootplus$dir>.Resources.password"
 2420Thieffile$="<Bootplus$Dir>.Resources.killriscpc"
 2430Logfile$="<Bootplus$dir>.Resources.logfile"
 2440Ologfile$="<Bootplus$dir>.Resources.oldlogfile"
 2450Ownerfile$="<Bootplus$dir>.Resources.owner"
 2460Autoclose%=FALSE
 2470Edit_Type$=""
 2480Alias_WH%=0
 2490Font_Lh%=44
 2500Font_Name$="Homerton.Medium"
 2510Editors%=0
 2520Tdirs%=0
 2530Tydir%=0
 2540Tndir%=0
 2550Dustbin_ID%=0
 2560Drag_Reason$=""
 2570Drag_Object%=0
 2580Drag_Into%=0
 2590Saved%=TRUE
 2600Sequence$="BOOT"
 2610ENDPROC
 2680DEFPROCread_filedefs
 2720READBoot_Types%
 2730FORa%=1TOBoot_Types%
 2740READBoot_Type$(a%,1)
 2750READBoot_Type$(a%,2)
 2760READa$
 2770Boot_Type$(a%,3)=FNget_message(a$,"","","","")
 2780NEXTa%
 2820READStandards%
 2830FORa%=1TOStandards%
 2840FORb%=1TO2
 2850READStandard$(a%,b%)
 2860NEXTb%
 2870NEXTa%
 2890FORa%=1TO7
 2900READWeekdays$(a%)
 2910NEXTa%
 2920ENDPROC
 2990DEFPROCinit_files
 3030LOCALf%,id%
 3070PROCget_options(a%,a%,a%,a%,a%,a%,Guest_Logins%,Y%,Full_Owner_Access%,Y%,Passwords_Enabled%,Auto_Prompt%)
 3110PROCget_useraccess
 3150PROCget_usertimes
 3190SYS"OS_File",20,"<Wimp$ScrapDir>.Bootplus"TOf%
 3200IFf%=0THEN
 3210*CDIR <Wimp$ScrapDir>.Bootplus
 3220ENDIF
 3230SYS"XOS_FSControl",27,"<Wimp$ScrapDir>.Bootplus.*",,&18
 3240ENDPROC
 3310DEFPROCdo
 3361CASEreason%OF
 3370WHEN0
 3380CASESequence$OF
 3390WHEN"LOGON"
 3430SYST_TSO%,0,Password_ID%,0,0,Passmenu_ID%,7
 3440Sequence$="PROMPTING"
 3450WHEN"PROMPTING"
 3490PROClock_mouse(TRUE)
 3500ENDCASE
 3510WHEN1
 3520PROCredraw_window
 3530WHEN2
 3540PROCopen_window
 3550WHEN6
 3560PROCmouse_click
 3570WHEN7
 3580PROCdrag_stopped
 3590WHEN10
 3600PROCscroll_request
 3610WHEN17,18,19
 3620PROCwimp_messages
 3630WHEN&200
 3640PROCtoolbox_events
 3650ENDCASE
 3660ENDPROC
 3730DEFPROCredraw_window
 3770CASEBlck%!0OF
 3780WHENSublist%(1,2)
 3820PROCdraw_main(1,2)
 3830WHENSublist%(1,1)
 3870PROCdraw_sub(1,2,FALSE,0)
 3880WHENSublist%(2,2)
 3920PROCdraw_main(2,2)
 3930WHENSublist%(2,1)
 3970PROCdraw_sub(2,2,FALSE,0)
 3980WHENSublist%(3,1)
 4020PROCdraw_sub(3,2,FALSE,0)
 4030ENDCASE
 4040ENDPROC
 4110DEFPROCopen_window
 4150LOCALbh%
 4170bh%=Blck%!28
 4180CASEBlck%!0OF
 4190WHENSublist%(1,2)
 4230Blck%!28=Sublist%(1,1)
 4240SYS"Wimp_OpenWindow",,Blck%
 4250PROCdraw_sub(1,3,FALSE,bh%)
 4260WHENSublist%(1,1)
 4300SYS"Wimp_OpenWindow",,Blck%
 4310WHENSublist%(2,2)
 4350Blck%!28=Sublist%(2,1)
 4360SYS"Wimp_OpenWindow",,Blck%
 4370PROCdraw_sub(2,3,FALSE,bh%)
 4380PROCdraw_sub(3,3,FALSE,bh%)
 4390WHENSublist%(2,1)
 4430SYS"Wimp_OpenWindow",,Blck%
 4440WHENSublist%(3,1)
 4480SYS"Wimp_OpenWindow",,Blck%
 4490ENDCASE
 4500ENDPROC
 4570DEFPROCmouse_click
 4610LOCALwk_my%,os_wy%,tr%,p%
 4630CASETRUEOF
 4640WHEN(Blck%!8=4)AND(Blck%!12=Sublist%(1,1))
 4680PROCbootlist_clicked
 4690WHEN(Blck%!8=4)AND(Blck%!12=Sublist%(2,1))
 4730PROCdirlist_clicked("Y",Sublist%(2,1),Tydirs%,Typt%(),Sublist%(3,1))
 4740WHEN(Blck%!8=4)AND(Blck%!12=Sublist%(3,1))
 4780PROCdirlist_clicked("N",Sublist%(3,1),Tndirs%,Tnpt%(),Sublist%(2,1))
 4790ENDCASE
 4800ENDPROC
 4870DEFPROCbootlist_clicked
 4910LOCALos_mx%,os_my%,wk_my%,tr%,ot$
 4930os_mx%=Blck%!0
 4940os_my%=Blck%!4
 4980Blck%!0=Sublist%(1,1)
 4990SYS"Wimp_GetWindowState",,Blck%
 5000wk_my%=os_my%-(Blck%!16-Blck%!24)
 5010tr%=INT(-wk_my%/Font_Lh%)+1
 5020IFtr%<=Objs%THEN
 5060p%=Optr%(tr%)
 5070IF(Oflg%(p%,5)AND 64)=0THEN
 5110CASEOdat$(p%,3)OF
 5120WHEN"1000"
 5130ot$=FNget_message("DM1","","","","")
 5140WHEN"2000"
 5150ot$=FNget_message("DM2","","","","")
 5160OTHERWISE
 5170ot$=FNget_message("DM3",Odat$(p%,3),"","","")
 5180ENDCASE
 5190Buf2%!0=os_mx%-16:Buf2%!4=os_my%-16
 5200Buf2%!8=os_mx%+18:Buf2%!12=os_my%+18
 5210SYS"DragASprite_Start",&5,1,ot$,Buf2%
 5220Drag_Reason$="Delete"
 5230Drag_Object%=tr%
 5240ELSE
 5280IFOdat$(p%,1)="!Bootplus"OROdat$(p%,1)="!zzzzpass"THEN
 5290PROCerror_message("EM1","","","",0,K%)
 5300ELSE
 5310PROCerror_message("EM2","","","",0,K%)
 5320ENDIF
 5330ENDIF
 5340ENDIF
 5350ENDPROC
 5420DEFPROCdirlist_clicked(fr$,fid%,frct%,frpt%(),tid%)
 5460LOCALos_mx%,os_my%,wk_my%,tr%,p%
 5480os_mx%=Blck%!0
 5490os_my%=Blck%!4
 5530Blck%!0=fid%
 5540SYS"Wimp_GetWindowState",,Blck%
 5550wk_my%=os_my%-(Blck%!16-Blck%!24)
 5560Drag_Object%=INT(-wk_my%/Font_Lh%)+1
 5570IFDrag_Object%<=frct%THEN
 5610p%=frpt%(Drag_Object%)
 5620IF((Tflg%(p%,1)AND&40)=&40)AND(Rusr$(Rusr%)<>Owner$)THEN
 5660PROCerror_message("EM3","","","",0,K%)
 5670ELSE
 5710Drag_Reason$="Move"
 5720Drag_From$=fr$
 5730Drag_Into%=tid%
 5740Buf2%!0=os_mx%-16:Buf2%!4=os_my%-16
 5750Buf2%!8=os_mx%+18:Buf2%!12=os_my%+18
 5760SYS"DragASprite_Start",&5,1,"directory",Buf2%
 5770ENDIF
 5780ENDIF
 5790ENDPROC
 5860DEFPROCdrag_stopped
 5900SYS"Wimp_GetPointerInfo",,Blck%
 5910CASETRUEOF
 5920WHEN(Blck%!16=Dustbin_ID%)AND(Drag_Reason$="Delete")
 5960PROCdrag_stopped_bin
 5970WHEN(Blck%!12=Drag_Into%)AND(Drag_Reason$="Move")
 6010IFDrag_From$="Y"THEN
 6050PROCdrag_stopped_dir(Tydirs%,Typt%(),Tndirs%,Tnpt%())
 6060ELSE
 6100PROCdrag_stopped_dir(Tndirs%,Tnpt%(),Tydirs%,Typt%())
 6110ENDIF
 6120Saved%=FALSE
 6160PROCset_list_extent(2,TRUE)
 6170PROCdraw_sub(2,2,FALSE,0)
 6180PROCset_list_extent(3,TRUE)
 6190PROCdraw_sub(3,2,FALSE,0)
 6200ENDCASE
 6210SYS"DragASprite_Stop"
 6220Drag_Reason$=""
 6230ENDPROC
 6300DEFPROCdrag_stopped_bin
 6340LOCALp%
 6360p%=Optr%(Drag_Object%)
 6370Oflg%(p%,5)=16
 6380FORp%=Drag_Object%TOObjs%
 6390Optr%(p%)=Optr%(p%+1)
 6400NEXTp%
 6410Objs%-=1
 6420Saved%=FALSE
 6460PROCset_list_extent(1,TRUE)
 6470PROCdraw_sub(1,2,FALSE,0)
 6480ENDPROC
 6550DEFPROCdrag_stopped_dir(RETURNfrc%,RETURNfrp%(),RETURNtoc%,RETURNtop%())
 6590LOCALp%,a%
 6610p%=frp%(Drag_Object%)
 6620toc%+=1
 6630a%=toc%
 6640WHILE(top%(a%-1)>p%)AND(a%>1)
 6650top%(a%)=top%(a%-1)
 6660a%-=1
 6670ENDWHILE
 6680top%(a%)=p%
 6720frc%-=1
 6730IFDrag_Object%<=frc%THEN
 6740FORa%=Drag_Object%TOfrc%
 6750frp%(a%)=frp%(a%+1)
 6760NEXTa%
 6770ENDIF
 6780frp%(frc%+1)=0
 6790ENDPROC
 6860DEFPROCscroll_request
 6900LOCALr%,bh%
 6920bh%=Blck%!28
 6930CASEBlck%!0OF
 6940WHENSublist%(1,1)
 6990r%=INT((Blck%!16-Blck%!8)/Font_Lh%)-1
 7000CASEBlck%!36OF
 7010WHEN-2
 7020Blck%!24-=Font_Lh%*r%
 7030WHEN-1
 7040Blck%!24-=Font_Lh%
 7050WHEN1
 7060Blck%!24+=Font_Lh%
 7070WHEN2
 7080Blck%!24+=Font_Lh%*r%
 7090ENDCASE
 7100SYS"Wimp_OpenWindow",,Blck%
 7110WHENSublist%(2,1)
 7150WHENSublist%(2,2)
 7190CASEBlck%!36OF
 7200WHEN-2
 7210Blck%!24-=128
 7220WHEN-1
 7230Blck%!24-=16
 7240WHEN1
 7250Blck%!24+=16
 7260WHEN2
 7270Blck%!24+=128
 7280ENDCASE
 7290SYS"Wimp_OpenWindow",,Blck%
 7300PROCdraw_sub(2,3,FALSE,bh%)
 7310PROCdraw_sub(3,3,FALSE,bh%)
 7320ENDCASE
 7330ENDPROC
 7400DEFPROCtoolbox_events
 7440Event_Size%=Blck%!0
 7450Event_Reference%=Blck%!4
 7460Event_Code%=Blck%!8
 7470Event_Flags%=Blck%!12
 7480Event_Block%=Blck%!20
 7520PROCcallers(0,Ancestor_ID%,Ancestor_Name$,Ancestor_Component%)
 7530PROCcallers(8,Parent_ID%,Parent_Name$,Parent_Component%)
 7540PROCcallers(16,Self_ID%,Self_Name$,Self_Component%)
 7590CASESelf_Name$OF
 7600WHEN"Alias"
 7610PROChandle_alias
 7620WHEN"Automenu"
 7630PROChandle_automenu
 7640WHEN"Ibarmenu"
 7650PROChandle_ibarmenu
 7660WHEN"Iconbar"
 7670PROChandle_iconbar
 7680WHEN"Mainlist"
 7690PROChandle_mainlist
 7700WHEN"Maintenance"
 7710PROChandle_maintenance
 7720WHEN"Options"
 7730PROChandle_options
 7740WHEN"Nodir"
 7750PROChandle_nodir
 7760WHEN"Passmenu"
 7770PROChandle_passmenu
 7780WHEN"Password"
 7790PROChandle_password
 7800WHEN"Sublist"
 7810PROChandle_sublist
 7820WHEN"Thieftrap"
 7830PROChandle_thieftrap
 7840WHEN"Useraccess"
 7850PROChandle_useraccess
 7860WHEN"Yesdir"
 7870PROChandle_yesdir
 7880WHEN"Wmi"
 7890PROChandle_wmi
 7900ENDCASE
 7910ENDPROC
 7980DEFPROCwimp_messages
 8020LOCALstate%,a%,al%,dur%,b%
 8040CASEBlck%!16OF
 8050WHEN0
 8060Quit%=TRUE
 8070WHEN1
 8120Source$=FNindirect(Blck%+44)
 8130IF(Blck%!20=Sublist%(1,1))AND(Source$="Pinboard")AND(Edit_Type$="autorun")THEN
 8180Blck%!12=Blck%!8
 8190Blck%!16=2
 8200Blck%!36=128
 8210$(Blck%+44)="<Wimp$ScrapDir>.Bootplus.Pinboard"
 8220SYS"Wimp_SendMessage",17,Blck%,Blck%!4
 8230ENDIF
 8240WHEN2
 8280path$=FNindirect(Blck%+44)
 8290IFApplication$="!Thieftrap"THEN
 8330PROCmake_thieftrap(path$)
 8340ELSE
 8380PROCmake_alias(path$)
 8390ENDIF
 8400WHEN3
 8440Source$=FNindirect(Blck%+44)
 8450CASEBlck%!20OF
 8460WHENAlias_WH%
 8470PROCdragged_to_alias
 8480WHENSublist%(1,1)
 8490PROCdragged_to_edit
 8500ENDCASE
 8510WHEN&400C2
 8550CASEFNindirect(Blck%+28)OF
 8560WHEN"zzzzpass"
 8570IFPasswords_Enabled%THEN
 8610Zzzzpass_Status%=3
 8620Zzzzpass_Handle%=Blck%!4
 8630IFLogged_User$<>""THEN
 8670PROCuser_times(Logged_User$,al%,dur%,a%,b%)
 8680PROCinform_zzzzpass(dur%)
 8690ENDIF
 8700ELSE
 8750PROCpause_logins
 8760PROCremove_logins
 8770ENDIF
 8780WHEN"zzzzchk"
 8790Zzzzchk_Status%=3
 8800Zzzzchk_Handle%=Blck%!4
 8810ENDCASE
 8820WHEN&400c4
 8840Started%=TRUE
 8850WHEN&808c0
 8890IFBlck%!4=Zzzzpass_Handle%THEN
 8930SYS"Wimp_TransferBlock",Zzzzpass_Handle%,Blck%!24,Thdl%,Buf1%,Blck%!20
 8940CASE!Buf1%OF
 8950WHEN1
 8990PROClogin_user($(Buf1%+4),FALSE)
 9000Blck%!0=32:Blck%!12=Blck%!8:Blck%!16=&808c0
 9010Blck%!20=4:Blck%!24=Buf2%
 9020!Buf2%=2
 9030SYS"Wimp_SendMessage",17,Blck%,Zzzzpass_Handle%
 9040IFSequence$="LOGON"THEN
 9080Sequence$="NORMAL"
 9090ENDIF
 9100WHEN2
 9150Quit%=Autoclose%
 9160WHEN4
 9200Logged_User$=""
 9210ENDCASE
 9220ENDIF
 9230ENDCASE
 9240ENDPROC
 9310DEFPROCdragged_to_alias
 9350IFBlck%!40<>&2000THEN
 9390PROCerror_message("EM4",Source$,STR$~(Blck%!40),"",0,K%)
 9400ELSE
 9440a%=LEN(Source$)-1
 9450REPEAT:a%-=1:UNTILMID$(Source$,a%,1)="."
 9460Application$=MID$(Source$,a%+1)
 9470SYST_TOMO%,0,Alias_ID%,M_D_SSP%,0,Application$
 9480SYST_TOMO%,0,Alias_ID%,M_D_ST%,0,Application$
 9500ENDIF
 9510ENDPROC
 9580DEFPROCdragged_to_edit
 9620LOCALa%,p%,a$,b$,c$,leaf$,duplicate%
 9640CASETRUEOF
 9650WHEN(Blck%!40<>&2000)AND(Edit_Type$="boot")
 9660PROCerror_message("EM5",Source$,"","",0,K%)
 9670WHEN(Blck%!40<>&2000)AND(Edit_Type$="resources")
 9680PROCerror_message("EM6",Source$,"","",0,K%)
 9690OTHERWISE
 9730a%=LEN(Source$)-1
 9740REPEAT:a%-=1:UNTILMID$(Source$,a%,1)="."
 9750leaf$=MID$(Source$,a%+1)
 9760duplicate%=FALSE
 9770FORa%=1TOObjs%
 9780IFleaf$=Odat$(Optr%(a%),1)THEN
 9790duplicate%=TRUE
 9800p%=a%
 9810ENDIF
 9820NEXTa%
 9830IFduplicate%THEN
 9870IFleaf$="Pinboard"THEN
 9910Odat$(p%,5)="<Wimp$ScrapDir>.Bootplus.Pinboard"
 9920FORa%=1TO4
 9930Oflg%(p%,a%)=(Oflg%(p%,a%)AND&FFFFFFF0)OR13
 9940NEXTa%
 9950Oflg%(p%,5)=32
 9960Saved%=FALSE
 9970ELSE
10010PROCerror_message("EM7",leaf$,"","",0,K%)
10020ENDIF
10030ELSE
10070Saved%=FALSE
10080Ontr%+=1
10090Objs%+=1
10100Optr%(Objs%)=Ontr%
10110Odat$(Ontr%,1)=leaf$
10120CASEBlck%!40OF
10130WHEN&2000
10170CASEEdit_Type$OF
10180WHEN"autorun"
10190Odat$(Ontr%,2)=FNget_message("DM4","","","","")
10200WHEN"boot"
10210Odat$(Ontr%,2)=FNget_message("DM5","","","","")
10220WHEN"resources"
10230Odat$(Ontr%,2)=FNget_message("DM5","","","","")
10240WHEN"predesk"
10250Odat$(Ontr%,2)=FNget_message("DM6","","","","")
10260ENDCASE
10270Odat$(Ontr%,3)="2000"
10280WHEN&1000
10320Odat$(Ontr%,2)=FNget_message("DM1","","","","")
10330Odat$(Ontr%,3)="1000"
10340OTHERWISE
10350SYS"OS_ConvertHex4",Blck%!40,Buf2%,128TO,p%
10360?p%=13
10370IFBuf2%?0=48THEN
10380Odat$(Ontr%,3)=RIGHT$($Buf2%,3)
10390ELSE
10400Odat$(Ontr%,3)=$Buf2%
10410ENDIF
10420SYS"XOS_ReadVarVal","File$Type_"+Odat$(Ontr%,3),Buf1%,128,0,3TO,,l%
10430IFl%=0THEN
10470Odat$(Ontr%,2)="&"+Odat$(Ontr%,3)
10480ELSE
10520Buf1%?l%=13
10530Odat$(Ontr%,2)=$Buf1%
10540ENDIF
10550ENDCASE
10590Odat$(Ontr%,4)=""
10600c%=0
10610REPEAT
10620c%+=1
10630IF(Boot_Type$(c%,1)=Edit_Type$)AND((Boot_Type$(c%,2)=Odat$(Ontr%,3))OR(Boot_Type$(c%,2)="*"))THEN
10640Odat$(Ontr%,4)=Boot_Type$(c%,3)
10650ENDIF
10660UNTIL(c%=Boot_Types%)OR(Odat$(Ontr%,4)<>"")
10700IFSource$="Pinboard"THEN
10740Odat$(Ontr%,5)="<Wimp$ScrapDir>.Bootplus.Pinboard"
10750ELSE
10760Odat$(Ontr%,5)=Source$
10770ENDIF
10780Oflg%(Ontr%,1)=(24<<16)OR&100OR13
10790Oflg%(Ontr%,2)=(200<<16)OR&100OR13
10800Oflg%(Ontr%,3)=8
10810CASEEdit_Type$OF
10820WHEN"boot"
10830Oflg%(Ontr%,4)=(512<<16)OR&100OR13
10840WHEN"resources"
10850Oflg%(Ontr%,4)=(512<<16)OR&100OR13
10860WHEN"autorun"
10870Oflg%(Ontr%,4)=(480<<16)OR&100OR13
10880WHEN"predesk"
10890Oflg%(Ontr%,4)=(400<<16)OR&100OR13
10900ENDCASE
10910Oflg%(Ontr%,5)=32
10920ENDIF
10930ENDCASE
10970PROCset_list_extent(1,TRUE)
10980PROCdraw_sub(1,2,FALSE,0)
10990ENDPROC
11060DEFPROCcallers(offset%,RETURNid%,RETURNid$,RETURNcpnt%)
11150LOCALptr%
11170ptr%=Tloi%+offset%
11180id%=!ptr%
11190IFid%<>0THEN
11200SYS"Toolbox_GetTemplateName",0,id%,Buf1%,128
11210id$=FNindirect(Buf1%)
11220ELSE
11230id$=""
11240ENDIF
11250cpnt%=ptr%!4
11260ENDPROC
11330DEFPROChandle_iconbar
11340ENDPROC
11410DEFPROChandle_alias
11450LOCALstate%,bo%,p%
11470CASEEvent_Code%OF
11480WHENE_TOAC%
11520Alias_ID%=Self_ID%
11530SYST_TOMO%,0,Alias_ID%,0TOAlias_WH%
11540WHENE_WATBS%
11580Application$=""
11590SYST_TOMO%,0,Alias_ID%,640,0,"!Bootplus"
11600SYST_TOMO%,0,Alias_ID%,642,0,"<none>"
11610WHENE_DDE%
11650IFApplication$<>""THEN
11690Buf2%!0=64
11700Buf2%!12=0:Buf2%!16=1:Buf2%!20=Blck%!16
11710Buf2%!28=Blck%!24:Buf2%!32=Blck%!28:Buf2%!36=128
11720Buf2%!40=&2000:$(Buf2%+44)=Application$
11730SYS"Wimp_SendMessage",17,Buf2%,Blck%!16
11740ENDIF
11750ENDCASE
11760ENDPROC
11830DEFPROChandle_automenu
11870CASEEvent_Code%OF
11880WHENE_MS%
11920PROCcheck_if_applied
11960IFSelf_Component%=&dTHEN
12000a%=FNget_task_id("Pinboard")
12010IFa%=0THEN
12050PROCerror_message("EM8","","","",0,K%)
12060ELSE
12100Buf2%!0=64
12110Buf2%!12=0:Buf2%!16=1:Buf2%!20=0
12120Buf2%!28=0:Buf2%!32=0:Buf2%!36=128
12130Buf2%!40=&feb:$(Buf2%+44)="Pinboard"
12140SYS"Wimp_SendMessage",17,Buf2%,a%
12150ENDIF
12160ELSE
12200CASESelf_Component%OF
12210WHEN&9
12250Edit_Type$="autorun"
12260WHEN&b
12300Edit_Type$="boot"
12310WHEN&5
12350Edit_Type$="resources"
12360WHEN&c
12400Edit_Type$="predesk"
12410ENDCASE
12420PROCget_applist
12430PROCdraw_main(1,0)
12440ENDIF
12450ENDCASE
12460ENDPROC
12530DEFPROChandle_ibarmenu
12570CASEEvent_Code%OF
12580WHENE_TOAC%
12620Ibarmenu_ID%=Self_ID%
12630WHENE_MATBS%
12670CASETRUEOF
12680WHEN(NOTPasswords_Enabled%)
12720PROCibarmenu_greys(1,0,0,0,"Bootplus")
12730WHEN((Logged_User$=Owner$)AND Passwords_Enabled%)
12770PROCibarmenu_greys(0,0,0,0,"Logged : OWNER")
12780WHEN((Logged_User$="")AND Passwords_Enabled%)
12820PROCibarmenu_greys(0,1,1,1,"Bootplus")
12830WHEN((Logged_User$="LOGOFF")AND Passwords_Enabled%)
12870PROCibarmenu_greys(0,1,1,1,"Logged Off")
12880OTHERWISE
12920PROCibarmenu_greys(0,1,1,0,"Logged : "+Logged_User$)
12930ENDCASE
12940WHENE_UQA%
12980Quit%=TRUE
12990ENDCASE
13000ENDPROC
13070DEFPROChandle_mainlist
13090LOCALK%
13110CASEEvent_Code%OF
13120WHENE_TOAC%
13160Mainlist_ID%=Self_ID%
13170SYST_TOMO%,0,Mainlist_ID%,0TOSublist%(1,2)
13180SYST_TOMO%,0,Mainlist_ID%,68,5,Buf2%,128
13190Dustbin_ID%=!Buf2%
13200WHENE_ABS%
13240CASESelf_Component%OF
13250WHEN3
13290PROCget_applist
13300PROCset_list_extent(1,TRUE)
13310PROCdraw_sub(1,2,FALSE,0)
13320WHEN4
13360PROCapply_edit_changes
13370Saved%=TRUE
13380ENDCASE
13390WHENE_WHBH%
13430SYST_THO%,0,Sublist_ID%
13440PROCcheck_if_applied
13450ENDCASE
13460ENDPROC
13530DEFPROChandle_maintenance
13570LOCALbt%
13590CASEEvent_Code%OF
13600WHENE_MATBS%
13640IFPasswords_Enabled%THEN
13680SYST_TOMO%,0,Self_ID%,2,0,0
13690SYST_TOMO%,0,Self_ID%,2,1,0
13700SYST_TOMO%,0,Self_ID%,2,&c,0
13710SYST_TOMO%,0,Self_ID%,2,&d,0
13720ELSE
13760SYST_TOMO%,0,Self_ID%,2,0,1
13770SYST_TOMO%,0,Self_ID%,2,1,1
13780SYST_TOMO%,0,Self_ID%,2,&c,1
13790SYST_TOMO%,0,Self_ID%,2,&d,1
13800ENDIF
13810WHENE_MS%
13850CASESelf_Component%OF
13860WHEN0
13900SYS"OS_File",6,Ologfile$
13910SYS"OS_FSControl",25,Logfile$,Ologfile$
13920SYS"OS_File",11,Logfile$,&FFF
13930WHEN1
13970OSCLI("*Filer_Run "+Logfile$)
13980WHEN&d
14020PROCkill_thieftraps
14030WHEN&11
14070PROCboot_install("CHECK",bt%)
14080IFbt%THEN
14120*Filer_Run <Boot$Dir>.Utils.DeskrunO
14130ELSE
14160*Filer_Run <Boot$dir>.Utils.Deskrun
14170ENDIF
14180ENDCASE
14190ENDCASE
14200ENDPROC
14270DEFPROChandle_nodir
14310CASEEvent_Code%OF
14320WHENE_TOAC%
14360Nodir_ID%=Self_ID%
14370SYST_TOMO%,0,Nodir_ID%,0TOSublist%(3,1)
14380Sublist%(3,3)=352
14390Sublist%(3,4)=-280
14400Sublist%(3,5)=244
14410Sublist%(3,6)=-232
14420ENDCASE
14430ENDPROC
14500DEFPROChandle_options
14540LOCALa%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,bt%
14560CASEEvent_Code%OF
14570WHENE_TOAC%
14610Options_ID%=Self_ID%
14620WHENE_WATBS%
14660PROCget_options(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%)
14670SYST_TOMO%,0,Options_ID%,512,3,STR$(a%)
14680SYST_TOMO%,0,Options_ID%,512,1,STR$(b%)
14690SYST_TOMO%,0,Options_ID%,512,2,STR$(c%)
14700SYST_TOMO%,0,Options_ID%,196,9,-d%
14710SYST_TOMO%,0,Options_ID%,196,&a,-e%
14720SYST_TOMO%,0,Options_ID%,196,&c,-f%
14730SYST_TOMO%,0,Options_ID%,196,&d,-g%
14740SYST_TOMO%,0,Options_ID%,196,&14,-h%
14750SYST_TOMO%,0,Options_ID%,196,&15,-i%
14760SYST_TOMO%,0,Options_ID%,196,&16,-j%
14770SYST_TOMO%,0,Options_ID%,196,&17,-k%
14780SYST_TOMO%,0,Options_ID%,196,&18,-l%
14790PROCboot_install("CHECK",bt%)
14800SYST_TOMO%,0,Options_ID%,65,&1B,bt%AND&80000000
14810SYST_TOMO%,0,Options_ID%,65,&1C,(NOTbt%)AND&80000000
14820WHENE_ABS%
14860SYST_TOMO%,0,Options_ID%,513,3,Buf1%,128TO,,,,,l%
14870Buf1%?l%=13:a%=VAL($Buf1%)
14880SYST_TOMO%,0,Options_ID%,513,1,Buf1%,128TO,,,,,l%
14890Buf1%?l%=13:b%=VAL($Buf1%)
14900SYST_TOMO%,0,Options_ID%,513,2,Buf1%,128TO,,,,,l%
14910Buf1%?l%=13:c%=VAL($Buf1%)
14920SYST_TOMO%,0,Options_ID%,197,9TOd%
14930SYST_TOMO%,0,Options_ID%,197,&aTOe%
14940SYST_TOMO%,0,Options_ID%,197,&cTOf%
14950SYST_TOMO%,0,Options_ID%,197,&dTOg%
14960SYST_TOMO%,0,Options_ID%,197,&14TOh%
14970SYST_TOMO%,0,Options_ID%,197,&15TOi%
14980SYST_TOMO%,0,Options_ID%,197,&16TOj%
14990SYST_TOMO%,0,Options_ID%,197,&17TOk%
15000SYST_TOMO%,0,Options_ID%,197,&18TOl%
15010CASESelf_Component%OF
15020WHEN&1a
15060PROCboot_install("OUT",bt%)
15070PROCkill_thieftraps
15080PROCpause_logins
15090PROCremove_logins
15100PROCsave_options(a%,b%,c%,(d%=1),(e%=1),(f%=1),(g%=1),(h%=1),(i%=1),(j%=1),0,0)
15110PROCclear_edits
15120WHEN&1b
15160PROCboot_install("IN",bt%)
15170SYST_TOMO%,0,Options_ID%,65,&1B,&80000000
15180SYST_TOMO%,0,Options_ID%,65,&1C,0
15190WHEN&1C
15230PROCboot_install("OUT",bt%)
15240SYST_TOMO%,0,Options_ID%,65,&1B,0
15250SYST_TOMO%,0,Options_ID%,65,&1C,&80000000
15260WHEN&11
15300PROCsave_options(a%,b%,c%,(d%=1),(e%=1),(f%=1),(g%=1),(h%=1),(i%=1),(j%=1),(k%=1),(l%=1))
15340IF(k%=1)ANDNOTPasswords_Enabled%THEN
15410Parent_Name$="Options"
15420PROCshowing_password
15430SYST_TSO%,0,Password_ID%,0,0,Options_ID%,0
15440Passwords_Enabled%=TRUE
15450Sequence$="ENABLING PASSWORDS"
15460ELSE
15470IF(k%=0)AND Passwords_Enabled%THEN
15510PROCpause_logins
15520PROCremove_logins
15530Passwords_Enabled%=FALSE
15540Logged_User$=""
15550ENDIF
15560ENDIF
15570Guest_Logins%=(g%=1)
15580Full_Owner_Access%=(i%=1)
15590Passwords_Enabled%=(k%=1)
15600Auto_Prompt%=(l%=1)
15610ENDCASE
15620ENDCASE
15630ENDPROC
15700DEFPROChandle_passmenu
15740LOCALl%,l$,a%
15760CASEEvent_Code%OF
15770WHENE_TOAC%
15810Passmenu_ID%=Self_ID%
15820WHENE_MATBS%
15860CASELogged_User$OF
15870WHEN""
15910PROCpassmenu_greys(0,1,1,1,1,1)
15920WHENOwner$
15960PROCpassmenu_greys(0,0,0,0,0,0)
15970WHEN"LOGOFF"
16010PROCpassmenu_greys(0,1,1,1,1,1)
16020OTHERWISE
16060PROCpassmenu_greys(0,0,0,1,1,1)
16070ENDCASE
16080WHENE_MS%
16120CASESelf_Component%OF
16130WHEN&D
16170Logged_User$="LOGOFF"
16180IF(Zzzzpass_Status%=3)THEN
16220PROCinform_zzzzpass(0)
16230ENDIF
16240IFAuto_Prompt%THEN
16280SYST_TSO%,0,Password_ID%,0,0,Passmenu_ID%,7
16290Sequence$="PROMPTING"
16300ENDIF
16310WHEN&C
16360Rusr%=1
16370PROCmake_dirlist
16410l$=""
16420FORa%=1TORusers%
16430l$+=Rusr$(a%)
16440IFa%<Rusers%THENl$+=","
16450NEXTa%
16460SYST_TOMO%,0,Useraccess_ID%,896,&1b,l$
16470SYST_TOMO%,1,Useraccess_ID%,898,&1b,0
16480PROCuser_gadgets
16490PROCdraw_main(2,0)
16500ENDCASE
16510ENDCASE
16520ENDPROC
16590DEFPROChandle_password
16630LOCALa%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,wh%
16650CASEEvent_Code%OF
16660WHENE_TOAC%
16700Password_ID%=Self_ID%
16710WHENE_WATBS%
16750PROCshowing_password
16760IFSequence$="PROMPTING"THEN
16810PROClock_mouse(TRUE)
16820ELSE
16830PROClock_mouse(FALSE)
16840ENDIF
16850WHENE_WHBH%
16890CASESequence$OF
16900WHEN"ENABLING PASSWORDS"
16940PROCget_options(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%)
16950PROCsave_options(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,FALSE,l%)
16960Passwords_Enabled%=FALSE
16970Sequence$="NORMAL"
16980WHEN"PROMPTING"
17020IFLogged_User$=""THEN
17060SYST_TSO%,0,Password_ID%,0,0,Passmenu_ID%,7
17070ENDIF
17080WHEN"NORMAL"
17120SYS"OS_ReadModeVariable",-1,4TO,,a%
17130SYS"OS_ReadModeVariable",-1,11TO,,b%
17140SYS"OS_ReadModeVariable",-1,5TO,,c%
17150SYS"OS_ReadModeVariable",-1,12TO,,d%
17160MOUSERECTANGLE0,0,(b%+1)<<a%,(d%+1)<<c%
17170ENDIF
17180ENDCASE
17190WHENE_ABS%
17230CASESelf_Component%OF
17240WHEN8
17280PROCaction_ok_password
17290WHEN9
17330SYST_TSO%,0,Password_ID%,0,0,Parent_ID%,Parent_Component%
17340ENDCASE
17350ENDCASE
17360ENDPROC
17430DEFPROChandle_sublist
17470CASEEvent_Code%OF
17480WHENE_TOAC%
17520Sublist_ID%=Self_ID%
17530SYST_TOMO%,0,Sublist_ID%,0TOSublist%(1,1)
17540Sublist%(1,3)=64
17550Sublist%(1,4)=-64
17560Sublist%(1,5)=812
17570Sublist%(1,6)=-232
17580ENDCASE
17590ENDPROC
17660DEFPROChandle_thieftrap
17700CASEEvent_Code%OF
17710WHENE_TOAC%
17750Thieftrap_ID%=Self_ID%
17760WHENE_WATBS%
17800SYST_TOMO%,0,Thieftrap_ID%,M_D_SS%,2,1
17810Source$="<BootPlus$Dir>.Resources.Thieftrap"
17820Application$="!Thieftrap"
17830WHENE_DDE%
17870Buf2%!0=64
17880Buf2%!12=0:Buf2%!16=1:Buf2%!20=Blck%!16
17890Buf2%!28=Blck%!24:Buf2%!32=Blck%!28:Buf2%!36=128
17900Buf2%!40=&2000:$(Buf2%+44)=Application$
17910SYS"Wimp_SendMessage",17,Buf2%,Blck%!16
17920ENDCASE
17930ENDPROC
18000DEFPROChandle_useraccess
18040LOCALl$,a%,ov%
18060CASEEvent_Code%OF
18070WHENE_TOAC%
18110Useraccess_ID%=Self_ID%
18120SYST_TOMO%,0,Useraccess_ID%,0TOSublist%(2,2)
18130Sublist%(3,2)=Sublist%(2,2)
18140WHENE_SSVC%
18180SYST_TOMO%,1,Useraccess_ID%,899,&1b,Buf1%,128TOa%
18190Rusr%=a%+1
18230PROCuser_gadgets
18240PROCset_list_extent(2,TRUE)
18250PROCdraw_sub(2,2,FALSE,0)
18260PROCset_list_extent(3,TRUE)
18270PROCdraw_sub(3,2,FALSE,0)
18280WHENE_ABS%
18320CASESelf_Component%OF
18330WHEN&18
18370PROCmodify_useraccess
18380PROCsave_useraccess
18390PROCsave_usertimes
18400Saved%=TRUE
18410ENDCASE
18420WHENE_WHBH%
18460SYST_THO%,0,Yesdir_ID%
18470SYST_THO%,0,Nodir_ID%
18480IFNOTSaved%THEN
18490PROCerror_message("EM9","","","ET3",&13,k%)
18500IFk%=1THEN
18540PROCmodify_useraccess
18550PROCsave_useraccess
18560PROCsave_usertimes
18570ENDIF
18580ENDIF
18590Saved%=TRUE
18600ENDCASE
18610ENDPROC
18680DEFPROChandle_yesdir
18720CASEEvent_Code%OF
18730WHENE_TOAC%
18770Yesdir_ID%=Self_ID%
18780SYST_TOMO%,0,Yesdir_ID%,0TOSublist%(2,1)
18790Sublist%(2,3)=44
18800Sublist%(2,4)=-280
18810Sublist%(2,5)=244
18820Sublist%(2,6)=-232
18830ENDCASE
18840ENDPROC
18910DEFPROChandle_wmi
18950LOCALnm$,st$,tn$,pc$,tp$
18970CASEEvent_Code%OF
18980WHENE_WATBS%
19020OSCLI("*ACCESS "+Ownerfile$+" WR/R")
19030f%=OPENIN(Ownerfile$)
19040FORa%=1TO5
19050a$=GET$#f%
19060SYST_TOMO%,0,Self_ID%,512,a%+4,a$
19070NEXTa%
19080CLOSE#f%
19090OSCLI("*ACCESS "+Ownerfile$+" L/")
19100WHENE_ABS%
19140IFSelf_Component%=10THEN
19150OSCLI("*ACCESS "+Ownerfile$+" WR/R")
19160f%=OPENUP(Ownerfile$)
19170FORa%=1TO5
19180SYST_TOMO%,0,Self_ID%,513,a%+4,Buf1%,128TO,,,,,l%
19190Buf1%?l%=13
19200BPUT#f%,$Buf1%
19210NEXTa%
19220CLOSE#f%
19230OSCLI("*ACCESS "+Ownerfile$+" L/")
19240ENDIF
19250ENDCASE
19260ENDPROC
19330DEFPROCmake_thieftrap(dest$)
19370LOCALf%,a%,a$,p%
19390p%=INSTR(dest$,".!Thieftrap")
19400OSCLI("*Access "+Thieffile$+" WR/R")
19410f%=OPENUP(Thieffile$)
19420a%=1
19430REPEAT
19440a%+=1
19450a$=GET$#f%
19460UNTILEOF#f%
19470a$=LEFT$(dest$,p%)+"!Trap_"+STR$(a%)
19510BPUT#f%,"*WIPE "+a$+" FR~C~V"
19520CLOSE#f%
19530OSCLI("*Access "+Thieffile$+" L/")
19570OSCLI("*COPY <BootPlus$Dir>.Resources.Thieftrap "+a$+" ~C~VR")
19610OSCLI("*COPY <BootPlus$Dir>.Resources.!zzzzpass "+a$+".!zzzzpass ~C~VR")
19630ENDPROC
19710DEFPROCkill_thieftraps
19750LOCALa%,a$,f%
19770OSCLI("*ACCESS "+Thieffile$+" WR/R")
19780OSCLI("*OBEY "+Thieffile$)
19790OSCLI("*WIPE "+Thieffile$+" ~C~V")
19800f%=OPENOUT(Thieffile$)
19810BPUT#f%,"| Files for killing"
19820CLOSE#f%
19830OSCLI("*SetType "+Thieffile$+" &FEB")
19840OSCLI("*ACCESS "+Thieffile$+" L/")
19850ENDPROC
19930DEFPROClock_mouse(lockmouse)
19970LOCALa%,b%,w%,h%
19980SYS"OS_ReadModeVariable",-1,4TO,,a%
19990SYS"OS_ReadModeVariable",-1,11TO,,b%
20000w%=(b%+1)<<a%
20010SYS"OS_ReadModeVariable",-1,5TO,,a%
20020SYS"OS_ReadModeVariable",-1,12TO,,b%
20030h%=(b%+1)<<a%
20040SYST_TOMO%,0,Password_ID%,0TOBlck%!0
20050SYS"Wimp_GetWindowState",,Blck%
20060IFlockmouseTHEN
20100MOUSERECTANGLEBlck%!4,Blck%!8,Blck%!12-Blck%!4,Blck%!16-Blck%!8
20110ENDIF
20120Blck%!4=(w%-608)/2:Blck%!8=(h%-464)/2
20130Blck%!12=Blck%!4+608:Blck%!16=Blck%!8+464
20140SYS"Wimp_OpenWindow",,Blck%
20150ENDPROC
20220DEFPROCshowing_password
20260CASEParent_Name$OF
20270WHEN"Iconbar"
20310PROCclear_fields("CF1","","","","",0,0,&80000000,&80000000)
20320Autoclose%=TRUE
20330WHEN"Options"
20370PROCclear_fields("CF2",Owner$,"","","",&80000000,&80000000,0,0)
20380WHEN"Passmenu"
20390CASEParent_Component%OF
20400WHEN3
20440PROCclear_fields("CF3",Owner$,"","","",0,0,&80000000,&80000000)
20450Username$=Owner$
20460WHEN8
20500PROCclear_fields("CF3",Owner$,"","","",0,0,&80000000,&80000000)
20510Username$=Owner$
20520WHEN7
20560PROCclear_fields("CF4","","","","",0,0,&80000000,&80000000)
20570WHEN6
20610IFLogged_User$=""THEN
20620PROCerror_message("EM10","","","",0,K%)
20630ELSE
20640PROCclear_fields("CF5",Logged_User$,"","","",&80000000,0,0,0)
20650Username$=Logged_User$
20660ENDIF
20670ENDCASE
20680Autoclose%=FALSE
20690WHEN"Password"
20700CASEParent_Component%OF
20710WHEN100
20750PROCclear_fields("CF6","","","","",0,&80000000,0,0)
20760WHEN101
20800PROCclear_fields("CF7","","","","",0,&80000000,0,0)
20810WHEN102
20850PROCclear_fields("CF8",Owner$,"","","",&80000000,&80000000,0,0)
20860Username$=Owner$
20870ENDCASE
20880Autoclose%=FALSE
20890ENDCASE
20900ENDPROC
20970DEFPROCvalchange_password
21010IFBlck%!16=0THEN
21050PROCerror_message("EM11","","","",0,K%)
21060ELSE
21070CASESelf_Component%OF
21080WHEN4
21090Username$=FNindirect(Blck%+16)
21100WHEN5
21110Password$=FNindirect(Blck%+16)
21120WHEN6
21130Newpassword$=FNindirect(Blck%+16)
21140WHEN7
21150Verify$=FNindirect(Blck%+16)
21160ENDCASE
21170ENDIF
21180ENDPROC
21250DEFPROCaction_ok_password
21290LOCALu$,p$,valid%,verify%,exists%
21310SYST_TOMO%,0,Password_ID%,513,&4,Buf1%,256
21320u$=FNindirect(Buf1%)
21330SYST_TOMO%,0,Password_ID%,513,&5,Buf1%,256
21340p$=FNindirect(Buf1%)
21350SYST_TOMO%,0,Password_ID%,513,&6,Buf1%,256
21360n$=FNindirect(Buf1%)
21370SYST_TOMO%,0,Password_ID%,513,&7,Buf1%,256
21380v$=FNindirect(Buf1%)
21390valid%=FNcheck_user(u$,p$,exists%)
21400verify%=(n$=v$)
21410CASEParent_Name$OF
21420WHEN"Iconbar"
21460IFvalid%THEN
21470PROClogin_user(u$,TRUE)
21480ELSE
21490IFexists%THEN
21500PROCerror_message("EM12","","","",0,K%)
21510ELSE
21520PROCerror_message("EM13","","","",0,K%)
21530ENDIF
21540ENDIF
21550WHEN"Options"
21590IFNOTverify%THEN
21600PROCerror_message("EM14","","","",0,K%)
21610SYST_TSO%,0,Password_ID%,0,0,Options_ID%,0
21620ELSE
21630IFLEN(n$)<4THEN
21640PROCerror_message("EM15","","","",0,K%)
21650SYST_TSO%,0,Password_ID%,0,0,Options_ID%,0
21660ELSE
21670IFexists%THEN
21680PROCmodify_user(u$,n$)
21690ELSE
21700PROCadd_user(u$,n$)
21710ENDIF
21750PROClogin_user(u$,TRUE)
21760PROCinstall_logins
21770Sequence$="NORMAL"
21780ENDIF
21790ENDIF
21800WHEN"Passmenu"
21840CASEParent_Component%OF
21850WHEN3
21890IFvalid%THEN
21900SYST_TSO%,0,Password_ID%,0,0,Password_ID%,100
21910ELSE
21920PROCerror_message("EM16","","","",0,K%)
21930ENDIF
21940WHEN8
21980IFvalid%THEN
21990SYST_TSO%,0,Password_ID%,0,0,Password_ID%,101
22000ELSE
22010PROCerror_message("EM16","","","",0,K%)
22020ENDIF
22030WHEN7
22070IFvalid%THEN
22080PROClogin_user(u$,TRUE)
22090Sequence$="NORMAL"
22100ELSE
22110IFexists%THEN
22120PROCerror_message("EM12","","","",0,K%)
22130ELSE
22140PROCerror_message("EM13","","","",0,K%)
22150ENDIF
22160ENDIF
22170WHEN6
22210IFvalid%THEN
22220IFverify%THEN
22230IFLEN(n$)<4THEN
22240PROCerror_message("EM15","","","",0,K%)
22250ELSE
22260IFn$=p$THEN
22270PROCerror_message("EM17","","","",0,K%)
22280ELSE
22290PROCmodify_user(u$,n$)
22300ENDIF
22310ENDIF
22320ELSE
22330PROCerror_message("EM14","","","",0,K%)
22340ENDIF
22350ELSE
22360PROCerror_message("EM18","","","",0,K%)
22370ENDIF
22380ENDCASE
22390WHEN"Password"
22430CASEParent_Component%OF
22440WHEN100
22480IFexists%THEN
22490PROCerror_message("EM19",u$,"","",0,K%)
22500ELSE
22510IFverify%THEN
22520IFLEN(n$)<4THEN
22530PROCerror_message("EM15","","","",0,K%)
22540ELSE
22550PROCadd_user(u$,n$)
22560ENDIF
22570ELSE
22580PROCerror_message("EM14","","","",0,K%)
22590SYST_TSO%,0,Password_ID%,0,0,Password_ID%,100
22600ENDIF
22610ENDIF
22620WHEN101
22660IFNOTexists%THEN
22670PROCerror_message("EM20",u$,"","",0,K%)
22680ELSE
22690IFverify%THEN
22700IFLEN(n$)<4THEN
22710PROCerror_message("EM15","","","",0,K%)
22720ELSE
22730PROCmodify_user(u$,n$)
22740ENDIF
22750ELSE
22760PROCerror_message("EM14","","","",0,K%)
22770SYST_TSO%,0,Password_ID%,0,0,Password_ID%,101
22780ENDIF
22790ENDIF
22800WHEN102
22840IFverify%THEN
22850PROCadd_user(Owner$,Newpassword$)
22860PROClogin_user(Owner$,TRUE)
22870ELSE
22880PROCerror_message("EM14","","","",0,K%)
22890SYST_TSO%,0,Password_ID%,0,0,Password_ID%,102
22900ENDIF
22910ENDCASE
22920ENDCASE
22930ENDPROC
23000DEFPROCget_options(RETURNat%,RETURNwt%,RETURNdt%,RETURNts%,RETURNtq%,RETURNda%,RETURNgl%,RETURNtm%,RETURNfo%,RETURNwo%,RETURNpe%,RETURNap%)
23140LOCALf%,a$,a%
23180wo%=FALSE
23190pe%=FALSE
23200ap%=FALSE
23220SYS"OS_File",4,Optfile$,,,,3
23230f%=OPENIN(Optfile$)
23240u%=0
23250REPEAT
23260a$=GET$#f%
23270a%=INSTR(a$,":")
23280CASELEFT$(a$,a%-2)OF
23290WHEN"Allow Time"
23300at%=VAL(MID$(a$,a%+2))
23310WHEN"Warn Time"
23320wt%=VAL(MID$(a$,a%+2))
23330WHEN"Die Time"
23340dt%=VAL(MID$(a$,a%+2))
23350WHEN"Task Starting"
23360ts%=(MID$(a$,a%+2)="Y")
23370WHEN"Task Quitting"
23380tq%=(MID$(a$,a%+2)="Y")
23390WHEN"Directory Access"
23400da%=(MID$(a$,a%+2)="Y")
23410WHEN"Guest Logins"
23420gl%=(MID$(a$,a%+2)="Y")
23430WHEN"Test Mode Logins"
23440tm%=(MID$(a$,a%+2)="Y")
23450WHEN"Full Owner Access"
23460fo%=(MID$(a$,a%+2)="Y")
23470WHEN"Watchdog Off"
23480wo%=(MID$(a$,a%+2)="Y")
23490WHEN"Passwords Enabled"
23500pe%=(MID$(a$,a%+2)="Y")
23510WHEN"Auto Prompt"
23520ap%=(MID$(a$,a%+2)="Y")
23530ENDCASE
23540UNTILEOF#f%
23550CLOSE#f%
23560SYS"OS_File",4,Optfile$,,,,9
23570ENDPROC
23650DEFPROCget_useraccess
23690LOCALf%,a$,a%
23710SYS"OS_File",4,Accessfile$,,,,3
23720f%=OPENIN(Accessfile$)
23730Rusers%=0
23740REPEAT
23750a$=GET$#f%
23760a%=INSTR(a$,":")
23770Rusers%+=1
23780Rusr$(Rusers%)=LEFT$(a$,a%-2)
23790Rdir$(Rusers%)=MID$(a$,a%+2)
23800UNTILEOF#f%
23810CLOSE#f%
23820SYS"OS_File",4,Accessfile$,,,,9
23830ENDPROC
23900DEFPROCget_usertimes
23940LOCALf%,a$,a%
23960SYS"OS_File",4,Timesfile$,,,,3
23970f%=OPENIN(Timesfile$)
23980Rusers%=0
23990REPEAT
24000a$=GET$#f%
24010a%=INSTR(a$,":")
24020Rusers%+=1
24030Rtim$(Rusers%)=MID$(a$,a%+2)
24040UNTILEOF#f%
24050CLOSE#f%
24060SYS"OS_File",4,Timesfile$,,,,9
24070ENDPROC
24140DEFPROCsave_options(at%,wt%,dt%,ts%,tq%,da%,gl%,tm%,fo%,wo%,pe%,ap%)
24300LOCALf%
24320SYS"OS_File",4,Optfile$,,,,3
24330f%=OPENOUT(T_Optfile$)
24340BPUT#f%,"Allow Time : "+STR$(at%)
24350BPUT#f%,"Warn Time : "+STR$(wt%)
24360BPUT#f%,"Die Time : "+STR$(dt%)
24370BPUT#f%,"Task Starting : "+CHR$(-89*ts%-78*(NOTts%))
24380BPUT#f%,"Task Quitting : "+CHR$(-89*tq%-78*(NOTtq%))
24390BPUT#f%,"Directory Access : "+CHR$(-89*da%-78*(NOTda%))
24400BPUT#f%,"Guest Logins : "+CHR$(-89*gl%-78*(NOTgl%))
24410BPUT#f%,"Test Mode Logins : "+CHR$(-89*tm%-78*(NOTtm%))
24420BPUT#f%,"Full Owner Access : "+CHR$(-89*fo%-78*(NOTfo%))
24430BPUT#f%,"Watchdog Off : "+CHR$(-89*wo%-78*(NOTwo%))
24440BPUT#f%,"Passwords Enabled : "+CHR$(-89*pe%-78*(NOTpe%))
24450BPUT#f%,"Auto Prompt : "+CHR$(-89*ap%-78*(NOTap%))
24460CLOSE#f%
24470SYS"OS_File",6,Optfile$
24480SYS"OS_FSControl",25,T_Optfile$,Optfile$
24490SYS"OS_File",4,Optfile$,,,,9
24500ENDPROC
24590DEFPROCsave_useraccess
24640LOCALf%,a%
24660SYS"OS_File",4,Accessfile$,,,,3
24670f%=OPENOUT(T_Accessfile$)
24680FORa%=1TORusers%
24690BPUT#f%,Rusr$(a%)+" : "+Rdir$(a%)
24700NEXTa%
24710CLOSE#f%
24720SYS"OS_File",6,Accessfile$
24730SYS"OS_FSControl",25,T_Accessfile$,Accessfile$
24740SYS"OS_File",4,Accessfile$,,,,9
24750ENDPROC
24830DEFPROCsave_usertimes
24870LOCALf%,a%
24890SYS"OS_File",4,Timesfile$,,,,3
24900f%=OPENOUT(T_Timesfile$)
24910FORa%=1TORusers%
24920BPUT#f%,Rusr$(a%)+" : "+Rtim$(a%)
24930NEXTa%
24940CLOSE#f%
24950SYS"OS_File",6,Timesfile$
24960SYS"OS_FSControl",25,T_Timesfile$,Timesfile$
24970SYS"OS_File",4,Timesfile$,,,,9
24980ENDPROC
25050DEFPROCmake_dirlist
25090LOCALpntr%,spntr%,a%
25110Tdirs%=0
25150a%=0
25160REPEAT
25170SYS"OS_GBPB",12,"<Boot$dir>.^",Buf1%,1,a%,256,"*"TO,,,,a%
25180IF(a%<>-1)AND(Buf1%!20>&fff)THEN
25220Tdirs%+=1
25230Tdir$(Tdirs%,1)=FNindirect(Buf1%+24)
25240IFRusr$(Rusr%)<>Owner$AND(Tdir$(Tdirs%,1)="!Boot"ORLEFT$(Tdir$(Tdirs%,1),6)="!Trap_")THEN
25280Tflg%(Tdirs%,1)=&7OR&100OR(24<<16)OR&40
25290ELSE
25330Tflg%(Tdirs%,1)=&7OR&100OR(24<<16)
25340ENDIF
25350ENDIF
25360UNTILa%=-1
25370Tnpt%()=0
25380Typt%()=0
25390ENDPROC
25470DEFPROCuser_gadgets
25510LOCALa%,d%,l%,r%,e1%,e2%,t$
25530Tydirs%=0
25540Tndirs%=0
25550FORa%=1TOTdirs%
25560IFINSTR(Rdir$(Rusr%),"|"+Tdir$(a%,1)+"|")>0THEN
25600Tydirs%+=1
25610Typt%(Tydirs%)=a%
25620ELSE
25660Tndirs%+=1
25670Tnpt%(Tndirs%)=a%
25680ENDIF
25720IF(Tflg%(a%,1)AND&40)=&40THEN
25760IFRusr$(Rusr%)=Owner$THEN
25770Tflg%(a%,1)=(Tflg%(a%,1)AND&FFFFFFFC)OR&7
25780ELSE
25790Tflg%(a%,1)=(Tflg%(a%,1)AND&FFFFFFFC)OR&5
25800ENDIF
25810ENDIF
25820NEXTa%
25860t$=Rtim$(Rusr%)
25870l%=1
25880FORd%=1TO7
25890r%=INSTR(t$,"|",l%+1)
25900e1%=INSTR(t$,"=",l%+1)
25910e2%=INSTR(t$,"=",e1%+1)
25950IFMID$(t$,l%+3,1)="Y"THEN
25960SYST_TOMO%,0,Useraccess_ID%,196,d%+&3,1
25970ELSE
25980SYST_TOMO%,0,Useraccess_ID%,196,d%+&3,0
25990ENDIF
26030SYST_TOMO%,0,Useraccess_ID%,832,d%+&23,VAL(MID$(t$,e1%+1,e2%-e1%-1))
26070SYST_TOMO%,0,Useraccess_ID%,832,d%+&30,VAL(MID$(t$,e2%+1,r%-e2%-1))
26080l%=r%
26090r%=INSTR(t$,"|",l%+1)
26100NEXTd%
26110ENDPROC
26180DEFPROCmodify_useraccess
26220LOCALa$,a%,b,t$
26260a$="|"
26270FORa%=1TOTydirs%
26280a$+=Tdir$(Typt%(a%),1)+"|"
26290NEXTa%
26300Rdir$(Rusr%)=a$
26340a$="|"
26350FORd%=1TO7
26360a$+=Weekdays$(d%)
26370SYST_TOMO%,0,Useraccess_ID%,197,&3+d%TOa%
26380IFa%=1THEN
26390a$+="Y"
26400ELSE
26410a$+="N"
26420ENDIF
26430SYST_TOMO%,0,Useraccess_ID%,833,d%+&23TOa%
26440a$+="="+STR$(a%)
26480SYST_TOMO%,0,Useraccess_ID%,833,d%+&30TOa%
26490a$+="="+STR$(a%)+"|"
26500NEXTd%
26510Rtim$(Rusr%)=a$
26520ENDPROC
26590DEFPROCpassmenu_greys(i1%,i2%,i3%,i4%,i5%,i6%)
26700SYST_TOMO%,0,Passmenu_ID%,2,7,i1%
26710SYST_TOMO%,0,Passmenu_ID%,2,&d,i2%
26720SYST_TOMO%,0,Passmenu_ID%,2,6,i3%
26730SYST_TOMO%,0,Passmenu_ID%,2,3,i4%
26740SYST_TOMO%,0,Passmenu_ID%,2,8,i5%
26750SYST_TOMO%,0,Passmenu_ID%,2,&c,i6%
26760ENDPROC
26830DEFPROCibarmenu_greys(i1%,i2%,i3%,i4%,bt$)
26910SYST_TOMO%,0,Ibarmenu_ID%,2,5,i1%
26920SYST_TOMO%,0,Ibarmenu_ID%,2,6,i2%
26930SYST_TOMO%,0,Ibarmenu_ID%,2,&a,i3%
26940SYST_TOMO%,0,Ibarmenu_ID%,2,&b,i4%
26950SYST_TOMO%,0,Ibarmenu_ID%,24,bt$
26960ENDPROC
27030DEFPROCclear_fields(lb$,t1$,t2$,t3$,t4$,fd1%,fd2%,fd3%,fd4%)
27170a$=FNget_message(lb$,"","","","")
27180SYST_TOMO%,0,Password_ID%,448,&a,a$
27190SYST_TOMO%,0,Password_ID%,512,4,t1$
27200SYST_TOMO%,0,Password_ID%,512,5,t2$
27210SYST_TOMO%,0,Password_ID%,512,6,t3$
27220SYST_TOMO%,0,Password_ID%,512,7,t3$
27230SYST_TOMO%,0,Password_ID%,65,0,fd1%
27240SYST_TOMO%,0,Password_ID%,65,4,fd1%
27250SYST_TOMO%,0,Password_ID%,65,1,fd2%
27260SYST_TOMO%,0,Password_ID%,65,5,fd2%
27270SYST_TOMO%,0,Password_ID%,65,2,fd3%
27280SYST_TOMO%,0,Password_ID%,65,6,fd3%
27290SYST_TOMO%,0,Password_ID%,65,3,fd4%
27300SYST_TOMO%,0,Password_ID%,65,7,fd4%
27310ENDPROC
27380DEFPROCinstall_logins
27450LOCALl%,bootplusdir$
27460SYS"OS_ReadVarVal","Bootplus$Dir",Buf1%,128,0,0TO,,l%
27470Buf1%?l%=13
27480bootplusdir$=$Buf1%
27490Application$="!zzzzpass"
27500Source$=bootplusdir$+".resources.!zzzzpass"
27510PROCmake_alias("<Boot$ToBeTasks>.!zzzzpass")
27520Application$="!Bootplus"
27530Source$=bootplusdir$
27540PROCmake_alias("<Boot$ToBeTasks>.!Bootplus")
27550Edit_Type$="boot"
27560PROCmodify_boot_file(bootplusdir$,"remove",TRUE)
27570PROCmodify_boot_file(bootplusdir$,"insert",TRUE)
27580Edit_Type$=""
27590*Filer_Run <Bootplus$Dir>.Resources.!zzzzpass
27600ENDPROC
27670DEFPROCremove_logins
27720LOCALl%,bootplusdir$
27740SYS"OS_ReadVarVal","Bootplus$Dir",Buf1%,128,0,0TO,,l%
27750Buf1%?l%=13
27760bootplusdir$=$Buf1%
27770SYS"XOS_FSControl",27,"<Boot$ToBeTasks>.!zzzzpass",,3
27780SYS"XOS_FSControl",27,"<Boot$ToBeTasks>.!bootplus",,3
27790Edit_Type$="boot"
27800PROCmodify_boot_file(bootplusdir$,"remove",TRUE)
27810Edit_Type$=""
27820ENDPROC
27890DEFPROCpause_logins
27930LOCALid%
27950id%=FNget_task_id("zzzzpass")
27960IFid%>0THEN
28000Blck%!0=28:Blck%!12=0:Blck%!16=&808c0
28010Blck%!20=4:Blck%!24=Buf2%
28020!Buf2%=3
28030SYS"Wimp_SendMessage",17,Blck%,id%
28040ENDIF
28050id%=FNget_task_id("zzzzchk")
28060IFid%>0THEN
28100Blck%!0=28:Blck%!12=0:Blck%!16=&808c0
28110Blck%!20=4:Blck%!24=Buf2%
28120!Buf2%=3
28130SYS"Wimp_SendMessage",17,Blck%,id%
28140ENDIF
28150ENDPROC
28250DEFFNencode(pswd$)
28320LOCALencd$,a%,b%,c%,d%
28340encd$=""
28350a%=LEN(pswd$)
28360FORe%=1TOa%
28370b%=ASC(MID$(pswd$,e%,1))
28380c%=ASC(MID$(pswd$,a%-e%+1,1))
28390d%=(b%*(c%+1))AND&FF
28400IFd%<32THENd%+=32
28410IFd%>=127AND d%<=139THENd%+=23
28420encd$+=CHR$(d%)
28430NEXTe%
28460=encd$
28530DEFFNcheck_user(usnm$,pass$,RETURNnami%)
28650LOCALencd$,ntry$,f%,ok%,pnam$,ppas$,p1$
28670IFusnm$="GUEST"THEN
28710ok%=((pass$="GUEST")AND Guest_Logins%)
28720nami%=TRUE
28730ELSE
28770a%=0
28780p1$=FNencode(pass$)
28790encd$=FNencode(p1$)
28800ok%=FALSE
28810nami%=FALSE
28820SYS"OS_File",4,Passfile$,,,,3
28830f%=OPENIN(Passfile$)
28840WHILENOT(EOF#f%ORok%)
28850ntry$=GET$#f%
28860tab1%=INSTR(ntry$,CHR$(9))
28870tab2%=INSTR(ntry$,CHR$(9),tab1%+1)
28880pnam$=LEFT$(ntry$,tab1%-1)
28890ppas$=MID$(ntry$,tab1%+1,tab2%-tab1%-1)
28900a%+=1
28910ok%=((usnm$=pnam$)AND(encd$=ppas$))
28920IFusnm$=pnam$THENnami%=TRUE
28930ENDWHILE
28940CLOSE#f%
28950SYS"OS_File",4,Passfile$,,,,9
28960ENDIF
28980=ok%
29050DEFPROCadd_user(usnm$,pass$)
29120LOCALencd$,pad%,p1$,bd$,f%,l%
29160p1$=FNencode(pass$)
29170encd$=FNencode(p1$)
29180pad%=35-(LEN(usnm$)+LEN(encd$)+2)
29190SYS"OS_File",4,Passfile$,,,,3
29200f%=OPENUP(Passfile$)
29210WHILENOTEOF#f%
29220ntry$=GET$#f%
29230ENDWHILE
29240BPUT#f%,usnm$+CHR$(9)+encd$+CHR$(9)+STRING$(pad%,"x")
29250CLOSE#f%
29260SYS"OS_File",4,Passfile$,,,,9
29320SYS"OS_ReadVarVal","Boot$Dir",Buf1%,128,0,0TO,,l%
29330l%-=6
29340Buf1%?l%=13
29350bd$=$Buf1%
29370SYS"OS_File",20,bd$+".Groups"TOf%
29380IFf%=0THEN
29420SYS"OS_File",8,bd$+".Groups"
29430ENDIF
29440SYS"OS_File",20,bd$+".Groups."+usnm$TOf%
29450IFf%=0THEN
29490SYS"OS_File",8,bd$+".Groups."+usnm$
29500ENDIF
29510Rusers%+=1
29520Rusr$(Rusers%)=usnm$
29530Rdir$(Rusers%)="|Apps|Diversions|Images|Public|Sound|Tutorials|Utilities|Video|"
29540bd$="|"
29550FORb%=1TO7
29560bd$+=Weekdays$(b%)+"Y=8=17|"
29570NEXTb%
29580Rtim$(Rusers%)=bd$
29590PROCsave_useraccess
29600PROCsave_usertimes
29610ENDPROC
29680DEFPROCmodify_user(usnm$,pass$)
29750LOCALencd$,ntyr$,pad%,tab1%,tab2%,pnam$,p1$
29770p1$=FNencode(pass$)
29780encd$=FNencode(p1$)
29790pad%=35-(LEN(usnm$)+LEN(encd$)+2)
29800SYS"OS_File",4,Passfile$,,,,3
29810f%=OPENUP(Passfile$)
29820REPEAT
29830posn%=PTR#f%
29840ntry$=GET$#f%
29850tab1%=INSTR(ntry$,CHR$(9))
29860tab2%=INSTR(ntry$,CHR$(9),tab1%+1)
29870pnam$=LEFT$(ntry$,tab1%-1)
29880UNTILpnam$=usnm$
29890PTR#f%=posn%
29900BPUT#f%,usnm$+CHR$(9)+encd$+CHR$(9)+STRING$(pad%,"x")
29910CLOSE#f%
29920SYS"OS_File",4,Passfile$,,,,9
29930ENDPROC
30000DEFPROClogin_user(usnm$,inform%)
30070LOCALa%,al%,dur%,sh%,eh%
30090IFLogged_User$<>usnm$THEN
30130PROCuser_times(usnm$,al%,dur%,sh%,eh%)
30140CASEal%OF
30150WHEN1
30190SYST_TOMO%,0,Ibarmenu_ID%,2,6,0
30200Logged_User$=usnm$
30240IF(Zzzzpass_Status%=3)AND inform%THEN
30280PROCinform_zzzzpass(dur%)
30290ENDIF
30300WHEN2
30340PROCerror_message("EM21","","","ET1",0,K%)
30350WHEN3
30390PROCerror_message("EM22",STR$(sh%),STR$(eh%),"ET1",0,K%)
30400ENDCASE
30410ELSE
30450PROCerror_message("EM23","","","ET2",0,K%)
30460ENDIF
30470ENDPROC
30550DEFPROCuser_times(usern$,RETURNallowed%,RETURNduration%,RETURNsh%,RETURNeh%)
30590LOCALa%,th%,mn%,wd%,e1%,e2%,b%
30630FORa%=1TORusers%
30640IFRusr$(a%)=usnm$THEN
30650Rusr%=a%
30660ENDIF
30670NEXTa%
30680IFusern$=Owner$THEN
30720allowed%=1
30730ELSE
30770!Buf1%=3
30780SYS"OS_Word",14,Buf1%
30790SYS&c1,Buf1%,Buf2%,128,"%24"TO,a%
30800?a%=13
30810th%=VAL($Buf2%)
30820SYS&c1,Buf1%,Buf2%,128,"%WN"TO,a%
30830?a%=13
30840wd%=VAL($Buf2%)
30850SYS&c1,Buf1%,Buf2%,128,"%MI"TO,a%
30860?a%=13
30870mn%=VAL($Buf2%)
30880a%=INSTR(Rtim$(Rusr%),Weekdays$(wd%),1)
30890duration%=0
30900IFMID$(Rtim$(Rusr%),a%+2,1)="Y"THEN
30940e1%=INSTR(Rtim$(Rusr%),"=",a%+3)
30950e2%=INSTR(Rtim$(Rusr%),"=",e1%+2)
30960b%=INSTR(Rtim$(Rusr%),"|",e2%+2)
30970sh%=VAL(MID$(Rtim$(Rusr%),e1%+1,e2%-e1%-1))
30980eh%=VAL(MID$(Rtim$(Rusr%),e2%+1,b%-e2%-1))
30990IF(th%>=sh%AND th%<=eh%)THEN
31000allowed%=1
31010duration%=(eh%-th%+1)*60-mn%
31020ELSE
31030allowed%=3
31040ENDIF
31050ELSE
31060allowed%=2
31070ENDIF
31080ENDIF
31090ENDPROC
31170DEFPROCinform_zzzzpass(duration%)
31220LOCALp%,a%
31370p%=20
31380!Buf2%=1
31390Buf2%!4=p%
31400$(Buf2%+20)=Logged_User$+CHR$(13)
31410p%+=LEN(Logged_User$)+2
31420Buf2%!12=p%
31430IFLogged_User$="LOGOFF"THEN
31440$(Buf2%+Buf2%!12)="||"
31450P%+=2
31460ELSE
31470$(Buf2%+Buf2%!12)=Rdir$(Rusr%)
31480p%+=LEN(Rdir$(Rusr%))
31490ENDIF
31500Buf2%!16=duration%
31540Blck%!0=32:Blck%!12=0:Blck%!16=&808c0
31550Blck%!20=p%:Blck%!24=Buf2%
31560IFLogged_User$="LOGOFF"THEN
31570Blck%!20=Buf2%!12+4
31580ELSE
31590Blck%!20=Buf2%!12+LEN(Rdir$(Rusr%))+2
31600ENDIF
31610SYS"Wimp_SendMessage",17,Blck%,Zzzzpass_Handle%
31620ENDPROC
31690DEFPROCboot_install(type$,RETURNcf%)
31730LOCALf%,a$,bv$,n%
31770cf%=FALSE
31780f%=OPENIN("<Boot$Dir>.Utils.Deskrun")
31790REPEAT
31800a$=GET$#f%
31810cf%=(INSTR(a$,"!Bootplus")>0)
31820UNTILEOF#f%ORcf%
31830CLOSE#f%
31870SYS"OS_ReadVarVal","Bootplus$Dir",Buf1%,128,0,0TO,,n%
31880Buf1%?n%=13
31890CASETRUEOF
31900WHEN((type$="IN")ANDNOTcf%)
31940SYS"OS_FSControl",24,"<Boot$Dir>.Utils.Deskrun","WR/WR"
31950SYS"OS_FSControl",25,"<Boot$Dir>.Utils.Deskrun","<Boot$Dir>.Utils.DeskrunO"
31960SYS"OS_FSControl",24,"<Boot$Dir>.Utils.DeskrunO","LR/R"
31970f%=OPENOUT("<Boot$Dir>.Utils.Deskrun")
31980BPUT#f%,"IFTHERE "+$Buf1%+".!Run THEN Filer_Run "+$Buf1%+" ELSE ERROR !Bootplus has moved.  Run it from the current location and re-install into !Boot"
31990CLOSE#f%
32000SYS"OS_File",18,"<Boot$Dir>.Utils.Deskrun",&FEB
32010SYS"OS_FSControl",24,"<Boot$Dir>.Utils.Deskrun","LR/R"
32020WHEN((type$="OUT")AND cf%)
32060SYS"OS_FSControl",24,"<Boot$Dir>.Utils.Deskrun","WR/WR"
32070SYS"OS_FSControl",24,"<Boot$Dir>.Utils.DeskrunO","WR/WR"
32080SYS"OS_File",6,"<Boot$Dir>.Utils.Deskrun"
32090SYS"OS_FSControl",25,"<Boot$Dir>.Utils.DeskrunO","<Boot$Dir>.Utils.Deskrun"
32100SYS"OS_FSControl",24,"<Boot$Dir>.Utils.Deskrun","LR/R"
32110ENDCASE
32120ENDPROC
32210DEFPROCdraw_main(mid%,reason%)
32290LOCALa%
32330Blck%!0=Sublist%(mid%,2)
32340SYS"Wimp_GetWindowState",,Blck%
32350CASEreason%OF
32360WHEN0
32400CASEmid%OF
32410WHEN1
32450CASEEdit_Type$OF
32460WHEN"autorun"
32470SYST_TOMO%,0,Mainlist_ID%,11,"Edit Autorun Files"
32480WHEN"boot"
32490SYST_TOMO%,0,Mainlist_ID%,11,"Edit Autobooted Applications"
32500WHEN"resources"
32510SYST_TOMO%,0,Mainlist_ID%,11,"Edit Resource Applications"
32520WHEN"predesk"
32530SYST_TOMO%,0,Mainlist_ID%,11,"Edit Predesk Files"
32540ENDCASE
32580ENDCASE
32590SYS"Wimp_OpenWindow",,Blck%
32600WHEN2
32610SYS"Wimp_RedrawWindow",,Blck%
32620ENDCASE
32660IFmid%=2THEN
32700PROCdraw_sub(2,reason%,TRUE,0)
32710PROCdraw_sub(3,reason%,TRUE,0)
32720ELSE
32760PROCdraw_sub(1,reason%,TRUE,0)
32770ENDIF
32810Blck%!0=Sublist%(mid%,2)
32820SYS"Wimp_GetWindowState",,Blck%
32830Blck%!28=Sublist%(mid%,1)
32840SYS"Wimp_OpenWindow",,Blck%
32850ENDPROC
33000DEFPROCdraw_sub(sid%,reason%,main%,bh%)
33090LOCALa%,r%,os_wx%,os_wy%
33120IFreason%<>2THEN
33160Buf1%!0=Sublist%(sid%,2)
33170SYS"Wimp_GetWindowState",,Buf1%
33180os_wx%=(Buf1%!4-Buf1%!20)
33190os_wy%=(Buf1%!16-Buf1%!24)
33200Buf2%!0=Sublist%(sid%,1)
33210SYS"Wimp_GetWindowState",,Buf2%
33220Buf2%!4=os_wx%+Sublist%(sid%,3)
33230Buf2%!8=os_wy%+Sublist%(sid%,4)+Sublist%(sid%,6)
33240Buf2%!12=os_wx%+Sublist%(sid%,3)+Sublist%(sid%,5)
33250Buf2%!16=os_wy%+Sublist%(sid%,4)
33260ENDIF
33300CASEreason%OF
33310WHEN0
33490Buf2%!28=-1
33500SYS"Wimp_OpenWindow",,Buf2%
33520PROCset_list_extent(sid%,TRUE)
33530CASEsid%OF
33540WHEN1
33580PROCdraw_list(1,Objs%,Optr%(),Odat$(),Oflg%())
33590WHEN2
33630PROCdraw_list(2,Tydirs%,Typt%(),Tdir$(),Tflg%())
33640WHEN3
33680PROCdraw_list(3,Tndirs%,Tnpt%(),Tdir$(),Tflg%())
33690ENDCASE
33710WHEN2
33750CASEsid%OF
33760WHEN1
33800PROCdraw_list(1,Objs%,Optr%(),Odat$(),Oflg%())
33810WHEN2
33850PROCdraw_list(2,Tydirs%,Typt%(),Tdir$(),Tflg%())
33860WHEN3
33900PROCdraw_list(3,Tndirs%,Tnpt%(),Tdir$(),Tflg%())
33910ENDCASE
33920WHEN3
33960Buf2%!28=bh%
33970SYS"Wimp_OpenWindow",,Buf2%
33980ENDCASE
33990ENDPROC
34090DEFPROCset_list_extent(sid%,redraw%)
34130Blck%!0=Sublist%(sid%,1)
34140SYS"Wimp_GetWindowInfo",,(Blck%OR&1)
34150CASEsid%OF
34160WHEN1
34170Blck%!48=-Font_Lh%*Objs%
34180WHEN2
34190Blck%!48=-Font_Lh%*Tydirs%
34200WHEN3
34210Blck%!48=-Font_Lh%*Tndirs%
34220ENDCASE
34230IFBlck%!48>(Blck%!8-Blck%!16)THEN
34240Blck%!48=Blck%!8-Blck%!16
34250ENDIF
34260SYS"Wimp_SetExtent",Blck%!0,Blck%+44
34270IFredraw%THEN
34320SYS"Wimp_OpenWindow",,Blck%
34330ENDIF
34340ENDPROC
34410DEFPROCdraw_list(sid%,ntrs%,ptrs%(),sdata$(),flags%())
34540LOCALfh%,m%,os_wl%,os_wt%,wk_rl%,wk_rt%,wk_rb%,tt%,tb%,r%,e%,cls%,xpos%
34560cls%=DIM(sdata$(),2)
34570SYS"Font_FindFont",,Font_Name$,192,192,0,0TOfh%
34580SYS"Font_ReadInfo",fh%TO,,fb%,,ft%
34590Font_Lh%=ft%-fb%+4
34600Blck%!0=Sublist%(sid%,1)
34610SYS"Wimp_RedrawWindow",,Blck%TOm%
34620REPEAT
34660IF(Blck%!36>Blck%!28)AND(Blck%!40>Blck%!32)THEN
34700os_wl%=(Blck%!4-Blck%!20)
34710os_wt%=(Blck%!16-Blck%!24)
34760wk_rl%=Blck%!28-os_wl%
34770wk_rt%=Blck%!40-os_wt%
34780wk_rb%=Blck%!32-os_wt%
34820tt%=INT(-wk_rt%/Font_Lh%)+1
34830tb%=INT(-wk_rb%/Font_Lh%)+1
34900FORr%=tt%TOtb%
34950p%=ptrs%(r%)
34960IFp%>0THEN
35000FORc%=1TOcls%
35010IF(flags%(p%,c%)AND&100)=&100THEN
35050xpos%=(flags%(p%,c%)AND&ffff0000)>>16
35060SYS"Wimp_SetFontColours",,0,(flags%(p%,c%)AND 15)
35070SYS"Font_Paint",fh%,sdata$(p%,c%),16,os_wl%+xpos%,os_wt%-r%*Font_Lh%-fb%-4
35080ENDIF
35090NEXTc%
35100ENDIF
35110NEXTr%
35120ENDIF
35130IFm%<>0THEN
35170SYS"Wimp_GetRectangle",,Blck%TOm%
35180ENDIF
35190UNTILm%=0
35200ENDPROC
35270DEFPROCget_applist
35420LOCALaline$,f1%,p%,offset%,app$,found%,r%
35460Objs%=0
35470Oflg%()=7
35480Optr%()=0
35490Odat$()=""
35500CASEEdit_Type$OF
35510WHEN"resources"
35550PROCget_filelisted("<choices$write>.Boot.PreDeskTop","AddApp")
35560WHEN"boot"
35600PROCget_filelisted("<choices$write>.Boot.Desktop","Filer_Boot")
35610WHEN"autorun"
35650PROCget_dirlisted("<Boot$ToBeTasks>")
35660WHEN"predesk"
35700PROCget_dirlisted("<Boot$ToBeLoaded>")
35710ENDCASE
35750Ontr%=Objs%
35760FORr%=1TOObjs%
35770Optr%(r%)=r%
35780Oflg%(r%,1)=Oflg%(r%,1)OR(24<<16)OR&100
35790Oflg%(r%,2)=Oflg%(r%,2)OR(200<<16)OR&100
35800CASEEdit_Type$OF
35810WHEN"boot"
35820Oflg%(r%,4)=Oflg%(r%,4)OR(512<<16)OR&100
35830WHEN"resources"
35840Oflg%(r%,4)=Oflg%(r%,4)OR(512<<16)OR&100
35850WHEN"autorun"
35860Oflg%(r%,4)=Oflg%(r%,4)OR(480<<16)OR&100
35870WHEN"predesk"
35880Oflg%(r%,4)=Oflg%(r%,4)OR(400<<16)OR&100
35890ENDCASE
35900NEXTr%
35910ENDPROC
35980DEFPROCget_filelisted(file$,com$)
36020LOCALf1%,aline$,p%
36040f1%=OPENIN(file$)
36050REPEAT
36060aline$=GET$#f1%
36070UNTIL(INSTR(aline$,"|Start")>0ANDINSTR(aline$,"Mars")>0ANDINSTR(aline$,"!Bootplus")>0ANDINSTR(aline$,Edit_Type$)>0)OREOF#f1%
36080IFNOTEOF#f1%THEN
36120REPEAT
36130aline$=GET$#f1%
36140IFINSTR(aline$,com$)=1THEN
36150p%=INSTR(aline$,".!")
36160IFp%>0THEN
36170Objs%+=1
36180Odat$(Objs%,1)=MID$(aline$,p%+1)
36190Odat$(Objs%,2)="App (reference)"
36200Odat$(Objs%,3)="2000"
36240p%=INSTR(aline$," ")
36250Odat$(Objs%,5)=MID$(aline$,p%+1)
36260SYS"OS_File",23,Odat$(Objs%,5)TOp%
36270IFp%=0THEN
36280Odat$(Objs%,4)="Original Missing"
36290Oflg%(Objs%,4)=11
36300ENDIF
36310PROCcheck_standard_entry
36320ENDIF
36330ENDIF
36340UNTILINSTR(aline$,"|End")>0OREOF#f1%
36350ENDIF
36360CLOSE#f1%
36370ENDPROC
36440DEFPROCget_dirlisted(dir$)
36480LOCALfile$,offset%,found%,l%,p%,l$,f%,a$,b$,c$,a%,c%
36500offset%=0
36510REPEAT
36520SYS"OS_GBPB",12,dir$,Buf1%,1,offset%,128,0TO,,,,offset%
36530IFoffset%<>-1AND Buf1%!20<>-1THEN
36540CASEBuf1%!20OF
36550WHEN&1000
36590Objs%+=1
36600Odat$(Objs%,1)=FNindirect(Buf1%+24)
36610Odat$(Objs%,2)="Directory"
36620Odat$(Objs%,3)="1000"
36630CASEEdit_Type$OF
36650ENDCASE
36660Odat$(Objs%,4)=""
36670Odat$(Objs%,5)=dir$+"."+Odat$(Objs%,1)
36680WHEN&2000
36720Objs%+=1
36730Odat$(Objs%,1)=FNindirect(Buf1%+24)
36740Odat$(Objs%,5)=dir$+"."+Odat$(Objs%,1)
36750SYS"OS_GBPB",10,dir$+"."+Odat$(Objs%,1),Buf1%,10,0,200,"!Sprites*"TO,,,found%
36760IFfound%=0THEN
36800SYS"OS_File",20,dir$+"."+Odat$(Objs%,1)+".!Run"TOf%
36810IFf%=0THEN
36850Odat$(Objs%,2)="App (full?)"
36860Odat$(Objs%,4)="No !run file"
36870Oflg%(Objs%,4)=11
36880ELSE
36920Odat$(Objs%,2)="App (alias)"
36930f%=OPENIN(dir$+"."+Odat$(Objs%,1)+".!Run")
36940l$=GET$#f%
36950CLOSE#f%
36960l$=MID$(l$,11)
36970SYS"OS_File",23,l$TOp%
36980IFp%=0THEN
36990Odat$(Objs%,4)="Original Missing"
37000Oflg%(Objs%,4)=11
37010ENDIF
37020ENDIF
37030ELSE
37070Odat$(Objs%,2)="App (full)"
37080ENDIF
37090Odat$(Objs%,3)="2000"
37100OTHERWISE
37140Objs%+=1
37150Odat$(Objs%,1)=FNindirect(Buf1%+24)
37160Odat$(Objs%,5)=dir$+"."+Odat$(Objs%,1)
37170SYS"OS_ConvertHex4",Buf1%!20,Buf2%,128TO,p%
37180?p%=13
37190Odat$(Objs%,3)=RIGHT$($Buf2%,3)
37200SYS"XOS_ReadVarVal","File$Type_"+Odat$(Objs%,3),Buf1%,128,0,3TO,,l%
37210IFl%=0THEN
37250Odat$(Objs%,2)="&"+Odat$(Objs%,3)
37260ELSE
37300Buf1%?l%=13
37310Odat$(Objs%,2)=$Buf1%
37320ENDIF
37330ENDCASE
37370IFOdat$(Objs%,4)=""THEN
37380c%=0
37390REPEAT
37400c%+=1
37410IF(Boot_Type$(c%,1)=Edit_Type$)AND((Boot_Type$(c%,2)=Odat$(Objs%,3))OR(Boot_Type$(c%,2)="*"))THEN
37420Odat$(Objs%,4)=Boot_Type$(c%,3)
37430ENDIF
37440UNTIL(c%=Boot_Types%)OR(Odat$(Objs%,4)<>"")
37450ENDIF
37460PROCcheck_standard_entry
37470ENDIF
37480UNTILoffset%=-1
37490ENDPROC
37570DEFPROCcheck_standard_entry
37610LOCALc%
37630FORc%=1TOStandards%
37640IF(Standard$(c%,1)=Edit_Type$)AND(Standard$(c%,2)=Odat$(Objs%,1))THEN
37680Oflg%(Objs%,1)=5
37690Oflg%(Objs%,2)=5
37700Oflg%(Objs%,3)=5
37710Oflg%(Objs%,4)=5
37720Oflg%(Objs%,5)=64
37730ENDIF
37740NEXTc%
37750ENDPROC
37820DEFPROCcheck_if_applied
37840LOCALk%
37860IFNOTSaved%THEN
37870PROCerror_message("EM24",Edit_Type$,"","ET3",&13,k%)
37880IFk%=1THEN
37920PROCapply_edit_changes
37930ENDIF
37940ENDIF
37950Saved%=TRUE
37960ENDPROC
38040DEFPROCapply_edit_changes
38080LOCALr%
38100FORr%=1TOOntr%
38110CASEOflg%(r%,5)OF
38120WHEN16
38160PROCmodify_boot(r%,"remove",FALSE)
38170WHEN32
38210PROCmodify_boot(r%,"insert",FALSE)
38220OTHERWISE
38260ENDCASE
38270NEXTr%
38280ENDPROC
38350DEFPROCmodify_boot(ntry%,mode$,nomess%)
38400LOCAL
38420CASEEdit_Type$OF
38430WHEN"autorun"
38440PROCmodify_boot_dir(ntry%,"<Boot$ToBeTasks>",mode$)
38450WHEN"resources"
38460PROCmodify_boot_file(Odat$(ntry%,5),mode$,nomess%)
38470WHEN"boot"
38480PROCmodify_boot_file(Odat$(ntry%,5),mode$,nomess%)
38490WHEN"predesk"
38500PROCmodify_boot_dir(ntry%,"<Boot$ToBeLoaded>",mode$)
38510ENDCASE
38520ENDPROC
38610DEFPROCmake_alias(pathname$)
38670LOCALf%,l%
38690SYS"OS_File",8,pathname$,0,0,0
38700SYS"OS_File",11,pathname$+".!Run",&FEB,0,0
38710SYS"OS_File",11,pathname$+".!Boot",&FEB,0,0
38720SYS"OS_File",11,pathname$+".!Help",&FFF,0,0
38770IFLEFT$(Source$,1)="<"ANDRIGHT$(Source$,1)=">"THEN
38780SYS"OS_ReadVarVal",MID$(Source$,2,LEN(Source$)-2),Buf1%,128,0,0TO,,l%
38790Buf1%?l%=13
38800Source$=$Buf1%
38810ENDIF
38850f%=OPENUP(pathname$+".!Run")
38860BPUT#f%,"Filer_Run "+Source$
38870CLOSE#f%
38910f%=OPENUP(pathname$+".!Boot")
38920BPUT#f%,"IfThere "+Source$+".!Sprites Then IconSprites "+Source$+".!Sprites"
38930BPUT#f%,"IfThere "+Source$+".!Boot Then Filer_Run "+Source$+".!Boot"
38940CLOSE#f%
38980f%=OPENUP(pathname$+".!Help")
38990BPUT#f%,"Alias for application "+Application$
39000BPUT#f%,"Which can be found at location "+Source$
39010CLOSE#f%
39020ENDPROC
39090DEFPROCmodify_boot_dir(ntry%,dest$,mode$)
39130CASEmode$OF
39140WHEN"insert"
39150IFOdat$(ntry%,3)="2000"THEN
39190Source$=Odat$(ntry%,5)
39200Application$=Odat$(ntry%,1)
39210PROCmake_alias(dest$+"."+Odat$(ntry%,1))
39220ELSE
39260IFLEFT$(Odat$(ntry%,5),25)="<Wimp$ScrapDir>.Bootplus."THEN
39310OSCLI("*COPY "+Odat$(ntry%,5)+" "+dest$+"."+Odat$(ntry%,1)+" ~V~P~CFD")
39320ELSE
39360OSCLI("*COPY "+Odat$(ntry%,5)+" "+dest$+"."+Odat$(ntry%,1)+" ~V~P~C")
39370ENDIF
39380ENDIF
39390WHEN"remove"
39430OSCLI("*WIPE "+Odat$(ntry%,5)+" ~VF~CR")
39440ENDCASE
39490*ACCESS <Bootplus$dir>.Resources.changelist WR/R
39500f%=OPENIN("<Bootplus$dir>.Resources.changelist")
39510g%=OPENOUT("<Bootplus$dir>.Resources.changenew")
39520X%=10
39530REPEAT
39540a$=GET$#f%
39550X%+=4
39560IFmode$="insert"ORINSTR(a$,Odat$(ntry%,5),1)=0THEN
39570BPUT#g%,a$
39580ENDIF
39590UNTILEOF#f%
39600IFmode$="insert"THEN
39610BPUT#g%,"*WIPE "+dest$+"."+Odat$(ntry%,1)+" ~VF~CR"
39620ENDIF
39630CLOSE#f%
39640CLOSE#g%
39650*WIPE <Bootplus$dir>.Resources.changelist ~C~V
39660*RENAME <Bootplus$dir>.Resources.changenew <Bootplus$dir>.Resources.changelist
39670*SETTYPE <Bootplus$dir>.Resources.changelist &FEB
39680*ACCESS <Bootplus$dir>.Resources.changelist L/
39690ENDPROC
39750DEFPROCmodify_boot_file(app$,mode$,nomess%)
39830LOCALf1%,f2%,aline$,bootname$,ftyp%,oldname$,tempname$
39840LOCALfound%,done%,ftyp%,bootname$,tempname$,oldname$,f1%,f2%,aline$
39880found%=FALSE
39890done%=FALSE
39900start%=FALSE
39910CASEEdit_Type$OF
39920WHEN"resources"
39930ftyp%=&feb
39940bootname$="<choices$write>.boot.PreDesktop"
39950tempname$="<choices$write>.boot.PreDesknew"
39960oldname$="<choices$write>.boot.PreDeskold"
39970WHEN"boot"
39980ftyp%=&fea
39990bootname$="<choices$write>.boot.Desktop"
40000tempname$="<choices$write>.boot.Desktopnew"
40010oldname$="<choices$write>.boot.Desktopold"
40020ENDCASE
40060SYS"OS_File",6,tempname$
40070SYS"OS_File",11,tempname$,ftyp%
40080f1%=OPENUP(tempname$)
40090f2%=OPENIN(bootname$)
40100REPEAT
40110aline$=GET$#f2%
40120IFNOTstart%THEN
40160start%=(INSTR(aline$,"|Start")>0ANDINSTR(aline$,"Mars")>0ANDINSTR(aline$,"!Bootplus")>0ANDINSTR(aline$,Edit_Type$)>0)
40170BPUT#f1%,aline$
40180ELSE
40220CASEmode$OF
40230WHEN"remove"
40240IF(app$="all"ANDINSTR(aline$,".!")>0AND start%)OR(INSTR(aline$,app$)>0AND start%)THEN
40280found%=TRUE
40290done%=TRUE
40300ELSE
40340BPUT#f1%,aline$
40350ENDIF
40360WHEN"insert"
40370IF(INSTR(aline$,app$)>0)AND start%THEN
40380found%=TRUE
40390IFNOTnomess%THENPROCerror_message("EM25",app$,"","",0,K%)
40400ENDIF
40410IF(INSTR(aline$,"|End")>0)AND start%AND(NOTfound%)THEN
40450CASEEdit_Type$OF
40460WHEN"resources"
40470BPUT#f1%,"AddApp "+app$
40480WHEN"boot"
40490BPUT#f1%,"Filer_Boot "+app$
40500ENDCASE
40510done%=TRUE
40520ENDIF
40530BPUT#f1%,aline$
40540ENDCASE
40550ENDIF
40560UNTILEOF#f2%
40570IF(NOTstart%)AND(mode$="insert")THEN
40610CASEEdit_Type$OF
40620WHEN"resources"
40630BPUT#f1%,""
40640BPUT#f1%,"|Start Mars !Bootplus "+Bootplus_Version$+" resources"
40650BPUT#f1%,"| ----------------------"
40660BPUT#f1%,"|"
40670BPUT#f1%,"|       resources"
40680BPUT#f1%,"|"
40690BPUT#f1%,"| ----------------------"
40700BPUT#f1%,"| Insert Resources apps directory additions"
40710BPUT#f1%,"| INserted by Bootplus"
40720BPUT#f1%,"|"
40730BPUT#f1%,"AddApp "+app$
40740BPUT#f1%,"|End"
40750WHEN"boot"
40760BPUT#f1%,""
40770BPUT#f1%,"|Start Mars !Bootplus "+Bootplus_Version$+" boot"
40780BPUT#f1%,"| ----------------------"
40790BPUT#f1%,"|"
40800BPUT#f1%,"|       boot"
40810BPUT#f1%,"|"
40820BPUT#f1%,"| ----------------------"
40830BPUT#f1%,"| Booted applications"
40840BPUT#f1%,"| Inserted by Bootplus"
40850BPUT#f1%,"|"
40860BPUT#f1%,"Filer_Boot "+app$
40870BPUT#f1%,"|End"
40880ENDCASE
40890done%=TRUE
40900ENDIF
40910CLOSE#f1%
40920CLOSE#f2%
40960IFdone%THEN
40970SYS"OS_File",6,oldname$
40980SYS"OS_FSControl",25,bootname$,oldname$
40990SYS"OS_FSControl",25,tempname$,bootname$
41000ELSE
41040SYS"OS_File",6,tempname$
41050ENDIF
41060ENDPROC
41130DEFPROCclear_edits
41170LOCALf1%,f2%,a$,f%
41220SYS"OS_File",6,"<choices$write>.boot.PreDeskNew"
41230SYS"OS_File",11,"<choices$write>.boot.PreDeskNew",&FEB
41240f1%=OPENUP("<choices$write>.boot.PreDeskNew")
41250f2%=OPENIN("<choices$write>.boot.PreDesktop")
41260REPEAT
41270a$=GET$#f2%
41280IF(INSTR(a$,"|Start")>0)AND(INSTR(a$,"Mars")>0)AND(INSTR(a$,"!Bootplus")>0)THEN
41281REPEAT
41300a$=GET$#f2%
41310UNTILa$="|End"
41320ELSE
41330BPUT#f1%,a$
41340ENDIF
41350UNTILEOF#f2%
41360CLOSE#f1%
41370CLOSE#f2%
41380SYS"OS_File",6,"<choices$write>.boot.PreDesktop"
41390SYS"OS_FSControl",25,"<choices$write>.boot.PreDeskNew","<choices$write>.boot.PreDesktop"
41430SYS"OS_File",6,"<choices$write>.boot.DeskNew"
41440SYS"OS_File",11,"<choices$write>.boot.DeskNew",&FEA
41450f1%=OPENUP("<choices$write>.boot.DeskNew")
41460f2%=OPENIN("<choices$write>.boot.Desktop")
41470REPEAT
41480a$=GET$#f2%
41490IFINSTR(a$,"|Start")>0ANDINSTR(a$,"Mars")>0ANDINSTR(a$,"!Bootplus")>0THEN
41500REPEAT
41510a$=GET$#f2%
41520UNTILa$="|End"
41530ELSE
41540BPUT#f1%,a$
41550ENDIF
41560UNTILEOF#f2%
41570CLOSE#f1%
41580CLOSE#f2%
41590SYS"OS_File",6,"<choices$write>.boot.Desktop"
41600SYS"OS_FSControl",25,"<choices$write>.boot.DeskNew","<choices$write>.boot.Desktop"
41640*ACCESS <Bootplus$dir>.Resources.changelist WR/R
41650*OBEY <Bootplus$dir>.Resources.changelist
41660*WIPE <Bootplus$dir>.Resources.changelist ~C~V
41670f%=OPENOUT("<Bootplus$Dir>.Resources.changelist")
41680BPUT#f%,"| files added to predesk and tasks"
41690CLOSE#f%
41700*SETTYPE <Bootplus$dir>.Resources.changelist &FEB
41710*ACCESS <Bootplus$dir>.Resources.changelist L/
41750ENDPROC
41820DEFFNget_task_id(tnm$)
41860LOCALa%,tid%,ntn$
41880a%=0
41890tid%=0
41900ntn$=""
41910REPEAT
41920SYS"TaskManager_EnumerateTasks",a%,Buf1%,16TOa%
41930IF(a%>0)AND((Buf1%!12AND 1)=0)AND(tnm$=FNindirect(Buf1%!4))THEN
41970tid%=Buf1%!0
41980a%=-1
41990ENDIF
42000UNTILa%<0
42010=tid%
42080DEFFNindirect(pntr%)
42140LOCALansw$
42160SYS"OS_WriteN",pntr%,0TOansw$
42170=answ$
42240DEFFNget_message(token$,p1$,p2$,p3$,p4$)
42280LOCALs%
42300SYS"MessageTrans_Lookup",Tlms%,token$,Blck%,128,p1$,p2$,p3$,p4$TO,,,s%
42310Blck%?s%=13
42320=$Blck%
42390DEFPROCerror_message(message$,p1$,p2$,etitle$,flags%,RETURNkeyc%)
42480LOCALs%,t$,e$
42500e$=FNget_message(message$,p1$,p2$,"","")
42510IFetitle$=""THENetitle$="ET4"
42520t$=FNget_message(etitle$,"","","","")
42530$(Blck%+4)=e$
42540Blck%!0=0
42550SYS"Wimp_ReportError",Blck%,flags%,t$TO,keyc%
42560ENDPROC
42640DATA 9
42650DATA "predesk","FEB","EW1"
42660DATA "predesk","FF8","EW2"
42670DATA "predesk","FF9","EW3"
42680DATA "predesk","FFA","EW4"
42690DATA "predesk","FFB","EW5"
42700DATA "predesk","FFC","EW2"
42710DATA "predesk","1000","EW6"
42720DATA "predesk","*","EW7"
42730DATA "autorun","*","EW8"
42770DATA 9
42780DATA "predesk","ARPlayer"
42790DATA "predesk","BandLimit"
42800DATA "predesk","SetUpNet"
42810DATA "predesk","Configure"
42820DATA "autorun","Configure"
42830DATA "autorun","~CDReinit"
42840DATA "autorun","!zzzzpass"
42850DATA "autorun","!Bootplus"
42860DATA "boot","!Bootplus"
42900DATA Su,Mo,Tu,We,Th,Fr,Sa
�><Bootplus$dir>.!Runimage
��Tlms%16
��Tloi%24

�Buf1%128

�Buf2%512

�Blck%512
&�Odat$(50,5)
0�Oflg%(50,5)
��Optr%(50)
��Rusr$(20)
��Rdir$(20)
��Rtim$(20)
��Boot_Type$(20,3)
��Standard$(20,2)
��Weekdays$(7)
��Dirdat$(50)
��Dirflg%(50)
��Sublist%(3,6)
>�Tdir$(100,1)
H�Typt%(100)
R�Tnpt%(100)
\�Tflg%(100,1)
f
MP%=20
p�toolbox_values
z�initialise
�Quit%=�
���4:�$;" at line ";�:�
��
�1�(Sequence$="LOGON")�(Sequence$="PROMPTING")�
�(ș"Wimp_PollIdle",0,Blck%,25�reason%
��
�!ș"Wimp_Poll",1,Blck%�reason%
��
��do
�
�Quit%
�&ș"Wimp_CloseDown",Thdl%,&48534154
��
8��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
2E_UQA%=1
ZM_D_SS%=644
dM_D_SSP%=640
nM_D_ST%=642
xM_RB_GS%=389
�T_TOMO%=&44ec6
�T_TSO%=&44ec3
�T_TTLU%=&44EFB
�T_THO%=&44ec4
�XBIT%=&20000
��
6��initialise
^�exists%,a%
r�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"�
Zzzzchk_Status%=3
Zzzzchk_Handle%=Buf1%!0
&�
0	�a%<0
X�init_files
�
Buf1%!0=0
�
Buf2%!0=0
�Vș"Toolbox_Initialise",0,310,Buf2%,Buf1%,"<Bootplus$Dir>",Tlms%,Tloi%�,Thdl%,sprt%
�&�Auto_Prompt%� Passwords_Enabled%�
�Sequence$="LOGON"
��
�Sequence$="NORMAL"
��
*Owner$=�get_message("OWN","","","","")
4�read_filedefs
>�
���init_globals
�
�a$,a%,b%
�Bootplus_Version$="3.1"
�Started%=�
�Logged_User$=""
�Logon_ID%=-1
�Ownerpass_ID%=-1
�Objs%=0
�Ntrs%=0
	
Rusers%=0
	Rusr%=1
	Password_ID%=0
	$Passmenu_ID%=0
	./Optfile$="<bootplus$dir>.Resources.Options"
	80T_Optfile$="<bootplus$dir>.Resources.Optxxx"
	B1Accessfile$="<bootplus$dir>.Resources.Access"
	L6T_Accessfile$="<bootplus$dir>.Resources.Accessxxx"
	V/Timesfile$="<bootplus$dir>.Resources.Times"
	`4T_Timesfile$="<bootplus$dir>.Resources.Timesxxx"
	j1Passfile$="<bootplus$dir>.Resources.password"
	t4Thieffile$="<Bootplus$Dir>.Resources.killriscpc"
	~/Logfile$="<Bootplus$dir>.Resources.logfile"
	�3Ologfile$="<Bootplus$dir>.Resources.oldlogfile"
	�/Ownerfile$="<Bootplus$dir>.Resources.owner"
	�Autoclose%=�
	�Edit_Type$=""
	�Alias_WH%=0
	�Font_Lh%=44
	� Font_Name$="Homerton.Medium"
	�Editors%=0
	�Tdirs%=0
	�Tydir%=0
	�Tndir%=0
	�Dustbin_ID%=0
Drag_Reason$=""

Drag_Object%=0
Drag_Into%=0
Saved%=�
(Sequence$="BOOT"
2�
x��read_filedefs
��Boot_Types%
��a%=1�Boot_Types%
��Boot_Type$(a%,1)
��Boot_Type$(a%,2)
��a$
�1Boot_Type$(a%,3)=�get_message(a$,"","","","")
��a%
�Standards%
�a%=1�Standards%
�b%=1�2
"�Standard$(a%,b%)
,�b%
6�a%
J�a%=1�7
T�Weekdays$(a%)
^�a%
h�
���init_files
��f%,id%
�j�get_options(a%,a%,a%,a%,a%,a%,Guest_Logins%,Y%,Full_Owner_Access%,Y%,Passwords_Enabled%,Auto_Prompt%)
&�get_useraccess
N�get_usertimes
v0ș"OS_File",20,"<Wimp$ScrapDir>.Bootplus"�f%
�
�f%=0�
�"*CDIR <Wimp$ScrapDir>.Bootplus
��
�:ș"XOS_FSControl",27,"<Wimp$ScrapDir>.Bootplus.*",,&18
��
���do

!Ȏreason%�

*�0

4ȎSequence$�

>�"LOGON"

f.șT_TSO%,0,Password_ID%,0,0,Passmenu_ID%,7

pSequence$="PROMPTING"

z�"PROMPTING"

��lock_mouse(�)

��

��1

��redraw_window

��2

��open_window

��6

��mouse_click

��7

��drag_stopped
�10
�scroll_request

�17,18,19
$�wimp_messages
.	�&200
8�toolbox_events
B�
L�
���redraw_window
�ȎBlck%!0�
��Sublist%(1,2)
��draw_main(1,2)
��Sublist%(1,1)
�draw_sub(1,2,�,0)
(�Sublist%(2,2)
P�draw_main(2,2)
Z�Sublist%(2,1)
��draw_sub(2,2,�,0)
��Sublist%(3,1)
��draw_sub(3,2,�,0)
��
��
��open_window
6�bh%
Jbh%=Blck%!28
TȎBlck%!0�
^�Sublist%(1,2)
�Blck%!28=Sublist%(1,1)
�ș"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)
Nș"Wimp_OpenWindow",,Blck%
X�Sublist%(3,1)
�ș"Wimp_OpenWindow",,Blck%
��
��
���mouse_click
�wk_my%,os_wy%,tr%,p%
Ȏ��
 )�(Blck%!8=4)�(Blck%!12=Sublist%(1,1))
H�bootlist_clicked
R)�(Blck%!8=4)�(Blck%!12=Sublist%(2,1))
zE�dirlist_clicked("Y",Sublist%(2,1),Tydirs%,Typt%(),Sublist%(3,1))
�)�(Blck%!8=4)�(Blck%!12=Sublist%(3,1))
�E�dirlist_clicked("N",Sublist%(3,1),Tndirs%,Tnpt%(),Sublist%(2,1))
��
��
��bootlist_clicked
.!�os_mx%,os_my%,wk_my%,tr%,ot$
Bos_mx%=Blck%!0
Los_my%=Blck%!4
tBlck%!0=Sublist%(1,1)
~"ș"Wimp_GetWindowState",,Blck%
�%wk_my%=os_my%-(Blck%!16-Blck%!24)
�tr%=�(-wk_my%/Font_Lh%)+1
��tr%<=Objs%�
�p%=Optr%(tr%)
��(Oflg%(p%,5)� 64)=0�
�ȎOdat$(p%,3)�
�"1000"

'ot$=�get_message("DM1","","","","")
�"2000"
'ot$=�get_message("DM2","","","","")
(
20ot$=�get_message("DM3",Odat$(p%,3),"","","")
<�
F'Buf2%!0=os_mx%-16:Buf2%!4=os_my%-16
P(Buf2%!8=os_mx%+18:Buf2%!12=os_my%+18
Z(ș"DragASprite_Start",&5,1,ot$,Buf2%
dDrag_Reason$="Delete"
nDrag_Object%=tr%
x�
�5�Odat$(p%,1)="!Bootplus"�Odat$(p%,1)="!zzzzpass"�
�'�error_message("EM1","","","",0,K%)
��
�'�error_message("EM2","","","",0,K%)
��
��
��
��
,2��dirlist_clicked(fr$,fid%,frct%,frpt%(),tid%)
T �os_mx%,os_my%,wk_my%,tr%,p%
hos_mx%=Blck%!0
ros_my%=Blck%!4
�Blck%!0=fid%
�"ș"Wimp_GetWindowState",,Blck%
�%wk_my%=os_my%-(Blck%!16-Blck%!24)
�&Drag_Object%=�(-wk_my%/Font_Lh%)+1
��Drag_Object%<=frct%�
�p%=frpt%(Drag_Object%)
�4�((Tflg%(p%,1)�&40)=&40)�(Rusr$(Rusr%)<>Owner$)�
'�error_message("EM3","","","",0,K%)
&�
NDrag_Reason$="Move"
XDrag_From$=fr$
bDrag_Into%=tid%
l'Buf2%!0=os_mx%-16:Buf2%!4=os_my%-16
v(Buf2%!8=os_mx%+18:Buf2%!12=os_my%+18
�0ș"DragASprite_Start",&5,1,"directory",Buf2%
��
��
��
���drag_stopped
"ș"Wimp_GetPointerInfo",,Blck%
Ȏ��
 3�(Blck%!16=Dustbin_ID%)�(Drag_Reason$="Delete")
H�drag_stopped_bin
R0�(Blck%!12=Drag_Into%)�(Drag_Reason$="Move")
z�Drag_From$="Y"�
�6�drag_stopped_dir(Tydirs%,Typt%(),Tndirs%,Tnpt%())
��
�6�drag_stopped_dir(Tndirs%,Tnpt%(),Tydirs%,Typt%())
��
�Saved%=�
�set_list_extent(2,�)
�draw_sub(2,2,�,0)
$�set_list_extent(3,�)
.�draw_sub(3,2,�,0)
8�
Bș"DragASprite_Stop"
LDrag_Reason$=""
V�
���drag_stopped_bin
��p%
�p%=Optr%(Drag_Object%)
�Oflg%(p%,5)=16
��p%=Drag_Object%�Objs%
�Optr%(p%)=Optr%(p%+1)
�p%

Objs%-=1
Saved%=�
<�set_list_extent(1,�)
F�draw_sub(1,2,�,0)
P�
�3��drag_stopped_dir(�frc%,�frp%(),�toc%,�top%())
�
�p%,a%
�p%=frp%(Drag_Object%)
�toc%+=1
�a%=toc%
�ȕ(top%(a%-1)>p%)�(a%>1)
�top%(a%)=top%(a%-1)
	a%-=1
�
top%(a%)=p%
@frc%-=1
J�Drag_Object%<=frc%�
T�a%=Drag_Object%�frc%
^frp%(a%)=frp%(a%+1)
h�a%
r�
|frp%(frc%+1)=0
��
���scroll_request
��r%,bh%
bh%=Blck%!28
ȎBlck%!0�
�Sublist%(1,1)
N'r%=�((Blck%!16-Blck%!8)/Font_Lh%)-1
XȎBlck%!36�
b�-2
lBlck%!24-=Font_Lh%*r%
v�-1
�Blck%!24-=Font_Lh%
��1
�Blck%!24+=Font_Lh%
��2
�Blck%!24+=Font_Lh%*r%
��
�ș"Wimp_OpenWindow",,Blck%
��Sublist%(2,1)
��Sublist%(2,2)
ȎBlck%!36�
 �-2
*Blck%!24-=128
4�-1
>Blck%!24-=16
H�1
RBlck%!24+=16
\�2
fBlck%!24+=128
p�
zș"Wimp_OpenWindow",,Blck%
��draw_sub(2,3,�,bh%)
��draw_sub(3,3,�,bh%)
��
��
���toolbox_events
Event_Size%=Blck%!0
Event_Reference%=Blck%!4
$Event_Code%=Blck%!8
.Event_Flags%=Blck%!12
8Event_Block%=Blck%!20
`?�callers(0,Ancestor_ID%,Ancestor_Name$,Ancestor_Component%)
j9�callers(8,Parent_ID%,Parent_Name$,Parent_Component%)
t4�callers(16,Self_ID%,Self_Name$,Self_Component%)
�ȎSelf_Name$�
��"Alias"
��handle_alias
��"Automenu"
��handle_automenu
��"Ibarmenu"
��handle_ibarmenu
��"Iconbar"
��handle_iconbar
�"Mainlist"

�handle_mainlist
�"Maintenance"
�handle_maintenance
(�"Options"
2�handle_options
<�"Nodir"
F�handle_nodir
P�"Passmenu"
Z�handle_passmenu
d�"Password"
n�handle_password
x�"Sublist"
��handle_sublist
��"Thieftrap"
��handle_thieftrap
��"Useraccess"
��handle_useraccess
�
�"Yesdir"
��handle_yesdir
�
�"Wmi"
��handle_wmi
��
��
,��wimp_messages
T�state%,a%,al%,dur%,b%
hȎBlck%!16�
r�0
|Quit%=�
��1
�Source$=�indirect(Blck%+44)
�J�(Blck%!20=Sublist%(1,1))�(Source$="Pinboard")�(Edit_Type$="autorun")�
�Blck%!12=Blck%!8
�Blck%!16=2
 Blck%!36=128
 3$(Blck%+44)="<Wimp$ScrapDir>.Bootplus.Pinboard"
 )ș"Wimp_SendMessage",17,Blck%,Blck%!4
 &�
 0�2
 Xpath$=�indirect(Blck%+44)
 b�Application$="!Thieftrap"�
 ��make_thieftrap(path$)
 ��
 ��make_alias(path$)
 ��
 ��3
 �Source$=�indirect(Blck%+44)
!ȎBlck%!20�
!�Alias_WH%
!�dragged_to_alias
! �Sublist%(1,1)
!*�dragged_to_edit
!4�
!>�&400C2
!fȎ�indirect(Blck%+28)�
!p�"zzzzpass"
!z�Passwords_Enabled%�
!�Zzzzpass_Status%=3
!�Zzzzpass_Handle%=Blck%!4
!��Logged_User$<>""�
!�,�user_times(Logged_User$,al%,dur%,a%,b%)
!��inform_zzzzpass(dur%)
!��
!��
".�pause_logins
"8�remove_logins
"B�
"L�"zzzzchk"
"VZzzzchk_Status%=3
"`Zzzzchk_Handle%=Blck%!4
"j�
"t�&400c4
"�Started%=�
"��&808c0
"��Blck%!4=Zzzzpass_Handle%�
"�Iș"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
#2Blck%!20=4:Blck%!24=Buf2%
#<!Buf2%=2
#F2ș"Wimp_SendMessage",17,Blck%,Zzzzpass_Handle%
#P�Sequence$="LOGON"�
#xSequence$="NORMAL"
#��
#��2
#�Quit%=Autoclose%
#��4
#�Logged_User$=""
#��
$�
$�
$�
$^��dragged_to_alias
$��Blck%!40<>&2000�
$�6�error_message("EM4",Source$,�~(Blck%!40),"",0,K%)
$��
$�a%=�(Source$)-1
$��:a%-=1:��Source$,a%,1)="."
$�Application$=�Source$,a%+1)
$�1șT_TOMO%,0,Alias_ID%,M_D_SSP%,0,Application$
%0șT_TOMO%,0,Alias_ID%,M_D_ST%,0,Application$
%�
%&�
%l��dragged_to_edit
%�$�a%,p%,a$,b$,c$,leaf$,duplicate%
%�Ȏ��
%�*�(Blck%!40<>&2000)�(Edit_Type$="boot")
%�,�error_message("EM5",Source$,"","",0,K%)
%�/�(Blck%!40<>&2000)�(Edit_Type$="resources")
%�,�error_message("EM6",Source$,"","",0,K%)
%�
&a%=�(Source$)-1
&�:a%-=1:��Source$,a%,1)="."
&leaf$=�Source$,a%+1)
& duplicate%=�
&*�a%=1�Objs%
&4�leaf$=Odat$(Optr%(a%),1)�
&>duplicate%=�
&H	p%=a%
&R�
&\�a%
&f�duplicate%�
&��leaf$="Pinboard"�
&�3Odat$(p%,5)="<Wimp$ScrapDir>.Bootplus.Pinboard"
&��a%=1�4
&�,Oflg%(p%,a%)=(Oflg%(p%,a%)�&FFFFFFF0)�13
&��a%
&�Oflg%(p%,5)=32
&�Saved%=�
&��
'*�error_message("EM7",leaf$,"","",0,K%)
'$�
'.�
'VSaved%=�
'`Ontr%+=1
'jObjs%+=1
'tOptr%(Objs%)=Ontr%
'~Odat$(Ontr%,1)=leaf$
'�ȎBlck%!40�
'�
�&2000
'�ȎEdit_Type$�
'��"autorun"
'�2Odat$(Ontr%,2)=�get_message("DM4","","","","")
'��"boot"
'�2Odat$(Ontr%,2)=�get_message("DM5","","","","")
'��"resources"
'�2Odat$(Ontr%,2)=�get_message("DM5","","","","")
(�"predesk"
(
2Odat$(Ontr%,2)=�get_message("DM6","","","","")
(�
(Odat$(Ontr%,3)="2000"
((
�&1000
(P2Odat$(Ontr%,2)=�get_message("DM1","","","","")
(ZOdat$(Ontr%,3)="1000"
(d
(n-ș"OS_ConvertHex4",Blck%!40,Buf2%,128�,p%
(x
?p%=13
(��Buf2%?0=48�
(�Odat$(Ontr%,3)=�$Buf2%,3)
(��
(�Odat$(Ontr%,3)=$Buf2%
(��
(�Eș"XOS_ReadVarVal","File$Type_"+Odat$(Ontr%,3),Buf1%,128,0,3�,,l%
(�
�l%=0�
(�%Odat$(Ontr%,2)="&"+Odat$(Ontr%,3)
(��
)Buf1%?l%=13
)"Odat$(Ontr%,2)=$Buf1%
),�
)6�
)^Odat$(Ontr%,4)=""
)hc%=0
)r�
)|	c%+=1
)�^�(Boot_Type$(c%,1)=Edit_Type$)�((Boot_Type$(c%,2)=Odat$(Ontr%,3))�(Boot_Type$(c%,2)="*"))�
)�#Odat$(Ontr%,4)=Boot_Type$(c%,3)
)��
)�*�(c%=Boot_Types%)�(Odat$(Ontr%,4)<>"")
)��Source$="Pinboard"�
)�6Odat$(Ontr%,5)="<Wimp$ScrapDir>.Bootplus.Pinboard"
)��
*Odat$(Ontr%,5)=Source$
*�
*#Oflg%(Ontr%,1)=(24<<16)�&100�13
*&$Oflg%(Ontr%,2)=(200<<16)�&100�13
*0Oflg%(Ontr%,3)=8
*:ȎEdit_Type$�
*D�"boot"
*N$Oflg%(Ontr%,4)=(512<<16)�&100�13
*X�"resources"
*b$Oflg%(Ontr%,4)=(512<<16)�&100�13
*l�"autorun"
*v$Oflg%(Ontr%,4)=(480<<16)�&100�13
*��"predesk"
*�$Oflg%(Ontr%,4)=(400<<16)�&100�13
*��
*�Oflg%(Ontr%,5)=32
*��
*��
*��set_list_extent(1,�)
*��draw_sub(1,2,�,0)
*��
+4'��callers(offset%,�id%,�id$,�cpnt%)
+�	�ptr%
+�ptr%=Tloi%+offset%
+�
id%=!ptr%
+��id%<>0�
+�/ș"Toolbox_GetTemplateName",0,id%,Buf1%,128
+�id$=�indirect(Buf1%)
+��
+�
id$=""
+��
+�cpnt%=ptr%!4
+��
,B��handle_iconbar
,L�
,���handle_alias
,��state%,bo%,p%
,�ȎEvent_Code%�
,��E_TOAC%
-Alias_ID%=Self_ID%
-
%șT_TOMO%,0,Alias_ID%,0�Alias_WH%
-
�E_WATBS%
-<Application$=""
-F+șT_TOMO%,0,Alias_ID%,640,0,"!Bootplus"
-P(șT_TOMO%,0,Alias_ID%,642,0,"<none>"
-Z�E_DDE%
-��Application$<>""�
-�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
-��
-��
-��
.6��handle_automenu
.^ȎEvent_Code%�
.h
�E_MS%
.��check_if_applied
.��Self_Component%=&d�
.�a%=�get_task_id("Pinboard")
.�
�a%=0�
/'�error_message("EM8","","","",0,K%)
/�
/DBuf2%!0=64
/N$Buf2%!12=0:Buf2%!16=1:Buf2%!20=0
/X&Buf2%!28=0:Buf2%!32=0:Buf2%!36=128
/b(Buf2%!40=&feb:$(Buf2%+44)="Pinboard"
/l$ș"Wimp_SendMessage",17,Buf2%,a%
/v�
/��
/�ȎSelf_Component%�
/��&9
/�Edit_Type$="autorun"
/��&b
0Edit_Type$="boot"
0�&5
0>Edit_Type$="resources"
0H�&c
0pEdit_Type$="predesk"
0z�
0��get_applist
0��draw_main(1,0)
0��
0��
0��
0���handle_ibarmenu
1ȎEvent_Code%�
1$�E_TOAC%
1LIbarmenu_ID%=Self_ID%
1V
�E_MATBS%
1~Ȏ��
1��(�Passwords_Enabled%)
1�'�ibarmenu_greys(1,0,0,0,"Bootplus")
1�0�((Logged_User$=Owner$)� Passwords_Enabled%)
1�-�ibarmenu_greys(0,0,0,0,"Logged : OWNER")
1�,�((Logged_User$="")� Passwords_Enabled%)
2'�ibarmenu_greys(0,1,1,1,"Bootplus")
22�((Logged_User$="LOGOFF")� Passwords_Enabled%)
2F)�ibarmenu_greys(0,1,1,1,"Logged Off")
2P
2x5�ibarmenu_greys(0,1,1,0,"Logged : "+Logged_User$)
2��
2��E_UQA%
2�Quit%=�
2��
2��
3��handle_mainlist
3"�K%
36ȎEvent_Code%�
3@�E_TOAC%
3hMainlist_ID%=Self_ID%
3r,șT_TOMO%,0,Mainlist_ID%,0�Sublist%(1,2)
3|+șT_TOMO%,0,Mainlist_ID%,68,5,Buf2%,128
3�Dustbin_ID%=!Buf2%
3��E_ABS%
3�ȎSelf_Component%�
3��3
3��get_applist
3��set_list_extent(1,�)
3��draw_sub(1,2,�,0)
4�4
40�apply_edit_changes
4:Saved%=�
4D�
4N�E_WHBH%
4vșT_THO%,0,Sublist_ID%
4��check_if_applied
4��
4��
4���handle_maintenance
5�bt%
5ȎEvent_Code%�
5 
�E_MATBS%
5H�Passwords_Enabled%�
5pșT_TOMO%,0,Self_ID%,2,0,0
5zșT_TOMO%,0,Self_ID%,2,1,0
5�șT_TOMO%,0,Self_ID%,2,&c,0
5�șT_TOMO%,0,Self_ID%,2,&d,0
5��
5�șT_TOMO%,0,Self_ID%,2,0,1
5�șT_TOMO%,0,Self_ID%,2,1,1
5�șT_TOMO%,0,Self_ID%,2,&c,1
5�șT_TOMO%,0,Self_ID%,2,&d,1
5��
5�
�E_MS%
6ȎSelf_Component%�
6$�0
6Lș"OS_File",6,Ologfile$
6V*ș"OS_FSControl",25,Logfile$,Ologfile$
6` ș"OS_File",11,Logfile$,&FFF
6j�1
6��("*Filer_Run "+Logfile$)
6��&d
6��kill_thieftraps
6��&11
6��boot_install("CHECK",bt%)
7	�bt%�
7((*Filer_Run <Boot$Dir>.Utils.DeskrunO
72�
7P'*Filer_Run <Boot$dir>.Utils.Deskrun
7Z�
7d�
7n�
7x�
7���handle_nodir
7�ȎEvent_Code%�
7��E_TOAC%
8Nodir_ID%=Self_ID%
8")șT_TOMO%,0,Nodir_ID%,0�Sublist%(3,1)
8,Sublist%(3,3)=352
86Sublist%(3,4)=-280
8@Sublist%(3,5)=244
8JSublist%(3,6)=-232
8T�
8^�
8���handle_options
8�,�a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,bt%
8�ȎEvent_Code%�
8��E_TOAC%
9Options_ID%=Self_ID%
9
�E_WATBS%
9D5�get_options(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%)
9N'șT_TOMO%,0,Options_ID%,512,3,�(a%)
9X'șT_TOMO%,0,Options_ID%,512,1,�(b%)
9b'șT_TOMO%,0,Options_ID%,512,2,�(c%)
9l%șT_TOMO%,0,Options_ID%,196,9,-d%
9v&șT_TOMO%,0,Options_ID%,196,&a,-e%
9�&șT_TOMO%,0,Options_ID%,196,&c,-f%
9�&șT_TOMO%,0,Options_ID%,196,&d,-g%
9�'șT_TOMO%,0,Options_ID%,196,&14,-h%
9�'șT_TOMO%,0,Options_ID%,196,&15,-i%
9�'șT_TOMO%,0,Options_ID%,196,&16,-j%
9�'șT_TOMO%,0,Options_ID%,196,&17,-k%
9�'șT_TOMO%,0,Options_ID%,196,&18,-l%
9��boot_install("CHECK",bt%)
9�0șT_TOMO%,0,Options_ID%,65,&1B,bt%�&80000000
9�3șT_TOMO%,0,Options_ID%,65,&1C,(�bt%)�&80000000
9��E_ABS%
:3șT_TOMO%,0,Options_ID%,513,3,Buf1%,128�,,,,,l%
:Buf1%?l%=13:a%=�($Buf1%)
: 3șT_TOMO%,0,Options_ID%,513,1,Buf1%,128�,,,,,l%
:*Buf1%?l%=13:b%=�($Buf1%)
:43șT_TOMO%,0,Options_ID%,513,2,Buf1%,128�,,,,,l%
:>Buf1%?l%=13:c%=�($Buf1%)
:H$șT_TOMO%,0,Options_ID%,197,9�d%
:R%șT_TOMO%,0,Options_ID%,197,&a�e%
:\%șT_TOMO%,0,Options_ID%,197,&c�f%
:f%șT_TOMO%,0,Options_ID%,197,&d�g%
:p&șT_TOMO%,0,Options_ID%,197,&14�h%
:z&șT_TOMO%,0,Options_ID%,197,&15�i%
:�&șT_TOMO%,0,Options_ID%,197,&16�j%
:�&șT_TOMO%,0,Options_ID%,197,&17�k%
:�&șT_TOMO%,0,Options_ID%,197,&18�l%
:�ȎSelf_Component%�
:��&1a
:��boot_install("OUT",bt%)
:��kill_thieftraps
:��pause_logins
:��remove_logins
:�P�save_options(a%,b%,c%,(d%=1),(e%=1),(f%=1),(g%=1),(h%=1),(i%=1),(j%=1),0,0)
;�clear_edits
;�&1b
;8�boot_install("IN",bt%)
;B,șT_TOMO%,0,Options_ID%,65,&1B,&80000000
;L$șT_TOMO%,0,Options_ID%,65,&1C,0
;V�&1C
;~�boot_install("OUT",bt%)
;�$șT_TOMO%,0,Options_ID%,65,&1B,0
;�,șT_TOMO%,0,Options_ID%,65,&1C,&80000000
;��&11
;�Z�save_options(a%,b%,c%,(d%=1),(e%=1),(f%=1),(g%=1),(h%=1),(i%=1),(j%=1),(k%=1),(l%=1))
;� �(k%=1)��Passwords_Enabled%�
<2Parent_Name$="Options"
<<�showing_password
<F-șT_TSO%,0,Password_ID%,0,0,Options_ID%,0
<PPasswords_Enabled%=�
<Z"Sequence$="ENABLING PASSWORDS"
<d�
<n �(k%=0)� Passwords_Enabled%�
<��pause_logins
<��remove_logins
<�Passwords_Enabled%=�
<�Logged_User$=""
<��
<��
<�Guest_Logins%=(g%=1)
<�Full_Owner_Access%=(i%=1)
<�Passwords_Enabled%=(k%=1)
<�Auto_Prompt%=(l%=1)
<��
=�
=�
=T��handle_passmenu
=|
�l%,l$,a%
=�ȎEvent_Code%�
=��E_TOAC%
=�Passmenu_ID%=Self_ID%
=�
�E_MATBS%
=�ȎLogged_User$�
=��""
>& �passmenu_greys(0,1,1,1,1,1)
>0�Owner$
>X �passmenu_greys(0,0,0,0,0,0)
>b
�"LOGOFF"
>� �passmenu_greys(0,1,1,1,1,1)
>�
>� �passmenu_greys(0,0,0,1,1,1)
>��
>�
�E_MS%
>�ȎSelf_Component%�
?�&D
?*Logged_User$="LOGOFF"
?4�(Zzzzpass_Status%=3)�
?\�inform_zzzzpass(0)
?f�
?p�Auto_Prompt%�
?�.șT_TSO%,0,Password_ID%,0,0,Passmenu_ID%,7
?�Sequence$="PROMPTING"
?��
?��&C
?�Rusr%=1
?��make_dirlist
@	l$=""
@$�a%=1�Rusers%
@.l$+=Rusr$(a%)
@8�a%<Rusers%�l$+=","
@B�a%
@L)șT_TOMO%,0,Useraccess_ID%,896,&1b,l$
@V(șT_TOMO%,1,Useraccess_ID%,898,&1b,0
@`�user_gadgets
@j�draw_main(2,0)
@t�
@~�
@��
@���handle_password
@�,�a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%,wh%
A
ȎEvent_Code%�
A�E_TOAC%
A<Password_ID%=Self_ID%
AF
�E_WATBS%
An�showing_password
Ax�Sequence$="PROMPTING"�
A��lock_mouse(�)
A��
A��lock_mouse(�)
A��
A��E_WHBH%
A�ȎSequence$�
B�"ENABLING PASSWORDS"
B,5�get_options(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,k%,l%)
B65�save_options(a%,b%,c%,d%,e%,f%,g%,h%,i%,j%,�,l%)
B@Passwords_Enabled%=�
BJSequence$="NORMAL"
BT�"PROMPTING"
B|�Logged_User$=""�
B�.șT_TSO%,0,Password_ID%,0,0,Passmenu_ID%,7
B��
B�
�"NORMAL"
B�%ș"OS_ReadModeVariable",-1,4�,,a%
B�&ș"OS_ReadModeVariable",-1,11�,,b%
B�%ș"OS_ReadModeVariable",-1,5�,,c%
B�&ș"OS_ReadModeVariable",-1,12�,,d%
C!ȗȓ0,0,(b%+1)<<a%,(d%+1)<<c%
C�
C�
C&�E_ABS%
CNȎSelf_Component%�
CX�8
C��action_ok_password
C��9
C�<șT_TSO%,0,Password_ID%,0,0,Parent_ID%,Parent_Component%
C��
C��
C��
D��handle_sublist
D>ȎEvent_Code%�
DH�E_TOAC%
DpSublist_ID%=Self_ID%
Dz+șT_TOMO%,0,Sublist_ID%,0�Sublist%(1,1)
D�Sublist%(1,3)=64
D�Sublist%(1,4)=-64
D�Sublist%(1,5)=812
D�Sublist%(1,6)=-232
D��
D��
D���handle_thieftrap
E$ȎEvent_Code%�
E.�E_TOAC%
EVThieftrap_ID%=Self_ID%
E`
�E_WATBS%
E�)șT_TOMO%,0,Thieftrap_ID%,M_D_SS%,2,1
E�0Source$="<BootPlus$Dir>.Resources.Thieftrap"
E�Application$="!Thieftrap"
E��E_DDE%
E�Buf2%!0=64
E�+Buf2%!12=0:Buf2%!16=1:Buf2%!20=Blck%!16
E�4Buf2%!28=Blck%!24:Buf2%!32=Blck%!28:Buf2%!36=128
E�+Buf2%!40=&2000:$(Buf2%+44)=Application$
E�*ș"Wimp_SendMessage",17,Buf2%,Blck%!16
F�
F
�
FP��handle_useraccess
Fx�l$,a%,ov%
F�ȎEvent_Code%�
F��E_TOAC%
F�Useraccess_ID%=Self_ID%
F�.șT_TOMO%,0,Useraccess_ID%,0�Sublist%(2,2)
F�Sublist%(3,2)=Sublist%(2,2)
F��E_SSVC%
G3șT_TOMO%,1,Useraccess_ID%,899,&1b,Buf1%,128�a%
GRusr%=a%+1
G6�user_gadgets
G@�set_list_extent(2,�)
GJ�draw_sub(2,2,�,0)
GT�set_list_extent(3,�)
G^�draw_sub(3,2,�,0)
Gh�E_ABS%
G�ȎSelf_Component%�
G��&18
G��modify_useraccess
G��save_useraccess
G��save_usertimes
G�Saved%=�
G��
G��E_WHBH%
HșT_THO%,0,Yesdir_ID%
H&șT_THO%,0,Nodir_ID%
H0
�Saved%�
H:,�error_message("EM9","","","ET3",&13,k%)
HD
�k%=1�
Hl�modify_useraccess
Hv�save_useraccess
H��save_usertimes
H��
H��
H�Saved%=�
H��
H��
H���handle_yesdir
I ȎEvent_Code%�
I*�E_TOAC%
IRYesdir_ID%=Self_ID%
I\*șT_TOMO%,0,Yesdir_ID%,0�Sublist%(2,1)
IfSublist%(2,3)=44
IpSublist%(2,4)=-280
IzSublist%(2,5)=244
I�Sublist%(2,6)=-232
I��
I��
I���handle_wmi
J�nm$,st$,tn$,pc$,tp$
JȎEvent_Code%�
J$
�E_WATBS%
JL$�("*ACCESS "+Ownerfile$+" WR/R")
JVf%=�(Ownerfile$)
J`�a%=1�5
Jja$=�#f%
Jt$șT_TOMO%,0,Self_ID%,512,a%+4,a$
J~�a%
J��#f%
J�"�("*ACCESS "+Ownerfile$+" L/")
J��E_ABS%
J��Self_Component%=10�
J�$�("*ACCESS "+Ownerfile$+" WR/R")
J�f%=�(Ownerfile$)
J��a%=1�5
J�3șT_TOMO%,0,Self_ID%,513,a%+4,Buf1%,128�,,,,,l%
J�Buf1%?l%=13
K�#f%,$Buf1%
K
�a%
K�#f%
K"�("*ACCESS "+Ownerfile$+" L/")
K(�
K2�
K<�
K���make_thieftrap(dest$)
K��f%,a%,a$,p%
K�p%=�dest$,".!Thieftrap")
K�$�("*Access "+Thieffile$+" WR/R")
K�f%=�(Thieffile$)
K�a%=1
K��
K�	a%+=1
K�a$=�#f%
L	��#f%
L a$=�dest$,p%)+"!Trap_"+�(a%)
L6�#f%,"*WIPE "+a$+" FR~C~V"
L@�#f%
LJ"�("*Access "+Thieffile$+" L/")
Lr>�("*COPY <BootPlus$Dir>.Resources.Thieftrap "+a$+" ~C~VR")
L�H�("*COPY <BootPlus$Dir>.Resources.!zzzzpass "+a$+".!zzzzpass ~C~VR")
L��
L���kill_thieftraps
M&
�a%,a$,f%
M:$�("*ACCESS "+Thieffile$+" WR/R")
MD�("*OBEY "+Thieffile$)
MN"�("*WIPE "+Thieffile$+" ~C~V")
MXf%=�(Thieffile$)
Mb�#f%,"| Files for killing"
Ml�#f%
Mv%�("*SetType "+Thieffile$+" &FEB")
M�"�("*ACCESS "+Thieffile$+" L/")
M��
M���lock_mouse(lockmouse)
N�a%,b%,w%,h%
N%ș"OS_ReadModeVariable",-1,4�,,a%
N&ș"OS_ReadModeVariable",-1,11�,,b%
N w%=(b%+1)<<a%
N*%ș"OS_ReadModeVariable",-1,5�,,a%
N4&ș"OS_ReadModeVariable",-1,12�,,b%
N>h%=(b%+1)<<a%
NH&șT_TOMO%,0,Password_ID%,0�Blck%!0
NR"ș"Wimp_GetWindowState",,Blck%
N\�lockmouse�
N�9ȗȓBlck%!4,Blck%!8,Blck%!12-Blck%!4,Blck%!16-Blck%!8
N��
N�)Blck%!4=(w%-608)/2:Blck%!8=(h%-464)/2
N�-Blck%!12=Blck%!4+608:Blck%!16=Blck%!8+464
N�ș"Wimp_OpenWindow",,Blck%
N��
N���showing_password
O$ȎParent_Name$�
O.�"Iconbar"
OV<�clear_fields("CF1","","","","",0,0,&80000000,&80000000)
O`Autoclose%=�
Oj�"Options"
O�@�clear_fields("CF2",Owner$,"","","",&80000000,&80000000,0,0)
O��"Passmenu"
O�ȎParent_Component%�
O��3
O�@�clear_fields("CF3",Owner$,"","","",0,0,&80000000,&80000000)
O�Username$=Owner$
O��8
P@�clear_fields("CF3",Owner$,"","","",0,0,&80000000,&80000000)
PUsername$=Owner$
P(�7
PP<�clear_fields("CF4","","","","",0,0,&80000000,&80000000)
PZ�6
P��Logged_User$=""�
P�(�error_message("EM10","","","",0,K%)
P��
P�>�clear_fields("CF5",Logged_User$,"","","",&80000000,0,0,0)
P�Username$=Logged_User$
P��
P��
P�Autoclose%=�
P��"Password"
P�ȎParent_Component%�
P��100
Q4�clear_fields("CF6","","","","",0,&80000000,0,0)
Q�101
Q@4�clear_fields("CF7","","","","",0,&80000000,0,0)
QJ�102
Qr@�clear_fields("CF8",Owner$,"","","",&80000000,&80000000,0,0)
Q|Username$=Owner$
Q��
Q�Autoclose%=�
Q��
Q��
Q���valchange_password
R�Blck%!16=0�
R:(�error_message("EM11","","","",0,K%)
RD�
RNȎSelf_Component%�
RX�4
Rb!Username$=�indirect(Blck%+16)
Rl�5
Rv!Password$=�indirect(Blck%+16)
R��6
R�$Newpassword$=�indirect(Blck%+16)
R��7
R�Verify$=�indirect(Blck%+16)
R��
R��
R��
S��action_ok_password
S*!�u$,p$,valid%,verify%,exists%
S>-șT_TOMO%,0,Password_ID%,513,&4,Buf1%,256
SHu$=�indirect(Buf1%)
SR-șT_TOMO%,0,Password_ID%,513,&5,Buf1%,256
S\p$=�indirect(Buf1%)
Sf-șT_TOMO%,0,Password_ID%,513,&6,Buf1%,256
Spn$=�indirect(Buf1%)
Sz-șT_TOMO%,0,Password_ID%,513,&7,Buf1%,256
S�v$=�indirect(Buf1%)
S�%valid%=�check_user(u$,p$,exists%)
S�verify%=(n$=v$)
S�ȎParent_Name$�
S��"Iconbar"
S��valid%�
S��login_user(u$,�)
S��
S�
�exists%�
S�(�error_message("EM12","","","",0,K%)
T�
T(�error_message("EM13","","","",0,K%)
T�
T$�
T.�"Options"
TV�verify%�
T`(�error_message("EM14","","","",0,K%)
Tj-șT_TSO%,0,Password_ID%,0,0,Options_ID%,0
Tt�
T~
�(n$)<4�
T�(�error_message("EM15","","","",0,K%)
T�-șT_TSO%,0,Password_ID%,0,0,Options_ID%,0
T��
T�
�exists%�
T��modify_user(u$,n$)
T��
T��add_user(u$,n$)
T��
T��login_user(u$,�)
U�install_logins
U
Sequence$="NORMAL"
U�
U�
U(�"Passmenu"
UPȎParent_Component%�
UZ�3
U��valid%�
U�0șT_TSO%,0,Password_ID%,0,0,Password_ID%,100
U��
U�(�error_message("EM16","","","",0,K%)
U��
U��8
U��valid%�
U�0șT_TSO%,0,Password_ID%,0,0,Password_ID%,101
U��
U�(�error_message("EM16","","","",0,K%)
V�
V�7
V6�valid%�
V@�login_user(u$,�)
VJSequence$="NORMAL"
VT�
V^
�exists%�
Vh(�error_message("EM12","","","",0,K%)
Vr�
V|(�error_message("EM13","","","",0,K%)
V��
V��
V��6
V��valid%�
V�
�verify%�
V�
�(n$)<4�
V�(�error_message("EM15","","","",0,K%)
V��
V��n$=p$�
V�(�error_message("EM17","","","",0,K%)
W�
W�modify_user(u$,n$)
W�
W&�
W0�
W:(�error_message("EM14","","","",0,K%)
WD�
WN�
WX(�error_message("EM18","","","",0,K%)
Wb�
Wl�
Wv�"Password"
W�ȎParent_Component%�
W��100
W�
�exists%�
W�(�error_message("EM19",u$,"","",0,K%)
W��
W�
�verify%�
W�
�(n$)<4�
X(�error_message("EM15","","","",0,K%)
X�
X�add_user(u$,n$)
X �
X*�
X4(�error_message("EM14","","","",0,K%)
X>0șT_TSO%,0,Password_ID%,0,0,Password_ID%,100
XH�
XR�
X\�101
X��exists%�
X�(�error_message("EM20",u$,"","",0,K%)
X��
X�
�verify%�
X�
�(n$)<4�
X�(�error_message("EM15","","","",0,K%)
X��
X��modify_user(u$,n$)
X��
X��
X�(�error_message("EM14","","","",0,K%)
X�0șT_TSO%,0,Password_ID%,0,0,Password_ID%,101
X��
Y�
Y�102
Y8
�verify%�
YB"�add_user(Owner$,Newpassword$)
YL�login_user(Owner$,�)
YV�
Y`(�error_message("EM14","","","",0,K%)
Yj0șT_TSO%,0,Password_ID%,0,0,Password_ID%,102
Yt�
Y~�
Y��
Y��
Y�N��get_options(�at%,�wt%,�dt%,�ts%,�tq%,�da%,�gl%,�tm%,�fo%,�wo%,�pe%,�ap%)
Zd
�f%,a$,a%
Z�	wo%=�
Z�	pe%=�
Z�	ap%=�
Z�ș"OS_File",4,Optfile$,,,,3
Z�f%=�(Optfile$)
Z�u%=0
Z��
Z�a$=�#f%
Z�a%=�a$,":")
Z�Ȏ�a$,a%-2)�
Z��"Allow Time"
[at%=�(�a$,a%+2))
[�"Warn Time"
[wt%=�(�a$,a%+2))
["�"Die Time"
[,dt%=�(�a$,a%+2))
[6�"Task Starting"
[@ts%=(�a$,a%+2)="Y")
[J�"Task Quitting"
[Ttq%=(�a$,a%+2)="Y")
[^�"Directory Access"
[hda%=(�a$,a%+2)="Y")
[r�"Guest Logins"
[|gl%=(�a$,a%+2)="Y")
[��"Test Mode Logins"
[�tm%=(�a$,a%+2)="Y")
[��"Full Owner Access"
[�fo%=(�a$,a%+2)="Y")
[��"Watchdog Off"
[�wo%=(�a$,a%+2)="Y")
[��"Passwords Enabled"
[�pe%=(�a$,a%+2)="Y")
[��"Auto Prompt"
[�ap%=(�a$,a%+2)="Y")
[��
[�	��#f%
[��#f%
\ș"OS_File",4,Optfile$,,,,9
\�
\b��get_useraccess
\�
�f%,a$,a%
\�"ș"OS_File",4,Accessfile$,,,,3
\�f%=�(Accessfile$)
\�
Rusers%=0
\��
\�a$=�#f%
\�a%=�a$,":")
\�Rusers%+=1
\�Rusr$(Rusers%)=�a$,a%-2)
\�Rdir$(Rusers%)=�a$,a%+2)
\�	��#f%
]�#f%
]"ș"OS_File",4,Accessfile$,,,,9
]�
]\��get_usertimes
]�
�f%,a$,a%
]�!ș"OS_File",4,Timesfile$,,,,3
]�f%=�(Timesfile$)
]�
Rusers%=0
]��
]�a$=�#f%
]�a%=�a$,":")
]�Rusers%+=1
]�Rtim$(Rusers%)=�a$,a%+2)
]�	��#f%
]��#f%
]�!ș"OS_File",4,Timesfile$,,,,9
^�
^LC��save_options(at%,wt%,dt%,ts%,tq%,da%,gl%,tm%,fo%,wo%,pe%,ap%)
^��f%
_ș"OS_File",4,Optfile$,,,,3
_
f%=�(T_Optfile$)
_�#f%,"Allow Time : "+�(at%)
_�#f%,"Warn Time : "+�(wt%)
_(�#f%,"Die Time : "+�(dt%)
_20�#f%,"Task Starting : "+�(-89*ts%-78*(�ts%))
_<0�#f%,"Task Quitting : "+�(-89*tq%-78*(�tq%))
_F3�#f%,"Directory Access : "+�(-89*da%-78*(�da%))
_P/�#f%,"Guest Logins : "+�(-89*gl%-78*(�gl%))
_Z3�#f%,"Test Mode Logins : "+�(-89*tm%-78*(�tm%))
_d4�#f%,"Full Owner Access : "+�(-89*fo%-78*(�fo%))
_n/�#f%,"Watchdog Off : "+�(-89*wo%-78*(�wo%))
_x4�#f%,"Passwords Enabled : "+�(-89*pe%-78*(�pe%))
_�.�#f%,"Auto Prompt : "+�(-89*ap%-78*(�ap%))
_��#f%
_�ș"OS_File",6,Optfile$
_�+ș"OS_FSControl",25,T_Optfile$,Optfile$
_�ș"OS_File",4,Optfile$,,,,9
_��
`��save_useraccess
`@
�f%,a%
`T"ș"OS_File",4,Accessfile$,,,,3
`^f%=�(T_Accessfile$)
`h�a%=1�Rusers%
`r"�#f%,Rusr$(a%)+" : "+Rdir$(a%)
`|�a%
`��#f%
`�ș"OS_File",6,Accessfile$
`�1ș"OS_FSControl",25,T_Accessfile$,Accessfile$
`�"ș"OS_File",4,Accessfile$,,,,9
`��
`���save_usertimes
a&
�f%,a%
a:!ș"OS_File",4,Timesfile$,,,,3
aDf%=�(T_Timesfile$)
aN�a%=1�Rusers%
aX"�#f%,Rusr$(a%)+" : "+Rtim$(a%)
ab�a%
al�#f%
avș"OS_File",6,Timesfile$
a�/ș"OS_FSControl",25,T_Timesfile$,Timesfile$
a�!ș"OS_File",4,Timesfile$,,,,9
a��
a���make_dirlist
b�pntr%,spntr%,a%
bTdirs%=0
b>a%=0
bH�
bR;ș"OS_GBPB",12,"<Boot$dir>.^",Buf1%,1,a%,256,"*"�,,,,a%
b\�(a%<>-1)�(Buf1%!20>&fff)�
b�
Tdirs%+=1
b�'Tdir$(Tdirs%,1)=�indirect(Buf1%+24)
b�Q�Rusr$(Rusr%)<>Owner$�(Tdir$(Tdirs%,1)="!Boot"��Tdir$(Tdirs%,1),6)="!Trap_")�
b�(Tflg%(Tdirs%,1)=&7�&100�(24<<16)�&40
b��
b�$Tflg%(Tdirs%,1)=&7�&100�(24<<16)
b��
c�
c
�a%=-1
c
Tnpt%()=0
c$
Typt%()=0
c.�
c~��user_gadgets
c��a%,d%,l%,r%,e1%,e2%,t$
c�
Tydirs%=0
c�
Tndirs%=0
c��a%=1�Tdirs%
c�*�Rdir$(Rusr%),"|"+Tdir$(a%,1)+"|")>0�
dTydirs%+=1
d
Typt%(Tydirs%)=a%
d�
d<Tndirs%+=1
dFTnpt%(Tndirs%)=a%
dP�
dx�(Tflg%(a%,1)�&40)=&40�
d��Rusr$(Rusr%)=Owner$�
d�*Tflg%(a%,1)=(Tflg%(a%,1)�&FFFFFFFC)�&7
d��
d�*Tflg%(a%,1)=(Tflg%(a%,1)�&FFFFFFFC)�&5
d��
d��
d��a%
et$=Rtim$(Rusr%)
el%=1
e�d%=1�7
e"r%=�t$,"|",l%+1)
e,e1%=�t$,"=",l%+1)
e6e2%=�t$,"=",e1%+1)
e^�t$,l%+3,1)="Y"�
eh*șT_TOMO%,0,Useraccess_ID%,196,d%+&3,1
er�
e|*șT_TOMO%,0,Useraccess_ID%,196,d%+&3,0
e��
e�AșT_TOMO%,0,Useraccess_ID%,832,d%+&23,�(�t$,e1%+1,e2%-e1%-1))
e�@șT_TOMO%,0,Useraccess_ID%,832,d%+&30,�(�t$,e2%+1,r%-e2%-1))
e�	l%=r%
e�r%=�t$,"|",l%+1)
e��d%
e��
fD��modify_useraccess
fl�a$,a%,b,t$
f�
a$="|"
f��a%=1�Tydirs%
f�a$+=Tdir$(Typt%(a%),1)+"|"
f��a%
f�Rdir$(Rusr%)=a$
f�
a$="|"
f��d%=1�7
f�a$+=Weekdays$(d%)
g+șT_TOMO%,0,Useraccess_ID%,197,&3+d%�a%
g
�a%=1�
ga$+="Y"
g �
g*a$+="N"
g4�
g>,șT_TOMO%,0,Useraccess_ID%,833,d%+&23�a%
gHa$+="="+�(a%)
gp,șT_TOMO%,0,Useraccess_ID%,833,d%+&30�a%
gza$+="="+�(a%)+"|"
g��d%
g�Rtim$(Rusr%)=a$
g��
g�-��passmenu_greys(i1%,i2%,i3%,i4%,i5%,i6%)
hL$șT_TOMO%,0,Passmenu_ID%,2,7,i1%
hV%șT_TOMO%,0,Passmenu_ID%,2,&d,i2%
h`$șT_TOMO%,0,Passmenu_ID%,2,6,i3%
hj$șT_TOMO%,0,Passmenu_ID%,2,3,i4%
ht$șT_TOMO%,0,Passmenu_ID%,2,8,i5%
h~%șT_TOMO%,0,Passmenu_ID%,2,&c,i6%
h��
h�)��ibarmenu_greys(i1%,i2%,i3%,i4%,bt$)
i$șT_TOMO%,0,Ibarmenu_ID%,2,5,i1%
i($șT_TOMO%,0,Ibarmenu_ID%,2,6,i2%
i2%șT_TOMO%,0,Ibarmenu_ID%,2,&a,i3%
i<%șT_TOMO%,0,Ibarmenu_ID%,2,&b,i4%
iF#șT_TOMO%,0,Ibarmenu_ID%,24,bt$
iP�
i�;��clear_fields(lb$,t1$,t2$,t3$,t4$,fd1%,fd2%,fd3%,fd4%)
j"$a$=�get_message(lb$,"","","","")
j,&șT_TOMO%,0,Password_ID%,448,&a,a$
j6&șT_TOMO%,0,Password_ID%,512,4,t1$
j@&șT_TOMO%,0,Password_ID%,512,5,t2$
jJ&șT_TOMO%,0,Password_ID%,512,6,t3$
jT&șT_TOMO%,0,Password_ID%,512,7,t3$
j^&șT_TOMO%,0,Password_ID%,65,0,fd1%
jh&șT_TOMO%,0,Password_ID%,65,4,fd1%
jr&șT_TOMO%,0,Password_ID%,65,1,fd2%
j|&șT_TOMO%,0,Password_ID%,65,5,fd2%
j�&șT_TOMO%,0,Password_ID%,65,2,fd3%
j�&șT_TOMO%,0,Password_ID%,65,6,fd3%
j�&șT_TOMO%,0,Password_ID%,65,3,fd4%
j�&șT_TOMO%,0,Password_ID%,65,7,fd4%
j��
j���install_logins
k:�l%,bootplusdir$
kD7ș"OS_ReadVarVal","Bootplus$Dir",Buf1%,128,0,0�,,l%
kNBuf1%?l%=13
kXbootplusdir$=$Buf1%
kbApplication$="!zzzzpass"
kl/Source$=bootplusdir$+".resources.!zzzzpass"
kv-�make_alias("<Boot$ToBeTasks>.!zzzzpass")
k�Application$="!Bootplus"
k�Source$=bootplusdir$
k�-�make_alias("<Boot$ToBeTasks>.!Bootplus")
k�Edit_Type$="boot"
k�.�modify_boot_file(bootplusdir$,"remove",�)
k�.�modify_boot_file(bootplusdir$,"insert",�)
k�Edit_Type$=""
k�1*Filer_Run <Bootplus$Dir>.Resources.!zzzzpass
k��
l��remove_logins
lH�l%,bootplusdir$
l\7ș"OS_ReadVarVal","Bootplus$Dir",Buf1%,128,0,0�,,l%
lfBuf1%?l%=13
lpbootplusdir$=$Buf1%
lz8ș"XOS_FSControl",27,"<Boot$ToBeTasks>.!zzzzpass",,3
l�8ș"XOS_FSControl",27,"<Boot$ToBeTasks>.!bootplus",,3
l�Edit_Type$="boot"
l�.�modify_boot_file(bootplusdir$,"remove",�)
l�Edit_Type$=""
l��
l���pause_logins
m�id%
m. id%=�get_task_id("zzzzpass")
m8�id%>0�
m`)Blck%!0=28:Blck%!12=0:Blck%!16=&808c0
mjBlck%!20=4:Blck%!24=Buf2%
mt!Buf2%=3
m~%ș"Wimp_SendMessage",17,Blck%,id%
m��
m�id%=�get_task_id("zzzzchk")
m��id%>0�
m�)Blck%!0=28:Blck%!12=0:Blck%!16=&808c0
m�Blck%!20=4:Blck%!24=Buf2%
m�!Buf2%=3
m�%ș"Wimp_SendMessage",17,Blck%,id%
m��
m��
nZݤencode(pswd$)
n��encd$,a%,b%,c%,d%
n�encd$=""
n�a%=�(pswd$)
n��e%=1�a%
n�b%=�(�pswd$,e%,1))
n�c%=�(�pswd$,a%-e%+1,1))
n�d%=(b%*(c%+1))�&FF
n��d%<32�d%+=32
n��d%>=127� d%<=139�d%+=23
oencd$+=�(d%)
o�e%
o,
=encd$
or$ݤcheck_user(usnm$,pass$,�nami%)
o�'�encd$,ntry$,f%,ok%,pnam$,ppas$,p1$
o��usnm$="GUEST"�
p&(ok%=((pass$="GUEST")� Guest_Logins%)
p0nami%=�
p:�
pba%=0
plp1$=�encode(pass$)
pvencd$=�encode(p1$)
p�	ok%=�
p�nami%=�
p� ș"OS_File",4,Passfile$,,,,3
p�f%=�(Passfile$)
p�ȕ�(�#f%�ok%)
p�ntry$=�#f%
p�tab1%=�ntry$,�(9))
p�tab2%=�ntry$,�(9),tab1%+1)
p�pnam$=�ntry$,tab1%-1)
p�'ppas$=�ntry$,tab1%+1,tab2%-tab1%-1)
p�	a%+=1
p�%ok%=((usnm$=pnam$)�(encd$=ppas$))
p��usnm$=pnam$�nami%=�
q�
q�#f%
q ș"OS_File",4,Passfile$,,,,9
q �
q4=ok%
qz��add_user(usnm$,pass$)
q��encd$,pad%,p1$,bd$,f%,l%
q�p1$=�encode(pass$)
q�encd$=�encode(p1$)
q�!pad%=35-(�(usnm$)+�(encd$)+2)
r ș"OS_File",4,Passfile$,,,,3
rf%=�(Passfile$)
rȕ��#f%
r$ntry$=�#f%
r.�
r8)�#f%,usnm$+�(9)+encd$+�(9)+�pad%,"x")
rB�#f%
rL ș"OS_File",4,Passfile$,,,,9
r�3ș"OS_ReadVarVal","Boot$Dir",Buf1%,128,0,0�,,l%
r�	l%-=6
r�Buf1%?l%=13
r�bd$=$Buf1%
r�#ș"OS_File",20,bd$+".Groups"�f%
r�
�f%=0�
r�ș"OS_File",8,bd$+".Groups"
r��
s*ș"OS_File",20,bd$+".Groups."+usnm$�f%
s

�f%=0�
s2&ș"OS_File",8,bd$+".Groups."+usnm$
s<�
sFRusers%+=1
sPRusr$(Rusers%)=usnm$
sZTRdir$(Rusers%)="|Apps|Diversions|Images|Public|Sound|Tutorials|Utilities|Video|"
sdbd$="|"
sn�b%=1�7
sx bd$+=Weekdays$(b%)+"Y=8=17|"
s��b%
s�Rtim$(Rusers%)=bd$
s��save_useraccess
s��save_usertimes
s��
s���modify_user(usnm$,pass$)
t6+�encd$,ntyr$,pad%,tab1%,tab2%,pnam$,p1$
tJp1$=�encode(pass$)
tTencd$=�encode(p1$)
t^!pad%=35-(�(usnm$)+�(encd$)+2)
th ș"OS_File",4,Passfile$,,,,3
trf%=�(Passfile$)
t|�
t�posn%=�#f%
t�ntry$=�#f%
t�tab1%=�ntry$,�(9))
t�tab2%=�ntry$,�(9),tab1%+1)
t�pnam$=�ntry$,tab1%-1)
t��pnam$=usnm$
t��#f%=posn%
t�)�#f%,usnm$+�(9)+encd$+�(9)+�pad%,"x")
t��#f%
t� ș"OS_File",4,Passfile$,,,,9
t��
u0��login_user(usnm$,inform%)
uv�a%,al%,dur%,sh%,eh%
u��Logged_User$<>usnm$�
u�'�user_times(usnm$,al%,dur%,sh%,eh%)
u�
Ȏal%�
u��1
u�"șT_TOMO%,0,Ibarmenu_ID%,2,6,0
u�Logged_User$=usnm$
v #�(Zzzzpass_Status%=3)� inform%�
vH�inform_zzzzpass(dur%)
vR�
v\�2
v�+�error_message("EM21","","","ET1",0,K%)
v��3
v�3�error_message("EM22",�(sh%),�(eh%),"ET1",0,K%)
v��
v��
v�+�error_message("EM23","","","ET2",0,K%)
v��
w�
wV7��user_times(usern$,�allowed%,�duration%,�sh%,�eh%)
w~�a%,th%,mn%,wd%,e1%,e2%,b%
w��a%=1�Rusers%
w��Rusr$(a%)=usnm$�
w�Rusr%=a%
w��
w��a%
w��usern$=Owner$�
xallowed%=1
x
�
x2!Buf1%=3
x<ș"OS_Word",14,Buf1%
xF#ș&c1,Buf1%,Buf2%,128,"%24"�,a%
xP
?a%=13
xZth%=�($Buf2%)
xd#ș&c1,Buf1%,Buf2%,128,"%WN"�,a%
xn
?a%=13
xxwd%=�($Buf2%)
x�#ș&c1,Buf1%,Buf2%,128,"%MI"�,a%
x�
?a%=13
x�mn%=�($Buf2%)
x�&a%=�Rtim$(Rusr%),Weekdays$(wd%),1)
x�duration%=0
x��Rtim$(Rusr%),a%+2,1)="Y"�
x�e1%=�Rtim$(Rusr%),"=",a%+3)
x� e2%=�Rtim$(Rusr%),"=",e1%+2)
x�b%=�Rtim$(Rusr%),"|",e2%+2)
x�)sh%=�(�Rtim$(Rusr%),e1%+1,e2%-e1%-1))
y(eh%=�(�Rtim$(Rusr%),e2%+1,b%-e2%-1))
y�(th%>=sh%� th%<=eh%)�
yallowed%=1
y" duration%=(eh%-th%+1)*60-mn%
y,�
y6allowed%=3
y@�
yJ�
yTallowed%=2
y^�
yh�
yr�
y� ��inform_zzzzpass(duration%)
y�
�p%,a%
z�	p%=20
z�!Buf2%=1
z�Buf2%!4=p%
z�"$(Buf2%+20)=Logged_User$+�(13)
z�p%+=�(Logged_User$)+2
z�Buf2%!12=p%
z��Logged_User$="LOGOFF"�
z�$(Buf2%+Buf2%!12)="||"
z�	P%+=2
z��
z�"$(Buf2%+Buf2%!12)=Rdir$(Rusr%)
z�p%+=�(Rdir$(Rusr%))
{�
{Buf2%!16=duration%
{4)Blck%!0=32:Blck%!12=0:Blck%!16=&808c0
{>Blck%!20=p%:Blck%!24=Buf2%
{H�Logged_User$="LOGOFF"�
{RBlck%!20=Buf2%!12+4
{\�
{f'Blck%!20=Buf2%!12+�(Rdir$(Rusr%))+2
{p�
{z2ș"Wimp_SendMessage",17,Blck%,Zzzzpass_Handle%
{��
{���boot_install(type$,�cf%)
{��f%,a$,bv$,n%
|	cf%=�
|$$f%=�("<Boot$Dir>.Utils.Deskrun")
|.�
|8a$=�#f%
|Bcf%=(�a$,"!Bootplus")>0)
|L
��#f%�cf%
|V�#f%
|~7ș"OS_ReadVarVal","Bootplus$Dir",Buf1%,128,0,0�,,n%
|�Buf1%?n%=13
|�Ȏ��
|��((type$="IN")��cf%)
|�:ș"OS_FSControl",24,"<Boot$Dir>.Utils.Deskrun","WR/WR"
|�Nș"OS_FSControl",25,"<Boot$Dir>.Utils.Deskrun","<Boot$Dir>.Utils.DeskrunO"
|�:ș"OS_FSControl",24,"<Boot$Dir>.Utils.DeskrunO","LR/R"
|�$f%=�("<Boot$Dir>.Utils.Deskrun")
|��#f%,"IFTHERE "+$Buf1%+".!Run THEN Filer_Run "+$Buf1%+" ELSE ERROR !Bootplus has moved.  Run it from the current location and re-install into !Boot"
|��#f%
}2ș"OS_File",18,"<Boot$Dir>.Utils.Deskrun",&FEB
}
9ș"OS_FSControl",24,"<Boot$Dir>.Utils.Deskrun","LR/R"
}�((type$="OUT")� cf%)
}<:ș"OS_FSControl",24,"<Boot$Dir>.Utils.Deskrun","WR/WR"
}F;ș"OS_FSControl",24,"<Boot$Dir>.Utils.DeskrunO","WR/WR"
}P,ș"OS_File",6,"<Boot$Dir>.Utils.Deskrun"
}ZNș"OS_FSControl",25,"<Boot$Dir>.Utils.DeskrunO","<Boot$Dir>.Utils.Deskrun"
}d9ș"OS_FSControl",24,"<Boot$Dir>.Utils.Deskrun","LR/R"
}n�
}x�
}���draw_main(mid%,reason%)
~"�a%
~JBlck%!0=Sublist%(mid%,2)
~T"ș"Wimp_GetWindowState",,Blck%
~^Ȏreason%�
~h�0
~�Ȏmid%�
~��1
~�ȎEdit_Type$�
~��"autorun"
~�4șT_TOMO%,0,Mainlist_ID%,11,"Edit Autorun Files"
~��"boot"
~�>șT_TOMO%,0,Mainlist_ID%,11,"Edit Autobooted Applications"
~��"resources"
~�<șT_TOMO%,0,Mainlist_ID%,11,"Edit Resource Applications"
�"predesk"
4șT_TOMO%,0,Mainlist_ID%,11,"Edit Predesk Files"
�
D�
Nș"Wimp_OpenWindow",,Blck%
X�2
b ș"Wimp_RedrawWindow",,Blck%
l�
��mid%=2�
��draw_sub(2,reason%,�,0)
��draw_sub(3,reason%,�,0)
��
��draw_sub(1,reason%,�,0)
��
�*Blck%!0=Sublist%(mid%,2)
�4"ș"Wimp_GetWindowState",,Blck%
�>Blck%!28=Sublist%(mid%,1)
�Hș"Wimp_OpenWindow",,Blck%
�R�
��&��draw_sub(sid%,reason%,main%,bh%)
�B�a%,r%,os_wx%,os_wy%
�`�reason%<>2�
��Buf1%!0=Sublist%(sid%,2)
��"ș"Wimp_GetWindowState",,Buf1%
��os_wx%=(Buf1%!4-Buf1%!20)
��os_wy%=(Buf1%!16-Buf1%!24)
��Buf2%!0=Sublist%(sid%,1)
��"ș"Wimp_GetWindowState",,Buf2%
��#Buf2%!4=os_wx%+Sublist%(sid%,3)
��4Buf2%!8=os_wy%+Sublist%(sid%,4)+Sublist%(sid%,6)
��5Buf2%!12=os_wx%+Sublist%(sid%,3)+Sublist%(sid%,5)
��$Buf2%!16=os_wy%+Sublist%(sid%,4)
���
�Ȏreason%�
��0
��Buf2%!28=-1
��ș"Wimp_OpenWindow",,Buf2%
���set_list_extent(sid%,�)
��Ȏsid%�
��1
�,/�draw_list(1,Objs%,Optr%(),Odat$(),Oflg%())
�6�2
�^1�draw_list(2,Tydirs%,Typt%(),Tdir$(),Tflg%())
�h�3
��1�draw_list(3,Tndirs%,Tnpt%(),Tdir$(),Tflg%())
���
���2
��Ȏsid%�
���1
�/�draw_list(1,Objs%,Optr%(),Odat$(),Oflg%())
��2
�:1�draw_list(2,Tydirs%,Typt%(),Tdir$(),Tflg%())
�D�3
�l1�draw_list(3,Tndirs%,Tnpt%(),Tdir$(),Tflg%())
�v�
���3
��Buf2%!28=bh%
��ș"Wimp_OpenWindow",,Buf2%
���
���
�*#��set_list_extent(sid%,redraw%)
�RBlck%!0=Sublist%(sid%,1)
�\&ș"Wimp_GetWindowInfo",,(Blck%�&1)
�fȎsid%�
�p�1
�zBlck%!48=-Font_Lh%*Objs%
���2
��Blck%!48=-Font_Lh%*Tydirs%
���3
��Blck%!48=-Font_Lh%*Tndirs%
���
��!�Blck%!48>(Blck%!8-Blck%!16)�
��Blck%!48=Blck%!8-Blck%!16
���
��'ș"Wimp_SetExtent",Blck%!0,Blck%+44
��
�redraw%�
�ș"Wimp_OpenWindow",,Blck%
��
�$�
�j5��draw_list(sid%,ntrs%,ptrs%(),sdata$(),flags%())
��G�fh%,m%,os_wl%,os_wt%,wk_rl%,wk_rt%,wk_rb%,tt%,tb%,r%,e%,cls%,xpos%
�cls%=�(sdata$(),2)
�
1ș"Font_FindFont",,Font_Name$,192,192,0,0�fh%
�$ș"Font_ReadInfo",fh%�,,fb%,,ft%
�Font_Lh%=ft%-fb%+4
�(Blck%!0=Sublist%(sid%,1)
�2#ș"Wimp_RedrawWindow",,Blck%�m%
�<�
�d-�(Blck%!36>Blck%!28)�(Blck%!40>Blck%!32)�
��os_wl%=(Blck%!4-Blck%!20)
��os_wt%=(Blck%!16-Blck%!24)
��wk_rl%=Blck%!28-os_wl%
��wk_rt%=Blck%!40-os_wt%
��wk_rb%=Blck%!32-os_wt%
�tt%=�(-wk_rt%/Font_Lh%)+1
�tb%=�(-wk_rb%/Font_Lh%)+1
�T�r%=tt%�tb%
��p%=ptrs%(r%)
��
�p%>0�
���c%=1�cls%
���(flags%(p%,c%)�&100)=&100�
��'xpos%=(flags%(p%,c%)�&ffff0000)>>16
��2ș"Wimp_SetFontColours",,0,(flags%(p%,c%)� 15)
��Mș"Font_Paint",fh%,sdata$(p%,c%),16,os_wl%+xpos%,os_wt%-r%*Font_Lh%-fb%-4
��
��c%
��
�&�r%
�0�
�:�m%<>0�
�b#ș"Wimp_GetRectangle",,Blck%�m%
�l�
�v	�m%=0
���
����get_applist
�\)�aline$,f1%,p%,offset%,app$,found%,r%
��Objs%=0
��
Oflg%()=7
��
Optr%()=0
��Odat$()=""
��ȎEdit_Type$�
���"resources"
��?�get_filelisted("<choices$write>.Boot.PreDeskTop","AddApp")
���"boot"
�@�get_filelisted("<choices$write>.Boot.Desktop","Filer_Boot")
��"autorun"
�B&�get_dirlisted("<Boot$ToBeTasks>")
�L�"predesk"
�t'�get_dirlisted("<Boot$ToBeLoaded>")
�~�
��Ontr%=Objs%
���r%=1�Objs%
��Optr%(r%)=r%
��)Oflg%(r%,1)=Oflg%(r%,1)�(24<<16)�&100
��*Oflg%(r%,2)=Oflg%(r%,2)�(200<<16)�&100
��ȎEdit_Type$�
���"boot"
��*Oflg%(r%,4)=Oflg%(r%,4)�(512<<16)�&100
���"resources"
�*Oflg%(r%,4)=Oflg%(r%,4)�(512<<16)�&100
�
�"autorun"
�*Oflg%(r%,4)=Oflg%(r%,4)�(480<<16)�&100
��"predesk"
�(*Oflg%(r%,4)=Oflg%(r%,4)�(400<<16)�&100
�2�
�<�r%
�F�
�� ��get_filelisted(file$,com$)
���f1%,aline$,p%
��f1%=�(file$)
���
��aline$=�#f1%
��_�(�aline$,"|Start")>0��aline$,"Mars")>0��aline$,"!Bootplus")>0��aline$,Edit_Type$)>0)��#f1%
����#f1%�
��
�"aline$=�#f1%
�,�aline$,com$)=1�
�6p%=�aline$,".!")
�@
�p%>0�
�JObjs%+=1
�T Odat$(Objs%,1)=�aline$,p%+1)
�^$Odat$(Objs%,2)="App (reference)"
�hOdat$(Objs%,3)="2000"
��p%=�aline$," ")
�� Odat$(Objs%,5)=�aline$,p%+1)
��$ș"OS_File",23,Odat$(Objs%,5)�p%
��
�p%=0�
��%Odat$(Objs%,4)="Original Missing"
��Oflg%(Objs%,4)=11
���
���check_standard_entry
���
���
����aline$,"|End")>0��#f1%
���
�	�#f1%
��
�X��get_dirlisted(dir$)
��4�file$,offset%,found%,l%,p%,l$,f%,a$,b$,c$,a%,c%
��
offset%=0
���
��9ș"OS_GBPB",12,dir$,Buf1%,1,offset%,128,0�,,,,offset%
���offset%<>-1� Buf1%!20<>-1�
��ȎBuf1%!20�
��
�&1000
��Objs%+=1
��&Odat$(Objs%,1)=�indirect(Buf1%+24)
�Odat$(Objs%,2)="Directory"
�Odat$(Objs%,3)="1000"
�ȎEdit_Type$�
�*�
�4Odat$(Objs%,4)=""
�>*Odat$(Objs%,5)=dir$+"."+Odat$(Objs%,1)
�H
�&2000
�pObjs%+=1
�z&Odat$(Objs%,1)=�indirect(Buf1%+24)
��*Odat$(Objs%,5)=dir$+"."+Odat$(Objs%,1)
��Oș"OS_GBPB",10,dir$+"."+Odat$(Objs%,1),Buf1%,10,0,200,"!Sprites*"�,,,found%
���found%=0�
��5ș"OS_File",20,dir$+"."+Odat$(Objs%,1)+".!Run"�f%
��
�f%=0�
�� Odat$(Objs%,2)="App (full?)"
��!Odat$(Objs%,4)="No !run file"
�Oflg%(Objs%,4)=11
��
�8 Odat$(Objs%,2)="App (alias)"
�B)f%=�(dir$+"."+Odat$(Objs%,1)+".!Run")
�Ll$=�#f%
�V�#f%
�`l$=�l$,11)
�jș"OS_File",23,l$�p%
�t
�p%=0�
�~%Odat$(Objs%,4)="Original Missing"
��Oflg%(Objs%,4)=11
���
���
���
��Odat$(Objs%,2)="App (full)"
���
��Odat$(Objs%,3)="2000"
��
�Objs%+=1
�&Odat$(Objs%,1)=�indirect(Buf1%+24)
�(*Odat$(Objs%,5)=dir$+"."+Odat$(Objs%,1)
�2-ș"OS_ConvertHex4",Buf1%!20,Buf2%,128�,p%
�<
?p%=13
�FOdat$(Objs%,3)=�$Buf2%,3)
�PEș"XOS_ReadVarVal","File$Type_"+Odat$(Objs%,3),Buf1%,128,0,3�,,l%
�Z
�l%=0�
��%Odat$(Objs%,2)="&"+Odat$(Objs%,3)
���
��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)
�6�
�@*�(c%=Boot_Types%)�(Odat$(Objs%,4)<>"")
�J�
�T�check_standard_entry
�^�
�h�offset%=-1
�r�
����check_standard_entry
���c%
���c%=1�Standards%
�C�(Standard$(c%,1)=Edit_Type$)�(Standard$(c%,2)=Odat$(Objs%,1))�
�0Oflg%(Objs%,1)=5
�:Oflg%(Objs%,2)=5
�DOflg%(Objs%,3)=5
�NOflg%(Objs%,4)=5
�XOflg%(Objs%,5)=64
�b�
�l�c%
�v�
����check_if_applied
���k%
��
�Saved%�
��5�error_message("EM24",Edit_Type$,"","ET3",&13,k%)
��
�k%=1�
� �apply_edit_changes
�*�
�4�
�>Saved%=�
�H�
����apply_edit_changes
���r%
���r%=1�Ontr%
��ȎOflg%(r%,5)�
���16
��modify_boot(r%,"remove",�)
��32
�B�modify_boot(r%,"insert",�)
�L
�t�
�~�r%
���
��&��modify_boot(ntry%,mode$,nomess%)
��
�ȎEdit_Type$�
��"autorun"
�(4�modify_boot_dir(ntry%,"<Boot$ToBeTasks>",mode$)
�2�"resources"
�<3�modify_boot_file(Odat$(ntry%,5),mode$,nomess%)
�F�"boot"
�P3�modify_boot_file(Odat$(ntry%,5),mode$,nomess%)
�Z�"predesk"
�d5�modify_boot_dir(ntry%,"<Boot$ToBeLoaded>",mode$)
�n�
�x�
����make_alias(pathname$)
�
�f%,l%
�"!ș"OS_File",8,pathname$,0,0,0
�,-ș"OS_File",11,pathname$+".!Run",&FEB,0,0
�6.ș"OS_File",11,pathname$+".!Boot",&FEB,0,0
�@.ș"OS_File",11,pathname$+".!Help",&FFF,0,0
�r%�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$+".!Boot")
�M�#f%,"IfThere "+Source$+".!Sprites Then IconSprites "+Source$+".!Sprites"
�E�#f%,"IfThere "+Source$+".!Boot Then Filer_Run "+Source$+".!Boot"
��#f%
�Df%=�(pathname$+".!Help")
�N.�#f%,"Alias for application "+Application$
�X2�#f%,"Which can be found at location "+Source$
�b�#f%
�l�
��(��modify_boot_dir(ntry%,dest$,mode$)
��Ȏmode$�
��
�"insert"
���Odat$(ntry%,3)="2000"�
�Source$=Odat$(ntry%,5)
� Application$=Odat$(ntry%,1)
�*)�make_alias(dest$+"."+Odat$(ntry%,1))
�4�
�\5�Odat$(ntry%,5),25)="<Wimp$ScrapDir>.Bootplus."�
��G�("*COPY "+Odat$(ntry%,5)+" "+dest$+"."+Odat$(ntry%,1)+" ~V~P~CFD")
���
��E�("*COPY "+Odat$(ntry%,5)+" "+dest$+"."+Odat$(ntry%,1)+" ~V~P~C")
���
���
��
�"remove"
�(�("*WIPE "+Odat$(ntry%,5)+" ~VF~CR")
��
�B4*ACCESS <Bootplus$dir>.Resources.changelist WR/R
�L/f%=�("<Bootplus$dir>.Resources.changelist")
�V.g%=�("<Bootplus$dir>.Resources.changenew")
�`	X%=10
�j�
�ta$=�#f%
�~	X%+=4
��,�mode$="insert"��a$,Odat$(ntry%,5),1)=0�
���#g%,a$
���
��	��#f%
���mode$="insert"�
��4�#g%,"*WIPE "+dest$+"."+Odat$(ntry%,1)+" ~VF~CR"
���
���#f%
���#g%
��2*WIPE <Bootplus$dir>.Resources.changelist ~C~V
��R*RENAME <Bootplus$dir>.Resources.changenew <Bootplus$dir>.Resources.changelist
��5*SETTYPE <Bootplus$dir>.Resources.changelist &FEB
�2*ACCESS <Bootplus$dir>.Resources.changelist L/
�
�
�F*��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"
�/tempname$="<choices$write>.boot.PreDesknew"
�.oldname$="<choices$write>.boot.PreDeskold"
�"�"boot"
�,ftyp%=&fea
�6,bootname$="<choices$write>.boot.Desktop"
�@/tempname$="<choices$write>.boot.Desktopnew"
�J.oldname$="<choices$write>.boot.Desktopold"
�T�
�|ș"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$
���
�Ȏmode$�
�&
�"remove"
�0D�(app$="all"��aline$,".!")>0� start%)�(�aline$,app$)>0� start%)�
�Xfound%=�
�bdone%=�
�l�
���#f1%,aline$
���
��
�"insert"
���(�aline$,app$)>0)� start%�
��found%=�
��4�nomess%��error_message("EM25",app$,"","",0,K%)
���
��+�(�aline$,"|End")>0)� start%�(�found%)�
�ȎEdit_Type$�
��"resources"
��#f1%,"AddApp "+app$
� �"boot"
�*�#f1%,"Filer_Boot "+app$
�4�
�>done%=�
�H�
�R�#f1%,aline$
�\�
�f�
�p
��#f2%
�z �(�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"
�
�#f1%,"|"
��#f1%,"AddApp "+app$
�$�#f1%,"|End"
�.�"boot"
�8�#f1%,""
�B<�#f1%,"|Start Mars !Bootplus "+Bootplus_Version$+" boot"
�L$�#f1%,"| ----------------------"
�V
�#f1%,"|"
�`�#f1%,"|       boot"
�j
�#f1%,"|"
�t$�#f1%,"| ----------------------"
�~!�#f1%,"| Booted applications"
��"�#f1%,"| Inserted by Bootplus"
��
�#f1%,"|"
���#f1%,"Filer_Boot "+app$
���#f1%,"|End"
���
��done%=�
���
��	�#f1%
��	�#f2%
��done%�
�
ș"OS_File",6,oldname$
�*ș"OS_FSControl",25,bootname$,oldname$
�+ș"OS_FSControl",25,tempname$,bootname$
�(�
�Pș"OS_File",6,tempname$
�Z�
�d�
����clear_edits
���f1%,f2%,a$,f%
�3ș"OS_File",6,"<choices$write>.boot.PreDeskNew"
�9ș"OS_File",11,"<choices$write>.boot.PreDeskNew",&FEB
�,f1%=�("<choices$write>.boot.PreDeskNew")
�",f2%=�("<choices$write>.boot.PreDesktop")
�,�
�6a$=�#f2%
�@<�(�a$,"|Start")>0)�(�a$,"Mars")>0)�(�a$,"!Bootplus")>0)�
�A�
�Ta$=�#f2%
�^�a$="|End"
�h�
�r�#f1%,a$
�|�
��
��#f2%
��	�#f1%
��	�#f2%
��3ș"OS_File",6,"<choices$write>.boot.PreDesktop"
��[ș"OS_FSControl",25,"<choices$write>.boot.PreDeskNew","<choices$write>.boot.PreDesktop"
��0ș"OS_File",6,"<choices$write>.boot.DeskNew"
��6ș"OS_File",11,"<choices$write>.boot.DeskNew",&FEA
��)f1%=�("<choices$write>.boot.DeskNew")
��)f2%=�("<choices$write>.boot.Desktop")
���
�a$=�#f2%
�6�a$,"|Start")>0��a$,"Mars")>0��a$,"!Bootplus")>0�
��
�&a$=�#f2%
�0�a$="|End"
�:�
�D�#f1%,a$
�N�
�X
��#f2%
�b	�#f1%
�l	�#f2%
�v0ș"OS_File",6,"<choices$write>.boot.Desktop"
��Uș"OS_FSControl",25,"<choices$write>.boot.DeskNew","<choices$write>.boot.Desktop"
��4*ACCESS <Bootplus$dir>.Resources.changelist WR/R
��-*OBEY <Bootplus$dir>.Resources.changelist
��2*WIPE <Bootplus$dir>.Resources.changelist ~C~V
��/f%=�("<Bootplus$Dir>.Resources.changelist")
��-�#f%,"| files added to predesk and tasks"
���#f%
��5*SETTYPE <Bootplus$dir>.Resources.changelist &FEB
��2*ACCESS <Bootplus$dir>.Resources.changelist L/
��
�\ݤget_task_id(tnm$)
���a%,tid%,ntn$
��a%=0
��
tid%=0
��ntn$=""
���
��1ș"TaskManager_EnumerateTasks",a%,Buf1%,16�a%
��8�(a%>0)�((Buf1%!12� 1)=0)�(tnm$=�indirect(Buf1%!4))�
��tid%=Buf1%!0
��	a%=-1
��
�	�a%<0
�	=tid%
�`ݤindirect(pntr%)
��
�answ$
��ș"OS_WriteN",pntr%,0�answ$
��
=answ$
�)ݤget_message(token$,p1$,p2$,p3$,p4$)
�(�s%
�<Hș"MessageTrans_Lookup",Tlms%,token$,Blck%,128,p1$,p2$,p3$,p4$�,,,s%
�FBlck%?s%=13
�P=$Blck%
��;��error_message(message$,p1$,p2$,etitle$,flags%,�keyc%)
��
�s%,t$,e$
�+e$=�get_message(message$,p1$,p2$,"","")
��etitle$=""�etitle$="ET4"
�(t$=�get_message(etitle$,"","","","")
�"$(Blck%+4)=e$
�,
Blck%!0=0
�6/ș"Wimp_ReportError",Blck%,flags%,t$�,keyc%
�@�
��� 9
��� "predesk","FEB","EW1"
��� "predesk","FF8","EW2"
��� "predesk","FF9","EW3"
��� "predesk","FFA","EW4"
��� "predesk","FFB","EW5"
��� "predesk","FFC","EW2"
��� "predesk","1000","EW6"
��� "predesk","*","EW7"
��� "autorun","*","EW8"
�� 9
�� "predesk","ARPlayer"
�&� "predesk","BandLimit"
�0� "predesk","SetUpNet"
�:� "predesk","Configure"
�D� "autorun","Configure"
�N� "autorun","~CDReinit"
�X� "autorun","!zzzzpass"
�b� "autorun","!Bootplus"
�l� "boot","!Bootplus"
��� 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  f4 0c de 54 6c 6d 73 25  31 36 0d 01 fe 0c de 54  |...Tlms%16.....T|
00000030  6c 6f 69 25 32 34 0d 02  08 0d de 42 75 66 31 25  |loi%24.....Buf1%|
00000040  31 32 38 0d 02 12 0d de  42 75 66 32 25 35 31 32  |128.....Buf2%512|
00000050  0d 02 1c 0d de 42 6c 63  6b 25 35 31 32 0d 02 26  |.....Blck%512..&|
00000060  10 de 4f 64 61 74 24 28  35 30 2c 35 29 0d 02 30  |..Odat$(50,5)..0|
00000070  10 de 4f 66 6c 67 25 28  35 30 2c 35 29 0d 02 80  |..Oflg%(50,5)...|
00000080  0e de 4f 70 74 72 25 28  35 30 29 0d 02 8a 0e de  |..Optr%(50).....|
00000090  52 75 73 72 24 28 32 30  29 0d 02 94 0e de 52 64  |Rusr$(20).....Rd|
000000a0  69 72 24 28 32 30 29 0d  02 9e 0e de 52 74 69 6d  |ir$(20).....Rtim|
000000b0  24 28 32 30 29 0d 02 a8  15 de 42 6f 6f 74 5f 54  |$(20).....Boot_T|
000000c0  79 70 65 24 28 32 30 2c  33 29 0d 02 b2 14 de 53  |ype$(20,3).....S|
000000d0  74 61 6e 64 61 72 64 24  28 32 30 2c 32 29 0d 02  |tandard$(20,2)..|
000000e0  bc 11 de 57 65 65 6b 64  61 79 73 24 28 37 29 0d  |...Weekdays$(7).|
000000f0  02 c6 10 de 44 69 72 64  61 74 24 28 35 30 29 0d  |....Dirdat$(50).|
00000100  02 d0 10 de 44 69 72 66  6c 67 25 28 35 30 29 0d  |....Dirflg%(50).|
00000110  02 da 12 de 53 75 62 6c  69 73 74 25 28 33 2c 36  |....Sublist%(3,6|
00000120  29 0d 03 3e 11 de 54 64  69 72 24 28 31 30 30 2c  |)..>..Tdir$(100,|
00000130  31 29 0d 03 48 0f de 54  79 70 74 25 28 31 30 30  |1)..H..Typt%(100|
00000140  29 0d 03 52 0f de 54 6e  70 74 25 28 31 30 30 29  |)..R..Tnpt%(100)|
00000150  0d 03 5c 11 de 54 66 6c  67 25 28 31 30 30 2c 31  |..\..Tflg%(100,1|
00000160  29 0d 03 66 0a 4d 50 25  3d 32 30 0d 03 70 13 f2  |)..f.MP%=20..p..|
00000170  74 6f 6f 6c 62 6f 78 5f  76 61 6c 75 65 73 0d 03  |toolbox_values..|
00000180  7a 0f f2 69 6e 69 74 69  61 6c 69 73 65 0d 03 84  |z..initialise...|
00000190  0b 51 75 69 74 25 3d a3  0d 03 8e 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 03 98 05  f5 0d 03 a2 31 e7 28 53  |;.:.........1.(S|
000001c0  65 71 75 65 6e 63 65 24  3d 22 4c 4f 47 4f 4e 22  |equence$="LOGON"|
000001d0  29 84 28 53 65 71 75 65  6e 63 65 24 3d 22 50 52  |).(Sequence$="PR|
000001e0  4f 4d 50 54 49 4e 47 22  29 8c 0d 03 ac 28 c8 99  |OMPTING")....(..|
000001f0  22 57 69 6d 70 5f 50 6f  6c 6c 49 64 6c 65 22 2c  |"Wimp_PollIdle",|
00000200  30 2c 42 6c 63 6b 25 2c  32 35 b8 72 65 61 73 6f  |0,Blck%,25.reaso|
00000210  6e 25 0d 03 b6 05 cc 0d  03 c0 21 c8 99 22 57 69  |n%........!.."Wi|
00000220  6d 70 5f 50 6f 6c 6c 22  2c 31 2c 42 6c 63 6b 25  |mp_Poll",1,Blck%|
00000230  b8 72 65 61 73 6f 6e 25  0d 03 ca 05 cd 0d 03 d4  |.reason%........|
00000240  07 f2 64 6f 0d 03 de 0a  fd 51 75 69 74 25 0d 03  |..do.....Quit%..|
00000250  e8 26 c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |.&.."Wimp_CloseD|
00000260  6f 77 6e 22 2c 54 68 64  6c 25 2c 26 34 38 35 33  |own",Thdl%,&4853|
00000270  34 31 35 34 0d 03 f2 05  e0 0d 04 38 14 dd f2 74  |4154.......8...t|
00000280  6f 6f 6c 62 6f 78 5f 76  61 6c 75 65 73 0d 04 88  |oolbox_values...|
00000290  11 45 5f 41 42 53 25 3d  26 38 32 38 38 31 0d 04  |.E_ABS%=&82881..|
000002a0  92 12 45 5f 54 4f 41 43  25 3d 26 34 34 65 63 31  |..E_TOAC%=&44ec1|
000002b0  0d 04 9c 13 45 5f 57 41  54 42 53 25 3d 26 38 32  |....E_WATBS%=&82|
000002c0  38 38 30 0d 04 a6 12 45  5f 57 48 42 48 25 3d 26  |880....E_WHBH%=&|
000002d0  38 32 38 39 30 0d 04 b0  12 45 5f 57 46 56 43 25  |82890....E_WFVC%|
000002e0  3d 26 38 32 38 38 35 0d  04 ba 11 45 5f 44 44 45  |=&82885....E_DDE|
000002f0  25 3d 26 38 32 38 38 38  0d 04 c4 11 45 5f 4d 53  |%=&82888....E_MS|
00000300  4d 25 3d 26 38 32 38 43  32 0d 04 ce 13 45 5f 4d  |M%=&828C2....E_M|
00000310  41 54 42 53 25 3d 26 38  32 38 63 30 0d 04 d8 12  |ATBS%=&828c0....|
00000320  45 5f 4d 48 42 48 25 3d  26 38 32 38 63 31 0d 04  |E_MHBH%=&828c1..|
00000330  e2 10 45 5f 4d 53 25 3d  26 38 32 38 63 33 0d 04  |..E_MS%=&828c3..|
00000340  ec 12 45 5f 53 53 56 43  25 3d 26 38 32 38 38 45  |..E_SSVC%=&8288E|
00000350  0d 04 f6 14 45 5f 53 53  41 54 42 53 25 3d 26 38  |....E_SSATBS%=&8|
00000360  32 38 38 66 0d 05 00 14  45 5f 50 55 41 54 42 53  |288f....E_PUATBS|
00000370  25 3d 26 38 32 38 38 62  0d 05 0a 12 45 5f 4e 52  |%=&8288b....E_NR|
00000380  56 43 25 3d 26 38 32 38  38 64 0d 05 32 0c 45 5f  |VC%=&8288d..2.E_|
00000390  55 51 41 25 3d 31 0d 05  5a 0f 4d 5f 44 5f 53 53  |UQA%=1..Z.M_D_SS|
000003a0  25 3d 36 34 34 0d 05 64  10 4d 5f 44 5f 53 53 50  |%=644..d.M_D_SSP|
000003b0  25 3d 36 34 30 0d 05 6e  0f 4d 5f 44 5f 53 54 25  |%=640..n.M_D_ST%|
000003c0  3d 36 34 32 0d 05 78 10  4d 5f 52 42 5f 47 53 25  |=642..x.M_RB_GS%|
000003d0  3d 33 38 39 0d 05 a0 12  54 5f 54 4f 4d 4f 25 3d  |=389....T_TOMO%=|
000003e0  26 34 34 65 63 36 0d 05  aa 11 54 5f 54 53 4f 25  |&44ec6....T_TSO%|
000003f0  3d 26 34 34 65 63 33 0d  05 b4 12 54 5f 54 54 4c  |=&44ec3....T_TTL|
00000400  55 25 3d 26 34 34 45 46  42 0d 05 be 11 54 5f 54  |U%=&44EFB....T_T|
00000410  48 4f 25 3d 26 34 34 65  63 34 0d 05 e6 10 58 42  |HO%=&44ec4....XB|
00000420  49 54 25 3d 26 32 30 30  30 30 0d 05 f0 05 e1 0d  |IT%=&20000......|
00000430  06 36 10 dd f2 69 6e 69  74 69 61 6c 69 73 65 0d  |.6...initialise.|
00000440  06 5e 0f ea 65 78 69 73  74 73 25 2c 61 25 0d 06  |.^..exists%,a%..|
00000450  72 11 f2 69 6e 69 74 5f  67 6c 6f 62 61 6c 73 0d  |r..init_globals.|
00000460  06 9a 08 61 25 3d 30 0d  06 a4 09 62 25 3d 31 30  |...a%=0....b%=10|
00000470  0d 06 ae 16 5a 7a 7a 7a  70 61 73 73 5f 53 74 61  |....Zzzzpass_Sta|
00000480  74 75 73 25 3d 30 0d 06  b8 15 5a 7a 7a 7a 63 68  |tus%=0....Zzzzch|
00000490  6b 5f 53 74 61 74 75 73  25 3d 30 0d 06 c2 18 5a  |k_Status%=0....Z|
000004a0  7a 7a 7a 70 61 73 73 5f  49 6e 66 6f 72 6d 65 64  |zzzpass_Informed|
000004b0  25 3d a3 0d 06 cc 05 f5  0d 06 d6 31 c8 99 22 54  |%=.........1.."T|
000004c0  61 73 6b 4d 61 6e 61 67  65 72 5f 45 6e 75 6d 65  |askManager_Enume|
000004d0  72 61 74 65 54 61 73 6b  73 22 2c 61 25 2c 42 75  |rateTasks",a%,Bu|
000004e0  66 31 25 2c 31 36 b8 61  25 0d 06 e0 23 e7 a4 69  |f1%,16.a%...#..i|
000004f0  6e 64 69 72 65 63 74 28  42 75 66 31 25 21 34 29  |ndirect(Buf1%!4)|
00000500  3d 22 7a 7a 7a 7a 70 61  73 73 22 8c 0d 06 ea 16  |="zzzzpass".....|
00000510  5a 7a 7a 7a 70 61 73 73  5f 53 74 61 74 75 73 25  |Zzzzpass_Status%|
00000520  3d 33 0d 06 f4 1c 5a 7a  7a 7a 70 61 73 73 5f 48  |=3....Zzzzpass_H|
00000530  61 6e 64 6c 65 25 3d 42  75 66 31 25 21 30 0d 06  |andle%=Buf1%!0..|
00000540  fe 05 cd 0d 07 08 22 e7  a4 69 6e 64 69 72 65 63  |......"..indirec|
00000550  74 28 42 75 66 31 25 21  34 29 3d 22 7a 7a 7a 7a  |t(Buf1%!4)="zzzz|
00000560  63 68 6b 22 8c 0d 07 12  15 5a 7a 7a 7a 63 68 6b  |chk".....Zzzzchk|
00000570  5f 53 74 61 74 75 73 25  3d 33 0d 07 1c 1b 5a 7a  |_Status%=3....Zz|
00000580  7a 7a 63 68 6b 5f 48 61  6e 64 6c 65 25 3d 42 75  |zzchk_Handle%=Bu|
00000590  66 31 25 21 30 0d 07 26  05 cd 0d 07 30 09 fd 61  |f1%!0..&....0..a|
000005a0  25 3c 30 0d 07 58 0f f2  69 6e 69 74 5f 66 69 6c  |%<0..X..init_fil|
000005b0  65 73 0d 07 80 0d 42 75  66 31 25 21 30 3d 30 0d  |es....Buf1%!0=0.|
000005c0  07 8a 0d 42 75 66 32 25  21 30 3d 30 0d 07 94 56  |...Buf2%!0=0...V|
000005d0  c8 99 22 54 6f 6f 6c 62  6f 78 5f 49 6e 69 74 69  |.."Toolbox_Initi|
000005e0  61 6c 69 73 65 22 2c 30  2c 33 31 30 2c 42 75 66  |alise",0,310,Buf|
000005f0  32 25 2c 42 75 66 31 25  2c 22 3c 42 6f 6f 74 70  |2%,Buf1%,"<Bootp|
00000600  6c 75 73 24 44 69 72 3e  22 2c 54 6c 6d 73 25 2c  |lus$Dir>",Tlms%,|
00000610  54 6c 6f 69 25 b8 2c 54  68 64 6c 25 2c 73 70 72  |Tloi%.,Thdl%,spr|
00000620  74 25 0d 07 bc 26 e7 41  75 74 6f 5f 50 72 6f 6d  |t%...&.Auto_Prom|
00000630  70 74 25 80 20 50 61 73  73 77 6f 72 64 73 5f 45  |pt%. Passwords_E|
00000640  6e 61 62 6c 65 64 25 8c  0d 07 c6 15 53 65 71 75  |nabled%.....Sequ|
00000650  65 6e 63 65 24 3d 22 4c  4f 47 4f 4e 22 0d 07 d0  |ence$="LOGON"...|
00000660  05 cc 0d 07 da 16 53 65  71 75 65 6e 63 65 24 3d  |......Sequence$=|
00000670  22 4e 4f 52 4d 41 4c 22  0d 07 e4 05 cd 0d 08 0c  |"NORMAL"........|
00000680  2a 4f 77 6e 65 72 24 3d  a4 67 65 74 5f 6d 65 73  |*Owner$=.get_mes|
00000690  73 61 67 65 28 22 4f 57  4e 22 2c 22 22 2c 22 22  |sage("OWN","",""|
000006a0  2c 22 22 2c 22 22 29 0d  08 34 12 f2 72 65 61 64  |,"","")..4..read|
000006b0  5f 66 69 6c 65 64 65 66  73 0d 08 3e 05 e1 0d 08  |_filedefs..>....|
000006c0  84 12 dd f2 69 6e 69 74  5f 67 6c 6f 62 61 6c 73  |....init_globals|
000006d0  0d 08 ac 0d ea 61 24 2c  61 25 2c 62 25 0d 08 c0  |.....a$,a%,b%...|
000006e0  1b 42 6f 6f 74 70 6c 75  73 5f 56 65 72 73 69 6f  |.Bootplus_Versio|
000006f0  6e 24 3d 22 33 2e 31 22  0d 08 ca 0e 53 74 61 72  |n$="3.1"....Star|
00000700  74 65 64 25 3d a3 0d 08  d4 13 4c 6f 67 67 65 64  |ted%=.....Logged|
00000710  5f 55 73 65 72 24 3d 22  22 0d 08 de 10 4c 6f 67  |_User$=""....Log|
00000720  6f 6e 5f 49 44 25 3d 2d  31 0d 08 e8 14 4f 77 6e  |on_ID%=-1....Own|
00000730  65 72 70 61 73 73 5f 49  44 25 3d 2d 31 0d 08 f2  |erpass_ID%=-1...|
00000740  0b 4f 62 6a 73 25 3d 30  0d 08 fc 0b 4e 74 72 73  |.Objs%=0....Ntrs|
00000750  25 3d 30 0d 09 06 0d 52  75 73 65 72 73 25 3d 30  |%=0....Rusers%=0|
00000760  0d 09 10 0b 52 75 73 72  25 3d 31 0d 09 1a 12 50  |....Rusr%=1....P|
00000770  61 73 73 77 6f 72 64 5f  49 44 25 3d 30 0d 09 24  |assword_ID%=0..$|
00000780  12 50 61 73 73 6d 65 6e  75 5f 49 44 25 3d 30 0d  |.Passmenu_ID%=0.|
00000790  09 2e 2f 4f 70 74 66 69  6c 65 24 3d 22 3c 62 6f  |../Optfile$="<bo|
000007a0  6f 74 70 6c 75 73 24 64  69 72 3e 2e 52 65 73 6f  |otplus$dir>.Reso|
000007b0  75 72 63 65 73 2e 4f 70  74 69 6f 6e 73 22 0d 09  |urces.Options"..|
000007c0  38 30 54 5f 4f 70 74 66  69 6c 65 24 3d 22 3c 62  |80T_Optfile$="<b|
000007d0  6f 6f 74 70 6c 75 73 24  64 69 72 3e 2e 52 65 73  |ootplus$dir>.Res|
000007e0  6f 75 72 63 65 73 2e 4f  70 74 78 78 78 22 0d 09  |ources.Optxxx"..|
000007f0  42 31 41 63 63 65 73 73  66 69 6c 65 24 3d 22 3c  |B1Accessfile$="<|
00000800  62 6f 6f 74 70 6c 75 73  24 64 69 72 3e 2e 52 65  |bootplus$dir>.Re|
00000810  73 6f 75 72 63 65 73 2e  41 63 63 65 73 73 22 0d  |sources.Access".|
00000820  09 4c 36 54 5f 41 63 63  65 73 73 66 69 6c 65 24  |.L6T_Accessfile$|
00000830  3d 22 3c 62 6f 6f 74 70  6c 75 73 24 64 69 72 3e  |="<bootplus$dir>|
00000840  2e 52 65 73 6f 75 72 63  65 73 2e 41 63 63 65 73  |.Resources.Acces|
00000850  73 78 78 78 22 0d 09 56  2f 54 69 6d 65 73 66 69  |sxxx"..V/Timesfi|
00000860  6c 65 24 3d 22 3c 62 6f  6f 74 70 6c 75 73 24 64  |le$="<bootplus$d|
00000870  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 54 69  |ir>.Resources.Ti|
00000880  6d 65 73 22 0d 09 60 34  54 5f 54 69 6d 65 73 66  |mes"..`4T_Timesf|
00000890  69 6c 65 24 3d 22 3c 62  6f 6f 74 70 6c 75 73 24  |ile$="<bootplus$|
000008a0  64 69 72 3e 2e 52 65 73  6f 75 72 63 65 73 2e 54  |dir>.Resources.T|
000008b0  69 6d 65 73 78 78 78 22  0d 09 6a 31 50 61 73 73  |imesxxx"..j1Pass|
000008c0  66 69 6c 65 24 3d 22 3c  62 6f 6f 74 70 6c 75 73  |file$="<bootplus|
000008d0  24 64 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 2e  |$dir>.Resources.|
000008e0  70 61 73 73 77 6f 72 64  22 0d 09 74 34 54 68 69  |password"..t4Thi|
000008f0  65 66 66 69 6c 65 24 3d  22 3c 42 6f 6f 74 70 6c  |effile$="<Bootpl|
00000900  75 73 24 44 69 72 3e 2e  52 65 73 6f 75 72 63 65  |us$Dir>.Resource|
00000910  73 2e 6b 69 6c 6c 72 69  73 63 70 63 22 0d 09 7e  |s.killriscpc"..~|
00000920  2f 4c 6f 67 66 69 6c 65  24 3d 22 3c 42 6f 6f 74  |/Logfile$="<Boot|
00000930  70 6c 75 73 24 64 69 72  3e 2e 52 65 73 6f 75 72  |plus$dir>.Resour|
00000940  63 65 73 2e 6c 6f 67 66  69 6c 65 22 0d 09 88 33  |ces.logfile"...3|
00000950  4f 6c 6f 67 66 69 6c 65  24 3d 22 3c 42 6f 6f 74  |Ologfile$="<Boot|
00000960  70 6c 75 73 24 64 69 72  3e 2e 52 65 73 6f 75 72  |plus$dir>.Resour|
00000970  63 65 73 2e 6f 6c 64 6c  6f 67 66 69 6c 65 22 0d  |ces.oldlogfile".|
00000980  09 92 2f 4f 77 6e 65 72  66 69 6c 65 24 3d 22 3c  |../Ownerfile$="<|
00000990  42 6f 6f 74 70 6c 75 73  24 64 69 72 3e 2e 52 65  |Bootplus$dir>.Re|
000009a0  73 6f 75 72 63 65 73 2e  6f 77 6e 65 72 22 0d 09  |sources.owner"..|
000009b0  9c 10 41 75 74 6f 63 6c  6f 73 65 25 3d a3 0d 09  |..Autoclose%=...|
000009c0  a6 11 45 64 69 74 5f 54  79 70 65 24 3d 22 22 0d  |..Edit_Type$="".|
000009d0  09 b0 0f 41 6c 69 61 73  5f 57 48 25 3d 30 0d 09  |...Alias_WH%=0..|
000009e0  ba 0f 46 6f 6e 74 5f 4c  68 25 3d 34 34 0d 09 c4  |..Font_Lh%=44...|
000009f0  20 46 6f 6e 74 5f 4e 61  6d 65 24 3d 22 48 6f 6d  | Font_Name$="Hom|
00000a00  65 72 74 6f 6e 2e 4d 65  64 69 75 6d 22 0d 09 ce  |erton.Medium"...|
00000a10  0e 45 64 69 74 6f 72 73  25 3d 30 0d 09 d8 0c 54  |.Editors%=0....T|
00000a20  64 69 72 73 25 3d 30 0d  09 e2 0c 54 79 64 69 72  |dirs%=0....Tydir|
00000a30  25 3d 30 0d 09 ec 0c 54  6e 64 69 72 25 3d 30 0d  |%=0....Tndir%=0.|
00000a40  09 f6 11 44 75 73 74 62  69 6e 5f 49 44 25 3d 30  |...Dustbin_ID%=0|
00000a50  0d 0a 00 13 44 72 61 67  5f 52 65 61 73 6f 6e 24  |....Drag_Reason$|
00000a60  3d 22 22 0d 0a 0a 12 44  72 61 67 5f 4f 62 6a 65  |=""....Drag_Obje|
00000a70  63 74 25 3d 30 0d 0a 14  10 44 72 61 67 5f 49 6e  |ct%=0....Drag_In|
00000a80  74 6f 25 3d 30 0d 0a 1e  0c 53 61 76 65 64 25 3d  |to%=0....Saved%=|
00000a90  b9 0d 0a 28 14 53 65 71  75 65 6e 63 65 24 3d 22  |...(.Sequence$="|
00000aa0  42 4f 4f 54 22 0d 0a 32  05 e1 0d 0a 78 13 dd f2  |BOOT"..2....x...|
00000ab0  72 65 61 64 5f 66 69 6c  65 64 65 66 73 0d 0a a0  |read_filedefs...|
00000ac0  10 f3 42 6f 6f 74 5f 54  79 70 65 73 25 0d 0a aa  |..Boot_Types%...|
00000ad0  15 e3 61 25 3d 31 b8 42  6f 6f 74 5f 54 79 70 65  |..a%=1.Boot_Type|
00000ae0  73 25 0d 0a b4 15 f3 42  6f 6f 74 5f 54 79 70 65  |s%.....Boot_Type|
00000af0  24 28 61 25 2c 31 29 0d  0a be 15 f3 42 6f 6f 74  |$(a%,1).....Boot|
00000b00  5f 54 79 70 65 24 28 61  25 2c 32 29 0d 0a c8 07  |_Type$(a%,2)....|
00000b10  f3 61 24 0d 0a d2 31 42  6f 6f 74 5f 54 79 70 65  |.a$...1Boot_Type|
00000b20  24 28 61 25 2c 33 29 3d  a4 67 65 74 5f 6d 65 73  |$(a%,3)=.get_mes|
00000b30  73 61 67 65 28 61 24 2c  22 22 2c 22 22 2c 22 22  |sage(a$,"","",""|
00000b40  2c 22 22 29 0d 0a dc 07  ed 61 25 0d 0b 04 0f f3  |,"").....a%.....|
00000b50  53 74 61 6e 64 61 72 64  73 25 0d 0b 0e 14 e3 61  |Standards%.....a|
00000b60  25 3d 31 b8 53 74 61 6e  64 61 72 64 73 25 0d 0b  |%=1.Standards%..|
00000b70  18 0b e3 62 25 3d 31 b8  32 0d 0b 22 15 f3 53 74  |...b%=1.2.."..St|
00000b80  61 6e 64 61 72 64 24 28  61 25 2c 62 25 29 0d 0b  |andard$(a%,b%)..|
00000b90  2c 07 ed 62 25 0d 0b 36  07 ed 61 25 0d 0b 4a 0b  |,..b%..6..a%..J.|
00000ba0  e3 61 25 3d 31 b8 37 0d  0b 54 12 f3 57 65 65 6b  |.a%=1.7..T..Week|
00000bb0  64 61 79 73 24 28 61 25  29 0d 0b 5e 07 ed 61 25  |days$(a%)..^..a%|
00000bc0  0d 0b 68 05 e1 0d 0b ae  10 dd f2 69 6e 69 74 5f  |..h........init_|
00000bd0  66 69 6c 65 73 0d 0b d6  0b ea 66 25 2c 69 64 25  |files.....f%,id%|
00000be0  0d 0b fe 6a f2 67 65 74  5f 6f 70 74 69 6f 6e 73  |...j.get_options|
00000bf0  28 61 25 2c 61 25 2c 61  25 2c 61 25 2c 61 25 2c  |(a%,a%,a%,a%,a%,|
00000c00  61 25 2c 47 75 65 73 74  5f 4c 6f 67 69 6e 73 25  |a%,Guest_Logins%|
00000c10  2c 59 25 2c 46 75 6c 6c  5f 4f 77 6e 65 72 5f 41  |,Y%,Full_Owner_A|
00000c20  63 63 65 73 73 25 2c 59  25 2c 50 61 73 73 77 6f  |ccess%,Y%,Passwo|
00000c30  72 64 73 5f 45 6e 61 62  6c 65 64 25 2c 41 75 74  |rds_Enabled%,Aut|
00000c40  6f 5f 50 72 6f 6d 70 74  25 29 0d 0c 26 13 f2 67  |o_Prompt%)..&..g|
00000c50  65 74 5f 75 73 65 72 61  63 63 65 73 73 0d 0c 4e  |et_useraccess..N|
00000c60  12 f2 67 65 74 5f 75 73  65 72 74 69 6d 65 73 0d  |..get_usertimes.|
00000c70  0c 76 30 c8 99 22 4f 53  5f 46 69 6c 65 22 2c 32  |.v0.."OS_File",2|
00000c80  30 2c 22 3c 57 69 6d 70  24 53 63 72 61 70 44 69  |0,"<Wimp$ScrapDi|
00000c90  72 3e 2e 42 6f 6f 74 70  6c 75 73 22 b8 66 25 0d  |r>.Bootplus".f%.|
00000ca0  0c 80 0a e7 66 25 3d 30  8c 0d 0c 8a 22 2a 43 44  |....f%=0...."*CD|
00000cb0  49 52 20 3c 57 69 6d 70  24 53 63 72 61 70 44 69  |IR <Wimp$ScrapDi|
00000cc0  72 3e 2e 42 6f 6f 74 70  6c 75 73 0d 0c 94 05 cd  |r>.Bootplus.....|
00000cd0  0d 0c 9e 3a c8 99 22 58  4f 53 5f 46 53 43 6f 6e  |...:.."XOS_FSCon|
00000ce0  74 72 6f 6c 22 2c 32 37  2c 22 3c 57 69 6d 70 24  |trol",27,"<Wimp$|
00000cf0  53 63 72 61 70 44 69 72  3e 2e 42 6f 6f 74 70 6c  |ScrapDir>.Bootpl|
00000d00  75 73 2e 2a 22 2c 2c 26  31 38 0d 0c a8 05 e1 0d  |us.*",,&18......|
00000d10  0c ee 08 dd f2 64 6f 0d  0d 21 0e c8 8e 72 65 61  |.....do..!...rea|
00000d20  73 6f 6e 25 ca 0d 0d 2a  06 c9 30 0d 0d 34 10 c8  |son%...*..0..4..|
00000d30  8e 53 65 71 75 65 6e 63  65 24 ca 0d 0d 3e 0c c9  |.Sequence$...>..|
00000d40  22 4c 4f 47 4f 4e 22 0d  0d 66 2e c8 99 54 5f 54  |"LOGON"..f...T_T|
00000d50  53 4f 25 2c 30 2c 50 61  73 73 77 6f 72 64 5f 49  |SO%,0,Password_I|
00000d60  44 25 2c 30 2c 30 2c 50  61 73 73 6d 65 6e 75 5f  |D%,0,0,Passmenu_|
00000d70  49 44 25 2c 37 0d 0d 70  19 53 65 71 75 65 6e 63  |ID%,7..p.Sequenc|
00000d80  65 24 3d 22 50 52 4f 4d  50 54 49 4e 47 22 0d 0d  |e$="PROMPTING"..|
00000d90  7a 10 c9 22 50 52 4f 4d  50 54 49 4e 47 22 0d 0d  |z.."PROMPTING"..|
00000da0  a2 12 f2 6c 6f 63 6b 5f  6d 6f 75 73 65 28 b9 29  |...lock_mouse(.)|
00000db0  0d 0d ac 05 cb 0d 0d b6  06 c9 31 0d 0d c0 12 f2  |..........1.....|
00000dc0  72 65 64 72 61 77 5f 77  69 6e 64 6f 77 0d 0d ca  |redraw_window...|
00000dd0  06 c9 32 0d 0d d4 10 f2  6f 70 65 6e 5f 77 69 6e  |..2.....open_win|
00000de0  64 6f 77 0d 0d de 06 c9  36 0d 0d e8 10 f2 6d 6f  |dow.....6.....mo|
00000df0  75 73 65 5f 63 6c 69 63  6b 0d 0d f2 06 c9 37 0d  |use_click.....7.|
00000e00  0d fc 11 f2 64 72 61 67  5f 73 74 6f 70 70 65 64  |....drag_stopped|
00000e10  0d 0e 06 07 c9 31 30 0d  0e 10 13 f2 73 63 72 6f  |.....10.....scro|
00000e20  6c 6c 5f 72 65 71 75 65  73 74 0d 0e 1a 0d c9 31  |ll_request.....1|
00000e30  37 2c 31 38 2c 31 39 0d  0e 24 12 f2 77 69 6d 70  |7,18,19..$..wimp|
00000e40  5f 6d 65 73 73 61 67 65  73 0d 0e 2e 09 c9 26 32  |_messages.....&2|
00000e50  30 30 0d 0e 38 13 f2 74  6f 6f 6c 62 6f 78 5f 65  |00..8..toolbox_e|
00000e60  76 65 6e 74 73 0d 0e 42  05 cb 0d 0e 4c 05 e1 0d  |vents..B....L...|
00000e70  0e 92 13 dd f2 72 65 64  72 61 77 5f 77 69 6e 64  |.....redraw_wind|
00000e80  6f 77 0d 0e ba 0e c8 8e  42 6c 63 6b 25 21 30 ca  |ow......Blck%!0.|
00000e90  0d 0e c4 12 c9 53 75 62  6c 69 73 74 25 28 31 2c  |.....Sublist%(1,|
00000ea0  32 29 0d 0e ec 13 f2 64  72 61 77 5f 6d 61 69 6e  |2).....draw_main|
00000eb0  28 31 2c 32 29 0d 0e f6  12 c9 53 75 62 6c 69 73  |(1,2).....Sublis|
00000ec0  74 25 28 31 2c 31 29 0d  0f 1e 16 f2 64 72 61 77  |t%(1,1).....draw|
00000ed0  5f 73 75 62 28 31 2c 32  2c a3 2c 30 29 0d 0f 28  |_sub(1,2,.,0)..(|
00000ee0  12 c9 53 75 62 6c 69 73  74 25 28 32 2c 32 29 0d  |..Sublist%(2,2).|
00000ef0  0f 50 13 f2 64 72 61 77  5f 6d 61 69 6e 28 32 2c  |.P..draw_main(2,|
00000f00  32 29 0d 0f 5a 12 c9 53  75 62 6c 69 73 74 25 28  |2)..Z..Sublist%(|
00000f10  32 2c 31 29 0d 0f 82 16  f2 64 72 61 77 5f 73 75  |2,1).....draw_su|
00000f20  62 28 32 2c 32 2c a3 2c  30 29 0d 0f 8c 12 c9 53  |b(2,2,.,0).....S|
00000f30  75 62 6c 69 73 74 25 28  33 2c 31 29 0d 0f b4 16  |ublist%(3,1)....|
00000f40  f2 64 72 61 77 5f 73 75  62 28 33 2c 32 2c a3 2c  |.draw_sub(3,2,.,|
00000f50  30 29 0d 0f be 05 cb 0d  0f c8 05 e1 0d 10 0e 11  |0)..............|
00000f60  dd f2 6f 70 65 6e 5f 77  69 6e 64 6f 77 0d 10 36  |..open_window..6|
00000f70  08 ea 62 68 25 0d 10 4a  10 62 68 25 3d 42 6c 63  |..bh%..J.bh%=Blc|
00000f80  6b 25 21 32 38 0d 10 54  0e c8 8e 42 6c 63 6b 25  |k%!28..T...Blck%|
00000f90  21 30 ca 0d 10 5e 12 c9  53 75 62 6c 69 73 74 25  |!0...^..Sublist%|
00000fa0  28 31 2c 32 29 0d 10 86  1a 42 6c 63 6b 25 21 32  |(1,2)....Blck%!2|
00000fb0  38 3d 53 75 62 6c 69 73  74 25 28 31 2c 31 29 0d  |8=Sublist%(1,1).|
00000fc0  10 90 1e c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |....."Wimp_OpenW|
00000fd0  69 6e 64 6f 77 22 2c 2c  42 6c 63 6b 25 0d 10 9a  |indow",,Blck%...|
00000fe0  18 f2 64 72 61 77 5f 73  75 62 28 31 2c 33 2c a3  |..draw_sub(1,3,.|
00000ff0  2c 62 68 25 29 0d 10 a4  12 c9 53 75 62 6c 69 73  |,bh%).....Sublis|
00001000  74 25 28 31 2c 31 29 0d  10 cc 1e c8 99 22 57 69  |t%(1,1)......"Wi|
00001010  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00001020  42 6c 63 6b 25 0d 10 d6  12 c9 53 75 62 6c 69 73  |Blck%.....Sublis|
00001030  74 25 28 32 2c 32 29 0d  10 fe 1a 42 6c 63 6b 25  |t%(2,2)....Blck%|
00001040  21 32 38 3d 53 75 62 6c  69 73 74 25 28 32 2c 31  |!28=Sublist%(2,1|
00001050  29 0d 11 08 1e c8 99 22  57 69 6d 70 5f 4f 70 65  |)......"Wimp_Ope|
00001060  6e 57 69 6e 64 6f 77 22  2c 2c 42 6c 63 6b 25 0d  |nWindow",,Blck%.|
00001070  11 12 18 f2 64 72 61 77  5f 73 75 62 28 32 2c 33  |....draw_sub(2,3|
00001080  2c a3 2c 62 68 25 29 0d  11 1c 18 f2 64 72 61 77  |,.,bh%).....draw|
00001090  5f 73 75 62 28 33 2c 33  2c a3 2c 62 68 25 29 0d  |_sub(3,3,.,bh%).|
000010a0  11 26 12 c9 53 75 62 6c  69 73 74 25 28 32 2c 31  |.&..Sublist%(2,1|
000010b0  29 0d 11 4e 1e c8 99 22  57 69 6d 70 5f 4f 70 65  |)..N..."Wimp_Ope|
000010c0  6e 57 69 6e 64 6f 77 22  2c 2c 42 6c 63 6b 25 0d  |nWindow",,Blck%.|
000010d0  11 58 12 c9 53 75 62 6c  69 73 74 25 28 33 2c 31  |.X..Sublist%(3,1|
000010e0  29 0d 11 80 1e c8 99 22  57 69 6d 70 5f 4f 70 65  |)......"Wimp_Ope|
000010f0  6e 57 69 6e 64 6f 77 22  2c 2c 42 6c 63 6b 25 0d  |nWindow",,Blck%.|
00001100  11 8a 05 cb 0d 11 94 05  e1 0d 11 da 11 dd f2 6d  |...............m|
00001110  6f 75 73 65 5f 63 6c 69  63 6b 0d 12 02 19 ea 77  |ouse_click.....w|
00001120  6b 5f 6d 79 25 2c 6f 73  5f 77 79 25 2c 74 72 25  |k_my%,os_wy%,tr%|
00001130  2c 70 25 0d 12 16 08 c8  8e b9 ca 0d 12 20 29 c9  |,p%.......... ).|
00001140  28 42 6c 63 6b 25 21 38  3d 34 29 80 28 42 6c 63  |(Blck%!8=4).(Blc|
00001150  6b 25 21 31 32 3d 53 75  62 6c 69 73 74 25 28 31  |k%!12=Sublist%(1|
00001160  2c 31 29 29 0d 12 48 15  f2 62 6f 6f 74 6c 69 73  |,1))..H..bootlis|
00001170  74 5f 63 6c 69 63 6b 65  64 0d 12 52 29 c9 28 42  |t_clicked..R).(B|
00001180  6c 63 6b 25 21 38 3d 34  29 80 28 42 6c 63 6b 25  |lck%!8=4).(Blck%|
00001190  21 31 32 3d 53 75 62 6c  69 73 74 25 28 32 2c 31  |!12=Sublist%(2,1|
000011a0  29 29 0d 12 7a 45 f2 64  69 72 6c 69 73 74 5f 63  |))..zE.dirlist_c|
000011b0  6c 69 63 6b 65 64 28 22  59 22 2c 53 75 62 6c 69  |licked("Y",Subli|
000011c0  73 74 25 28 32 2c 31 29  2c 54 79 64 69 72 73 25  |st%(2,1),Tydirs%|
000011d0  2c 54 79 70 74 25 28 29  2c 53 75 62 6c 69 73 74  |,Typt%(),Sublist|
000011e0  25 28 33 2c 31 29 29 0d  12 84 29 c9 28 42 6c 63  |%(3,1))...).(Blc|
000011f0  6b 25 21 38 3d 34 29 80  28 42 6c 63 6b 25 21 31  |k%!8=4).(Blck%!1|
00001200  32 3d 53 75 62 6c 69 73  74 25 28 33 2c 31 29 29  |2=Sublist%(3,1))|
00001210  0d 12 ac 45 f2 64 69 72  6c 69 73 74 5f 63 6c 69  |...E.dirlist_cli|
00001220  63 6b 65 64 28 22 4e 22  2c 53 75 62 6c 69 73 74  |cked("N",Sublist|
00001230  25 28 33 2c 31 29 2c 54  6e 64 69 72 73 25 2c 54  |%(3,1),Tndirs%,T|
00001240  6e 70 74 25 28 29 2c 53  75 62 6c 69 73 74 25 28  |npt%(),Sublist%(|
00001250  32 2c 31 29 29 0d 12 b6  05 cb 0d 12 c0 05 e1 0d  |2,1))...........|
00001260  13 06 16 dd f2 62 6f 6f  74 6c 69 73 74 5f 63 6c  |.....bootlist_cl|
00001270  69 63 6b 65 64 0d 13 2e  21 ea 6f 73 5f 6d 78 25  |icked...!.os_mx%|
00001280  2c 6f 73 5f 6d 79 25 2c  77 6b 5f 6d 79 25 2c 74  |,os_my%,wk_my%,t|
00001290  72 25 2c 6f 74 24 0d 13  42 12 6f 73 5f 6d 78 25  |r%,ot$..B.os_mx%|
000012a0  3d 42 6c 63 6b 25 21 30  0d 13 4c 12 6f 73 5f 6d  |=Blck%!0..L.os_m|
000012b0  79 25 3d 42 6c 63 6b 25  21 34 0d 13 74 19 42 6c  |y%=Blck%!4..t.Bl|
000012c0  63 6b 25 21 30 3d 53 75  62 6c 69 73 74 25 28 31  |ck%!0=Sublist%(1|
000012d0  2c 31 29 0d 13 7e 22 c8  99 22 57 69 6d 70 5f 47  |,1)..~".."Wimp_G|
000012e0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000012f0  42 6c 63 6b 25 0d 13 88  25 77 6b 5f 6d 79 25 3d  |Blck%...%wk_my%=|
00001300  6f 73 5f 6d 79 25 2d 28  42 6c 63 6b 25 21 31 36  |os_my%-(Blck%!16|
00001310  2d 42 6c 63 6b 25 21 32  34 29 0d 13 92 1d 74 72  |-Blck%!24)....tr|
00001320  25 3d a8 28 2d 77 6b 5f  6d 79 25 2f 46 6f 6e 74  |%=.(-wk_my%/Font|
00001330  5f 4c 68 25 29 2b 31 0d  13 9c 10 e7 74 72 25 3c  |_Lh%)+1.....tr%<|
00001340  3d 4f 62 6a 73 25 8c 0d  13 c4 11 70 25 3d 4f 70  |=Objs%.....p%=Op|
00001350  74 72 25 28 74 72 25 29  0d 13 ce 19 e7 28 4f 66  |tr%(tr%).....(Of|
00001360  6c 67 25 28 70 25 2c 35  29 80 20 36 34 29 3d 30  |lg%(p%,5). 64)=0|
00001370  8c 0d 13 f6 12 c8 8e 4f  64 61 74 24 28 70 25 2c  |.......Odat$(p%,|
00001380  33 29 ca 0d 14 00 0b c9  22 31 30 30 30 22 0d 14  |3)......"1000"..|
00001390  0a 27 6f 74 24 3d a4 67  65 74 5f 6d 65 73 73 61  |.'ot$=.get_messa|
000013a0  67 65 28 22 44 4d 31 22  2c 22 22 2c 22 22 2c 22  |ge("DM1","","","|
000013b0  22 2c 22 22 29 0d 14 14  0b c9 22 32 30 30 30 22  |","")....."2000"|
000013c0  0d 14 1e 27 6f 74 24 3d  a4 67 65 74 5f 6d 65 73  |...'ot$=.get_mes|
000013d0  73 61 67 65 28 22 44 4d  32 22 2c 22 22 2c 22 22  |sage("DM2","",""|
000013e0  2c 22 22 2c 22 22 29 0d  14 28 05 7f 0d 14 32 30  |,"","")..(....20|
000013f0  6f 74 24 3d a4 67 65 74  5f 6d 65 73 73 61 67 65  |ot$=.get_message|
00001400  28 22 44 4d 33 22 2c 4f  64 61 74 24 28 70 25 2c  |("DM3",Odat$(p%,|
00001410  33 29 2c 22 22 2c 22 22  2c 22 22 29 0d 14 3c 05  |3),"","","")..<.|
00001420  cb 0d 14 46 27 42 75 66  32 25 21 30 3d 6f 73 5f  |...F'Buf2%!0=os_|
00001430  6d 78 25 2d 31 36 3a 42  75 66 32 25 21 34 3d 6f  |mx%-16:Buf2%!4=o|
00001440  73 5f 6d 79 25 2d 31 36  0d 14 50 28 42 75 66 32  |s_my%-16..P(Buf2|
00001450  25 21 38 3d 6f 73 5f 6d  78 25 2b 31 38 3a 42 75  |%!8=os_mx%+18:Bu|
00001460  66 32 25 21 31 32 3d 6f  73 5f 6d 79 25 2b 31 38  |f2%!12=os_my%+18|
00001470  0d 14 5a 28 c8 99 22 44  72 61 67 41 53 70 72 69  |..Z(.."DragASpri|
00001480  74 65 5f 53 74 61 72 74  22 2c 26 35 2c 31 2c 6f  |te_Start",&5,1,o|
00001490  74 24 2c 42 75 66 32 25  0d 14 64 19 44 72 61 67  |t$,Buf2%..d.Drag|
000014a0  5f 52 65 61 73 6f 6e 24  3d 22 44 65 6c 65 74 65  |_Reason$="Delete|
000014b0  22 0d 14 6e 14 44 72 61  67 5f 4f 62 6a 65 63 74  |"..n.Drag_Object|
000014c0  25 3d 74 72 25 0d 14 78  05 cc 0d 14 a0 35 e7 4f  |%=tr%..x.....5.O|
000014d0  64 61 74 24 28 70 25 2c  31 29 3d 22 21 42 6f 6f  |dat$(p%,1)="!Boo|
000014e0  74 70 6c 75 73 22 84 4f  64 61 74 24 28 70 25 2c  |tplus".Odat$(p%,|
000014f0  31 29 3d 22 21 7a 7a 7a  7a 70 61 73 73 22 8c 0d  |1)="!zzzzpass"..|
00001500  14 aa 27 f2 65 72 72 6f  72 5f 6d 65 73 73 61 67  |..'.error_messag|
00001510  65 28 22 45 4d 31 22 2c  22 22 2c 22 22 2c 22 22  |e("EM1","","",""|
00001520  2c 30 2c 4b 25 29 0d 14  b4 05 cc 0d 14 be 27 f2  |,0,K%)........'.|
00001530  65 72 72 6f 72 5f 6d 65  73 73 61 67 65 28 22 45  |error_message("E|
00001540  4d 32 22 2c 22 22 2c 22  22 2c 22 22 2c 30 2c 4b  |M2","","","",0,K|
00001550  25 29 0d 14 c8 05 cd 0d  14 d2 05 cd 0d 14 dc 05  |%)..............|
00001560  cd 0d 14 e6 05 e1 0d 15  2c 32 dd f2 64 69 72 6c  |........,2..dirl|
00001570  69 73 74 5f 63 6c 69 63  6b 65 64 28 66 72 24 2c  |ist_clicked(fr$,|
00001580  66 69 64 25 2c 66 72 63  74 25 2c 66 72 70 74 25  |fid%,frct%,frpt%|
00001590  28 29 2c 74 69 64 25 29  0d 15 54 20 ea 6f 73 5f  |(),tid%)..T .os_|
000015a0  6d 78 25 2c 6f 73 5f 6d  79 25 2c 77 6b 5f 6d 79  |mx%,os_my%,wk_my|
000015b0  25 2c 74 72 25 2c 70 25  0d 15 68 12 6f 73 5f 6d  |%,tr%,p%..h.os_m|
000015c0  78 25 3d 42 6c 63 6b 25  21 30 0d 15 72 12 6f 73  |x%=Blck%!0..r.os|
000015d0  5f 6d 79 25 3d 42 6c 63  6b 25 21 34 0d 15 9a 10  |_my%=Blck%!4....|
000015e0  42 6c 63 6b 25 21 30 3d  66 69 64 25 0d 15 a4 22  |Blck%!0=fid%..."|
000015f0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00001600  77 53 74 61 74 65 22 2c  2c 42 6c 63 6b 25 0d 15  |wState",,Blck%..|
00001610  ae 25 77 6b 5f 6d 79 25  3d 6f 73 5f 6d 79 25 2d  |.%wk_my%=os_my%-|
00001620  28 42 6c 63 6b 25 21 31  36 2d 42 6c 63 6b 25 21  |(Blck%!16-Blck%!|
00001630  32 34 29 0d 15 b8 26 44  72 61 67 5f 4f 62 6a 65  |24)...&Drag_Obje|
00001640  63 74 25 3d a8 28 2d 77  6b 5f 6d 79 25 2f 46 6f  |ct%=.(-wk_my%/Fo|
00001650  6e 74 5f 4c 68 25 29 2b  31 0d 15 c2 19 e7 44 72  |nt_Lh%)+1.....Dr|
00001660  61 67 5f 4f 62 6a 65 63  74 25 3c 3d 66 72 63 74  |ag_Object%<=frct|
00001670  25 8c 0d 15 ea 1a 70 25  3d 66 72 70 74 25 28 44  |%.....p%=frpt%(D|
00001680  72 61 67 5f 4f 62 6a 65  63 74 25 29 0d 15 f4 34  |rag_Object%)...4|
00001690  e7 28 28 54 66 6c 67 25  28 70 25 2c 31 29 80 26  |.((Tflg%(p%,1).&|
000016a0  34 30 29 3d 26 34 30 29  80 28 52 75 73 72 24 28  |40)=&40).(Rusr$(|
000016b0  52 75 73 72 25 29 3c 3e  4f 77 6e 65 72 24 29 8c  |Rusr%)<>Owner$).|
000016c0  0d 16 1c 27 f2 65 72 72  6f 72 5f 6d 65 73 73 61  |...'.error_messa|
000016d0  67 65 28 22 45 4d 33 22  2c 22 22 2c 22 22 2c 22  |ge("EM3","","","|
000016e0  22 2c 30 2c 4b 25 29 0d  16 26 05 cc 0d 16 4e 17  |",0,K%)..&....N.|
000016f0  44 72 61 67 5f 52 65 61  73 6f 6e 24 3d 22 4d 6f  |Drag_Reason$="Mo|
00001700  76 65 22 0d 16 58 12 44  72 61 67 5f 46 72 6f 6d  |ve"..X.Drag_From|
00001710  24 3d 66 72 24 0d 16 62  13 44 72 61 67 5f 49 6e  |$=fr$..b.Drag_In|
00001720  74 6f 25 3d 74 69 64 25  0d 16 6c 27 42 75 66 32  |to%=tid%..l'Buf2|
00001730  25 21 30 3d 6f 73 5f 6d  78 25 2d 31 36 3a 42 75  |%!0=os_mx%-16:Bu|
00001740  66 32 25 21 34 3d 6f 73  5f 6d 79 25 2d 31 36 0d  |f2%!4=os_my%-16.|
00001750  16 76 28 42 75 66 32 25  21 38 3d 6f 73 5f 6d 78  |.v(Buf2%!8=os_mx|
00001760  25 2b 31 38 3a 42 75 66  32 25 21 31 32 3d 6f 73  |%+18:Buf2%!12=os|
00001770  5f 6d 79 25 2b 31 38 0d  16 80 30 c8 99 22 44 72  |_my%+18...0.."Dr|
00001780  61 67 41 53 70 72 69 74  65 5f 53 74 61 72 74 22  |agASprite_Start"|
00001790  2c 26 35 2c 31 2c 22 64  69 72 65 63 74 6f 72 79  |,&5,1,"directory|
000017a0  22 2c 42 75 66 32 25 0d  16 8a 05 cd 0d 16 94 05  |",Buf2%.........|
000017b0  cd 0d 16 9e 05 e1 0d 16  e4 12 dd f2 64 72 61 67  |............drag|
000017c0  5f 73 74 6f 70 70 65 64  0d 17 0c 22 c8 99 22 57  |_stopped...".."W|
000017d0  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
000017e0  66 6f 22 2c 2c 42 6c 63  6b 25 0d 17 16 08 c8 8e  |fo",,Blck%......|
000017f0  b9 ca 0d 17 20 33 c9 28  42 6c 63 6b 25 21 31 36  |.... 3.(Blck%!16|
00001800  3d 44 75 73 74 62 69 6e  5f 49 44 25 29 80 28 44  |=Dustbin_ID%).(D|
00001810  72 61 67 5f 52 65 61 73  6f 6e 24 3d 22 44 65 6c  |rag_Reason$="Del|
00001820  65 74 65 22 29 0d 17 48  15 f2 64 72 61 67 5f 73  |ete")..H..drag_s|
00001830  74 6f 70 70 65 64 5f 62  69 6e 0d 17 52 30 c9 28  |topped_bin..R0.(|
00001840  42 6c 63 6b 25 21 31 32  3d 44 72 61 67 5f 49 6e  |Blck%!12=Drag_In|
00001850  74 6f 25 29 80 28 44 72  61 67 5f 52 65 61 73 6f  |to%).(Drag_Reaso|
00001860  6e 24 3d 22 4d 6f 76 65  22 29 0d 17 7a 14 e7 44  |n$="Move")..z..D|
00001870  72 61 67 5f 46 72 6f 6d  24 3d 22 59 22 8c 0d 17  |rag_From$="Y"...|
00001880  a2 36 f2 64 72 61 67 5f  73 74 6f 70 70 65 64 5f  |.6.drag_stopped_|
00001890  64 69 72 28 54 79 64 69  72 73 25 2c 54 79 70 74  |dir(Tydirs%,Typt|
000018a0  25 28 29 2c 54 6e 64 69  72 73 25 2c 54 6e 70 74  |%(),Tndirs%,Tnpt|
000018b0  25 28 29 29 0d 17 ac 05  cc 0d 17 d4 36 f2 64 72  |%())........6.dr|
000018c0  61 67 5f 73 74 6f 70 70  65 64 5f 64 69 72 28 54  |ag_stopped_dir(T|
000018d0  6e 64 69 72 73 25 2c 54  6e 70 74 25 28 29 2c 54  |ndirs%,Tnpt%(),T|
000018e0  79 64 69 72 73 25 2c 54  79 70 74 25 28 29 29 0d  |ydirs%,Typt%()).|
000018f0  17 de 05 cd 0d 17 e8 0c  53 61 76 65 64 25 3d a3  |........Saved%=.|
00001900  0d 18 10 19 f2 73 65 74  5f 6c 69 73 74 5f 65 78  |.....set_list_ex|
00001910  74 65 6e 74 28 32 2c b9  29 0d 18 1a 16 f2 64 72  |tent(2,.).....dr|
00001920  61 77 5f 73 75 62 28 32  2c 32 2c a3 2c 30 29 0d  |aw_sub(2,2,.,0).|
00001930  18 24 19 f2 73 65 74 5f  6c 69 73 74 5f 65 78 74  |.$..set_list_ext|
00001940  65 6e 74 28 33 2c b9 29  0d 18 2e 16 f2 64 72 61  |ent(3,.).....dra|
00001950  77 5f 73 75 62 28 33 2c  32 2c a3 2c 30 29 0d 18  |w_sub(3,2,.,0)..|
00001960  38 05 cb 0d 18 42 18 c8  99 22 44 72 61 67 41 53  |8....B..."DragAS|
00001970  70 72 69 74 65 5f 53 74  6f 70 22 0d 18 4c 13 44  |prite_Stop"..L.D|
00001980  72 61 67 5f 52 65 61 73  6f 6e 24 3d 22 22 0d 18  |rag_Reason$=""..|
00001990  56 05 e1 0d 18 9c 16 dd  f2 64 72 61 67 5f 73 74  |V........drag_st|
000019a0  6f 70 70 65 64 5f 62 69  6e 0d 18 c4 07 ea 70 25  |opped_bin.....p%|
000019b0  0d 18 d8 1a 70 25 3d 4f  70 74 72 25 28 44 72 61  |....p%=Optr%(Dra|
000019c0  67 5f 4f 62 6a 65 63 74  25 29 0d 18 e2 12 4f 66  |g_Object%)....Of|
000019d0  6c 67 25 28 70 25 2c 35  29 3d 31 36 0d 18 ec 1a  |lg%(p%,5)=16....|
000019e0  e3 70 25 3d 44 72 61 67  5f 4f 62 6a 65 63 74 25  |.p%=Drag_Object%|
000019f0  b8 4f 62 6a 73 25 0d 18  f6 19 4f 70 74 72 25 28  |.Objs%....Optr%(|
00001a00  70 25 29 3d 4f 70 74 72  25 28 70 25 2b 31 29 0d  |p%)=Optr%(p%+1).|
00001a10  19 00 07 ed 70 25 0d 19  0a 0c 4f 62 6a 73 25 2d  |....p%....Objs%-|
00001a20  3d 31 0d 19 14 0c 53 61  76 65 64 25 3d a3 0d 19  |=1....Saved%=...|
00001a30  3c 19 f2 73 65 74 5f 6c  69 73 74 5f 65 78 74 65  |<..set_list_exte|
00001a40  6e 74 28 31 2c b9 29 0d  19 46 16 f2 64 72 61 77  |nt(1,.)..F..draw|
00001a50  5f 73 75 62 28 31 2c 32  2c a3 2c 30 29 0d 19 50  |_sub(1,2,.,0)..P|
00001a60  05 e1 0d 19 96 33 dd f2  64 72 61 67 5f 73 74 6f  |.....3..drag_sto|
00001a70  70 70 65 64 5f 64 69 72  28 f8 66 72 63 25 2c f8  |pped_dir(.frc%,.|
00001a80  66 72 70 25 28 29 2c f8  74 6f 63 25 2c f8 74 6f  |frp%(),.toc%,.to|
00001a90  70 25 28 29 29 0d 19 be  0a ea 70 25 2c 61 25 0d  |p%()).....p%,a%.|
00001aa0  19 d2 19 70 25 3d 66 72  70 25 28 44 72 61 67 5f  |...p%=frp%(Drag_|
00001ab0  4f 62 6a 65 63 74 25 29  0d 19 dc 0b 74 6f 63 25  |Object%)....toc%|
00001ac0  2b 3d 31 0d 19 e6 0b 61  25 3d 74 6f 63 25 0d 19  |+=1....a%=toc%..|
00001ad0  f0 1c c8 95 28 74 6f 70  25 28 61 25 2d 31 29 3e  |....(top%(a%-1)>|
00001ae0  70 25 29 80 28 61 25 3e  31 29 0d 19 fa 17 74 6f  |p%).(a%>1)....to|
00001af0  70 25 28 61 25 29 3d 74  6f 70 25 28 61 25 2d 31  |p%(a%)=top%(a%-1|
00001b00  29 0d 1a 04 09 61 25 2d  3d 31 0d 1a 0e 05 ce 0d  |)....a%-=1......|
00001b10  1a 18 0f 74 6f 70 25 28  61 25 29 3d 70 25 0d 1a  |...top%(a%)=p%..|
00001b20  40 0b 66 72 63 25 2d 3d  31 0d 1a 4a 18 e7 44 72  |@.frc%-=1..J..Dr|
00001b30  61 67 5f 4f 62 6a 65 63  74 25 3c 3d 66 72 63 25  |ag_Object%<=frc%|
00001b40  8c 0d 1a 54 19 e3 61 25  3d 44 72 61 67 5f 4f 62  |...T..a%=Drag_Ob|
00001b50  6a 65 63 74 25 b8 66 72  63 25 0d 1a 5e 17 66 72  |ject%.frc%..^.fr|
00001b60  70 25 28 61 25 29 3d 66  72 70 25 28 61 25 2b 31  |p%(a%)=frp%(a%+1|
00001b70  29 0d 1a 68 07 ed 61 25  0d 1a 72 05 cd 0d 1a 7c  |)..h..a%..r....||
00001b80  12 66 72 70 25 28 66 72  63 25 2b 31 29 3d 30 0d  |.frp%(frc%+1)=0.|
00001b90  1a 86 05 e1 0d 1a cc 14  dd f2 73 63 72 6f 6c 6c  |..........scroll|
00001ba0  5f 72 65 71 75 65 73 74  0d 1a f4 0b ea 72 25 2c  |_request.....r%,|
00001bb0  62 68 25 0d 1b 08 10 62  68 25 3d 42 6c 63 6b 25  |bh%....bh%=Blck%|
00001bc0  21 32 38 0d 1b 12 0e c8  8e 42 6c 63 6b 25 21 30  |!28......Blck%!0|
00001bd0  ca 0d 1b 1c 12 c9 53 75  62 6c 69 73 74 25 28 31  |......Sublist%(1|
00001be0  2c 31 29 0d 1b 4e 27 72  25 3d a8 28 28 42 6c 63  |,1)..N'r%=.((Blc|
00001bf0  6b 25 21 31 36 2d 42 6c  63 6b 25 21 38 29 2f 46  |k%!16-Blck%!8)/F|
00001c00  6f 6e 74 5f 4c 68 25 29  2d 31 0d 1b 58 0f c8 8e  |ont_Lh%)-1..X...|
00001c10  42 6c 63 6b 25 21 33 36  ca 0d 1b 62 07 c9 2d 32  |Blck%!36...b..-2|
00001c20  0d 1b 6c 19 42 6c 63 6b  25 21 32 34 2d 3d 46 6f  |..l.Blck%!24-=Fo|
00001c30  6e 74 5f 4c 68 25 2a 72  25 0d 1b 76 07 c9 2d 31  |nt_Lh%*r%..v..-1|
00001c40  0d 1b 80 16 42 6c 63 6b  25 21 32 34 2d 3d 46 6f  |....Blck%!24-=Fo|
00001c50  6e 74 5f 4c 68 25 0d 1b  8a 06 c9 31 0d 1b 94 16  |nt_Lh%.....1....|
00001c60  42 6c 63 6b 25 21 32 34  2b 3d 46 6f 6e 74 5f 4c  |Blck%!24+=Font_L|
00001c70  68 25 0d 1b 9e 06 c9 32  0d 1b a8 19 42 6c 63 6b  |h%.....2....Blck|
00001c80  25 21 32 34 2b 3d 46 6f  6e 74 5f 4c 68 25 2a 72  |%!24+=Font_Lh%*r|
00001c90  25 0d 1b b2 05 cb 0d 1b  bc 1e c8 99 22 57 69 6d  |%..........."Wim|
00001ca0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 42  |p_OpenWindow",,B|
00001cb0  6c 63 6b 25 0d 1b c6 12  c9 53 75 62 6c 69 73 74  |lck%.....Sublist|
00001cc0  25 28 32 2c 31 29 0d 1b  ee 12 c9 53 75 62 6c 69  |%(2,1).....Subli|
00001cd0  73 74 25 28 32 2c 32 29  0d 1c 16 0f c8 8e 42 6c  |st%(2,2)......Bl|
00001ce0  63 6b 25 21 33 36 ca 0d  1c 20 07 c9 2d 32 0d 1c  |ck%!36... ..-2..|
00001cf0  2a 11 42 6c 63 6b 25 21  32 34 2d 3d 31 32 38 0d  |*.Blck%!24-=128.|
00001d00  1c 34 07 c9 2d 31 0d 1c  3e 10 42 6c 63 6b 25 21  |.4..-1..>.Blck%!|
00001d10  32 34 2d 3d 31 36 0d 1c  48 06 c9 31 0d 1c 52 10  |24-=16..H..1..R.|
00001d20  42 6c 63 6b 25 21 32 34  2b 3d 31 36 0d 1c 5c 06  |Blck%!24+=16..\.|
00001d30  c9 32 0d 1c 66 11 42 6c  63 6b 25 21 32 34 2b 3d  |.2..f.Blck%!24+=|
00001d40  31 32 38 0d 1c 70 05 cb  0d 1c 7a 1e c8 99 22 57  |128..p....z..."W|
00001d50  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
00001d60  2c 42 6c 63 6b 25 0d 1c  84 18 f2 64 72 61 77 5f  |,Blck%.....draw_|
00001d70  73 75 62 28 32 2c 33 2c  a3 2c 62 68 25 29 0d 1c  |sub(2,3,.,bh%)..|
00001d80  8e 18 f2 64 72 61 77 5f  73 75 62 28 33 2c 33 2c  |...draw_sub(3,3,|
00001d90  a3 2c 62 68 25 29 0d 1c  98 05 cb 0d 1c a2 05 e1  |.,bh%)..........|
00001da0  0d 1c e8 14 dd f2 74 6f  6f 6c 62 6f 78 5f 65 76  |......toolbox_ev|
00001db0  65 6e 74 73 0d 1d 10 17  45 76 65 6e 74 5f 53 69  |ents....Event_Si|
00001dc0  7a 65 25 3d 42 6c 63 6b  25 21 30 0d 1d 1a 1c 45  |ze%=Blck%!0....E|
00001dd0  76 65 6e 74 5f 52 65 66  65 72 65 6e 63 65 25 3d  |vent_Reference%=|
00001de0  42 6c 63 6b 25 21 34 0d  1d 24 17 45 76 65 6e 74  |Blck%!4..$.Event|
00001df0  5f 43 6f 64 65 25 3d 42  6c 63 6b 25 21 38 0d 1d  |_Code%=Blck%!8..|
00001e00  2e 19 45 76 65 6e 74 5f  46 6c 61 67 73 25 3d 42  |..Event_Flags%=B|
00001e10  6c 63 6b 25 21 31 32 0d  1d 38 19 45 76 65 6e 74  |lck%!12..8.Event|
00001e20  5f 42 6c 6f 63 6b 25 3d  42 6c 63 6b 25 21 32 30  |_Block%=Blck%!20|
00001e30  0d 1d 60 3f f2 63 61 6c  6c 65 72 73 28 30 2c 41  |..`?.callers(0,A|
00001e40  6e 63 65 73 74 6f 72 5f  49 44 25 2c 41 6e 63 65  |ncestor_ID%,Ance|
00001e50  73 74 6f 72 5f 4e 61 6d  65 24 2c 41 6e 63 65 73  |stor_Name$,Ances|
00001e60  74 6f 72 5f 43 6f 6d 70  6f 6e 65 6e 74 25 29 0d  |tor_Component%).|
00001e70  1d 6a 39 f2 63 61 6c 6c  65 72 73 28 38 2c 50 61  |.j9.callers(8,Pa|
00001e80  72 65 6e 74 5f 49 44 25  2c 50 61 72 65 6e 74 5f  |rent_ID%,Parent_|
00001e90  4e 61 6d 65 24 2c 50 61  72 65 6e 74 5f 43 6f 6d  |Name$,Parent_Com|
00001ea0  70 6f 6e 65 6e 74 25 29  0d 1d 74 34 f2 63 61 6c  |ponent%)..t4.cal|
00001eb0  6c 65 72 73 28 31 36 2c  53 65 6c 66 5f 49 44 25  |lers(16,Self_ID%|
00001ec0  2c 53 65 6c 66 5f 4e 61  6d 65 24 2c 53 65 6c 66  |,Self_Name$,Self|
00001ed0  5f 43 6f 6d 70 6f 6e 65  6e 74 25 29 0d 1d a6 11  |_Component%)....|
00001ee0  c8 8e 53 65 6c 66 5f 4e  61 6d 65 24 ca 0d 1d b0  |..Self_Name$....|
00001ef0  0c c9 22 41 6c 69 61 73  22 0d 1d ba 11 f2 68 61  |.."Alias".....ha|
00001f00  6e 64 6c 65 5f 61 6c 69  61 73 0d 1d c4 0f c9 22  |ndle_alias....."|
00001f10  41 75 74 6f 6d 65 6e 75  22 0d 1d ce 14 f2 68 61  |Automenu".....ha|
00001f20  6e 64 6c 65 5f 61 75 74  6f 6d 65 6e 75 0d 1d d8  |ndle_automenu...|
00001f30  0f c9 22 49 62 61 72 6d  65 6e 75 22 0d 1d e2 14  |.."Ibarmenu"....|
00001f40  f2 68 61 6e 64 6c 65 5f  69 62 61 72 6d 65 6e 75  |.handle_ibarmenu|
00001f50  0d 1d ec 0e c9 22 49 63  6f 6e 62 61 72 22 0d 1d  |....."Iconbar"..|
00001f60  f6 13 f2 68 61 6e 64 6c  65 5f 69 63 6f 6e 62 61  |...handle_iconba|
00001f70  72 0d 1e 00 0f c9 22 4d  61 69 6e 6c 69 73 74 22  |r....."Mainlist"|
00001f80  0d 1e 0a 14 f2 68 61 6e  64 6c 65 5f 6d 61 69 6e  |.....handle_main|
00001f90  6c 69 73 74 0d 1e 14 12  c9 22 4d 61 69 6e 74 65  |list....."Mainte|
00001fa0  6e 61 6e 63 65 22 0d 1e  1e 17 f2 68 61 6e 64 6c  |nance".....handl|
00001fb0  65 5f 6d 61 69 6e 74 65  6e 61 6e 63 65 0d 1e 28  |e_maintenance..(|
00001fc0  0e c9 22 4f 70 74 69 6f  6e 73 22 0d 1e 32 13 f2  |.."Options"..2..|
00001fd0  68 61 6e 64 6c 65 5f 6f  70 74 69 6f 6e 73 0d 1e  |handle_options..|
00001fe0  3c 0c c9 22 4e 6f 64 69  72 22 0d 1e 46 11 f2 68  |<.."Nodir"..F..h|
00001ff0  61 6e 64 6c 65 5f 6e 6f  64 69 72 0d 1e 50 0f c9  |andle_nodir..P..|
00002000  22 50 61 73 73 6d 65 6e  75 22 0d 1e 5a 14 f2 68  |"Passmenu"..Z..h|
00002010  61 6e 64 6c 65 5f 70 61  73 73 6d 65 6e 75 0d 1e  |andle_passmenu..|
00002020  64 0f c9 22 50 61 73 73  77 6f 72 64 22 0d 1e 6e  |d.."Password"..n|
00002030  14 f2 68 61 6e 64 6c 65  5f 70 61 73 73 77 6f 72  |..handle_passwor|
00002040  64 0d 1e 78 0e c9 22 53  75 62 6c 69 73 74 22 0d  |d..x.."Sublist".|
00002050  1e 82 13 f2 68 61 6e 64  6c 65 5f 73 75 62 6c 69  |....handle_subli|
00002060  73 74 0d 1e 8c 10 c9 22  54 68 69 65 66 74 72 61  |st....."Thieftra|
00002070  70 22 0d 1e 96 15 f2 68  61 6e 64 6c 65 5f 74 68  |p".....handle_th|
00002080  69 65 66 74 72 61 70 0d  1e a0 11 c9 22 55 73 65  |ieftrap....."Use|
00002090  72 61 63 63 65 73 73 22  0d 1e aa 16 f2 68 61 6e  |raccess".....han|
000020a0  64 6c 65 5f 75 73 65 72  61 63 63 65 73 73 0d 1e  |dle_useraccess..|
000020b0  b4 0d c9 22 59 65 73 64  69 72 22 0d 1e be 12 f2  |..."Yesdir".....|
000020c0  68 61 6e 64 6c 65 5f 79  65 73 64 69 72 0d 1e c8  |handle_yesdir...|
000020d0  0a c9 22 57 6d 69 22 0d  1e d2 0f f2 68 61 6e 64  |.."Wmi".....hand|
000020e0  6c 65 5f 77 6d 69 0d 1e  dc 05 cb 0d 1e e6 05 e1  |le_wmi..........|
000020f0  0d 1f 2c 13 dd f2 77 69  6d 70 5f 6d 65 73 73 61  |..,...wimp_messa|
00002100  67 65 73 0d 1f 54 1a ea  73 74 61 74 65 25 2c 61  |ges..T..state%,a|
00002110  25 2c 61 6c 25 2c 64 75  72 25 2c 62 25 0d 1f 68  |%,al%,dur%,b%..h|
00002120  0f c8 8e 42 6c 63 6b 25  21 31 36 ca 0d 1f 72 06  |...Blck%!16...r.|
00002130  c9 30 0d 1f 7c 0b 51 75  69 74 25 3d b9 0d 1f 86  |.0..|.Quit%=....|
00002140  06 c9 31 0d 1f b8 1f 53  6f 75 72 63 65 24 3d a4  |..1....Source$=.|
00002150  69 6e 64 69 72 65 63 74  28 42 6c 63 6b 25 2b 34  |indirect(Blck%+4|
00002160  34 29 0d 1f c2 4a e7 28  42 6c 63 6b 25 21 32 30  |4)...J.(Blck%!20|
00002170  3d 53 75 62 6c 69 73 74  25 28 31 2c 31 29 29 80  |=Sublist%(1,1)).|
00002180  28 53 6f 75 72 63 65 24  3d 22 50 69 6e 62 6f 61  |(Source$="Pinboa|
00002190  72 64 22 29 80 28 45 64  69 74 5f 54 79 70 65 24  |rd").(Edit_Type$|
000021a0  3d 22 61 75 74 6f 72 75  6e 22 29 8c 0d 1f f4 14  |="autorun").....|
000021b0  42 6c 63 6b 25 21 31 32  3d 42 6c 63 6b 25 21 38  |Blck%!12=Blck%!8|
000021c0  0d 1f fe 0e 42 6c 63 6b  25 21 31 36 3d 32 0d 20  |....Blck%!16=2. |
000021d0  08 10 42 6c 63 6b 25 21  33 36 3d 31 32 38 0d 20  |..Blck%!36=128. |
000021e0  12 33 24 28 42 6c 63 6b  25 2b 34 34 29 3d 22 3c  |.3$(Blck%+44)="<|
000021f0  57 69 6d 70 24 53 63 72  61 70 44 69 72 3e 2e 42  |Wimp$ScrapDir>.B|
00002200  6f 6f 74 70 6c 75 73 2e  50 69 6e 62 6f 61 72 64  |ootplus.Pinboard|
00002210  22 0d 20 1c 29 c8 99 22  57 69 6d 70 5f 53 65 6e  |". .).."Wimp_Sen|
00002220  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 42 6c 63  |dMessage",17,Blc|
00002230  6b 25 2c 42 6c 63 6b 25  21 34 0d 20 26 05 cd 0d  |k%,Blck%!4. &...|
00002240  20 30 06 c9 32 0d 20 58  1d 70 61 74 68 24 3d a4  | 0..2. X.path$=.|
00002250  69 6e 64 69 72 65 63 74  28 42 6c 63 6b 25 2b 34  |indirect(Blck%+4|
00002260  34 29 0d 20 62 1f e7 41  70 70 6c 69 63 61 74 69  |4). b..Applicati|
00002270  6f 6e 24 3d 22 21 54 68  69 65 66 74 72 61 70 22  |on$="!Thieftrap"|
00002280  8c 0d 20 8a 1a f2 6d 61  6b 65 5f 74 68 69 65 66  |.. ...make_thief|
00002290  74 72 61 70 28 70 61 74  68 24 29 0d 20 94 05 cc  |trap(path$). ...|
000022a0  0d 20 bc 16 f2 6d 61 6b  65 5f 61 6c 69 61 73 28  |. ...make_alias(|
000022b0  70 61 74 68 24 29 0d 20  c6 05 cd 0d 20 d0 06 c9  |path$). .... ...|
000022c0  33 0d 20 f8 1f 53 6f 75  72 63 65 24 3d a4 69 6e  |3. ..Source$=.in|
000022d0  64 69 72 65 63 74 28 42  6c 63 6b 25 2b 34 34 29  |direct(Blck%+44)|
000022e0  0d 21 02 0f c8 8e 42 6c  63 6b 25 21 32 30 ca 0d  |.!....Blck%!20..|
000022f0  21 0c 0e c9 41 6c 69 61  73 5f 57 48 25 0d 21 16  |!...Alias_WH%.!.|
00002300  15 f2 64 72 61 67 67 65  64 5f 74 6f 5f 61 6c 69  |..dragged_to_ali|
00002310  61 73 0d 21 20 12 c9 53  75 62 6c 69 73 74 25 28  |as.! ..Sublist%(|
00002320  31 2c 31 29 0d 21 2a 14  f2 64 72 61 67 67 65 64  |1,1).!*..dragged|
00002330  5f 74 6f 5f 65 64 69 74  0d 21 34 05 cb 0d 21 3e  |_to_edit.!4...!>|
00002340  0b c9 26 34 30 30 43 32  0d 21 66 1a c8 8e a4 69  |..&400C2.!f....i|
00002350  6e 64 69 72 65 63 74 28  42 6c 63 6b 25 2b 32 38  |ndirect(Blck%+28|
00002360  29 ca 0d 21 70 0f c9 22  7a 7a 7a 7a 70 61 73 73  |)..!p.."zzzzpass|
00002370  22 0d 21 7a 18 e7 50 61  73 73 77 6f 72 64 73 5f  |".!z..Passwords_|
00002380  45 6e 61 62 6c 65 64 25  8c 0d 21 a2 16 5a 7a 7a  |Enabled%..!..Zzz|
00002390  7a 70 61 73 73 5f 53 74  61 74 75 73 25 3d 33 0d  |zpass_Status%=3.|
000023a0  21 ac 1c 5a 7a 7a 7a 70  61 73 73 5f 48 61 6e 64  |!..Zzzzpass_Hand|
000023b0  6c 65 25 3d 42 6c 63 6b  25 21 34 0d 21 b6 16 e7  |le%=Blck%!4.!...|
000023c0  4c 6f 67 67 65 64 5f 55  73 65 72 24 3c 3e 22 22  |Logged_User$<>""|
000023d0  8c 0d 21 de 2c f2 75 73  65 72 5f 74 69 6d 65 73  |..!.,.user_times|
000023e0  28 4c 6f 67 67 65 64 5f  55 73 65 72 24 2c 61 6c  |(Logged_User$,al|
000023f0  25 2c 64 75 72 25 2c 61  25 2c 62 25 29 0d 21 e8  |%,dur%,a%,b%).!.|
00002400  1a f2 69 6e 66 6f 72 6d  5f 7a 7a 7a 7a 70 61 73  |..inform_zzzzpas|
00002410  73 28 64 75 72 25 29 0d  21 f2 05 cd 0d 21 fc 05  |s(dur%).!....!..|
00002420  cc 0d 22 2e 11 f2 70 61  75 73 65 5f 6c 6f 67 69  |.."...pause_logi|
00002430  6e 73 0d 22 38 12 f2 72  65 6d 6f 76 65 5f 6c 6f  |ns."8..remove_lo|
00002440  67 69 6e 73 0d 22 42 05  cd 0d 22 4c 0e c9 22 7a  |gins."B..."L.."z|
00002450  7a 7a 7a 63 68 6b 22 0d  22 56 15 5a 7a 7a 7a 63  |zzzchk"."V.Zzzzc|
00002460  68 6b 5f 53 74 61 74 75  73 25 3d 33 0d 22 60 1b  |hk_Status%=3."`.|
00002470  5a 7a 7a 7a 63 68 6b 5f  48 61 6e 64 6c 65 25 3d  |Zzzzchk_Handle%=|
00002480  42 6c 63 6b 25 21 34 0d  22 6a 05 cb 0d 22 74 0b  |Blck%!4."j..."t.|
00002490  c9 26 34 30 30 63 34 0d  22 88 0e 53 74 61 72 74  |.&400c4."..Start|
000024a0  65 64 25 3d b9 0d 22 92  0b c9 26 38 30 38 63 30  |ed%=.."...&808c0|
000024b0  0d 22 ba 1e e7 42 6c 63  6b 25 21 34 3d 5a 7a 7a  |."...Blck%!4=Zzz|
000024c0  7a 70 61 73 73 5f 48 61  6e 64 6c 65 25 8c 0d 22  |zpass_Handle%.."|
000024d0  e2 49 c8 99 22 57 69 6d  70 5f 54 72 61 6e 73 66  |.I.."Wimp_Transf|
000024e0  65 72 42 6c 6f 63 6b 22  2c 5a 7a 7a 7a 70 61 73  |erBlock",Zzzzpas|
000024f0  73 5f 48 61 6e 64 6c 65  25 2c 42 6c 63 6b 25 21  |s_Handle%,Blck%!|
00002500  32 34 2c 54 68 64 6c 25  2c 42 75 66 31 25 2c 42  |24,Thdl%,Buf1%,B|
00002510  6c 63 6b 25 21 32 30 0d  22 ec 0d c8 8e 21 42 75  |lck%!20."....!Bu|
00002520  66 31 25 ca 0d 22 f6 06  c9 31 0d 23 1e 1d f2 6c  |f1%.."...1.#...l|
00002530  6f 67 69 6e 5f 75 73 65  72 28 24 28 42 75 66 31  |ogin_user($(Buf1|
00002540  25 2b 34 29 2c a3 29 0d  23 28 2f 42 6c 63 6b 25  |%+4),.).#(/Blck%|
00002550  21 30 3d 33 32 3a 42 6c  63 6b 25 21 31 32 3d 42  |!0=32:Blck%!12=B|
00002560  6c 63 6b 25 21 38 3a 42  6c 63 6b 25 21 31 36 3d  |lck%!8:Blck%!16=|
00002570  26 38 30 38 63 30 0d 23  32 1d 42 6c 63 6b 25 21  |&808c0.#2.Blck%!|
00002580  32 30 3d 34 3a 42 6c 63  6b 25 21 32 34 3d 42 75  |20=4:Blck%!24=Bu|
00002590  66 32 25 0d 23 3c 0c 21  42 75 66 32 25 3d 32 0d  |f2%.#<.!Buf2%=2.|
000025a0  23 46 32 c8 99 22 57 69  6d 70 5f 53 65 6e 64 4d  |#F2.."Wimp_SendM|
000025b0  65 73 73 61 67 65 22 2c  31 37 2c 42 6c 63 6b 25  |essage",17,Blck%|
000025c0  2c 5a 7a 7a 7a 70 61 73  73 5f 48 61 6e 64 6c 65  |,Zzzzpass_Handle|
000025d0  25 0d 23 50 17 e7 53 65  71 75 65 6e 63 65 24 3d  |%.#P..Sequence$=|
000025e0  22 4c 4f 47 4f 4e 22 8c  0d 23 78 16 53 65 71 75  |"LOGON"..#x.Sequ|
000025f0  65 6e 63 65 24 3d 22 4e  4f 52 4d 41 4c 22 0d 23  |ence$="NORMAL".#|
00002600  82 05 cd 0d 23 8c 06 c9  32 0d 23 be 14 51 75 69  |....#...2.#..Qui|
00002610  74 25 3d 41 75 74 6f 63  6c 6f 73 65 25 0d 23 c8  |t%=Autoclose%.#.|
00002620  06 c9 34 0d 23 f0 13 4c  6f 67 67 65 64 5f 55 73  |..4.#..Logged_Us|
00002630  65 72 24 3d 22 22 0d 23  fa 05 cb 0d 24 04 05 cd  |er$="".#....$...|
00002640  0d 24 0e 05 cb 0d 24 18  05 e1 0d 24 5e 16 dd f2  |.$....$....$^...|
00002650  64 72 61 67 67 65 64 5f  74 6f 5f 61 6c 69 61 73  |dragged_to_alias|
00002660  0d 24 86 15 e7 42 6c 63  6b 25 21 34 30 3c 3e 26  |.$...Blck%!40<>&|
00002670  32 30 30 30 8c 0d 24 ae  36 f2 65 72 72 6f 72 5f  |2000..$.6.error_|
00002680  6d 65 73 73 61 67 65 28  22 45 4d 34 22 2c 53 6f  |message("EM4",So|
00002690  75 72 63 65 24 2c c3 7e  28 42 6c 63 6b 25 21 34  |urce$,.~(Blck%!4|
000026a0  30 29 2c 22 22 2c 30 2c  4b 25 29 0d 24 b8 05 cc  |0),"",0,K%).$...|
000026b0  0d 24 e0 13 61 25 3d a9  28 53 6f 75 72 63 65 24  |.$..a%=.(Source$|
000026c0  29 2d 31 0d 24 ea 1f f5  3a 61 25 2d 3d 31 3a fd  |)-1.$...:a%-=1:.|
000026d0  c1 53 6f 75 72 63 65 24  2c 61 25 2c 31 29 3d 22  |.Source$,a%,1)="|
000026e0  2e 22 0d 24 f4 1f 41 70  70 6c 69 63 61 74 69 6f  |.".$..Applicatio|
000026f0  6e 24 3d c1 53 6f 75 72  63 65 24 2c 61 25 2b 31  |n$=.Source$,a%+1|
00002700  29 0d 24 fe 31 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |).$.1..T_TOMO%,0|
00002710  2c 41 6c 69 61 73 5f 49  44 25 2c 4d 5f 44 5f 53  |,Alias_ID%,M_D_S|
00002720  53 50 25 2c 30 2c 41 70  70 6c 69 63 61 74 69 6f  |SP%,0,Applicatio|
00002730  6e 24 0d 25 08 30 c8 99  54 5f 54 4f 4d 4f 25 2c  |n$.%.0..T_TOMO%,|
00002740  30 2c 41 6c 69 61 73 5f  49 44 25 2c 4d 5f 44 5f  |0,Alias_ID%,M_D_|
00002750  53 54 25 2c 30 2c 41 70  70 6c 69 63 61 74 69 6f  |ST%,0,Applicatio|
00002760  6e 24 0d 25 1c 05 cd 0d  25 26 05 e1 0d 25 6c 15  |n$.%....%&...%l.|
00002770  dd f2 64 72 61 67 67 65  64 5f 74 6f 5f 65 64 69  |..dragged_to_edi|
00002780  74 0d 25 94 24 ea 61 25  2c 70 25 2c 61 24 2c 62  |t.%.$.a%,p%,a$,b|
00002790  24 2c 63 24 2c 6c 65 61  66 24 2c 64 75 70 6c 69  |$,c$,leaf$,dupli|
000027a0  63 61 74 65 25 0d 25 a8  08 c8 8e b9 ca 0d 25 b2  |cate%.%.......%.|
000027b0  2a c9 28 42 6c 63 6b 25  21 34 30 3c 3e 26 32 30  |*.(Blck%!40<>&20|
000027c0  30 30 29 80 28 45 64 69  74 5f 54 79 70 65 24 3d  |00).(Edit_Type$=|
000027d0  22 62 6f 6f 74 22 29 0d  25 bc 2c f2 65 72 72 6f  |"boot").%.,.erro|
000027e0  72 5f 6d 65 73 73 61 67  65 28 22 45 4d 35 22 2c  |r_message("EM5",|
000027f0  53 6f 75 72 63 65 24 2c  22 22 2c 22 22 2c 30 2c  |Source$,"","",0,|
00002800  4b 25 29 0d 25 c6 2f c9  28 42 6c 63 6b 25 21 34  |K%).%./.(Blck%!4|
00002810  30 3c 3e 26 32 30 30 30  29 80 28 45 64 69 74 5f  |0<>&2000).(Edit_|
00002820  54 79 70 65 24 3d 22 72  65 73 6f 75 72 63 65 73  |Type$="resources|
00002830  22 29 0d 25 d0 2c f2 65  72 72 6f 72 5f 6d 65 73  |").%.,.error_mes|
00002840  73 61 67 65 28 22 45 4d  36 22 2c 53 6f 75 72 63  |sage("EM6",Sourc|
00002850  65 24 2c 22 22 2c 22 22  2c 30 2c 4b 25 29 0d 25  |e$,"","",0,K%).%|
00002860  da 05 7f 0d 26 02 13 61  25 3d a9 28 53 6f 75 72  |....&..a%=.(Sour|
00002870  63 65 24 29 2d 31 0d 26  0c 1f f5 3a 61 25 2d 3d  |ce$)-1.&...:a%-=|
00002880  31 3a fd c1 53 6f 75 72  63 65 24 2c 61 25 2c 31  |1:..Source$,a%,1|
00002890  29 3d 22 2e 22 0d 26 16  18 6c 65 61 66 24 3d c1  |)=".".&..leaf$=.|
000028a0  53 6f 75 72 63 65 24 2c  61 25 2b 31 29 0d 26 20  |Source$,a%+1).& |
000028b0  10 64 75 70 6c 69 63 61  74 65 25 3d a3 0d 26 2a  |.duplicate%=..&*|
000028c0  0f e3 61 25 3d 31 b8 4f  62 6a 73 25 0d 26 34 1e  |..a%=1.Objs%.&4.|
000028d0  e7 6c 65 61 66 24 3d 4f  64 61 74 24 28 4f 70 74  |.leaf$=Odat$(Opt|
000028e0  72 25 28 61 25 29 2c 31  29 8c 0d 26 3e 10 64 75  |r%(a%),1)..&>.du|
000028f0  70 6c 69 63 61 74 65 25  3d b9 0d 26 48 09 70 25  |plicate%=..&H.p%|
00002900  3d 61 25 0d 26 52 05 cd  0d 26 5c 07 ed 61 25 0d  |=a%.&R...&\..a%.|
00002910  26 66 10 e7 64 75 70 6c  69 63 61 74 65 25 8c 0d  |&f..duplicate%..|
00002920  26 8e 16 e7 6c 65 61 66  24 3d 22 50 69 6e 62 6f  |&...leaf$="Pinbo|
00002930  61 72 64 22 8c 0d 26 b6  33 4f 64 61 74 24 28 70  |ard"..&.3Odat$(p|
00002940  25 2c 35 29 3d 22 3c 57  69 6d 70 24 53 63 72 61  |%,5)="<Wimp$Scra|
00002950  70 44 69 72 3e 2e 42 6f  6f 74 70 6c 75 73 2e 50  |pDir>.Bootplus.P|
00002960  69 6e 62 6f 61 72 64 22  0d 26 c0 0b e3 61 25 3d  |inboard".&...a%=|
00002970  31 b8 34 0d 26 ca 2c 4f  66 6c 67 25 28 70 25 2c  |1.4.&.,Oflg%(p%,|
00002980  61 25 29 3d 28 4f 66 6c  67 25 28 70 25 2c 61 25  |a%)=(Oflg%(p%,a%|
00002990  29 80 26 46 46 46 46 46  46 46 30 29 84 31 33 0d  |).&FFFFFFF0).13.|
000029a0  26 d4 07 ed 61 25 0d 26  de 12 4f 66 6c 67 25 28  |&...a%.&..Oflg%(|
000029b0  70 25 2c 35 29 3d 33 32  0d 26 e8 0c 53 61 76 65  |p%,5)=32.&..Save|
000029c0  64 25 3d a3 0d 26 f2 05  cc 0d 27 1a 2a f2 65 72  |d%=..&....'.*.er|
000029d0  72 6f 72 5f 6d 65 73 73  61 67 65 28 22 45 4d 37  |ror_message("EM7|
000029e0  22 2c 6c 65 61 66 24 2c  22 22 2c 22 22 2c 30 2c  |",leaf$,"","",0,|
000029f0  4b 25 29 0d 27 24 05 cd  0d 27 2e 05 cc 0d 27 56  |K%).'$...'....'V|
00002a00  0c 53 61 76 65 64 25 3d  a3 0d 27 60 0c 4f 6e 74  |.Saved%=..'`.Ont|
00002a10  72 25 2b 3d 31 0d 27 6a  0c 4f 62 6a 73 25 2b 3d  |r%+=1.'j.Objs%+=|
00002a20  31 0d 27 74 16 4f 70 74  72 25 28 4f 62 6a 73 25  |1.'t.Optr%(Objs%|
00002a30  29 3d 4f 6e 74 72 25 0d  27 7e 18 4f 64 61 74 24  |)=Ontr%.'~.Odat$|
00002a40  28 4f 6e 74 72 25 2c 31  29 3d 6c 65 61 66 24 0d  |(Ontr%,1)=leaf$.|
00002a50  27 88 0f c8 8e 42 6c 63  6b 25 21 34 30 ca 0d 27  |'....Blck%!40..'|
00002a60  92 0a c9 26 32 30 30 30  0d 27 ba 11 c8 8e 45 64  |...&2000.'....Ed|
00002a70  69 74 5f 54 79 70 65 24  ca 0d 27 c4 0e c9 22 61  |it_Type$..'..."a|
00002a80  75 74 6f 72 75 6e 22 0d  27 ce 32 4f 64 61 74 24  |utorun".'.2Odat$|
00002a90  28 4f 6e 74 72 25 2c 32  29 3d a4 67 65 74 5f 6d  |(Ontr%,2)=.get_m|
00002aa0  65 73 73 61 67 65 28 22  44 4d 34 22 2c 22 22 2c  |essage("DM4","",|
00002ab0  22 22 2c 22 22 2c 22 22  29 0d 27 d8 0b c9 22 62  |"","","").'..."b|
00002ac0  6f 6f 74 22 0d 27 e2 32  4f 64 61 74 24 28 4f 6e  |oot".'.2Odat$(On|
00002ad0  74 72 25 2c 32 29 3d a4  67 65 74 5f 6d 65 73 73  |tr%,2)=.get_mess|
00002ae0  61 67 65 28 22 44 4d 35  22 2c 22 22 2c 22 22 2c  |age("DM5","","",|
00002af0  22 22 2c 22 22 29 0d 27  ec 10 c9 22 72 65 73 6f  |"","").'..."reso|
00002b00  75 72 63 65 73 22 0d 27  f6 32 4f 64 61 74 24 28  |urces".'.2Odat$(|
00002b10  4f 6e 74 72 25 2c 32 29  3d a4 67 65 74 5f 6d 65  |Ontr%,2)=.get_me|
00002b20  73 73 61 67 65 28 22 44  4d 35 22 2c 22 22 2c 22  |ssage("DM5","","|
00002b30  22 2c 22 22 2c 22 22 29  0d 28 00 0e c9 22 70 72  |","","").(..."pr|
00002b40  65 64 65 73 6b 22 0d 28  0a 32 4f 64 61 74 24 28  |edesk".(.2Odat$(|
00002b50  4f 6e 74 72 25 2c 32 29  3d a4 67 65 74 5f 6d 65  |Ontr%,2)=.get_me|
00002b60  73 73 61 67 65 28 22 44  4d 36 22 2c 22 22 2c 22  |ssage("DM6","","|
00002b70  22 2c 22 22 2c 22 22 29  0d 28 14 05 cb 0d 28 1e  |","","").(....(.|
00002b80  19 4f 64 61 74 24 28 4f  6e 74 72 25 2c 33 29 3d  |.Odat$(Ontr%,3)=|
00002b90  22 32 30 30 30 22 0d 28  28 0a c9 26 31 30 30 30  |"2000".((..&1000|
00002ba0  0d 28 50 32 4f 64 61 74  24 28 4f 6e 74 72 25 2c  |.(P2Odat$(Ontr%,|
00002bb0  32 29 3d a4 67 65 74 5f  6d 65 73 73 61 67 65 28  |2)=.get_message(|
00002bc0  22 44 4d 31 22 2c 22 22  2c 22 22 2c 22 22 2c 22  |"DM1","","","","|
00002bd0  22 29 0d 28 5a 19 4f 64  61 74 24 28 4f 6e 74 72  |").(Z.Odat$(Ontr|
00002be0  25 2c 33 29 3d 22 31 30  30 30 22 0d 28 64 05 7f  |%,3)="1000".(d..|
00002bf0  0d 28 6e 2d c8 99 22 4f  53 5f 43 6f 6e 76 65 72  |.(n-.."OS_Conver|
00002c00  74 48 65 78 34 22 2c 42  6c 63 6b 25 21 34 30 2c  |tHex4",Blck%!40,|
00002c10  42 75 66 32 25 2c 31 32  38 b8 2c 70 25 0d 28 78  |Buf2%,128.,p%.(x|
00002c20  0a 3f 70 25 3d 31 33 0d  28 82 10 e7 42 75 66 32  |.?p%=13.(...Buf2|
00002c30  25 3f 30 3d 34 38 8c 0d  28 8c 1d 4f 64 61 74 24  |%?0=48..(..Odat$|
00002c40  28 4f 6e 74 72 25 2c 33  29 3d c2 24 42 75 66 32  |(Ontr%,3)=.$Buf2|
00002c50  25 2c 33 29 0d 28 96 05  cc 0d 28 a0 19 4f 64 61  |%,3).(....(..Oda|
00002c60  74 24 28 4f 6e 74 72 25  2c 33 29 3d 24 42 75 66  |t$(Ontr%,3)=$Buf|
00002c70  32 25 0d 28 aa 05 cd 0d  28 b4 45 c8 99 22 58 4f  |2%.(....(.E.."XO|
00002c80  53 5f 52 65 61 64 56 61  72 56 61 6c 22 2c 22 46  |S_ReadVarVal","F|
00002c90  69 6c 65 24 54 79 70 65  5f 22 2b 4f 64 61 74 24  |ile$Type_"+Odat$|
00002ca0  28 4f 6e 74 72 25 2c 33  29 2c 42 75 66 31 25 2c  |(Ontr%,3),Buf1%,|
00002cb0  31 32 38 2c 30 2c 33 b8  2c 2c 6c 25 0d 28 be 0a  |128,0,3.,,l%.(..|
00002cc0  e7 6c 25 3d 30 8c 0d 28  e6 25 4f 64 61 74 24 28  |.l%=0..(.%Odat$(|
00002cd0  4f 6e 74 72 25 2c 32 29  3d 22 26 22 2b 4f 64 61  |Ontr%,2)="&"+Oda|
00002ce0  74 24 28 4f 6e 74 72 25  2c 33 29 0d 28 f0 05 cc  |t$(Ontr%,3).(...|
00002cf0  0d 29 18 0f 42 75 66 31  25 3f 6c 25 3d 31 33 0d  |.)..Buf1%?l%=13.|
00002d00  29 22 19 4f 64 61 74 24  28 4f 6e 74 72 25 2c 32  |)".Odat$(Ontr%,2|
00002d10  29 3d 24 42 75 66 31 25  0d 29 2c 05 cd 0d 29 36  |)=$Buf1%.),...)6|
00002d20  05 cb 0d 29 5e 15 4f 64  61 74 24 28 4f 6e 74 72  |...)^.Odat$(Ontr|
00002d30  25 2c 34 29 3d 22 22 0d  29 68 08 63 25 3d 30 0d  |%,4)="".)h.c%=0.|
00002d40  29 72 05 f5 0d 29 7c 09  63 25 2b 3d 31 0d 29 86  |)r...)|.c%+=1.).|
00002d50  5e e7 28 42 6f 6f 74 5f  54 79 70 65 24 28 63 25  |^.(Boot_Type$(c%|
00002d60  2c 31 29 3d 45 64 69 74  5f 54 79 70 65 24 29 80  |,1)=Edit_Type$).|
00002d70  28 28 42 6f 6f 74 5f 54  79 70 65 24 28 63 25 2c  |((Boot_Type$(c%,|
00002d80  32 29 3d 4f 64 61 74 24  28 4f 6e 74 72 25 2c 33  |2)=Odat$(Ontr%,3|
00002d90  29 29 84 28 42 6f 6f 74  5f 54 79 70 65 24 28 63  |)).(Boot_Type$(c|
00002da0  25 2c 32 29 3d 22 2a 22  29 29 8c 0d 29 90 23 4f  |%,2)="*"))..).#O|
00002db0  64 61 74 24 28 4f 6e 74  72 25 2c 34 29 3d 42 6f  |dat$(Ontr%,4)=Bo|
00002dc0  6f 74 5f 54 79 70 65 24  28 63 25 2c 33 29 0d 29  |ot_Type$(c%,3).)|
00002dd0  9a 05 cd 0d 29 a4 2a fd  28 63 25 3d 42 6f 6f 74  |....).*.(c%=Boot|
00002de0  5f 54 79 70 65 73 25 29  84 28 4f 64 61 74 24 28  |_Types%).(Odat$(|
00002df0  4f 6e 74 72 25 2c 34 29  3c 3e 22 22 29 0d 29 cc  |Ontr%,4)<>"").).|
00002e00  18 e7 53 6f 75 72 63 65  24 3d 22 50 69 6e 62 6f  |..Source$="Pinbo|
00002e10  61 72 64 22 8c 0d 29 f4  36 4f 64 61 74 24 28 4f  |ard"..).6Odat$(O|
00002e20  6e 74 72 25 2c 35 29 3d  22 3c 57 69 6d 70 24 53  |ntr%,5)="<Wimp$S|
00002e30  63 72 61 70 44 69 72 3e  2e 42 6f 6f 74 70 6c 75  |crapDir>.Bootplu|
00002e40  73 2e 50 69 6e 62 6f 61  72 64 22 0d 29 fe 05 cc  |s.Pinboard".)...|
00002e50  0d 2a 08 1a 4f 64 61 74  24 28 4f 6e 74 72 25 2c  |.*..Odat$(Ontr%,|
00002e60  35 29 3d 53 6f 75 72 63  65 24 0d 2a 12 05 cd 0d  |5)=Source$.*....|
00002e70  2a 1c 23 4f 66 6c 67 25  28 4f 6e 74 72 25 2c 31  |*.#Oflg%(Ontr%,1|
00002e80  29 3d 28 32 34 3c 3c 31  36 29 84 26 31 30 30 84  |)=(24<<16).&100.|
00002e90  31 33 0d 2a 26 24 4f 66  6c 67 25 28 4f 6e 74 72  |13.*&$Oflg%(Ontr|
00002ea0  25 2c 32 29 3d 28 32 30  30 3c 3c 31 36 29 84 26  |%,2)=(200<<16).&|
00002eb0  31 30 30 84 31 33 0d 2a  30 14 4f 66 6c 67 25 28  |100.13.*0.Oflg%(|
00002ec0  4f 6e 74 72 25 2c 33 29  3d 38 0d 2a 3a 11 c8 8e  |Ontr%,3)=8.*:...|
00002ed0  45 64 69 74 5f 54 79 70  65 24 ca 0d 2a 44 0b c9  |Edit_Type$..*D..|
00002ee0  22 62 6f 6f 74 22 0d 2a  4e 24 4f 66 6c 67 25 28  |"boot".*N$Oflg%(|
00002ef0  4f 6e 74 72 25 2c 34 29  3d 28 35 31 32 3c 3c 31  |Ontr%,4)=(512<<1|
00002f00  36 29 84 26 31 30 30 84  31 33 0d 2a 58 10 c9 22  |6).&100.13.*X.."|
00002f10  72 65 73 6f 75 72 63 65  73 22 0d 2a 62 24 4f 66  |resources".*b$Of|
00002f20  6c 67 25 28 4f 6e 74 72  25 2c 34 29 3d 28 35 31  |lg%(Ontr%,4)=(51|
00002f30  32 3c 3c 31 36 29 84 26  31 30 30 84 31 33 0d 2a  |2<<16).&100.13.*|
00002f40  6c 0e c9 22 61 75 74 6f  72 75 6e 22 0d 2a 76 24  |l.."autorun".*v$|
00002f50  4f 66 6c 67 25 28 4f 6e  74 72 25 2c 34 29 3d 28  |Oflg%(Ontr%,4)=(|
00002f60  34 38 30 3c 3c 31 36 29  84 26 31 30 30 84 31 33  |480<<16).&100.13|
00002f70  0d 2a 80 0e c9 22 70 72  65 64 65 73 6b 22 0d 2a  |.*..."predesk".*|
00002f80  8a 24 4f 66 6c 67 25 28  4f 6e 74 72 25 2c 34 29  |.$Oflg%(Ontr%,4)|
00002f90  3d 28 34 30 30 3c 3c 31  36 29 84 26 31 30 30 84  |=(400<<16).&100.|
00002fa0  31 33 0d 2a 94 05 cb 0d  2a 9e 15 4f 66 6c 67 25  |13.*....*..Oflg%|
00002fb0  28 4f 6e 74 72 25 2c 35  29 3d 33 32 0d 2a a8 05  |(Ontr%,5)=32.*..|
00002fc0  cd 0d 2a b2 05 cb 0d 2a  da 19 f2 73 65 74 5f 6c  |..*....*...set_l|
00002fd0  69 73 74 5f 65 78 74 65  6e 74 28 31 2c b9 29 0d  |ist_extent(1,.).|
00002fe0  2a e4 16 f2 64 72 61 77  5f 73 75 62 28 31 2c 32  |*...draw_sub(1,2|
00002ff0  2c a3 2c 30 29 0d 2a ee  05 e1 0d 2b 34 27 dd f2  |,.,0).*....+4'..|
00003000  63 61 6c 6c 65 72 73 28  6f 66 66 73 65 74 25 2c  |callers(offset%,|
00003010  f8 69 64 25 2c f8 69 64  24 2c f8 63 70 6e 74 25  |.id%,.id$,.cpnt%|
00003020  29 0d 2b 8e 09 ea 70 74  72 25 0d 2b a2 16 70 74  |).+...ptr%.+..pt|
00003030  72 25 3d 54 6c 6f 69 25  2b 6f 66 66 73 65 74 25  |r%=Tloi%+offset%|
00003040  0d 2b ac 0d 69 64 25 3d  21 70 74 72 25 0d 2b b6  |.+..id%=!ptr%.+.|
00003050  0c e7 69 64 25 3c 3e 30  8c 0d 2b c0 2f c8 99 22  |..id%<>0..+./.."|
00003060  54 6f 6f 6c 62 6f 78 5f  47 65 74 54 65 6d 70 6c  |Toolbox_GetTempl|
00003070  61 74 65 4e 61 6d 65 22  2c 30 2c 69 64 25 2c 42  |ateName",0,id%,B|
00003080  75 66 31 25 2c 31 32 38  0d 2b ca 18 69 64 24 3d  |uf1%,128.+..id$=|
00003090  a4 69 6e 64 69 72 65 63  74 28 42 75 66 31 25 29  |.indirect(Buf1%)|
000030a0  0d 2b d4 05 cc 0d 2b de  0a 69 64 24 3d 22 22 0d  |.+....+..id$="".|
000030b0  2b e8 05 cd 0d 2b f2 10  63 70 6e 74 25 3d 70 74  |+....+..cpnt%=pt|
000030c0  72 25 21 34 0d 2b fc 05  e1 0d 2c 42 14 dd f2 68  |r%!4.+....,B...h|
000030d0  61 6e 64 6c 65 5f 69 63  6f 6e 62 61 72 0d 2c 4c  |andle_iconbar.,L|
000030e0  05 e1 0d 2c 92 12 dd f2  68 61 6e 64 6c 65 5f 61  |...,....handle_a|
000030f0  6c 69 61 73 0d 2c ba 12  ea 73 74 61 74 65 25 2c  |lias.,...state%,|
00003100  62 6f 25 2c 70 25 0d 2c  ce 12 c8 8e 45 76 65 6e  |bo%,p%.,....Even|
00003110  74 5f 43 6f 64 65 25 ca  0d 2c d8 0c c9 45 5f 54  |t_Code%..,...E_T|
00003120  4f 41 43 25 0d 2d 00 16  41 6c 69 61 73 5f 49 44  |OAC%.-..Alias_ID|
00003130  25 3d 53 65 6c 66 5f 49  44 25 0d 2d 0a 25 c8 99  |%=Self_ID%.-.%..|
00003140  54 5f 54 4f 4d 4f 25 2c  30 2c 41 6c 69 61 73 5f  |T_TOMO%,0,Alias_|
00003150  49 44 25 2c 30 b8 41 6c  69 61 73 5f 57 48 25 0d  |ID%,0.Alias_WH%.|
00003160  2d 14 0d c9 45 5f 57 41  54 42 53 25 0d 2d 3c 13  |-...E_WATBS%.-<.|
00003170  41 70 70 6c 69 63 61 74  69 6f 6e 24 3d 22 22 0d  |Application$="".|
00003180  2d 46 2b c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 41  |-F+..T_TOMO%,0,A|
00003190  6c 69 61 73 5f 49 44 25  2c 36 34 30 2c 30 2c 22  |lias_ID%,640,0,"|
000031a0  21 42 6f 6f 74 70 6c 75  73 22 0d 2d 50 28 c8 99  |!Bootplus".-P(..|
000031b0  54 5f 54 4f 4d 4f 25 2c  30 2c 41 6c 69 61 73 5f  |T_TOMO%,0,Alias_|
000031c0  49 44 25 2c 36 34 32 2c  30 2c 22 3c 6e 6f 6e 65  |ID%,642,0,"<none|
000031d0  3e 22 0d 2d 5a 0b c9 45  5f 44 44 45 25 0d 2d 82  |>".-Z..E_DDE%.-.|
000031e0  16 e7 41 70 70 6c 69 63  61 74 69 6f 6e 24 3c 3e  |..Application$<>|
000031f0  22 22 8c 0d 2d aa 0e 42  75 66 32 25 21 30 3d 36  |""..-..Buf2%!0=6|
00003200  34 0d 2d b4 2b 42 75 66  32 25 21 31 32 3d 30 3a  |4.-.+Buf2%!12=0:|
00003210  42 75 66 32 25 21 31 36  3d 31 3a 42 75 66 32 25  |Buf2%!16=1:Buf2%|
00003220  21 32 30 3d 42 6c 63 6b  25 21 31 36 0d 2d be 34  |!20=Blck%!16.-.4|
00003230  42 75 66 32 25 21 32 38  3d 42 6c 63 6b 25 21 32  |Buf2%!28=Blck%!2|
00003240  34 3a 42 75 66 32 25 21  33 32 3d 42 6c 63 6b 25  |4:Buf2%!32=Blck%|
00003250  21 32 38 3a 42 75 66 32  25 21 33 36 3d 31 32 38  |!28:Buf2%!36=128|
00003260  0d 2d c8 2b 42 75 66 32  25 21 34 30 3d 26 32 30  |.-.+Buf2%!40=&20|
00003270  30 30 3a 24 28 42 75 66  32 25 2b 34 34 29 3d 41  |00:$(Buf2%+44)=A|
00003280  70 70 6c 69 63 61 74 69  6f 6e 24 0d 2d d2 2a c8  |pplication$.-.*.|
00003290  99 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  |."Wimp_SendMessa|
000032a0  67 65 22 2c 31 37 2c 42  75 66 32 25 2c 42 6c 63  |ge",17,Buf2%,Blc|
000032b0  6b 25 21 31 36 0d 2d dc  05 cd 0d 2d e6 05 cb 0d  |k%!16.-....-....|
000032c0  2d f0 05 e1 0d 2e 36 15  dd f2 68 61 6e 64 6c 65  |-.....6...handle|
000032d0  5f 61 75 74 6f 6d 65 6e  75 0d 2e 5e 12 c8 8e 45  |_automenu..^...E|
000032e0  76 65 6e 74 5f 43 6f 64  65 25 ca 0d 2e 68 0a c9  |vent_Code%...h..|
000032f0  45 5f 4d 53 25 0d 2e 90  15 f2 63 68 65 63 6b 5f  |E_MS%.....check_|
00003300  69 66 5f 61 70 70 6c 69  65 64 0d 2e b8 18 e7 53  |if_applied.....S|
00003310  65 6c 66 5f 43 6f 6d 70  6f 6e 65 6e 74 25 3d 26  |elf_Component%=&|
00003320  64 8c 0d 2e e0 1f 61 25  3d a4 67 65 74 5f 74 61  |d.....a%=.get_ta|
00003330  73 6b 5f 69 64 28 22 50  69 6e 62 6f 61 72 64 22  |sk_id("Pinboard"|
00003340  29 0d 2e ea 0a e7 61 25  3d 30 8c 0d 2f 12 27 f2  |).....a%=0../.'.|
00003350  65 72 72 6f 72 5f 6d 65  73 73 61 67 65 28 22 45  |error_message("E|
00003360  4d 38 22 2c 22 22 2c 22  22 2c 22 22 2c 30 2c 4b  |M8","","","",0,K|
00003370  25 29 0d 2f 1c 05 cc 0d  2f 44 0e 42 75 66 32 25  |%)./..../D.Buf2%|
00003380  21 30 3d 36 34 0d 2f 4e  24 42 75 66 32 25 21 31  |!0=64./N$Buf2%!1|
00003390  32 3d 30 3a 42 75 66 32  25 21 31 36 3d 31 3a 42  |2=0:Buf2%!16=1:B|
000033a0  75 66 32 25 21 32 30 3d  30 0d 2f 58 26 42 75 66  |uf2%!20=0./X&Buf|
000033b0  32 25 21 32 38 3d 30 3a  42 75 66 32 25 21 33 32  |2%!28=0:Buf2%!32|
000033c0  3d 30 3a 42 75 66 32 25  21 33 36 3d 31 32 38 0d  |=0:Buf2%!36=128.|
000033d0  2f 62 28 42 75 66 32 25  21 34 30 3d 26 66 65 62  |/b(Buf2%!40=&feb|
000033e0  3a 24 28 42 75 66 32 25  2b 34 34 29 3d 22 50 69  |:$(Buf2%+44)="Pi|
000033f0  6e 62 6f 61 72 64 22 0d  2f 6c 24 c8 99 22 57 69  |nboard"./l$.."Wi|
00003400  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00003410  31 37 2c 42 75 66 32 25  2c 61 25 0d 2f 76 05 cd  |17,Buf2%,a%./v..|
00003420  0d 2f 80 05 cc 0d 2f a8  16 c8 8e 53 65 6c 66 5f  |./..../....Self_|
00003430  43 6f 6d 70 6f 6e 65 6e  74 25 ca 0d 2f b2 07 c9  |Component%../...|
00003440  26 39 0d 2f da 18 45 64  69 74 5f 54 79 70 65 24  |&9./..Edit_Type$|
00003450  3d 22 61 75 74 6f 72 75  6e 22 0d 2f e4 07 c9 26  |="autorun"./...&|
00003460  62 0d 30 0c 15 45 64 69  74 5f 54 79 70 65 24 3d  |b.0..Edit_Type$=|
00003470  22 62 6f 6f 74 22 0d 30  16 07 c9 26 35 0d 30 3e  |"boot".0...&5.0>|
00003480  1a 45 64 69 74 5f 54 79  70 65 24 3d 22 72 65 73  |.Edit_Type$="res|
00003490  6f 75 72 63 65 73 22 0d  30 48 07 c9 26 63 0d 30  |ources".0H..&c.0|
000034a0  70 18 45 64 69 74 5f 54  79 70 65 24 3d 22 70 72  |p.Edit_Type$="pr|
000034b0  65 64 65 73 6b 22 0d 30  7a 05 cb 0d 30 84 10 f2  |edesk".0z...0...|
000034c0  67 65 74 5f 61 70 70 6c  69 73 74 0d 30 8e 13 f2  |get_applist.0...|
000034d0  64 72 61 77 5f 6d 61 69  6e 28 31 2c 30 29 0d 30  |draw_main(1,0).0|
000034e0  98 05 cd 0d 30 a2 05 cb  0d 30 ac 05 e1 0d 30 f2  |....0....0....0.|
000034f0  15 dd f2 68 61 6e 64 6c  65 5f 69 62 61 72 6d 65  |...handle_ibarme|
00003500  6e 75 0d 31 1a 12 c8 8e  45 76 65 6e 74 5f 43 6f  |nu.1....Event_Co|
00003510  64 65 25 ca 0d 31 24 0c  c9 45 5f 54 4f 41 43 25  |de%..1$..E_TOAC%|
00003520  0d 31 4c 19 49 62 61 72  6d 65 6e 75 5f 49 44 25  |.1L.Ibarmenu_ID%|
00003530  3d 53 65 6c 66 5f 49 44  25 0d 31 56 0d c9 45 5f  |=Self_ID%.1V..E_|
00003540  4d 41 54 42 53 25 0d 31  7e 08 c8 8e b9 ca 0d 31  |MATBS%.1~......1|
00003550  88 1a c9 28 ac 50 61 73  73 77 6f 72 64 73 5f 45  |...(.Passwords_E|
00003560  6e 61 62 6c 65 64 25 29  0d 31 b0 27 f2 69 62 61  |nabled%).1.'.iba|
00003570  72 6d 65 6e 75 5f 67 72  65 79 73 28 31 2c 30 2c  |rmenu_greys(1,0,|
00003580  30 2c 30 2c 22 42 6f 6f  74 70 6c 75 73 22 29 0d  |0,0,"Bootplus").|
00003590  31 ba 30 c9 28 28 4c 6f  67 67 65 64 5f 55 73 65  |1.0.((Logged_Use|
000035a0  72 24 3d 4f 77 6e 65 72  24 29 80 20 50 61 73 73  |r$=Owner$). Pass|
000035b0  77 6f 72 64 73 5f 45 6e  61 62 6c 65 64 25 29 0d  |words_Enabled%).|
000035c0  31 e2 2d f2 69 62 61 72  6d 65 6e 75 5f 67 72 65  |1.-.ibarmenu_gre|
000035d0  79 73 28 30 2c 30 2c 30  2c 30 2c 22 4c 6f 67 67  |ys(0,0,0,0,"Logg|
000035e0  65 64 20 3a 20 4f 57 4e  45 52 22 29 0d 31 ec 2c  |ed : OWNER").1.,|
000035f0  c9 28 28 4c 6f 67 67 65  64 5f 55 73 65 72 24 3d  |.((Logged_User$=|
00003600  22 22 29 80 20 50 61 73  73 77 6f 72 64 73 5f 45  |""). Passwords_E|
00003610  6e 61 62 6c 65 64 25 29  0d 32 14 27 f2 69 62 61  |nabled%).2.'.iba|
00003620  72 6d 65 6e 75 5f 67 72  65 79 73 28 30 2c 31 2c  |rmenu_greys(0,1,|
00003630  31 2c 31 2c 22 42 6f 6f  74 70 6c 75 73 22 29 0d  |1,1,"Bootplus").|
00003640  32 1e 32 c9 28 28 4c 6f  67 67 65 64 5f 55 73 65  |2.2.((Logged_Use|
00003650  72 24 3d 22 4c 4f 47 4f  46 46 22 29 80 20 50 61  |r$="LOGOFF"). Pa|
00003660  73 73 77 6f 72 64 73 5f  45 6e 61 62 6c 65 64 25  |sswords_Enabled%|
00003670  29 0d 32 46 29 f2 69 62  61 72 6d 65 6e 75 5f 67  |).2F).ibarmenu_g|
00003680  72 65 79 73 28 30 2c 31  2c 31 2c 31 2c 22 4c 6f  |reys(0,1,1,1,"Lo|
00003690  67 67 65 64 20 4f 66 66  22 29 0d 32 50 05 7f 0d  |gged Off").2P...|
000036a0  32 78 35 f2 69 62 61 72  6d 65 6e 75 5f 67 72 65  |2x5.ibarmenu_gre|
000036b0  79 73 28 30 2c 31 2c 31  2c 30 2c 22 4c 6f 67 67  |ys(0,1,1,0,"Logg|
000036c0  65 64 20 3a 20 22 2b 4c  6f 67 67 65 64 5f 55 73  |ed : "+Logged_Us|
000036d0  65 72 24 29 0d 32 82 05  cb 0d 32 8c 0b c9 45 5f  |er$).2....2...E_|
000036e0  55 51 41 25 0d 32 b4 0b  51 75 69 74 25 3d b9 0d  |UQA%.2..Quit%=..|
000036f0  32 be 05 cb 0d 32 c8 05  e1 0d 33 0e 15 dd f2 68  |2....2....3....h|
00003700  61 6e 64 6c 65 5f 6d 61  69 6e 6c 69 73 74 0d 33  |andle_mainlist.3|
00003710  22 07 ea 4b 25 0d 33 36  12 c8 8e 45 76 65 6e 74  |"..K%.36...Event|
00003720  5f 43 6f 64 65 25 ca 0d  33 40 0c c9 45 5f 54 4f  |_Code%..3@..E_TO|
00003730  41 43 25 0d 33 68 19 4d  61 69 6e 6c 69 73 74 5f  |AC%.3h.Mainlist_|
00003740  49 44 25 3d 53 65 6c 66  5f 49 44 25 0d 33 72 2c  |ID%=Self_ID%.3r,|
00003750  c8 99 54 5f 54 4f 4d 4f  25 2c 30 2c 4d 61 69 6e  |..T_TOMO%,0,Main|
00003760  6c 69 73 74 5f 49 44 25  2c 30 b8 53 75 62 6c 69  |list_ID%,0.Subli|
00003770  73 74 25 28 31 2c 32 29  0d 33 7c 2b c8 99 54 5f  |st%(1,2).3|+..T_|
00003780  54 4f 4d 4f 25 2c 30 2c  4d 61 69 6e 6c 69 73 74  |TOMO%,0,Mainlist|
00003790  5f 49 44 25 2c 36 38 2c  35 2c 42 75 66 32 25 2c  |_ID%,68,5,Buf2%,|
000037a0  31 32 38 0d 33 86 16 44  75 73 74 62 69 6e 5f 49  |128.3..Dustbin_I|
000037b0  44 25 3d 21 42 75 66 32  25 0d 33 90 0b c9 45 5f  |D%=!Buf2%.3...E_|
000037c0  41 42 53 25 0d 33 b8 16  c8 8e 53 65 6c 66 5f 43  |ABS%.3....Self_C|
000037d0  6f 6d 70 6f 6e 65 6e 74  25 ca 0d 33 c2 06 c9 33  |omponent%..3...3|
000037e0  0d 33 ea 10 f2 67 65 74  5f 61 70 70 6c 69 73 74  |.3...get_applist|
000037f0  0d 33 f4 19 f2 73 65 74  5f 6c 69 73 74 5f 65 78  |.3...set_list_ex|
00003800  74 65 6e 74 28 31 2c b9  29 0d 33 fe 16 f2 64 72  |tent(1,.).3...dr|
00003810  61 77 5f 73 75 62 28 31  2c 32 2c a3 2c 30 29 0d  |aw_sub(1,2,.,0).|
00003820  34 08 06 c9 34 0d 34 30  17 f2 61 70 70 6c 79 5f  |4...4.40..apply_|
00003830  65 64 69 74 5f 63 68 61  6e 67 65 73 0d 34 3a 0c  |edit_changes.4:.|
00003840  53 61 76 65 64 25 3d b9  0d 34 44 05 cb 0d 34 4e  |Saved%=..4D...4N|
00003850  0c c9 45 5f 57 48 42 48  25 0d 34 76 1a c8 99 54  |..E_WHBH%.4v...T|
00003860  5f 54 48 4f 25 2c 30 2c  53 75 62 6c 69 73 74 5f  |_THO%,0,Sublist_|
00003870  49 44 25 0d 34 80 15 f2  63 68 65 63 6b 5f 69 66  |ID%.4...check_if|
00003880  5f 61 70 70 6c 69 65 64  0d 34 8a 05 cb 0d 34 94  |_applied.4....4.|
00003890  05 e1 0d 34 da 18 dd f2  68 61 6e 64 6c 65 5f 6d  |...4....handle_m|
000038a0  61 69 6e 74 65 6e 61 6e  63 65 0d 35 02 08 ea 62  |aintenance.5...b|
000038b0  74 25 0d 35 16 12 c8 8e  45 76 65 6e 74 5f 43 6f  |t%.5....Event_Co|
000038c0  64 65 25 ca 0d 35 20 0d  c9 45 5f 4d 41 54 42 53  |de%..5 ..E_MATBS|
000038d0  25 0d 35 48 18 e7 50 61  73 73 77 6f 72 64 73 5f  |%.5H..Passwords_|
000038e0  45 6e 61 62 6c 65 64 25  8c 0d 35 70 1e c8 99 54  |Enabled%..5p...T|
000038f0  5f 54 4f 4d 4f 25 2c 30  2c 53 65 6c 66 5f 49 44  |_TOMO%,0,Self_ID|
00003900  25 2c 32 2c 30 2c 30 0d  35 7a 1e c8 99 54 5f 54  |%,2,0,0.5z...T_T|
00003910  4f 4d 4f 25 2c 30 2c 53  65 6c 66 5f 49 44 25 2c  |OMO%,0,Self_ID%,|
00003920  32 2c 31 2c 30 0d 35 84  1f c8 99 54 5f 54 4f 4d  |2,1,0.5....T_TOM|
00003930  4f 25 2c 30 2c 53 65 6c  66 5f 49 44 25 2c 32 2c  |O%,0,Self_ID%,2,|
00003940  26 63 2c 30 0d 35 8e 1f  c8 99 54 5f 54 4f 4d 4f  |&c,0.5....T_TOMO|
00003950  25 2c 30 2c 53 65 6c 66  5f 49 44 25 2c 32 2c 26  |%,0,Self_ID%,2,&|
00003960  64 2c 30 0d 35 98 05 cc  0d 35 c0 1e c8 99 54 5f  |d,0.5....5....T_|
00003970  54 4f 4d 4f 25 2c 30 2c  53 65 6c 66 5f 49 44 25  |TOMO%,0,Self_ID%|
00003980  2c 32 2c 30 2c 31 0d 35  ca 1e c8 99 54 5f 54 4f  |,2,0,1.5....T_TO|
00003990  4d 4f 25 2c 30 2c 53 65  6c 66 5f 49 44 25 2c 32  |MO%,0,Self_ID%,2|
000039a0  2c 31 2c 31 0d 35 d4 1f  c8 99 54 5f 54 4f 4d 4f  |,1,1.5....T_TOMO|
000039b0  25 2c 30 2c 53 65 6c 66  5f 49 44 25 2c 32 2c 26  |%,0,Self_ID%,2,&|
000039c0  63 2c 31 0d 35 de 1f c8  99 54 5f 54 4f 4d 4f 25  |c,1.5....T_TOMO%|
000039d0  2c 30 2c 53 65 6c 66 5f  49 44 25 2c 32 2c 26 64  |,0,Self_ID%,2,&d|
000039e0  2c 31 0d 35 e8 05 cd 0d  35 f2 0a c9 45 5f 4d 53  |,1.5....5...E_MS|
000039f0  25 0d 36 1a 16 c8 8e 53  65 6c 66 5f 43 6f 6d 70  |%.6....Self_Comp|
00003a00  6f 6e 65 6e 74 25 ca 0d  36 24 06 c9 30 0d 36 4c  |onent%..6$..0.6L|
00003a10  1b c8 99 22 4f 53 5f 46  69 6c 65 22 2c 36 2c 4f  |..."OS_File",6,O|
00003a20  6c 6f 67 66 69 6c 65 24  0d 36 56 2a c8 99 22 4f  |logfile$.6V*.."O|
00003a30  53 5f 46 53 43 6f 6e 74  72 6f 6c 22 2c 32 35 2c  |S_FSControl",25,|
00003a40  4c 6f 67 66 69 6c 65 24  2c 4f 6c 6f 67 66 69 6c  |Logfile$,Ologfil|
00003a50  65 24 0d 36 60 20 c8 99  22 4f 53 5f 46 69 6c 65  |e$.6` .."OS_File|
00003a60  22 2c 31 31 2c 4c 6f 67  66 69 6c 65 24 2c 26 46  |",11,Logfile$,&F|
00003a70  46 46 0d 36 6a 06 c9 31  0d 36 92 1d ff 28 22 2a  |FF.6j..1.6...("*|
00003a80  46 69 6c 65 72 5f 52 75  6e 20 22 2b 4c 6f 67 66  |Filer_Run "+Logf|
00003a90  69 6c 65 24 29 0d 36 9c  07 c9 26 64 0d 36 c4 14  |ile$).6...&d.6..|
00003aa0  f2 6b 69 6c 6c 5f 74 68  69 65 66 74 72 61 70 73  |.kill_thieftraps|
00003ab0  0d 36 ce 08 c9 26 31 31  0d 36 f6 1e f2 62 6f 6f  |.6...&11.6...boo|
00003ac0  74 5f 69 6e 73 74 61 6c  6c 28 22 43 48 45 43 4b  |t_install("CHECK|
00003ad0  22 2c 62 74 25 29 0d 37  00 09 e7 62 74 25 8c 0d  |",bt%).7...bt%..|
00003ae0  37 28 28 2a 46 69 6c 65  72 5f 52 75 6e 20 3c 42  |7((*Filer_Run <B|
00003af0  6f 6f 74 24 44 69 72 3e  2e 55 74 69 6c 73 2e 44  |oot$Dir>.Utils.D|
00003b00  65 73 6b 72 75 6e 4f 0d  37 32 05 cc 0d 37 50 27  |eskrunO.72...7P'|
00003b10  2a 46 69 6c 65 72 5f 52  75 6e 20 3c 42 6f 6f 74  |*Filer_Run <Boot|
00003b20  24 64 69 72 3e 2e 55 74  69 6c 73 2e 44 65 73 6b  |$dir>.Utils.Desk|
00003b30  72 75 6e 0d 37 5a 05 cd  0d 37 64 05 cb 0d 37 6e  |run.7Z...7d...7n|
00003b40  05 cb 0d 37 78 05 e1 0d  37 be 12 dd f2 68 61 6e  |...7x...7....han|
00003b50  64 6c 65 5f 6e 6f 64 69  72 0d 37 e6 12 c8 8e 45  |dle_nodir.7....E|
00003b60  76 65 6e 74 5f 43 6f 64  65 25 ca 0d 37 f0 0c c9  |vent_Code%..7...|
00003b70  45 5f 54 4f 41 43 25 0d  38 18 16 4e 6f 64 69 72  |E_TOAC%.8..Nodir|
00003b80  5f 49 44 25 3d 53 65 6c  66 5f 49 44 25 0d 38 22  |_ID%=Self_ID%.8"|
00003b90  29 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 4e 6f 64  |)..T_TOMO%,0,Nod|
00003ba0  69 72 5f 49 44 25 2c 30  b8 53 75 62 6c 69 73 74  |ir_ID%,0.Sublist|
00003bb0  25 28 33 2c 31 29 0d 38  2c 15 53 75 62 6c 69 73  |%(3,1).8,.Sublis|
00003bc0  74 25 28 33 2c 33 29 3d  33 35 32 0d 38 36 16 53  |t%(3,3)=352.86.S|
00003bd0  75 62 6c 69 73 74 25 28  33 2c 34 29 3d 2d 32 38  |ublist%(3,4)=-28|
00003be0  30 0d 38 40 15 53 75 62  6c 69 73 74 25 28 33 2c  |0.8@.Sublist%(3,|
00003bf0  35 29 3d 32 34 34 0d 38  4a 16 53 75 62 6c 69 73  |5)=244.8J.Sublis|
00003c00  74 25 28 33 2c 36 29 3d  2d 32 33 32 0d 38 54 05  |t%(3,6)=-232.8T.|
00003c10  cb 0d 38 5e 05 e1 0d 38  a4 14 dd f2 68 61 6e 64  |..8^...8....hand|
00003c20  6c 65 5f 6f 70 74 69 6f  6e 73 0d 38 cc 2c ea 61  |le_options.8.,.a|
00003c30  25 2c 62 25 2c 63 25 2c  64 25 2c 65 25 2c 66 25  |%,b%,c%,d%,e%,f%|
00003c40  2c 67 25 2c 68 25 2c 69  25 2c 6a 25 2c 6b 25 2c  |,g%,h%,i%,j%,k%,|
00003c50  6c 25 2c 62 74 25 0d 38  e0 12 c8 8e 45 76 65 6e  |l%,bt%.8....Even|
00003c60  74 5f 43 6f 64 65 25 ca  0d 38 ea 0c c9 45 5f 54  |t_Code%..8...E_T|
00003c70  4f 41 43 25 0d 39 12 18  4f 70 74 69 6f 6e 73 5f  |OAC%.9..Options_|
00003c80  49 44 25 3d 53 65 6c 66  5f 49 44 25 0d 39 1c 0d  |ID%=Self_ID%.9..|
00003c90  c9 45 5f 57 41 54 42 53  25 0d 39 44 35 f2 67 65  |.E_WATBS%.9D5.ge|
00003ca0  74 5f 6f 70 74 69 6f 6e  73 28 61 25 2c 62 25 2c  |t_options(a%,b%,|
00003cb0  63 25 2c 64 25 2c 65 25  2c 66 25 2c 67 25 2c 68  |c%,d%,e%,f%,g%,h|
00003cc0  25 2c 69 25 2c 6a 25 2c  6b 25 2c 6c 25 29 0d 39  |%,i%,j%,k%,l%).9|
00003cd0  4e 27 c8 99 54 5f 54 4f  4d 4f 25 2c 30 2c 4f 70  |N'..T_TOMO%,0,Op|
00003ce0  74 69 6f 6e 73 5f 49 44  25 2c 35 31 32 2c 33 2c  |tions_ID%,512,3,|
00003cf0  c3 28 61 25 29 0d 39 58  27 c8 99 54 5f 54 4f 4d  |.(a%).9X'..T_TOM|
00003d00  4f 25 2c 30 2c 4f 70 74  69 6f 6e 73 5f 49 44 25  |O%,0,Options_ID%|
00003d10  2c 35 31 32 2c 31 2c c3  28 62 25 29 0d 39 62 27  |,512,1,.(b%).9b'|
00003d20  c8 99 54 5f 54 4f 4d 4f  25 2c 30 2c 4f 70 74 69  |..T_TOMO%,0,Opti|
00003d30  6f 6e 73 5f 49 44 25 2c  35 31 32 2c 32 2c c3 28  |ons_ID%,512,2,.(|
00003d40  63 25 29 0d 39 6c 25 c8  99 54 5f 54 4f 4d 4f 25  |c%).9l%..T_TOMO%|
00003d50  2c 30 2c 4f 70 74 69 6f  6e 73 5f 49 44 25 2c 31  |,0,Options_ID%,1|
00003d60  39 36 2c 39 2c 2d 64 25  0d 39 76 26 c8 99 54 5f  |96,9,-d%.9v&..T_|
00003d70  54 4f 4d 4f 25 2c 30 2c  4f 70 74 69 6f 6e 73 5f  |TOMO%,0,Options_|
00003d80  49 44 25 2c 31 39 36 2c  26 61 2c 2d 65 25 0d 39  |ID%,196,&a,-e%.9|
00003d90  80 26 c8 99 54 5f 54 4f  4d 4f 25 2c 30 2c 4f 70  |.&..T_TOMO%,0,Op|
00003da0  74 69 6f 6e 73 5f 49 44  25 2c 31 39 36 2c 26 63  |tions_ID%,196,&c|
00003db0  2c 2d 66 25 0d 39 8a 26  c8 99 54 5f 54 4f 4d 4f  |,-f%.9.&..T_TOMO|
00003dc0  25 2c 30 2c 4f 70 74 69  6f 6e 73 5f 49 44 25 2c  |%,0,Options_ID%,|
00003dd0  31 39 36 2c 26 64 2c 2d  67 25 0d 39 94 27 c8 99  |196,&d,-g%.9.'..|
00003de0  54 5f 54 4f 4d 4f 25 2c  30 2c 4f 70 74 69 6f 6e  |T_TOMO%,0,Option|
00003df0  73 5f 49 44 25 2c 31 39  36 2c 26 31 34 2c 2d 68  |s_ID%,196,&14,-h|
00003e00  25 0d 39 9e 27 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |%.9.'..T_TOMO%,0|
00003e10  2c 4f 70 74 69 6f 6e 73  5f 49 44 25 2c 31 39 36  |,Options_ID%,196|
00003e20  2c 26 31 35 2c 2d 69 25  0d 39 a8 27 c8 99 54 5f  |,&15,-i%.9.'..T_|
00003e30  54 4f 4d 4f 25 2c 30 2c  4f 70 74 69 6f 6e 73 5f  |TOMO%,0,Options_|
00003e40  49 44 25 2c 31 39 36 2c  26 31 36 2c 2d 6a 25 0d  |ID%,196,&16,-j%.|
00003e50  39 b2 27 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 4f  |9.'..T_TOMO%,0,O|
00003e60  70 74 69 6f 6e 73 5f 49  44 25 2c 31 39 36 2c 26  |ptions_ID%,196,&|
00003e70  31 37 2c 2d 6b 25 0d 39  bc 27 c8 99 54 5f 54 4f  |17,-k%.9.'..T_TO|
00003e80  4d 4f 25 2c 30 2c 4f 70  74 69 6f 6e 73 5f 49 44  |MO%,0,Options_ID|
00003e90  25 2c 31 39 36 2c 26 31  38 2c 2d 6c 25 0d 39 c6  |%,196,&18,-l%.9.|
00003ea0  1e f2 62 6f 6f 74 5f 69  6e 73 74 61 6c 6c 28 22  |..boot_install("|
00003eb0  43 48 45 43 4b 22 2c 62  74 25 29 0d 39 d0 30 c8  |CHECK",bt%).9.0.|
00003ec0  99 54 5f 54 4f 4d 4f 25  2c 30 2c 4f 70 74 69 6f  |.T_TOMO%,0,Optio|
00003ed0  6e 73 5f 49 44 25 2c 36  35 2c 26 31 42 2c 62 74  |ns_ID%,65,&1B,bt|
00003ee0  25 80 26 38 30 30 30 30  30 30 30 0d 39 da 33 c8  |%.&80000000.9.3.|
00003ef0  99 54 5f 54 4f 4d 4f 25  2c 30 2c 4f 70 74 69 6f  |.T_TOMO%,0,Optio|
00003f00  6e 73 5f 49 44 25 2c 36  35 2c 26 31 43 2c 28 ac  |ns_ID%,65,&1C,(.|
00003f10  62 74 25 29 80 26 38 30  30 30 30 30 30 30 0d 39  |bt%).&80000000.9|
00003f20  e4 0b c9 45 5f 41 42 53  25 0d 3a 0c 33 c8 99 54  |...E_ABS%.:.3..T|
00003f30  5f 54 4f 4d 4f 25 2c 30  2c 4f 70 74 69 6f 6e 73  |_TOMO%,0,Options|
00003f40  5f 49 44 25 2c 35 31 33  2c 33 2c 42 75 66 31 25  |_ID%,513,3,Buf1%|
00003f50  2c 31 32 38 b8 2c 2c 2c  2c 2c 6c 25 0d 3a 16 1c  |,128.,,,,,l%.:..|
00003f60  42 75 66 31 25 3f 6c 25  3d 31 33 3a 61 25 3d bb  |Buf1%?l%=13:a%=.|
00003f70  28 24 42 75 66 31 25 29  0d 3a 20 33 c8 99 54 5f  |($Buf1%).: 3..T_|
00003f80  54 4f 4d 4f 25 2c 30 2c  4f 70 74 69 6f 6e 73 5f  |TOMO%,0,Options_|
00003f90  49 44 25 2c 35 31 33 2c  31 2c 42 75 66 31 25 2c  |ID%,513,1,Buf1%,|
00003fa0  31 32 38 b8 2c 2c 2c 2c  2c 6c 25 0d 3a 2a 1c 42  |128.,,,,,l%.:*.B|
00003fb0  75 66 31 25 3f 6c 25 3d  31 33 3a 62 25 3d bb 28  |uf1%?l%=13:b%=.(|
00003fc0  24 42 75 66 31 25 29 0d  3a 34 33 c8 99 54 5f 54  |$Buf1%).:43..T_T|
00003fd0  4f 4d 4f 25 2c 30 2c 4f  70 74 69 6f 6e 73 5f 49  |OMO%,0,Options_I|
00003fe0  44 25 2c 35 31 33 2c 32  2c 42 75 66 31 25 2c 31  |D%,513,2,Buf1%,1|
00003ff0  32 38 b8 2c 2c 2c 2c 2c  6c 25 0d 3a 3e 1c 42 75  |28.,,,,,l%.:>.Bu|
00004000  66 31 25 3f 6c 25 3d 31  33 3a 63 25 3d bb 28 24  |f1%?l%=13:c%=.($|
00004010  42 75 66 31 25 29 0d 3a  48 24 c8 99 54 5f 54 4f  |Buf1%).:H$..T_TO|
00004020  4d 4f 25 2c 30 2c 4f 70  74 69 6f 6e 73 5f 49 44  |MO%,0,Options_ID|
00004030  25 2c 31 39 37 2c 39 b8  64 25 0d 3a 52 25 c8 99  |%,197,9.d%.:R%..|
00004040  54 5f 54 4f 4d 4f 25 2c  30 2c 4f 70 74 69 6f 6e  |T_TOMO%,0,Option|
00004050  73 5f 49 44 25 2c 31 39  37 2c 26 61 b8 65 25 0d  |s_ID%,197,&a.e%.|
00004060  3a 5c 25 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 4f  |:\%..T_TOMO%,0,O|
00004070  70 74 69 6f 6e 73 5f 49  44 25 2c 31 39 37 2c 26  |ptions_ID%,197,&|
00004080  63 b8 66 25 0d 3a 66 25  c8 99 54 5f 54 4f 4d 4f  |c.f%.:f%..T_TOMO|
00004090  25 2c 30 2c 4f 70 74 69  6f 6e 73 5f 49 44 25 2c  |%,0,Options_ID%,|
000040a0  31 39 37 2c 26 64 b8 67  25 0d 3a 70 26 c8 99 54  |197,&d.g%.:p&..T|
000040b0  5f 54 4f 4d 4f 25 2c 30  2c 4f 70 74 69 6f 6e 73  |_TOMO%,0,Options|
000040c0  5f 49 44 25 2c 31 39 37  2c 26 31 34 b8 68 25 0d  |_ID%,197,&14.h%.|
000040d0  3a 7a 26 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 4f  |:z&..T_TOMO%,0,O|
000040e0  70 74 69 6f 6e 73 5f 49  44 25 2c 31 39 37 2c 26  |ptions_ID%,197,&|
000040f0  31 35 b8 69 25 0d 3a 84  26 c8 99 54 5f 54 4f 4d  |15.i%.:.&..T_TOM|
00004100  4f 25 2c 30 2c 4f 70 74  69 6f 6e 73 5f 49 44 25  |O%,0,Options_ID%|
00004110  2c 31 39 37 2c 26 31 36  b8 6a 25 0d 3a 8e 26 c8  |,197,&16.j%.:.&.|
00004120  99 54 5f 54 4f 4d 4f 25  2c 30 2c 4f 70 74 69 6f  |.T_TOMO%,0,Optio|
00004130  6e 73 5f 49 44 25 2c 31  39 37 2c 26 31 37 b8 6b  |ns_ID%,197,&17.k|
00004140  25 0d 3a 98 26 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |%.:.&..T_TOMO%,0|
00004150  2c 4f 70 74 69 6f 6e 73  5f 49 44 25 2c 31 39 37  |,Options_ID%,197|
00004160  2c 26 31 38 b8 6c 25 0d  3a a2 16 c8 8e 53 65 6c  |,&18.l%.:....Sel|
00004170  66 5f 43 6f 6d 70 6f 6e  65 6e 74 25 ca 0d 3a ac  |f_Component%..:.|
00004180  08 c9 26 31 61 0d 3a d4  1c f2 62 6f 6f 74 5f 69  |..&1a.:...boot_i|
00004190  6e 73 74 61 6c 6c 28 22  4f 55 54 22 2c 62 74 25  |nstall("OUT",bt%|
000041a0  29 0d 3a de 14 f2 6b 69  6c 6c 5f 74 68 69 65 66  |).:...kill_thief|
000041b0  74 72 61 70 73 0d 3a e8  11 f2 70 61 75 73 65 5f  |traps.:...pause_|
000041c0  6c 6f 67 69 6e 73 0d 3a  f2 12 f2 72 65 6d 6f 76  |logins.:...remov|
000041d0  65 5f 6c 6f 67 69 6e 73  0d 3a fc 50 f2 73 61 76  |e_logins.:.P.sav|
000041e0  65 5f 6f 70 74 69 6f 6e  73 28 61 25 2c 62 25 2c  |e_options(a%,b%,|
000041f0  63 25 2c 28 64 25 3d 31  29 2c 28 65 25 3d 31 29  |c%,(d%=1),(e%=1)|
00004200  2c 28 66 25 3d 31 29 2c  28 67 25 3d 31 29 2c 28  |,(f%=1),(g%=1),(|
00004210  68 25 3d 31 29 2c 28 69  25 3d 31 29 2c 28 6a 25  |h%=1),(i%=1),(j%|
00004220  3d 31 29 2c 30 2c 30 29  0d 3b 06 10 f2 63 6c 65  |=1),0,0).;...cle|
00004230  61 72 5f 65 64 69 74 73  0d 3b 10 08 c9 26 31 62  |ar_edits.;...&1b|
00004240  0d 3b 38 1b f2 62 6f 6f  74 5f 69 6e 73 74 61 6c  |.;8..boot_instal|
00004250  6c 28 22 49 4e 22 2c 62  74 25 29 0d 3b 42 2c c8  |l("IN",bt%).;B,.|
00004260  99 54 5f 54 4f 4d 4f 25  2c 30 2c 4f 70 74 69 6f  |.T_TOMO%,0,Optio|
00004270  6e 73 5f 49 44 25 2c 36  35 2c 26 31 42 2c 26 38  |ns_ID%,65,&1B,&8|
00004280  30 30 30 30 30 30 30 0d  3b 4c 24 c8 99 54 5f 54  |0000000.;L$..T_T|
00004290  4f 4d 4f 25 2c 30 2c 4f  70 74 69 6f 6e 73 5f 49  |OMO%,0,Options_I|
000042a0  44 25 2c 36 35 2c 26 31  43 2c 30 0d 3b 56 08 c9  |D%,65,&1C,0.;V..|
000042b0  26 31 43 0d 3b 7e 1c f2  62 6f 6f 74 5f 69 6e 73  |&1C.;~..boot_ins|
000042c0  74 61 6c 6c 28 22 4f 55  54 22 2c 62 74 25 29 0d  |tall("OUT",bt%).|
000042d0  3b 88 24 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 4f  |;.$..T_TOMO%,0,O|
000042e0  70 74 69 6f 6e 73 5f 49  44 25 2c 36 35 2c 26 31  |ptions_ID%,65,&1|
000042f0  42 2c 30 0d 3b 92 2c c8  99 54 5f 54 4f 4d 4f 25  |B,0.;.,..T_TOMO%|
00004300  2c 30 2c 4f 70 74 69 6f  6e 73 5f 49 44 25 2c 36  |,0,Options_ID%,6|
00004310  35 2c 26 31 43 2c 26 38  30 30 30 30 30 30 30 0d  |5,&1C,&80000000.|
00004320  3b 9c 08 c9 26 31 31 0d  3b c4 5a f2 73 61 76 65  |;...&11.;.Z.save|
00004330  5f 6f 70 74 69 6f 6e 73  28 61 25 2c 62 25 2c 63  |_options(a%,b%,c|
00004340  25 2c 28 64 25 3d 31 29  2c 28 65 25 3d 31 29 2c  |%,(d%=1),(e%=1),|
00004350  28 66 25 3d 31 29 2c 28  67 25 3d 31 29 2c 28 68  |(f%=1),(g%=1),(h|
00004360  25 3d 31 29 2c 28 69 25  3d 31 29 2c 28 6a 25 3d  |%=1),(i%=1),(j%=|
00004370  31 29 2c 28 6b 25 3d 31  29 2c 28 6c 25 3d 31 29  |1),(k%=1),(l%=1)|
00004380  29 0d 3b ec 20 e7 28 6b  25 3d 31 29 80 ac 50 61  |).;. .(k%=1)..Pa|
00004390  73 73 77 6f 72 64 73 5f  45 6e 61 62 6c 65 64 25  |sswords_Enabled%|
000043a0  8c 0d 3c 32 1a 50 61 72  65 6e 74 5f 4e 61 6d 65  |..<2.Parent_Name|
000043b0  24 3d 22 4f 70 74 69 6f  6e 73 22 0d 3c 3c 15 f2  |$="Options".<<..|
000043c0  73 68 6f 77 69 6e 67 5f  70 61 73 73 77 6f 72 64  |showing_password|
000043d0  0d 3c 46 2d c8 99 54 5f  54 53 4f 25 2c 30 2c 50  |.<F-..T_TSO%,0,P|
000043e0  61 73 73 77 6f 72 64 5f  49 44 25 2c 30 2c 30 2c  |assword_ID%,0,0,|
000043f0  4f 70 74 69 6f 6e 73 5f  49 44 25 2c 30 0d 3c 50  |Options_ID%,0.<P|
00004400  18 50 61 73 73 77 6f 72  64 73 5f 45 6e 61 62 6c  |.Passwords_Enabl|
00004410  65 64 25 3d b9 0d 3c 5a  22 53 65 71 75 65 6e 63  |ed%=..<Z"Sequenc|
00004420  65 24 3d 22 45 4e 41 42  4c 49 4e 47 20 50 41 53  |e$="ENABLING PAS|
00004430  53 57 4f 52 44 53 22 0d  3c 64 05 cc 0d 3c 6e 20  |SWORDS".<d...<n |
00004440  e7 28 6b 25 3d 30 29 80  20 50 61 73 73 77 6f 72  |.(k%=0). Passwor|
00004450  64 73 5f 45 6e 61 62 6c  65 64 25 8c 0d 3c 96 11  |ds_Enabled%..<..|
00004460  f2 70 61 75 73 65 5f 6c  6f 67 69 6e 73 0d 3c a0  |.pause_logins.<.|
00004470  12 f2 72 65 6d 6f 76 65  5f 6c 6f 67 69 6e 73 0d  |..remove_logins.|
00004480  3c aa 18 50 61 73 73 77  6f 72 64 73 5f 45 6e 61  |<..Passwords_Ena|
00004490  62 6c 65 64 25 3d a3 0d  3c b4 13 4c 6f 67 67 65  |bled%=..<..Logge|
000044a0  64 5f 55 73 65 72 24 3d  22 22 0d 3c be 05 cd 0d  |d_User$="".<....|
000044b0  3c c8 05 cd 0d 3c d2 18  47 75 65 73 74 5f 4c 6f  |<....<..Guest_Lo|
000044c0  67 69 6e 73 25 3d 28 67  25 3d 31 29 0d 3c dc 1d  |gins%=(g%=1).<..|
000044d0  46 75 6c 6c 5f 4f 77 6e  65 72 5f 41 63 63 65 73  |Full_Owner_Acces|
000044e0  73 25 3d 28 69 25 3d 31  29 0d 3c e6 1d 50 61 73  |s%=(i%=1).<..Pas|
000044f0  73 77 6f 72 64 73 5f 45  6e 61 62 6c 65 64 25 3d  |swords_Enabled%=|
00004500  28 6b 25 3d 31 29 0d 3c  f0 17 41 75 74 6f 5f 50  |(k%=1).<..Auto_P|
00004510  72 6f 6d 70 74 25 3d 28  6c 25 3d 31 29 0d 3c fa  |rompt%=(l%=1).<.|
00004520  05 cb 0d 3d 04 05 cb 0d  3d 0e 05 e1 0d 3d 54 15  |...=....=....=T.|
00004530  dd f2 68 61 6e 64 6c 65  5f 70 61 73 73 6d 65 6e  |..handle_passmen|
00004540  75 0d 3d 7c 0d ea 6c 25  2c 6c 24 2c 61 25 0d 3d  |u.=|..l%,l$,a%.=|
00004550  90 12 c8 8e 45 76 65 6e  74 5f 43 6f 64 65 25 ca  |....Event_Code%.|
00004560  0d 3d 9a 0c c9 45 5f 54  4f 41 43 25 0d 3d c2 19  |.=...E_TOAC%.=..|
00004570  50 61 73 73 6d 65 6e 75  5f 49 44 25 3d 53 65 6c  |Passmenu_ID%=Sel|
00004580  66 5f 49 44 25 0d 3d cc  0d c9 45 5f 4d 41 54 42  |f_ID%.=...E_MATB|
00004590  53 25 0d 3d f4 13 c8 8e  4c 6f 67 67 65 64 5f 55  |S%.=....Logged_U|
000045a0  73 65 72 24 ca 0d 3d fe  07 c9 22 22 0d 3e 26 20  |ser$..=..."".>& |
000045b0  f2 70 61 73 73 6d 65 6e  75 5f 67 72 65 79 73 28  |.passmenu_greys(|
000045c0  30 2c 31 2c 31 2c 31 2c  31 2c 31 29 0d 3e 30 0b  |0,1,1,1,1,1).>0.|
000045d0  c9 4f 77 6e 65 72 24 0d  3e 58 20 f2 70 61 73 73  |.Owner$.>X .pass|
000045e0  6d 65 6e 75 5f 67 72 65  79 73 28 30 2c 30 2c 30  |menu_greys(0,0,0|
000045f0  2c 30 2c 30 2c 30 29 0d  3e 62 0d c9 22 4c 4f 47  |,0,0,0).>b.."LOG|
00004600  4f 46 46 22 0d 3e 8a 20  f2 70 61 73 73 6d 65 6e  |OFF".>. .passmen|
00004610  75 5f 67 72 65 79 73 28  30 2c 31 2c 31 2c 31 2c  |u_greys(0,1,1,1,|
00004620  31 2c 31 29 0d 3e 94 05  7f 0d 3e bc 20 f2 70 61  |1,1).>....>. .pa|
00004630  73 73 6d 65 6e 75 5f 67  72 65 79 73 28 30 2c 30  |ssmenu_greys(0,0|
00004640  2c 30 2c 31 2c 31 2c 31  29 0d 3e c6 05 cb 0d 3e  |,0,1,1,1).>....>|
00004650  d0 0a c9 45 5f 4d 53 25  0d 3e f8 16 c8 8e 53 65  |...E_MS%.>....Se|
00004660  6c 66 5f 43 6f 6d 70 6f  6e 65 6e 74 25 ca 0d 3f  |lf_Component%..?|
00004670  02 07 c9 26 44 0d 3f 2a  19 4c 6f 67 67 65 64 5f  |...&D.?*.Logged_|
00004680  55 73 65 72 24 3d 22 4c  4f 47 4f 46 46 22 0d 3f  |User$="LOGOFF".?|
00004690  34 1a e7 28 5a 7a 7a 7a  70 61 73 73 5f 53 74 61  |4..(Zzzzpass_Sta|
000046a0  74 75 73 25 3d 33 29 8c  0d 3f 5c 17 f2 69 6e 66  |tus%=3)..?\..inf|
000046b0  6f 72 6d 5f 7a 7a 7a 7a  70 61 73 73 28 30 29 0d  |orm_zzzzpass(0).|
000046c0  3f 66 05 cd 0d 3f 70 12  e7 41 75 74 6f 5f 50 72  |?f...?p..Auto_Pr|
000046d0  6f 6d 70 74 25 8c 0d 3f  98 2e c8 99 54 5f 54 53  |ompt%..?....T_TS|
000046e0  4f 25 2c 30 2c 50 61 73  73 77 6f 72 64 5f 49 44  |O%,0,Password_ID|
000046f0  25 2c 30 2c 30 2c 50 61  73 73 6d 65 6e 75 5f 49  |%,0,0,Passmenu_I|
00004700  44 25 2c 37 0d 3f a2 19  53 65 71 75 65 6e 63 65  |D%,7.?..Sequence|
00004710  24 3d 22 50 52 4f 4d 50  54 49 4e 47 22 0d 3f ac  |$="PROMPTING".?.|
00004720  05 cd 0d 3f b6 07 c9 26  43 0d 3f e8 0b 52 75 73  |...?...&C.?..Rus|
00004730  72 25 3d 31 0d 3f f2 11  f2 6d 61 6b 65 5f 64 69  |r%=1.?...make_di|
00004740  72 6c 69 73 74 0d 40 1a  09 6c 24 3d 22 22 0d 40  |rlist.@..l$="".@|
00004750  24 11 e3 61 25 3d 31 b8  52 75 73 65 72 73 25 0d  |$..a%=1.Rusers%.|
00004760  40 2e 11 6c 24 2b 3d 52  75 73 72 24 28 61 25 29  |@..l$+=Rusr$(a%)|
00004770  0d 40 38 17 e7 61 25 3c  52 75 73 65 72 73 25 8c  |.@8..a%<Rusers%.|
00004780  6c 24 2b 3d 22 2c 22 0d  40 42 07 ed 61 25 0d 40  |l$+=",".@B..a%.@|
00004790  4c 29 c8 99 54 5f 54 4f  4d 4f 25 2c 30 2c 55 73  |L)..T_TOMO%,0,Us|
000047a0  65 72 61 63 63 65 73 73  5f 49 44 25 2c 38 39 36  |eraccess_ID%,896|
000047b0  2c 26 31 62 2c 6c 24 0d  40 56 28 c8 99 54 5f 54  |,&1b,l$.@V(..T_T|
000047c0  4f 4d 4f 25 2c 31 2c 55  73 65 72 61 63 63 65 73  |OMO%,1,Useracces|
000047d0  73 5f 49 44 25 2c 38 39  38 2c 26 31 62 2c 30 0d  |s_ID%,898,&1b,0.|
000047e0  40 60 11 f2 75 73 65 72  5f 67 61 64 67 65 74 73  |@`..user_gadgets|
000047f0  0d 40 6a 13 f2 64 72 61  77 5f 6d 61 69 6e 28 32  |.@j..draw_main(2|
00004800  2c 30 29 0d 40 74 05 cb  0d 40 7e 05 cb 0d 40 88  |,0).@t...@~...@.|
00004810  05 e1 0d 40 ce 15 dd f2  68 61 6e 64 6c 65 5f 70  |...@....handle_p|
00004820  61 73 73 77 6f 72 64 0d  40 f6 2c ea 61 25 2c 62  |assword.@.,.a%,b|
00004830  25 2c 63 25 2c 64 25 2c  65 25 2c 66 25 2c 67 25  |%,c%,d%,e%,f%,g%|
00004840  2c 68 25 2c 69 25 2c 6a  25 2c 6b 25 2c 6c 25 2c  |,h%,i%,j%,k%,l%,|
00004850  77 68 25 0d 41 0a 12 c8  8e 45 76 65 6e 74 5f 43  |wh%.A....Event_C|
00004860  6f 64 65 25 ca 0d 41 14  0c c9 45 5f 54 4f 41 43  |ode%..A...E_TOAC|
00004870  25 0d 41 3c 19 50 61 73  73 77 6f 72 64 5f 49 44  |%.A<.Password_ID|
00004880  25 3d 53 65 6c 66 5f 49  44 25 0d 41 46 0d c9 45  |%=Self_ID%.AF..E|
00004890  5f 57 41 54 42 53 25 0d  41 6e 15 f2 73 68 6f 77  |_WATBS%.An..show|
000048a0  69 6e 67 5f 70 61 73 73  77 6f 72 64 0d 41 78 1b  |ing_password.Ax.|
000048b0  e7 53 65 71 75 65 6e 63  65 24 3d 22 50 52 4f 4d  |.Sequence$="PROM|
000048c0  50 54 49 4e 47 22 8c 0d  41 aa 12 f2 6c 6f 63 6b  |PTING"..A...lock|
000048d0  5f 6d 6f 75 73 65 28 b9  29 0d 41 b4 05 cc 0d 41  |_mouse(.).A....A|
000048e0  be 12 f2 6c 6f 63 6b 5f  6d 6f 75 73 65 28 a3 29  |...lock_mouse(.)|
000048f0  0d 41 c8 05 cd 0d 41 d2  0c c9 45 5f 57 48 42 48  |.A....A...E_WHBH|
00004900  25 0d 41 fa 10 c8 8e 53  65 71 75 65 6e 63 65 24  |%.A....Sequence$|
00004910  ca 0d 42 04 19 c9 22 45  4e 41 42 4c 49 4e 47 20  |..B..."ENABLING |
00004920  50 41 53 53 57 4f 52 44  53 22 0d 42 2c 35 f2 67  |PASSWORDS".B,5.g|
00004930  65 74 5f 6f 70 74 69 6f  6e 73 28 61 25 2c 62 25  |et_options(a%,b%|
00004940  2c 63 25 2c 64 25 2c 65  25 2c 66 25 2c 67 25 2c  |,c%,d%,e%,f%,g%,|
00004950  68 25 2c 69 25 2c 6a 25  2c 6b 25 2c 6c 25 29 0d  |h%,i%,j%,k%,l%).|
00004960  42 36 35 f2 73 61 76 65  5f 6f 70 74 69 6f 6e 73  |B65.save_options|
00004970  28 61 25 2c 62 25 2c 63  25 2c 64 25 2c 65 25 2c  |(a%,b%,c%,d%,e%,|
00004980  66 25 2c 67 25 2c 68 25  2c 69 25 2c 6a 25 2c a3  |f%,g%,h%,i%,j%,.|
00004990  2c 6c 25 29 0d 42 40 18  50 61 73 73 77 6f 72 64  |,l%).B@.Password|
000049a0  73 5f 45 6e 61 62 6c 65  64 25 3d a3 0d 42 4a 16  |s_Enabled%=..BJ.|
000049b0  53 65 71 75 65 6e 63 65  24 3d 22 4e 4f 52 4d 41  |Sequence$="NORMA|
000049c0  4c 22 0d 42 54 10 c9 22  50 52 4f 4d 50 54 49 4e  |L".BT.."PROMPTIN|
000049d0  47 22 0d 42 7c 15 e7 4c  6f 67 67 65 64 5f 55 73  |G".B|..Logged_Us|
000049e0  65 72 24 3d 22 22 8c 0d  42 a4 2e c8 99 54 5f 54  |er$=""..B....T_T|
000049f0  53 4f 25 2c 30 2c 50 61  73 73 77 6f 72 64 5f 49  |SO%,0,Password_I|
00004a00  44 25 2c 30 2c 30 2c 50  61 73 73 6d 65 6e 75 5f  |D%,0,0,Passmenu_|
00004a10  49 44 25 2c 37 0d 42 ae  05 cd 0d 42 b8 0d c9 22  |ID%,7.B....B..."|
00004a20  4e 4f 52 4d 41 4c 22 0d  42 e0 25 c8 99 22 4f 53  |NORMAL".B.%.."OS|
00004a30  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00004a40  65 22 2c 2d 31 2c 34 b8  2c 2c 61 25 0d 42 ea 26  |e",-1,4.,,a%.B.&|
00004a50  c8 99 22 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |.."OS_ReadModeVa|
00004a60  72 69 61 62 6c 65 22 2c  2d 31 2c 31 31 b8 2c 2c  |riable",-1,11.,,|
00004a70  62 25 0d 42 f4 25 c8 99  22 4f 53 5f 52 65 61 64  |b%.B.%.."OS_Read|
00004a80  4d 6f 64 65 56 61 72 69  61 62 6c 65 22 2c 2d 31  |ModeVariable",-1|
00004a90  2c 35 b8 2c 2c 63 25 0d  42 fe 26 c8 99 22 4f 53  |,5.,,c%.B.&.."OS|
00004aa0  5f 52 65 61 64 4d 6f 64  65 56 61 72 69 61 62 6c  |_ReadModeVariabl|
00004ab0  65 22 2c 2d 31 2c 31 32  b8 2c 2c 64 25 0d 43 08  |e",-1,12.,,d%.C.|
00004ac0  21 c8 97 c8 93 30 2c 30  2c 28 62 25 2b 31 29 3c  |!....0,0,(b%+1)<|
00004ad0  3c 61 25 2c 28 64 25 2b  31 29 3c 3c 63 25 0d 43  |<a%,(d%+1)<<c%.C|
00004ae0  12 05 cd 0d 43 1c 05 cb  0d 43 26 0b c9 45 5f 41  |....C....C&..E_A|
00004af0  42 53 25 0d 43 4e 16 c8  8e 53 65 6c 66 5f 43 6f  |BS%.CN...Self_Co|
00004b00  6d 70 6f 6e 65 6e 74 25  ca 0d 43 58 06 c9 38 0d  |mponent%..CX..8.|
00004b10  43 80 17 f2 61 63 74 69  6f 6e 5f 6f 6b 5f 70 61  |C...action_ok_pa|
00004b20  73 73 77 6f 72 64 0d 43  8a 06 c9 39 0d 43 b2 3c  |ssword.C...9.C.<|
00004b30  c8 99 54 5f 54 53 4f 25  2c 30 2c 50 61 73 73 77  |..T_TSO%,0,Passw|
00004b40  6f 72 64 5f 49 44 25 2c  30 2c 30 2c 50 61 72 65  |ord_ID%,0,0,Pare|
00004b50  6e 74 5f 49 44 25 2c 50  61 72 65 6e 74 5f 43 6f  |nt_ID%,Parent_Co|
00004b60  6d 70 6f 6e 65 6e 74 25  0d 43 bc 05 cb 0d 43 c6  |mponent%.C....C.|
00004b70  05 cb 0d 43 d0 05 e1 0d  44 16 14 dd f2 68 61 6e  |...C....D....han|
00004b80  64 6c 65 5f 73 75 62 6c  69 73 74 0d 44 3e 12 c8  |dle_sublist.D>..|
00004b90  8e 45 76 65 6e 74 5f 43  6f 64 65 25 ca 0d 44 48  |.Event_Code%..DH|
00004ba0  0c c9 45 5f 54 4f 41 43  25 0d 44 70 18 53 75 62  |..E_TOAC%.Dp.Sub|
00004bb0  6c 69 73 74 5f 49 44 25  3d 53 65 6c 66 5f 49 44  |list_ID%=Self_ID|
00004bc0  25 0d 44 7a 2b c8 99 54  5f 54 4f 4d 4f 25 2c 30  |%.Dz+..T_TOMO%,0|
00004bd0  2c 53 75 62 6c 69 73 74  5f 49 44 25 2c 30 b8 53  |,Sublist_ID%,0.S|
00004be0  75 62 6c 69 73 74 25 28  31 2c 31 29 0d 44 84 14  |ublist%(1,1).D..|
00004bf0  53 75 62 6c 69 73 74 25  28 31 2c 33 29 3d 36 34  |Sublist%(1,3)=64|
00004c00  0d 44 8e 15 53 75 62 6c  69 73 74 25 28 31 2c 34  |.D..Sublist%(1,4|
00004c10  29 3d 2d 36 34 0d 44 98  15 53 75 62 6c 69 73 74  |)=-64.D..Sublist|
00004c20  25 28 31 2c 35 29 3d 38  31 32 0d 44 a2 16 53 75  |%(1,5)=812.D..Su|
00004c30  62 6c 69 73 74 25 28 31  2c 36 29 3d 2d 32 33 32  |blist%(1,6)=-232|
00004c40  0d 44 ac 05 cb 0d 44 b6  05 e1 0d 44 fc 16 dd f2  |.D....D....D....|
00004c50  68 61 6e 64 6c 65 5f 74  68 69 65 66 74 72 61 70  |handle_thieftrap|
00004c60  0d 45 24 12 c8 8e 45 76  65 6e 74 5f 43 6f 64 65  |.E$...Event_Code|
00004c70  25 ca 0d 45 2e 0c c9 45  5f 54 4f 41 43 25 0d 45  |%..E...E_TOAC%.E|
00004c80  56 1a 54 68 69 65 66 74  72 61 70 5f 49 44 25 3d  |V.Thieftrap_ID%=|
00004c90  53 65 6c 66 5f 49 44 25  0d 45 60 0d c9 45 5f 57  |Self_ID%.E`..E_W|
00004ca0  41 54 42 53 25 0d 45 88  29 c8 99 54 5f 54 4f 4d  |ATBS%.E.)..T_TOM|
00004cb0  4f 25 2c 30 2c 54 68 69  65 66 74 72 61 70 5f 49  |O%,0,Thieftrap_I|
00004cc0  44 25 2c 4d 5f 44 5f 53  53 25 2c 32 2c 31 0d 45  |D%,M_D_SS%,2,1.E|
00004cd0  92 30 53 6f 75 72 63 65  24 3d 22 3c 42 6f 6f 74  |.0Source$="<Boot|
00004ce0  50 6c 75 73 24 44 69 72  3e 2e 52 65 73 6f 75 72  |Plus$Dir>.Resour|
00004cf0  63 65 73 2e 54 68 69 65  66 74 72 61 70 22 0d 45  |ces.Thieftrap".E|
00004d00  9c 1d 41 70 70 6c 69 63  61 74 69 6f 6e 24 3d 22  |..Application$="|
00004d10  21 54 68 69 65 66 74 72  61 70 22 0d 45 a6 0b c9  |!Thieftrap".E...|
00004d20  45 5f 44 44 45 25 0d 45  ce 0e 42 75 66 32 25 21  |E_DDE%.E..Buf2%!|
00004d30  30 3d 36 34 0d 45 d8 2b  42 75 66 32 25 21 31 32  |0=64.E.+Buf2%!12|
00004d40  3d 30 3a 42 75 66 32 25  21 31 36 3d 31 3a 42 75  |=0:Buf2%!16=1:Bu|
00004d50  66 32 25 21 32 30 3d 42  6c 63 6b 25 21 31 36 0d  |f2%!20=Blck%!16.|
00004d60  45 e2 34 42 75 66 32 25  21 32 38 3d 42 6c 63 6b  |E.4Buf2%!28=Blck|
00004d70  25 21 32 34 3a 42 75 66  32 25 21 33 32 3d 42 6c  |%!24:Buf2%!32=Bl|
00004d80  63 6b 25 21 32 38 3a 42  75 66 32 25 21 33 36 3d  |ck%!28:Buf2%!36=|
00004d90  31 32 38 0d 45 ec 2b 42  75 66 32 25 21 34 30 3d  |128.E.+Buf2%!40=|
00004da0  26 32 30 30 30 3a 24 28  42 75 66 32 25 2b 34 34  |&2000:$(Buf2%+44|
00004db0  29 3d 41 70 70 6c 69 63  61 74 69 6f 6e 24 0d 45  |)=Application$.E|
00004dc0  f6 2a c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |.*.."Wimp_SendMe|
00004dd0  73 73 61 67 65 22 2c 31  37 2c 42 75 66 32 25 2c  |ssage",17,Buf2%,|
00004de0  42 6c 63 6b 25 21 31 36  0d 46 00 05 cb 0d 46 0a  |Blck%!16.F....F.|
00004df0  05 e1 0d 46 50 17 dd f2  68 61 6e 64 6c 65 5f 75  |...FP...handle_u|
00004e00  73 65 72 61 63 63 65 73  73 0d 46 78 0e ea 6c 24  |seraccess.Fx..l$|
00004e10  2c 61 25 2c 6f 76 25 0d  46 8c 12 c8 8e 45 76 65  |,a%,ov%.F....Eve|
00004e20  6e 74 5f 43 6f 64 65 25  ca 0d 46 96 0c c9 45 5f  |nt_Code%..F...E_|
00004e30  54 4f 41 43 25 0d 46 be  1b 55 73 65 72 61 63 63  |TOAC%.F..Useracc|
00004e40  65 73 73 5f 49 44 25 3d  53 65 6c 66 5f 49 44 25  |ess_ID%=Self_ID%|
00004e50  0d 46 c8 2e c8 99 54 5f  54 4f 4d 4f 25 2c 30 2c  |.F....T_TOMO%,0,|
00004e60  55 73 65 72 61 63 63 65  73 73 5f 49 44 25 2c 30  |Useraccess_ID%,0|
00004e70  b8 53 75 62 6c 69 73 74  25 28 32 2c 32 29 0d 46  |.Sublist%(2,2).F|
00004e80  d2 1f 53 75 62 6c 69 73  74 25 28 33 2c 32 29 3d  |..Sublist%(3,2)=|
00004e90  53 75 62 6c 69 73 74 25  28 32 2c 32 29 0d 46 dc  |Sublist%(2,2).F.|
00004ea0  0c c9 45 5f 53 53 56 43  25 0d 47 04 33 c8 99 54  |..E_SSVC%.G.3..T|
00004eb0  5f 54 4f 4d 4f 25 2c 31  2c 55 73 65 72 61 63 63  |_TOMO%,1,Useracc|
00004ec0  65 73 73 5f 49 44 25 2c  38 39 39 2c 26 31 62 2c  |ess_ID%,899,&1b,|
00004ed0  42 75 66 31 25 2c 31 32  38 b8 61 25 0d 47 0e 0e  |Buf1%,128.a%.G..|
00004ee0  52 75 73 72 25 3d 61 25  2b 31 0d 47 36 11 f2 75  |Rusr%=a%+1.G6..u|
00004ef0  73 65 72 5f 67 61 64 67  65 74 73 0d 47 40 19 f2  |ser_gadgets.G@..|
00004f00  73 65 74 5f 6c 69 73 74  5f 65 78 74 65 6e 74 28  |set_list_extent(|
00004f10  32 2c b9 29 0d 47 4a 16  f2 64 72 61 77 5f 73 75  |2,.).GJ..draw_su|
00004f20  62 28 32 2c 32 2c a3 2c  30 29 0d 47 54 19 f2 73  |b(2,2,.,0).GT..s|
00004f30  65 74 5f 6c 69 73 74 5f  65 78 74 65 6e 74 28 33  |et_list_extent(3|
00004f40  2c b9 29 0d 47 5e 16 f2  64 72 61 77 5f 73 75 62  |,.).G^..draw_sub|
00004f50  28 33 2c 32 2c a3 2c 30  29 0d 47 68 0b c9 45 5f  |(3,2,.,0).Gh..E_|
00004f60  41 42 53 25 0d 47 90 16  c8 8e 53 65 6c 66 5f 43  |ABS%.G....Self_C|
00004f70  6f 6d 70 6f 6e 65 6e 74  25 ca 0d 47 9a 08 c9 26  |omponent%..G...&|
00004f80  31 38 0d 47 c2 16 f2 6d  6f 64 69 66 79 5f 75 73  |18.G...modify_us|
00004f90  65 72 61 63 63 65 73 73  0d 47 cc 14 f2 73 61 76  |eraccess.G...sav|
00004fa0  65 5f 75 73 65 72 61 63  63 65 73 73 0d 47 d6 13  |e_useraccess.G..|
00004fb0  f2 73 61 76 65 5f 75 73  65 72 74 69 6d 65 73 0d  |.save_usertimes.|
00004fc0  47 e0 0c 53 61 76 65 64  25 3d b9 0d 47 ea 05 cb  |G..Saved%=..G...|
00004fd0  0d 47 f4 0c c9 45 5f 57  48 42 48 25 0d 48 1c 19  |.G...E_WHBH%.H..|
00004fe0  c8 99 54 5f 54 48 4f 25  2c 30 2c 59 65 73 64 69  |..T_THO%,0,Yesdi|
00004ff0  72 5f 49 44 25 0d 48 26  18 c8 99 54 5f 54 48 4f  |r_ID%.H&...T_THO|
00005000  25 2c 30 2c 4e 6f 64 69  72 5f 49 44 25 0d 48 30  |%,0,Nodir_ID%.H0|
00005010  0d e7 ac 53 61 76 65 64  25 8c 0d 48 3a 2c f2 65  |...Saved%..H:,.e|
00005020  72 72 6f 72 5f 6d 65 73  73 61 67 65 28 22 45 4d  |rror_message("EM|
00005030  39 22 2c 22 22 2c 22 22  2c 22 45 54 33 22 2c 26  |9","","","ET3",&|
00005040  31 33 2c 6b 25 29 0d 48  44 0a e7 6b 25 3d 31 8c  |13,k%).HD..k%=1.|
00005050  0d 48 6c 16 f2 6d 6f 64  69 66 79 5f 75 73 65 72  |.Hl..modify_user|
00005060  61 63 63 65 73 73 0d 48  76 14 f2 73 61 76 65 5f  |access.Hv..save_|
00005070  75 73 65 72 61 63 63 65  73 73 0d 48 80 13 f2 73  |useraccess.H...s|
00005080  61 76 65 5f 75 73 65 72  74 69 6d 65 73 0d 48 8a  |ave_usertimes.H.|
00005090  05 cd 0d 48 94 05 cd 0d  48 9e 0c 53 61 76 65 64  |...H....H..Saved|
000050a0  25 3d b9 0d 48 a8 05 cb  0d 48 b2 05 e1 0d 48 f8  |%=..H....H....H.|
000050b0  13 dd f2 68 61 6e 64 6c  65 5f 79 65 73 64 69 72  |...handle_yesdir|
000050c0  0d 49 20 12 c8 8e 45 76  65 6e 74 5f 43 6f 64 65  |.I ...Event_Code|
000050d0  25 ca 0d 49 2a 0c c9 45  5f 54 4f 41 43 25 0d 49  |%..I*..E_TOAC%.I|
000050e0  52 17 59 65 73 64 69 72  5f 49 44 25 3d 53 65 6c  |R.Yesdir_ID%=Sel|
000050f0  66 5f 49 44 25 0d 49 5c  2a c8 99 54 5f 54 4f 4d  |f_ID%.I\*..T_TOM|
00005100  4f 25 2c 30 2c 59 65 73  64 69 72 5f 49 44 25 2c  |O%,0,Yesdir_ID%,|
00005110  30 b8 53 75 62 6c 69 73  74 25 28 32 2c 31 29 0d  |0.Sublist%(2,1).|
00005120  49 66 14 53 75 62 6c 69  73 74 25 28 32 2c 33 29  |If.Sublist%(2,3)|
00005130  3d 34 34 0d 49 70 16 53  75 62 6c 69 73 74 25 28  |=44.Ip.Sublist%(|
00005140  32 2c 34 29 3d 2d 32 38  30 0d 49 7a 15 53 75 62  |2,4)=-280.Iz.Sub|
00005150  6c 69 73 74 25 28 32 2c  35 29 3d 32 34 34 0d 49  |list%(2,5)=244.I|
00005160  84 16 53 75 62 6c 69 73  74 25 28 32 2c 36 29 3d  |..Sublist%(2,6)=|
00005170  2d 32 33 32 0d 49 8e 05  cb 0d 49 98 05 e1 0d 49  |-232.I....I....I|
00005180  de 10 dd f2 68 61 6e 64  6c 65 5f 77 6d 69 0d 4a  |....handle_wmi.J|
00005190  06 18 ea 6e 6d 24 2c 73  74 24 2c 74 6e 24 2c 70  |...nm$,st$,tn$,p|
000051a0  63 24 2c 74 70 24 0d 4a  1a 12 c8 8e 45 76 65 6e  |c$,tp$.J....Even|
000051b0  74 5f 43 6f 64 65 25 ca  0d 4a 24 0d c9 45 5f 57  |t_Code%..J$..E_W|
000051c0  41 54 42 53 25 0d 4a 4c  24 ff 28 22 2a 41 43 43  |ATBS%.JL$.("*ACC|
000051d0  45 53 53 20 22 2b 4f 77  6e 65 72 66 69 6c 65 24  |ESS "+Ownerfile$|
000051e0  2b 22 20 57 52 2f 52 22  29 0d 4a 56 14 66 25 3d  |+" WR/R").JV.f%=|
000051f0  8e 28 4f 77 6e 65 72 66  69 6c 65 24 29 0d 4a 60  |.(Ownerfile$).J`|
00005200  0b e3 61 25 3d 31 b8 35  0d 4a 6a 0b 61 24 3d be  |..a%=1.5.Jj.a$=.|
00005210  23 66 25 0d 4a 74 24 c8  99 54 5f 54 4f 4d 4f 25  |#f%.Jt$..T_TOMO%|
00005220  2c 30 2c 53 65 6c 66 5f  49 44 25 2c 35 31 32 2c  |,0,Self_ID%,512,|
00005230  61 25 2b 34 2c 61 24 0d  4a 7e 07 ed 61 25 0d 4a  |a%+4,a$.J~..a%.J|
00005240  88 08 d9 23 66 25 0d 4a  92 22 ff 28 22 2a 41 43  |...#f%.J.".("*AC|
00005250  43 45 53 53 20 22 2b 4f  77 6e 65 72 66 69 6c 65  |CESS "+Ownerfile|
00005260  24 2b 22 20 4c 2f 22 29  0d 4a 9c 0b c9 45 5f 41  |$+" L/").J...E_A|
00005270  42 53 25 0d 4a c4 18 e7  53 65 6c 66 5f 43 6f 6d  |BS%.J...Self_Com|
00005280  70 6f 6e 65 6e 74 25 3d  31 30 8c 0d 4a ce 24 ff  |ponent%=10..J.$.|
00005290  28 22 2a 41 43 43 45 53  53 20 22 2b 4f 77 6e 65  |("*ACCESS "+Owne|
000052a0  72 66 69 6c 65 24 2b 22  20 57 52 2f 52 22 29 0d  |rfile$+" WR/R").|
000052b0  4a d8 14 66 25 3d ad 28  4f 77 6e 65 72 66 69 6c  |J..f%=.(Ownerfil|
000052c0  65 24 29 0d 4a e2 0b e3  61 25 3d 31 b8 35 0d 4a  |e$).J...a%=1.5.J|
000052d0  ec 33 c8 99 54 5f 54 4f  4d 4f 25 2c 30 2c 53 65  |.3..T_TOMO%,0,Se|
000052e0  6c 66 5f 49 44 25 2c 35  31 33 2c 61 25 2b 34 2c  |lf_ID%,513,a%+4,|
000052f0  42 75 66 31 25 2c 31 32  38 b8 2c 2c 2c 2c 2c 6c  |Buf1%,128.,,,,,l|
00005300  25 0d 4a f6 0f 42 75 66  31 25 3f 6c 25 3d 31 33  |%.J..Buf1%?l%=13|
00005310  0d 4b 00 0f d5 23 66 25  2c 24 42 75 66 31 25 0d  |.K...#f%,$Buf1%.|
00005320  4b 0a 07 ed 61 25 0d 4b  14 08 d9 23 66 25 0d 4b  |K...a%.K...#f%.K|
00005330  1e 22 ff 28 22 2a 41 43  43 45 53 53 20 22 2b 4f  |.".("*ACCESS "+O|
00005340  77 6e 65 72 66 69 6c 65  24 2b 22 20 4c 2f 22 29  |wnerfile$+" L/")|
00005350  0d 4b 28 05 cd 0d 4b 32  05 cb 0d 4b 3c 05 e1 0d  |.K(...K2...K<...|
00005360  4b 82 1b dd f2 6d 61 6b  65 5f 74 68 69 65 66 74  |K....make_thieft|
00005370  72 61 70 28 64 65 73 74  24 29 0d 4b aa 10 ea 66  |rap(dest$).K...f|
00005380  25 2c 61 25 2c 61 24 2c  70 25 0d 4b be 1c 70 25  |%,a%,a$,p%.K..p%|
00005390  3d a7 64 65 73 74 24 2c  22 2e 21 54 68 69 65 66  |=.dest$,".!Thief|
000053a0  74 72 61 70 22 29 0d 4b  c8 24 ff 28 22 2a 41 63  |trap").K.$.("*Ac|
000053b0  63 65 73 73 20 22 2b 54  68 69 65 66 66 69 6c 65  |cess "+Thieffile|
000053c0  24 2b 22 20 57 52 2f 52  22 29 0d 4b d2 14 66 25  |$+" WR/R").K..f%|
000053d0  3d ad 28 54 68 69 65 66  66 69 6c 65 24 29 0d 4b  |=.(Thieffile$).K|
000053e0  dc 08 61 25 3d 31 0d 4b  e6 05 f5 0d 4b f0 09 61  |..a%=1.K....K..a|
000053f0  25 2b 3d 31 0d 4b fa 0b  61 24 3d be 23 66 25 0d  |%+=1.K..a$=.#f%.|
00005400  4c 04 09 fd c5 23 66 25  0d 4c 0e 20 61 24 3d c0  |L....#f%.L. a$=.|
00005410  64 65 73 74 24 2c 70 25  29 2b 22 21 54 72 61 70  |dest$,p%)+"!Trap|
00005420  5f 22 2b c3 28 61 25 29  0d 4c 36 1e d5 23 66 25  |_"+.(a%).L6..#f%|
00005430  2c 22 2a 57 49 50 45 20  22 2b 61 24 2b 22 20 46  |,"*WIPE "+a$+" F|
00005440  52 7e 43 7e 56 22 0d 4c  40 08 d9 23 66 25 0d 4c  |R~C~V".L@..#f%.L|
00005450  4a 22 ff 28 22 2a 41 63  63 65 73 73 20 22 2b 54  |J".("*Access "+T|
00005460  68 69 65 66 66 69 6c 65  24 2b 22 20 4c 2f 22 29  |hieffile$+" L/")|
00005470  0d 4c 72 3e ff 28 22 2a  43 4f 50 59 20 3c 42 6f  |.Lr>.("*COPY <Bo|
00005480  6f 74 50 6c 75 73 24 44  69 72 3e 2e 52 65 73 6f  |otPlus$Dir>.Reso|
00005490  75 72 63 65 73 2e 54 68  69 65 66 74 72 61 70 20  |urces.Thieftrap |
000054a0  22 2b 61 24 2b 22 20 7e  43 7e 56 52 22 29 0d 4c  |"+a$+" ~C~VR").L|
000054b0  9a 48 ff 28 22 2a 43 4f  50 59 20 3c 42 6f 6f 74  |.H.("*COPY <Boot|
000054c0  50 6c 75 73 24 44 69 72  3e 2e 52 65 73 6f 75 72  |Plus$Dir>.Resour|
000054d0  63 65 73 2e 21 7a 7a 7a  7a 70 61 73 73 20 22 2b  |ces.!zzzzpass "+|
000054e0  61 24 2b 22 2e 21 7a 7a  7a 7a 70 61 73 73 20 7e  |a$+".!zzzzpass ~|
000054f0  43 7e 56 52 22 29 0d 4c  ae 05 e1 0d 4c fe 15 dd  |C~VR").L....L...|
00005500  f2 6b 69 6c 6c 5f 74 68  69 65 66 74 72 61 70 73  |.kill_thieftraps|
00005510  0d 4d 26 0d ea 61 25 2c  61 24 2c 66 25 0d 4d 3a  |.M&..a%,a$,f%.M:|
00005520  24 ff 28 22 2a 41 43 43  45 53 53 20 22 2b 54 68  |$.("*ACCESS "+Th|
00005530  69 65 66 66 69 6c 65 24  2b 22 20 57 52 2f 52 22  |ieffile$+" WR/R"|
00005540  29 0d 4d 44 1a ff 28 22  2a 4f 42 45 59 20 22 2b  |).MD..("*OBEY "+|
00005550  54 68 69 65 66 66 69 6c  65 24 29 0d 4d 4e 22 ff  |Thieffile$).MN".|
00005560  28 22 2a 57 49 50 45 20  22 2b 54 68 69 65 66 66  |("*WIPE "+Thieff|
00005570  69 6c 65 24 2b 22 20 7e  43 7e 56 22 29 0d 4d 58  |ile$+" ~C~V").MX|
00005580  14 66 25 3d ae 28 54 68  69 65 66 66 69 6c 65 24  |.f%=.(Thieffile$|
00005590  29 0d 4d 62 1e d5 23 66  25 2c 22 7c 20 46 69 6c  |).Mb..#f%,"| Fil|
000055a0  65 73 20 66 6f 72 20 6b  69 6c 6c 69 6e 67 22 0d  |es for killing".|
000055b0  4d 6c 08 d9 23 66 25 0d  4d 76 25 ff 28 22 2a 53  |Ml..#f%.Mv%.("*S|
000055c0  65 74 54 79 70 65 20 22  2b 54 68 69 65 66 66 69  |etType "+Thieffi|
000055d0  6c 65 24 2b 22 20 26 46  45 42 22 29 0d 4d 80 22  |le$+" &FEB").M."|
000055e0  ff 28 22 2a 41 43 43 45  53 53 20 22 2b 54 68 69  |.("*ACCESS "+Thi|
000055f0  65 66 66 69 6c 65 24 2b  22 20 4c 2f 22 29 0d 4d  |effile$+" L/").M|
00005600  8a 05 e1 0d 4d da 1b dd  f2 6c 6f 63 6b 5f 6d 6f  |....M....lock_mo|
00005610  75 73 65 28 6c 6f 63 6b  6d 6f 75 73 65 29 0d 4e  |use(lockmouse).N|
00005620  02 10 ea 61 25 2c 62 25  2c 77 25 2c 68 25 0d 4e  |...a%,b%,w%,h%.N|
00005630  0c 25 c8 99 22 4f 53 5f  52 65 61 64 4d 6f 64 65  |.%.."OS_ReadMode|
00005640  56 61 72 69 61 62 6c 65  22 2c 2d 31 2c 34 b8 2c  |Variable",-1,4.,|
00005650  2c 61 25 0d 4e 16 26 c8  99 22 4f 53 5f 52 65 61  |,a%.N.&.."OS_Rea|
00005660  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00005670  31 2c 31 31 b8 2c 2c 62  25 0d 4e 20 11 77 25 3d  |1,11.,,b%.N .w%=|
00005680  28 62 25 2b 31 29 3c 3c  61 25 0d 4e 2a 25 c8 99  |(b%+1)<<a%.N*%..|
00005690  22 4f 53 5f 52 65 61 64  4d 6f 64 65 56 61 72 69  |"OS_ReadModeVari|
000056a0  61 62 6c 65 22 2c 2d 31  2c 35 b8 2c 2c 61 25 0d  |able",-1,5.,,a%.|
000056b0  4e 34 26 c8 99 22 4f 53  5f 52 65 61 64 4d 6f 64  |N4&.."OS_ReadMod|
000056c0  65 56 61 72 69 61 62 6c  65 22 2c 2d 31 2c 31 32  |eVariable",-1,12|
000056d0  b8 2c 2c 62 25 0d 4e 3e  11 68 25 3d 28 62 25 2b  |.,,b%.N>.h%=(b%+|
000056e0  31 29 3c 3c 61 25 0d 4e  48 26 c8 99 54 5f 54 4f  |1)<<a%.NH&..T_TO|
000056f0  4d 4f 25 2c 30 2c 50 61  73 73 77 6f 72 64 5f 49  |MO%,0,Password_I|
00005700  44 25 2c 30 b8 42 6c 63  6b 25 21 30 0d 4e 52 22  |D%,0.Blck%!0.NR"|
00005710  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
00005720  77 53 74 61 74 65 22 2c  2c 42 6c 63 6b 25 0d 4e  |wState",,Blck%.N|
00005730  5c 0f e7 6c 6f 63 6b 6d  6f 75 73 65 8c 0d 4e 84  |\..lockmouse..N.|
00005740  39 c8 97 c8 93 42 6c 63  6b 25 21 34 2c 42 6c 63  |9....Blck%!4,Blc|
00005750  6b 25 21 38 2c 42 6c 63  6b 25 21 31 32 2d 42 6c  |k%!8,Blck%!12-Bl|
00005760  63 6b 25 21 34 2c 42 6c  63 6b 25 21 31 36 2d 42  |ck%!4,Blck%!16-B|
00005770  6c 63 6b 25 21 38 0d 4e  8e 05 cd 0d 4e 98 29 42  |lck%!8.N....N.)B|
00005780  6c 63 6b 25 21 34 3d 28  77 25 2d 36 30 38 29 2f  |lck%!4=(w%-608)/|
00005790  32 3a 42 6c 63 6b 25 21  38 3d 28 68 25 2d 34 36  |2:Blck%!8=(h%-46|
000057a0  34 29 2f 32 0d 4e a2 2d  42 6c 63 6b 25 21 31 32  |4)/2.N.-Blck%!12|
000057b0  3d 42 6c 63 6b 25 21 34  2b 36 30 38 3a 42 6c 63  |=Blck%!4+608:Blc|
000057c0  6b 25 21 31 36 3d 42 6c  63 6b 25 21 38 2b 34 36  |k%!16=Blck%!8+46|
000057d0  34 0d 4e ac 1e c8 99 22  57 69 6d 70 5f 4f 70 65  |4.N...."Wimp_Ope|
000057e0  6e 57 69 6e 64 6f 77 22  2c 2c 42 6c 63 6b 25 0d  |nWindow",,Blck%.|
000057f0  4e b6 05 e1 0d 4e fc 16  dd f2 73 68 6f 77 69 6e  |N....N....showin|
00005800  67 5f 70 61 73 73 77 6f  72 64 0d 4f 24 13 c8 8e  |g_password.O$...|
00005810  50 61 72 65 6e 74 5f 4e  61 6d 65 24 ca 0d 4f 2e  |Parent_Name$..O.|
00005820  0e c9 22 49 63 6f 6e 62  61 72 22 0d 4f 56 3c f2  |.."Iconbar".OV<.|
00005830  63 6c 65 61 72 5f 66 69  65 6c 64 73 28 22 43 46  |clear_fields("CF|
00005840  31 22 2c 22 22 2c 22 22  2c 22 22 2c 22 22 2c 30  |1","","","","",0|
00005850  2c 30 2c 26 38 30 30 30  30 30 30 30 2c 26 38 30  |,0,&80000000,&80|
00005860  30 30 30 30 30 30 29 0d  4f 60 10 41 75 74 6f 63  |000000).O`.Autoc|
00005870  6c 6f 73 65 25 3d b9 0d  4f 6a 0e c9 22 4f 70 74  |lose%=..Oj.."Opt|
00005880  69 6f 6e 73 22 0d 4f 92  40 f2 63 6c 65 61 72 5f  |ions".O.@.clear_|
00005890  66 69 65 6c 64 73 28 22  43 46 32 22 2c 4f 77 6e  |fields("CF2",Own|
000058a0  65 72 24 2c 22 22 2c 22  22 2c 22 22 2c 26 38 30  |er$,"","","",&80|
000058b0  30 30 30 30 30 30 2c 26  38 30 30 30 30 30 30 30  |000000,&80000000|
000058c0  2c 30 2c 30 29 0d 4f 9c  0f c9 22 50 61 73 73 6d  |,0,0).O..."Passm|
000058d0  65 6e 75 22 0d 4f a6 18  c8 8e 50 61 72 65 6e 74  |enu".O....Parent|
000058e0  5f 43 6f 6d 70 6f 6e 65  6e 74 25 ca 0d 4f b0 06  |_Component%..O..|
000058f0  c9 33 0d 4f d8 40 f2 63  6c 65 61 72 5f 66 69 65  |.3.O.@.clear_fie|
00005900  6c 64 73 28 22 43 46 33  22 2c 4f 77 6e 65 72 24  |lds("CF3",Owner$|
00005910  2c 22 22 2c 22 22 2c 22  22 2c 30 2c 30 2c 26 38  |,"","","",0,0,&8|
00005920  30 30 30 30 30 30 30 2c  26 38 30 30 30 30 30 30  |0000000,&8000000|
00005930  30 29 0d 4f e2 14 55 73  65 72 6e 61 6d 65 24 3d  |0).O..Username$=|
00005940  4f 77 6e 65 72 24 0d 4f  ec 06 c9 38 0d 50 14 40  |Owner$.O...8.P.@|
00005950  f2 63 6c 65 61 72 5f 66  69 65 6c 64 73 28 22 43  |.clear_fields("C|
00005960  46 33 22 2c 4f 77 6e 65  72 24 2c 22 22 2c 22 22  |F3",Owner$,"",""|
00005970  2c 22 22 2c 30 2c 30 2c  26 38 30 30 30 30 30 30  |,"",0,0,&8000000|
00005980  30 2c 26 38 30 30 30 30  30 30 30 29 0d 50 1e 14  |0,&80000000).P..|
00005990  55 73 65 72 6e 61 6d 65  24 3d 4f 77 6e 65 72 24  |Username$=Owner$|
000059a0  0d 50 28 06 c9 37 0d 50  50 3c f2 63 6c 65 61 72  |.P(..7.PP<.clear|
000059b0  5f 66 69 65 6c 64 73 28  22 43 46 34 22 2c 22 22  |_fields("CF4",""|
000059c0  2c 22 22 2c 22 22 2c 22  22 2c 30 2c 30 2c 26 38  |,"","","",0,0,&8|
000059d0  30 30 30 30 30 30 30 2c  26 38 30 30 30 30 30 30  |0000000,&8000000|
000059e0  30 29 0d 50 5a 06 c9 36  0d 50 82 15 e7 4c 6f 67  |0).PZ..6.P...Log|
000059f0  67 65 64 5f 55 73 65 72  24 3d 22 22 8c 0d 50 8c  |ged_User$=""..P.|
00005a00  28 f2 65 72 72 6f 72 5f  6d 65 73 73 61 67 65 28  |(.error_message(|
00005a10  22 45 4d 31 30 22 2c 22  22 2c 22 22 2c 22 22 2c  |"EM10","","","",|
00005a20  30 2c 4b 25 29 0d 50 96  05 cc 0d 50 a0 3e f2 63  |0,K%).P....P.>.c|
00005a30  6c 65 61 72 5f 66 69 65  6c 64 73 28 22 43 46 35  |lear_fields("CF5|
00005a40  22 2c 4c 6f 67 67 65 64  5f 55 73 65 72 24 2c 22  |",Logged_User$,"|
00005a50  22 2c 22 22 2c 22 22 2c  26 38 30 30 30 30 30 30  |","","",&8000000|
00005a60  30 2c 30 2c 30 2c 30 29  0d 50 aa 1a 55 73 65 72  |0,0,0,0).P..User|
00005a70  6e 61 6d 65 24 3d 4c 6f  67 67 65 64 5f 55 73 65  |name$=Logged_Use|
00005a80  72 24 0d 50 b4 05 cd 0d  50 be 05 cb 0d 50 c8 10  |r$.P....P....P..|
00005a90  41 75 74 6f 63 6c 6f 73  65 25 3d a3 0d 50 d2 0f  |Autoclose%=..P..|
00005aa0  c9 22 50 61 73 73 77 6f  72 64 22 0d 50 dc 18 c8  |."Password".P...|
00005ab0  8e 50 61 72 65 6e 74 5f  43 6f 6d 70 6f 6e 65 6e  |.Parent_Componen|
00005ac0  74 25 ca 0d 50 e6 08 c9  31 30 30 0d 51 0e 34 f2  |t%..P...100.Q.4.|
00005ad0  63 6c 65 61 72 5f 66 69  65 6c 64 73 28 22 43 46  |clear_fields("CF|
00005ae0  36 22 2c 22 22 2c 22 22  2c 22 22 2c 22 22 2c 30  |6","","","","",0|
00005af0  2c 26 38 30 30 30 30 30  30 30 2c 30 2c 30 29 0d  |,&80000000,0,0).|
00005b00  51 18 08 c9 31 30 31 0d  51 40 34 f2 63 6c 65 61  |Q...101.Q@4.clea|
00005b10  72 5f 66 69 65 6c 64 73  28 22 43 46 37 22 2c 22  |r_fields("CF7","|
00005b20  22 2c 22 22 2c 22 22 2c  22 22 2c 30 2c 26 38 30  |","","","",0,&80|
00005b30  30 30 30 30 30 30 2c 30  2c 30 29 0d 51 4a 08 c9  |000000,0,0).QJ..|
00005b40  31 30 32 0d 51 72 40 f2  63 6c 65 61 72 5f 66 69  |102.Qr@.clear_fi|
00005b50  65 6c 64 73 28 22 43 46  38 22 2c 4f 77 6e 65 72  |elds("CF8",Owner|
00005b60  24 2c 22 22 2c 22 22 2c  22 22 2c 26 38 30 30 30  |$,"","","",&8000|
00005b70  30 30 30 30 2c 26 38 30  30 30 30 30 30 30 2c 30  |0000,&80000000,0|
00005b80  2c 30 29 0d 51 7c 14 55  73 65 72 6e 61 6d 65 24  |,0).Q|.Username$|
00005b90  3d 4f 77 6e 65 72 24 0d  51 86 05 cb 0d 51 90 10  |=Owner$.Q....Q..|
00005ba0  41 75 74 6f 63 6c 6f 73  65 25 3d a3 0d 51 9a 05  |Autoclose%=..Q..|
00005bb0  cb 0d 51 a4 05 e1 0d 51  ea 18 dd f2 76 61 6c 63  |..Q....Q....valc|
00005bc0  68 61 6e 67 65 5f 70 61  73 73 77 6f 72 64 0d 52  |hange_password.R|
00005bd0  12 10 e7 42 6c 63 6b 25  21 31 36 3d 30 8c 0d 52  |...Blck%!16=0..R|
00005be0  3a 28 f2 65 72 72 6f 72  5f 6d 65 73 73 61 67 65  |:(.error_message|
00005bf0  28 22 45 4d 31 31 22 2c  22 22 2c 22 22 2c 22 22  |("EM11","","",""|
00005c00  2c 30 2c 4b 25 29 0d 52  44 05 cc 0d 52 4e 16 c8  |,0,K%).RD...RN..|
00005c10  8e 53 65 6c 66 5f 43 6f  6d 70 6f 6e 65 6e 74 25  |.Self_Component%|
00005c20  ca 0d 52 58 06 c9 34 0d  52 62 21 55 73 65 72 6e  |..RX..4.Rb!Usern|
00005c30  61 6d 65 24 3d a4 69 6e  64 69 72 65 63 74 28 42  |ame$=.indirect(B|
00005c40  6c 63 6b 25 2b 31 36 29  0d 52 6c 06 c9 35 0d 52  |lck%+16).Rl..5.R|
00005c50  76 21 50 61 73 73 77 6f  72 64 24 3d a4 69 6e 64  |v!Password$=.ind|
00005c60  69 72 65 63 74 28 42 6c  63 6b 25 2b 31 36 29 0d  |irect(Blck%+16).|
00005c70  52 80 06 c9 36 0d 52 8a  24 4e 65 77 70 61 73 73  |R...6.R.$Newpass|
00005c80  77 6f 72 64 24 3d a4 69  6e 64 69 72 65 63 74 28  |word$=.indirect(|
00005c90  42 6c 63 6b 25 2b 31 36  29 0d 52 94 06 c9 37 0d  |Blck%+16).R...7.|
00005ca0  52 9e 1f 56 65 72 69 66  79 24 3d a4 69 6e 64 69  |R..Verify$=.indi|
00005cb0  72 65 63 74 28 42 6c 63  6b 25 2b 31 36 29 0d 52  |rect(Blck%+16).R|
00005cc0  a8 05 cb 0d 52 b2 05 cd  0d 52 bc 05 e1 0d 53 02  |....R....R....S.|
00005cd0  18 dd f2 61 63 74 69 6f  6e 5f 6f 6b 5f 70 61 73  |...action_ok_pas|
00005ce0  73 77 6f 72 64 0d 53 2a  21 ea 75 24 2c 70 24 2c  |sword.S*!.u$,p$,|
00005cf0  76 61 6c 69 64 25 2c 76  65 72 69 66 79 25 2c 65  |valid%,verify%,e|
00005d00  78 69 73 74 73 25 0d 53  3e 2d c8 99 54 5f 54 4f  |xists%.S>-..T_TO|
00005d10  4d 4f 25 2c 30 2c 50 61  73 73 77 6f 72 64 5f 49  |MO%,0,Password_I|
00005d20  44 25 2c 35 31 33 2c 26  34 2c 42 75 66 31 25 2c  |D%,513,&4,Buf1%,|
00005d30  32 35 36 0d 53 48 17 75  24 3d a4 69 6e 64 69 72  |256.SH.u$=.indir|
00005d40  65 63 74 28 42 75 66 31  25 29 0d 53 52 2d c8 99  |ect(Buf1%).SR-..|
00005d50  54 5f 54 4f 4d 4f 25 2c  30 2c 50 61 73 73 77 6f  |T_TOMO%,0,Passwo|
00005d60  72 64 5f 49 44 25 2c 35  31 33 2c 26 35 2c 42 75  |rd_ID%,513,&5,Bu|
00005d70  66 31 25 2c 32 35 36 0d  53 5c 17 70 24 3d a4 69  |f1%,256.S\.p$=.i|
00005d80  6e 64 69 72 65 63 74 28  42 75 66 31 25 29 0d 53  |ndirect(Buf1%).S|
00005d90  66 2d c8 99 54 5f 54 4f  4d 4f 25 2c 30 2c 50 61  |f-..T_TOMO%,0,Pa|
00005da0  73 73 77 6f 72 64 5f 49  44 25 2c 35 31 33 2c 26  |ssword_ID%,513,&|
00005db0  36 2c 42 75 66 31 25 2c  32 35 36 0d 53 70 17 6e  |6,Buf1%,256.Sp.n|
00005dc0  24 3d a4 69 6e 64 69 72  65 63 74 28 42 75 66 31  |$=.indirect(Buf1|
00005dd0  25 29 0d 53 7a 2d c8 99  54 5f 54 4f 4d 4f 25 2c  |%).Sz-..T_TOMO%,|
00005de0  30 2c 50 61 73 73 77 6f  72 64 5f 49 44 25 2c 35  |0,Password_ID%,5|
00005df0  31 33 2c 26 37 2c 42 75  66 31 25 2c 32 35 36 0d  |13,&7,Buf1%,256.|
00005e00  53 84 17 76 24 3d a4 69  6e 64 69 72 65 63 74 28  |S..v$=.indirect(|
00005e10  42 75 66 31 25 29 0d 53  8e 25 76 61 6c 69 64 25  |Buf1%).S.%valid%|
00005e20  3d a4 63 68 65 63 6b 5f  75 73 65 72 28 75 24 2c  |=.check_user(u$,|
00005e30  70 24 2c 65 78 69 73 74  73 25 29 0d 53 98 13 76  |p$,exists%).S..v|
00005e40  65 72 69 66 79 25 3d 28  6e 24 3d 76 24 29 0d 53  |erify%=(n$=v$).S|
00005e50  a2 13 c8 8e 50 61 72 65  6e 74 5f 4e 61 6d 65 24  |....Parent_Name$|
00005e60  ca 0d 53 ac 0e c9 22 49  63 6f 6e 62 61 72 22 0d  |..S..."Iconbar".|
00005e70  53 d4 0c e7 76 61 6c 69  64 25 8c 0d 53 de 15 f2  |S...valid%..S...|
00005e80  6c 6f 67 69 6e 5f 75 73  65 72 28 75 24 2c b9 29  |login_user(u$,.)|
00005e90  0d 53 e8 05 cc 0d 53 f2  0d e7 65 78 69 73 74 73  |.S....S...exists|
00005ea0  25 8c 0d 53 fc 28 f2 65  72 72 6f 72 5f 6d 65 73  |%..S.(.error_mes|
00005eb0  73 61 67 65 28 22 45 4d  31 32 22 2c 22 22 2c 22  |sage("EM12","","|
00005ec0  22 2c 22 22 2c 30 2c 4b  25 29 0d 54 06 05 cc 0d  |","",0,K%).T....|
00005ed0  54 10 28 f2 65 72 72 6f  72 5f 6d 65 73 73 61 67  |T.(.error_messag|
00005ee0  65 28 22 45 4d 31 33 22  2c 22 22 2c 22 22 2c 22  |e("EM13","","","|
00005ef0  22 2c 30 2c 4b 25 29 0d  54 1a 05 cd 0d 54 24 05  |",0,K%).T....T$.|
00005f00  cd 0d 54 2e 0e c9 22 4f  70 74 69 6f 6e 73 22 0d  |..T..."Options".|
00005f10  54 56 0e e7 ac 76 65 72  69 66 79 25 8c 0d 54 60  |TV...verify%..T`|
00005f20  28 f2 65 72 72 6f 72 5f  6d 65 73 73 61 67 65 28  |(.error_message(|
00005f30  22 45 4d 31 34 22 2c 22  22 2c 22 22 2c 22 22 2c  |"EM14","","","",|
00005f40  30 2c 4b 25 29 0d 54 6a  2d c8 99 54 5f 54 53 4f  |0,K%).Tj-..T_TSO|
00005f50  25 2c 30 2c 50 61 73 73  77 6f 72 64 5f 49 44 25  |%,0,Password_ID%|
00005f60  2c 30 2c 30 2c 4f 70 74  69 6f 6e 73 5f 49 44 25  |,0,0,Options_ID%|
00005f70  2c 30 0d 54 74 05 cc 0d  54 7e 0d e7 a9 28 6e 24  |,0.Tt...T~...(n$|
00005f80  29 3c 34 8c 0d 54 88 28  f2 65 72 72 6f 72 5f 6d  |)<4..T.(.error_m|
00005f90  65 73 73 61 67 65 28 22  45 4d 31 35 22 2c 22 22  |essage("EM15",""|
00005fa0  2c 22 22 2c 22 22 2c 30  2c 4b 25 29 0d 54 92 2d  |,"","",0,K%).T.-|
00005fb0  c8 99 54 5f 54 53 4f 25  2c 30 2c 50 61 73 73 77  |..T_TSO%,0,Passw|
00005fc0  6f 72 64 5f 49 44 25 2c  30 2c 30 2c 4f 70 74 69  |ord_ID%,0,0,Opti|
00005fd0  6f 6e 73 5f 49 44 25 2c  30 0d 54 9c 05 cc 0d 54  |ons_ID%,0.T....T|
00005fe0  a6 0d e7 65 78 69 73 74  73 25 8c 0d 54 b0 17 f2  |...exists%..T...|
00005ff0  6d 6f 64 69 66 79 5f 75  73 65 72 28 75 24 2c 6e  |modify_user(u$,n|
00006000  24 29 0d 54 ba 05 cc 0d  54 c4 14 f2 61 64 64 5f  |$).T....T...add_|
00006010  75 73 65 72 28 75 24 2c  6e 24 29 0d 54 ce 05 cd  |user(u$,n$).T...|
00006020  0d 54 f6 15 f2 6c 6f 67  69 6e 5f 75 73 65 72 28  |.T...login_user(|
00006030  75 24 2c b9 29 0d 55 00  13 f2 69 6e 73 74 61 6c  |u$,.).U...instal|
00006040  6c 5f 6c 6f 67 69 6e 73  0d 55 0a 16 53 65 71 75  |l_logins.U..Sequ|
00006050  65 6e 63 65 24 3d 22 4e  4f 52 4d 41 4c 22 0d 55  |ence$="NORMAL".U|
00006060  14 05 cd 0d 55 1e 05 cd  0d 55 28 0f c9 22 50 61  |....U....U(.."Pa|
00006070  73 73 6d 65 6e 75 22 0d  55 50 18 c8 8e 50 61 72  |ssmenu".UP...Par|
00006080  65 6e 74 5f 43 6f 6d 70  6f 6e 65 6e 74 25 ca 0d  |ent_Component%..|
00006090  55 5a 06 c9 33 0d 55 82  0c e7 76 61 6c 69 64 25  |UZ..3.U...valid%|
000060a0  8c 0d 55 8c 30 c8 99 54  5f 54 53 4f 25 2c 30 2c  |..U.0..T_TSO%,0,|
000060b0  50 61 73 73 77 6f 72 64  5f 49 44 25 2c 30 2c 30  |Password_ID%,0,0|
000060c0  2c 50 61 73 73 77 6f 72  64 5f 49 44 25 2c 31 30  |,Password_ID%,10|
000060d0  30 0d 55 96 05 cc 0d 55  a0 28 f2 65 72 72 6f 72  |0.U....U.(.error|
000060e0  5f 6d 65 73 73 61 67 65  28 22 45 4d 31 36 22 2c  |_message("EM16",|
000060f0  22 22 2c 22 22 2c 22 22  2c 30 2c 4b 25 29 0d 55  |"","","",0,K%).U|
00006100  aa 05 cd 0d 55 b4 06 c9  38 0d 55 dc 0c e7 76 61  |....U...8.U...va|
00006110  6c 69 64 25 8c 0d 55 e6  30 c8 99 54 5f 54 53 4f  |lid%..U.0..T_TSO|
00006120  25 2c 30 2c 50 61 73 73  77 6f 72 64 5f 49 44 25  |%,0,Password_ID%|
00006130  2c 30 2c 30 2c 50 61 73  73 77 6f 72 64 5f 49 44  |,0,0,Password_ID|
00006140  25 2c 31 30 31 0d 55 f0  05 cc 0d 55 fa 28 f2 65  |%,101.U....U.(.e|
00006150  72 72 6f 72 5f 6d 65 73  73 61 67 65 28 22 45 4d  |rror_message("EM|
00006160  31 36 22 2c 22 22 2c 22  22 2c 22 22 2c 30 2c 4b  |16","","","",0,K|
00006170  25 29 0d 56 04 05 cd 0d  56 0e 06 c9 37 0d 56 36  |%).V....V...7.V6|
00006180  0c e7 76 61 6c 69 64 25  8c 0d 56 40 15 f2 6c 6f  |..valid%..V@..lo|
00006190  67 69 6e 5f 75 73 65 72  28 75 24 2c b9 29 0d 56  |gin_user(u$,.).V|
000061a0  4a 16 53 65 71 75 65 6e  63 65 24 3d 22 4e 4f 52  |J.Sequence$="NOR|
000061b0  4d 41 4c 22 0d 56 54 05  cc 0d 56 5e 0d e7 65 78  |MAL".VT...V^..ex|
000061c0  69 73 74 73 25 8c 0d 56  68 28 f2 65 72 72 6f 72  |ists%..Vh(.error|
000061d0  5f 6d 65 73 73 61 67 65  28 22 45 4d 31 32 22 2c  |_message("EM12",|
000061e0  22 22 2c 22 22 2c 22 22  2c 30 2c 4b 25 29 0d 56  |"","","",0,K%).V|
000061f0  72 05 cc 0d 56 7c 28 f2  65 72 72 6f 72 5f 6d 65  |r...V|(.error_me|
00006200  73 73 61 67 65 28 22 45  4d 31 33 22 2c 22 22 2c  |ssage("EM13","",|
00006210  22 22 2c 22 22 2c 30 2c  4b 25 29 0d 56 86 05 cd  |"","",0,K%).V...|
00006220  0d 56 90 05 cd 0d 56 9a  06 c9 36 0d 56 c2 0c e7  |.V....V...6.V...|
00006230  76 61 6c 69 64 25 8c 0d  56 cc 0d e7 76 65 72 69  |valid%..V...veri|
00006240  66 79 25 8c 0d 56 d6 0d  e7 a9 28 6e 24 29 3c 34  |fy%..V....(n$)<4|
00006250  8c 0d 56 e0 28 f2 65 72  72 6f 72 5f 6d 65 73 73  |..V.(.error_mess|
00006260  61 67 65 28 22 45 4d 31  35 22 2c 22 22 2c 22 22  |age("EM15","",""|
00006270  2c 22 22 2c 30 2c 4b 25  29 0d 56 ea 05 cc 0d 56  |,"",0,K%).V....V|
00006280  f4 0b e7 6e 24 3d 70 24  8c 0d 56 fe 28 f2 65 72  |...n$=p$..V.(.er|
00006290  72 6f 72 5f 6d 65 73 73  61 67 65 28 22 45 4d 31  |ror_message("EM1|
000062a0  37 22 2c 22 22 2c 22 22  2c 22 22 2c 30 2c 4b 25  |7","","","",0,K%|
000062b0  29 0d 57 08 05 cc 0d 57  12 17 f2 6d 6f 64 69 66  |).W....W...modif|
000062c0  79 5f 75 73 65 72 28 75  24 2c 6e 24 29 0d 57 1c  |y_user(u$,n$).W.|
000062d0  05 cd 0d 57 26 05 cd 0d  57 30 05 cc 0d 57 3a 28  |...W&...W0...W:(|
000062e0  f2 65 72 72 6f 72 5f 6d  65 73 73 61 67 65 28 22  |.error_message("|
000062f0  45 4d 31 34 22 2c 22 22  2c 22 22 2c 22 22 2c 30  |EM14","","","",0|
00006300  2c 4b 25 29 0d 57 44 05  cd 0d 57 4e 05 cc 0d 57  |,K%).WD...WN...W|
00006310  58 28 f2 65 72 72 6f 72  5f 6d 65 73 73 61 67 65  |X(.error_message|
00006320  28 22 45 4d 31 38 22 2c  22 22 2c 22 22 2c 22 22  |("EM18","","",""|
00006330  2c 30 2c 4b 25 29 0d 57  62 05 cd 0d 57 6c 05 cb  |,0,K%).Wb...Wl..|
00006340  0d 57 76 0f c9 22 50 61  73 73 77 6f 72 64 22 0d  |.Wv.."Password".|
00006350  57 9e 18 c8 8e 50 61 72  65 6e 74 5f 43 6f 6d 70  |W....Parent_Comp|
00006360  6f 6e 65 6e 74 25 ca 0d  57 a8 08 c9 31 30 30 0d  |onent%..W...100.|
00006370  57 d0 0d e7 65 78 69 73  74 73 25 8c 0d 57 da 28  |W...exists%..W.(|
00006380  f2 65 72 72 6f 72 5f 6d  65 73 73 61 67 65 28 22  |.error_message("|
00006390  45 4d 31 39 22 2c 75 24  2c 22 22 2c 22 22 2c 30  |EM19",u$,"","",0|
000063a0  2c 4b 25 29 0d 57 e4 05  cc 0d 57 ee 0d e7 76 65  |,K%).W....W...ve|
000063b0  72 69 66 79 25 8c 0d 57  f8 0d e7 a9 28 6e 24 29  |rify%..W....(n$)|
000063c0  3c 34 8c 0d 58 02 28 f2  65 72 72 6f 72 5f 6d 65  |<4..X.(.error_me|
000063d0  73 73 61 67 65 28 22 45  4d 31 35 22 2c 22 22 2c  |ssage("EM15","",|
000063e0  22 22 2c 22 22 2c 30 2c  4b 25 29 0d 58 0c 05 cc  |"","",0,K%).X...|
000063f0  0d 58 16 14 f2 61 64 64  5f 75 73 65 72 28 75 24  |.X...add_user(u$|
00006400  2c 6e 24 29 0d 58 20 05  cd 0d 58 2a 05 cc 0d 58  |,n$).X ...X*...X|
00006410  34 28 f2 65 72 72 6f 72  5f 6d 65 73 73 61 67 65  |4(.error_message|
00006420  28 22 45 4d 31 34 22 2c  22 22 2c 22 22 2c 22 22  |("EM14","","",""|
00006430  2c 30 2c 4b 25 29 0d 58  3e 30 c8 99 54 5f 54 53  |,0,K%).X>0..T_TS|
00006440  4f 25 2c 30 2c 50 61 73  73 77 6f 72 64 5f 49 44  |O%,0,Password_ID|
00006450  25 2c 30 2c 30 2c 50 61  73 73 77 6f 72 64 5f 49  |%,0,0,Password_I|
00006460  44 25 2c 31 30 30 0d 58  48 05 cd 0d 58 52 05 cd  |D%,100.XH...XR..|
00006470  0d 58 5c 08 c9 31 30 31  0d 58 84 0e e7 ac 65 78  |.X\..101.X....ex|
00006480  69 73 74 73 25 8c 0d 58  8e 28 f2 65 72 72 6f 72  |ists%..X.(.error|
00006490  5f 6d 65 73 73 61 67 65  28 22 45 4d 32 30 22 2c  |_message("EM20",|
000064a0  75 24 2c 22 22 2c 22 22  2c 30 2c 4b 25 29 0d 58  |u$,"","",0,K%).X|
000064b0  98 05 cc 0d 58 a2 0d e7  76 65 72 69 66 79 25 8c  |....X...verify%.|
000064c0  0d 58 ac 0d e7 a9 28 6e  24 29 3c 34 8c 0d 58 b6  |.X....(n$)<4..X.|
000064d0  28 f2 65 72 72 6f 72 5f  6d 65 73 73 61 67 65 28  |(.error_message(|
000064e0  22 45 4d 31 35 22 2c 22  22 2c 22 22 2c 22 22 2c  |"EM15","","","",|
000064f0  30 2c 4b 25 29 0d 58 c0  05 cc 0d 58 ca 17 f2 6d  |0,K%).X....X...m|
00006500  6f 64 69 66 79 5f 75 73  65 72 28 75 24 2c 6e 24  |odify_user(u$,n$|
00006510  29 0d 58 d4 05 cd 0d 58  de 05 cc 0d 58 e8 28 f2  |).X....X....X.(.|
00006520  65 72 72 6f 72 5f 6d 65  73 73 61 67 65 28 22 45  |error_message("E|
00006530  4d 31 34 22 2c 22 22 2c  22 22 2c 22 22 2c 30 2c  |M14","","","",0,|
00006540  4b 25 29 0d 58 f2 30 c8  99 54 5f 54 53 4f 25 2c  |K%).X.0..T_TSO%,|
00006550  30 2c 50 61 73 73 77 6f  72 64 5f 49 44 25 2c 30  |0,Password_ID%,0|
00006560  2c 30 2c 50 61 73 73 77  6f 72 64 5f 49 44 25 2c  |,0,Password_ID%,|
00006570  31 30 31 0d 58 fc 05 cd  0d 59 06 05 cd 0d 59 10  |101.X....Y....Y.|
00006580  08 c9 31 30 32 0d 59 38  0d e7 76 65 72 69 66 79  |..102.Y8..verify|
00006590  25 8c 0d 59 42 22 f2 61  64 64 5f 75 73 65 72 28  |%..YB".add_user(|
000065a0  4f 77 6e 65 72 24 2c 4e  65 77 70 61 73 73 77 6f  |Owner$,Newpasswo|
000065b0  72 64 24 29 0d 59 4c 19  f2 6c 6f 67 69 6e 5f 75  |rd$).YL..login_u|
000065c0  73 65 72 28 4f 77 6e 65  72 24 2c b9 29 0d 59 56  |ser(Owner$,.).YV|
000065d0  05 cc 0d 59 60 28 f2 65  72 72 6f 72 5f 6d 65 73  |...Y`(.error_mes|
000065e0  73 61 67 65 28 22 45 4d  31 34 22 2c 22 22 2c 22  |sage("EM14","","|
000065f0  22 2c 22 22 2c 30 2c 4b  25 29 0d 59 6a 30 c8 99  |","",0,K%).Yj0..|
00006600  54 5f 54 53 4f 25 2c 30  2c 50 61 73 73 77 6f 72  |T_TSO%,0,Passwor|
00006610  64 5f 49 44 25 2c 30 2c  30 2c 50 61 73 73 77 6f  |d_ID%,0,0,Passwo|
00006620  72 64 5f 49 44 25 2c 31  30 32 0d 59 74 05 cd 0d  |rd_ID%,102.Yt...|
00006630  59 7e 05 cb 0d 59 88 05  cb 0d 59 92 05 e1 0d 59  |Y~...Y....Y....Y|
00006640  d8 4e dd f2 67 65 74 5f  6f 70 74 69 6f 6e 73 28  |.N..get_options(|
00006650  f8 61 74 25 2c f8 77 74  25 2c f8 64 74 25 2c f8  |.at%,.wt%,.dt%,.|
00006660  74 73 25 2c f8 74 71 25  2c f8 64 61 25 2c f8 67  |ts%,.tq%,.da%,.g|
00006670  6c 25 2c f8 74 6d 25 2c  f8 66 6f 25 2c f8 77 6f  |l%,.tm%,.fo%,.wo|
00006680  25 2c f8 70 65 25 2c f8  61 70 25 29 0d 5a 64 0d  |%,.pe%,.ap%).Zd.|
00006690  ea 66 25 2c 61 24 2c 61  25 0d 5a 8c 09 77 6f 25  |.f%,a$,a%.Z..wo%|
000066a0  3d a3 0d 5a 96 09 70 65  25 3d a3 0d 5a a0 09 61  |=..Z..pe%=..Z..a|
000066b0  70 25 3d a3 0d 5a b4 1f  c8 99 22 4f 53 5f 46 69  |p%=..Z...."OS_Fi|
000066c0  6c 65 22 2c 34 2c 4f 70  74 66 69 6c 65 24 2c 2c  |le",4,Optfile$,,|
000066d0  2c 2c 33 0d 5a be 12 66  25 3d 8e 28 4f 70 74 66  |,,3.Z..f%=.(Optf|
000066e0  69 6c 65 24 29 0d 5a c8  08 75 25 3d 30 0d 5a d2  |ile$).Z..u%=0.Z.|
000066f0  05 f5 0d 5a dc 0b 61 24  3d be 23 66 25 0d 5a e6  |...Z..a$=.#f%.Z.|
00006700  0f 61 25 3d a7 61 24 2c  22 3a 22 29 0d 5a f0 10  |.a%=.a$,":").Z..|
00006710  c8 8e c0 61 24 2c 61 25  2d 32 29 ca 0d 5a fa 11  |...a$,a%-2)..Z..|
00006720  c9 22 41 6c 6c 6f 77 20  54 69 6d 65 22 0d 5b 04  |."Allow Time".[.|
00006730  14 61 74 25 3d bb 28 c1  61 24 2c 61 25 2b 32 29  |.at%=.(.a$,a%+2)|
00006740  29 0d 5b 0e 10 c9 22 57  61 72 6e 20 54 69 6d 65  |).[..."Warn Time|
00006750  22 0d 5b 18 14 77 74 25  3d bb 28 c1 61 24 2c 61  |".[..wt%=.(.a$,a|
00006760  25 2b 32 29 29 0d 5b 22  0f c9 22 44 69 65 20 54  |%+2)).[".."Die T|
00006770  69 6d 65 22 0d 5b 2c 14  64 74 25 3d bb 28 c1 61  |ime".[,.dt%=.(.a|
00006780  24 2c 61 25 2b 32 29 29  0d 5b 36 14 c9 22 54 61  |$,a%+2)).[6.."Ta|
00006790  73 6b 20 53 74 61 72 74  69 6e 67 22 0d 5b 40 17  |sk Starting".[@.|
000067a0  74 73 25 3d 28 c1 61 24  2c 61 25 2b 32 29 3d 22  |ts%=(.a$,a%+2)="|
000067b0  59 22 29 0d 5b 4a 14 c9  22 54 61 73 6b 20 51 75  |Y").[J.."Task Qu|
000067c0  69 74 74 69 6e 67 22 0d  5b 54 17 74 71 25 3d 28  |itting".[T.tq%=(|
000067d0  c1 61 24 2c 61 25 2b 32  29 3d 22 59 22 29 0d 5b  |.a$,a%+2)="Y").[|
000067e0  5e 17 c9 22 44 69 72 65  63 74 6f 72 79 20 41 63  |^.."Directory Ac|
000067f0  63 65 73 73 22 0d 5b 68  17 64 61 25 3d 28 c1 61  |cess".[h.da%=(.a|
00006800  24 2c 61 25 2b 32 29 3d  22 59 22 29 0d 5b 72 13  |$,a%+2)="Y").[r.|
00006810  c9 22 47 75 65 73 74 20  4c 6f 67 69 6e 73 22 0d  |."Guest Logins".|
00006820  5b 7c 17 67 6c 25 3d 28  c1 61 24 2c 61 25 2b 32  |[|.gl%=(.a$,a%+2|
00006830  29 3d 22 59 22 29 0d 5b  86 17 c9 22 54 65 73 74  |)="Y").[..."Test|
00006840  20 4d 6f 64 65 20 4c 6f  67 69 6e 73 22 0d 5b 90  | Mode Logins".[.|
00006850  17 74 6d 25 3d 28 c1 61  24 2c 61 25 2b 32 29 3d  |.tm%=(.a$,a%+2)=|
00006860  22 59 22 29 0d 5b 9a 18  c9 22 46 75 6c 6c 20 4f  |"Y").[..."Full O|
00006870  77 6e 65 72 20 41 63 63  65 73 73 22 0d 5b a4 17  |wner Access".[..|
00006880  66 6f 25 3d 28 c1 61 24  2c 61 25 2b 32 29 3d 22  |fo%=(.a$,a%+2)="|
00006890  59 22 29 0d 5b ae 13 c9  22 57 61 74 63 68 64 6f  |Y").[..."Watchdo|
000068a0  67 20 4f 66 66 22 0d 5b  b8 17 77 6f 25 3d 28 c1  |g Off".[..wo%=(.|
000068b0  61 24 2c 61 25 2b 32 29  3d 22 59 22 29 0d 5b c2  |a$,a%+2)="Y").[.|
000068c0  18 c9 22 50 61 73 73 77  6f 72 64 73 20 45 6e 61  |.."Passwords Ena|
000068d0  62 6c 65 64 22 0d 5b cc  17 70 65 25 3d 28 c1 61  |bled".[..pe%=(.a|
000068e0  24 2c 61 25 2b 32 29 3d  22 59 22 29 0d 5b d6 12  |$,a%+2)="Y").[..|
000068f0  c9 22 41 75 74 6f 20 50  72 6f 6d 70 74 22 0d 5b  |."Auto Prompt".[|
00006900  e0 17 61 70 25 3d 28 c1  61 24 2c 61 25 2b 32 29  |..ap%=(.a$,a%+2)|
00006910  3d 22 59 22 29 0d 5b ea  05 cb 0d 5b f4 09 fd c5  |="Y").[....[....|
00006920  23 66 25 0d 5b fe 08 d9  23 66 25 0d 5c 08 1f c8  |#f%.[...#f%.\...|
00006930  99 22 4f 53 5f 46 69 6c  65 22 2c 34 2c 4f 70 74  |."OS_File",4,Opt|
00006940  66 69 6c 65 24 2c 2c 2c  2c 39 0d 5c 12 05 e1 0d  |file$,,,,9.\....|
00006950  5c 62 14 dd f2 67 65 74  5f 75 73 65 72 61 63 63  |\b...get_useracc|
00006960  65 73 73 0d 5c 8a 0d ea  66 25 2c 61 24 2c 61 25  |ess.\...f%,a$,a%|
00006970  0d 5c 9e 22 c8 99 22 4f  53 5f 46 69 6c 65 22 2c  |.\.".."OS_File",|
00006980  34 2c 41 63 63 65 73 73  66 69 6c 65 24 2c 2c 2c  |4,Accessfile$,,,|
00006990  2c 33 0d 5c a8 15 66 25  3d 8e 28 41 63 63 65 73  |,3.\..f%=.(Acces|
000069a0  73 66 69 6c 65 24 29 0d  5c b2 0d 52 75 73 65 72  |sfile$).\..Ruser|
000069b0  73 25 3d 30 0d 5c bc 05  f5 0d 5c c6 0b 61 24 3d  |s%=0.\....\..a$=|
000069c0  be 23 66 25 0d 5c d0 0f  61 25 3d a7 61 24 2c 22  |.#f%.\..a%=.a$,"|
000069d0  3a 22 29 0d 5c da 0e 52  75 73 65 72 73 25 2b 3d  |:").\..Rusers%+=|
000069e0  31 0d 5c e4 1c 52 75 73  72 24 28 52 75 73 65 72  |1.\..Rusr$(Ruser|
000069f0  73 25 29 3d c0 61 24 2c  61 25 2d 32 29 0d 5c ee  |s%)=.a$,a%-2).\.|
00006a00  1c 52 64 69 72 24 28 52  75 73 65 72 73 25 29 3d  |.Rdir$(Rusers%)=|
00006a10  c1 61 24 2c 61 25 2b 32  29 0d 5c f8 09 fd c5 23  |.a$,a%+2).\....#|
00006a20  66 25 0d 5d 02 08 d9 23  66 25 0d 5d 0c 22 c8 99  |f%.]...#f%.]."..|
00006a30  22 4f 53 5f 46 69 6c 65  22 2c 34 2c 41 63 63 65  |"OS_File",4,Acce|
00006a40  73 73 66 69 6c 65 24 2c  2c 2c 2c 39 0d 5d 16 05  |ssfile$,,,,9.]..|
00006a50  e1 0d 5d 5c 13 dd f2 67  65 74 5f 75 73 65 72 74  |..]\...get_usert|
00006a60  69 6d 65 73 0d 5d 84 0d  ea 66 25 2c 61 24 2c 61  |imes.]...f%,a$,a|
00006a70  25 0d 5d 98 21 c8 99 22  4f 53 5f 46 69 6c 65 22  |%.].!.."OS_File"|
00006a80  2c 34 2c 54 69 6d 65 73  66 69 6c 65 24 2c 2c 2c  |,4,Timesfile$,,,|
00006a90  2c 33 0d 5d a2 14 66 25  3d 8e 28 54 69 6d 65 73  |,3.]..f%=.(Times|
00006aa0  66 69 6c 65 24 29 0d 5d  ac 0d 52 75 73 65 72 73  |file$).]..Rusers|
00006ab0  25 3d 30 0d 5d b6 05 f5  0d 5d c0 0b 61 24 3d be  |%=0.]....]..a$=.|
00006ac0  23 66 25 0d 5d ca 0f 61  25 3d a7 61 24 2c 22 3a  |#f%.]..a%=.a$,":|
00006ad0  22 29 0d 5d d4 0e 52 75  73 65 72 73 25 2b 3d 31  |").]..Rusers%+=1|
00006ae0  0d 5d de 1c 52 74 69 6d  24 28 52 75 73 65 72 73  |.]..Rtim$(Rusers|
00006af0  25 29 3d c1 61 24 2c 61  25 2b 32 29 0d 5d e8 09  |%)=.a$,a%+2).]..|
00006b00  fd c5 23 66 25 0d 5d f2  08 d9 23 66 25 0d 5d fc  |..#f%.]...#f%.].|
00006b10  21 c8 99 22 4f 53 5f 46  69 6c 65 22 2c 34 2c 54  |!.."OS_File",4,T|
00006b20  69 6d 65 73 66 69 6c 65  24 2c 2c 2c 2c 39 0d 5e  |imesfile$,,,,9.^|
00006b30  06 05 e1 0d 5e 4c 43 dd  f2 73 61 76 65 5f 6f 70  |....^LC..save_op|
00006b40  74 69 6f 6e 73 28 61 74  25 2c 77 74 25 2c 64 74  |tions(at%,wt%,dt|
00006b50  25 2c 74 73 25 2c 74 71  25 2c 64 61 25 2c 67 6c  |%,ts%,tq%,da%,gl|
00006b60  25 2c 74 6d 25 2c 66 6f  25 2c 77 6f 25 2c 70 65  |%,tm%,fo%,wo%,pe|
00006b70  25 2c 61 70 25 29 0d 5e  ec 07 ea 66 25 0d 5f 00  |%,ap%).^...f%._.|
00006b80  1f c8 99 22 4f 53 5f 46  69 6c 65 22 2c 34 2c 4f  |..."OS_File",4,O|
00006b90  70 74 66 69 6c 65 24 2c  2c 2c 2c 33 0d 5f 0a 14  |ptfile$,,,,3._..|
00006ba0  66 25 3d ae 28 54 5f 4f  70 74 66 69 6c 65 24 29  |f%=.(T_Optfile$)|
00006bb0  0d 5f 14 1f d5 23 66 25  2c 22 41 6c 6c 6f 77 20  |._...#f%,"Allow |
00006bc0  54 69 6d 65 20 3a 20 22  2b c3 28 61 74 25 29 0d  |Time : "+.(at%).|
00006bd0  5f 1e 1e d5 23 66 25 2c  22 57 61 72 6e 20 54 69  |_...#f%,"Warn Ti|
00006be0  6d 65 20 3a 20 22 2b c3  28 77 74 25 29 0d 5f 28  |me : "+.(wt%)._(|
00006bf0  1d d5 23 66 25 2c 22 44  69 65 20 54 69 6d 65 20  |..#f%,"Die Time |
00006c00  3a 20 22 2b c3 28 64 74  25 29 0d 5f 32 30 d5 23  |: "+.(dt%)._20.#|
00006c10  66 25 2c 22 54 61 73 6b  20 53 74 61 72 74 69 6e  |f%,"Task Startin|
00006c20  67 20 3a 20 22 2b bd 28  2d 38 39 2a 74 73 25 2d  |g : "+.(-89*ts%-|
00006c30  37 38 2a 28 ac 74 73 25  29 29 0d 5f 3c 30 d5 23  |78*(.ts%))._<0.#|
00006c40  66 25 2c 22 54 61 73 6b  20 51 75 69 74 74 69 6e  |f%,"Task Quittin|
00006c50  67 20 3a 20 22 2b bd 28  2d 38 39 2a 74 71 25 2d  |g : "+.(-89*tq%-|
00006c60  37 38 2a 28 ac 74 71 25  29 29 0d 5f 46 33 d5 23  |78*(.tq%))._F3.#|
00006c70  66 25 2c 22 44 69 72 65  63 74 6f 72 79 20 41 63  |f%,"Directory Ac|
00006c80  63 65 73 73 20 3a 20 22  2b bd 28 2d 38 39 2a 64  |cess : "+.(-89*d|
00006c90  61 25 2d 37 38 2a 28 ac  64 61 25 29 29 0d 5f 50  |a%-78*(.da%))._P|
00006ca0  2f d5 23 66 25 2c 22 47  75 65 73 74 20 4c 6f 67  |/.#f%,"Guest Log|
00006cb0  69 6e 73 20 3a 20 22 2b  bd 28 2d 38 39 2a 67 6c  |ins : "+.(-89*gl|
00006cc0  25 2d 37 38 2a 28 ac 67  6c 25 29 29 0d 5f 5a 33  |%-78*(.gl%))._Z3|
00006cd0  d5 23 66 25 2c 22 54 65  73 74 20 4d 6f 64 65 20  |.#f%,"Test Mode |
00006ce0  4c 6f 67 69 6e 73 20 3a  20 22 2b bd 28 2d 38 39  |Logins : "+.(-89|
00006cf0  2a 74 6d 25 2d 37 38 2a  28 ac 74 6d 25 29 29 0d  |*tm%-78*(.tm%)).|
00006d00  5f 64 34 d5 23 66 25 2c  22 46 75 6c 6c 20 4f 77  |_d4.#f%,"Full Ow|
00006d10  6e 65 72 20 41 63 63 65  73 73 20 3a 20 22 2b bd  |ner Access : "+.|
00006d20  28 2d 38 39 2a 66 6f 25  2d 37 38 2a 28 ac 66 6f  |(-89*fo%-78*(.fo|
00006d30  25 29 29 0d 5f 6e 2f d5  23 66 25 2c 22 57 61 74  |%))._n/.#f%,"Wat|
00006d40  63 68 64 6f 67 20 4f 66  66 20 3a 20 22 2b bd 28  |chdog Off : "+.(|
00006d50  2d 38 39 2a 77 6f 25 2d  37 38 2a 28 ac 77 6f 25  |-89*wo%-78*(.wo%|
00006d60  29 29 0d 5f 78 34 d5 23  66 25 2c 22 50 61 73 73  |))._x4.#f%,"Pass|
00006d70  77 6f 72 64 73 20 45 6e  61 62 6c 65 64 20 3a 20  |words Enabled : |
00006d80  22 2b bd 28 2d 38 39 2a  70 65 25 2d 37 38 2a 28  |"+.(-89*pe%-78*(|
00006d90  ac 70 65 25 29 29 0d 5f  82 2e d5 23 66 25 2c 22  |.pe%))._...#f%,"|
00006da0  41 75 74 6f 20 50 72 6f  6d 70 74 20 3a 20 22 2b  |Auto Prompt : "+|
00006db0  bd 28 2d 38 39 2a 61 70  25 2d 37 38 2a 28 ac 61  |.(-89*ap%-78*(.a|
00006dc0  70 25 29 29 0d 5f 8c 08  d9 23 66 25 0d 5f 96 1a  |p%))._...#f%._..|
00006dd0  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 36 2c 4f 70  |.."OS_File",6,Op|
00006de0  74 66 69 6c 65 24 0d 5f  a0 2b c8 99 22 4f 53 5f  |tfile$._.+.."OS_|
00006df0  46 53 43 6f 6e 74 72 6f  6c 22 2c 32 35 2c 54 5f  |FSControl",25,T_|
00006e00  4f 70 74 66 69 6c 65 24  2c 4f 70 74 66 69 6c 65  |Optfile$,Optfile|
00006e10  24 0d 5f aa 1f c8 99 22  4f 53 5f 46 69 6c 65 22  |$._...."OS_File"|
00006e20  2c 34 2c 4f 70 74 66 69  6c 65 24 2c 2c 2c 2c 39  |,4,Optfile$,,,,9|
00006e30  0d 5f b4 05 e1 0d 60 0e  15 dd f2 73 61 76 65 5f  |._....`....save_|
00006e40  75 73 65 72 61 63 63 65  73 73 0d 60 40 0a ea 66  |useraccess.`@..f|
00006e50  25 2c 61 25 0d 60 54 22  c8 99 22 4f 53 5f 46 69  |%,a%.`T".."OS_Fi|
00006e60  6c 65 22 2c 34 2c 41 63  63 65 73 73 66 69 6c 65  |le",4,Accessfile|
00006e70  24 2c 2c 2c 2c 33 0d 60  5e 17 66 25 3d ae 28 54  |$,,,,3.`^.f%=.(T|
00006e80  5f 41 63 63 65 73 73 66  69 6c 65 24 29 0d 60 68  |_Accessfile$).`h|
00006e90  11 e3 61 25 3d 31 b8 52  75 73 65 72 73 25 0d 60  |..a%=1.Rusers%.`|
00006ea0  72 22 d5 23 66 25 2c 52  75 73 72 24 28 61 25 29  |r".#f%,Rusr$(a%)|
00006eb0  2b 22 20 3a 20 22 2b 52  64 69 72 24 28 61 25 29  |+" : "+Rdir$(a%)|
00006ec0  0d 60 7c 07 ed 61 25 0d  60 86 08 d9 23 66 25 0d  |.`|..a%.`...#f%.|
00006ed0  60 90 1d c8 99 22 4f 53  5f 46 69 6c 65 22 2c 36  |`...."OS_File",6|
00006ee0  2c 41 63 63 65 73 73 66  69 6c 65 24 0d 60 9a 31  |,Accessfile$.`.1|
00006ef0  c8 99 22 4f 53 5f 46 53  43 6f 6e 74 72 6f 6c 22  |.."OS_FSControl"|
00006f00  2c 32 35 2c 54 5f 41 63  63 65 73 73 66 69 6c 65  |,25,T_Accessfile|
00006f10  24 2c 41 63 63 65 73 73  66 69 6c 65 24 0d 60 a4  |$,Accessfile$.`.|
00006f20  22 c8 99 22 4f 53 5f 46  69 6c 65 22 2c 34 2c 41  |".."OS_File",4,A|
00006f30  63 63 65 73 73 66 69 6c  65 24 2c 2c 2c 2c 39 0d  |ccessfile$,,,,9.|
00006f40  60 ae 05 e1 0d 60 fe 14  dd f2 73 61 76 65 5f 75  |`....`....save_u|
00006f50  73 65 72 74 69 6d 65 73  0d 61 26 0a ea 66 25 2c  |sertimes.a&..f%,|
00006f60  61 25 0d 61 3a 21 c8 99  22 4f 53 5f 46 69 6c 65  |a%.a:!.."OS_File|
00006f70  22 2c 34 2c 54 69 6d 65  73 66 69 6c 65 24 2c 2c  |",4,Timesfile$,,|
00006f80  2c 2c 33 0d 61 44 16 66  25 3d ae 28 54 5f 54 69  |,,3.aD.f%=.(T_Ti|
00006f90  6d 65 73 66 69 6c 65 24  29 0d 61 4e 11 e3 61 25  |mesfile$).aN..a%|
00006fa0  3d 31 b8 52 75 73 65 72  73 25 0d 61 58 22 d5 23  |=1.Rusers%.aX".#|
00006fb0  66 25 2c 52 75 73 72 24  28 61 25 29 2b 22 20 3a  |f%,Rusr$(a%)+" :|
00006fc0  20 22 2b 52 74 69 6d 24  28 61 25 29 0d 61 62 07  | "+Rtim$(a%).ab.|
00006fd0  ed 61 25 0d 61 6c 08 d9  23 66 25 0d 61 76 1c c8  |.a%.al..#f%.av..|
00006fe0  99 22 4f 53 5f 46 69 6c  65 22 2c 36 2c 54 69 6d  |."OS_File",6,Tim|
00006ff0  65 73 66 69 6c 65 24 0d  61 80 2f c8 99 22 4f 53  |esfile$.a./.."OS|
00007000  5f 46 53 43 6f 6e 74 72  6f 6c 22 2c 32 35 2c 54  |_FSControl",25,T|
00007010  5f 54 69 6d 65 73 66 69  6c 65 24 2c 54 69 6d 65  |_Timesfile$,Time|
00007020  73 66 69 6c 65 24 0d 61  8a 21 c8 99 22 4f 53 5f  |sfile$.a.!.."OS_|
00007030  46 69 6c 65 22 2c 34 2c  54 69 6d 65 73 66 69 6c  |File",4,Timesfil|
00007040  65 24 2c 2c 2c 2c 39 0d  61 94 05 e1 0d 61 da 12  |e$,,,,9.a....a..|
00007050  dd f2 6d 61 6b 65 5f 64  69 72 6c 69 73 74 0d 62  |..make_dirlist.b|
00007060  02 14 ea 70 6e 74 72 25  2c 73 70 6e 74 72 25 2c  |...pntr%,spntr%,|
00007070  61 25 0d 62 16 0c 54 64  69 72 73 25 3d 30 0d 62  |a%.b..Tdirs%=0.b|
00007080  3e 08 61 25 3d 30 0d 62  48 05 f5 0d 62 52 3b c8  |>.a%=0.bH...bR;.|
00007090  99 22 4f 53 5f 47 42 50  42 22 2c 31 32 2c 22 3c  |."OS_GBPB",12,"<|
000070a0  42 6f 6f 74 24 64 69 72  3e 2e 5e 22 2c 42 75 66  |Boot$dir>.^",Buf|
000070b0  31 25 2c 31 2c 61 25 2c  32 35 36 2c 22 2a 22 b8  |1%,1,a%,256,"*".|
000070c0  2c 2c 2c 2c 61 25 0d 62  5c 1e e7 28 61 25 3c 3e  |,,,,a%.b\..(a%<>|
000070d0  2d 31 29 80 28 42 75 66  31 25 21 32 30 3e 26 66  |-1).(Buf1%!20>&f|
000070e0  66 66 29 8c 0d 62 84 0d  54 64 69 72 73 25 2b 3d  |ff)..b..Tdirs%+=|
000070f0  31 0d 62 8e 27 54 64 69  72 24 28 54 64 69 72 73  |1.b.'Tdir$(Tdirs|
00007100  25 2c 31 29 3d a4 69 6e  64 69 72 65 63 74 28 42  |%,1)=.indirect(B|
00007110  75 66 31 25 2b 32 34 29  0d 62 98 51 e7 52 75 73  |uf1%+24).b.Q.Rus|
00007120  72 24 28 52 75 73 72 25  29 3c 3e 4f 77 6e 65 72  |r$(Rusr%)<>Owner|
00007130  24 80 28 54 64 69 72 24  28 54 64 69 72 73 25 2c  |$.(Tdir$(Tdirs%,|
00007140  31 29 3d 22 21 42 6f 6f  74 22 84 c0 54 64 69 72  |1)="!Boot"..Tdir|
00007150  24 28 54 64 69 72 73 25  2c 31 29 2c 36 29 3d 22  |$(Tdirs%,1),6)="|
00007160  21 54 72 61 70 5f 22 29  8c 0d 62 c0 28 54 66 6c  |!Trap_")..b.(Tfl|
00007170  67 25 28 54 64 69 72 73  25 2c 31 29 3d 26 37 84  |g%(Tdirs%,1)=&7.|
00007180  26 31 30 30 84 28 32 34  3c 3c 31 36 29 84 26 34  |&100.(24<<16).&4|
00007190  30 0d 62 ca 05 cc 0d 62  f2 24 54 66 6c 67 25 28  |0.b....b.$Tflg%(|
000071a0  54 64 69 72 73 25 2c 31  29 3d 26 37 84 26 31 30  |Tdirs%,1)=&7.&10|
000071b0  30 84 28 32 34 3c 3c 31  36 29 0d 62 fc 05 cd 0d  |0.(24<<16).b....|
000071c0  63 06 05 cd 0d 63 10 0a  fd 61 25 3d 2d 31 0d 63  |c....c...a%=-1.c|
000071d0  1a 0d 54 6e 70 74 25 28  29 3d 30 0d 63 24 0d 54  |..Tnpt%()=0.c$.T|
000071e0  79 70 74 25 28 29 3d 30  0d 63 2e 05 e1 0d 63 7e  |ypt%()=0.c....c~|
000071f0  12 dd f2 75 73 65 72 5f  67 61 64 67 65 74 73 0d  |...user_gadgets.|
00007200  63 a6 1b ea 61 25 2c 64  25 2c 6c 25 2c 72 25 2c  |c...a%,d%,l%,r%,|
00007210  65 31 25 2c 65 32 25 2c  74 24 0d 63 ba 0d 54 79  |e1%,e2%,t$.c..Ty|
00007220  64 69 72 73 25 3d 30 0d  63 c4 0d 54 6e 64 69 72  |dirs%=0.c..Tndir|
00007230  73 25 3d 30 0d 63 ce 10  e3 61 25 3d 31 b8 54 64  |s%=0.c...a%=1.Td|
00007240  69 72 73 25 0d 63 d8 2a  e7 a7 52 64 69 72 24 28  |irs%.c.*..Rdir$(|
00007250  52 75 73 72 25 29 2c 22  7c 22 2b 54 64 69 72 24  |Rusr%),"|"+Tdir$|
00007260  28 61 25 2c 31 29 2b 22  7c 22 29 3e 30 8c 0d 64  |(a%,1)+"|")>0..d|
00007270  00 0e 54 79 64 69 72 73  25 2b 3d 31 0d 64 0a 15  |..Tydirs%+=1.d..|
00007280  54 79 70 74 25 28 54 79  64 69 72 73 25 29 3d 61  |Typt%(Tydirs%)=a|
00007290  25 0d 64 14 05 cc 0d 64  3c 0e 54 6e 64 69 72 73  |%.d....d<.Tndirs|
000072a0  25 2b 3d 31 0d 64 46 15  54 6e 70 74 25 28 54 6e  |%+=1.dF.Tnpt%(Tn|
000072b0  64 69 72 73 25 29 3d 61  25 0d 64 50 05 cd 0d 64  |dirs%)=a%.dP...d|
000072c0  78 1b e7 28 54 66 6c 67  25 28 61 25 2c 31 29 80  |x..(Tflg%(a%,1).|
000072d0  26 34 30 29 3d 26 34 30  8c 0d 64 a0 19 e7 52 75  |&40)=&40..d...Ru|
000072e0  73 72 24 28 52 75 73 72  25 29 3d 4f 77 6e 65 72  |sr$(Rusr%)=Owner|
000072f0  24 8c 0d 64 aa 2a 54 66  6c 67 25 28 61 25 2c 31  |$..d.*Tflg%(a%,1|
00007300  29 3d 28 54 66 6c 67 25  28 61 25 2c 31 29 80 26  |)=(Tflg%(a%,1).&|
00007310  46 46 46 46 46 46 46 43  29 84 26 37 0d 64 b4 05  |FFFFFFFC).&7.d..|
00007320  cc 0d 64 be 2a 54 66 6c  67 25 28 61 25 2c 31 29  |..d.*Tflg%(a%,1)|
00007330  3d 28 54 66 6c 67 25 28  61 25 2c 31 29 80 26 46  |=(Tflg%(a%,1).&F|
00007340  46 46 46 46 46 46 43 29  84 26 35 0d 64 c8 05 cd  |FFFFFFC).&5.d...|
00007350  0d 64 d2 05 cd 0d 64 dc  07 ed 61 25 0d 65 04 13  |.d....d...a%.e..|
00007360  74 24 3d 52 74 69 6d 24  28 52 75 73 72 25 29 0d  |t$=Rtim$(Rusr%).|
00007370  65 0e 08 6c 25 3d 31 0d  65 18 0b e3 64 25 3d 31  |e..l%=1.e...d%=1|
00007380  b8 37 0d 65 22 14 72 25  3d a7 74 24 2c 22 7c 22  |.7.e".r%=.t$,"|"|
00007390  2c 6c 25 2b 31 29 0d 65  2c 15 65 31 25 3d a7 74  |,l%+1).e,.e1%=.t|
000073a0  24 2c 22 3d 22 2c 6c 25  2b 31 29 0d 65 36 16 65  |$,"=",l%+1).e6.e|
000073b0  32 25 3d a7 74 24 2c 22  3d 22 2c 65 31 25 2b 31  |2%=.t$,"=",e1%+1|
000073c0  29 0d 65 5e 15 e7 c1 74  24 2c 6c 25 2b 33 2c 31  |).e^...t$,l%+3,1|
000073d0  29 3d 22 59 22 8c 0d 65  68 2a c8 99 54 5f 54 4f  |)="Y"..eh*..T_TO|
000073e0  4d 4f 25 2c 30 2c 55 73  65 72 61 63 63 65 73 73  |MO%,0,Useraccess|
000073f0  5f 49 44 25 2c 31 39 36  2c 64 25 2b 26 33 2c 31  |_ID%,196,d%+&3,1|
00007400  0d 65 72 05 cc 0d 65 7c  2a c8 99 54 5f 54 4f 4d  |.er...e|*..T_TOM|
00007410  4f 25 2c 30 2c 55 73 65  72 61 63 63 65 73 73 5f  |O%,0,Useraccess_|
00007420  49 44 25 2c 31 39 36 2c  64 25 2b 26 33 2c 30 0d  |ID%,196,d%+&3,0.|
00007430  65 86 05 cd 0d 65 ae 41  c8 99 54 5f 54 4f 4d 4f  |e....e.A..T_TOMO|
00007440  25 2c 30 2c 55 73 65 72  61 63 63 65 73 73 5f 49  |%,0,Useraccess_I|
00007450  44 25 2c 38 33 32 2c 64  25 2b 26 32 33 2c bb 28  |D%,832,d%+&23,.(|
00007460  c1 74 24 2c 65 31 25 2b  31 2c 65 32 25 2d 65 31  |.t$,e1%+1,e2%-e1|
00007470  25 2d 31 29 29 0d 65 d6  40 c8 99 54 5f 54 4f 4d  |%-1)).e.@..T_TOM|
00007480  4f 25 2c 30 2c 55 73 65  72 61 63 63 65 73 73 5f  |O%,0,Useraccess_|
00007490  49 44 25 2c 38 33 32 2c  64 25 2b 26 33 30 2c bb  |ID%,832,d%+&30,.|
000074a0  28 c1 74 24 2c 65 32 25  2b 31 2c 72 25 2d 65 32  |(.t$,e2%+1,r%-e2|
000074b0  25 2d 31 29 29 0d 65 e0  09 6c 25 3d 72 25 0d 65  |%-1)).e..l%=r%.e|
000074c0  ea 14 72 25 3d a7 74 24  2c 22 7c 22 2c 6c 25 2b  |..r%=.t$,"|",l%+|
000074d0  31 29 0d 65 f4 07 ed 64  25 0d 65 fe 05 e1 0d 66  |1).e...d%.e....f|
000074e0  44 17 dd f2 6d 6f 64 69  66 79 5f 75 73 65 72 61  |D...modify_usera|
000074f0  63 63 65 73 73 0d 66 6c  0f ea 61 24 2c 61 25 2c  |ccess.fl..a$,a%,|
00007500  62 2c 74 24 0d 66 94 0a  61 24 3d 22 7c 22 0d 66  |b,t$.f..a$="|".f|
00007510  9e 11 e3 61 25 3d 31 b8  54 79 64 69 72 73 25 0d  |...a%=1.Tydirs%.|
00007520  66 a8 1e 61 24 2b 3d 54  64 69 72 24 28 54 79 70  |f..a$+=Tdir$(Typ|
00007530  74 25 28 61 25 29 2c 31  29 2b 22 7c 22 0d 66 b2  |t%(a%),1)+"|".f.|
00007540  07 ed 61 25 0d 66 bc 13  52 64 69 72 24 28 52 75  |..a%.f..Rdir$(Ru|
00007550  73 72 25 29 3d 61 24 0d  66 e4 0a 61 24 3d 22 7c  |sr%)=a$.f..a$="||
00007560  22 0d 66 ee 0b e3 64 25  3d 31 b8 37 0d 66 f8 15  |".f...d%=1.7.f..|
00007570  61 24 2b 3d 57 65 65 6b  64 61 79 73 24 28 64 25  |a$+=Weekdays$(d%|
00007580  29 0d 67 02 2b c8 99 54  5f 54 4f 4d 4f 25 2c 30  |).g.+..T_TOMO%,0|
00007590  2c 55 73 65 72 61 63 63  65 73 73 5f 49 44 25 2c  |,Useraccess_ID%,|
000075a0  31 39 37 2c 26 33 2b 64  25 b8 61 25 0d 67 0c 0a  |197,&3+d%.a%.g..|
000075b0  e7 61 25 3d 31 8c 0d 67  16 0b 61 24 2b 3d 22 59  |.a%=1..g..a$+="Y|
000075c0  22 0d 67 20 05 cc 0d 67  2a 0b 61 24 2b 3d 22 4e  |".g ...g*.a$+="N|
000075d0  22 0d 67 34 05 cd 0d 67  3e 2c c8 99 54 5f 54 4f  |".g4...g>,..T_TO|
000075e0  4d 4f 25 2c 30 2c 55 73  65 72 61 63 63 65 73 73  |MO%,0,Useraccess|
000075f0  5f 49 44 25 2c 38 33 33  2c 64 25 2b 26 32 33 b8  |_ID%,833,d%+&23.|
00007600  61 25 0d 67 48 11 61 24  2b 3d 22 3d 22 2b c3 28  |a%.gH.a$+="="+.(|
00007610  61 25 29 0d 67 70 2c c8  99 54 5f 54 4f 4d 4f 25  |a%).gp,..T_TOMO%|
00007620  2c 30 2c 55 73 65 72 61  63 63 65 73 73 5f 49 44  |,0,Useraccess_ID|
00007630  25 2c 38 33 33 2c 64 25  2b 26 33 30 b8 61 25 0d  |%,833,d%+&30.a%.|
00007640  67 7a 15 61 24 2b 3d 22  3d 22 2b c3 28 61 25 29  |gz.a$+="="+.(a%)|
00007650  2b 22 7c 22 0d 67 84 07  ed 64 25 0d 67 8e 13 52  |+"|".g...d%.g..R|
00007660  74 69 6d 24 28 52 75 73  72 25 29 3d 61 24 0d 67  |tim$(Rusr%)=a$.g|
00007670  98 05 e1 0d 67 de 2d dd  f2 70 61 73 73 6d 65 6e  |....g.-..passmen|
00007680  75 5f 67 72 65 79 73 28  69 31 25 2c 69 32 25 2c  |u_greys(i1%,i2%,|
00007690  69 33 25 2c 69 34 25 2c  69 35 25 2c 69 36 25 29  |i3%,i4%,i5%,i6%)|
000076a0  0d 68 4c 24 c8 99 54 5f  54 4f 4d 4f 25 2c 30 2c  |.hL$..T_TOMO%,0,|
000076b0  50 61 73 73 6d 65 6e 75  5f 49 44 25 2c 32 2c 37  |Passmenu_ID%,2,7|
000076c0  2c 69 31 25 0d 68 56 25  c8 99 54 5f 54 4f 4d 4f  |,i1%.hV%..T_TOMO|
000076d0  25 2c 30 2c 50 61 73 73  6d 65 6e 75 5f 49 44 25  |%,0,Passmenu_ID%|
000076e0  2c 32 2c 26 64 2c 69 32  25 0d 68 60 24 c8 99 54  |,2,&d,i2%.h`$..T|
000076f0  5f 54 4f 4d 4f 25 2c 30  2c 50 61 73 73 6d 65 6e  |_TOMO%,0,Passmen|
00007700  75 5f 49 44 25 2c 32 2c  36 2c 69 33 25 0d 68 6a  |u_ID%,2,6,i3%.hj|
00007710  24 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 50 61 73  |$..T_TOMO%,0,Pas|
00007720  73 6d 65 6e 75 5f 49 44  25 2c 32 2c 33 2c 69 34  |smenu_ID%,2,3,i4|
00007730  25 0d 68 74 24 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |%.ht$..T_TOMO%,0|
00007740  2c 50 61 73 73 6d 65 6e  75 5f 49 44 25 2c 32 2c  |,Passmenu_ID%,2,|
00007750  38 2c 69 35 25 0d 68 7e  25 c8 99 54 5f 54 4f 4d  |8,i5%.h~%..T_TOM|
00007760  4f 25 2c 30 2c 50 61 73  73 6d 65 6e 75 5f 49 44  |O%,0,Passmenu_ID|
00007770  25 2c 32 2c 26 63 2c 69  36 25 0d 68 88 05 e1 0d  |%,2,&c,i6%.h....|
00007780  68 ce 29 dd f2 69 62 61  72 6d 65 6e 75 5f 67 72  |h.)..ibarmenu_gr|
00007790  65 79 73 28 69 31 25 2c  69 32 25 2c 69 33 25 2c  |eys(i1%,i2%,i3%,|
000077a0  69 34 25 2c 62 74 24 29  0d 69 1e 24 c8 99 54 5f  |i4%,bt$).i.$..T_|
000077b0  54 4f 4d 4f 25 2c 30 2c  49 62 61 72 6d 65 6e 75  |TOMO%,0,Ibarmenu|
000077c0  5f 49 44 25 2c 32 2c 35  2c 69 31 25 0d 69 28 24  |_ID%,2,5,i1%.i($|
000077d0  c8 99 54 5f 54 4f 4d 4f  25 2c 30 2c 49 62 61 72  |..T_TOMO%,0,Ibar|
000077e0  6d 65 6e 75 5f 49 44 25  2c 32 2c 36 2c 69 32 25  |menu_ID%,2,6,i2%|
000077f0  0d 69 32 25 c8 99 54 5f  54 4f 4d 4f 25 2c 30 2c  |.i2%..T_TOMO%,0,|
00007800  49 62 61 72 6d 65 6e 75  5f 49 44 25 2c 32 2c 26  |Ibarmenu_ID%,2,&|
00007810  61 2c 69 33 25 0d 69 3c  25 c8 99 54 5f 54 4f 4d  |a,i3%.i<%..T_TOM|
00007820  4f 25 2c 30 2c 49 62 61  72 6d 65 6e 75 5f 49 44  |O%,0,Ibarmenu_ID|
00007830  25 2c 32 2c 26 62 2c 69  34 25 0d 69 46 23 c8 99  |%,2,&b,i4%.iF#..|
00007840  54 5f 54 4f 4d 4f 25 2c  30 2c 49 62 61 72 6d 65  |T_TOMO%,0,Ibarme|
00007850  6e 75 5f 49 44 25 2c 32  34 2c 62 74 24 0d 69 50  |nu_ID%,24,bt$.iP|
00007860  05 e1 0d 69 96 3b dd f2  63 6c 65 61 72 5f 66 69  |...i.;..clear_fi|
00007870  65 6c 64 73 28 6c 62 24  2c 74 31 24 2c 74 32 24  |elds(lb$,t1$,t2$|
00007880  2c 74 33 24 2c 74 34 24  2c 66 64 31 25 2c 66 64  |,t3$,t4$,fd1%,fd|
00007890  32 25 2c 66 64 33 25 2c  66 64 34 25 29 0d 6a 22  |2%,fd3%,fd4%).j"|
000078a0  24 61 24 3d a4 67 65 74  5f 6d 65 73 73 61 67 65  |$a$=.get_message|
000078b0  28 6c 62 24 2c 22 22 2c  22 22 2c 22 22 2c 22 22  |(lb$,"","","",""|
000078c0  29 0d 6a 2c 26 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |).j,&..T_TOMO%,0|
000078d0  2c 50 61 73 73 77 6f 72  64 5f 49 44 25 2c 34 34  |,Password_ID%,44|
000078e0  38 2c 26 61 2c 61 24 0d  6a 36 26 c8 99 54 5f 54  |8,&a,a$.j6&..T_T|
000078f0  4f 4d 4f 25 2c 30 2c 50  61 73 73 77 6f 72 64 5f  |OMO%,0,Password_|
00007900  49 44 25 2c 35 31 32 2c  34 2c 74 31 24 0d 6a 40  |ID%,512,4,t1$.j@|
00007910  26 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 50 61 73  |&..T_TOMO%,0,Pas|
00007920  73 77 6f 72 64 5f 49 44  25 2c 35 31 32 2c 35 2c  |sword_ID%,512,5,|
00007930  74 32 24 0d 6a 4a 26 c8  99 54 5f 54 4f 4d 4f 25  |t2$.jJ&..T_TOMO%|
00007940  2c 30 2c 50 61 73 73 77  6f 72 64 5f 49 44 25 2c  |,0,Password_ID%,|
00007950  35 31 32 2c 36 2c 74 33  24 0d 6a 54 26 c8 99 54  |512,6,t3$.jT&..T|
00007960  5f 54 4f 4d 4f 25 2c 30  2c 50 61 73 73 77 6f 72  |_TOMO%,0,Passwor|
00007970  64 5f 49 44 25 2c 35 31  32 2c 37 2c 74 33 24 0d  |d_ID%,512,7,t3$.|
00007980  6a 5e 26 c8 99 54 5f 54  4f 4d 4f 25 2c 30 2c 50  |j^&..T_TOMO%,0,P|
00007990  61 73 73 77 6f 72 64 5f  49 44 25 2c 36 35 2c 30  |assword_ID%,65,0|
000079a0  2c 66 64 31 25 0d 6a 68  26 c8 99 54 5f 54 4f 4d  |,fd1%.jh&..T_TOM|
000079b0  4f 25 2c 30 2c 50 61 73  73 77 6f 72 64 5f 49 44  |O%,0,Password_ID|
000079c0  25 2c 36 35 2c 34 2c 66  64 31 25 0d 6a 72 26 c8  |%,65,4,fd1%.jr&.|
000079d0  99 54 5f 54 4f 4d 4f 25  2c 30 2c 50 61 73 73 77  |.T_TOMO%,0,Passw|
000079e0  6f 72 64 5f 49 44 25 2c  36 35 2c 31 2c 66 64 32  |ord_ID%,65,1,fd2|
000079f0  25 0d 6a 7c 26 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |%.j|&..T_TOMO%,0|
00007a00  2c 50 61 73 73 77 6f 72  64 5f 49 44 25 2c 36 35  |,Password_ID%,65|
00007a10  2c 35 2c 66 64 32 25 0d  6a 86 26 c8 99 54 5f 54  |,5,fd2%.j.&..T_T|
00007a20  4f 4d 4f 25 2c 30 2c 50  61 73 73 77 6f 72 64 5f  |OMO%,0,Password_|
00007a30  49 44 25 2c 36 35 2c 32  2c 66 64 33 25 0d 6a 90  |ID%,65,2,fd3%.j.|
00007a40  26 c8 99 54 5f 54 4f 4d  4f 25 2c 30 2c 50 61 73  |&..T_TOMO%,0,Pas|
00007a50  73 77 6f 72 64 5f 49 44  25 2c 36 35 2c 36 2c 66  |sword_ID%,65,6,f|
00007a60  64 33 25 0d 6a 9a 26 c8  99 54 5f 54 4f 4d 4f 25  |d3%.j.&..T_TOMO%|
00007a70  2c 30 2c 50 61 73 73 77  6f 72 64 5f 49 44 25 2c  |,0,Password_ID%,|
00007a80  36 35 2c 33 2c 66 64 34  25 0d 6a a4 26 c8 99 54  |65,3,fd4%.j.&..T|
00007a90  5f 54 4f 4d 4f 25 2c 30  2c 50 61 73 73 77 6f 72  |_TOMO%,0,Passwor|
00007aa0  64 5f 49 44 25 2c 36 35  2c 37 2c 66 64 34 25 0d  |d_ID%,65,7,fd4%.|
00007ab0  6a ae 05 e1 0d 6a f4 14  dd f2 69 6e 73 74 61 6c  |j....j....instal|
00007ac0  6c 5f 6c 6f 67 69 6e 73  0d 6b 3a 14 ea 6c 25 2c  |l_logins.k:..l%,|
00007ad0  62 6f 6f 74 70 6c 75 73  64 69 72 24 0d 6b 44 37  |bootplusdir$.kD7|
00007ae0  c8 99 22 4f 53 5f 52 65  61 64 56 61 72 56 61 6c  |.."OS_ReadVarVal|
00007af0  22 2c 22 42 6f 6f 74 70  6c 75 73 24 44 69 72 22  |","Bootplus$Dir"|
00007b00  2c 42 75 66 31 25 2c 31  32 38 2c 30 2c 30 b8 2c  |,Buf1%,128,0,0.,|
00007b10  2c 6c 25 0d 6b 4e 0f 42  75 66 31 25 3f 6c 25 3d  |,l%.kN.Buf1%?l%=|
00007b20  31 33 0d 6b 58 17 62 6f  6f 74 70 6c 75 73 64 69  |13.kX.bootplusdi|
00007b30  72 24 3d 24 42 75 66 31  25 0d 6b 62 1c 41 70 70  |r$=$Buf1%.kb.App|
00007b40  6c 69 63 61 74 69 6f 6e  24 3d 22 21 7a 7a 7a 7a  |lication$="!zzzz|
00007b50  70 61 73 73 22 0d 6b 6c  2f 53 6f 75 72 63 65 24  |pass".kl/Source$|
00007b60  3d 62 6f 6f 74 70 6c 75  73 64 69 72 24 2b 22 2e  |=bootplusdir$+".|
00007b70  72 65 73 6f 75 72 63 65  73 2e 21 7a 7a 7a 7a 70  |resources.!zzzzp|
00007b80  61 73 73 22 0d 6b 76 2d  f2 6d 61 6b 65 5f 61 6c  |ass".kv-.make_al|
00007b90  69 61 73 28 22 3c 42 6f  6f 74 24 54 6f 42 65 54  |ias("<Boot$ToBeT|
00007ba0  61 73 6b 73 3e 2e 21 7a  7a 7a 7a 70 61 73 73 22  |asks>.!zzzzpass"|
00007bb0  29 0d 6b 80 1c 41 70 70  6c 69 63 61 74 69 6f 6e  |).k..Application|
00007bc0  24 3d 22 21 42 6f 6f 74  70 6c 75 73 22 0d 6b 8a  |$="!Bootplus".k.|
00007bd0  18 53 6f 75 72 63 65 24  3d 62 6f 6f 74 70 6c 75  |.Source$=bootplu|
00007be0  73 64 69 72 24 0d 6b 94  2d f2 6d 61 6b 65 5f 61  |sdir$.k.-.make_a|
00007bf0  6c 69 61 73 28 22 3c 42  6f 6f 74 24 54 6f 42 65  |lias("<Boot$ToBe|
00007c00  54 61 73 6b 73 3e 2e 21  42 6f 6f 74 70 6c 75 73  |Tasks>.!Bootplus|
00007c10  22 29 0d 6b 9e 15 45 64  69 74 5f 54 79 70 65 24  |").k..Edit_Type$|
00007c20  3d 22 62 6f 6f 74 22 0d  6b a8 2e f2 6d 6f 64 69  |="boot".k...modi|
00007c30  66 79 5f 62 6f 6f 74 5f  66 69 6c 65 28 62 6f 6f  |fy_boot_file(boo|
00007c40  74 70 6c 75 73 64 69 72  24 2c 22 72 65 6d 6f 76  |tplusdir$,"remov|
00007c50  65 22 2c b9 29 0d 6b b2  2e f2 6d 6f 64 69 66 79  |e",.).k...modify|
00007c60  5f 62 6f 6f 74 5f 66 69  6c 65 28 62 6f 6f 74 70  |_boot_file(bootp|
00007c70  6c 75 73 64 69 72 24 2c  22 69 6e 73 65 72 74 22  |lusdir$,"insert"|
00007c80  2c b9 29 0d 6b bc 11 45  64 69 74 5f 54 79 70 65  |,.).k..Edit_Type|
00007c90  24 3d 22 22 0d 6b c6 31  2a 46 69 6c 65 72 5f 52  |$="".k.1*Filer_R|
00007ca0  75 6e 20 3c 42 6f 6f 74  70 6c 75 73 24 44 69 72  |un <Bootplus$Dir|
00007cb0  3e 2e 52 65 73 6f 75 72  63 65 73 2e 21 7a 7a 7a  |>.Resources.!zzz|
00007cc0  7a 70 61 73 73 0d 6b d0  05 e1 0d 6c 16 13 dd f2  |zpass.k....l....|
00007cd0  72 65 6d 6f 76 65 5f 6c  6f 67 69 6e 73 0d 6c 48  |remove_logins.lH|
00007ce0  14 ea 6c 25 2c 62 6f 6f  74 70 6c 75 73 64 69 72  |..l%,bootplusdir|
00007cf0  24 0d 6c 5c 37 c8 99 22  4f 53 5f 52 65 61 64 56  |$.l\7.."OS_ReadV|
00007d00  61 72 56 61 6c 22 2c 22  42 6f 6f 74 70 6c 75 73  |arVal","Bootplus|
00007d10  24 44 69 72 22 2c 42 75  66 31 25 2c 31 32 38 2c  |$Dir",Buf1%,128,|
00007d20  30 2c 30 b8 2c 2c 6c 25  0d 6c 66 0f 42 75 66 31  |0,0.,,l%.lf.Buf1|
00007d30  25 3f 6c 25 3d 31 33 0d  6c 70 17 62 6f 6f 74 70  |%?l%=13.lp.bootp|
00007d40  6c 75 73 64 69 72 24 3d  24 42 75 66 31 25 0d 6c  |lusdir$=$Buf1%.l|
00007d50  7a 38 c8 99 22 58 4f 53  5f 46 53 43 6f 6e 74 72  |z8.."XOS_FSContr|
00007d60  6f 6c 22 2c 32 37 2c 22  3c 42 6f 6f 74 24 54 6f  |ol",27,"<Boot$To|
00007d70  42 65 54 61 73 6b 73 3e  2e 21 7a 7a 7a 7a 70 61  |BeTasks>.!zzzzpa|
00007d80  73 73 22 2c 2c 33 0d 6c  84 38 c8 99 22 58 4f 53  |ss",,3.l.8.."XOS|
00007d90  5f 46 53 43 6f 6e 74 72  6f 6c 22 2c 32 37 2c 22  |_FSControl",27,"|
00007da0  3c 42 6f 6f 74 24 54 6f  42 65 54 61 73 6b 73 3e  |<Boot$ToBeTasks>|
00007db0  2e 21 62 6f 6f 74 70 6c  75 73 22 2c 2c 33 0d 6c  |.!bootplus",,3.l|
00007dc0  8e 15 45 64 69 74 5f 54  79 70 65 24 3d 22 62 6f  |..Edit_Type$="bo|
00007dd0  6f 74 22 0d 6c 98 2e f2  6d 6f 64 69 66 79 5f 62  |ot".l...modify_b|
00007de0  6f 6f 74 5f 66 69 6c 65  28 62 6f 6f 74 70 6c 75  |oot_file(bootplu|
00007df0  73 64 69 72 24 2c 22 72  65 6d 6f 76 65 22 2c b9  |sdir$,"remove",.|
00007e00  29 0d 6c a2 11 45 64 69  74 5f 54 79 70 65 24 3d  |).l..Edit_Type$=|
00007e10  22 22 0d 6c ac 05 e1 0d  6c f2 12 dd f2 70 61 75  |"".l....l....pau|
00007e20  73 65 5f 6c 6f 67 69 6e  73 0d 6d 1a 08 ea 69 64  |se_logins.m...id|
00007e30  25 0d 6d 2e 20 69 64 25  3d a4 67 65 74 5f 74 61  |%.m. id%=.get_ta|
00007e40  73 6b 5f 69 64 28 22 7a  7a 7a 7a 70 61 73 73 22  |sk_id("zzzzpass"|
00007e50  29 0d 6d 38 0b e7 69 64  25 3e 30 8c 0d 6d 60 29  |).m8..id%>0..m`)|
00007e60  42 6c 63 6b 25 21 30 3d  32 38 3a 42 6c 63 6b 25  |Blck%!0=28:Blck%|
00007e70  21 31 32 3d 30 3a 42 6c  63 6b 25 21 31 36 3d 26  |!12=0:Blck%!16=&|
00007e80  38 30 38 63 30 0d 6d 6a  1d 42 6c 63 6b 25 21 32  |808c0.mj.Blck%!2|
00007e90  30 3d 34 3a 42 6c 63 6b  25 21 32 34 3d 42 75 66  |0=4:Blck%!24=Buf|
00007ea0  32 25 0d 6d 74 0c 21 42  75 66 32 25 3d 33 0d 6d  |2%.mt.!Buf2%=3.m|
00007eb0  7e 25 c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |~%.."Wimp_SendMe|
00007ec0  73 73 61 67 65 22 2c 31  37 2c 42 6c 63 6b 25 2c  |ssage",17,Blck%,|
00007ed0  69 64 25 0d 6d 88 05 cd  0d 6d 92 1f 69 64 25 3d  |id%.m....m..id%=|
00007ee0  a4 67 65 74 5f 74 61 73  6b 5f 69 64 28 22 7a 7a  |.get_task_id("zz|
00007ef0  7a 7a 63 68 6b 22 29 0d  6d 9c 0b e7 69 64 25 3e  |zzchk").m...id%>|
00007f00  30 8c 0d 6d c4 29 42 6c  63 6b 25 21 30 3d 32 38  |0..m.)Blck%!0=28|
00007f10  3a 42 6c 63 6b 25 21 31  32 3d 30 3a 42 6c 63 6b  |:Blck%!12=0:Blck|
00007f20  25 21 31 36 3d 26 38 30  38 63 30 0d 6d ce 1d 42  |%!16=&808c0.m..B|
00007f30  6c 63 6b 25 21 32 30 3d  34 3a 42 6c 63 6b 25 21  |lck%!20=4:Blck%!|
00007f40  32 34 3d 42 75 66 32 25  0d 6d d8 0c 21 42 75 66  |24=Buf2%.m..!Buf|
00007f50  32 25 3d 33 0d 6d e2 25  c8 99 22 57 69 6d 70 5f  |2%=3.m.%.."Wimp_|
00007f60  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 37 2c  |SendMessage",17,|
00007f70  42 6c 63 6b 25 2c 69 64  25 0d 6d ec 05 cd 0d 6d  |Blck%,id%.m....m|
00007f80  f6 05 e1 0d 6e 5a 13 dd  a4 65 6e 63 6f 64 65 28  |....nZ...encode(|
00007f90  70 73 77 64 24 29 0d 6e  a0 16 ea 65 6e 63 64 24  |pswd$).n...encd$|
00007fa0  2c 61 25 2c 62 25 2c 63  25 2c 64 25 0d 6e b4 0c  |,a%,b%,c%,d%.n..|
00007fb0  65 6e 63 64 24 3d 22 22  0d 6e be 0f 61 25 3d a9  |encd$="".n..a%=.|
00007fc0  28 70 73 77 64 24 29 0d  6e c8 0c e3 65 25 3d 31  |(pswd$).n...e%=1|
00007fd0  b8 61 25 0d 6e d2 16 62  25 3d 97 28 c1 70 73 77  |.a%.n..b%=.(.psw|
00007fe0  64 24 2c 65 25 2c 31 29  29 0d 6e dc 1b 63 25 3d  |d$,e%,1)).n..c%=|
00007ff0  97 28 c1 70 73 77 64 24  2c 61 25 2d 65 25 2b 31  |.(.pswd$,a%-e%+1|
00008000  2c 31 29 29 0d 6e e6 16  64 25 3d 28 62 25 2a 28  |,1)).n..d%=(b%*(|
00008010  63 25 2b 31 29 29 80 26  46 46 0d 6e f0 11 e7 64  |c%+1)).&FF.n...d|
00008020  25 3c 33 32 8c 64 25 2b  3d 33 32 0d 6e fa 1c e7  |%<32.d%+=32.n...|
00008030  64 25 3e 3d 31 32 37 80  20 64 25 3c 3d 31 33 39  |d%>=127. d%<=139|
00008040  8c 64 25 2b 3d 32 33 0d  6f 04 10 65 6e 63 64 24  |.d%+=23.o..encd$|
00008050  2b 3d bd 28 64 25 29 0d  6f 0e 07 ed 65 25 0d 6f  |+=.(d%).o...e%.o|
00008060  2c 0a 3d 65 6e 63 64 24  0d 6f 72 24 dd a4 63 68  |,.=encd$.or$..ch|
00008070  65 63 6b 5f 75 73 65 72  28 75 73 6e 6d 24 2c 70  |eck_user(usnm$,p|
00008080  61 73 73 24 2c f8 6e 61  6d 69 25 29 0d 6f ea 27  |ass$,.nami%).o.'|
00008090  ea 65 6e 63 64 24 2c 6e  74 72 79 24 2c 66 25 2c  |.encd$,ntry$,f%,|
000080a0  6f 6b 25 2c 70 6e 61 6d  24 2c 70 70 61 73 24 2c  |ok%,pnam$,ppas$,|
000080b0  70 31 24 0d 6f fe 13 e7  75 73 6e 6d 24 3d 22 47  |p1$.o...usnm$="G|
000080c0  55 45 53 54 22 8c 0d 70  26 28 6f 6b 25 3d 28 28  |UEST"..p&(ok%=((|
000080d0  70 61 73 73 24 3d 22 47  55 45 53 54 22 29 80 20  |pass$="GUEST"). |
000080e0  47 75 65 73 74 5f 4c 6f  67 69 6e 73 25 29 0d 70  |Guest_Logins%).p|
000080f0  30 0b 6e 61 6d 69 25 3d  b9 0d 70 3a 05 cc 0d 70  |0.nami%=..p:...p|
00008100  62 08 61 25 3d 30 0d 70  6c 16 70 31 24 3d a4 65  |b.a%=0.pl.p1$=.e|
00008110  6e 63 6f 64 65 28 70 61  73 73 24 29 0d 70 76 16  |ncode(pass$).pv.|
00008120  65 6e 63 64 24 3d a4 65  6e 63 6f 64 65 28 70 31  |encd$=.encode(p1|
00008130  24 29 0d 70 80 09 6f 6b  25 3d a3 0d 70 8a 0b 6e  |$).p..ok%=..p..n|
00008140  61 6d 69 25 3d a3 0d 70  94 20 c8 99 22 4f 53 5f  |ami%=..p. .."OS_|
00008150  46 69 6c 65 22 2c 34 2c  50 61 73 73 66 69 6c 65  |File",4,Passfile|
00008160  24 2c 2c 2c 2c 33 0d 70  9e 13 66 25 3d 8e 28 50  |$,,,,3.p..f%=.(P|
00008170  61 73 73 66 69 6c 65 24  29 0d 70 a8 11 c8 95 ac  |assfile$).p.....|
00008180  28 c5 23 66 25 84 6f 6b  25 29 0d 70 b2 0e 6e 74  |(.#f%.ok%).p..nt|
00008190  72 79 24 3d be 23 66 25  0d 70 bc 16 74 61 62 31  |ry$=.#f%.p..tab1|
000081a0  25 3d a7 6e 74 72 79 24  2c bd 28 39 29 29 0d 70  |%=.ntry$,.(9)).p|
000081b0  c6 1e 74 61 62 32 25 3d  a7 6e 74 72 79 24 2c bd  |..tab2%=.ntry$,.|
000081c0  28 39 29 2c 74 61 62 31  25 2b 31 29 0d 70 d0 19  |(9),tab1%+1).p..|
000081d0  70 6e 61 6d 24 3d c0 6e  74 72 79 24 2c 74 61 62  |pnam$=.ntry$,tab|
000081e0  31 25 2d 31 29 0d 70 da  27 70 70 61 73 24 3d c1  |1%-1).p.'ppas$=.|
000081f0  6e 74 72 79 24 2c 74 61  62 31 25 2b 31 2c 74 61  |ntry$,tab1%+1,ta|
00008200  62 32 25 2d 74 61 62 31  25 2d 31 29 0d 70 e4 09  |b2%-tab1%-1).p..|
00008210  61 25 2b 3d 31 0d 70 ee  25 6f 6b 25 3d 28 28 75  |a%+=1.p.%ok%=((u|
00008220  73 6e 6d 24 3d 70 6e 61  6d 24 29 80 28 65 6e 63  |snm$=pnam$).(enc|
00008230  64 24 3d 70 70 61 73 24  29 29 0d 70 f8 18 e7 75  |d$=ppas$)).p...u|
00008240  73 6e 6d 24 3d 70 6e 61  6d 24 8c 6e 61 6d 69 25  |snm$=pnam$.nami%|
00008250  3d b9 0d 71 02 05 ce 0d  71 0c 08 d9 23 66 25 0d  |=..q....q...#f%.|
00008260  71 16 20 c8 99 22 4f 53  5f 46 69 6c 65 22 2c 34  |q. .."OS_File",4|
00008270  2c 50 61 73 73 66 69 6c  65 24 2c 2c 2c 2c 39 0d  |,Passfile$,,,,9.|
00008280  71 20 05 cd 0d 71 34 08  3d 6f 6b 25 0d 71 7a 1b  |q ...q4.=ok%.qz.|
00008290  dd f2 61 64 64 5f 75 73  65 72 28 75 73 6e 6d 24  |..add_user(usnm$|
000082a0  2c 70 61 73 73 24 29 0d  71 c0 1d ea 65 6e 63 64  |,pass$).q...encd|
000082b0  24 2c 70 61 64 25 2c 70  31 24 2c 62 64 24 2c 66  |$,pad%,p1$,bd$,f|
000082c0  25 2c 6c 25 0d 71 e8 16  70 31 24 3d a4 65 6e 63  |%,l%.q..p1$=.enc|
000082d0  6f 64 65 28 70 61 73 73  24 29 0d 71 f2 16 65 6e  |ode(pass$).q..en|
000082e0  63 64 24 3d a4 65 6e 63  6f 64 65 28 70 31 24 29  |cd$=.encode(p1$)|
000082f0  0d 71 fc 21 70 61 64 25  3d 33 35 2d 28 a9 28 75  |.q.!pad%=35-(.(u|
00008300  73 6e 6d 24 29 2b a9 28  65 6e 63 64 24 29 2b 32  |snm$)+.(encd$)+2|
00008310  29 0d 72 06 20 c8 99 22  4f 53 5f 46 69 6c 65 22  |).r. .."OS_File"|
00008320  2c 34 2c 50 61 73 73 66  69 6c 65 24 2c 2c 2c 2c  |,4,Passfile$,,,,|
00008330  33 0d 72 10 13 66 25 3d  ad 28 50 61 73 73 66 69  |3.r..f%=.(Passfi|
00008340  6c 65 24 29 0d 72 1a 0b  c8 95 ac c5 23 66 25 0d  |le$).r......#f%.|
00008350  72 24 0e 6e 74 72 79 24  3d be 23 66 25 0d 72 2e  |r$.ntry$=.#f%.r.|
00008360  05 ce 0d 72 38 29 d5 23  66 25 2c 75 73 6e 6d 24  |...r8).#f%,usnm$|
00008370  2b bd 28 39 29 2b 65 6e  63 64 24 2b bd 28 39 29  |+.(9)+encd$+.(9)|
00008380  2b c4 70 61 64 25 2c 22  78 22 29 0d 72 42 08 d9  |+.pad%,"x").rB..|
00008390  23 66 25 0d 72 4c 20 c8  99 22 4f 53 5f 46 69 6c  |#f%.rL .."OS_Fil|
000083a0  65 22 2c 34 2c 50 61 73  73 66 69 6c 65 24 2c 2c  |e",4,Passfile$,,|
000083b0  2c 2c 39 0d 72 88 33 c8  99 22 4f 53 5f 52 65 61  |,,9.r.3.."OS_Rea|
000083c0  64 56 61 72 56 61 6c 22  2c 22 42 6f 6f 74 24 44  |dVarVal","Boot$D|
000083d0  69 72 22 2c 42 75 66 31  25 2c 31 32 38 2c 30 2c  |ir",Buf1%,128,0,|
000083e0  30 b8 2c 2c 6c 25 0d 72  92 09 6c 25 2d 3d 36 0d  |0.,,l%.r..l%-=6.|
000083f0  72 9c 0f 42 75 66 31 25  3f 6c 25 3d 31 33 0d 72  |r..Buf1%?l%=13.r|
00008400  a6 0e 62 64 24 3d 24 42  75 66 31 25 0d 72 ba 23  |..bd$=$Buf1%.r.#|
00008410  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 32 30 2c 62  |.."OS_File",20,b|
00008420  64 24 2b 22 2e 47 72 6f  75 70 73 22 b8 66 25 0d  |d$+".Groups".f%.|
00008430  72 c4 0a e7 66 25 3d 30  8c 0d 72 ec 1f c8 99 22  |r...f%=0..r...."|
00008440  4f 53 5f 46 69 6c 65 22  2c 38 2c 62 64 24 2b 22  |OS_File",8,bd$+"|
00008450  2e 47 72 6f 75 70 73 22  0d 72 f6 05 cd 0d 73 00  |.Groups".r....s.|
00008460  2a c8 99 22 4f 53 5f 46  69 6c 65 22 2c 32 30 2c  |*.."OS_File",20,|
00008470  62 64 24 2b 22 2e 47 72  6f 75 70 73 2e 22 2b 75  |bd$+".Groups."+u|
00008480  73 6e 6d 24 b8 66 25 0d  73 0a 0a e7 66 25 3d 30  |snm$.f%.s...f%=0|
00008490  8c 0d 73 32 26 c8 99 22  4f 53 5f 46 69 6c 65 22  |..s2&.."OS_File"|
000084a0  2c 38 2c 62 64 24 2b 22  2e 47 72 6f 75 70 73 2e  |,8,bd$+".Groups.|
000084b0  22 2b 75 73 6e 6d 24 0d  73 3c 05 cd 0d 73 46 0e  |"+usnm$.s<...sF.|
000084c0  52 75 73 65 72 73 25 2b  3d 31 0d 73 50 18 52 75  |Rusers%+=1.sP.Ru|
000084d0  73 72 24 28 52 75 73 65  72 73 25 29 3d 75 73 6e  |sr$(Rusers%)=usn|
000084e0  6d 24 0d 73 5a 54 52 64  69 72 24 28 52 75 73 65  |m$.sZTRdir$(Ruse|
000084f0  72 73 25 29 3d 22 7c 41  70 70 73 7c 44 69 76 65  |rs%)="|Apps|Dive|
00008500  72 73 69 6f 6e 73 7c 49  6d 61 67 65 73 7c 50 75  |rsions|Images|Pu|
00008510  62 6c 69 63 7c 53 6f 75  6e 64 7c 54 75 74 6f 72  |blic|Sound|Tutor|
00008520  69 61 6c 73 7c 55 74 69  6c 69 74 69 65 73 7c 56  |ials|Utilities|V|
00008530  69 64 65 6f 7c 22 0d 73  64 0b 62 64 24 3d 22 7c  |ideo|".sd.bd$="||
00008540  22 0d 73 6e 0b e3 62 25  3d 31 b8 37 0d 73 78 20  |".sn..b%=1.7.sx |
00008550  62 64 24 2b 3d 57 65 65  6b 64 61 79 73 24 28 62  |bd$+=Weekdays$(b|
00008560  25 29 2b 22 59 3d 38 3d  31 37 7c 22 0d 73 82 07  |%)+"Y=8=17|".s..|
00008570  ed 62 25 0d 73 8c 16 52  74 69 6d 24 28 52 75 73  |.b%.s..Rtim$(Rus|
00008580  65 72 73 25 29 3d 62 64  24 0d 73 96 14 f2 73 61  |ers%)=bd$.s...sa|
00008590  76 65 5f 75 73 65 72 61  63 63 65 73 73 0d 73 a0  |ve_useraccess.s.|
000085a0  13 f2 73 61 76 65 5f 75  73 65 72 74 69 6d 65 73  |..save_usertimes|
000085b0  0d 73 aa 05 e1 0d 73 f0  1e dd f2 6d 6f 64 69 66  |.s....s....modif|
000085c0  79 5f 75 73 65 72 28 75  73 6e 6d 24 2c 70 61 73  |y_user(usnm$,pas|
000085d0  73 24 29 0d 74 36 2b ea  65 6e 63 64 24 2c 6e 74  |s$).t6+.encd$,nt|
000085e0  79 72 24 2c 70 61 64 25  2c 74 61 62 31 25 2c 74  |yr$,pad%,tab1%,t|
000085f0  61 62 32 25 2c 70 6e 61  6d 24 2c 70 31 24 0d 74  |ab2%,pnam$,p1$.t|
00008600  4a 16 70 31 24 3d a4 65  6e 63 6f 64 65 28 70 61  |J.p1$=.encode(pa|
00008610  73 73 24 29 0d 74 54 16  65 6e 63 64 24 3d a4 65  |ss$).tT.encd$=.e|
00008620  6e 63 6f 64 65 28 70 31  24 29 0d 74 5e 21 70 61  |ncode(p1$).t^!pa|
00008630  64 25 3d 33 35 2d 28 a9  28 75 73 6e 6d 24 29 2b  |d%=35-(.(usnm$)+|
00008640  a9 28 65 6e 63 64 24 29  2b 32 29 0d 74 68 20 c8  |.(encd$)+2).th .|
00008650  99 22 4f 53 5f 46 69 6c  65 22 2c 34 2c 50 61 73  |."OS_File",4,Pas|
00008660  73 66 69 6c 65 24 2c 2c  2c 2c 33 0d 74 72 13 66  |sfile$,,,,3.tr.f|
00008670  25 3d ad 28 50 61 73 73  66 69 6c 65 24 29 0d 74  |%=.(Passfile$).t|
00008680  7c 05 f5 0d 74 86 0e 70  6f 73 6e 25 3d 8f 23 66  ||...t..posn%=.#f|
00008690  25 0d 74 90 0e 6e 74 72  79 24 3d be 23 66 25 0d  |%.t..ntry$=.#f%.|
000086a0  74 9a 16 74 61 62 31 25  3d a7 6e 74 72 79 24 2c  |t..tab1%=.ntry$,|
000086b0  bd 28 39 29 29 0d 74 a4  1e 74 61 62 32 25 3d a7  |.(9)).t..tab2%=.|
000086c0  6e 74 72 79 24 2c bd 28  39 29 2c 74 61 62 31 25  |ntry$,.(9),tab1%|
000086d0  2b 31 29 0d 74 ae 19 70  6e 61 6d 24 3d c0 6e 74  |+1).t..pnam$=.nt|
000086e0  72 79 24 2c 74 61 62 31  25 2d 31 29 0d 74 b8 10  |ry$,tab1%-1).t..|
000086f0  fd 70 6e 61 6d 24 3d 75  73 6e 6d 24 0d 74 c2 0e  |.pnam$=usnm$.t..|
00008700  cf 23 66 25 3d 70 6f 73  6e 25 0d 74 cc 29 d5 23  |.#f%=posn%.t.).#|
00008710  66 25 2c 75 73 6e 6d 24  2b bd 28 39 29 2b 65 6e  |f%,usnm$+.(9)+en|
00008720  63 64 24 2b bd 28 39 29  2b c4 70 61 64 25 2c 22  |cd$+.(9)+.pad%,"|
00008730  78 22 29 0d 74 d6 08 d9  23 66 25 0d 74 e0 20 c8  |x").t...#f%.t. .|
00008740  99 22 4f 53 5f 46 69 6c  65 22 2c 34 2c 50 61 73  |."OS_File",4,Pas|
00008750  73 66 69 6c 65 24 2c 2c  2c 2c 39 0d 74 ea 05 e1  |sfile$,,,,9.t...|
00008760  0d 75 30 1f dd f2 6c 6f  67 69 6e 5f 75 73 65 72  |.u0...login_user|
00008770  28 75 73 6e 6d 24 2c 69  6e 66 6f 72 6d 25 29 0d  |(usnm$,inform%).|
00008780  75 76 18 ea 61 25 2c 61  6c 25 2c 64 75 72 25 2c  |uv..a%,al%,dur%,|
00008790  73 68 25 2c 65 68 25 0d  75 8a 19 e7 4c 6f 67 67  |sh%,eh%.u...Logg|
000087a0  65 64 5f 55 73 65 72 24  3c 3e 75 73 6e 6d 24 8c  |ed_User$<>usnm$.|
000087b0  0d 75 b2 27 f2 75 73 65  72 5f 74 69 6d 65 73 28  |.u.'.user_times(|
000087c0  75 73 6e 6d 24 2c 61 6c  25 2c 64 75 72 25 2c 73  |usnm$,al%,dur%,s|
000087d0  68 25 2c 65 68 25 29 0d  75 bc 0a c8 8e 61 6c 25  |h%,eh%).u....al%|
000087e0  ca 0d 75 c6 06 c9 31 0d  75 ee 22 c8 99 54 5f 54  |..u...1.u."..T_T|
000087f0  4f 4d 4f 25 2c 30 2c 49  62 61 72 6d 65 6e 75 5f  |OMO%,0,Ibarmenu_|
00008800  49 44 25 2c 32 2c 36 2c  30 0d 75 f8 16 4c 6f 67  |ID%,2,6,0.u..Log|
00008810  67 65 64 5f 55 73 65 72  24 3d 75 73 6e 6d 24 0d  |ged_User$=usnm$.|
00008820  76 20 23 e7 28 5a 7a 7a  7a 70 61 73 73 5f 53 74  |v #.(Zzzzpass_St|
00008830  61 74 75 73 25 3d 33 29  80 20 69 6e 66 6f 72 6d  |atus%=3). inform|
00008840  25 8c 0d 76 48 1a f2 69  6e 66 6f 72 6d 5f 7a 7a  |%..vH..inform_zz|
00008850  7a 7a 70 61 73 73 28 64  75 72 25 29 0d 76 52 05  |zzpass(dur%).vR.|
00008860  cd 0d 76 5c 06 c9 32 0d  76 84 2b f2 65 72 72 6f  |..v\..2.v.+.erro|
00008870  72 5f 6d 65 73 73 61 67  65 28 22 45 4d 32 31 22  |r_message("EM21"|
00008880  2c 22 22 2c 22 22 2c 22  45 54 31 22 2c 30 2c 4b  |,"","","ET1",0,K|
00008890  25 29 0d 76 8e 06 c9 33  0d 76 b6 33 f2 65 72 72  |%).v...3.v.3.err|
000088a0  6f 72 5f 6d 65 73 73 61  67 65 28 22 45 4d 32 32  |or_message("EM22|
000088b0  22 2c c3 28 73 68 25 29  2c c3 28 65 68 25 29 2c  |",.(sh%),.(eh%),|
000088c0  22 45 54 31 22 2c 30 2c  4b 25 29 0d 76 c0 05 cb  |"ET1",0,K%).v...|
000088d0  0d 76 ca 05 cc 0d 76 f2  2b f2 65 72 72 6f 72 5f  |.v....v.+.error_|
000088e0  6d 65 73 73 61 67 65 28  22 45 4d 32 33 22 2c 22  |message("EM23","|
000088f0  22 2c 22 22 2c 22 45 54  32 22 2c 30 2c 4b 25 29  |","","ET2",0,K%)|
00008900  0d 76 fc 05 cd 0d 77 06  05 e1 0d 77 56 37 dd f2  |.v....w....wV7..|
00008910  75 73 65 72 5f 74 69 6d  65 73 28 75 73 65 72 6e  |user_times(usern|
00008920  24 2c f8 61 6c 6c 6f 77  65 64 25 2c f8 64 75 72  |$,.allowed%,.dur|
00008930  61 74 69 6f 6e 25 2c f8  73 68 25 2c f8 65 68 25  |ation%,.sh%,.eh%|
00008940  29 0d 77 7e 1e ea 61 25  2c 74 68 25 2c 6d 6e 25  |).w~..a%,th%,mn%|
00008950  2c 77 64 25 2c 65 31 25  2c 65 32 25 2c 62 25 0d  |,wd%,e1%,e2%,b%.|
00008960  77 a6 11 e3 61 25 3d 31  b8 52 75 73 65 72 73 25  |w...a%=1.Rusers%|
00008970  0d 77 b0 15 e7 52 75 73  72 24 28 61 25 29 3d 75  |.w...Rusr$(a%)=u|
00008980  73 6e 6d 24 8c 0d 77 ba  0c 52 75 73 72 25 3d 61  |snm$..w..Rusr%=a|
00008990  25 0d 77 c4 05 cd 0d 77  ce 07 ed 61 25 0d 77 d8  |%.w....w...a%.w.|
000089a0  13 e7 75 73 65 72 6e 24  3d 4f 77 6e 65 72 24 8c  |..usern$=Owner$.|
000089b0  0d 78 00 0e 61 6c 6c 6f  77 65 64 25 3d 31 0d 78  |.x..allowed%=1.x|
000089c0  0a 05 cc 0d 78 32 0c 21  42 75 66 31 25 3d 33 0d  |....x2.!Buf1%=3.|
000089d0  78 3c 18 c8 99 22 4f 53  5f 57 6f 72 64 22 2c 31  |x<..."OS_Word",1|
000089e0  34 2c 42 75 66 31 25 0d  78 46 23 c8 99 26 63 31  |4,Buf1%.xF#..&c1|
000089f0  2c 42 75 66 31 25 2c 42  75 66 32 25 2c 31 32 38  |,Buf1%,Buf2%,128|
00008a00  2c 22 25 32 34 22 b8 2c  61 25 0d 78 50 0a 3f 61  |,"%24".,a%.xP.?a|
00008a10  25 3d 31 33 0d 78 5a 11  74 68 25 3d bb 28 24 42  |%=13.xZ.th%=.($B|
00008a20  75 66 32 25 29 0d 78 64  23 c8 99 26 63 31 2c 42  |uf2%).xd#..&c1,B|
00008a30  75 66 31 25 2c 42 75 66  32 25 2c 31 32 38 2c 22  |uf1%,Buf2%,128,"|
00008a40  25 57 4e 22 b8 2c 61 25  0d 78 6e 0a 3f 61 25 3d  |%WN".,a%.xn.?a%=|
00008a50  31 33 0d 78 78 11 77 64  25 3d bb 28 24 42 75 66  |13.xx.wd%=.($Buf|
00008a60  32 25 29 0d 78 82 23 c8  99 26 63 31 2c 42 75 66  |2%).x.#..&c1,Buf|
00008a70  31 25 2c 42 75 66 32 25  2c 31 32 38 2c 22 25 4d  |1%,Buf2%,128,"%M|
00008a80  49 22 b8 2c 61 25 0d 78  8c 0a 3f 61 25 3d 31 33  |I".,a%.x..?a%=13|
00008a90  0d 78 96 11 6d 6e 25 3d  bb 28 24 42 75 66 32 25  |.x..mn%=.($Buf2%|
00008aa0  29 0d 78 a0 26 61 25 3d  a7 52 74 69 6d 24 28 52  |).x.&a%=.Rtim$(R|
00008ab0  75 73 72 25 29 2c 57 65  65 6b 64 61 79 73 24 28  |usr%),Weekdays$(|
00008ac0  77 64 25 29 2c 31 29 0d  78 aa 0f 64 75 72 61 74  |wd%),1).x..durat|
00008ad0  69 6f 6e 25 3d 30 0d 78  b4 1f e7 c1 52 74 69 6d  |ion%=0.x....Rtim|
00008ae0  24 28 52 75 73 72 25 29  2c 61 25 2b 32 2c 31 29  |$(Rusr%),a%+2,1)|
00008af0  3d 22 59 22 8c 0d 78 dc  1f 65 31 25 3d a7 52 74  |="Y"..x..e1%=.Rt|
00008b00  69 6d 24 28 52 75 73 72  25 29 2c 22 3d 22 2c 61  |im$(Rusr%),"=",a|
00008b10  25 2b 33 29 0d 78 e6 20  65 32 25 3d a7 52 74 69  |%+3).x. e2%=.Rti|
00008b20  6d 24 28 52 75 73 72 25  29 2c 22 3d 22 2c 65 31  |m$(Rusr%),"=",e1|
00008b30  25 2b 32 29 0d 78 f0 1f  62 25 3d a7 52 74 69 6d  |%+2).x..b%=.Rtim|
00008b40  24 28 52 75 73 72 25 29  2c 22 7c 22 2c 65 32 25  |$(Rusr%),"|",e2%|
00008b50  2b 32 29 0d 78 fa 29 73  68 25 3d bb 28 c1 52 74  |+2).x.)sh%=.(.Rt|
00008b60  69 6d 24 28 52 75 73 72  25 29 2c 65 31 25 2b 31  |im$(Rusr%),e1%+1|
00008b70  2c 65 32 25 2d 65 31 25  2d 31 29 29 0d 79 04 28  |,e2%-e1%-1)).y.(|
00008b80  65 68 25 3d bb 28 c1 52  74 69 6d 24 28 52 75 73  |eh%=.(.Rtim$(Rus|
00008b90  72 25 29 2c 65 32 25 2b  31 2c 62 25 2d 65 32 25  |r%),e2%+1,b%-e2%|
00008ba0  2d 31 29 29 0d 79 0e 1a  e7 28 74 68 25 3e 3d 73  |-1)).y...(th%>=s|
00008bb0  68 25 80 20 74 68 25 3c  3d 65 68 25 29 8c 0d 79  |h%. th%<=eh%)..y|
00008bc0  18 0e 61 6c 6c 6f 77 65  64 25 3d 31 0d 79 22 20  |..allowed%=1.y" |
00008bd0  64 75 72 61 74 69 6f 6e  25 3d 28 65 68 25 2d 74  |duration%=(eh%-t|
00008be0  68 25 2b 31 29 2a 36 30  2d 6d 6e 25 0d 79 2c 05  |h%+1)*60-mn%.y,.|
00008bf0  cc 0d 79 36 0e 61 6c 6c  6f 77 65 64 25 3d 33 0d  |..y6.allowed%=3.|
00008c00  79 40 05 cd 0d 79 4a 05  cc 0d 79 54 0e 61 6c 6c  |y@...yJ...yT.all|
00008c10  6f 77 65 64 25 3d 32 0d  79 5e 05 cd 0d 79 68 05  |owed%=2.y^...yh.|
00008c20  cd 0d 79 72 05 e1 0d 79  c2 20 dd f2 69 6e 66 6f  |..yr...y. ..info|
00008c30  72 6d 5f 7a 7a 7a 7a 70  61 73 73 28 64 75 72 61  |rm_zzzzpass(dura|
00008c40  74 69 6f 6e 25 29 0d 79  f4 0a ea 70 25 2c 61 25  |tion%).y...p%,a%|
00008c50  0d 7a 8a 09 70 25 3d 32  30 0d 7a 94 0c 21 42 75  |.z..p%=20.z..!Bu|
00008c60  66 32 25 3d 31 0d 7a 9e  0e 42 75 66 32 25 21 34  |f2%=1.z..Buf2%!4|
00008c70  3d 70 25 0d 7a a8 22 24  28 42 75 66 32 25 2b 32  |=p%.z."$(Buf2%+2|
00008c80  30 29 3d 4c 6f 67 67 65  64 5f 55 73 65 72 24 2b  |0)=Logged_User$+|
00008c90  bd 28 31 33 29 0d 7a b2  19 70 25 2b 3d a9 28 4c  |.(13).z..p%+=.(L|
00008ca0  6f 67 67 65 64 5f 55 73  65 72 24 29 2b 32 0d 7a  |ogged_User$)+2.z|
00008cb0  bc 0f 42 75 66 32 25 21  31 32 3d 70 25 0d 7a c6  |..Buf2%!12=p%.z.|
00008cc0  1b e7 4c 6f 67 67 65 64  5f 55 73 65 72 24 3d 22  |..Logged_User$="|
00008cd0  4c 4f 47 4f 46 46 22 8c  0d 7a d0 1a 24 28 42 75  |LOGOFF"..z..$(Bu|
00008ce0  66 32 25 2b 42 75 66 32  25 21 31 32 29 3d 22 7c  |f2%+Buf2%!12)="||
00008cf0  7c 22 0d 7a da 09 50 25  2b 3d 32 0d 7a e4 05 cc  ||".z..P%+=2.z...|
00008d00  0d 7a ee 22 24 28 42 75  66 32 25 2b 42 75 66 32  |.z."$(Buf2%+Buf2|
00008d10  25 21 31 32 29 3d 52 64  69 72 24 28 52 75 73 72  |%!12)=Rdir$(Rusr|
00008d20  25 29 0d 7a f8 17 70 25  2b 3d a9 28 52 64 69 72  |%).z..p%+=.(Rdir|
00008d30  24 28 52 75 73 72 25 29  29 0d 7b 02 05 cd 0d 7b  |$(Rusr%)).{....{|
00008d40  0c 16 42 75 66 32 25 21  31 36 3d 64 75 72 61 74  |..Buf2%!16=durat|
00008d50  69 6f 6e 25 0d 7b 34 29  42 6c 63 6b 25 21 30 3d  |ion%.{4)Blck%!0=|
00008d60  33 32 3a 42 6c 63 6b 25  21 31 32 3d 30 3a 42 6c  |32:Blck%!12=0:Bl|
00008d70  63 6b 25 21 31 36 3d 26  38 30 38 63 30 0d 7b 3e  |ck%!16=&808c0.{>|
00008d80  1e 42 6c 63 6b 25 21 32  30 3d 70 25 3a 42 6c 63  |.Blck%!20=p%:Blc|
00008d90  6b 25 21 32 34 3d 42 75  66 32 25 0d 7b 48 1b e7  |k%!24=Buf2%.{H..|
00008da0  4c 6f 67 67 65 64 5f 55  73 65 72 24 3d 22 4c 4f  |Logged_User$="LO|
00008db0  47 4f 46 46 22 8c 0d 7b  52 17 42 6c 63 6b 25 21  |GOFF"..{R.Blck%!|
00008dc0  32 30 3d 42 75 66 32 25  21 31 32 2b 34 0d 7b 5c  |20=Buf2%!12+4.{\|
00008dd0  05 cc 0d 7b 66 27 42 6c  63 6b 25 21 32 30 3d 42  |...{f'Blck%!20=B|
00008de0  75 66 32 25 21 31 32 2b  a9 28 52 64 69 72 24 28  |uf2%!12+.(Rdir$(|
00008df0  52 75 73 72 25 29 29 2b  32 0d 7b 70 05 cd 0d 7b  |Rusr%))+2.{p...{|
00008e00  7a 32 c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |z2.."Wimp_SendMe|
00008e10  73 73 61 67 65 22 2c 31  37 2c 42 6c 63 6b 25 2c  |ssage",17,Blck%,|
00008e20  5a 7a 7a 7a 70 61 73 73  5f 48 61 6e 64 6c 65 25  |Zzzzpass_Handle%|
00008e30  0d 7b 84 05 e1 0d 7b ca  1e dd f2 62 6f 6f 74 5f  |.{....{....boot_|
00008e40  69 6e 73 74 61 6c 6c 28  74 79 70 65 24 2c f8 63  |install(type$,.c|
00008e50  66 25 29 0d 7b f2 11 ea  66 25 2c 61 24 2c 62 76  |f%).{...f%,a$,bv|
00008e60  24 2c 6e 25 0d 7c 1a 09  63 66 25 3d a3 0d 7c 24  |$,n%.|..cf%=..|$|
00008e70  24 66 25 3d 8e 28 22 3c  42 6f 6f 74 24 44 69 72  |$f%=.("<Boot$Dir|
00008e80  3e 2e 55 74 69 6c 73 2e  44 65 73 6b 72 75 6e 22  |>.Utils.Deskrun"|
00008e90  29 0d 7c 2e 05 f5 0d 7c  38 0b 61 24 3d be 23 66  |).|....|8.a$=.#f|
00008ea0  25 0d 7c 42 1c 63 66 25  3d 28 a7 61 24 2c 22 21  |%.|B.cf%=(.a$,"!|
00008eb0  42 6f 6f 74 70 6c 75 73  22 29 3e 30 29 0d 7c 4c  |Bootplus")>0).|L|
00008ec0  0d fd c5 23 66 25 84 63  66 25 0d 7c 56 08 d9 23  |...#f%.cf%.|V..#|
00008ed0  66 25 0d 7c 7e 37 c8 99  22 4f 53 5f 52 65 61 64  |f%.|~7.."OS_Read|
00008ee0  56 61 72 56 61 6c 22 2c  22 42 6f 6f 74 70 6c 75  |VarVal","Bootplu|
00008ef0  73 24 44 69 72 22 2c 42  75 66 31 25 2c 31 32 38  |s$Dir",Buf1%,128|
00008f00  2c 30 2c 30 b8 2c 2c 6e  25 0d 7c 88 0f 42 75 66  |,0,0.,,n%.|..Buf|
00008f10  31 25 3f 6e 25 3d 31 33  0d 7c 92 08 c8 8e b9 ca  |1%?n%=13.|......|
00008f20  0d 7c 9c 18 c9 28 28 74  79 70 65 24 3d 22 49 4e  |.|...((type$="IN|
00008f30  22 29 80 ac 63 66 25 29  0d 7c c4 3a c8 99 22 4f  |")..cf%).|.:.."O|
00008f40  53 5f 46 53 43 6f 6e 74  72 6f 6c 22 2c 32 34 2c  |S_FSControl",24,|
00008f50  22 3c 42 6f 6f 74 24 44  69 72 3e 2e 55 74 69 6c  |"<Boot$Dir>.Util|
00008f60  73 2e 44 65 73 6b 72 75  6e 22 2c 22 57 52 2f 57  |s.Deskrun","WR/W|
00008f70  52 22 0d 7c ce 4e c8 99  22 4f 53 5f 46 53 43 6f  |R".|.N.."OS_FSCo|
00008f80  6e 74 72 6f 6c 22 2c 32  35 2c 22 3c 42 6f 6f 74  |ntrol",25,"<Boot|
00008f90  24 44 69 72 3e 2e 55 74  69 6c 73 2e 44 65 73 6b  |$Dir>.Utils.Desk|
00008fa0  72 75 6e 22 2c 22 3c 42  6f 6f 74 24 44 69 72 3e  |run","<Boot$Dir>|
00008fb0  2e 55 74 69 6c 73 2e 44  65 73 6b 72 75 6e 4f 22  |.Utils.DeskrunO"|
00008fc0  0d 7c d8 3a c8 99 22 4f  53 5f 46 53 43 6f 6e 74  |.|.:.."OS_FSCont|
00008fd0  72 6f 6c 22 2c 32 34 2c  22 3c 42 6f 6f 74 24 44  |rol",24,"<Boot$D|
00008fe0  69 72 3e 2e 55 74 69 6c  73 2e 44 65 73 6b 72 75  |ir>.Utils.Deskru|
00008ff0  6e 4f 22 2c 22 4c 52 2f  52 22 0d 7c e2 24 66 25  |nO","LR/R".|.$f%|
00009000  3d ae 28 22 3c 42 6f 6f  74 24 44 69 72 3e 2e 55  |=.("<Boot$Dir>.U|
00009010  74 69 6c 73 2e 44 65 73  6b 72 75 6e 22 29 0d 7c  |tils.Deskrun").||
00009020  ec 98 d5 23 66 25 2c 22  49 46 54 48 45 52 45 20  |...#f%,"IFTHERE |
00009030  22 2b 24 42 75 66 31 25  2b 22 2e 21 52 75 6e 20  |"+$Buf1%+".!Run |
00009040  54 48 45 4e 20 46 69 6c  65 72 5f 52 75 6e 20 22  |THEN Filer_Run "|
00009050  2b 24 42 75 66 31 25 2b  22 20 45 4c 53 45 20 45  |+$Buf1%+" ELSE E|
00009060  52 52 4f 52 20 21 42 6f  6f 74 70 6c 75 73 20 68  |RROR !Bootplus h|
00009070  61 73 20 6d 6f 76 65 64  2e 20 20 52 75 6e 20 69  |as moved.  Run i|
00009080  74 20 66 72 6f 6d 20 74  68 65 20 63 75 72 72 65  |t from the curre|
00009090  6e 74 20 6c 6f 63 61 74  69 6f 6e 20 61 6e 64 20  |nt location and |
000090a0  72 65 2d 69 6e 73 74 61  6c 6c 20 69 6e 74 6f 20  |re-install into |
000090b0  21 42 6f 6f 74 22 0d 7c  f6 08 d9 23 66 25 0d 7d  |!Boot".|...#f%.}|
000090c0  00 32 c8 99 22 4f 53 5f  46 69 6c 65 22 2c 31 38  |.2.."OS_File",18|
000090d0  2c 22 3c 42 6f 6f 74 24  44 69 72 3e 2e 55 74 69  |,"<Boot$Dir>.Uti|
000090e0  6c 73 2e 44 65 73 6b 72  75 6e 22 2c 26 46 45 42  |ls.Deskrun",&FEB|
000090f0  0d 7d 0a 39 c8 99 22 4f  53 5f 46 53 43 6f 6e 74  |.}.9.."OS_FSCont|
00009100  72 6f 6c 22 2c 32 34 2c  22 3c 42 6f 6f 74 24 44  |rol",24,"<Boot$D|
00009110  69 72 3e 2e 55 74 69 6c  73 2e 44 65 73 6b 72 75  |ir>.Utils.Deskru|
00009120  6e 22 2c 22 4c 52 2f 52  22 0d 7d 14 19 c9 28 28  |n","LR/R".}...((|
00009130  74 79 70 65 24 3d 22 4f  55 54 22 29 80 20 63 66  |type$="OUT"). cf|
00009140  25 29 0d 7d 3c 3a c8 99  22 4f 53 5f 46 53 43 6f  |%).}<:.."OS_FSCo|
00009150  6e 74 72 6f 6c 22 2c 32  34 2c 22 3c 42 6f 6f 74  |ntrol",24,"<Boot|
00009160  24 44 69 72 3e 2e 55 74  69 6c 73 2e 44 65 73 6b  |$Dir>.Utils.Desk|
00009170  72 75 6e 22 2c 22 57 52  2f 57 52 22 0d 7d 46 3b  |run","WR/WR".}F;|
00009180  c8 99 22 4f 53 5f 46 53  43 6f 6e 74 72 6f 6c 22  |.."OS_FSControl"|
00009190  2c 32 34 2c 22 3c 42 6f  6f 74 24 44 69 72 3e 2e  |,24,"<Boot$Dir>.|
000091a0  55 74 69 6c 73 2e 44 65  73 6b 72 75 6e 4f 22 2c  |Utils.DeskrunO",|
000091b0  22 57 52 2f 57 52 22 0d  7d 50 2c c8 99 22 4f 53  |"WR/WR".}P,.."OS|
000091c0  5f 46 69 6c 65 22 2c 36  2c 22 3c 42 6f 6f 74 24  |_File",6,"<Boot$|
000091d0  44 69 72 3e 2e 55 74 69  6c 73 2e 44 65 73 6b 72  |Dir>.Utils.Deskr|
000091e0  75 6e 22 0d 7d 5a 4e c8  99 22 4f 53 5f 46 53 43  |un".}ZN.."OS_FSC|
000091f0  6f 6e 74 72 6f 6c 22 2c  32 35 2c 22 3c 42 6f 6f  |ontrol",25,"<Boo|
00009200  74 24 44 69 72 3e 2e 55  74 69 6c 73 2e 44 65 73  |t$Dir>.Utils.Des|
00009210  6b 72 75 6e 4f 22 2c 22  3c 42 6f 6f 74 24 44 69  |krunO","<Boot$Di|
00009220  72 3e 2e 55 74 69 6c 73  2e 44 65 73 6b 72 75 6e  |r>.Utils.Deskrun|
00009230  22 0d 7d 64 39 c8 99 22  4f 53 5f 46 53 43 6f 6e  |".}d9.."OS_FSCon|
00009240  74 72 6f 6c 22 2c 32 34  2c 22 3c 42 6f 6f 74 24  |trol",24,"<Boot$|
00009250  44 69 72 3e 2e 55 74 69  6c 73 2e 44 65 73 6b 72  |Dir>.Utils.Deskr|
00009260  75 6e 22 2c 22 4c 52 2f  52 22 0d 7d 6e 05 cb 0d  |un","LR/R".}n...|
00009270  7d 78 05 e1 0d 7d d2 1d  dd f2 64 72 61 77 5f 6d  |}x...}....draw_m|
00009280  61 69 6e 28 6d 69 64 25  2c 72 65 61 73 6f 6e 25  |ain(mid%,reason%|
00009290  29 0d 7e 22 07 ea 61 25  0d 7e 4a 1c 42 6c 63 6b  |).~"..a%.~J.Blck|
000092a0  25 21 30 3d 53 75 62 6c  69 73 74 25 28 6d 69 64  |%!0=Sublist%(mid|
000092b0  25 2c 32 29 0d 7e 54 22  c8 99 22 57 69 6d 70 5f  |%,2).~T".."Wimp_|
000092c0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
000092d0  2c 42 6c 63 6b 25 0d 7e  5e 0e c8 8e 72 65 61 73  |,Blck%.~^...reas|
000092e0  6f 6e 25 ca 0d 7e 68 06  c9 30 0d 7e 90 0b c8 8e  |on%..~h..0.~....|
000092f0  6d 69 64 25 ca 0d 7e 9a  06 c9 31 0d 7e c2 11 c8  |mid%..~...1.~...|
00009300  8e 45 64 69 74 5f 54 79  70 65 24 ca 0d 7e cc 0e  |.Edit_Type$..~..|
00009310  c9 22 61 75 74 6f 72 75  6e 22 0d 7e d6 34 c8 99  |."autorun".~.4..|
00009320  54 5f 54 4f 4d 4f 25 2c  30 2c 4d 61 69 6e 6c 69  |T_TOMO%,0,Mainli|
00009330  73 74 5f 49 44 25 2c 31  31 2c 22 45 64 69 74 20  |st_ID%,11,"Edit |
00009340  41 75 74 6f 72 75 6e 20  46 69 6c 65 73 22 0d 7e  |Autorun Files".~|
00009350  e0 0b c9 22 62 6f 6f 74  22 0d 7e ea 3e c8 99 54  |..."boot".~.>..T|
00009360  5f 54 4f 4d 4f 25 2c 30  2c 4d 61 69 6e 6c 69 73  |_TOMO%,0,Mainlis|
00009370  74 5f 49 44 25 2c 31 31  2c 22 45 64 69 74 20 41  |t_ID%,11,"Edit A|
00009380  75 74 6f 62 6f 6f 74 65  64 20 41 70 70 6c 69 63  |utobooted Applic|
00009390  61 74 69 6f 6e 73 22 0d  7e f4 10 c9 22 72 65 73  |ations".~..."res|
000093a0  6f 75 72 63 65 73 22 0d  7e fe 3c c8 99 54 5f 54  |ources".~.<..T_T|
000093b0  4f 4d 4f 25 2c 30 2c 4d  61 69 6e 6c 69 73 74 5f  |OMO%,0,Mainlist_|
000093c0  49 44 25 2c 31 31 2c 22  45 64 69 74 20 52 65 73  |ID%,11,"Edit Res|
000093d0  6f 75 72 63 65 20 41 70  70 6c 69 63 61 74 69 6f  |ource Applicatio|
000093e0  6e 73 22 0d 7f 08 0e c9  22 70 72 65 64 65 73 6b  |ns"....."predesk|
000093f0  22 0d 7f 12 34 c8 99 54  5f 54 4f 4d 4f 25 2c 30  |"...4..T_TOMO%,0|
00009400  2c 4d 61 69 6e 6c 69 73  74 5f 49 44 25 2c 31 31  |,Mainlist_ID%,11|
00009410  2c 22 45 64 69 74 20 50  72 65 64 65 73 6b 20 46  |,"Edit Predesk F|
00009420  69 6c 65 73 22 0d 7f 1c  05 cb 0d 7f 44 05 cb 0d  |iles".......D...|
00009430  7f 4e 1e c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |.N..."Wimp_OpenW|
00009440  69 6e 64 6f 77 22 2c 2c  42 6c 63 6b 25 0d 7f 58  |indow",,Blck%..X|
00009450  06 c9 32 0d 7f 62 20 c8  99 22 57 69 6d 70 5f 52  |..2..b .."Wimp_R|
00009460  65 64 72 61 77 57 69 6e  64 6f 77 22 2c 2c 42 6c  |edrawWindow",,Bl|
00009470  63 6b 25 0d 7f 6c 05 cb  0d 7f 94 0c e7 6d 69 64  |ck%..l.......mid|
00009480  25 3d 32 8c 0d 7f bc 1c  f2 64 72 61 77 5f 73 75  |%=2......draw_su|
00009490  62 28 32 2c 72 65 61 73  6f 6e 25 2c b9 2c 30 29  |b(2,reason%,.,0)|
000094a0  0d 7f c6 1c f2 64 72 61  77 5f 73 75 62 28 33 2c  |.....draw_sub(3,|
000094b0  72 65 61 73 6f 6e 25 2c  b9 2c 30 29 0d 7f d0 05  |reason%,.,0)....|
000094c0  cc 0d 7f f8 1c f2 64 72  61 77 5f 73 75 62 28 31  |......draw_sub(1|
000094d0  2c 72 65 61 73 6f 6e 25  2c b9 2c 30 29 0d 80 02  |,reason%,.,0)...|
000094e0  05 cd 0d 80 2a 1c 42 6c  63 6b 25 21 30 3d 53 75  |....*.Blck%!0=Su|
000094f0  62 6c 69 73 74 25 28 6d  69 64 25 2c 32 29 0d 80  |blist%(mid%,2)..|
00009500  34 22 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |4".."Wimp_GetWin|
00009510  64 6f 77 53 74 61 74 65  22 2c 2c 42 6c 63 6b 25  |dowState",,Blck%|
00009520  0d 80 3e 1d 42 6c 63 6b  25 21 32 38 3d 53 75 62  |..>.Blck%!28=Sub|
00009530  6c 69 73 74 25 28 6d 69  64 25 2c 31 29 0d 80 48  |list%(mid%,1)..H|
00009540  1e c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |..."Wimp_OpenWin|
00009550  64 6f 77 22 2c 2c 42 6c  63 6b 25 0d 80 52 05 e1  |dow",,Blck%..R..|
00009560  0d 80 e8 26 dd f2 64 72  61 77 5f 73 75 62 28 73  |...&..draw_sub(s|
00009570  69 64 25 2c 72 65 61 73  6f 6e 25 2c 6d 61 69 6e  |id%,reason%,main|
00009580  25 2c 62 68 25 29 0d 81  42 18 ea 61 25 2c 72 25  |%,bh%)..B..a%,r%|
00009590  2c 6f 73 5f 77 78 25 2c  6f 73 5f 77 79 25 0d 81  |,os_wx%,os_wy%..|
000095a0  60 10 e7 72 65 61 73 6f  6e 25 3c 3e 32 8c 0d 81  |`..reason%<>2...|
000095b0  88 1c 42 75 66 31 25 21  30 3d 53 75 62 6c 69 73  |..Buf1%!0=Sublis|
000095c0  74 25 28 73 69 64 25 2c  32 29 0d 81 92 22 c8 99  |t%(sid%,2)..."..|
000095d0  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
000095e0  74 61 74 65 22 2c 2c 42  75 66 31 25 0d 81 9c 1d  |tate",,Buf1%....|
000095f0  6f 73 5f 77 78 25 3d 28  42 75 66 31 25 21 34 2d  |os_wx%=(Buf1%!4-|
00009600  42 75 66 31 25 21 32 30  29 0d 81 a6 1e 6f 73 5f  |Buf1%!20)....os_|
00009610  77 79 25 3d 28 42 75 66  31 25 21 31 36 2d 42 75  |wy%=(Buf1%!16-Bu|
00009620  66 31 25 21 32 34 29 0d  81 b0 1c 42 75 66 32 25  |f1%!24)....Buf2%|
00009630  21 30 3d 53 75 62 6c 69  73 74 25 28 73 69 64 25  |!0=Sublist%(sid%|
00009640  2c 31 29 0d 81 ba 22 c8  99 22 57 69 6d 70 5f 47  |,1)...".."Wimp_G|
00009650  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00009660  42 75 66 32 25 0d 81 c4  23 42 75 66 32 25 21 34  |Buf2%...#Buf2%!4|
00009670  3d 6f 73 5f 77 78 25 2b  53 75 62 6c 69 73 74 25  |=os_wx%+Sublist%|
00009680  28 73 69 64 25 2c 33 29  0d 81 ce 34 42 75 66 32  |(sid%,3)...4Buf2|
00009690  25 21 38 3d 6f 73 5f 77  79 25 2b 53 75 62 6c 69  |%!8=os_wy%+Subli|
000096a0  73 74 25 28 73 69 64 25  2c 34 29 2b 53 75 62 6c  |st%(sid%,4)+Subl|
000096b0  69 73 74 25 28 73 69 64  25 2c 36 29 0d 81 d8 35  |ist%(sid%,6)...5|
000096c0  42 75 66 32 25 21 31 32  3d 6f 73 5f 77 78 25 2b  |Buf2%!12=os_wx%+|
000096d0  53 75 62 6c 69 73 74 25  28 73 69 64 25 2c 33 29  |Sublist%(sid%,3)|
000096e0  2b 53 75 62 6c 69 73 74  25 28 73 69 64 25 2c 35  |+Sublist%(sid%,5|
000096f0  29 0d 81 e2 24 42 75 66  32 25 21 31 36 3d 6f 73  |)...$Buf2%!16=os|
00009700  5f 77 79 25 2b 53 75 62  6c 69 73 74 25 28 73 69  |_wy%+Sublist%(si|
00009710  64 25 2c 34 29 0d 81 ec  05 cd 0d 82 14 0e c8 8e  |d%,4)...........|
00009720  72 65 61 73 6f 6e 25 ca  0d 82 1e 06 c9 30 0d 82  |reason%......0..|
00009730  d2 0f 42 75 66 32 25 21  32 38 3d 2d 31 0d 82 dc  |..Buf2%!28=-1...|
00009740  1e c8 99 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |..."Wimp_OpenWin|
00009750  64 6f 77 22 2c 2c 42 75  66 32 25 0d 82 f0 1c f2  |dow",,Buf2%.....|
00009760  73 65 74 5f 6c 69 73 74  5f 65 78 74 65 6e 74 28  |set_list_extent(|
00009770  73 69 64 25 2c b9 29 0d  82 fa 0b c8 8e 73 69 64  |sid%,.)......sid|
00009780  25 ca 0d 83 04 06 c9 31  0d 83 2c 2f f2 64 72 61  |%......1..,/.dra|
00009790  77 5f 6c 69 73 74 28 31  2c 4f 62 6a 73 25 2c 4f  |w_list(1,Objs%,O|
000097a0  70 74 72 25 28 29 2c 4f  64 61 74 24 28 29 2c 4f  |ptr%(),Odat$(),O|
000097b0  66 6c 67 25 28 29 29 0d  83 36 06 c9 32 0d 83 5e  |flg%())..6..2..^|
000097c0  31 f2 64 72 61 77 5f 6c  69 73 74 28 32 2c 54 79  |1.draw_list(2,Ty|
000097d0  64 69 72 73 25 2c 54 79  70 74 25 28 29 2c 54 64  |dirs%,Typt%(),Td|
000097e0  69 72 24 28 29 2c 54 66  6c 67 25 28 29 29 0d 83  |ir$(),Tflg%())..|
000097f0  68 06 c9 33 0d 83 90 31  f2 64 72 61 77 5f 6c 69  |h..3...1.draw_li|
00009800  73 74 28 33 2c 54 6e 64  69 72 73 25 2c 54 6e 70  |st(3,Tndirs%,Tnp|
00009810  74 25 28 29 2c 54 64 69  72 24 28 29 2c 54 66 6c  |t%(),Tdir$(),Tfl|
00009820  67 25 28 29 29 0d 83 9a  05 cb 0d 83 ae 06 c9 32  |g%())..........2|
00009830  0d 83 d6 0b c8 8e 73 69  64 25 ca 0d 83 e0 06 c9  |......sid%......|
00009840  31 0d 84 08 2f f2 64 72  61 77 5f 6c 69 73 74 28  |1.../.draw_list(|
00009850  31 2c 4f 62 6a 73 25 2c  4f 70 74 72 25 28 29 2c  |1,Objs%,Optr%(),|
00009860  4f 64 61 74 24 28 29 2c  4f 66 6c 67 25 28 29 29  |Odat$(),Oflg%())|
00009870  0d 84 12 06 c9 32 0d 84  3a 31 f2 64 72 61 77 5f  |.....2..:1.draw_|
00009880  6c 69 73 74 28 32 2c 54  79 64 69 72 73 25 2c 54  |list(2,Tydirs%,T|
00009890  79 70 74 25 28 29 2c 54  64 69 72 24 28 29 2c 54  |ypt%(),Tdir$(),T|
000098a0  66 6c 67 25 28 29 29 0d  84 44 06 c9 33 0d 84 6c  |flg%())..D..3..l|
000098b0  31 f2 64 72 61 77 5f 6c  69 73 74 28 33 2c 54 6e  |1.draw_list(3,Tn|
000098c0  64 69 72 73 25 2c 54 6e  70 74 25 28 29 2c 54 64  |dirs%,Tnpt%(),Td|
000098d0  69 72 24 28 29 2c 54 66  6c 67 25 28 29 29 0d 84  |ir$(),Tflg%())..|
000098e0  76 05 cb 0d 84 80 06 c9  33 0d 84 a8 10 42 75 66  |v.......3....Buf|
000098f0  32 25 21 32 38 3d 62 68  25 0d 84 b2 1e c8 99 22  |2%!28=bh%......"|
00009900  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00009910  2c 2c 42 75 66 32 25 0d  84 bc 05 cb 0d 84 c6 05  |,,Buf2%.........|
00009920  e1 0d 85 2a 23 dd f2 73  65 74 5f 6c 69 73 74 5f  |...*#..set_list_|
00009930  65 78 74 65 6e 74 28 73  69 64 25 2c 72 65 64 72  |extent(sid%,redr|
00009940  61 77 25 29 0d 85 52 1c  42 6c 63 6b 25 21 30 3d  |aw%)..R.Blck%!0=|
00009950  53 75 62 6c 69 73 74 25  28 73 69 64 25 2c 31 29  |Sublist%(sid%,1)|
00009960  0d 85 5c 26 c8 99 22 57  69 6d 70 5f 47 65 74 57  |..\&.."Wimp_GetW|
00009970  69 6e 64 6f 77 49 6e 66  6f 22 2c 2c 28 42 6c 63  |indowInfo",,(Blc|
00009980  6b 25 84 26 31 29 0d 85  66 0b c8 8e 73 69 64 25  |k%.&1)..f...sid%|
00009990  ca 0d 85 70 06 c9 31 0d  85 7a 1c 42 6c 63 6b 25  |...p..1..z.Blck%|
000099a0  21 34 38 3d 2d 46 6f 6e  74 5f 4c 68 25 2a 4f 62  |!48=-Font_Lh%*Ob|
000099b0  6a 73 25 0d 85 84 06 c9  32 0d 85 8e 1e 42 6c 63  |js%.....2....Blc|
000099c0  6b 25 21 34 38 3d 2d 46  6f 6e 74 5f 4c 68 25 2a  |k%!48=-Font_Lh%*|
000099d0  54 79 64 69 72 73 25 0d  85 98 06 c9 33 0d 85 a2  |Tydirs%.....3...|
000099e0  1e 42 6c 63 6b 25 21 34  38 3d 2d 46 6f 6e 74 5f  |.Blck%!48=-Font_|
000099f0  4c 68 25 2a 54 6e 64 69  72 73 25 0d 85 ac 05 cb  |Lh%*Tndirs%.....|
00009a00  0d 85 b6 21 e7 42 6c 63  6b 25 21 34 38 3e 28 42  |...!.Blck%!48>(B|
00009a10  6c 63 6b 25 21 38 2d 42  6c 63 6b 25 21 31 36 29  |lck%!8-Blck%!16)|
00009a20  8c 0d 85 c0 1d 42 6c 63  6b 25 21 34 38 3d 42 6c  |.....Blck%!48=Bl|
00009a30  63 6b 25 21 38 2d 42 6c  63 6b 25 21 31 36 0d 85  |ck%!8-Blck%!16..|
00009a40  ca 05 cd 0d 85 d4 27 c8  99 22 57 69 6d 70 5f 53  |......'.."Wimp_S|
00009a50  65 74 45 78 74 65 6e 74  22 2c 42 6c 63 6b 25 21  |etExtent",Blck%!|
00009a60  30 2c 42 6c 63 6b 25 2b  34 34 0d 85 de 0d e7 72  |0,Blck%+44.....r|
00009a70  65 64 72 61 77 25 8c 0d  86 10 1e c8 99 22 57 69  |edraw%......."Wi|
00009a80  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00009a90  42 6c 63 6b 25 0d 86 1a  05 cd 0d 86 24 05 e1 0d  |Blck%.......$...|
00009aa0  86 6a 35 dd f2 64 72 61  77 5f 6c 69 73 74 28 73  |.j5..draw_list(s|
00009ab0  69 64 25 2c 6e 74 72 73  25 2c 70 74 72 73 25 28  |id%,ntrs%,ptrs%(|
00009ac0  29 2c 73 64 61 74 61 24  28 29 2c 66 6c 61 67 73  |),sdata$(),flags|
00009ad0  25 28 29 29 0d 86 ec 47  ea 66 68 25 2c 6d 25 2c  |%())...G.fh%,m%,|
00009ae0  6f 73 5f 77 6c 25 2c 6f  73 5f 77 74 25 2c 77 6b  |os_wl%,os_wt%,wk|
00009af0  5f 72 6c 25 2c 77 6b 5f  72 74 25 2c 77 6b 5f 72  |_rl%,wk_rt%,wk_r|
00009b00  62 25 2c 74 74 25 2c 74  62 25 2c 72 25 2c 65 25  |b%,tt%,tb%,r%,e%|
00009b10  2c 63 6c 73 25 2c 78 70  6f 73 25 0d 87 00 16 63  |,cls%,xpos%....c|
00009b20  6c 73 25 3d de 28 73 64  61 74 61 24 28 29 2c 32  |ls%=.(sdata$(),2|
00009b30  29 0d 87 0a 31 c8 99 22  46 6f 6e 74 5f 46 69 6e  |)...1.."Font_Fin|
00009b40  64 46 6f 6e 74 22 2c 2c  46 6f 6e 74 5f 4e 61 6d  |dFont",,Font_Nam|
00009b50  65 24 2c 31 39 32 2c 31  39 32 2c 30 2c 30 b8 66  |e$,192,192,0,0.f|
00009b60  68 25 0d 87 14 24 c8 99  22 46 6f 6e 74 5f 52 65  |h%...$.."Font_Re|
00009b70  61 64 49 6e 66 6f 22 2c  66 68 25 b8 2c 2c 66 62  |adInfo",fh%.,,fb|
00009b80  25 2c 2c 66 74 25 0d 87  1e 16 46 6f 6e 74 5f 4c  |%,,ft%....Font_L|
00009b90  68 25 3d 66 74 25 2d 66  62 25 2b 34 0d 87 28 1c  |h%=ft%-fb%+4..(.|
00009ba0  42 6c 63 6b 25 21 30 3d  53 75 62 6c 69 73 74 25  |Blck%!0=Sublist%|
00009bb0  28 73 69 64 25 2c 31 29  0d 87 32 23 c8 99 22 57  |(sid%,1)..2#.."W|
00009bc0  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
00009bd0  22 2c 2c 42 6c 63 6b 25  b8 6d 25 0d 87 3c 05 f5  |",,Blck%.m%..<..|
00009be0  0d 87 64 2d e7 28 42 6c  63 6b 25 21 33 36 3e 42  |..d-.(Blck%!36>B|
00009bf0  6c 63 6b 25 21 32 38 29  80 28 42 6c 63 6b 25 21  |lck%!28).(Blck%!|
00009c00  34 30 3e 42 6c 63 6b 25  21 33 32 29 8c 0d 87 8c  |40>Blck%!32)....|
00009c10  1d 6f 73 5f 77 6c 25 3d  28 42 6c 63 6b 25 21 34  |.os_wl%=(Blck%!4|
00009c20  2d 42 6c 63 6b 25 21 32  30 29 0d 87 96 1e 6f 73  |-Blck%!20)....os|
00009c30  5f 77 74 25 3d 28 42 6c  63 6b 25 21 31 36 2d 42  |_wt%=(Blck%!16-B|
00009c40  6c 63 6b 25 21 32 34 29  0d 87 c8 1a 77 6b 5f 72  |lck%!24)....wk_r|
00009c50  6c 25 3d 42 6c 63 6b 25  21 32 38 2d 6f 73 5f 77  |l%=Blck%!28-os_w|
00009c60  6c 25 0d 87 d2 1a 77 6b  5f 72 74 25 3d 42 6c 63  |l%....wk_rt%=Blc|
00009c70  6b 25 21 34 30 2d 6f 73  5f 77 74 25 0d 87 dc 1a  |k%!40-os_wt%....|
00009c80  77 6b 5f 72 62 25 3d 42  6c 63 6b 25 21 33 32 2d  |wk_rb%=Blck%!32-|
00009c90  6f 73 5f 77 74 25 0d 88  04 1d 74 74 25 3d a8 28  |os_wt%....tt%=.(|
00009ca0  2d 77 6b 5f 72 74 25 2f  46 6f 6e 74 5f 4c 68 25  |-wk_rt%/Font_Lh%|
00009cb0  29 2b 31 0d 88 0e 1d 74  62 25 3d a8 28 2d 77 6b  |)+1....tb%=.(-wk|
00009cc0  5f 72 62 25 2f 46 6f 6e  74 5f 4c 68 25 29 2b 31  |_rb%/Font_Lh%)+1|
00009cd0  0d 88 54 0f e3 72 25 3d  74 74 25 b8 74 62 25 0d  |..T..r%=tt%.tb%.|
00009ce0  88 86 10 70 25 3d 70 74  72 73 25 28 72 25 29 0d  |...p%=ptrs%(r%).|
00009cf0  88 90 0a e7 70 25 3e 30  8c 0d 88 b8 0e e3 63 25  |....p%>0......c%|
00009d00  3d 31 b8 63 6c 73 25 0d  88 c2 1f e7 28 66 6c 61  |=1.cls%.....(fla|
00009d10  67 73 25 28 70 25 2c 63  25 29 80 26 31 30 30 29  |gs%(p%,c%).&100)|
00009d20  3d 26 31 30 30 8c 0d 88  ea 27 78 70 6f 73 25 3d  |=&100....'xpos%=|
00009d30  28 66 6c 61 67 73 25 28  70 25 2c 63 25 29 80 26  |(flags%(p%,c%).&|
00009d40  66 66 66 66 30 30 30 30  29 3e 3e 31 36 0d 88 f4  |ffff0000)>>16...|
00009d50  32 c8 99 22 57 69 6d 70  5f 53 65 74 46 6f 6e 74  |2.."Wimp_SetFont|
00009d60  43 6f 6c 6f 75 72 73 22  2c 2c 30 2c 28 66 6c 61  |Colours",,0,(fla|
00009d70  67 73 25 28 70 25 2c 63  25 29 80 20 31 35 29 0d  |gs%(p%,c%). 15).|
00009d80  88 fe 4d c8 99 22 46 6f  6e 74 5f 50 61 69 6e 74  |..M.."Font_Paint|
00009d90  22 2c 66 68 25 2c 73 64  61 74 61 24 28 70 25 2c  |",fh%,sdata$(p%,|
00009da0  63 25 29 2c 31 36 2c 6f  73 5f 77 6c 25 2b 78 70  |c%),16,os_wl%+xp|
00009db0  6f 73 25 2c 6f 73 5f 77  74 25 2d 72 25 2a 46 6f  |os%,os_wt%-r%*Fo|
00009dc0  6e 74 5f 4c 68 25 2d 66  62 25 2d 34 0d 89 08 05  |nt_Lh%-fb%-4....|
00009dd0  cd 0d 89 12 07 ed 63 25  0d 89 1c 05 cd 0d 89 26  |......c%.......&|
00009de0  07 ed 72 25 0d 89 30 05  cd 0d 89 3a 0b e7 6d 25  |..r%..0....:..m%|
00009df0  3c 3e 30 8c 0d 89 62 23  c8 99 22 57 69 6d 70 5f  |<>0...b#.."Wimp_|
00009e00  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 42  |GetRectangle",,B|
00009e10  6c 63 6b 25 b8 6d 25 0d  89 6c 05 cd 0d 89 76 09  |lck%.m%..l....v.|
00009e20  fd 6d 25 3d 30 0d 89 80  05 e1 0d 89 c6 11 dd f2  |.m%=0...........|
00009e30  67 65 74 5f 61 70 70 6c  69 73 74 0d 8a 5c 29 ea  |get_applist..\).|
00009e40  61 6c 69 6e 65 24 2c 66  31 25 2c 70 25 2c 6f 66  |aline$,f1%,p%,of|
00009e50  66 73 65 74 25 2c 61 70  70 24 2c 66 6f 75 6e 64  |fset%,app$,found|
00009e60  25 2c 72 25 0d 8a 84 0b  4f 62 6a 73 25 3d 30 0d  |%,r%....Objs%=0.|
00009e70  8a 8e 0d 4f 66 6c 67 25  28 29 3d 37 0d 8a 98 0d  |...Oflg%()=7....|
00009e80  4f 70 74 72 25 28 29 3d  30 0d 8a a2 0e 4f 64 61  |Optr%()=0....Oda|
00009e90  74 24 28 29 3d 22 22 0d  8a ac 11 c8 8e 45 64 69  |t$()=""......Edi|
00009ea0  74 5f 54 79 70 65 24 ca  0d 8a b6 10 c9 22 72 65  |t_Type$......"re|
00009eb0  73 6f 75 72 63 65 73 22  0d 8a de 3f f2 67 65 74  |sources"...?.get|
00009ec0  5f 66 69 6c 65 6c 69 73  74 65 64 28 22 3c 63 68  |_filelisted("<ch|
00009ed0  6f 69 63 65 73 24 77 72  69 74 65 3e 2e 42 6f 6f  |oices$write>.Boo|
00009ee0  74 2e 50 72 65 44 65 73  6b 54 6f 70 22 2c 22 41  |t.PreDeskTop","A|
00009ef0  64 64 41 70 70 22 29 0d  8a e8 0b c9 22 62 6f 6f  |ddApp")....."boo|
00009f00  74 22 0d 8b 10 40 f2 67  65 74 5f 66 69 6c 65 6c  |t"...@.get_filel|
00009f10  69 73 74 65 64 28 22 3c  63 68 6f 69 63 65 73 24  |isted("<choices$|
00009f20  77 72 69 74 65 3e 2e 42  6f 6f 74 2e 44 65 73 6b  |write>.Boot.Desk|
00009f30  74 6f 70 22 2c 22 46 69  6c 65 72 5f 42 6f 6f 74  |top","Filer_Boot|
00009f40  22 29 0d 8b 1a 0e c9 22  61 75 74 6f 72 75 6e 22  |")....."autorun"|
00009f50  0d 8b 42 26 f2 67 65 74  5f 64 69 72 6c 69 73 74  |..B&.get_dirlist|
00009f60  65 64 28 22 3c 42 6f 6f  74 24 54 6f 42 65 54 61  |ed("<Boot$ToBeTa|
00009f70  73 6b 73 3e 22 29 0d 8b  4c 0e c9 22 70 72 65 64  |sks>")..L.."pred|
00009f80  65 73 6b 22 0d 8b 74 27  f2 67 65 74 5f 64 69 72  |esk"..t'.get_dir|
00009f90  6c 69 73 74 65 64 28 22  3c 42 6f 6f 74 24 54 6f  |listed("<Boot$To|
00009fa0  42 65 4c 6f 61 64 65 64  3e 22 29 0d 8b 7e 05 cb  |BeLoaded>")..~..|
00009fb0  0d 8b a6 0f 4f 6e 74 72  25 3d 4f 62 6a 73 25 0d  |....Ontr%=Objs%.|
00009fc0  8b b0 0f e3 72 25 3d 31  b8 4f 62 6a 73 25 0d 8b  |....r%=1.Objs%..|
00009fd0  ba 10 4f 70 74 72 25 28  72 25 29 3d 72 25 0d 8b  |..Optr%(r%)=r%..|
00009fe0  c4 29 4f 66 6c 67 25 28  72 25 2c 31 29 3d 4f 66  |.)Oflg%(r%,1)=Of|
00009ff0  6c 67 25 28 72 25 2c 31  29 84 28 32 34 3c 3c 31  |lg%(r%,1).(24<<1|
0000a000  36 29 84 26 31 30 30 0d  8b ce 2a 4f 66 6c 67 25  |6).&100...*Oflg%|
0000a010  28 72 25 2c 32 29 3d 4f  66 6c 67 25 28 72 25 2c  |(r%,2)=Oflg%(r%,|
0000a020  32 29 84 28 32 30 30 3c  3c 31 36 29 84 26 31 30  |2).(200<<16).&10|
0000a030  30 0d 8b d8 11 c8 8e 45  64 69 74 5f 54 79 70 65  |0......Edit_Type|
0000a040  24 ca 0d 8b e2 0b c9 22  62 6f 6f 74 22 0d 8b ec  |$......"boot"...|
0000a050  2a 4f 66 6c 67 25 28 72  25 2c 34 29 3d 4f 66 6c  |*Oflg%(r%,4)=Ofl|
0000a060  67 25 28 72 25 2c 34 29  84 28 35 31 32 3c 3c 31  |g%(r%,4).(512<<1|
0000a070  36 29 84 26 31 30 30 0d  8b f6 10 c9 22 72 65 73  |6).&100....."res|
0000a080  6f 75 72 63 65 73 22 0d  8c 00 2a 4f 66 6c 67 25  |ources"...*Oflg%|
0000a090  28 72 25 2c 34 29 3d 4f  66 6c 67 25 28 72 25 2c  |(r%,4)=Oflg%(r%,|
0000a0a0  34 29 84 28 35 31 32 3c  3c 31 36 29 84 26 31 30  |4).(512<<16).&10|
0000a0b0  30 0d 8c 0a 0e c9 22 61  75 74 6f 72 75 6e 22 0d  |0....."autorun".|
0000a0c0  8c 14 2a 4f 66 6c 67 25  28 72 25 2c 34 29 3d 4f  |..*Oflg%(r%,4)=O|
0000a0d0  66 6c 67 25 28 72 25 2c  34 29 84 28 34 38 30 3c  |flg%(r%,4).(480<|
0000a0e0  3c 31 36 29 84 26 31 30  30 0d 8c 1e 0e c9 22 70  |<16).&100....."p|
0000a0f0  72 65 64 65 73 6b 22 0d  8c 28 2a 4f 66 6c 67 25  |redesk"..(*Oflg%|
0000a100  28 72 25 2c 34 29 3d 4f  66 6c 67 25 28 72 25 2c  |(r%,4)=Oflg%(r%,|
0000a110  34 29 84 28 34 30 30 3c  3c 31 36 29 84 26 31 30  |4).(400<<16).&10|
0000a120  30 0d 8c 32 05 cb 0d 8c  3c 07 ed 72 25 0d 8c 46  |0..2....<..r%..F|
0000a130  05 e1 0d 8c 8c 20 dd f2  67 65 74 5f 66 69 6c 65  |..... ..get_file|
0000a140  6c 69 73 74 65 64 28 66  69 6c 65 24 2c 63 6f 6d  |listed(file$,com|
0000a150  24 29 0d 8c b4 12 ea 66  31 25 2c 61 6c 69 6e 65  |$).....f1%,aline|
0000a160  24 2c 70 25 0d 8c c8 10  66 31 25 3d 8e 28 66 69  |$,p%....f1%=.(fi|
0000a170  6c 65 24 29 0d 8c d2 05  f5 0d 8c dc 10 61 6c 69  |le$).........ali|
0000a180  6e 65 24 3d be 23 66 31  25 0d 8c e6 5f fd 28 a7  |ne$=.#f1%..._.(.|
0000a190  61 6c 69 6e 65 24 2c 22  7c 53 74 61 72 74 22 29  |aline$,"|Start")|
0000a1a0  3e 30 80 a7 61 6c 69 6e  65 24 2c 22 4d 61 72 73  |>0..aline$,"Mars|
0000a1b0  22 29 3e 30 80 a7 61 6c  69 6e 65 24 2c 22 21 42  |")>0..aline$,"!B|
0000a1c0  6f 6f 74 70 6c 75 73 22  29 3e 30 80 a7 61 6c 69  |ootplus")>0..ali|
0000a1d0  6e 65 24 2c 45 64 69 74  5f 54 79 70 65 24 29 3e  |ne$,Edit_Type$)>|
0000a1e0  30 29 84 c5 23 66 31 25  0d 8c f0 0c e7 ac c5 23  |0)..#f1%.......#|
0000a1f0  66 31 25 8c 0d 8d 18 05  f5 0d 8d 22 10 61 6c 69  |f1%........".ali|
0000a200  6e 65 24 3d be 23 66 31  25 0d 8d 2c 15 e7 a7 61  |ne$=.#f1%..,...a|
0000a210  6c 69 6e 65 24 2c 63 6f  6d 24 29 3d 31 8c 0d 8d  |line$,com$)=1...|
0000a220  36 14 70 25 3d a7 61 6c  69 6e 65 24 2c 22 2e 21  |6.p%=.aline$,".!|
0000a230  22 29 0d 8d 40 0a e7 70  25 3e 30 8c 0d 8d 4a 0c  |")..@..p%>0...J.|
0000a240  4f 62 6a 73 25 2b 3d 31  0d 8d 54 20 4f 64 61 74  |Objs%+=1..T Odat|
0000a250  24 28 4f 62 6a 73 25 2c  31 29 3d c1 61 6c 69 6e  |$(Objs%,1)=.alin|
0000a260  65 24 2c 70 25 2b 31 29  0d 8d 5e 24 4f 64 61 74  |e$,p%+1)..^$Odat|
0000a270  24 28 4f 62 6a 73 25 2c  32 29 3d 22 41 70 70 20  |$(Objs%,2)="App |
0000a280  28 72 65 66 65 72 65 6e  63 65 29 22 0d 8d 68 19  |(reference)"..h.|
0000a290  4f 64 61 74 24 28 4f 62  6a 73 25 2c 33 29 3d 22  |Odat$(Objs%,3)="|
0000a2a0  32 30 30 30 22 0d 8d 90  13 70 25 3d a7 61 6c 69  |2000"....p%=.ali|
0000a2b0  6e 65 24 2c 22 20 22 29  0d 8d 9a 20 4f 64 61 74  |ne$," ")... Odat|
0000a2c0  24 28 4f 62 6a 73 25 2c  35 29 3d c1 61 6c 69 6e  |$(Objs%,5)=.alin|
0000a2d0  65 24 2c 70 25 2b 31 29  0d 8d a4 24 c8 99 22 4f  |e$,p%+1)...$.."O|
0000a2e0  53 5f 46 69 6c 65 22 2c  32 33 2c 4f 64 61 74 24  |S_File",23,Odat$|
0000a2f0  28 4f 62 6a 73 25 2c 35  29 b8 70 25 0d 8d ae 0a  |(Objs%,5).p%....|
0000a300  e7 70 25 3d 30 8c 0d 8d  b8 25 4f 64 61 74 24 28  |.p%=0....%Odat$(|
0000a310  4f 62 6a 73 25 2c 34 29  3d 22 4f 72 69 67 69 6e  |Objs%,4)="Origin|
0000a320  61 6c 20 4d 69 73 73 69  6e 67 22 0d 8d c2 15 4f  |al Missing"....O|
0000a330  66 6c 67 25 28 4f 62 6a  73 25 2c 34 29 3d 31 31  |flg%(Objs%,4)=11|
0000a340  0d 8d cc 05 cd 0d 8d d6  19 f2 63 68 65 63 6b 5f  |..........check_|
0000a350  73 74 61 6e 64 61 72 64  5f 65 6e 74 72 79 0d 8d  |standard_entry..|
0000a360  e0 05 cd 0d 8d ea 05 cd  0d 8d f4 1c fd a7 61 6c  |..............al|
0000a370  69 6e 65 24 2c 22 7c 45  6e 64 22 29 3e 30 84 c5  |ine$,"|End")>0..|
0000a380  23 66 31 25 0d 8d fe 05  cd 0d 8e 08 09 d9 23 66  |#f1%..........#f|
0000a390  31 25 0d 8e 12 05 e1 0d  8e 58 19 dd f2 67 65 74  |1%.......X...get|
0000a3a0  5f 64 69 72 6c 69 73 74  65 64 28 64 69 72 24 29  |_dirlisted(dir$)|
0000a3b0  0d 8e 80 34 ea 66 69 6c  65 24 2c 6f 66 66 73 65  |...4.file$,offse|
0000a3c0  74 25 2c 66 6f 75 6e 64  25 2c 6c 25 2c 70 25 2c  |t%,found%,l%,p%,|
0000a3d0  6c 24 2c 66 25 2c 61 24  2c 62 24 2c 63 24 2c 61  |l$,f%,a$,b$,c$,a|
0000a3e0  25 2c 63 25 0d 8e 94 0d  6f 66 66 73 65 74 25 3d  |%,c%....offset%=|
0000a3f0  30 0d 8e 9e 05 f5 0d 8e  a8 39 c8 99 22 4f 53 5f  |0........9.."OS_|
0000a400  47 42 50 42 22 2c 31 32  2c 64 69 72 24 2c 42 75  |GBPB",12,dir$,Bu|
0000a410  66 31 25 2c 31 2c 6f 66  66 73 65 74 25 2c 31 32  |f1%,1,offset%,12|
0000a420  38 2c 30 b8 2c 2c 2c 2c  6f 66 66 73 65 74 25 0d  |8,0.,,,,offset%.|
0000a430  8e b2 1f e7 6f 66 66 73  65 74 25 3c 3e 2d 31 80  |....offset%<>-1.|
0000a440  20 42 75 66 31 25 21 32  30 3c 3e 2d 31 8c 0d 8e  | Buf1%!20<>-1...|
0000a450  bc 0f c8 8e 42 75 66 31  25 21 32 30 ca 0d 8e c6  |....Buf1%!20....|
0000a460  0a c9 26 31 30 30 30 0d  8e ee 0c 4f 62 6a 73 25  |..&1000....Objs%|
0000a470  2b 3d 31 0d 8e f8 26 4f  64 61 74 24 28 4f 62 6a  |+=1...&Odat$(Obj|
0000a480  73 25 2c 31 29 3d a4 69  6e 64 69 72 65 63 74 28  |s%,1)=.indirect(|
0000a490  42 75 66 31 25 2b 32 34  29 0d 8f 02 1e 4f 64 61  |Buf1%+24)....Oda|
0000a4a0  74 24 28 4f 62 6a 73 25  2c 32 29 3d 22 44 69 72  |t$(Objs%,2)="Dir|
0000a4b0  65 63 74 6f 72 79 22 0d  8f 0c 19 4f 64 61 74 24  |ectory"....Odat$|
0000a4c0  28 4f 62 6a 73 25 2c 33  29 3d 22 31 30 30 30 22  |(Objs%,3)="1000"|
0000a4d0  0d 8f 16 11 c8 8e 45 64  69 74 5f 54 79 70 65 24  |......Edit_Type$|
0000a4e0  ca 0d 8f 2a 05 cb 0d 8f  34 15 4f 64 61 74 24 28  |...*....4.Odat$(|
0000a4f0  4f 62 6a 73 25 2c 34 29  3d 22 22 0d 8f 3e 2a 4f  |Objs%,4)=""..>*O|
0000a500  64 61 74 24 28 4f 62 6a  73 25 2c 35 29 3d 64 69  |dat$(Objs%,5)=di|
0000a510  72 24 2b 22 2e 22 2b 4f  64 61 74 24 28 4f 62 6a  |r$+"."+Odat$(Obj|
0000a520  73 25 2c 31 29 0d 8f 48  0a c9 26 32 30 30 30 0d  |s%,1)..H..&2000.|
0000a530  8f 70 0c 4f 62 6a 73 25  2b 3d 31 0d 8f 7a 26 4f  |.p.Objs%+=1..z&O|
0000a540  64 61 74 24 28 4f 62 6a  73 25 2c 31 29 3d a4 69  |dat$(Objs%,1)=.i|
0000a550  6e 64 69 72 65 63 74 28  42 75 66 31 25 2b 32 34  |ndirect(Buf1%+24|
0000a560  29 0d 8f 84 2a 4f 64 61  74 24 28 4f 62 6a 73 25  |)...*Odat$(Objs%|
0000a570  2c 35 29 3d 64 69 72 24  2b 22 2e 22 2b 4f 64 61  |,5)=dir$+"."+Oda|
0000a580  74 24 28 4f 62 6a 73 25  2c 31 29 0d 8f 8e 4f c8  |t$(Objs%,1)...O.|
0000a590  99 22 4f 53 5f 47 42 50  42 22 2c 31 30 2c 64 69  |."OS_GBPB",10,di|
0000a5a0  72 24 2b 22 2e 22 2b 4f  64 61 74 24 28 4f 62 6a  |r$+"."+Odat$(Obj|
0000a5b0  73 25 2c 31 29 2c 42 75  66 31 25 2c 31 30 2c 30  |s%,1),Buf1%,10,0|
0000a5c0  2c 32 30 30 2c 22 21 53  70 72 69 74 65 73 2a 22  |,200,"!Sprites*"|
0000a5d0  b8 2c 2c 2c 66 6f 75 6e  64 25 0d 8f 98 0e e7 66  |.,,,found%.....f|
0000a5e0  6f 75 6e 64 25 3d 30 8c  0d 8f c0 35 c8 99 22 4f  |ound%=0....5.."O|
0000a5f0  53 5f 46 69 6c 65 22 2c  32 30 2c 64 69 72 24 2b  |S_File",20,dir$+|
0000a600  22 2e 22 2b 4f 64 61 74  24 28 4f 62 6a 73 25 2c  |"."+Odat$(Objs%,|
0000a610  31 29 2b 22 2e 21 52 75  6e 22 b8 66 25 0d 8f ca  |1)+".!Run".f%...|
0000a620  0a e7 66 25 3d 30 8c 0d  8f f2 20 4f 64 61 74 24  |..f%=0.... Odat$|
0000a630  28 4f 62 6a 73 25 2c 32  29 3d 22 41 70 70 20 28  |(Objs%,2)="App (|
0000a640  66 75 6c 6c 3f 29 22 0d  8f fc 21 4f 64 61 74 24  |full?)"...!Odat$|
0000a650  28 4f 62 6a 73 25 2c 34  29 3d 22 4e 6f 20 21 72  |(Objs%,4)="No !r|
0000a660  75 6e 20 66 69 6c 65 22  0d 90 06 15 4f 66 6c 67  |un file"....Oflg|
0000a670  25 28 4f 62 6a 73 25 2c  34 29 3d 31 31 0d 90 10  |%(Objs%,4)=11...|
0000a680  05 cc 0d 90 38 20 4f 64  61 74 24 28 4f 62 6a 73  |....8 Odat$(Objs|
0000a690  25 2c 32 29 3d 22 41 70  70 20 28 61 6c 69 61 73  |%,2)="App (alias|
0000a6a0  29 22 0d 90 42 29 66 25  3d 8e 28 64 69 72 24 2b  |)"..B)f%=.(dir$+|
0000a6b0  22 2e 22 2b 4f 64 61 74  24 28 4f 62 6a 73 25 2c  |"."+Odat$(Objs%,|
0000a6c0  31 29 2b 22 2e 21 52 75  6e 22 29 0d 90 4c 0b 6c  |1)+".!Run")..L.l|
0000a6d0  24 3d be 23 66 25 0d 90  56 08 d9 23 66 25 0d 90  |$=.#f%..V..#f%..|
0000a6e0  60 0e 6c 24 3d c1 6c 24  2c 31 31 29 0d 90 6a 18  |`.l$=.l$,11)..j.|
0000a6f0  c8 99 22 4f 53 5f 46 69  6c 65 22 2c 32 33 2c 6c  |.."OS_File",23,l|
0000a700  24 b8 70 25 0d 90 74 0a  e7 70 25 3d 30 8c 0d 90  |$.p%..t..p%=0...|
0000a710  7e 25 4f 64 61 74 24 28  4f 62 6a 73 25 2c 34 29  |~%Odat$(Objs%,4)|
0000a720  3d 22 4f 72 69 67 69 6e  61 6c 20 4d 69 73 73 69  |="Original Missi|
0000a730  6e 67 22 0d 90 88 15 4f  66 6c 67 25 28 4f 62 6a  |ng"....Oflg%(Obj|
0000a740  73 25 2c 34 29 3d 31 31  0d 90 92 05 cd 0d 90 9c  |s%,4)=11........|
0000a750  05 cd 0d 90 a6 05 cc 0d  90 ce 1f 4f 64 61 74 24  |...........Odat$|
0000a760  28 4f 62 6a 73 25 2c 32  29 3d 22 41 70 70 20 28  |(Objs%,2)="App (|
0000a770  66 75 6c 6c 29 22 0d 90  d8 05 cd 0d 90 e2 19 4f  |full)".........O|
0000a780  64 61 74 24 28 4f 62 6a  73 25 2c 33 29 3d 22 32  |dat$(Objs%,3)="2|
0000a790  30 30 30 22 0d 90 ec 05  7f 0d 91 14 0c 4f 62 6a  |000".........Obj|
0000a7a0  73 25 2b 3d 31 0d 91 1e  26 4f 64 61 74 24 28 4f  |s%+=1...&Odat$(O|
0000a7b0  62 6a 73 25 2c 31 29 3d  a4 69 6e 64 69 72 65 63  |bjs%,1)=.indirec|
0000a7c0  74 28 42 75 66 31 25 2b  32 34 29 0d 91 28 2a 4f  |t(Buf1%+24)..(*O|
0000a7d0  64 61 74 24 28 4f 62 6a  73 25 2c 35 29 3d 64 69  |dat$(Objs%,5)=di|
0000a7e0  72 24 2b 22 2e 22 2b 4f  64 61 74 24 28 4f 62 6a  |r$+"."+Odat$(Obj|
0000a7f0  73 25 2c 31 29 0d 91 32  2d c8 99 22 4f 53 5f 43  |s%,1)..2-.."OS_C|
0000a800  6f 6e 76 65 72 74 48 65  78 34 22 2c 42 75 66 31  |onvertHex4",Buf1|
0000a810  25 21 32 30 2c 42 75 66  32 25 2c 31 32 38 b8 2c  |%!20,Buf2%,128.,|
0000a820  70 25 0d 91 3c 0a 3f 70  25 3d 31 33 0d 91 46 1d  |p%..<.?p%=13..F.|
0000a830  4f 64 61 74 24 28 4f 62  6a 73 25 2c 33 29 3d c2  |Odat$(Objs%,3)=.|
0000a840  24 42 75 66 32 25 2c 33  29 0d 91 50 45 c8 99 22  |$Buf2%,3)..PE.."|
0000a850  58 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |XOS_ReadVarVal",|
0000a860  22 46 69 6c 65 24 54 79  70 65 5f 22 2b 4f 64 61  |"File$Type_"+Oda|
0000a870  74 24 28 4f 62 6a 73 25  2c 33 29 2c 42 75 66 31  |t$(Objs%,3),Buf1|
0000a880  25 2c 31 32 38 2c 30 2c  33 b8 2c 2c 6c 25 0d 91  |%,128,0,3.,,l%..|
0000a890  5a 0a e7 6c 25 3d 30 8c  0d 91 82 25 4f 64 61 74  |Z..l%=0....%Odat|
0000a8a0  24 28 4f 62 6a 73 25 2c  32 29 3d 22 26 22 2b 4f  |$(Objs%,2)="&"+O|
0000a8b0  64 61 74 24 28 4f 62 6a  73 25 2c 33 29 0d 91 8c  |dat$(Objs%,3)...|
0000a8c0  05 cc 0d 91 b4 0f 42 75  66 31 25 3f 6c 25 3d 31  |......Buf1%?l%=1|
0000a8d0  33 0d 91 be 19 4f 64 61  74 24 28 4f 62 6a 73 25  |3....Odat$(Objs%|
0000a8e0  2c 32 29 3d 24 42 75 66  31 25 0d 91 c8 05 cd 0d  |,2)=$Buf1%......|
0000a8f0  91 d2 05 cb 0d 91 fa 17  e7 4f 64 61 74 24 28 4f  |.........Odat$(O|
0000a900  62 6a 73 25 2c 34 29 3d  22 22 8c 0d 92 04 08 63  |bjs%,4)="".....c|
0000a910  25 3d 30 0d 92 0e 05 f5  0d 92 18 09 63 25 2b 3d  |%=0.........c%+=|
0000a920  31 0d 92 22 5e e7 28 42  6f 6f 74 5f 54 79 70 65  |1.."^.(Boot_Type|
0000a930  24 28 63 25 2c 31 29 3d  45 64 69 74 5f 54 79 70  |$(c%,1)=Edit_Typ|
0000a940  65 24 29 80 28 28 42 6f  6f 74 5f 54 79 70 65 24  |e$).((Boot_Type$|
0000a950  28 63 25 2c 32 29 3d 4f  64 61 74 24 28 4f 62 6a  |(c%,2)=Odat$(Obj|
0000a960  73 25 2c 33 29 29 84 28  42 6f 6f 74 5f 54 79 70  |s%,3)).(Boot_Typ|
0000a970  65 24 28 63 25 2c 32 29  3d 22 2a 22 29 29 8c 0d  |e$(c%,2)="*"))..|
0000a980  92 2c 23 4f 64 61 74 24  28 4f 62 6a 73 25 2c 34  |.,#Odat$(Objs%,4|
0000a990  29 3d 42 6f 6f 74 5f 54  79 70 65 24 28 63 25 2c  |)=Boot_Type$(c%,|
0000a9a0  33 29 0d 92 36 05 cd 0d  92 40 2a fd 28 63 25 3d  |3)..6....@*.(c%=|
0000a9b0  42 6f 6f 74 5f 54 79 70  65 73 25 29 84 28 4f 64  |Boot_Types%).(Od|
0000a9c0  61 74 24 28 4f 62 6a 73  25 2c 34 29 3c 3e 22 22  |at$(Objs%,4)<>""|
0000a9d0  29 0d 92 4a 05 cd 0d 92  54 19 f2 63 68 65 63 6b  |)..J....T..check|
0000a9e0  5f 73 74 61 6e 64 61 72  64 5f 65 6e 74 72 79 0d  |_standard_entry.|
0000a9f0  92 5e 05 cd 0d 92 68 0f  fd 6f 66 66 73 65 74 25  |.^....h..offset%|
0000aa00  3d 2d 31 0d 92 72 05 e1  0d 92 c2 1a dd f2 63 68  |=-1..r........ch|
0000aa10  65 63 6b 5f 73 74 61 6e  64 61 72 64 5f 65 6e 74  |eck_standard_ent|
0000aa20  72 79 0d 92 ea 07 ea 63  25 0d 92 fe 14 e3 63 25  |ry.....c%.....c%|
0000aa30  3d 31 b8 53 74 61 6e 64  61 72 64 73 25 0d 93 08  |=1.Standards%...|
0000aa40  43 e7 28 53 74 61 6e 64  61 72 64 24 28 63 25 2c  |C.(Standard$(c%,|
0000aa50  31 29 3d 45 64 69 74 5f  54 79 70 65 24 29 80 28  |1)=Edit_Type$).(|
0000aa60  53 74 61 6e 64 61 72 64  24 28 63 25 2c 32 29 3d  |Standard$(c%,2)=|
0000aa70  4f 64 61 74 24 28 4f 62  6a 73 25 2c 31 29 29 8c  |Odat$(Objs%,1)).|
0000aa80  0d 93 30 14 4f 66 6c 67  25 28 4f 62 6a 73 25 2c  |..0.Oflg%(Objs%,|
0000aa90  31 29 3d 35 0d 93 3a 14  4f 66 6c 67 25 28 4f 62  |1)=5..:.Oflg%(Ob|
0000aaa0  6a 73 25 2c 32 29 3d 35  0d 93 44 14 4f 66 6c 67  |js%,2)=5..D.Oflg|
0000aab0  25 28 4f 62 6a 73 25 2c  33 29 3d 35 0d 93 4e 14  |%(Objs%,3)=5..N.|
0000aac0  4f 66 6c 67 25 28 4f 62  6a 73 25 2c 34 29 3d 35  |Oflg%(Objs%,4)=5|
0000aad0  0d 93 58 15 4f 66 6c 67  25 28 4f 62 6a 73 25 2c  |..X.Oflg%(Objs%,|
0000aae0  35 29 3d 36 34 0d 93 62  05 cd 0d 93 6c 07 ed 63  |5)=64..b....l..c|
0000aaf0  25 0d 93 76 05 e1 0d 93  bc 16 dd f2 63 68 65 63  |%..v........chec|
0000ab00  6b 5f 69 66 5f 61 70 70  6c 69 65 64 0d 93 d0 07  |k_if_applied....|
0000ab10  ea 6b 25 0d 93 e4 0d e7  ac 53 61 76 65 64 25 8c  |.k%......Saved%.|
0000ab20  0d 93 ee 35 f2 65 72 72  6f 72 5f 6d 65 73 73 61  |...5.error_messa|
0000ab30  67 65 28 22 45 4d 32 34  22 2c 45 64 69 74 5f 54  |ge("EM24",Edit_T|
0000ab40  79 70 65 24 2c 22 22 2c  22 45 54 33 22 2c 26 31  |ype$,"","ET3",&1|
0000ab50  33 2c 6b 25 29 0d 93 f8  0a e7 6b 25 3d 31 8c 0d  |3,k%).....k%=1..|
0000ab60  94 20 17 f2 61 70 70 6c  79 5f 65 64 69 74 5f 63  |. ..apply_edit_c|
0000ab70  68 61 6e 67 65 73 0d 94  2a 05 cd 0d 94 34 05 cd  |hanges..*....4..|
0000ab80  0d 94 3e 0c 53 61 76 65  64 25 3d b9 0d 94 48 05  |..>.Saved%=...H.|
0000ab90  e1 0d 94 98 18 dd f2 61  70 70 6c 79 5f 65 64 69  |.......apply_edi|
0000aba0  74 5f 63 68 61 6e 67 65  73 0d 94 c0 07 ea 72 25  |t_changes.....r%|
0000abb0  0d 94 d4 0f e3 72 25 3d  31 b8 4f 6e 74 72 25 0d  |.....r%=1.Ontr%.|
0000abc0  94 de 12 c8 8e 4f 66 6c  67 25 28 72 25 2c 35 29  |.....Oflg%(r%,5)|
0000abd0  ca 0d 94 e8 07 c9 31 36  0d 95 10 1f f2 6d 6f 64  |......16.....mod|
0000abe0  69 66 79 5f 62 6f 6f 74  28 72 25 2c 22 72 65 6d  |ify_boot(r%,"rem|
0000abf0  6f 76 65 22 2c a3 29 0d  95 1a 07 c9 33 32 0d 95  |ove",.).....32..|
0000ac00  42 1f f2 6d 6f 64 69 66  79 5f 62 6f 6f 74 28 72  |B..modify_boot(r|
0000ac10  25 2c 22 69 6e 73 65 72  74 22 2c a3 29 0d 95 4c  |%,"insert",.)..L|
0000ac20  05 7f 0d 95 74 05 cb 0d  95 7e 07 ed 72 25 0d 95  |....t....~..r%..|
0000ac30  88 05 e1 0d 95 ce 26 dd  f2 6d 6f 64 69 66 79 5f  |......&..modify_|
0000ac40  62 6f 6f 74 28 6e 74 72  79 25 2c 6d 6f 64 65 24  |boot(ntry%,mode$|
0000ac50  2c 6e 6f 6d 65 73 73 25  29 0d 96 00 05 ea 0d 96  |,nomess%).......|
0000ac60  14 11 c8 8e 45 64 69 74  5f 54 79 70 65 24 ca 0d  |....Edit_Type$..|
0000ac70  96 1e 0e c9 22 61 75 74  6f 72 75 6e 22 0d 96 28  |...."autorun"..(|
0000ac80  34 f2 6d 6f 64 69 66 79  5f 62 6f 6f 74 5f 64 69  |4.modify_boot_di|
0000ac90  72 28 6e 74 72 79 25 2c  22 3c 42 6f 6f 74 24 54  |r(ntry%,"<Boot$T|
0000aca0  6f 42 65 54 61 73 6b 73  3e 22 2c 6d 6f 64 65 24  |oBeTasks>",mode$|
0000acb0  29 0d 96 32 10 c9 22 72  65 73 6f 75 72 63 65 73  |)..2.."resources|
0000acc0  22 0d 96 3c 33 f2 6d 6f  64 69 66 79 5f 62 6f 6f  |"..<3.modify_boo|
0000acd0  74 5f 66 69 6c 65 28 4f  64 61 74 24 28 6e 74 72  |t_file(Odat$(ntr|
0000ace0  79 25 2c 35 29 2c 6d 6f  64 65 24 2c 6e 6f 6d 65  |y%,5),mode$,nome|
0000acf0  73 73 25 29 0d 96 46 0b  c9 22 62 6f 6f 74 22 0d  |ss%)..F.."boot".|
0000ad00  96 50 33 f2 6d 6f 64 69  66 79 5f 62 6f 6f 74 5f  |.P3.modify_boot_|
0000ad10  66 69 6c 65 28 4f 64 61  74 24 28 6e 74 72 79 25  |file(Odat$(ntry%|
0000ad20  2c 35 29 2c 6d 6f 64 65  24 2c 6e 6f 6d 65 73 73  |,5),mode$,nomess|
0000ad30  25 29 0d 96 5a 0e c9 22  70 72 65 64 65 73 6b 22  |%)..Z.."predesk"|
0000ad40  0d 96 64 35 f2 6d 6f 64  69 66 79 5f 62 6f 6f 74  |..d5.modify_boot|
0000ad50  5f 64 69 72 28 6e 74 72  79 25 2c 22 3c 42 6f 6f  |_dir(ntry%,"<Boo|
0000ad60  74 24 54 6f 42 65 4c 6f  61 64 65 64 3e 22 2c 6d  |t$ToBeLoaded>",m|
0000ad70  6f 64 65 24 29 0d 96 6e  05 cb 0d 96 78 05 e1 0d  |ode$)..n....x...|
0000ad80  96 d2 1b dd f2 6d 61 6b  65 5f 61 6c 69 61 73 28  |.....make_alias(|
0000ad90  70 61 74 68 6e 61 6d 65  24 29 0d 97 0e 0a ea 66  |pathname$).....f|
0000ada0  25 2c 6c 25 0d 97 22 21  c8 99 22 4f 53 5f 46 69  |%,l%.."!.."OS_Fi|
0000adb0  6c 65 22 2c 38 2c 70 61  74 68 6e 61 6d 65 24 2c  |le",8,pathname$,|
0000adc0  30 2c 30 2c 30 0d 97 2c  2d c8 99 22 4f 53 5f 46  |0,0,0..,-.."OS_F|
0000add0  69 6c 65 22 2c 31 31 2c  70 61 74 68 6e 61 6d 65  |ile",11,pathname|
0000ade0  24 2b 22 2e 21 52 75 6e  22 2c 26 46 45 42 2c 30  |$+".!Run",&FEB,0|
0000adf0  2c 30 0d 97 36 2e c8 99  22 4f 53 5f 46 69 6c 65  |,0..6..."OS_File|
0000ae00  22 2c 31 31 2c 70 61 74  68 6e 61 6d 65 24 2b 22  |",11,pathname$+"|
0000ae10  2e 21 42 6f 6f 74 22 2c  26 46 45 42 2c 30 2c 30  |.!Boot",&FEB,0,0|
0000ae20  0d 97 40 2e c8 99 22 4f  53 5f 46 69 6c 65 22 2c  |..@..."OS_File",|
0000ae30  31 31 2c 70 61 74 68 6e  61 6d 65 24 2b 22 2e 21  |11,pathname$+".!|
0000ae40  48 65 6c 70 22 2c 26 46  46 46 2c 30 2c 30 0d 97  |Help",&FFF,0,0..|
0000ae50  72 25 e7 c0 53 6f 75 72  63 65 24 2c 31 29 3d 22  |r%..Source$,1)="|
0000ae60  3c 22 80 c2 53 6f 75 72  63 65 24 2c 31 29 3d 22  |<"..Source$,1)="|
0000ae70  3e 22 8c 0d 97 7c 41 c8  99 22 4f 53 5f 52 65 61  |>"...|A.."OS_Rea|
0000ae80  64 56 61 72 56 61 6c 22  2c c1 53 6f 75 72 63 65  |dVarVal",.Source|
0000ae90  24 2c 32 2c a9 28 53 6f  75 72 63 65 24 29 2d 32  |$,2,.(Source$)-2|
0000aea0  29 2c 42 75 66 31 25 2c  31 32 38 2c 30 2c 30 b8  |),Buf1%,128,0,0.|
0000aeb0  2c 2c 6c 25 0d 97 86 0f  42 75 66 31 25 3f 6c 25  |,,l%....Buf1%?l%|
0000aec0  3d 31 33 0d 97 90 12 53  6f 75 72 63 65 24 3d 24  |=13....Source$=$|
0000aed0  42 75 66 31 25 0d 97 9a  05 cd 0d 97 c2 1b 66 25  |Buf1%.........f%|
0000aee0  3d ad 28 70 61 74 68 6e  61 6d 65 24 2b 22 2e 21  |=.(pathname$+".!|
0000aef0  52 75 6e 22 29 0d 97 cc  1d d5 23 66 25 2c 22 46  |Run").....#f%,"F|
0000af00  69 6c 65 72 5f 52 75 6e  20 22 2b 53 6f 75 72 63  |iler_Run "+Sourc|
0000af10  65 24 0d 97 d6 08 d9 23  66 25 0d 97 fe 1c 66 25  |e$.....#f%....f%|
0000af20  3d ad 28 70 61 74 68 6e  61 6d 65 24 2b 22 2e 21  |=.(pathname$+".!|
0000af30  42 6f 6f 74 22 29 0d 98  08 4d d5 23 66 25 2c 22  |Boot")...M.#f%,"|
0000af40  49 66 54 68 65 72 65 20  22 2b 53 6f 75 72 63 65  |IfThere "+Source|
0000af50  24 2b 22 2e 21 53 70 72  69 74 65 73 20 54 68 65  |$+".!Sprites The|
0000af60  6e 20 49 63 6f 6e 53 70  72 69 74 65 73 20 22 2b  |n IconSprites "+|
0000af70  53 6f 75 72 63 65 24 2b  22 2e 21 53 70 72 69 74  |Source$+".!Sprit|
0000af80  65 73 22 0d 98 12 45 d5  23 66 25 2c 22 49 66 54  |es"...E.#f%,"IfT|
0000af90  68 65 72 65 20 22 2b 53  6f 75 72 63 65 24 2b 22  |here "+Source$+"|
0000afa0  2e 21 42 6f 6f 74 20 54  68 65 6e 20 46 69 6c 65  |.!Boot Then File|
0000afb0  72 5f 52 75 6e 20 22 2b  53 6f 75 72 63 65 24 2b  |r_Run "+Source$+|
0000afc0  22 2e 21 42 6f 6f 74 22  0d 98 1c 08 d9 23 66 25  |".!Boot".....#f%|
0000afd0  0d 98 44 1c 66 25 3d ad  28 70 61 74 68 6e 61 6d  |..D.f%=.(pathnam|
0000afe0  65 24 2b 22 2e 21 48 65  6c 70 22 29 0d 98 4e 2e  |e$+".!Help")..N.|
0000aff0  d5 23 66 25 2c 22 41 6c  69 61 73 20 66 6f 72 20  |.#f%,"Alias for |
0000b000  61 70 70 6c 69 63 61 74  69 6f 6e 20 22 2b 41 70  |application "+Ap|
0000b010  70 6c 69 63 61 74 69 6f  6e 24 0d 98 58 32 d5 23  |plication$..X2.#|
0000b020  66 25 2c 22 57 68 69 63  68 20 63 61 6e 20 62 65  |f%,"Which can be|
0000b030  20 66 6f 75 6e 64 20 61  74 20 6c 6f 63 61 74 69  | found at locati|
0000b040  6f 6e 20 22 2b 53 6f 75  72 63 65 24 0d 98 62 08  |on "+Source$..b.|
0000b050  d9 23 66 25 0d 98 6c 05  e1 0d 98 b2 28 dd f2 6d  |.#f%..l.....(..m|
0000b060  6f 64 69 66 79 5f 62 6f  6f 74 5f 64 69 72 28 6e  |odify_boot_dir(n|
0000b070  74 72 79 25 2c 64 65 73  74 24 2c 6d 6f 64 65 24  |try%,dest$,mode$|
0000b080  29 0d 98 da 0c c8 8e 6d  6f 64 65 24 ca 0d 98 e4  |)......mode$....|
0000b090  0d c9 22 69 6e 73 65 72  74 22 0d 98 ee 1b e7 4f  |.."insert".....O|
0000b0a0  64 61 74 24 28 6e 74 72  79 25 2c 33 29 3d 22 32  |dat$(ntry%,3)="2|
0000b0b0  30 30 30 22 8c 0d 99 16  1a 53 6f 75 72 63 65 24  |000".....Source$|
0000b0c0  3d 4f 64 61 74 24 28 6e  74 72 79 25 2c 35 29 0d  |=Odat$(ntry%,5).|
0000b0d0  99 20 1f 41 70 70 6c 69  63 61 74 69 6f 6e 24 3d  |. .Application$=|
0000b0e0  4f 64 61 74 24 28 6e 74  72 79 25 2c 31 29 0d 99  |Odat$(ntry%,1)..|
0000b0f0  2a 29 f2 6d 61 6b 65 5f  61 6c 69 61 73 28 64 65  |*).make_alias(de|
0000b100  73 74 24 2b 22 2e 22 2b  4f 64 61 74 24 28 6e 74  |st$+"."+Odat$(nt|
0000b110  72 79 25 2c 31 29 29 0d  99 34 05 cc 0d 99 5c 35  |ry%,1))..4....\5|
0000b120  e7 c0 4f 64 61 74 24 28  6e 74 72 79 25 2c 35 29  |..Odat$(ntry%,5)|
0000b130  2c 32 35 29 3d 22 3c 57  69 6d 70 24 53 63 72 61  |,25)="<Wimp$Scra|
0000b140  70 44 69 72 3e 2e 42 6f  6f 74 70 6c 75 73 2e 22  |pDir>.Bootplus."|
0000b150  8c 0d 99 8e 47 ff 28 22  2a 43 4f 50 59 20 22 2b  |....G.("*COPY "+|
0000b160  4f 64 61 74 24 28 6e 74  72 79 25 2c 35 29 2b 22  |Odat$(ntry%,5)+"|
0000b170  20 22 2b 64 65 73 74 24  2b 22 2e 22 2b 4f 64 61  | "+dest$+"."+Oda|
0000b180  74 24 28 6e 74 72 79 25  2c 31 29 2b 22 20 7e 56  |t$(ntry%,1)+" ~V|
0000b190  7e 50 7e 43 46 44 22 29  0d 99 98 05 cc 0d 99 c0  |~P~CFD")........|
0000b1a0  45 ff 28 22 2a 43 4f 50  59 20 22 2b 4f 64 61 74  |E.("*COPY "+Odat|
0000b1b0  24 28 6e 74 72 79 25 2c  35 29 2b 22 20 22 2b 64  |$(ntry%,5)+" "+d|
0000b1c0  65 73 74 24 2b 22 2e 22  2b 4f 64 61 74 24 28 6e  |est$+"."+Odat$(n|
0000b1d0  74 72 79 25 2c 31 29 2b  22 20 7e 56 7e 50 7e 43  |try%,1)+" ~V~P~C|
0000b1e0  22 29 0d 99 ca 05 cd 0d  99 d4 05 cd 0d 99 de 0d  |")..............|
0000b1f0  c9 22 72 65 6d 6f 76 65  22 0d 9a 06 28 ff 28 22  |."remove"...(.("|
0000b200  2a 57 49 50 45 20 22 2b  4f 64 61 74 24 28 6e 74  |*WIPE "+Odat$(nt|
0000b210  72 79 25 2c 35 29 2b 22  20 7e 56 46 7e 43 52 22  |ry%,5)+" ~VF~CR"|
0000b220  29 0d 9a 10 05 cb 0d 9a  42 34 2a 41 43 43 45 53  |).......B4*ACCES|
0000b230  53 20 3c 42 6f 6f 74 70  6c 75 73 24 64 69 72 3e  |S <Bootplus$dir>|
0000b240  2e 52 65 73 6f 75 72 63  65 73 2e 63 68 61 6e 67  |.Resources.chang|
0000b250  65 6c 69 73 74 20 57 52  2f 52 0d 9a 4c 2f 66 25  |elist WR/R..L/f%|
0000b260  3d 8e 28 22 3c 42 6f 6f  74 70 6c 75 73 24 64 69  |=.("<Bootplus$di|
0000b270  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 63 68 61  |r>.Resources.cha|
0000b280  6e 67 65 6c 69 73 74 22  29 0d 9a 56 2e 67 25 3d  |ngelist")..V.g%=|
0000b290  ae 28 22 3c 42 6f 6f 74  70 6c 75 73 24 64 69 72  |.("<Bootplus$dir|
0000b2a0  3e 2e 52 65 73 6f 75 72  63 65 73 2e 63 68 61 6e  |>.Resources.chan|
0000b2b0  67 65 6e 65 77 22 29 0d  9a 60 09 58 25 3d 31 30  |genew")..`.X%=10|
0000b2c0  0d 9a 6a 05 f5 0d 9a 74  0b 61 24 3d be 23 66 25  |..j....t.a$=.#f%|
0000b2d0  0d 9a 7e 09 58 25 2b 3d  34 0d 9a 88 2c e7 6d 6f  |..~.X%+=4...,.mo|
0000b2e0  64 65 24 3d 22 69 6e 73  65 72 74 22 84 a7 61 24  |de$="insert"..a$|
0000b2f0  2c 4f 64 61 74 24 28 6e  74 72 79 25 2c 35 29 2c  |,Odat$(ntry%,5),|
0000b300  31 29 3d 30 8c 0d 9a 92  0b d5 23 67 25 2c 61 24  |1)=0......#g%,a$|
0000b310  0d 9a 9c 05 cd 0d 9a a6  09 fd c5 23 66 25 0d 9a  |...........#f%..|
0000b320  b0 14 e7 6d 6f 64 65 24  3d 22 69 6e 73 65 72 74  |...mode$="insert|
0000b330  22 8c 0d 9a ba 34 d5 23  67 25 2c 22 2a 57 49 50  |"....4.#g%,"*WIP|
0000b340  45 20 22 2b 64 65 73 74  24 2b 22 2e 22 2b 4f 64  |E "+dest$+"."+Od|
0000b350  61 74 24 28 6e 74 72 79  25 2c 31 29 2b 22 20 7e  |at$(ntry%,1)+" ~|
0000b360  56 46 7e 43 52 22 0d 9a  c4 05 cd 0d 9a ce 08 d9  |VF~CR"..........|
0000b370  23 66 25 0d 9a d8 08 d9  23 67 25 0d 9a e2 32 2a  |#f%.....#g%...2*|
0000b380  57 49 50 45 20 3c 42 6f  6f 74 70 6c 75 73 24 64  |WIPE <Bootplus$d|
0000b390  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 63 68  |ir>.Resources.ch|
0000b3a0  61 6e 67 65 6c 69 73 74  20 7e 43 7e 56 0d 9a ec  |angelist ~C~V...|
0000b3b0  52 2a 52 45 4e 41 4d 45  20 3c 42 6f 6f 74 70 6c  |R*RENAME <Bootpl|
0000b3c0  75 73 24 64 69 72 3e 2e  52 65 73 6f 75 72 63 65  |us$dir>.Resource|
0000b3d0  73 2e 63 68 61 6e 67 65  6e 65 77 20 3c 42 6f 6f  |s.changenew <Boo|
0000b3e0  74 70 6c 75 73 24 64 69  72 3e 2e 52 65 73 6f 75  |tplus$dir>.Resou|
0000b3f0  72 63 65 73 2e 63 68 61  6e 67 65 6c 69 73 74 0d  |rces.changelist.|
0000b400  9a f6 35 2a 53 45 54 54  59 50 45 20 3c 42 6f 6f  |..5*SETTYPE <Boo|
0000b410  74 70 6c 75 73 24 64 69  72 3e 2e 52 65 73 6f 75  |tplus$dir>.Resou|
0000b420  72 63 65 73 2e 63 68 61  6e 67 65 6c 69 73 74 20  |rces.changelist |
0000b430  26 46 45 42 0d 9b 00 32  2a 41 43 43 45 53 53 20  |&FEB...2*ACCESS |
0000b440  3c 42 6f 6f 74 70 6c 75  73 24 64 69 72 3e 2e 52  |<Bootplus$dir>.R|
0000b450  65 73 6f 75 72 63 65 73  2e 63 68 61 6e 67 65 6c  |esources.changel|
0000b460  69 73 74 20 4c 2f 0d 9b  0a 05 e1 0d 9b 46 2a dd  |ist L/.......F*.|
0000b470  f2 6d 6f 64 69 66 79 5f  62 6f 6f 74 5f 66 69 6c  |.modify_boot_fil|
0000b480  65 28 61 70 70 24 2c 6d  6f 64 65 24 2c 6e 6f 6d  |e(app$,mode$,nom|
0000b490  65 73 73 25 29 0d 9b 96  36 ea 66 31 25 2c 66 32  |ess%)...6.f1%,f2|
0000b4a0  25 2c 61 6c 69 6e 65 24  2c 62 6f 6f 74 6e 61 6d  |%,aline$,bootnam|
0000b4b0  65 24 2c 66 74 79 70 25  2c 6f 6c 64 6e 61 6d 65  |e$,ftyp%,oldname|
0000b4c0  24 2c 74 65 6d 70 6e 61  6d 65 24 0d 9b a0 43 ea  |$,tempname$...C.|
0000b4d0  66 6f 75 6e 64 25 2c 64  6f 6e 65 25 2c 66 74 79  |found%,done%,fty|
0000b4e0  70 25 2c 62 6f 6f 74 6e  61 6d 65 24 2c 74 65 6d  |p%,bootname$,tem|
0000b4f0  70 6e 61 6d 65 24 2c 6f  6c 64 6e 61 6d 65 24 2c  |pname$,oldname$,|
0000b500  66 31 25 2c 66 32 25 2c  61 6c 69 6e 65 24 0d 9b  |f1%,f2%,aline$..|
0000b510  c8 0c 66 6f 75 6e 64 25  3d a3 0d 9b d2 0b 64 6f  |..found%=.....do|
0000b520  6e 65 25 3d a3 0d 9b dc  0c 73 74 61 72 74 25 3d  |ne%=.....start%=|
0000b530  a3 0d 9b e6 11 c8 8e 45  64 69 74 5f 54 79 70 65  |.......Edit_Type|
0000b540  24 ca 0d 9b f0 10 c9 22  72 65 73 6f 75 72 63 65  |$......"resource|
0000b550  73 22 0d 9b fa 0e 66 74  79 70 25 3d 26 66 65 62  |s"....ftyp%=&feb|
0000b560  0d 9c 04 2f 62 6f 6f 74  6e 61 6d 65 24 3d 22 3c  |.../bootname$="<|
0000b570  63 68 6f 69 63 65 73 24  77 72 69 74 65 3e 2e 62  |choices$write>.b|
0000b580  6f 6f 74 2e 50 72 65 44  65 73 6b 74 6f 70 22 0d  |oot.PreDesktop".|
0000b590  9c 0e 2f 74 65 6d 70 6e  61 6d 65 24 3d 22 3c 63  |../tempname$="<c|
0000b5a0  68 6f 69 63 65 73 24 77  72 69 74 65 3e 2e 62 6f  |hoices$write>.bo|
0000b5b0  6f 74 2e 50 72 65 44 65  73 6b 6e 65 77 22 0d 9c  |ot.PreDesknew"..|
0000b5c0  18 2e 6f 6c 64 6e 61 6d  65 24 3d 22 3c 63 68 6f  |..oldname$="<cho|
0000b5d0  69 63 65 73 24 77 72 69  74 65 3e 2e 62 6f 6f 74  |ices$write>.boot|
0000b5e0  2e 50 72 65 44 65 73 6b  6f 6c 64 22 0d 9c 22 0b  |.PreDeskold"..".|
0000b5f0  c9 22 62 6f 6f 74 22 0d  9c 2c 0e 66 74 79 70 25  |."boot"..,.ftyp%|
0000b600  3d 26 66 65 61 0d 9c 36  2c 62 6f 6f 74 6e 61 6d  |=&fea..6,bootnam|
0000b610  65 24 3d 22 3c 63 68 6f  69 63 65 73 24 77 72 69  |e$="<choices$wri|
0000b620  74 65 3e 2e 62 6f 6f 74  2e 44 65 73 6b 74 6f 70  |te>.boot.Desktop|
0000b630  22 0d 9c 40 2f 74 65 6d  70 6e 61 6d 65 24 3d 22  |"..@/tempname$="|
0000b640  3c 63 68 6f 69 63 65 73  24 77 72 69 74 65 3e 2e  |<choices$write>.|
0000b650  62 6f 6f 74 2e 44 65 73  6b 74 6f 70 6e 65 77 22  |boot.Desktopnew"|
0000b660  0d 9c 4a 2e 6f 6c 64 6e  61 6d 65 24 3d 22 3c 63  |..J.oldname$="<c|
0000b670  68 6f 69 63 65 73 24 77  72 69 74 65 3e 2e 62 6f  |hoices$write>.bo|
0000b680  6f 74 2e 44 65 73 6b 74  6f 70 6f 6c 64 22 0d 9c  |ot.Desktopold"..|
0000b690  54 05 cb 0d 9c 7c 1b c8  99 22 4f 53 5f 46 69 6c  |T....|..."OS_Fil|
0000b6a0  65 22 2c 36 2c 74 65 6d  70 6e 61 6d 65 24 0d 9c  |e",6,tempname$..|
0000b6b0  86 22 c8 99 22 4f 53 5f  46 69 6c 65 22 2c 31 31  |.".."OS_File",11|
0000b6c0  2c 74 65 6d 70 6e 61 6d  65 24 2c 66 74 79 70 25  |,tempname$,ftyp%|
0000b6d0  0d 9c 90 14 66 31 25 3d  ad 28 74 65 6d 70 6e 61  |....f1%=.(tempna|
0000b6e0  6d 65 24 29 0d 9c 9a 14  66 32 25 3d 8e 28 62 6f  |me$)....f2%=.(bo|
0000b6f0  6f 74 6e 61 6d 65 24 29  0d 9c a4 05 f5 0d 9c ae  |otname$)........|
0000b700  10 61 6c 69 6e 65 24 3d  be 23 66 32 25 0d 9c b8  |.aline$=.#f2%...|
0000b710  0d e7 ac 73 74 61 72 74  25 8c 0d 9c e0 5f 73 74  |...start%...._st|
0000b720  61 72 74 25 3d 28 a7 61  6c 69 6e 65 24 2c 22 7c  |art%=(.aline$,"||
0000b730  53 74 61 72 74 22 29 3e  30 80 a7 61 6c 69 6e 65  |Start")>0..aline|
0000b740  24 2c 22 4d 61 72 73 22  29 3e 30 80 a7 61 6c 69  |$,"Mars")>0..ali|
0000b750  6e 65 24 2c 22 21 42 6f  6f 74 70 6c 75 73 22 29  |ne$,"!Bootplus")|
0000b760  3e 30 80 a7 61 6c 69 6e  65 24 2c 45 64 69 74 5f  |>0..aline$,Edit_|
0000b770  54 79 70 65 24 29 3e 30  29 0d 9c ea 10 d5 23 66  |Type$)>0).....#f|
0000b780  31 25 2c 61 6c 69 6e 65  24 0d 9c f4 05 cc 0d 9d  |1%,aline$.......|
0000b790  1c 0c c8 8e 6d 6f 64 65  24 ca 0d 9d 26 0d c9 22  |....mode$...&.."|
0000b7a0  72 65 6d 6f 76 65 22 0d  9d 30 44 e7 28 61 70 70  |remove"..0D.(app|
0000b7b0  24 3d 22 61 6c 6c 22 80  a7 61 6c 69 6e 65 24 2c  |$="all"..aline$,|
0000b7c0  22 2e 21 22 29 3e 30 80  20 73 74 61 72 74 25 29  |".!")>0. start%)|
0000b7d0  84 28 a7 61 6c 69 6e 65  24 2c 61 70 70 24 29 3e  |.(.aline$,app$)>|
0000b7e0  30 80 20 73 74 61 72 74  25 29 8c 0d 9d 58 0c 66  |0. start%)...X.f|
0000b7f0  6f 75 6e 64 25 3d b9 0d  9d 62 0b 64 6f 6e 65 25  |ound%=...b.done%|
0000b800  3d b9 0d 9d 6c 05 cc 0d  9d 94 10 d5 23 66 31 25  |=...l.......#f1%|
0000b810  2c 61 6c 69 6e 65 24 0d  9d 9e 05 cd 0d 9d a8 0d  |,aline$.........|
0000b820  c9 22 69 6e 73 65 72 74  22 0d 9d b2 1f e7 28 a7  |."insert".....(.|
0000b830  61 6c 69 6e 65 24 2c 61  70 70 24 29 3e 30 29 80  |aline$,app$)>0).|
0000b840  20 73 74 61 72 74 25 8c  0d 9d bc 0c 66 6f 75 6e  | start%.....foun|
0000b850  64 25 3d b9 0d 9d c6 34  e7 ac 6e 6f 6d 65 73 73  |d%=....4..nomess|
0000b860  25 8c f2 65 72 72 6f 72  5f 6d 65 73 73 61 67 65  |%..error_message|
0000b870  28 22 45 4d 32 35 22 2c  61 70 70 24 2c 22 22 2c  |("EM25",app$,"",|
0000b880  22 22 2c 30 2c 4b 25 29  0d 9d d0 05 cd 0d 9d da  |"",0,K%)........|
0000b890  2b e7 28 a7 61 6c 69 6e  65 24 2c 22 7c 45 6e 64  |+.(.aline$,"|End|
0000b8a0  22 29 3e 30 29 80 20 73  74 61 72 74 25 80 28 ac  |")>0). start%.(.|
0000b8b0  66 6f 75 6e 64 25 29 8c  0d 9e 02 11 c8 8e 45 64  |found%).......Ed|
0000b8c0  69 74 5f 54 79 70 65 24  ca 0d 9e 0c 10 c9 22 72  |it_Type$......"r|
0000b8d0  65 73 6f 75 72 63 65 73  22 0d 9e 16 18 d5 23 66  |esources".....#f|
0000b8e0  31 25 2c 22 41 64 64 41  70 70 20 22 2b 61 70 70  |1%,"AddApp "+app|
0000b8f0  24 0d 9e 20 0b c9 22 62  6f 6f 74 22 0d 9e 2a 1c  |$.. .."boot"..*.|
0000b900  d5 23 66 31 25 2c 22 46  69 6c 65 72 5f 42 6f 6f  |.#f1%,"Filer_Boo|
0000b910  74 20 22 2b 61 70 70 24  0d 9e 34 05 cb 0d 9e 3e  |t "+app$..4....>|
0000b920  0b 64 6f 6e 65 25 3d b9  0d 9e 48 05 cd 0d 9e 52  |.done%=...H....R|
0000b930  10 d5 23 66 31 25 2c 61  6c 69 6e 65 24 0d 9e 5c  |..#f1%,aline$..\|
0000b940  05 cb 0d 9e 66 05 cd 0d  9e 70 0a fd c5 23 66 32  |....f....p...#f2|
0000b950  25 0d 9e 7a 20 e7 28 ac  73 74 61 72 74 25 29 80  |%..z .(.start%).|
0000b960  28 6d 6f 64 65 24 3d 22  69 6e 73 65 72 74 22 29  |(mode$="insert")|
0000b970  8c 0d 9e a2 11 c8 8e 45  64 69 74 5f 54 79 70 65  |.......Edit_Type|
0000b980  24 ca 0d 9e ac 10 c9 22  72 65 73 6f 75 72 63 65  |$......"resource|
0000b990  73 22 0d 9e b6 0c d5 23  66 31 25 2c 22 22 0d 9e  |s".....#f1%,""..|
0000b9a0  c0 41 d5 23 66 31 25 2c  22 7c 53 74 61 72 74 20  |.A.#f1%,"|Start |
0000b9b0  4d 61 72 73 20 21 42 6f  6f 74 70 6c 75 73 20 22  |Mars !Bootplus "|
0000b9c0  2b 42 6f 6f 74 70 6c 75  73 5f 56 65 72 73 69 6f  |+Bootplus_Versio|
0000b9d0  6e 24 2b 22 20 72 65 73  6f 75 72 63 65 73 22 0d  |n$+" resources".|
0000b9e0  9e ca 24 d5 23 66 31 25  2c 22 7c 20 2d 2d 2d 2d  |..$.#f1%,"| ----|
0000b9f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
0000ba00  2d 2d 22 0d 9e d4 0d d5  23 66 31 25 2c 22 7c 22  |--".....#f1%,"|"|
0000ba10  0d 9e de 1d d5 23 66 31  25 2c 22 7c 20 20 20 20  |.....#f1%,"|    |
0000ba20  20 20 20 72 65 73 6f 75  72 63 65 73 22 0d 9e e8  |   resources"...|
0000ba30  0d d5 23 66 31 25 2c 22  7c 22 0d 9e f2 24 d5 23  |..#f1%,"|"...$.#|
0000ba40  66 31 25 2c 22 7c 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |f1%,"| ---------|
0000ba50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 22 0d 9e  |-------------"..|
0000ba60  fc 37 d5 23 66 31 25 2c  22 7c 20 49 6e 73 65 72  |.7.#f1%,"| Inser|
0000ba70  74 20 52 65 73 6f 75 72  63 65 73 20 61 70 70 73  |t Resources apps|
0000ba80  20 64 69 72 65 63 74 6f  72 79 20 61 64 64 69 74  | directory addit|
0000ba90  69 6f 6e 73 22 0d 9f 06  22 d5 23 66 31 25 2c 22  |ions"...".#f1%,"|
0000baa0  7c 20 49 4e 73 65 72 74  65 64 20 62 79 20 42 6f  || INserted by Bo|
0000bab0  6f 74 70 6c 75 73 22 0d  9f 10 0d d5 23 66 31 25  |otplus".....#f1%|
0000bac0  2c 22 7c 22 0d 9f 1a 18  d5 23 66 31 25 2c 22 41  |,"|".....#f1%,"A|
0000bad0  64 64 41 70 70 20 22 2b  61 70 70 24 0d 9f 24 10  |ddApp "+app$..$.|
0000bae0  d5 23 66 31 25 2c 22 7c  45 6e 64 22 0d 9f 2e 0b  |.#f1%,"|End"....|
0000baf0  c9 22 62 6f 6f 74 22 0d  9f 38 0c d5 23 66 31 25  |."boot"..8..#f1%|
0000bb00  2c 22 22 0d 9f 42 3c d5  23 66 31 25 2c 22 7c 53  |,""..B<.#f1%,"|S|
0000bb10  74 61 72 74 20 4d 61 72  73 20 21 42 6f 6f 74 70  |tart Mars !Bootp|
0000bb20  6c 75 73 20 22 2b 42 6f  6f 74 70 6c 75 73 5f 56  |lus "+Bootplus_V|
0000bb30  65 72 73 69 6f 6e 24 2b  22 20 62 6f 6f 74 22 0d  |ersion$+" boot".|
0000bb40  9f 4c 24 d5 23 66 31 25  2c 22 7c 20 2d 2d 2d 2d  |.L$.#f1%,"| ----|
0000bb50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
0000bb60  2d 2d 22 0d 9f 56 0d d5  23 66 31 25 2c 22 7c 22  |--"..V..#f1%,"|"|
0000bb70  0d 9f 60 18 d5 23 66 31  25 2c 22 7c 20 20 20 20  |..`..#f1%,"|    |
0000bb80  20 20 20 62 6f 6f 74 22  0d 9f 6a 0d d5 23 66 31  |   boot"..j..#f1|
0000bb90  25 2c 22 7c 22 0d 9f 74  24 d5 23 66 31 25 2c 22  |%,"|"..t$.#f1%,"|
0000bba0  7c 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  || --------------|
0000bbb0  2d 2d 2d 2d 2d 2d 2d 2d  22 0d 9f 7e 21 d5 23 66  |--------"..~!.#f|
0000bbc0  31 25 2c 22 7c 20 42 6f  6f 74 65 64 20 61 70 70  |1%,"| Booted app|
0000bbd0  6c 69 63 61 74 69 6f 6e  73 22 0d 9f 88 22 d5 23  |lications"...".#|
0000bbe0  66 31 25 2c 22 7c 20 49  6e 73 65 72 74 65 64 20  |f1%,"| Inserted |
0000bbf0  62 79 20 42 6f 6f 74 70  6c 75 73 22 0d 9f 92 0d  |by Bootplus"....|
0000bc00  d5 23 66 31 25 2c 22 7c  22 0d 9f 9c 1c d5 23 66  |.#f1%,"|".....#f|
0000bc10  31 25 2c 22 46 69 6c 65  72 5f 42 6f 6f 74 20 22  |1%,"Filer_Boot "|
0000bc20  2b 61 70 70 24 0d 9f a6  10 d5 23 66 31 25 2c 22  |+app$.....#f1%,"|
0000bc30  7c 45 6e 64 22 0d 9f b0  05 cb 0d 9f ba 0b 64 6f  ||End".........do|
0000bc40  6e 65 25 3d b9 0d 9f c4  05 cd 0d 9f ce 09 d9 23  |ne%=...........#|
0000bc50  66 31 25 0d 9f d8 09 d9  23 66 32 25 0d a0 00 0b  |f1%.....#f2%....|
0000bc60  e7 64 6f 6e 65 25 8c 0d  a0 0a 1a c8 99 22 4f 53  |.done%......."OS|
0000bc70  5f 46 69 6c 65 22 2c 36  2c 6f 6c 64 6e 61 6d 65  |_File",6,oldname|
0000bc80  24 0d a0 14 2a c8 99 22  4f 53 5f 46 53 43 6f 6e  |$...*.."OS_FSCon|
0000bc90  74 72 6f 6c 22 2c 32 35  2c 62 6f 6f 74 6e 61 6d  |trol",25,bootnam|
0000bca0  65 24 2c 6f 6c 64 6e 61  6d 65 24 0d a0 1e 2b c8  |e$,oldname$...+.|
0000bcb0  99 22 4f 53 5f 46 53 43  6f 6e 74 72 6f 6c 22 2c  |."OS_FSControl",|
0000bcc0  32 35 2c 74 65 6d 70 6e  61 6d 65 24 2c 62 6f 6f  |25,tempname$,boo|
0000bcd0  74 6e 61 6d 65 24 0d a0  28 05 cc 0d a0 50 1b c8  |tname$..(....P..|
0000bce0  99 22 4f 53 5f 46 69 6c  65 22 2c 36 2c 74 65 6d  |."OS_File",6,tem|
0000bcf0  70 6e 61 6d 65 24 0d a0  5a 05 cd 0d a0 64 05 e1  |pname$..Z....d..|
0000bd00  0d a0 aa 11 dd f2 63 6c  65 61 72 5f 65 64 69 74  |......clear_edit|
0000bd10  73 0d a0 d2 12 ea 66 31  25 2c 66 32 25 2c 61 24  |s.....f1%,f2%,a$|
0000bd20  2c 66 25 0d a1 04 33 c8  99 22 4f 53 5f 46 69 6c  |,f%...3.."OS_Fil|
0000bd30  65 22 2c 36 2c 22 3c 63  68 6f 69 63 65 73 24 77  |e",6,"<choices$w|
0000bd40  72 69 74 65 3e 2e 62 6f  6f 74 2e 50 72 65 44 65  |rite>.boot.PreDe|
0000bd50  73 6b 4e 65 77 22 0d a1  0e 39 c8 99 22 4f 53 5f  |skNew"...9.."OS_|
0000bd60  46 69 6c 65 22 2c 31 31  2c 22 3c 63 68 6f 69 63  |File",11,"<choic|
0000bd70  65 73 24 77 72 69 74 65  3e 2e 62 6f 6f 74 2e 50  |es$write>.boot.P|
0000bd80  72 65 44 65 73 6b 4e 65  77 22 2c 26 46 45 42 0d  |reDeskNew",&FEB.|
0000bd90  a1 18 2c 66 31 25 3d ad  28 22 3c 63 68 6f 69 63  |..,f1%=.("<choic|
0000bda0  65 73 24 77 72 69 74 65  3e 2e 62 6f 6f 74 2e 50  |es$write>.boot.P|
0000bdb0  72 65 44 65 73 6b 4e 65  77 22 29 0d a1 22 2c 66  |reDeskNew")..",f|
0000bdc0  32 25 3d 8e 28 22 3c 63  68 6f 69 63 65 73 24 77  |2%=.("<choices$w|
0000bdd0  72 69 74 65 3e 2e 62 6f  6f 74 2e 50 72 65 44 65  |rite>.boot.PreDe|
0000bde0  73 6b 74 6f 70 22 29 0d  a1 2c 05 f5 0d a1 36 0c  |sktop")..,....6.|
0000bdf0  61 24 3d be 23 66 32 25  0d a1 40 3c e7 28 a7 61  |a$=.#f2%..@<.(.a|
0000be00  24 2c 22 7c 53 74 61 72  74 22 29 3e 30 29 80 28  |$,"|Start")>0).(|
0000be10  a7 61 24 2c 22 4d 61 72  73 22 29 3e 30 29 80 28  |.a$,"Mars")>0).(|
0000be20  a7 61 24 2c 22 21 42 6f  6f 74 70 6c 75 73 22 29  |.a$,"!Bootplus")|
0000be30  3e 30 29 8c 0d a1 41 05  f5 0d a1 54 0c 61 24 3d  |>0)...A....T.a$=|
0000be40  be 23 66 32 25 0d a1 5e  0e fd 61 24 3d 22 7c 45  |.#f2%..^..a$="|E|
0000be50  6e 64 22 0d a1 68 05 cc  0d a1 72 0c d5 23 66 31  |nd"..h....r..#f1|
0000be60  25 2c 61 24 0d a1 7c 05  cd 0d a1 86 0a fd c5 23  |%,a$..|........#|
0000be70  66 32 25 0d a1 90 09 d9  23 66 31 25 0d a1 9a 09  |f2%.....#f1%....|
0000be80  d9 23 66 32 25 0d a1 a4  33 c8 99 22 4f 53 5f 46  |.#f2%...3.."OS_F|
0000be90  69 6c 65 22 2c 36 2c 22  3c 63 68 6f 69 63 65 73  |ile",6,"<choices|
0000bea0  24 77 72 69 74 65 3e 2e  62 6f 6f 74 2e 50 72 65  |$write>.boot.Pre|
0000beb0  44 65 73 6b 74 6f 70 22  0d a1 ae 5b c8 99 22 4f  |Desktop"...[.."O|
0000bec0  53 5f 46 53 43 6f 6e 74  72 6f 6c 22 2c 32 35 2c  |S_FSControl",25,|
0000bed0  22 3c 63 68 6f 69 63 65  73 24 77 72 69 74 65 3e  |"<choices$write>|
0000bee0  2e 62 6f 6f 74 2e 50 72  65 44 65 73 6b 4e 65 77  |.boot.PreDeskNew|
0000bef0  22 2c 22 3c 63 68 6f 69  63 65 73 24 77 72 69 74  |","<choices$writ|
0000bf00  65 3e 2e 62 6f 6f 74 2e  50 72 65 44 65 73 6b 74  |e>.boot.PreDeskt|
0000bf10  6f 70 22 0d a1 d6 30 c8  99 22 4f 53 5f 46 69 6c  |op"...0.."OS_Fil|
0000bf20  65 22 2c 36 2c 22 3c 63  68 6f 69 63 65 73 24 77  |e",6,"<choices$w|
0000bf30  72 69 74 65 3e 2e 62 6f  6f 74 2e 44 65 73 6b 4e  |rite>.boot.DeskN|
0000bf40  65 77 22 0d a1 e0 36 c8  99 22 4f 53 5f 46 69 6c  |ew"...6.."OS_Fil|
0000bf50  65 22 2c 31 31 2c 22 3c  63 68 6f 69 63 65 73 24  |e",11,"<choices$|
0000bf60  77 72 69 74 65 3e 2e 62  6f 6f 74 2e 44 65 73 6b  |write>.boot.Desk|
0000bf70  4e 65 77 22 2c 26 46 45  41 0d a1 ea 29 66 31 25  |New",&FEA...)f1%|
0000bf80  3d ad 28 22 3c 63 68 6f  69 63 65 73 24 77 72 69  |=.("<choices$wri|
0000bf90  74 65 3e 2e 62 6f 6f 74  2e 44 65 73 6b 4e 65 77  |te>.boot.DeskNew|
0000bfa0  22 29 0d a1 f4 29 66 32  25 3d 8e 28 22 3c 63 68  |")...)f2%=.("<ch|
0000bfb0  6f 69 63 65 73 24 77 72  69 74 65 3e 2e 62 6f 6f  |oices$write>.boo|
0000bfc0  74 2e 44 65 73 6b 74 6f  70 22 29 0d a1 fe 05 f5  |t.Desktop").....|
0000bfd0  0d a2 08 0c 61 24 3d be  23 66 32 25 0d a2 12 36  |....a$=.#f2%...6|
0000bfe0  e7 a7 61 24 2c 22 7c 53  74 61 72 74 22 29 3e 30  |..a$,"|Start")>0|
0000bff0  80 a7 61 24 2c 22 4d 61  72 73 22 29 3e 30 80 a7  |..a$,"Mars")>0..|
0000c000  61 24 2c 22 21 42 6f 6f  74 70 6c 75 73 22 29 3e  |a$,"!Bootplus")>|
0000c010  30 8c 0d a2 1c 05 f5 0d  a2 26 0c 61 24 3d be 23  |0........&.a$=.#|
0000c020  66 32 25 0d a2 30 0e fd  61 24 3d 22 7c 45 6e 64  |f2%..0..a$="|End|
0000c030  22 0d a2 3a 05 cc 0d a2  44 0c d5 23 66 31 25 2c  |"..:....D..#f1%,|
0000c040  61 24 0d a2 4e 05 cd 0d  a2 58 0a fd c5 23 66 32  |a$..N....X...#f2|
0000c050  25 0d a2 62 09 d9 23 66  31 25 0d a2 6c 09 d9 23  |%..b..#f1%..l..#|
0000c060  66 32 25 0d a2 76 30 c8  99 22 4f 53 5f 46 69 6c  |f2%..v0.."OS_Fil|
0000c070  65 22 2c 36 2c 22 3c 63  68 6f 69 63 65 73 24 77  |e",6,"<choices$w|
0000c080  72 69 74 65 3e 2e 62 6f  6f 74 2e 44 65 73 6b 74  |rite>.boot.Deskt|
0000c090  6f 70 22 0d a2 80 55 c8  99 22 4f 53 5f 46 53 43  |op"...U.."OS_FSC|
0000c0a0  6f 6e 74 72 6f 6c 22 2c  32 35 2c 22 3c 63 68 6f  |ontrol",25,"<cho|
0000c0b0  69 63 65 73 24 77 72 69  74 65 3e 2e 62 6f 6f 74  |ices$write>.boot|
0000c0c0  2e 44 65 73 6b 4e 65 77  22 2c 22 3c 63 68 6f 69  |.DeskNew","<choi|
0000c0d0  63 65 73 24 77 72 69 74  65 3e 2e 62 6f 6f 74 2e  |ces$write>.boot.|
0000c0e0  44 65 73 6b 74 6f 70 22  0d a2 a8 34 2a 41 43 43  |Desktop"...4*ACC|
0000c0f0  45 53 53 20 3c 42 6f 6f  74 70 6c 75 73 24 64 69  |ESS <Bootplus$di|
0000c100  72 3e 2e 52 65 73 6f 75  72 63 65 73 2e 63 68 61  |r>.Resources.cha|
0000c110  6e 67 65 6c 69 73 74 20  57 52 2f 52 0d a2 b2 2d  |ngelist WR/R...-|
0000c120  2a 4f 42 45 59 20 3c 42  6f 6f 74 70 6c 75 73 24  |*OBEY <Bootplus$|
0000c130  64 69 72 3e 2e 52 65 73  6f 75 72 63 65 73 2e 63  |dir>.Resources.c|
0000c140  68 61 6e 67 65 6c 69 73  74 0d a2 bc 32 2a 57 49  |hangelist...2*WI|
0000c150  50 45 20 3c 42 6f 6f 74  70 6c 75 73 24 64 69 72  |PE <Bootplus$dir|
0000c160  3e 2e 52 65 73 6f 75 72  63 65 73 2e 63 68 61 6e  |>.Resources.chan|
0000c170  67 65 6c 69 73 74 20 7e  43 7e 56 0d a2 c6 2f 66  |gelist ~C~V.../f|
0000c180  25 3d ae 28 22 3c 42 6f  6f 74 70 6c 75 73 24 44  |%=.("<Bootplus$D|
0000c190  69 72 3e 2e 52 65 73 6f  75 72 63 65 73 2e 63 68  |ir>.Resources.ch|
0000c1a0  61 6e 67 65 6c 69 73 74  22 29 0d a2 d0 2d d5 23  |angelist")...-.#|
0000c1b0  66 25 2c 22 7c 20 66 69  6c 65 73 20 61 64 64 65  |f%,"| files adde|
0000c1c0  64 20 74 6f 20 70 72 65  64 65 73 6b 20 61 6e 64  |d to predesk and|
0000c1d0  20 74 61 73 6b 73 22 0d  a2 da 08 d9 23 66 25 0d  | tasks".....#f%.|
0000c1e0  a2 e4 35 2a 53 45 54 54  59 50 45 20 3c 42 6f 6f  |..5*SETTYPE <Boo|
0000c1f0  74 70 6c 75 73 24 64 69  72 3e 2e 52 65 73 6f 75  |tplus$dir>.Resou|
0000c200  72 63 65 73 2e 63 68 61  6e 67 65 6c 69 73 74 20  |rces.changelist |
0000c210  26 46 45 42 0d a2 ee 32  2a 41 43 43 45 53 53 20  |&FEB...2*ACCESS |
0000c220  3c 42 6f 6f 74 70 6c 75  73 24 64 69 72 3e 2e 52  |<Bootplus$dir>.R|
0000c230  65 73 6f 75 72 63 65 73  2e 63 68 61 6e 67 65 6c  |esources.changel|
0000c240  69 73 74 20 4c 2f 0d a3  16 05 e1 0d a3 5c 17 dd  |ist L/.......\..|
0000c250  a4 67 65 74 5f 74 61 73  6b 5f 69 64 28 74 6e 6d  |.get_task_id(tnm|
0000c260  24 29 0d a3 84 11 ea 61  25 2c 74 69 64 25 2c 6e  |$).....a%,tid%,n|
0000c270  74 6e 24 0d a3 98 08 61  25 3d 30 0d a3 a2 0a 74  |tn$....a%=0....t|
0000c280  69 64 25 3d 30 0d a3 ac  0b 6e 74 6e 24 3d 22 22  |id%=0....ntn$=""|
0000c290  0d a3 b6 05 f5 0d a3 c0  31 c8 99 22 54 61 73 6b  |........1.."Task|
0000c2a0  4d 61 6e 61 67 65 72 5f  45 6e 75 6d 65 72 61 74  |Manager_Enumerat|
0000c2b0  65 54 61 73 6b 73 22 2c  61 25 2c 42 75 66 31 25  |eTasks",a%,Buf1%|
0000c2c0  2c 31 36 b8 61 25 0d a3  ca 38 e7 28 61 25 3e 30  |,16.a%...8.(a%>0|
0000c2d0  29 80 28 28 42 75 66 31  25 21 31 32 80 20 31 29  |).((Buf1%!12. 1)|
0000c2e0  3d 30 29 80 28 74 6e 6d  24 3d a4 69 6e 64 69 72  |=0).(tnm$=.indir|
0000c2f0  65 63 74 28 42 75 66 31  25 21 34 29 29 8c 0d a3  |ect(Buf1%!4))...|
0000c300  f2 10 74 69 64 25 3d 42  75 66 31 25 21 30 0d a3  |..tid%=Buf1%!0..|
0000c310  fc 09 61 25 3d 2d 31 0d  a4 06 05 cd 0d a4 10 09  |..a%=-1.........|
0000c320  fd 61 25 3c 30 0d a4 1a  09 3d 74 69 64 25 0d a4  |.a%<0....=tid%..|
0000c330  60 15 dd a4 69 6e 64 69  72 65 63 74 28 70 6e 74  |`...indirect(pnt|
0000c340  72 25 29 0d a4 9c 0a ea  61 6e 73 77 24 0d a4 b0  |r%).....answ$...|
0000c350  1f c8 99 22 4f 53 5f 57  72 69 74 65 4e 22 2c 70  |..."OS_WriteN",p|
0000c360  6e 74 72 25 2c 30 b8 61  6e 73 77 24 0d a4 ba 0a  |ntr%,0.answ$....|
0000c370  3d 61 6e 73 77 24 0d a5  00 29 dd a4 67 65 74 5f  |=answ$...)..get_|
0000c380  6d 65 73 73 61 67 65 28  74 6f 6b 65 6e 24 2c 70  |message(token$,p|
0000c390  31 24 2c 70 32 24 2c 70  33 24 2c 70 34 24 29 0d  |1$,p2$,p3$,p4$).|
0000c3a0  a5 28 07 ea 73 25 0d a5  3c 48 c8 99 22 4d 65 73  |.(..s%..<H.."Mes|
0000c3b0  73 61 67 65 54 72 61 6e  73 5f 4c 6f 6f 6b 75 70  |sageTrans_Lookup|
0000c3c0  22 2c 54 6c 6d 73 25 2c  74 6f 6b 65 6e 24 2c 42  |",Tlms%,token$,B|
0000c3d0  6c 63 6b 25 2c 31 32 38  2c 70 31 24 2c 70 32 24  |lck%,128,p1$,p2$|
0000c3e0  2c 70 33 24 2c 70 34 24  b8 2c 2c 2c 73 25 0d a5  |,p3$,p4$.,,,s%..|
0000c3f0  46 0f 42 6c 63 6b 25 3f  73 25 3d 31 33 0d a5 50  |F.Blck%?s%=13..P|
0000c400  0b 3d 24 42 6c 63 6b 25  0d a5 96 3b dd f2 65 72  |.=$Blck%...;..er|
0000c410  72 6f 72 5f 6d 65 73 73  61 67 65 28 6d 65 73 73  |ror_message(mess|
0000c420  61 67 65 24 2c 70 31 24  2c 70 32 24 2c 65 74 69  |age$,p1$,p2$,eti|
0000c430  74 6c 65 24 2c 66 6c 61  67 73 25 2c f8 6b 65 79  |tle$,flags%,.key|
0000c440  63 25 29 0d a5 f0 0d ea  73 25 2c 74 24 2c 65 24  |c%).....s%,t$,e$|
0000c450  0d a6 04 2b 65 24 3d a4  67 65 74 5f 6d 65 73 73  |...+e$=.get_mess|
0000c460  61 67 65 28 6d 65 73 73  61 67 65 24 2c 70 31 24  |age(message$,p1$|
0000c470  2c 70 32 24 2c 22 22 2c  22 22 29 0d a6 0e 1d e7  |,p2$,"","").....|
0000c480  65 74 69 74 6c 65 24 3d  22 22 8c 65 74 69 74 6c  |etitle$="".etitl|
0000c490  65 24 3d 22 45 54 34 22  0d a6 18 28 74 24 3d a4  |e$="ET4"...(t$=.|
0000c4a0  67 65 74 5f 6d 65 73 73  61 67 65 28 65 74 69 74  |get_message(etit|
0000c4b0  6c 65 24 2c 22 22 2c 22  22 2c 22 22 2c 22 22 29  |le$,"","","","")|
0000c4c0  0d a6 22 11 24 28 42 6c  63 6b 25 2b 34 29 3d 65  |..".$(Blck%+4)=e|
0000c4d0  24 0d a6 2c 0d 42 6c 63  6b 25 21 30 3d 30 0d a6  |$..,.Blck%!0=0..|
0000c4e0  36 2f c8 99 22 57 69 6d  70 5f 52 65 70 6f 72 74  |6/.."Wimp_Report|
0000c4f0  45 72 72 6f 72 22 2c 42  6c 63 6b 25 2c 66 6c 61  |Error",Blck%,fla|
0000c500  67 73 25 2c 74 24 b8 2c  6b 65 79 63 25 0d a6 40  |gs%,t$.,keyc%..@|
0000c510  05 e1 0d a6 90 07 dc 20  39 0d a6 9a 1b dc 20 22  |....... 9..... "|
0000c520  70 72 65 64 65 73 6b 22  2c 22 46 45 42 22 2c 22  |predesk","FEB","|
0000c530  45 57 31 22 0d a6 a4 1b  dc 20 22 70 72 65 64 65  |EW1"..... "prede|
0000c540  73 6b 22 2c 22 46 46 38  22 2c 22 45 57 32 22 0d  |sk","FF8","EW2".|
0000c550  a6 ae 1b dc 20 22 70 72  65 64 65 73 6b 22 2c 22  |.... "predesk","|
0000c560  46 46 39 22 2c 22 45 57  33 22 0d a6 b8 1b dc 20  |FF9","EW3"..... |
0000c570  22 70 72 65 64 65 73 6b  22 2c 22 46 46 41 22 2c  |"predesk","FFA",|
0000c580  22 45 57 34 22 0d a6 c2  1b dc 20 22 70 72 65 64  |"EW4"..... "pred|
0000c590  65 73 6b 22 2c 22 46 46  42 22 2c 22 45 57 35 22  |esk","FFB","EW5"|
0000c5a0  0d a6 cc 1b dc 20 22 70  72 65 64 65 73 6b 22 2c  |..... "predesk",|
0000c5b0  22 46 46 43 22 2c 22 45  57 32 22 0d a6 d6 1c dc  |"FFC","EW2".....|
0000c5c0  20 22 70 72 65 64 65 73  6b 22 2c 22 31 30 30 30  | "predesk","1000|
0000c5d0  22 2c 22 45 57 36 22 0d  a6 e0 19 dc 20 22 70 72  |","EW6"..... "pr|
0000c5e0  65 64 65 73 6b 22 2c 22  2a 22 2c 22 45 57 37 22  |edesk","*","EW7"|
0000c5f0  0d a6 ea 19 dc 20 22 61  75 74 6f 72 75 6e 22 2c  |..... "autorun",|
0000c600  22 2a 22 2c 22 45 57 38  22 0d a7 12 07 dc 20 39  |"*","EW8"..... 9|
0000c610  0d a7 1c 1a dc 20 22 70  72 65 64 65 73 6b 22 2c  |..... "predesk",|
0000c620  22 41 52 50 6c 61 79 65  72 22 0d a7 26 1b dc 20  |"ARPlayer"..&.. |
0000c630  22 70 72 65 64 65 73 6b  22 2c 22 42 61 6e 64 4c  |"predesk","BandL|
0000c640  69 6d 69 74 22 0d a7 30  1a dc 20 22 70 72 65 64  |imit"..0.. "pred|
0000c650  65 73 6b 22 2c 22 53 65  74 55 70 4e 65 74 22 0d  |esk","SetUpNet".|
0000c660  a7 3a 1b dc 20 22 70 72  65 64 65 73 6b 22 2c 22  |.:.. "predesk","|
0000c670  43 6f 6e 66 69 67 75 72  65 22 0d a7 44 1b dc 20  |Configure"..D.. |
0000c680  22 61 75 74 6f 72 75 6e  22 2c 22 43 6f 6e 66 69  |"autorun","Confi|
0000c690  67 75 72 65 22 0d a7 4e  1b dc 20 22 61 75 74 6f  |gure"..N.. "auto|
0000c6a0  72 75 6e 22 2c 22 7e 43  44 52 65 69 6e 69 74 22  |run","~CDReinit"|
0000c6b0  0d a7 58 1b dc 20 22 61  75 74 6f 72 75 6e 22 2c  |..X.. "autorun",|
0000c6c0  22 21 7a 7a 7a 7a 70 61  73 73 22 0d a7 62 1b dc  |"!zzzzpass"..b..|
0000c6d0  20 22 61 75 74 6f 72 75  6e 22 2c 22 21 42 6f 6f  | "autorun","!Boo|
0000c6e0  74 70 6c 75 73 22 0d a7  6c 18 dc 20 22 62 6f 6f  |tplus"..l.. "boo|
0000c6f0  74 22 2c 22 21 42 6f 6f  74 70 6c 75 73 22 0d a7  |t","!Bootplus"..|
0000c700  94 1a dc 20 53 75 2c 4d  6f 2c 54 75 2c 57 65 2c  |... Su,Mo,Tu,We,|
0000c710  54 68 2c 46 72 2c 53 61  0d ff                    |Th,Fr,Sa..|
0000c71a