Home » Archimedes archive » Archimedes World » AW-1996-03-Disc 2.adf » !HardBack_HardBack » !Backup/!RunImage
!Backup/!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 » Archimedes World » AW-1996-03-Disc 2.adf » !HardBack_HardBack |
| Filename: | !Backup/!RunImage |
| Read OK: | ✔ |
| File size: | AC95 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
90Dk$="1.623 (16 Sep 95)":Dk=1.623:Ky=1.01:Ga%=3:Pj%=32768:SYS81TOFx%,Rv%:Fe%=TRUE:Cm%=3:Fm%=END-32768:Ks%=2500:DIME%Ks%,M%256,Jn%32,p%256:Hd%=11264:Ho%=256:DIMF%16,Jl%Hd%,E_%Ho%,u$(4):PROCY_(F%,"<HardBackD$Dir>.Resources.Messages",Jl%,Hd%):PROCM`
270SYS131107,"RiscOS$V",M%,256TO,,Er%,,Y%;N:IF(NAND1)ERROR0,FN0(F%,"UkROv")
290Ag%=!M%:IFAg%<200ERROR0,FN0(F%,"RO2plus")
310IFAg%>300Ag%=300
320$E%="TASK":P%=Jn%:[OPT2:DCD2:DCD3:DCD8:DCD1282:DCD262341:DCD262345:DCD0:]:SYS262336,Ag%,!E%,FN0(F%,"WimpTitle"),Jn%TO,Gw%:SYS263872:SYS131107,"HardBackD$Filetype",M%,256TO,,Er%,,Y%;N:IF(NAND1)=0SYS33,16OR1<<31OR1<<29,M%,4095TO,,Gm%ELSEERROR1,FN0(F%,"BadScType")
480Nn$=FN0(F%,"QuitErr"):SYS131107,"HardBackD$Default2",M%,256TO,,Er%,,Y%;N:IF(NAND1)Fj$=""ELSEFj$=FNH(M%,Er%)
530Bh$="ExSpr":SYS63,20TO;N%:R%=(N%AND2)>>1:IFR%=1SYS63,27TO;N%:R%=(N%AND2)>>1
600IFR%=1Hf%=TRUEELSEHf%=FALSE
610IFHf%Bh$+="12"ELSEBh$+="22"
620S%=OPENIN("<HardBackD$Dir>.Resources.Sprites."+Bh$):T%=EXT#S%+16:CLOSE#S%:DIMD` T%:!D`=T%:D`!4=0:D`!8=16:D`!12=16:SYS46,521,D`:SYS46,522,D`,"<HardBackD$Dir>.Resources.Sprites."+Bh$:Bh$="SprOS3/":IFAg%<300Bh$="SprOS2/"
690IFHf%Bh$+="12"ELSEBh$+="22"
700SYS5,"IconSprites <HardBackD$Dir>.Resources.Sprites."+Bh$:DIMLk%32,Ji%32:Bo=FNd(TRUE,0,-16,136,110,7,1,12555,FN0(F%,"IcWait"),"s!Backup"):SYS81TOFu%,R_%:Fm%=(INT((HIMEM-32768)/Fu%)+10)*Fu%:G_%=FALSE:Rn$="":Aa$="":Fi=FALSE:Dd%=FALSE:Db%=FALSE:SYS57,,"OS_GBPB"TOAw%:SYS57,,"OS_File"TOBb%
890SYS57,,"OS_CLI"TOGv%:SYS57,,"OS_FSControl"TORk%:SYS57,,"OS_Word"TOFf%:SYS57,,"Wimp_GetIconState"TOJ`%:SYS57,,"Wimp_SetIconState"TORf%:SYS57,,"Wimp_ForceRedraw"TOKm%:SYS57,,"Wimp_Poll"TOOq%:Qt%=FALSE:Oa%=16:Lm%=32:s%=255
1030DIMg$(1,s%),Ao%(1,s%),A`%(1,s%),y%(1),La%(1),Dt%(1),Ql%&4000,My%&4000:y%()=0:g$()="":La%()=Ql%,My%:Dt%()=FALSE:Dp%=255:DIMw%(Dp%),Ab%(Dp%),Ie%10:w%()=-2:IFDp%<20Gs%=20ELSEGs%=Dp%
1110DIMFb%(Gs%),Iv%(Gs%),Ko%(20):!M%=3409:DIMBv%8,Dx%50,Cj%2048,Pd%&1800,Rq%&7C00,Cp%8,v%256,Qn 5:Sd%=0:Kf%=32:DIMJm%Kf%:$Jm%=FN0(F%,"MRemIt"):Jz%=32:DIMKz%Jz%:$Kz%=FN0(F%,"MSaveDef"):Le%=32:DIMLh%Le%:$Lh%=FN0(F%,"MClrSel"):SYS131107,M%,Cj%,256TO,,Er%,,Y%;N
1270IF(NAND1)OR!Cj%<>Km%ERROR0,FN0(F%,"CorrFile")
1280SYS36,M%,Cj%,TRUE:It%=Pd%:Nd%=It%+16384:Id$=FN0(F%,"Continue"):Ey$=FN0(F%,"Pause"):Pk$=FN0(F%,"Arc"):Q_$=FN0(F%,"Scan"):Rh$=FN0(F%,"WimpTitle"):DIMS`%5,Re%28,X%&100,c%&100,J%&100:SYS262380,TRUE,TRUETOBw%,Md%,Mc%:SYS262380,Bw%+(Fx%),TRUETOJa%:IFJa%<Bw%+(Fx%)ERROR0,FN0(F%,"MoreRAM")
1470Cf%=TRUE:Sb%=18:e%=FALSE:Am%=FALSE:Do%=TRUE:Ir%=FALSE:Rj%=FALSE:x%=FALSE:i$="":r$="":Ca%=0:Hj$="":n%=TRUE:Ap%=FALSE:Bn%=FALSE:Ba%=FALSE:Bz%=FALSE:Cd%=FALSE:B`$="":Af$="":Bq%=FALSE:Sa%=FALSE:Dm%=TRUE:Cb%=TRUE:C`%=FALSE:Bu%=FALSE:B_%=TRUE:Dr%=0:Di%=FALSE:El%=64:SYS131107,"HardBackD$Slot",M%,256TO,,Er%,,Y%;N:IF(NAND1)=0Fy%=(!M%)*1024
1760SYS262380,TRUE,TRUETOBw%,Md%,Mc%:IFFy%>Bw%SYS262380,Fy%,TRUETOBw%
1780PROCN:SYS262380,TRUE,TRUETORu%:Ge%=25*FNm(512):Ip%=0:Bh%=1:IFAg%<300Bh%=0
1850IF(Bh%AND1)PROCN_("<HardBackD$Dir>.Resources.Templates")ELSEPROCN_("<HardBackD$Dir>.Resources.TemplatOS2")
1860PROCE("query"):SYS262337,,E%TOAt%:PROCE("progInfo"):SYS262337,,E%TOCy%:PROCE("notify"):SYS262337,,E%TOAc%:PROCE("main"):E%!64=D`:SYS262337,,E%TOO%:PROCE("selected"):SYS262337,,E%TOBd%:PROCE("ignored"):SYS262337,,E%TOCi%:PROCE("preflist"):SYS262337,,E%TOG%:PROCE("prefs"):E%!64=D`
2040SYS262337,,E%TOBf%:PROCE("savebox"):SYS262337,,E%TOCc%:PROCN`:PROC1(E%,Cc%,1,"ScriptFile",0):PROC1(E%,Cy%,3,Dk$,0):PROC1(E%,Cy%,8,FN0(F%,"RegVer"),0):PROC1(E%,Cy%,10,FN2(F%,"SerNo"),0):PROC0(O%,13,FALSE):PROC0(O%,14,FALSE):PROC0(G%,20,TRUE):PROC0(G%,22,TRUE):PROC0(G%,23,TRUE):PROC0(G%,25,TRUE):PROC0(G%,26,TRUE)
2290PROC0(G%,31,TRUE):IFAg%<300PROC0(G%,36,TRUE):PROC0(G%,37,TRUE)
2320IFFj$<>""THEN
2330R%=OPENINFj$:IFR%CLOSE#R%
2340IFR%PROCm(Fj$)
2350ENDIF:PROC_:PROCS(E%,Bd%):PROCS(E%,Ci%):PROCU(FNA(0)):opt$="":$X%="autodisc/s,read,execute,wipe/s,quit/s":SYS16TON$:R$=FN7(N$,3):Hs$=MID$(N$,Es%):SYS73,X%,Hs$,M%,256:opt%=0:F$="":IF!M%Kh%=TRUEELSEKh%=FALSE
2500IFM%!4F$=FN4(M%!4):opt%=1
2510IFM%!8F$=FN4(M%!8):opt%=2
2520IFM%!12Iy%=TRUEELSEIy%=FALSE
2530IFM%!16Kj%=TRUEELSEKj%=FALSE
2540SYS263873:IFopt%<>0ANDF$<>""THEN
2600R%=OPENINF$:IFR%CLOSE#R%
2610IFR%PROCm(F$)
2620IFR%ANDopt%=1Dd%=TRUE:PROC9(Bf%,TRUE,TRUE,0)
2630IFR%ANDopt%=2Dd%=FALSE:PROCa:IFKj%=TRUEPROCG
2640ENDIF:ONERRORPROCX_
2820Fm%=(INT((HIMEM-32768)/Fu%)+10)*Fu%:Fe%=FALSE:PROCL:END
2870DEFPROCL:REPEAT:PROCU(FNA(0)):UNTILFi:PROCC_:ENDPROC
2950DEFPROCC_:PROCG:END:ENDPROC
3030DEFPROCX_:IFCm%=3PROCd(FN2(F%,"FatalError@"+REPORT$+"@"+FN8(ERL,ERR)),3,TRUE)ELSEPROCd(REPORT$,Cm%,0)
3090Cm%=3:SYS263874:ENDPROC
3130DEFPROC7(Ok$,b%):Im%=Cm%:Cm%=1:PROCd(Ok$,Cm%,0):Rr%=Im%:IFb%=TRUEPROC0(O%,13,FALSE):PROC0(O%,14,FALSE):PROC1(E%,O%,14,Ey$,TRUE):PROC1(E%,O%,16,Nn$,TRUE):PROCl:e%=0:Am%=0:PROC5(O%):Db%=FALSE:PROC1(E%,-2,Bo,FN0(F%,"IcWait"),TRUE):PROCL
3310ENDPROC
3330DEFPROCd(Ar$,Cm%,Nh%):Ig$="#":!E%=ERR:$(E%+4)=Ar$+CHR$0:SYS262367,E%,Cm%,FN0(F%,"ErrorTitle")TO,Ar%:IFNh%IFAr%=2Fi=TRUE:PROCC_
3380ENDPROC
3400DEFPROCQ_:LOCALW%:SYS262351,,M%:W%=M%!8:CASE!E%OF
3460WHEN1:Fi=TRUE:b%=TRUE:IFe%IFFNG b%=TRUEELSEb%=FALSE
3470IFb%THEN
3480IFe%THEN
3490IFx%CLOSE#q%:x%=FALSE
3500PROCY:x%=FALSE:PROCT:e%=FALSE
3540ENDIF:PROCD:PROCG
3580ENDIF
3590ENDCASE:IFW%=1PROCA_
3610ENDPROC
3630DEFPROCO`:LOCALW%:SYS262351,,M%:W%=M%!8:CASE!E%OF
3690WHEN1:Fi=TRUE:b%=TRUE:IFe%THEN
3710IFFNG b%=TRUEELSEb%=FALSE
3720ENDIF:IFb%THEN
3740IFe%THEN
3750IFx%CLOSE#q%:x%=FALSE
3760PROCY:x%=FALSE:PROCT:e%=FALSE
3800ENDIF:PROCD:PROCG
3830ENDIF
3840ENDCASE:IFW%=1PROCV
3860ENDPROC
3880DEFPROCU`:LOCALW%:SYS262351,,M%:W%=M%!8:CASE!E%OF
3940WHEN1:PROCz(4,0)
3950WHEN2:PROCj(Fj$)
3960WHEN3:Fi=TRUE:b%=TRUE:IFe%THEN
3970IFFNG b%=TRUEELSEb%=FALSE
3980ENDIF:IFb%THEN
4000IFe%THEN
4010IFx%CLOSE#q%:x%=FALSE
4020PROCY:x%=FALSE:PROCT:e%=FALSE
4050ENDIF:PROCD:PROCG
4080ENDIF
4090ENDCASE:IFW%=1PROCo
4110ENDPROC
4130DEFPROCS_:LOCALW%:SYS262351,,M%:W%=M%!8:SYS262357,,Cj%,E%,M%:Ov$=FN4(M%):PROC1(E%,G%,6,Ov$,TRUE):IFW%=1PROCB_
4210ENDPROC
4230DEFPROCt(Q%):LOCALW%,Em%,Ai%:Em%=!E%:SYS262351,,M%:W%=M%!8:CASEEm%OF
4290WHEN0:Pb%=0:Ce%=0:SYS262358,FN6(Q%),X%,1<<21,1<<21:REPEAT:Z%=X%!Ce%:IFZ%<>-1PROCW`(Q%,Z%,0):PROC2(FN6(Q%),Z%,0):Pb%+=1
4360Ce%+=4:UNTILZ%=-1
4380WHEN1:PROCn(Q%):FORAi%=0TOs%:g$(Q%,Ai%)="":Ao%(Q%,Ai%)=-2:A`%(Q%,Ai%)=TRUE:NEXT:y%(Q%)=0
4440WHEN2:Ce%=0:SYS262358,FN6(Q%),X%,1<<21,1<<21:REPEAT:Z%=X%!Ce%:IFZ%<>-1PROC2(FN6(Q%),Z%,0)
4500Ce%+=4:UNTILZ%=-1
4520ENDCASE:IFEm%<>2PROCB(Q%,TRUE)
4540IFW%=1PROCJ_(Q%)
4550ENDPROC
4570DEFPROCW_:LOCALKw%:Kw%=VAL(RIGHT$(Aa$,1)):IFHk%>-1PROC2(FN6(Kw%),Hk%,0)
4610Aa$="":ENDPROC
4640DEFPROCG`:LOCALW%,d%:d%=TRUE:SYS262351,,M%:W%=M%!8:CASE!E%OF
4700WHEN0:Ab%(0)=(NOTAb%(0))
4710WHENI-1:IF(I-1)>Gs%ERROR1,FN0(F%,"MenuFull")
4720Et%=FNe($Ie%):d%=TRUE:FORR%=1TOI-2:IFw%(R%)=Et%d%=R%
4760NEXT:IFd%>-1FORR%=d%TOI-2:w%(R%)=w%(R%+1):Ab%(R%)=Ab%(R%+1):NEXT:I-=1
4840w%(I-1)=Et%:Ab%(I-1)=TRUE:IFw%(I-1)=-2Ab%(I-1)=0
4880OTHERWISE:Ab%(!E%)=(NOT(Ab%(!E%)))
4890ENDCASE:IFW%=1PROCr
4910ENDPROC
5210DEFPROCA`:LOCALW%:SYS262351,,M%:W%=M%!8:CASE!E%OF
5260WHEN0:IFe%THEN
5270IFFNG b%=TRUEELSEb%=FALSE
5280IFb%THEN
5290IFFALSETHEN
5310IFx%CLOSE#q%:x%=FALSE
5320PROCY:x%=FALSE:PROCT:e%=FALSE
5350ENDIF:e%=0:Am%=0:PROCC(FN0(F%,"BackDead")):PROC1(E%,O%,9,FN0(F%,"Aborted"),TRUE):PROC0(O%,13,(e%=0)):PROC0(O%,14,Am%OR(NOTe%)):PROC5(At%):PROC5(Ac%):PROC1(E%,-2,Bo,FN0(F%,"IcWait"),TRUE):PROCD:PROCL
5460ENDIF
5470ENDIF
5480ENDCASE:IFW%=1PROC`
5500ENDPROC
5540DEFPROCK`(Qg%,Px%,W%,t%,Z%,Sc%):CASEt%OF
5560WHENBf%:PROCV`(W%,Z%)
5570WHENG%:PROCQ`(W%,Z%)
5580WHENBd%:PROCD_(0,W%,Z%)
5590WHENCi%:PROCD_(1,W%,Z%)
5600WHENO%:PROCH`(W%,Z%)
5610WHENCy%:IFZ%=11PROCI`
5640WHENCc%:PROCz(W%,Z%,Qg%,Px%)
5650WHEN-2:PROCF`(W%,Z%)
5660ENDCASE:ENDPROC
5740DEFPROCI`:Iq$="<HardBackD$Dir>.Docs.Register":IFAg%>=300SYS5,"Filer_Run "+Iq$:ENDPROC
5770!E%=256:E%!12=0:E%!16=5:E%!20=0:E%!28=0:E%!32=0:E%!36=0:SYS8,5,Iq$TO,,Ex%:IF(Ex%>>>20)=4095 Et%=((Ex%>>>8)AND4095)ELSEEt%=12288
5860E%!40=Et%:$(E%+44)=Iq$:SYS262375,17,E%,0:ENDPROC
5910DEFPROCF`(W%,Z%):IFZ%<0ENDPROC
5930CASETRUEOF
5940WHENW%=2:IFZ%=BoPROCV
5990WHENW%=4:IFe%=FALSETHEN
6040PROC9(Bf%,TRUE,TRUE,0):Dd%=TRUE:IFDb%PROC5(O%):Db%=FALSE
6070ENDIF:IFe%=TRUETHEN
6090PROC9(O%,TRUE,TRUE,0):Db%=TRUE:IFDd%PROC5(Bf%):Dd%=FALSE
6120ENDIF
6130ENDCASE:ENDPROC
6160DEFPROCH`(W%,Z%):CASEW%OF
6180WHEN2:PROCA_
6200ENDCASE:IFFALSETHEN
6220CASETRUEOF
6230WHEN(W%AND4)=4ANDZ%<>-1:CASEZ%OF
6250WHEN12ANDe%=0:PROCa
6260WHEN13ANDe%:e%=FALSE
6270WHEN14ANDe%ANDAm%=0:Am%=TRUE:PROC1(E%,O%,14,Id$,TRUE)
6280WHEN14ANDe%ANDAm%:Am%=FALSE:PROC1(E%,O%,14,Ey$,TRUE)
6290ENDCASE
6300ENDCASE
6310ENDIF:ENDPROC
6350DEFPROCV`(W%,Z%):CASETRUEOF
6370WHEN(W%AND2)=2:PROCo
6380WHEN((W%AND4)=4OR(W%AND1)=1)ANDZ%<>-1:CASEZ%OF
6400WHEN1:PROCi:PROC5(Bf%):Dd%=FALSE:PROCa
6420WHEN2:PROC_:PROC5(Bf%):Dd%=FALSE
6430WHEN0:PROCi
6440WHEN4:PROC_
6450ENDCASE
6460ENDCASE:ENDPROC
6490DEFPROCQ`(W%,Z%):CASEW%OF
6510WHEN1,2,4:CASEZ%OF
6530WHEN32:PROCB_
6540WHEN33:PROCr
6560OTHERWISE:CASETRUEOF
6580WHEN(W%AND2)=2:PROCo
6590WHEN((W%AND4)=4OR(W%AND1)=1)ANDZ%<>-1:CASEZ%OF
6610WHEN10:PROC0(G%,12,(FN1(G%,10)=0)):PROC0(G%,30,(FN1(G%,10))):FORU%=14TO19:PROC0(G%,U%,(FN1(G%,10))):NEXT
6620WHEN11:PROC0(G%,13,(FN1(G%,11)=0))
6630WHEN12:PROCR_
6640WHEN13:PROCR`
6650WHEN14:Ol%=FN1(G%,14):IFOl%=0PROC0(G%,15,TRUE):PROC0(G%,16,TRUE):PROC0(G%,17,TRUE):PROC0(G%,18,TRUE):PROC0(G%,19,TRUE)ELSEPROC0(G%,15,0):PROC0(G%,16,0):PROC0(G%,17,0):PROC0(G%,18,0):PROC0(G%,19,0)
6780WHEN15:IFFN1(G%,15)PROC2(G%,14,TRUE)
6790WHEN17:IFFN1(G%,17)PROC2(G%,14,TRUE)
6840WHEN27:PROC0(G%,28,(FN1(G%,27)=0))
6850WHEN35:IFFN1(G%,35)=0ANDFN1(G%,36)=0ANDFN1(G%,37)=0PROC2(G%,35,TRUE)
6860WHEN36:IFFN1(G%,35)=0ANDFN1(G%,36)=0ANDFN1(G%,37)=0PROC2(G%,36,TRUE)
6870WHEN37:IFFN1(G%,35)=0ANDFN1(G%,36)=0ANDFN1(G%,37)=0PROC2(G%,37,TRUE)
6880ENDCASE:Q`%=FN1(G%,15):Mm%=FN1(G%,17):IFQ`%=0ANDMm%=0AND(Z%=15ORZ%=17)PROC0(G%,15,TRUE):PROC0(G%,16,TRUE):PROC0(G%,17,TRUE):PROC0(G%,18,TRUE):PROC0(G%,19,TRUE):PROC2(G%,14,0)
6970ENDCASE
6980ENDCASE
6990ENDCASE:ENDPROC
7030DEFPROCD_(Q%,W%,Z%):CASETRUEOF
7050WHEN(W%AND2)=2:Hh%=Z%:Ig$="4":IFFNg(FN6(Q%),0)=0PROC2(FN6(Q%),Z%,TRUE):Hk%=Z%ELSEHk%=TRUE:Hh%=0
7100PROCJ_(Q%)
7110WHEN((W%AND1)=1OR(W%AND4)=4)ANDZ%<>-1:PROC2(FN6(Q%),Z%,(NOT(FN1(FN6(Q%),Z%))))
7130WHEN(W%AND2)=0ANDZ%=TRUE:Ce%=0:SYS262358,FN6(Q%),X%,1<<21,1<<21:REPEAT:Z%=X%!Ce%:IFZ%<>-1PROC2(FN6(Q%),Z%,0)
7190Ce%+=4:UNTILZ%=-1
7220ENDCASE:ENDPROC
7250DEFPROCz(W%,Z%,Ll%,Ju%):CASETRUEOF
7270WHEN(W%AND4)=4ANDZ%=0:F$=FN9(E%,Cc%,1):IFF$=""PROC7(FN0(F%,"NoName"),TRUE)
7300IFINSTR(F$,".")=0PROC7(FN0(F%,"SaveAs1"),TRUE)
7310PROCj(F$):SYS262356,,TRUE
7330WHEN(W%AND4)=4ANDZ%=2:F$=FN9(E%,Cc%,1):IFF$=""PROC7(FN0(F%,"NoName"),TRUE)
7360!E%=Cc%:SYS262347,,E%:Ls=E%!4-E%!20:Kp=E%!16-E%!24:E%!4=2:SYS262350,,E%:!E%=Cc%:E%!4=5:E%!8=E%!8+Ls:E%!12=E%!12+Kp:E%!16=E%!16+Ls:E%!20=E%!20+Kp:PROCP_:E%!24=(E%!8)-Ll%:E%!28=(E%!12)-Ju%:E%!32=Fg%+(E%!16)-Ll%:E%!36=Eu%+(E%!20)-Ju%:PROCY`
7510IFIx%=-1SYS262352,,E%ELSENp$="file_"+STR$~Gm%:SYSIx%,197,1,Np$,E%+8,E%+24
7570ENDCASE:ENDPROC
7610DEFPROC_:PROC1(E%,G%,2,i$,TRUE):PROC1(E%,G%,6,r$,TRUE):PROC2(G%,10,Ap%):PROC2(G%,11,Bn%):PROC2(G%,14,Ba%):PROC2(G%,15,Bz%):PROC2(G%,17,Cd%):PROC2(G%,34,Bq%):PROC2(G%,30,Dm%):PROC2(G%,35,Cb%):PROC2(G%,36,C`%):PROC2(G%,37,Bu%):PROC2(G%,27,Di%):PROC0(G%,12,(Ap%=0)):PROC0(G%,13,(Bn%=0)):PROC0(G%,30,Ap%)
7770PROC2(G%,40,Dr%):PROC1(E%,G%,18,B`$,TRUE):PROC1(E%,G%,19,Af$,TRUE):PROC1(E%,G%,28,STR$El%,TRUE):IFBa%=0Bz%=FALSE:Cd%=FALSE:PROC0(G%,15,TRUE):PROC0(G%,16,TRUE):PROC0(G%,17,TRUE):PROC0(G%,18,TRUE):PROC0(G%,19,TRUE)ELSEPROC2(G%,15,Bz%):PROC2(G%,17,Cd%):PROC0(G%,15,0):PROC0(G%,16,0):PROC0(G%,17,0):PROC0(G%,18,0):PROC0(G%,19,0)
7950IFCb%=0ANDC`%=0ANDBu%=0ANDB_%=TRUEBu%=TRUE:PROC2(G%,37,Bu%)
7960B_%=FALSE:IFAp%PROC0(G%,14,TRUE):PROC0(G%,15,TRUE):PROC0(G%,16,TRUE):PROC0(G%,17,TRUE):PROC0(G%,18,TRUE):PROC0(G%,19,TRUE)
8070PROC0(G%,28,(Di%=0)):PROCB(0,0):PROCB(1,0):ENDPROC
8110DEFPROCi:i$=FN9(p%,G%,2):r$=FN9(p%,G%,6):Ae$=FNS(r$):Hj$=FNZ(r$):Ca%=FN_(r$):n%=FNX(r$):Ap%=FN1(G%,10):Bn%=FN1(G%,11):Ba%=FN1(G%,14):Bz%=FN1(G%,15):Cd%=FN1(G%,17):Bq%=FN1(G%,34):Dm%=FN1(G%,30):Cb%=FN1(G%,35):C`%=FN1(G%,36):Bu%=FN1(G%,37):Di%=FN1(G%,27):Dr%=FN1(G%,40)
8250B`$=FN9(p%,G%,18):Af$=FN9(p%,G%,19):IFCd%PROCy(B`$,Af$)
8280El%=VAL(FN9(p%,G%,28)):PROCB(0,0):PROCB(1,0):ENDPROC
8320DEFPROCR_:PROC9(Bd%,0,TRUE,0):PROCS(p%,Bd%):ENDPROC
8380DEFPROCR`:Dt%(1)=TRUE:PROC9(Ci%,0,TRUE,0):PROCS(p%,Ci%):ENDPROC
8440DEFPROCS(K%,Cl%):LOCALQ%,l%,A_%,U%,Qq%,Gk%,Gr%,Gp%,Fs%:IFCl%=Bd%Q%=0ELSEQ%=1
8470Gk%=0:Gr%=0:Gp%=0:Fs%=0:!K%=Cl%:FORU%=0TOs%:K%!4=A`%(Q%,U%):IFK%!4>=0THEN
8520SYSJ`%,,K%:IFK%!8<Gp%Gp%=K%!8
8540IFK%!12<Fs%Fs%=K%!12
8550IFK%!16>Gk%Gk%=K%!16
8560IFK%!20>Gr%Gr%=K%!20
8570ENDIF:NEXT:!K%=Gp%:K%!4=Fs%-4:K%!8=Gk%:K%!12=Gr%:SYS262359,Cl%,K%:ENDPROC
8700DEFPROCh(_%,Gd%,Ek%):V$=FN4(Gd%+44):IFy%(_%)>=s%THEN
8730IFLENV$>15V$="..."+RIGHT$(V$,15)
8740PROC7(FN2(F%,"TooManyIt@"+STR$s%+"@"+V$),TRUE)
8750ENDIF:IFV$<>""THEN
8770Bc%=0:WHILEFN3(V$)>=FN3(g$(_%,Bc%))ANDBc%<y%(_%):Bc%+=1:ENDWHILE:F`%=0:IFBc%=y%(_%)ANDFN3(V$)=FN3(g$(_%,Bc%))F`%=TRUE
8850IFBc%>0THEN
8860IFFN3(V$)=FN3(g$(_%,Bc%-1))F`%=TRUE
8870ENDIF:IFBc%=y%(_%)ANDFN3(V$)=FN3(g$(_%,0))F`%=TRUE
8910IFF`%=0PROCO_:F`%=TRUE
8920ENDIF:ENDPROC
8950DEFPROCO_:IFBc%<>y%(_%)FORAi%=y%(_%)+1TOBc%+1STEPTRUE:g$(_%,Ai%)=g$(_%,Ai%-1):Ao%(_%,Ai%)=Ao%(_%,Ai%-1):A`%(_%,Ai%)=A`%(_%,Ai%-1):NEXT
9040g$(_%,Bc%)=V$:Ao%(_%,Bc%)=Gd%!40:A`%(_%,Bc%)=-2:y%(_%)+=1:IFEk%PROCB(_%,TRUE)
9100ENDPROC
9120DEFPROCW`(Q%,Ei%,Ek%):LOCALf%,Br%,Gi%,Lu%:Gi%=FALSE:Br%=FN6(Q%):f%=TRUE:REPEAT:f%+=1:UNTILA`%(Q%,f%)=Ei%ORf%>=s%:IFf%>=s%ANDA`%(Q%,f%)<>Ei%f%=s%+1
9170IFf%<=s%THEN
9190IFf%<>y%(Q%)Lu%=A`%(Q%,f%):FORAi%=f%+1TOy%(Q%):g$(Q%,Ai%-1)=g$(Q%,Ai%):Ao%(Q%,Ai%-1)=Ao%(Q%,Ai%):A`%(Q%,Ai%-1)=A`%(Q%,Ai%):Gi%=TRUE:NEXTELSEg$(Q%,f%)="":Ao%(Q%,f%)=TRUE
9350y%(Q%)-=1:!p%=Br%:IFGi%=0p%!4=A`%(Q%,f%)ELSEp%!4=Lu%
9400SYS262340,,p%
9420ENDIF:IFEk%PROCB(Q%,TRUE)
9450ENDIF:IFGi%=0A`%(Q%,f%)=TRUE
9470ENDPROC
9500DEFFNg(Cl%,Ps%):SYS262358,Cl%,M%,1<<21,1<<21:IFPs%=0IF!M%=-1THEN=0ELSE=TRUE
9530f%=-4:REPEAT:f%+=4:UNTILM%!f%=-1:=f%DIV4
9590DEFFN6(Q%):IFQ%=0=Bd%ELSE=Ci%
9620DEFPROCn(Q%):Br%=FN6(Q%):FORDc%=0TOs%:IFA`%(Q%,Dc%)>-1THEN!p%=Br%:p%!4=A`%(Q%,Dc%):SYS262340,,p%:A`%(Q%,Dc%)=TRUE
9710NEXT:ENDPROC
9740DEFPROCB(_%,Nk%):LOCALBr%,Dc%,l%,A_%,F_%,Fh%,As%,Da%,Lr%,Gx%,Hn%,En%,Hb%,Dy%,Y$,Hx%,Hl%,Qd%,Ou%:Br%=FN6(_%):FORDc%=0TOs%:IFA`%(_%,Dc%)>-1THEN!p%=Br%:p%!4=A`%(_%,Dc%):SYS262340,,p%:A`%(_%,Dc%)=TRUE
9840NEXT:l%=1:A_%=y%(_%):IFl%=0l%=1
9890F_%=Lm%+8:Fh%=276:IFy%(_%)<>0THEN
9950As%=0:Da%=La%(_%):Lr%=0:Gx%=0:Hn%=0:En%=0:Hb%=0:REPEAT:IFg$(_%,As%)<>""THEN
10000Dy%=385954067:Fh%=(LEN(g$(_%,As%))*Oa%)+40:F_%=Lm%+8:CASETRUEOF
10040WHENAo%(_%,As%)=4096:Y$="small_dir"
10050WHENAo%(_%,As%)=8192:Y$="sm"+FNN(g$(_%,As%)):SYS393449,24,,Y$TO;Be:IF(BeAND1)THEN
10090Y$=FNN(g$(_%,As%)):SYS393449,24,,Y$TO;Be:IF(BeAND1)Y$="small_app"ELSEDy%=Dy%OR2048
10120ENDIF
10140WHEN(Ao%(_%,As%)>=0ANDAo%(_%,As%)<=4095):Y$="small_"+RIGHT$("00"+STR$~(Ao%(_%,As%)AND4095),3):SYS393449,24,,Y$TO;Be:IF(BeAND1)THEN
10180Y$="file_"+RIGHT$("00"+STR$~(Ao%(_%,As%)AND4095),3):SYS393449,24,,Y$TO;Be:IF(BeAND1)Y$="small_xxx"ELSEDy%=Dy%OR2048
10210ENDIF
10220WHENAo%(_%,As%)=-1:Y$="small_xxx"
10230ENDCASE:SYS262377,40,,Y$TO,,,Hx%,Hl%,Qd%,Ou%:IFF_%<Hl%+8F_%=Hl%+8
10260IFHx%<34Fh%+=42ELSEFh%+=Hx%+8
10270Y$="S"+Y$:!M%=Br%:M%!4=En%+8:M%!12=En%+Fh%:M%!8=Hb%-F_%:M%!16=Hb%-1:M%!20=Dy%:M%!24=Da%:$Da%=g$(_%,As%):M%!32=LEN($Da%)+1:Da%+=M%!32:M%!28=Da%:$Da%=Y$:Da%+=(LENY$+1):SYS262338,,M%TOA`%(_%,As%):En%=M%!12:Hn%+=1:Gx%+=1:IFGx%=l%Gx%=0:Lr%+=1:En%=0:Hb%=M%!8
10460ENDIF:As%+=1:UNTILHn%=y%(_%)
10490ENDIF:SYS262353,Br%,0,-10000,10000,0:!p%=Br%:SYS262342,,p%:PROCS(p%,Br%):IF(Nk%ANDDt%(_%)=FALSE)ORDt%(_%)=TRUEPROC9(Br%,TRUE,TRUE,2):Dt%(_%)=TRUE
10560ENDPROC
10600DEFPROCb(t%):LOCALQw%:!E%=t%:SYS262344,0,E%TOMj%:PROCCa(E%+4,Qz%,Rz%):WHILEMj%:CASEt%OF
10680ENDCASE:SYS262346,0,E%TOMj%:ENDWHILE:ENDPROC
10790DEFFNi(t%):LOCALKu%:Ku%=TRUE:IFt%=O%Db%=FALSE
10830=Ku%
10970DEFPROCP`:LOCALEm%,In%:IFE%!4<>-1THEN
11000SYS262355,,v%:Em%=v%!4:CASEE%!24OF
11030WHEN27SYS262356,,TRUE:In%=TRUE
11040ENDCASE:IFIn%=FALSEAND!E%=G%THEN
11060Ds%=TRUE:CASEE%!4OF
11080WHEN2:CASEE%!24OF
11090WHEN398,13,414:Ds%=6
11100ENDCASE
11110WHEN6:CASEE%!24OF
11120WHEN399,13,415:Ds%=2
11130ENDCASE
11140WHEN18:CASEE%!24OF
11150WHEN398,13,414:Ds%=19
11160ENDCASE
11170WHEN19:CASEE%!24OF
11180WHEN399,13,415:Ds%=18
11190ENDCASE
11260ENDCASE:IFDs%>-1THEN
11280IFDs%=6Mg%=LEN(FN9(X%,!E%,6))ELSEMg%=0
11290SYS262354,!E%,Ds%,TRUE,TRUE,TRUE,Mg%
11300ENDIF
11310ENDIF
11320ENDIF:IFIn%=FALSESYS262364,E%!24
11340ENDPROC
11410DEFPROCU_:IFIz%<>-1SYSIz%
11430SYS262351,,v%:v%!20=64:v%!32=0:v%!36=1:v%!40=v%!12:v%!44=v%!16:v%!48=!v%:v%!52=v%!4:v%!56=256:v%!60=Gm%:$(v%+64)=FNN(FN9(E%,Cc%,1)):SYS262375,17,v%+20,v%!12,v%!16:ENDPROC
11550DEFPROCY`:Ix%=FNM("DragASprite_Start"):Iz%=FNM("DragASprite_Stop"):SYS6,161,28TO,,Ob:IF(ObAND2)=0Ix%=TRUE:Iz%=TRUE
11600ENDPROC
11630DEFPROCS`(K):FORR%=0TO256:v%!R%=K!R%:NEXT:K=v%:PROCj(FN4(K+44)):IFLEFT$(FN4(K+44),11)<>"<Wimp$Scrap"PROC1(E%,Cc%,1,FN4(K+44),TRUE)
11710K!12=K!8:K!16=3:!K=(((44+LEN(FN4(K+44))+1)DIV4)+1)*4:SYS262375,17,K,K!20,K!24:SYS262356,,TRUE:ENDPROC
11760DEFPROCT`(K):LOCALM_%:d%=TRUE:IFINKEY(-2)h$=FNB(1,FN4(K+44))ELSEh$=FN4(K+44)
11790Ep$=i$:CASEK!20OF
11810WHENG%:IF(K!24=0ORK!24=1ORK!24=2ORK!24=3)THEN
11830Aq%=K!40:CASETRUEOF
11850WHEN(Aq%>=0ANDAq%<=4095):Ep$=h$
11860WHENAq%=-1:Ep$=h$
11870WHENAq%=4096,Aq%=8192:Ep$=h$
11890WHEN(Aq%>=12288ANDAq%<=16383):Ep$=h$
11900OTHERWISE:i$=FN4(K+44)
11910ENDCASE:PROC1(X%,G%,2,Ep$,TRUE):PROCf(K)
11940ENDIF:IF(K!24=8OR(K!24>=14ANDK!24<=19))THEN
11960SYS8,5,FN4(K+44)TOM_%,,Gn%,Oj%:PROCf(K):IFM_%AND((Gn%>>>20)=4095)PROCp(Gn%,Oj%)
11990ENDIF
12000WHENBd%,Ci%:IFK!20=Bd%Q%=0ELSEQ%=1
12020Aq%=K!40:F$=FN4(K+44):PROCf(K):PROCh(Q%,K,TRUE)
12060WHENBf%,-2:IFK!40=Gm%PROCf(K):PROCm(FN4(K+44))
12080IFK!20=-2PROC5(Bf%):Dd%=FALSE:PROCa
12090ENDCASE:ENDPROC
12120DEFPROCf(K):K!12=K!8:K!16=4:SYS262375,17,K,K!4:ENDPROC
12170DEFPROCC`:IFAg%>=300Dl%=E%!20ELSEDl%=0
12190IFIp%=0THEN
12200Hv%=E%!4:E%!12=E%!8:SYS262375,19,E%,Hv%:IFe%THEN
12240IFFNGTHEN
12250IFx%PROCD:PROCY:e%=FALSE
12260IF(Dl%AND1)PROCG
12270SYS262355,,E%:E%!24=508:SYS262375,8,E%,Hv%:Ip%=TRUE:PROC1(E%,-2,Bo,FN0(F%,"IcWait"),TRUE):PROCL
12330ENDIF
12340ELSE:IF(Dl%AND1)PROCG
12360SYS262355,,E%:E%!24=508:SYS262375,8,E%,Hv%:Ip%=TRUE:PROC1(E%,-2,Bo,FN0(F%,"IcWait"),TRUE):PROCL
12420ENDIF
12440ENDIF:ENDPROC
12480DEFFNG:Cm%=3:PROCd(FN0(F%,"EndBackup"),7,0):IFAr%=1=TRUE
12520=FALSE
12570DEFPROCB`(E%):LOCALB_$,k$,Ad$:k$="H":Ad$="":CASEE%!32OF
12610WHEN-2:Ad$="Hiconw":k$="":IFe%Ad$+="A"ELSEAd$+="B"
12620WHENO%:k$+="mainw":CASEE%!36OF
12640WHEN7,6:E%!36=6
12660WHEN9,8:E%!36=8
12680WHEN21,19:E%!36=19
12700WHEN18,17:E%!36=17
12720WHEN14:IFAm%k$+="A"ELSEk$+="B"
12750ENDCASE
12760WHENBf%:k$+="prefs"
12770WHENG%:k$+="prefl":CASEE%!36OF
12790WHEN0,1,2,3:E%!36=0
12800WHEN4,5,6:E%!36=4
12810WHEN8,9:E%!36=8
12820WHEN16,17:E%!36=16
12830WHEN7,21:E%!36=7
12840WHEN24:E%!36=7
12850WHEN20,22:E%!36=22
12860ENDCASE
12870WHENAt%:k$+="query"
12880WHENAc%:k$+="notif"
12890WHENBd%,Ci%:k$+="seli":IFE%!32=Bd%k$+="0"ELSEk$+="1"
12900WHENCy%:k$+="infow"
12910WHENCc%:k$+="saveb"
12920OTHERWISE:IFAg%<300THEN
12930k$="XXXXXX"
12940ELSE:SYS262388,1,X%,E%!32,E%!36:CASELEFT$(Aa$,5)OF
12970WHEN"onlyt":IFX%!0=(I-1)Ad$="MHonlytE"ELSEAd$="MHonlyt0"
12990WHEN"desti":Ad$="MHdesti0"
13000OTHERWISE:k$="MH"+LEFT$(Aa$,5):E%!36=!X%
13030ENDCASE
13040ENDIF
13050ENDCASE:IFAd$=""THEN
13070IFk$<>""k$+=STR$(E%!36)
13080ELSE:k$=Ad$
13100ENDIF:B_$=FN0(F%,k$):IFB_$=""k$=LEFT$(k$,6)+"Gen":B_$=FN0(F%,k$)
13130IFB_$<>""E%!12=E%!8:E%!16=1283:$(E%+20)=B_$+CHR$0:!E%=(25+LENB_$)ANDNOT3:SYS262375,17,E%,E%!4
13200ENDPROC
13220DEFPROCN:IFCf%<>-1Fz%=Cf%ELSEFz%=5000
13250Gh%=Bw%-(HIMEM-32768)-Fz%-8:IFGh%<2OR(Di%<>0ANDGh%<El%)ORGh%<Pj%THEN
13270SYS262380,TRUE,TRUETOBw%,Md%,Mc%:SYS262380,Bw%+(Fx%),TRUETOJa%:IFJa%<Bw%+(Fx%)ERROR0,FN0(F%,"MoreRAM")
13300PROCN
13310ELSE:E`%=(Gh%-8)DIV2:M`%=HIMEM+4:Ak%=M`%+8:Hq%=M`%+Fz%+4:Nv%=Hq%+E`%:Hg%=Nv%+4:O`%=Hg%+E`%:IFO`%>(Bw%+32768)ERROR0,FN0(F%,"NoMoreRAM")
13400Cf%=Fz%
13410ENDIF:ENDPROC
13460DEFPROCa:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCAa(ERR,ERL)
13490IFi$=""ANDAp%i$=FN0(F%,"Sels")
13500IFAp%Ba%=FALSE:Cd%=FALSE:Bz%=FALSE
13510PROC1(E%,O%,1,i$,TRUE):PROC1(E%,O%,3,r$,TRUE):PROC1(E%,O%,20,"",TRUE):PROC1(E%,O%,7,"",TRUE):PROC1(E%,O%,18,"",TRUE):PROC1(E%,O%,16,"",TRUE):PROC1(E%,O%,21,"",TRUE):PROC1(E%,O%,9,"",TRUE):PROC1(E%,O%,11,"",TRUE):PROC1(E%,At%,0,"",TRUE):PROC1(E%,Ac%,0,"",TRUE):PROC9(O%,TRUE,TRUE,0):Db%=TRUE:Bp$="":IFAp%Bp$+="S"
13670IFBn%Bp$+="I"
13680IFBa%Bp$+="i"
13690IFBz%Bp$+="l"
13700IFCd%Bp$+="o"
13710IFBq%Bp$+="O"
13730IFDm%Bp$+="B"
13740IFCb%Bp$+="Mf"
13750IFC`%Bp$+="Md"
13760IFBu%Bp$+="Mi"
13790IFDi%Bp$+="b"
13800Ig$=":":PROC1(E%,-2,Bo,FN0(F%,"IcDoing"),TRUE):PROC1(E%,O%,5,Bp$,TRUE):I`%=0:Gl%=0:Gc%=100:G_%=TRUE:Am%=FALSE:PROC0(O%,13,FALSE):PROC0(O%,14,FALSE):IFi$<>FN0(F%,"Sels")PROCZ_(i$)
13930Fd$=TIME$:Jf$=MID$(Fd$,5,2)+MID$(Fd$,8,3)+MID$(Fd$,14,2):Bj%=OPENIN(i$+".BackupDate"):IFBj%CLOSE#Bj%ELSED_%=0:Cx%=0
13960Mf%=NOTBa%:Jo%=Ap%:Mi%=Bn%:Rd%=((NOTJo%)AND(NOTMi%)):Bi%=TRUE:IFBa%ANDBj%=0ANDBz%PROC7(FN0(F%,"NoDate",TRUE))
14000IFBj%ANDBz%Bj%=OPENIN(i$+".BackupDate"):INPUT#Bj%,D_%,Cx%:CLOSE#Bj%ELSED_%=0:Cx%=0
14010IFCd%PROCy(B`$,Af$)
14020o%=1:Jk%=0:Ev%=0:H_%=0:Ms%=0:Cf%=TRUE:PROCN:m%=0:!J%=-4:PROC6(J%,1,+1):Y%=2:IFAp%=0SYSBb%,5,i$TOY%,,Gn%
14150IFY%=1PROCH(FNB(1,i$))ELSEPROCH(i$)
14160PROC4(-254):PROC4(Dk*10000):PROCL`(Ga%):PROC4(Ge%):PROC4(0):Mx%=m%-4:PROCH(Fd$):IFBa%P_%=5ELSEP_%=1
14240IFAp%THEN
14250Cq%=0:PROC1(E%,O%,16,FN0(F%,"Count"),TRUE):PROCU(FNA(0)):FORKb%=0TOs%:IFg$(0,Kb%)<>""Cq%+=FNO(g$(0,Kb%))
14300NEXT:PROC1(E%,O%,16,"",TRUE)
14320ELSE:PROC1(E%,O%,16,FN0(F%,"Count"),TRUE):PROCU(FNA(0)):Cq%=FNO(i$):PROC1(E%,O%,16,"",TRUE):Rb%=Cq%
14390ENDIF:SYS66TOCn%:e%=TRUE:G_%=0:PROCc(n%):IFAp%THEN
14470J$=i$:PROCH(FN5(J$)):IFLEFT$(FN5(J$),1)="!"Y%=8192ELSEY%=4096
14500PROCP(Y%):PROC4(1):PROC8(254):PROCA(Dk*10000):PROC8(Ga%):PROCA(Ge%):PROC8(2):PROCF(i$):PROCA(0):PROCA(0):PROCA(0):PROCA(3):Ib%=FNc(0):IFIb%<=0THEN
14610PROC4(0):PROC8(3)
14630ELSE:PROC4(Ib%):Eo%=m%:FORa%=1TOIb%:PROC4(0):NEXT:R%=m%:Eh%=0:FORa%=R%-4TOEo%STEP-4:Eh%+=1:!J%=a%:PROC6(J%,1,+1):NEXT:FORKn%=0TOs%:IFg$(0,Kn%)<>""Dg%=0:PROCX(g$(0,Kn%),0)
14700NEXT
14710ENDIF
14740ELSE:IFY%=1J$=FNB(1,i$):PROCH(FN5(J$)):PROCP(FNF(Gn%)):PROC4(1):PROC8(254):PROCA(Dk*10000):PROC8(Ga%):PROCA(Ge%):PROC8(2):PROCF(J$):PROCA(0):PROCA(0):PROCA(0):PROCA(3):PROC4(1):PROC4(0):!J%=m%-4:PROC6(J%,1,+1):Dg%=0:PROCX(i$,0)ELSEPROC8(254):PROCA(Dk*10000):PROC8(Ga%):PROCA(Ge%):PROCX(i$,0)
14990ENDIF:Ak%!Mx%=o%-1:IFAg%>=300SYS263491,":"+STR$n%,,,,,,,,Ca%TOLx%,O_%ELSEPROCk(":"+STR$n%,Ca%,Lx%,O_%,R%,0)
15020IFm%>Lx%-2048PROCc(n%)
15030SYSBb%,10,r$+".KeyFile",4093,,Ak%,Ak%+m%:PROCD:SYS66TOP`%:Od%=P`%-Cn%:IFGl%>0Gc%=(I`%/Gl%)+.5ELSEGc%=100
15080IFAp%=0PROCT
15090IFBa%=0Cx%=0:D_%=0
15100IFMi%ORJo%H`$=" selectively"ELSEH`$=""
15110SYS236,Jk%,X%,256TOX%:Nm$=FN4(X%):SYS236,Cq%,X%,256TOX%:Qe$=FN4(X%):PROC1(E%,O%,16,FN2(F%,"Finished@"+Qe$+"@"+H`$+"@"+r$+"@"+Nm$)+FNU(Od%),TRUE):PROC1(E%,O%,20,STR$(o%-1),TRUE):PROC1(E%,O%,9,"0h 0m 0s",TRUE):PROC1(E%,O%,7,"100%",TRUE):PROC0(O%,13,TRUE):PROC0(O%,14,TRUE)
15170PROC1(E%,-2,Bo,FN0(F%,"IcWait"),TRUE):PROC5(At%):PROC5(Ac%):e%=FALSE:Am%=FALSE:G_%=0:RESTOREERROR:ENDPROC
15230DEFPROCAa(V%,R`%):PROC7(FN2(F%,"BackErr@"+REPORT$),TRUE):ENDPROC
15270DEFPROCy(B`$,Af$):LOCALFl%,d%,Rs%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROC7(FN2(F%,"WrongDatesC@"+FN8(ERL,ERR)),TRUE):ENDPROC
15310d%=TRUE:IFFNY(B`$,"/")<>2d%=FALSE
15350IFd%=FALSEERROR1,FN0(F%,"WrongDates")
15360Gz%=INSTR(B`$,"/"):Kr%=INSTR(B`$,"/",Gz%+1):Ea%=INSTR(Af$,":"):Mh%=INSTR(Af$,":",Ea%+1):Gt%=VAL(LEFT$(B`$,Gz%-1)):Gy%=VAL(MID$(B`$,Gz%+1,(Kr%-Gz%)-1)):Bk$=MID$(B`$,Kr%+1):d%=TRUE:CASEFNY(Af$,":")OF
15430WHEN0:Dh$="00":De$="00":Cu$="00":IFLENAf$>0IFAf$>STRING$(10," ")d%=FALSE
15440WHEN1:Dh$=(LEFT$(Af$,Ea%-1)):De$=(MID$(Af$,Ea%+1)):Cu$="00"
15470WHEN2:Dh$=(LEFT$(Af$,Ea%-1)):De$=(MID$(Af$,Ea%+1,(Mh%-Ea%)-1)):Cu$=(RIGHT$(Af$,(LENAf$-Mh%)))
15500OTHERWISE:ERROR123,"A"
15510ENDCASE:IFd%=FALSEERROR1,FN0(F%,"WrongDates")
15540Dh%=EVALDh$:De%=EVALDe$:Cu%=EVALCu$:Fl%=TRUE:IFVALBk$<1901ANDVALBk$>99Fl%=0
15560IFVALBk$>2246Fl%=FALSE
15570IFVALBk$<0Fl%=FALSE
15580IFGt%>31ORGt%<1ORGy%<1ORGy%>12ORDh%<0ORDh%>23ORDe%<0ORDe%>59ORCu%<0ORCu%>59RESTOREERROR:PROC7(FN0(F%,"BadDates"),TRUE)
15590IFFl%=0RESTOREERROR:PROC7(FN0(F%,"BadCent"),TRUE)
15600IFVALBk$<10Bk$="0"+Bk$
15610IFVALBk$<100Bk$=FN0(F%,"Century")+Bk$
15630IFAg%<300THEN
15640M%?3=2:M%?4=EVAL("&"+RIGHT$(Bk$,2)):M%?5=EVAL("&"+STR$Gy%):M%?6=EVAL("&"+STR$Gt%):M%?7=0:M%?8=EVAL("&"+STR$Dh%):M%?9=EVAL("&"+STR$De%):M%?10=EVAL("&"+STR$Cu%):SYSFf%,14,M%+3:Dq$=$(M%+3):Go%=FALSE:E%?1=0:SYSFf%,14,E%+1:M%?2=24:SYSFf%,15,M%+2TO;N:IF(NAND2)Go%=1
15880M%?2=3:SYSFf%,14,M%+2:?E%=24:SYSFf%,15,E%TO;N:IF(NAND2)Go%=2
15930D_%=M%?6:Cx%=M%!2
15950ELSE:Go%=FALSE:!M%=0:M%!4=Cu%:M%!8=De%:M%!12=Dh%:M%!16=Gt%:M%!20=Gy%:M%!24=VAL(Bk$):SYS274513,TRUE,M%+32,M%:D_%=M%?36:Cx%=M%!32
16070ENDIF:IFGo%>0ERROR1,FN0(F%,"WrongDates")
16100PROCp(D_%,Cx%):RESTOREERROR:ENDPROC
16140DEFPROCp(Bv%?4,!Bv%):LOCALGq%:SYS193,Bv%,Dx%,50,"%zdy/%zmn/%ce%yr"TO,Gq%:?Gq%=13:PROC1(E%,G%,18,$Dx%,TRUE):SYS193,Bv%,Dx%,50,"%24:%mi:%se"TO,Gq%:?Gq%=13:PROC1(E%,G%,19,$Dx%,TRUE):ENDPROC
16240DEFFNY(Al$,Ni$):LOCALR%,V%:R%=TRUE:V%=0:REPEAT:R%=INSTR(Al$,Ni$,R%+1):IFR%V%+=1
16300UNTILR%=0:=V%
16330DEFFNc(Q%):LOCALa%:Lb%=0:FORa%=0TOs%:IFg$(Q%,a%)<>""Lb%+=1
16380NEXT:=Lb%
16410DEFPROCD:IFx%PROC8(255):CLOSE#q%:x%=FALSE
16460ENDPROC
16500DEFPROCc(If%):LOCALf%,Ar%,N%:LOCALERROR:ONERRORLOCAL:RESTOREERROR:VDU7:ERROR1,REPORT$+FN8(ERL,ERR)
16540PROCK(Ae$,"DISMOUNT "+STR$n%):REPEAT:f%=FALSE:PROCv:IFf%UNTIL0
16600PROCL_:IFAr%UNTIL0
16650PROCx:IFf%UNTIL0
16680IFAg%>=300SYS394563,":"+STR$n%,,,,,,,,Ca%TOAn%,Is%;N%ELSEPROCk(":"+STR$n%,Ca%,An%,Is%,N%,1)
16700IF(N%AND1)=1f%=TRUEELSEf%=FALSE
16710IFf%UNTIL0
16720UNTIL-1:Oo%=An%:q%=OPENOUT(r$+".Backup"):x%=TRUE:An%-=1:PROCK(Ae$,"NameDisc "+STR$n%+" "+Jf$+"/"+STR$o%):PROCF(Fd$+"/"+STR$o%):o%+=1:IFIr%ORDo%PROCQ
16810RESTOREERROR:ENDPROC
16840DEFPROCL_:Ar%=FALSE:CASEFNbOF
16880WHEN0:DATA2
16890WHEN-1,-2:Ar%=TRUE
16900OTHERWISE:Ar%=FNJ:IFAr%>0ORAr%<-1Ar%=0
16910IFAr%=0PROCL_
16920ENDCASE:ENDPROC
16960DEFPROCv:CASEFNaOF
16980WHEN0:DATA2
16990WHEN-1:PROCK_
17000OTHERWISE:CASEFNJOF
17020WHEN-1:f%=TRUE
17030WHEN0:PROCv
17040ENDCASE
17050ENDCASE:ENDPROC
17080DEFPROCx:CASEFNrOF
17100WHEN0:DATA2
17110WHEN-1:PROCK_
17120OTHERWISE:CASEFNJOF
17140WHEN-1:f%=TRUE
17150WHEN0:PROCx
17160ENDCASE
17170ENDCASE:ENDPROC
17200DEFFNa:LOCALR%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCR(REPORT$+FN8(ERL,ERR)):IFFNETHEN=ERRELSE=TRUE
17240REPEAT:IFFNKPROCI(FN2(F%,"InsDisc@"+STR$o%+"@"+STR$n%),"")
17270PROCK(Ae$,"DISMOUNT "+STR$n%):PROCW(Ae$):PROCK(Ae$,"MOUNT "+STR$n%):PROCZ:R%=FNL:UNTILR%:IFR%<>-1ANDR%<>0ERRORERR,REPORT$+FN8(ERL,ERR)
17340RESTOREERROR:=FALSE
17370DEFFNb:LOCALAu$,Bs%,d%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCR(REPORT$+FN8(ERL,ERR)):IFFNETHEN=ERRELSE=TRUE
17410IFAg%>=300SYS394563,":"+STR$n%,,,,,,,,Ca%TOAn%,Is%;N%ELSEPROCk(":"+STR$n%,Ca%,An%,Is%,N%,1)
17430IF(N%AND1)=1RESTOREERROR:=TRUE
17440Au$=r$:Gu%=0:REPEAT:SYSBb%,5,Au$TOFn%:Au$=FNB(1,Au$):IFFn%=0Gu%+=1
17490UNTILFn%:Bs%=FALSE:IFAn%<(Gu%*2048)+100THEN
17520d%=0:IFFNKTHEN
17540d%=FNI(FN0(F%,"FullDisc"),"")
17550ELSE:IFIy%d%=TRUEELSEd%=FALSE
17570ENDIF:IFd%RESTOREERROR:=FNTELSERESTOREERROR:=-2
17590ELSE:PROCM_
17610ENDIF:RESTOREERROR:=Bs%
17650DEFPROCM_:CASEFNqOF
17670WHEN0,-2:Bs%=0
17680WHEN-1:Bs%=TRUE
17690OTHERWISE:CASEFNJOF
17710WHEN-1:Bs%=TRUE
17720WHEN0:PROCM_
17730ENDCASE
17740ENDCASE:ENDPROC
17770DEFFNq:LOCALd%,Lw%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCR(REPORT$+FN8(ERL,ERR)):IFFNETHEN=ERRELSE=TRUE
17810SYSAw%,9,FNk(r$),X%,1,0,256,"*"TO,,,Lw%;N%:IFLw%>0THEN
17830d%=FNK:IFd%<>0THEN
17840d%=FNI(FN0(F%,"NotBlank"),"")
17850ELSE:IFIy%=TRUEd%=TRUEELSEd%=FALSE
17870ENDIF:IFd%RESTOREERROR:=FNTELSEQm%=TRUE:RESTOREERROR:=-2
17890ENDIF:RESTOREERROR:=FALSE
17930DEFFNk(R$):WHILERIGHT$(R$)<>"$":R$=FNB(1,R$):ENDWHILE:=R$
17990DEFFNT:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCR(REPORT$+FN8(ERL,ERR)):IFFNETHEN=ERRELSE=TRUE
18020SYSGv%,"Wipe "+FNf(r$)+".$.* RF~C~V":RESTOREERROR:=FALSE
18060DEFFNr:LOCALU%,Au$,Fn%:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCR(REPORT$+FN8(ERL,ERR)):IFFNETHEN=ERRELSE=TRUE
18100IFGu%>0THEN
18110FORU%=Gu%-1TO0STEPTRUE:Au$=FNB(U%,r$):SYSBb%,5,Au$TOFn%:IF(NOTFn%)SYSGv%,"Cdir "+Au$
18150NEXT
18160ENDIF:RESTOREERROR:=FALSE
18200DEFFNJ:LOCALd%:LOCALERROR:ONERRORLOCALRESTOREERROR:=ERR
18240d%=(FNK=0):IFd%=0d%=(FNI(FN2(F%,"ContDisc@"+REPORT$),"")=0)
18260RESTOREERROR:=d%
18290DEFFNE:LOCALN%:N%=TRUE:CASEERROF
18330WHEN67785
18340WHEN67795
18350WHEN67797
18360OTHERWISE:N%=FALSE
18370ENDCASE:=N%
18400DEFPROCK_:CASEFNtOF
18420WHEN0:f%=TRUE:Ar%=TRUE
18430WHEN-1:f%=0:Ar%=0
18440OTHERWISE:f%=0:Ar%=0
18460ENDCASE:ENDPROC
18500DEFFNt:LOCALJp%:LOCALERROR:ONERRORLOCALRESTOREERROR:=ERR
18540Jp%=FNI(FN2(F%,"OKForm@"+REPORT$+FN8(ERL,ERR)),""):IFJp%PROCI(FN2(F%,"FormDisc@"+STR$o%+"@"+STR$n%),"format")
18570RESTOREERROR:=FALSE
18600DEFFNK:LOCALDu%:Du%=TRUE:IFKh%IFo%=1Du%=FALSE
18630=Du%
18650DEFPROCl:PROC1(E%,O%,16,"",TRUE):ENDPROC
18690DEFPROCI(Ad$,Fr$):SYS66TOEf%:Oc%=Ef%-Cn%:SYS53,TRUE,11TO,,Ro%:SYS53,TRUE,12TO,,Rt%:PROC0(O%,13,TRUE):PROC0(O%,14,TRUE):PROC1(E%,Ac%,0,Ad$,TRUE):PROC9(Ac%,0,TRUE,0):REPEAT:Ej%=FNA(0):Co%=FALSE:CASEEj%OF
18830WHEN0:IFFr$<>""Im%=FNQ
18840WHEN1:PROCb(!E%)
18850WHEN2:PROC9(!E%,TRUE,0,TRUE)
18860WHEN6:IFTRUETHEN
18880CASEE%!8OF
18890WHEN2:IFE%!12=O%ORE%!12=Ac%ORE%!12=At%PROC`ELSEPROCV
18900WHEN1,4:IFE%!12=Ac%ANDE%!16=1Co%=TRUE
18910ENDCASE
18920ENDIF
18930WHEN8:SYS262364,E%!24
18940WHEN9:IFAa$<>""PROCg(Aa$)
18950WHEN17,18:PROCe(E%,TRUE)
18960ENDCASE:UNTILCo%<>0:PROC5(Ac%):PROC0(O%,13,0):PROC0(O%,14,0):SYS66TOCh%:Cn%=Ch%-Oc%:ENDPROC
19060DEFFNI(Ad$,Fr$):SYS66TOEf%:Nl%=Ef%-Cn%:PROC0(O%,13,TRUE):PROC0(O%,14,TRUE):PROC1(E%,At%,0,Ad$,TRUE):PROC9(At%,0,TRUE,0):REPEAT:Ej%=FNA(0):Co%=FALSE:CASEEj%OF
19170WHEN0:IFFr$<>""Im%=FNQ
19180WHEN1:PROCb(!E%)
19190WHEN2:PROC9(!E%,TRUE,0,TRUE)
19200WHEN6:IFTRUETHEN
19210PROCs(2,M%,E%!8,E%!12,E%!16):CASEE%!8OF
19230WHEN2:IFE%!12=O%ORE%!12=At%ORE%!12=Ac%PROC`ELSEPROCV
19240WHEN1,4:IFE%!12=At%THEN
19250IFE%!16=1Co%=TRUE
19260IFE%!16=2Co%=2
19270ENDIF
19280ENDCASE
19290ENDIF
19300WHEN8:SYS262364,E%!24
19310WHEN9:IFAa$<>""PROCg(Aa$)
19320WHEN17,18:PROCe(E%,TRUE)
19330ENDCASE:UNTILCo%:PROC5(At%):PROC0(O%,13,0):PROC0(O%,14,0):IFCo%=2Co%=FALSE
19400SYS66TOCh%:Cn%=Ch%-Nl%:=Co%
19450DEFPROCC(Ad$):PROC1(E%,O%,16,Ad$,TRUE):ENDPROC
19500DEFFNQ:LOCALERROR:ONERRORLOCALRESTOREERROR:PROC0(Ac%,1,FALSE):=TRUE
19530PROC0(Ac%,1,TRUE):IFFNoTHENR%=FNl
19550IFR%PROC7(FN0(F%,"BadForm"),0)
19560PROC0(Ac%,1,FALSE):Fr$="":RESTOREERROR:=0
19610DEFFNo:LOCALERROR:ONERRORLOCALRESTOREERROR:=TRUE
19640SYSGv%,"-"+Ae$+"-FORMAT "+STR$n%+" F Y { > null: }":RESTOREERROR:=0
19680DEFFNl:LOCALERROR:ONERRORLOCALRESTOREERROR:=TRUE
19710SYSGv%,"-"+Ae$+"-FORMAT "+STR$n%+" E Y { > null: }":RESTOREERROR:=0
19750DEFFNn(Au$):LOCALY%:LOCALERROR:ONERRORLOCALRESTOREERROR:=0
19790SYSBb%,5,Au$TOY%:RESTOREERROR:=Y%
19830DEFPROCZ_(Au$):IFFNn(Au$)=0PROC5(O%):Db%=0:PROC9(Bf%,TRUE,TRUE,0):PROC7(FN0(F%,"NoSrc"),TRUE)
19850ENDPROC
19870DEFFNp(If$):IFAg%>=300SYS263490,,,,,,,,,Ca%TOPl%,Dj%,Mn%ELSEPROCE`(Ca%,Pl%,Dj%,Mn%)
19890IFVALIf$>Dj%PROC7(FN0(F%,"NoDest"),TRUE)
19900=VALIf$
19920DEFPROCk(Po$,Nq%,RETURNIw%,RETURNHi%,RETURNN%,Pm%):$Df%=Po$:A%=Df%:H%=Nq%:IFPm%CALLPtELSECALLNj
19970Iw%=!Df%:Hi%=Df%!4:N%=Df%!8:ENDPROC
20020DEFPROCE`(Nz%,RETURNIw%,RETURNHi%,RETURNPu%):H%=Nz%:CALLMr:Iw%=!Df%:Hi%=Df%!4:Pu%=Df%!8:ENDPROC
20110DEFFNS(h$):R%=INSTR(h$,":"):=LEFT$(h$,R%-1)
20150DEFFNX(h$):R%=INSTR(h$,":"):R%=INSTR(h$,":",R%+1):Hm$=MID$(h$,R%+1,1):IFHm$<"0"ORHm$>"7"PROC7(FN0(F%,"NoDest"),TRUE)
20200=FNp(Hm$)
20220DEFFN_(h$):IFAg%>=300THEN
20240SYS131107,"FileSwitch$TemporaryFilingSystem",X%,256TO,,Qi%,Rp%;N%:IF(N%AND1)Fc$=""ELSEFc$=FNH(X%,Qi%)
20260ELSE:Fc$="ADFS"
20280ENDIF:SYS41,11,h$TO,Se%,d%,Jr%:IFd%=-1PROC7(FN0(F%,"BadDest"),TRUE)
20310SYS41,20TO,Qf%,Ne%:SYS41,11,Fc$:$X%="FileCore":SYS30,18,X%TO,Rg%,Qv%,Or%,Qu%:IFOr%<>Qf%PROC7(FN0(F%,"NotFC"),TRUE)
20360=Ne%
20380DEFFNZ(h$):R%=0:Ln%=0:REPEAT:Ln%=R%:R%=INSTR(h$,"$",R%+1):UNTILR%=0:Au$=RIGHT$(h$,LENh$-(Ln%-1)):IFRIGHT$(Au$,1)="."PROC7(FN0(F%,"BaDPath"),TRUE)
20460=Au$
20480DEFFNf(h$):R%=INSTR(h$,"$"):=LEFT$(h$,R%-2)
20520DEFPROCT:LOCALU%:IFDm%THEN
20550SYSBb%,5,i$TOY%:IFY%=1Rw$=i$:i$=FNB(1,i$)
20560OSCLI("Create "+i$+".BackupDate 0"):SYSBb%,5,i$+".BackupDate"TOd%,,K`%,Ly%:IF(NOT(d%<>FALSE))PROC7(FN0(F%,"BDErr"),0):ENDPROC
20590Bj%=OPENUP(i$+".BackupDate"):PRINT#Bj%,K`%,Ly%:!p%=Ly%:p%?4=K`%AND255:SYS192,p%,p%+8,248TO,U%:?U%=13:BPUT#Bj%,10:BPUT#Bj%,$(p%+8):CLOSE#Bj%
20680ENDIF:ENDPROC
20710DEFFNB(Jx%,Al$):LOCALU%:IFJx%FORU%=1TOJx%:WHILERIGHT$(Al$,1)<>".":Al$=LEFT$(Al$,LENAl$-1):ENDWHILE:Al$=LEFT$(Al$,LENAl$-1):NEXT
20810=Al$
20830DEFPROCX(Bs$,Dg%):LOCALY%:PROCQ:SYSBb%,5,Bs$TOY%:CASEY%OF
20880WHEN1:PROCq(Bs$)
20890WHEN2:PROCZ`(Bs$)
20900WHEN3:CASETRUEOF
20910WHENCb%:PROCq(Bs$)
20920WHENC`%:PROCT_(Bs$)
20930WHENBu%:PROCI_
20940ENDCASE
20950ENDCASE:ENDPROC
20980DEFPROCI_:PROC6(J%,1,TRUE):Ak%!(!J%)=TRUE:ENDPROC
21030DEFPROCH_(k$,Ii%):Cq%-=c%!8:IFIi%<>0PROCC(FN2(F%,"CantArc@"+N$+"@"+k$+"/"+FND(Ii%)))ELSEPROCC(FN2(F%,"CantArc@"+N$+"@"+k$))
21060VDU7:VDU7:IFDr%=0PROCI(FN2(F%,"CantArc@"+N$+"@"+k$+"/"+FND(Ii%)),"")
21100PROCBa(H_%-Pp%):PROC6(J%,1,TRUE):Ak%!Of%=TRUE:m%=N`%:ENDPROC
21160DEFPROCq(N$):LOCALj%,Gb$,Eg%,Qo%,Al$,Qx$,b%,L`%,Jq%:LOCALERROR:Pp%=H_%:PROC6(J%,1,TRUE):Of%=!J%:PROC6(J%,1,+1):N`%=m%:ONERRORLOCALRESTOREERROR:PROCH_(REPORT$,ERL):ENDPROC
21230c%!8=0:SYSBb%,5,N$TO,,!c%,c%!4,c%!8,c%!12:IF(c%!12AND17)=0PROCH_(FN2(F%,"AccVio@"+FN5(N$)),0):ENDPROC
21260PROCX`:IFDo%PROCQ
21280Jq%=FALSE:b%=FALSE:IF(!c%>>>20)=4095THEN
21300L`%=FN`(!c%,c%!4,D_%,Cx%):IFL`%=-1ANDBa%PROCC(FN2(F%,"TooOld@"+FN5(N$)+"@"+FNj(!c%,c%!4))):b%=TRUE
21320ENDIF:IFb%PROC6(J%,1,TRUE):Ak%!(!J%)=TRUE:RESTOREERROR:ENDPROC
21340b%=FALSE:IFBn%THEN
21360Gb$=FN3(N$):Du%=FALSE:Ct%=FALSE:FORa%=0TOy%(1):IFN$=g$(1,a%)Du%=FALSE:Ct%=TRUE
21400NEXT:IFCt%b%=TRUE
21430ENDIF:IFDo%PROCQ
21450IFb%PROCC(FN2(F%,"NoFCopy@"+FN5(N$))):PROC6(J%,1,TRUE):Ak%!(!J%)=TRUE:RESTOREERROR:ENDPROC
21460IFBq%ANDBi%=TRUETHEN
21470b%=TRUE:Aq%=FNF(!c%):U%=1:REPEAT:IF(w%(U%)=Aq%ANDAb%(U%))b%=FALSE
21520U%+=1:UNTILw%(U%)=-2:IFb%PROCI_:RESTOREERROR:ENDPROC
21550ENDIF:Ms%+=c%!8:PROC6(J%,1,TRUE):Ak%!(!J%)=m%:PROCH(FN5(N$)):IF(!c%>>>20)=4095Cz%=(!c%>>>8)AND4095:PROCP(Cz%)ELSEPROCP(TRUE)
21610PROC4(c%!8):!J%=m%:PROC4(0):PROC6(J%,1,+1):PROC4(o%-1):PROC4(PTR#q%):Mw%=o%:Ck%=PTR#q%:Ay%=o%:PROC8(1):PROCF(FN5(N$)):PROCO(c%,16):Fk%=OPENIN(N$):Ry%=c%!8:Rc%=FALSE:IFc%!8=0Og%=TRUEELSEOg%=FALSE
22510IFFALSETHEN
22530ELSE:PTR#Fk%=0:PROC8(0):Cs%=c%!8:WHILECs%>0:IFAn%=0CLOSE#q%:x%=FALSE:PROCc(n%)
22600Aj%=(E`%*2)-4:IFAj%>Cs%Aj%=Cs%
22620IFAj%>An%Aj%=An%
22640SYSAw%,4,Fk%,Hq%,Aj%:SYSAw%,2,q%,Hq%,Aj%:Cs%-=Aj%:An%-=Aj%:ENDWHILE:Jq%=TRUE:PROCC(FN5(N$)+" 100%"):Jk%+=c%!8:I`%+=100:Gl%+=1:Gc%=(I`%/Gl%)+.5:Ev%+=c%!8:IFCq%>0Kq%=((Ev%/Cq%)*100)+.5ELSEKq%=0
22770PROC1(E%,O%,7,(STR$Kq%)+"%",TRUE):PROC1(E%,O%,21,(STR$Gc%)+"%",TRUE):PROC1(E%,O%,11,(STR$(o%-1)),TRUE):IFEv%>0SYS66TOCh%:Dq%=Ch%-Cn%:Pr%=Dq%*(Cq%/Ev%):Ee%=Pr%-Dq%:Ee$=FNU(Ee%):Ha%=((o%-1)-(An%/Oo%))*(Cq%/Ev%)+.9999:Ha$=STR$Ha%ELSEEe%=TRUE:Ee$="????":Ha$="????"
22940PROC1(E%,O%,20,Ha$,TRUE):PROC1(E%,O%,9,Ee$,TRUE)
22960ENDIF:CLOSE#Fk%:PROC6(J%,1,TRUE):Ak%!(!J%)=((Mw%-1)-(o%-1)):RESTOREERROR:ENDPROC
23030DEFPROCZ`(J$):LOCALV%,Cw%,j%:N$=J$:IFIr%ORDo%PROCF_
23070Ck%=PTR#q%:Ay%=o%:V%=0:SYSAw%,9,J$,X%,1,V%,256,"*"TO,,,Cw%,V%:b%=FALSE:IFBn%THEN
23130Eg%=FALSE:Gb$=FN3(J$):Du%=TRUE:Ct%=FALSE:FORa%=0TOy%(1):IFGb$=FN3(g$(1,a%))Du%=FALSE:Ct%=TRUE:Eg%=TRUE
23180NEXT:IFCt%b%=TRUE
23210ENDIF:IFDo%PROCQ
23230IFb%PROCC(FN2(F%,"NoDCopy@"+FN5(J$))):Ck%=PTR#q%:Ay%=o%:PROC8(3):PROC6(J%,1,TRUE):Ak%!(!J%)=TRUE:ENDPROC
23240Ck%=PTR#q%:Ay%=o%:PROC8(2):IFDg%=0ANDAp%=0PROCF(J$)ELSEPROCF(FN5(J$))
23260SYS8,5,J$TO,,!c%,c%!4,c%!8,c%!12:PROCO(c%,16):PROC6(J%,1,TRUE):Ak%!(!J%)=m%:PROCH(FN5(J$)):IFLEFT$(FN5(J$),1)="!"Y%=8192ELSEY%=4096
23320PROCP(Y%):PROC4(o%-1):Dn%=0:Cr%=0:REPEAT:SYSAw%,9,J$,Hg%,TRUE,Dn%,E`%,"*"TO,,,Ht%,Dn%:Cr%+=Ht%:UNTILDn%=-1:PROC4(Cr%):IFCr%Eo%=m%:FORa%=1TOCr%:PROC4(0):NEXT:R%=m%:Eh%=0:FORa%=R%-4TOEo%STEP-4:Eh%+=1:!J%=a%:PROC6(J%,1,+1):NEXT
23470IFCw%=0THEN
23480PROCC(FN2(F%,"DirEmpty@"+J$))
23490ELSE:WHILEV%>=0:j%=0:WHILEj%?X%>0:j%+=1:ENDWHILE:j%?X%=13:IFBq%IFFN3($X%)="!DOCDATA"ANDAb%(0)Bi%=Dg%
23580PROCX(J$+"."+$X%,Dg%+1):SYSAw%,9,J$,X%,1,V%,256,"*"TO,,,,V%:ENDWHILE
23610ENDIF:IFDg%=Bi%Bi%=TRUE
23630Ck%=PTR#q%:Ay%=o%:PROC8(3):ENDPROC
23660DEFPROCT_(J$):LOCALV%,Cw%,j%,a%:N$=J$:SYSBb%,5,J$TOY%,,!c%,c%!4,c%!8,c%!12:IFBq%ANDBi%=TRUETHEN
23710b%=TRUE:Aq%=FNF(!c%):U%=1:REPEAT:IF(w%(U%)=Aq%ANDAb%(U%))b%=FALSE
23760U%+=1:UNTILw%(U%)=-2:IFb%ENDPROC
23790ENDIF:IFIr%ORDo%PROCF_
23820Ck%=PTR#q%:Ay%=o%:PROC8(4):IFDg%=0PROCF(J$)ELSEPROCF(FN5(J$))
23850PROCO(c%,16):Cz%=(!c%AND&FFF00)>>8:V%=0:SYSAw%,9,J$,X%,1,V%,256,"*"TO,,,Cw%,V%:b%=FALSE:IFDo%PROCQ
23910IFBn%THEN
23920Eg%=FALSE:Pn$=FN3(J$):FORa%=0TOy%(1):IFPn$=FN3(g$(1,a%))Eg%=TRUE
23960NEXT:IFEg%b%=TRUE
23980ENDIF:IFb%PROCC(FN2(F%,"NoCopy@"+FN5(J$))):Ck%=PTR#q%:Ay%=o%:PROC8(3):PROC6(J%,1,TRUE):Ak%!(!J%)=TRUE:ENDPROC
24000PROC6(J%,1,TRUE):Ak%!(!J%)=m%:PROCH(FN5(J$)):Y%=12288ORCz%:PROCP(Y%):PROC4(o%-1):Dn%=0:Cr%=0:REPEAT:SYSAw%,9,J$,Hg%,TRUE,Dn%,E`%,"*"TO,,,Ht%,Dn%:Cr%+=Ht%:UNTILDn%=-1:PROC4(Cr%):IFCr%Eo%=m%:FORa%=1TOCr%:PROC4(0):NEXT:R%=m%:Eh%=0:FORa%=R%-4TOEo%STEP-4:Eh%+=1:!J%=a%:PROC6(J%,1,+1):NEXT
24170IFCw%=0PROCC(FN2(F%,"ImgEmpty@"+J$))ELSEWHILEV%>=0:j%=0:WHILEj%?X%>0:j%+=1:ENDWHILE:j%?X%=13:PROCX(J$+"."+$X%,Dg%+1):SYSAw%,9,J$,X%,1,V%,256,"*"TO,,,,V%:ENDWHILE
24310Ck%=PTR#q%:Ay%=o%:PROC8(5):ENDPROC
24340DEFPROCY:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCC(FN2(F%,"DrvError@"+STR$n%+"@"+REPORT$))
24370IFx%CLOSE#q%:x%=FALSE
24380Ay%=o%:IFo%-1=0RESTOREERROR:ENDPROC
24390REPEAT:PROCK(Ae$,"DISMOUNT "+STR$n%):REPEAT:IFFNL<>TRUEPROCI(FN2(F%,"InsEnd@"+STR$(Ay%-1)),"")
24440UNTILFNL=TRUE:PROCW(Ae$):SYS41,0,r$:SYSAw%,5,,X%:Ec$=FNH(X%+1,?X%):PROCZ:R%=1:IFRIGHT$(Ec$,LEN(STR$(Ay%-1)))<>STR$(Ay%-1)PROCI(FN2(F%,"InsEnd@"+STR$(Ay%-1)),"")
24510UNTILRIGHT$(Ec$,LEN(STR$(Ay%-1)))=STR$(Ay%-1):C_%=OPENUP(r$+".Backup"):PTR#C_%=Ck%:EXT#C_%=Ck%:BPUT#C_%,255:CLOSE#C_%:x%=FALSE:RESTOREERROR:ENDPROC
24630DEFFNL:LOCALERROR:ONERRORLOCALRESTOREERROR:PROCR(REPORT$+FN8(ERL,ERR)):PROCD`:IFFNE=0THEN=FALSEELSE=ERR
24660Jc%=0:IFFN3(Ae$)="ADFS"SYS262724,&FF0000,0TO,,Jj%:Jc%=TRUE
24680PROCW(Ae$):PROCK(Ae$,"MOUNT "+STR$n%):PROCZ:IFFN3(Ae$)="ADFS"SYS262724,TRUE,Jj%:Jc%=0
24720RESTOREERROR:=TRUE
24750DEFPROCD`:IFFN3(Ae$)="ADFS"ANDJc%=TRUESYS262724,TRUE,Jj%
24770ENDPROC
24790DEFPROCBa(V%):LOCALI%:I%=V%:IFPTR#q%<I%THEN
24830I%-=PTR#q%:CLOSE#q%:Hz%=o%-1:PROCW(Ae$):SYS41,0,r$:SYSAw%,5,,X%:Nu$=FNH(X%+1,?X%):PROCZ:Ka$=Jf$+"/"+STR$(Hz%-1):Ec$=Nu$:REPEAT:PROCK(Ae$,"DISMOUNT "+STR$n%):REPEAT:Mb%=FNL:IFMb%<>TRUEPROCI(FN2(F%,"ReInsDisc@"+STR$(Hz%-1)+"@"+STR$n%),"")
24970UNTILMb%=TRUE:PROCW(Ae$):SYS41,0,r$:SYSAw%,5,,X%:Ec$=FNH(X%+1,?X%):PROCZ:R%=1:Kx%=(Ec$=Ka$):IFKx%<>TRUEPROCI(FN2(F%,"ReInsDisc@"+STR$(Hz%-1)+"@"+STR$n%),"")
25050UNTILKx%:C_%=OPENUP(Ae$+"::"+Ka$+"."+Hj$+".Backup"):PTR#C_%=EXT#C_%:EXT#C_%=EXT#C_%-I%:q%=C_%:An%=EXT#Fk%-PTR#Fk%
25110ELSE:PTR#q%=PTR#q%-I%:An%-=I%
25140ENDIF:H_%-=V%:ENDPROC
25760DEFPROCK(Fc$,Hs$):LOCALQb%,Jr%,N%:SYS41,11,Fc$+":$"TO,,Qb%,Jr%:SYS131077,Hs$TO;N%:SYS41,19:ENDPROC
25830DEFPROCW(Jd$):LOCALKv%:IFAg%<300Fa$="":ENDPROC
25860SYS41,54,E%,0,Jd$,,Ks%TO,Kv%:IFKv%=0Fa$=" "+Jd$:ENDPROC
25880Fa$=Jd$+":"+FN4(E%):ENDPROC
25910DEFPROCZ:IFFa$=""ENDPROC
25930IFLEFT$(Fa$,1)<>" "SYS41,0,Fa$:ENDPROC
25940SYS41,43:ENDPROC
25970DEFFNH(Gd%,Fv%):LOCALJy%,u$:u$="":FORJy%=0TOFv%-1:u$+=CHR$(Gd%?Jy%):NEXT:=u$
26070DEFFNO(f$):SYS263872:G`%=0:PROCw(f$):SYS263873:=G`%
26140DEFPROCw(V$):LOCALY%,a%,Ct%:IFBn%THEN
26170Gb$=FN3(V$):Ct%=FALSE:FORa%=0TOy%(1):IFN$=g$(1,a%)Ct%=TRUE
26200NEXT
26210ENDIF:IFCt%ENDPROC
26230SYSBb%,5,V$TOY%,,Ew%,Lq%,Fv%:CASEY%OF
26250WHEN1:PROCu(V$)
26260WHEN2:PROCE_(V$)
26270WHEN3:IFC`%PROCE_(V$)
26280IFCb%PROCu(V$)
26290ENDCASE:ENDPROC
26320DEFPROCE_(J$):LOCALV%,Cw%,j%:V%=0:SYSBb%,5,J$TOB_%:IFBq%ANDB_%=3THEN
26370b%=TRUE:Aq%=FNF(Ew%):U%=1:REPEAT:IF(w%(U%)=Aq%ANDAb%(U%))b%=FALSE
26420U%+=1:UNTILw%(U%)=-2:IFb%ENDPROC
26450ENDIF:SYSAw%,9,J$,X%,1,V%,256,"*"TO,,,Cw%,V%:IFCw%=0THEN
26500ELSE:WHILEV%>=0:j%=0:WHILEj%?X%>0:j%+=1:ENDWHILE:j%?X%=13:IFBi%>-1Bi%+=1
26580IFFN3($X%)="!DOCDATA"ANDAb%(0)ANDBi%=TRUEBi%=0
26600PROCw(J$+"."+$X%):SYSAw%,9,J$,X%,1,V%,256,"*"TO,,,,V%:IFBi%>-1Bi%-=1
26630ENDWHILE
26640ENDIF:ENDPROC
26670DEFPROCu(N$):SYSBb%,5,N$TO,,Ew%,Lq%,By%:IFBq%THEN
26700b%=TRUE:Aq%=FNF(Ew%):U%=1:REPEAT:IF(w%(U%)=Aq%ANDAb%(U%))b%=FALSE
26750U%+=1:UNTILw%(U%)=-2:IFBi%=-1IFb%ENDPROC
26780ENDIF:IFBa%THEN
26800IF((Ew%AND4095)>>20)=4095THEN
26810IF(D_%AND255)<(Ew%AND255)THEN
26820R%=FNR(Lq%,Cx%):IFR%>=1G`%+=By%
26840ENDIF
26850ELSE:G`%+=Fv%
26870ENDIF
26880ELSE:G`%+=Fv%
26900ENDIF:ENDPROC
26930DEFPROCF_:h$=LEFT$(J$,LEN(J$)-(1+LEN(FN5(J$)))):PROC1(E%,O%,18,Q_$+" "+h$,TRUE):ENDPROC
26990DEFPROCX`:PROC1(E%,O%,18,Pk$+" "+N$,TRUE):ENDPROC
27030DEFFNj(Nb%,Nw%):LOCALa%,Dq$:!Bv%=Nw%:Bv%!4=Nb%:SYS192,Bv%,Dx%,50TO,Qc%:Dq$="":FORa%=Dx%TOQc%-1:Dq$+=CHR$(?a%):NEXT:=Dq$
27130DEFFNU(Pg%):Lf=Pg%/100:Ot=LfMOD60:Lg%=LfDIV60:Mo%=Lg%MOD60:Li%=Lg%DIV60:Oe%=Li%:Rl%=Li%DIV24:=STR$Oe%+"h "+STR$Mo%+"m "+STR$(INTOt)+"s"
27200DEFFNF(Kl%):IF(Kl%>>>20)<>4095THEN=TRUE
27220=(Kl%>>>8)AND4095
27240DEFFN`(Pa%,Mz%,Qa%,Pv%):Hu%=FNW(Pa%):Jb%=FNW(Qa%):IFHu%>Jb%THEN=+1
27300IFHu%<Jb%THEN=TRUE
27310Bm%=FNR(Mz%,Pv%):IFBm%=0ANDHu%=Jb%THEN=0
27330=Bm%
27350DEFPROCH(u$):IFCf%-8<m%+LENu$+1Cf%+=1000:PROCN
27400$(Ak%+m%)=u$:Ak%?(m%+LENu$)=0:m%+=LENu$+1:ENDPROC
27450DEFPROC4(K%):IFCf%-8<m%+4Cf%+=1000:PROCN
27520Ak%!m%=K%:m%+=4:ENDPROC
27560DEFPROCL`(K%):IFCf%-8<m%+1Cf%+=1000:PROCN
27580Ak%?m%=K%:m%+=1:ENDPROC
27620DEFPROCP(K%):PROC4(K%):ENDPROC
27670DEFPROCA(!J%):PROCO(J%,4):ENDPROC
27710DEFPROCF($J%):PROCO(J%,LEN($J%)+1):ENDPROC
27750DEFPROCR(Rm$):ENDPROC
27800DEFPROC8(?J%):PROCO(J%,1):ENDPROC
27840DEFPROCO(Jt%,Cs%):WHILECs%>0:IFAn%=0CLOSE#q%:x%=FALSE:PROCc(n%)
27870Aj%=E`%:IFAj%>Cs%Aj%=Cs%
27890IFAj%>An%Aj%=An%
27900SYSAw%,2,q%,Jt%,Aj%:H_%+=Aj%:Jt%+=Aj%:Cs%-=Aj%:An%-=Aj%:ENDWHILE:ENDPROC
29080DEFFN5(N$):LOCALj%:j%=LEN(N$)+1:REPEAT:j%-=1:UNTILj%=0ORMID$(N$,j%,1)=".":=MID$(N$,j%+1)
29160DEFPROC6(A%,B%,C%):CALLNs:ENDPROC
29200DEFPROCM`:Kt%=4096:DIMJs%Kt%:FORKd%=8TO10STEP2:P%=Js%:L%=Js%+Kt%:[OPTKd%:.N_%:ADR1,Df%:STR0,[1]:STR2,[1,#4]:SWI262350:LDR3,[1,#24]:AND0,3,#1<<21:AND1,3,#1<<22:MOVPC,14:.Na%:ADR1,Df%:STR0,[1]:STR2,[1,#4]:AND3,3,#1<<21:STR3,[1,#8]:MOV4,#1<<21:STR4,[1,#12]:SWI262349
29500MOVPC,14:.Oy%:ADR1,Df%:STR0,[1]:STR2,[1,#4]:AND3,3,#1<<22:STR3,[1,#8]:MOV4,#1<<22:STR4,[1,#12]:SWI262349:MOVPC,14:.Df%:FNP(100):.Nj:FNV(""):.Pt:FNV("X"):.Mr:MOV8,7:SWI263490:ADR9,Df%:STMEA9,{0-2}:MOVpc,14:.Qp:ADR1,Df%:ADD1,1,#2:MOV4,#0:STRB4,[1]:MOV5,#24
29910STRB5,[2]:MOV0,#14:SWI7:MOVCS0,#1:MOVCSPC,14:MOV1,2:MOV0,#15:SWI7:BCSRa:SUB2,2,#1:MOV1,2:MOV0,#14:MOV4,#3:STRB4,[1]:SWI7:BCSRa:SUB6,6,#1:MOV1,6:MOV0,#15:MOV5,#24:STRB5,[1]:SWI7:MOV0,2:MOVPC,14:.Ra:MOV0,#15:MOV5,#24:STRB5,[6]:MOV1,6:SUB1,1,#1:SWI7
30240MOV0,#0:MOVPC,14:.Ns:STMFD13!,{0-5,14}:ADR3,S_:LDR4,Ri:CMP2,#1:LDREQ5,[0]:STREQ5,[3,4]:ADDEQ4,4,#4:STREQ4,Ri:LDMEQFD13!,{0-5,PC}:CMN2,#1:SUBEQ4,4,#4:LDREQ5,[3,4]:STREQ5,[0]:STREQ4,Ri:MOVEQ0,5:LDMEQFD13!,{0-5,PC}:ADR0,Rx:SWI43:LDMFD13!,{0-5,PC}:.Rx:DCD495
30540EQUSFN0(F%,"BadSkOp"):DCB0:ALIGN:.Ri:DCD4:.S_:FNP(1028):]:NEXT:ENDPROC
30650DEFFNV(l$):[OPTKd%:MOV8,7:SWIl$+"FileCore_FreeSpace":ADR9,Df%:STR0,[9]:STR1,[9,#4]:MOV7,pc,LSR#28:STR7,[9,#8]:MOVpc,14:]:=Kd%
30780DEFPROCG_:LOCALERROR:ONERRORLOCALRESTOREERROR:VDU7,7,4:PRINTTAB(0,1);"Fatal error: ";REPORT$,FN8(ERL,ERR):END
30810PROCJ`(F%):RESTOREERROR:ENDPROC
30850DEFFNP(I%):P%+=I%:[OPTKd%:ALIGN:]:Ig$="$":=Kd%
30930DEFFNW(Hy%):!Cp%=Hy%:=?Cp%
30960DEFFNR(Lc%,Jv%):!Cp%=Lc%:Cp%!4=Jv%:Gj%=Cp%+4:Ax%=Cp%?3:Az%=Gj%?3:IFAx%>Az%Bm%=+1
31000IFAx%<Az%Bm%=TRUE
31010IFAx%=Az%THEN
31020Ax%=Cp%?2:Az%=Gj%?2:IFAx%>Az%Bm%=+1
31040IFAx%<Az%Bm%=TRUE
31050IFAx%=Az%THEN
31060Ax%=Cp%?1:Az%=Gj%?1:IFAx%>Az%Bm%=+1
31080IFAx%<Az%Bm%=TRUE
31090IFAx%=Az%THEN
31100Ax%=?Cp%:Az%=?Gj%:IFAx%>Az%Bm%=+1
31120IFAx%<Az%Bm%=TRUE
31130IFLc%=Jv%Bm%=0
31140ENDIF
31150ENDIF
31160ENDIF:=Bm%
31200DEFPROCj(F$):LOCALERROR:ONERRORLOCALRESTOREERROR:SYS263873:CLOSE#`%:ERRORERR,REPORT$+"/"+FND(ERL)
31230PROCi:SYS263872:`%=OPENOUTF$:BPUT#`%,"# HardBack script file created by !Backup "+Dk$:BPUT#`%,"# on "+TIME$:BPUT#`%,10:BPUT#`%,"Type "+STR$Ky:BPUT#`%,10:BPUT#`%,"source "+i$:BPUT#`%,"destination "+r$:BPUT#`%,10:H`$=FNC(Ap%):BPUT#`%,"selected "+H`$+":":FORU%=0TOs%
31370IFg$(0,U%)<>""BPUT#`%,g$(0,U%)+" "+STR$~Ao%(0,U%)
31380NEXT:BPUT#`%,10:Qj$=FNC(Bn%):BPUT#`%,"ignored "+Qj$+":":FORU%=0TOs%:IFg$(1,U%)<>""BPUT#`%,g$(1,U%)+" "+STR$~Ao%(1,U%)
31450NEXT:BPUT#`%,10:IFBa%THEN
31490BPUT#`%,"incremental "+FNC(Bq%)+" ";:IFBz%BPUT#`%,"last"
31510IFCd%BPUT#`%,"on "+B`$+" at "+Af$
31520ENDIF:Ow$=FNC(Bq%):BPUT#`%,"onlytype "+Ow$+":":IFAb%(0)BPUT#`%,"impression *"
31560FORU%=1TODp%:IFw%(U%)<>-2THEN
31580Ex$="000":RIGHT$(Ex$)=STR$~w%(U%):BPUT#`%,Ex$;:IFAb%(U%)BPUT#`%,"*"ELSEBPUT#`%,10
31610ENDIF:NEXT:BPUT#`%,10:BPUT#`%,"writebd "+FNC(Dm%):CASETRUEOF
31670WHENCb%:Gg$="file"
31680WHENC`%:Gg$="directory"
31690WHENBu%:Gg$="ignore"
31700OTHERWISE:Gg$="unk"
31710ENDCASE:BPUT#`%,"image "+Gg$:BPUT#`%,10:BPUT#`%,10:BPUT#`%,"bufsize "+FNC(Di%)+" "+STR$El%:BPUT#`%,"ignfileerrs "+FNC(Dr%):BPUT#`%,10:CLOSE#`%:OSCLI"Settype "+F$+" &"+STR$~Gm%:SYS263873:RESTOREERROR:ENDPROC
31950DEFFNC(Hy%):IFHy%THEN="on"ELSE="off"
31980DEFPROCm(F$):LOCALKi%:LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#`%:SYS263873:ERROR1,FN2(F%,"BadSFile@"+REPORT$+FND(ERL)+"@"+STR$z%)
32020SYS263872:Gf=1:`%=OPENINF$:z%=0:IF(INKEY-2)=0PROCn(0):PROCn(1):g$()="":Ao%()=-2:A`%()=TRUE:Ki%=FALSE:y%()=0ELSEKi%=TRUE
32160REPEAT:Il$=GET$#`%:z$=FN3(Il$):z%+=1:IFLEFT$(z$,1)<>"#"THEN
32190Ij$=FN7(z$,1):Av$=FN7(z$,2):Iu$=FN7(z$,3):Ml$=FN7(z$,4):Nf$=FN7(z$,5):Pq$=FN7(z$,6):CASEIj$OF
32260WHEN"TYPE":Gf=VAL(Av$):IFGf>KyCLOSE#`%:PROC7(FN2(F%,"UkScript@"+STR$Gf),0):PROC_:SYS263873:ENDPROC
32270WHEN"SOURCE":i$=FN7(Il$,2)
32280WHEN"DESTINATION":r$=FN7(Il$,2)
32290WHEN"SELECTED":IFLEFT$(Av$,2)="OF"Ap%=FALSE
32320IFLEFT$(Av$,2)="ON"Ap%=TRUE
32340U%=0:REPEAT:Ah$=GET$#`%:z%+=1:IFAh$<>""THEN$(E%+44)=FN7(Ah$,1):E%!40=EVAL("&"+FN7(Ah$,2)):PROCh(0,E%,0)
32390U%+=1:UNTILAh$=""ORU%>s%:IFU%>s%ERROR1,FN2(F%,"TooMany@"+FN0(F%,"Sel")+"@"+STR$z%)
32430PROCB(0,0)
32450WHEN"IGNORED":IFLEFT$(Av$,2)="OF"Bn%=FALSE
32480IFLEFT$(Av$,2)="ON"Bn%=TRUE
32500U%=0:REPEAT:Ah$=GET$#`%:z%+=1:IFAh$<>""THEN$(E%+44)=FN7(Ah$,1):E%!40=EVAL("&"+FN7(Ah$,2)):PROCh(1,E%,0)
32540U%+=1:UNTILAh$=""ORU%>s%:IFU%>s%ERROR1,FN2(F%,"TooMany@"+FN0(F%,"Ign")+"@"+STR$z%)
32580PROCB(1,0)
32600WHEN"INCREMENTAL":IFAv$="ON"Ba%=TRUE
32620IFIu$="LAST"Bz%=TRUE
32630IFIu$="ON"THEN
32650Cd%=TRUE:B`$=Ml$:IFNf$="AT"Af$=Pq$
32680ENDIF
32690WHEN"ONLYTYPE":IFLEFT$(Av$,2)="OF"Bq%=FALSE
32710IFLEFT$(Av$,2)="ON"Bq%=TRUE
32740Ah$=FN3(GET$#`%):z%+=1:IFFN7(Ah$,1)="IMPRESSION"Ab%(0)=TRUE:Ah$=FN3(GET$#`%):z%+=1
32760U%=1:REPEAT:IFAh$<>""w%(U%)=EVAL("&"+LEFT$(Ah$,3)):Ab%(U%)=(MID$(Ah$,4)="*")
32800U%+=1:IFAh$<>""Ah$=GET$#`%:z%+=1
32820UNTILAh$=""ORU%>Dp%
32830IFU%>s%ERROR1,FN2(F%,"TooMany@@"+STR$z%)
32850WHEN"COMPRESS":DATA2
32870WHEN"WRITEBD":IFLEFT$(Av$,2)="ON"Dm%=TRUEELSEIFLEFT$(Av$,2)="OF"Dm%=FALSE
32880WHEN"IMAGE":CASEAv$OF
32890WHEN"FILE":Cb%=TRUE:C`%=FALSE:Bu%=FALSE
32900WHEN"DIRECTORY":Cb%=FALSE:C`%=TRUE:Bu%=FALSE
32910WHEN"IGNORE":Cb%=FALSE:C`%=FALSE:Bu%=TRUE
32930ENDCASE
32940WHEN"NOCOMPRESSTYPE":REPEAT:U%+=1:z%+=1:UNTILGET$#`%=""
33090WHEN"BUFSIZE":IFLEFT$(Av$,2)="ON"Di%=TRUEELSEIFLEFT$(Av$,2)="OF"Di%=FALSE
33100El%=VALIu$
33110WHEN"NOCOMPRESSUNDER"
33130WHEN"IGNFILEERRS":IFLEFT$(Av$,2)="ON"Dr%=TRUEELSEIFLEFT$(Av$,2)="OF"Dr%=FALSE
33140WHEN""
33150OTHERWISE:IFLENIj$>0ERROR1,FN2(F%,"UkKey@"+Ij$+"@"+STR$z%)
33160ENDCASE
33170ENDIF:UNTILEOF#`%:CLOSE#`%:SYS263873:RESTOREERROR:IFGf<=1Dr%=0
33230PROC_:Ae$=FNS(r$):Hj$=FNZ(r$):Ca%=FN_(r$):n%=FNX(r$):ENDPROC
33300DEFFN7(U$,Q%):IFQ%>0THEN
33320Es%=1:Dw%=INSTR(U$," ")-1:Cv%=0:Ic%=TRUE:REPEAT:Cv%+=1:Cv$=MID$(U$,Es%,(Dw%+1)-Es%):Es%=Dw%+2:Dw%=INSTR(U$," ",Es%)-1:IFIc%ANDDw%=-1Dw%=LENU$:Ic%=FALSE
33430IFCv%<Q%ANDDw%<0ANDIc%=FALSECv%=Q%:Cv$=""
33440UNTILCv%=Q%
33450ELSE:Cv$=""
33470ENDIF:=Cv$
33540DEFPROCQ:Ej%=FNA(6192):CASEEj%OF
33570WHEN1:PROCb(!E%)
33580WHEN2:PROC9(!E%,TRUE,0,TRUE)
33590WHEN3:PROC5(!E%)
33600WHEN6:PROCs(0,E%,E%!8,E%!12,E%!16)
33610WHEN8:SYS262364,E%!24
33620WHEN9:IFAa$<>""PROCg(Aa$)
33630WHEN17,18:PROCe(E%,TRUE)
33640ENDCASE:ENDPROC
33680DEFPROCs(Bx%,E%,No%,Cl%,Z%):CASENo%OF
33700WHEN2:CASECl%OF
33710WHEN-2:PROCV
33720OTHERWISE:PROC`
33730ENDCASE
33740WHEN1,4:CASECl%OF
33760WHEN-2:PROC9(O%,TRUE,TRUE,0):Db%=TRUE
33770ENDCASE
33780ENDCASE:CASECl%OF
33800WHENO%:CASEZ%OF
33810WHEN13:e%=0:Am%=0:PROC0(O%,13,(e%=0)):PROC0(O%,14,Am%OR(NOTe%)):PROC5(At%):PROC5(Ac%):PROCl:PROC1(E%,-2,Bo,FN0(F%,"IcWait"),TRUE):PROCD:PROCL
33880WHEN14:IFAm%THEN
33890PROC1(E%,O%,14,Ey$,TRUE):PROC1(E%,-2,Bo,FN0(F%,"IcDoing"),TRUE):Am%=FALSE:SYS66TOCh%:Cn%=Ch%-Kc%
33940ELSE:PROC1(E%,-2,Bo,FN0(F%,"IcPaused"),TRUE):PROC1(E%,O%,14,Id$,TRUE):Am%=TRUE:SYS66TOEf%:Kc%=Ef%-Cn%:REPEAT:PROCU(FNA(1)):UNTILAm%=FALSEORe%=FALSE:PROC1(E%,-2,Bo,FN0(F%,"IcDoing"),TRUE):PROC1(E%,O%,14,Ey$,TRUE):IFe%=FALSEPROC0(O%,13,TRUE):PROC5(Ac%):PROC5(At%):PROCl:PROCD:PROC1(E%,-2,Bo,FN0(F%,"IcWait"),TRUE):PROCL
34060SYS66TOCh%:Cn%=Ch%-Kc%
34080ENDIF
34090ENDCASE
34100ENDCASE:IFG_%=FALSEANDBx%=0THEN
34120PROC0(O%,13,(e%=0)):PROC0(O%,14,(NOTe%)):IFAm%=0PROC1(E%,O%,14,Ey$,TRUE)ELSEPROC1(E%,O%,14,Id$,TRUE)
34150ENDIF:ENDPROC
34180DEFFN1(A%,C%)=(USRN_%<>0)
34210DEFPROC2(A%,C%,D%):CALLNa%:ENDPROC
34250DEFPROC0(A%,C%,D%):CALLOy%:ENDPROC
34290DEFPROC9(t%,Mf%,Lt%,Bx%):LOCALEz%,Fo%,Fp%,Eq%,Fg%,Eu%,Io%,Je%,Lv%,Lp%,Lz%,Ke%,J_%,Os%,Oh%,Ia%,Ld%,K_%,Jw%,Lj%,Me%:!E%=t%:IFt%<>Bf%THEN
34330IFMf%=0OR(Bx%=0ORBx%=2)SYS262347,0,E%
34340IFLt%E%!28=TRUE
34350IF(t%=Bd%ORt%=Ci%)AND(Bx%=0ORBx%=2)THEN
34360PROCS(p%,t%):IFBx%=0THEN
34380IFt%=Bd%PROCB(0,0)ELSEPROCB(1,0)
34390ENDIF
34400ENDIF:IFt%=Ac%ORt%=At%E%!28=TRUE
34420IF(t%=Ac%ORt%=At%)AND(Bx%=0ORBx%=2)THEN
34430SYS53,TRUE,11TO,,Ez%:SYS53,TRUE,12TO,,Fo%:SYS53,TRUE,4TO,,Fp%:SYS53,TRUE,5TO,,Eq%:SYS262347,,E%:Fg%=Ez%*(2^Fp%):Eu%=Fo%*(2^Eq%):Io%=E%!12-E%!4:Je%=E%!16-E%!8:Lv%=(Fg%-Io%)DIV2:Lp%=(Eu%-Je%)DIV2:Lz%=(Fg%+Io%)DIV2:Ke%=(Eu%+Je%)DIV2:E%!4=Lv%:E%!8=Lp%:E%!12=Lz%:E%!16=Ke%
34570ENDIF:SYS262341,0,E%
34590ELSE:IFBx%=0ORBx%=2SYS262347,,E%
34630IFLt%E%!28=TRUE
34650J_%=E%!4:Os%=E%!8:Oh%=E%!12:Ia%=E%!16:Ld%=E%!20:K_%=E%!24:Jw%=E%!28:!E%=G%:SYS262347,,E%:E%!4=J_%+24:E%!16=Ia%-16:E%!12=(E%!4)+644:E%!8=(E%!16)-510:E%!28=Jw%:SYS262341,,E%:!E%=Bf%:SYS262348,,E%:Lj%=ABS((E%!48)-(E%!40)):Me%=ABS((E%!52)-(E%!44)):E%!4=J_%
34920E%!16=Ia%:E%!12=(E%!4)+Lj%:E%!8=(E%!16)-Me%:E%!20=Ld%:E%!24=K_%:E%!28=G%:SYS262341,,E%
35010ENDIF:ENDPROC
35040DEFPROC5(t%):IFFNi(t%)THEN!E%=t%:SYS262342,0,E%
35090IFt%=Bf%THEN!E%=G%:SYS262342,,E%
35100IFt%=Bd%Dt%(0)=FALSE
35110IFt%=Ci%Dt%(1)=FALSE
35120ENDPROC
35140DEFFNA(Pz%):SYSOq%,Pz%,E%TOOm%:IFINKEY(-2)ANDINKEY(-3)ANDINKEY(-90)PROCG_:$E%="TASK":SYS262365,Gw%,!E%:END
35170=Om%
35190DEFPROCU(Ng%):CASENg%OF
35230WHEN1:PROCb(!E%)
35240WHEN2:PROC9(!E%,TRUE,0,TRUE)
35250WHEN3:PROC5(!E%)
35280WHEN6:PROCK`(!E%,E%!4,E%!8,E%!12,E%!16,E%!20)
35290WHEN7:PROCU_
35300WHEN8:PROCP`
35310WHEN9:IFAa$<>""PROCg(Aa$)
35320WHEN17,18:PROCe(E%,0)
35330ENDCASE:ENDPROC
35360DEFPROCe(E%,Qr%):CASEE%!16OF
35380WHEN0:PROCD:PROCG
35390WHEN2:PROCS`(E%)
35400WHEN3:PROCT`(E%)
35410WHEN8:PROCC`
35420WHEN1282:PROCB`(E%)
35430WHEN262341:PROCV_
35440WHEN262345:IFLEFT$(Aa$,4)="seli"PROCW_
35450ENDCASE:ENDPROC
35480DEFPROCG:PROCG_:$E%="TASK":SYS262365,Gw%,!E%:END:ENDPROC
35550DEFPROCV_:Nx%=E%!4:Nr%=E%!8:Dz%=E%!20:Ny%=E%!24:Pf%=HIMEM-32768:Qy%=((Dz%-Pf%)DIV4)*2:IFNy%=Gw%THEN
35660IFDz%>=Fm%THEN
35670IF(Fe%ANDDz%>=Fy%)OR(Fe%=0)SYS262380,Dz%,TRUE
35680ENDIF:IFDz%<Fm%THEN
35710IF(Fy%=0ANDFe%)OR(Fe%=0)SYS262380,Fm%,TRUE
35720ENDIF:!E%=28:E%!4=0:E%!8=0:E%!12=Nr%:E%!16=262341:E%!20=Dz%:E%!24=Gw%:SYS262375,19,E%,Nx%:SYS262380,TRUE,TRUETOBw%
35820ENDIF:PROCN:ENDPROC
35960DEFFNM(Ft$):SYS131129,,Ft$TOFt;Dl:IF(DlAND1)Ft=TRUE
35990=Ft
36010DEFPROCY_(N%,F$,I_%,Nt%):SYS267520,,F$TODl%,,By%:IFDl%AND1By%=0:I_%=0ELSEI_%=Jl%
36040IFBy%>Nt%ERROR1,"Message block is too small. Increase "+STR$Hd%+" at start of program."
36050SYS267521,N%,F$,I_%:ENDPROC
36080DEFPROCJ`(N%):SYS267524,N%:ENDPROC
36120DEFPROCP_:LOCALEz%,Fo%,Fp%,Eq%:SYS53,TRUE,11TO,,Ez%:SYS53,TRUE,12TO,,Fo%:SYS53,TRUE,4TO,,Fp%:SYS53,TRUE,5TO,,Eq%:Fg%=Ez%*(2^Fp%):Eu%=Fo%*(2^Eq%):ENDPROC
36210DEFFN0(N%,Ad$):SYS398594,N%,Ad$,E_%,Ho%TO,,,By%;N:IF(NAND1)THEN=""
36250E_%?By%=13:=$E_%
36280DEFFN2(N%,Ad$):On$=FNh(Ad$):SYS398594,N%,On$,E_%,Ho%,u$(1),u$(2),u$(3),u$(4)TO,,,By%;N:IF(NAND1)THEN=""
36320E_%?By%=13:=$E_%
36350DEFFNh(Al$):LOCALj%:j%=0:u$()="":WHILEAl$<>"":Kk%=INSTR(Al$+"@","@"):u$(j%)=LEFT$(Al$,Kk%-1):Al$=MID$(Al$,Kk%+1):j%+=1:ENDWHILE:=u$(0)
36490DEFPROCCa(K,RETURNl%,RETURNA_%):l%=!K-K!16:A_%=K!12-K!20:ENDPROC
36530DEFFNd(_%,Lo%,L_%,Ih%,Hw%,Pw%,Mk%,Mv%,Ed$,Ph$):LOCALj%:!E%=_%:E%!4=Lo%:E%!8=L_%:E%!12=Lo%+Ih%:E%!16=L_%+Hw%:E%!20=Mv%ORMk%<<28ORPw%<<24:$Ji%=Ed$:Qs$=Ed$:E%!24=Ji%:$Lk%=Ph$:E%!28=Lk%:E%!32=LENEd$+1:SYS262338,0,E%TOj%:=j%
36690DEFPROC1(E%,Fq%,Hc%,Op$,Ek):!E%=Fq%:E%!4=Hc%:SYSJ`%,,E%:$(E%!28)=Op$:IFEkSYSKm%,Fq%,E%!8,E%!12,E%!16,E%!20
36770ENDPROC
36790DEFFN9(E%,Fq%,Hc%):!E%=Fq%:E%!4=Hc%:SYSJ`%,,E%:=$(E%!28)
36870DEFPROCN_(F$):SYS262361,,F$:ENDPROC
36910DEFPROCE(Mp$):LOCALY%,Ce%,l%:SYS262363,,E%,It%,Nd%,TRUE,Mp$,0TOY%,,It%,,,,Ce%:ENDPROC
36960DEFPROCN`:SYS262362:ENDPROC
37000DEFFN3(Cg$):LOCALa%,He%:IFLEN(Cg$)>0THEN
37030IFAg%>=300SYS274520,TRUETOHe%
37040FORa%=1TOLEN(Cg$):IFHe%THEN
37060MID$(Cg$,a%,1)=CHR$(He%?(ASC(MID$(Cg$,a%,1))))
37070ELSE:IFMID$(Cg$,a%,1)>="a"ANDMID$(Cg$,a%,1)<="z"MID$(Cg$,a%,1)=CHR$(ASC(MID$(Cg$,a%,1))AND223)
37110ENDIF:NEXT
37130ENDIF:=Cg$
37160DEFFNN(h$):WHILEINSTR(h$,"."):h$=MID$(h$,INSTR(h$,".")+1):ENDWHILE:=h$
37220DEFFN4(Fw):Hr$="":WHILE?Fw<>0AND?Fw<>13:Hr$=Hr$+CHR$?Fw:Fw+=1:ENDWHILE:=Hr$
37310DEFPROCA_:LOCALI:I=0:MOUSEl,A_,K:PROCJ(FN0(F%,"MiconwT1"),125,40,0,7,2,7,0,0):PROC3(I,FN0(F%,"Miconw0-"+STR$I),0,0,0,0,0,0,&7010021,0,Cy%,0):I+=1:PROC3(I,FN0(F%,"Miconw0-"+STR$I),0,0,0,0,0,0,&7010021,0,0,TRUE):I+=1:PROCM(I,l-64,A_):Aa$="mainw":ENDPROC
37410DEFPROCB_:SYS262722TO,Dj%:Jg%=FNM("SCSIFS_Drives"):IFJg%<>-1SYSJg%TO,Dv%,Eb%ELSEDv%=0:Eb%=0
37450IFDj%>0ORDv%>0OREb%>0THEN
37460LOCALI:I=0:MOUSEl,A_,K:PROCJ(FN0(F%,"MdestiT1"),200,40,0,7,2,7,0,0):IFDj%>0PROC3(I,"adfs::0.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37500IFDj%>1PROC3(I,"adfs::1.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37510IFDj%>2PROC3(I,"adfs::2.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37520IFDj%>3PROC3(I,"adfs::3.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37530IFDv%>0PROC3(I,"scsi::0.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37540IFDv%>1PROC3(I,"scsi::1.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37550IFDv%>2PROC3(I,"scsi::2.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37560IFDv%>3PROC3(I,"scsi::3.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37570IFEb%>0PROC3(I,"scsi::4.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37580IFEb%>1PROC3(I,"scsi::5.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37590IFEb%>2PROC3(I,"scsi::6.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37600IFEb%>3PROC3(I,"scsi::7.$",0,0,0,0,0,0,&7010021,0,0,0):I+=1
37610Ei%=Bl%-24:!Ei%=!Ei%OR128:!E%=G%:E%!4=32:SYS262350,,E%:Ik%=E%!16:SYS262347,,E%:Hp%=(E%!4)+Ik%:PROCM(I,Hp%,A_):Aa$="desti"
37720ENDIF:ENDPROC
37750DEFPROCV:I=0:MOUSEl,A_,K:PROCJ(FN0(F%,"MiconwT1"),125,40,0,7,2,7,0,0):PROC3(I,FN0(F%,"Miconw0-"+STR$I),0,0,0,0,0,0,&7010021,0,Cy%,0):I+=1:PROC3(I,FN0(F%,"Miconw0-"+STR$I),0,0,0,0,0,0,&7010021,0,0,TRUE):I+=1:PROCM(I,l-64,96+(I*40)):Aa$="iconw":ENDPROC
37840DEFPROCo:I=0:MOUSEl,A_,K:PROCJ(FN0(F%,"MprefsT1"),250,40,0,7,2,7,0,0):PROC3(I,FN0(F%,"Mprefs0-"+STR$I),0,0,0,0,0,0,&7010021,0,Cy%,0):I+=1:PROC3(I,FN0(F%,"Mprefs0-"+STR$I),0,0,0,0,0,0,&7010021,0,Cc%,0):I+=1:PROC3(I,"",Kz%,Jz%,0,0,0,0,&7010121,0,0,0):I+=1
37900PROC3(I,FN0(F%,"Mprefs0-"+STR$I),0,0,0,0,0,0,&7010021,0,0,TRUE):I+=1:PROCM(I,l-64,A_):Aa$="prefs":ENDPROC
37960DEFPROCJ_(Q%):I=0:MOUSEl,A_,K:PROCJ(FN0(F%,"MseligT1-"+STR$Q%),250,40,0,7,2,7,0,0):PROC3(I,"",Jm%,Kf%,0,0,0,(Hh%=TRUE),&7010121,0,0,0):I+=1:PROC3(I,FN0(F%,"Mselig0-"+STR$I),0,0,0,0,0,(y%(Q%)=0),&7010021,0,0,0):I+=1:PROC3(I,"",Lh%,Le%,0,0,0,(Hh%=TRUE),&7010121,0,0,TRUE):I+=1:PROCM(I,l-64,A_)
38030Aa$="seli"+STR$Q%:ENDPROC
38070DEFPROCr:I=0:MOUSEl,A_,K:PROCJ(FN0(F%,"MonlytT1"),200,40,0,7,2,7,0,0):PROC3(I,FN0(F%,"Monlyt0-"+STR$I),0,0,0,0,Ab%(0),0,&7010021,0,0,0):I+=1:IFTRUETHEN
38120FORa%=1TODp%:w$=FNs(w%(a%)):IFw$<>""PROC3(I,w$,0,0,0,0,Ab%(a%),0,&7010021,0,0,0):I+=1
38150NEXT:Ma%=Bl%-24:!Ma%=((!Ma%)OR2)
38180ENDIF:$Ie%="":PROC3(I,"",Ie%,10,TRUE,0,0,0,&7010121,0,0,TRUE):I+=1:!E%=G%:E%!4=33:SYS262350,,E%:Ik%=E%!16:SYS262347,,E%:Hp%=(E%!4)+Ik%:PROCM(I,Hp%,A_):Aa$="onlytype":IF(I-1)>50ERROR1,FN0(F%,"MenuFull")
38300ENDPROC
38570DEFPROC`:LOCALl%,A_%,K%:I=0:MOUSEl%,A_%,K%:PROCJ(FN0(F%,"MstopmT1"),125,40,0,7,2,7,0,0):PROC3(I,FN0(F%,"Mstopm0-"+STR$I),0,0,0,0,0,0,&7010021,0,0,TRUE):I+=1:PROCM(I,l%-64,A_%):Aa$="stopm":ENDPROC
38680DEFFNs(Cz%):IFCz%<0THEN=""
38700SYS41,18,,Cz%TO,,Nc%,Pe%:!Bv%=Nc%:Bv%!4=Pe%:Bv%?8=13:=$Bv%
38760DEFFNe(Cz$):SYS131113,31,Cz$TO,,Y%;N:IF(NAND1)=1THEN=-2
38790=Y%
38810DEFPROCg(Cj$):CASECj$OF
38830WHEN"desti":PROCS_
38840WHEN"mainw":PROCQ_
38850WHEN"iconw":PROCO`
38860WHEN"seli0":PROCt(0)
38870WHEN"seli1":PROCt(1)
38880WHEN"onlytype":PROCG`
38900WHEN"prefs":PROCU`
38910WHEN"stopm":PROCA`
38920ENDCASE:ENDPROC
38950DEFPROC3(I%,Ed$,Jh%,By%,Q%,J%,B_%,u%,Be%,Oi%,Mt%,U%):Bt%=0:Bt%=Bt%OR(Oi%AND8):Bt%=Bt%OR(Q%AND4):Be%=Be%OR(Q%AND256):Bt%=Bt%OR(J%AND2):Bt%=Bt%OR(B_%AND1):Bt%=Bt%OR(U%AND128):Be%=Be%OR(u%AND4194304):!Bl%=Bt%:Iv%(I%)=Bl%+4:Bl%!8=Be%
39060IFJh%Bl%!12=Jh%:Bl%!16=TRUE:Bl%!20=By%ELSE$(Bl%+12)=Ed$
39070Bl%+=24:Bg%=Bl%:Fb%(I%)=Mt%:ENDPROC
39110DEFPROCJ(Mu$,Ih%,Hw%,Pi%,Py%,Ox%,Qk%,Mq%,I%):IFI%=0Bl%=Cj%:Bg%=Cj%:Kg%=0
39130Ko%(I%)=Bg%:Kg%+=1:$Bg%=Mu$:Bg%?12=Py%:Bg%?13=Ox%:Bg%?14=Qk%:Bg%?15=Mq%:Bg%!16=Ih%:Bg%!20=Hw%:Bg%!24=Pi%:Bg%+=28:Bl%=Bg%:ENDPROC
39250DEFPROCM(I%,l%,A_%):FORa%=0TOI%-1:IFFb%(a%)>0ANDFb%(a%)<Kg%THEN!Iv%(a%)=Ko%(Fb%(a%))ELSE!Iv%(a%)=Fb%(a%)
39280NEXT:SYS262356,,Cj%,l%,A_%:ENDPROC
39320DEFFNm(l%)=l%/128
39340DEFFN8(Oz%,Qh%)=FND(Oz%)+"/"+FND(Qh%)
39370DEFFND(V%):LOCALJ%,J$,u$,V$:V$="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ":REPEAT:J%=V%MOD36:V%=V%DIV36:J$=MID$(V$,J%+1,1):u$=J$+u$:UNTILV%=0ANDu$<>"":=u$
39490DATA6
39500DATA"!Run",F
39510DATA"!Sprites",F
39520
39530DATA"Library",D
39540DATA"ColScan",FD
39550DATA"!PALETTE",F
39560DATA"SRC",F
Z�Dk$="1.623 (16 Sep 95)":Dk=1.623:Ky=1.01:Ga%=3:Pj%=32768:ș81�Fx%,Rv%:Fe%=�:Cm%=3:Fm%=�-32768:Ks%=2500:�E%Ks%,M%256,Jn%32,p%256:Hd%=11264:Ho%=256:�F%16,Jl%Hd%,E_%Ho%,u$(4):�Y_(F%,"<HardBackD$Dir>.Resources.Messages",Jl%,Hd%):�M`
Bș131107,"RiscOS$V",M%,256�,,Er%,,Y%;N:�(N�1)�0,�0(F%,"UkROv")
"'Ag%=!M%:�Ag%<200�0,�0(F%,"RO2plus")
6�Ag%>300Ag%=300
@�$E%="TASK":P%=Jn%:[OPT2:DCD2:DCD3:DCD8:DCD1282:DCD262341:DCD262345:DCD0:]:ș262336,Ag%,!E%,�0(F%,"WimpTitle"),Jn%�,Gw%:ș263872:ș131107,"HardBackD$Filetype",M%,256�,,Er%,,Y%;N:�(N�1)=0ș33,16�1<<31�1<<29,M%,4095�,,Gm%��1,�0(F%,"BadScType")
�eNn$=�0(F%,"QuitErr"):ș131107,"HardBackD$Default2",M%,256�,,Er%,,Y%;N:�(N�1)Fj$=""�Fj$=�H(M%,Er%)
FBh$="ExSpr":ș63,20�;N%:R%=(N%�2)>>1:�R%=1ș63,27�;N%:R%=(N%�2)>>1
X�R%=1Hf%=��Hf%=�
b�Hf%Bh$+="12"�Bh$+="22"
l�S%=�("<HardBackD$Dir>.Resources.Sprites."+Bh$):T%=�#S%+16:�#S%:�D` T%:!D`=T%:D`!4=0:D`!8=16:D`!12=16:ș46,521,D`:ș46,522,D`,"<HardBackD$Dir>.Resources.Sprites."+Bh$:Bh$="SprOS3/":�Ag%<300Bh$="SprOS2/"
��Hf%Bh$+="12"�Bh$+="22"
��ș5,"IconSprites <HardBackD$Dir>.Resources.Sprites."+Bh$:�Lk%32,Ji%32:Bo=�d(�,0,-16,136,110,7,1,12555,�0(F%,"IcWait"),"s!Backup"):ș81�Fu%,R_%:Fm%=(�((�-32768)/Fu%)+10)*Fu%:G_%=�:Rn$="":Aa$="":Fi=�:Dd%=�:Db%=�:ș57,,"OS_GBPB"�Aw%:ș57,,"OS_File"�Bb%
z�ș57,,"OS_CLI"�Gv%:ș57,,"OS_FSControl"�Rk%:ș57,,"OS_Word"�Ff%:ș57,,"Wimp_GetIconState"�J`%:ș57,,"Wimp_SetIconState"�Rf%:ș57,,"Wimp_ForceRedraw"�Km%:ș57,,"Wimp_Poll"�Oq%:Qt%=�:Oa%=16:Lm%=32:s%=255
��g$(1,s%),Ao%(1,s%),A`%(1,s%),y%(1),La%(1),Dt%(1),Ql%&4000,My%&4000:y%()=0:g$()="":La%()=Ql%,My%:Dt%()=�:Dp%=255:�w%(Dp%),Ab%(Dp%),Ie%10:w%()=-2:�Dp%<20Gs%=20�Gs%=Dp%
V��Fb%(Gs%),Iv%(Gs%),Ko%(20):!M%=3409:�Bv%8,Dx%50,Cj%2048,Pd%&1800,Rq%&7C00,Cp%8,v%256,Qn 5:Sd%=0:Kf%=32:�Jm%Kf%:$Jm%=�0(F%,"MRemIt"):Jz%=32:�Kz%Jz%:$Kz%=�0(F%,"MSaveDef"):Le%=32:�Lh%Le%:$Lh%=�0(F%,"MClrSel"):ș131107,M%,Cj%,256�,,Er%,,Y%;N
�(�(N�1)�!Cj%<>Km%�0,�0(F%,"CorrFile")
�ș36,M%,Cj%,�:It%=Pd%:Nd%=It%+16384:Id$=�0(F%,"Continue"):Ey$=�0(F%,"Pause"):Pk$=�0(F%,"Arc"):Q_$=�0(F%,"Scan"):Rh$=�0(F%,"WimpTitle"):�S`%5,Re%28,X%&100,c%&100,J%&100:ș262380,�,��Bw%,Md%,Mc%:ș262380,Bw%+(Fx%),��Ja%:�Ja%<Bw%+(Fx%)�0,�0(F%,"MoreRAM")
��Cf%=�:Sb%=18:e%=�:Am%=�:Do%=�:Ir%=�:Rj%=�:x%=�:i$="":r$="":Ca%=0:Hj$="":n%=�:Ap%=�:Bn%=�:Ba%=�:Bz%=�:Cd%=�:B`$="":Af$="":Bq%=�:Sa%=�:Dm%=�:Cb%=�:C`%=�:Bu%=�:B_%=�:Dr%=0:Di%=�:El%=64:ș131107,"HardBackD$Slot",M%,256�,,Er%,,Y%;N:�(N�1)=0Fy%=(!M%)*1024
�7ș262380,�,��Bw%,Md%,Mc%:�Fy%>Bw%ș262380,Fy%,��Bw%
�@�N:ș262380,�,��Ru%:Ge%=25*�m(512):Ip%=0:Bh%=1:�Ag%<300Bh%=0
:b�(Bh%�1)�N_("<HardBackD$Dir>.Resources.Templates")��N_("<HardBackD$Dir>.Resources.TemplatOS2")
D��E("query"):ș262337,,E%�At%:�E("progInfo"):ș262337,,E%�Cy%:�E("notify"):ș262337,,E%�Ac%:�E("main"):E%!64=D`:ș262337,,E%�O%:�E("selected"):ș262337,,E%�Bd%:�E("ignored"):ș262337,,E%�Ci%:�E("preflist"):ș262337,,E%�G%:�E("prefs"):E%!64=D`
��ș262337,,E%�Bf%:�E("savebox"):ș262337,,E%�Cc%:�N`:�1(E%,Cc%,1,"ScriptFile",0):�1(E%,Cy%,3,Dk$,0):�1(E%,Cy%,8,�0(F%,"RegVer"),0):�1(E%,Cy%,10,�2(F%,"SerNo"),0):�0(O%,13,�):�0(O%,14,�):�0(G%,20,�):�0(G%,22,�):�0(G%,23,�):�0(G%,25,�):�0(G%,26,�)
�/�0(G%,31,�):�Ag%<300�0(G%,36,�):�0(G%,37,�)
�Fj$<>""�
R%=�Fj$:�R%�#R%
$�R%�m(Fj$)
.��:�_:�S(E%,Bd%):�S(E%,Ci%):�U(�A(0)):opt$="":$X%="autodisc/s,read,execute,wipe/s,quit/s":ș16�N$:R$=�7(N$,3):Hs$=�N$,Es%):ș73,X%,Hs$,M%,256:opt%=0:F$="":�!M%Kh%=��Kh%=�
��M%!4F$=�4(M%!4):opt%=1
��M%!8F$=�4(M%!8):opt%=2
��M%!12Iy%=��Iy%=�
��M%!16Kj%=��Kj%=�
�ș263873:�opt%<>0�F$<>""�
(R%=�F$:�R%�#R%
2
�R%�m(F$)
<!�R%�opt%=1Dd%=�:�9(Bf%,�,�,0)
F�R%�opt%=2Dd%=�:�a:�Kj%=��G
P�:��X_
,Fm%=(�((�-32768)/Fu%)+10)*Fu%:Fe%=�:�L:�
6��L:�:�U(�A(0)):�Fi:�C_:�
���C_:�G:�:�
�G��X_:�Cm%=3�d(�2(F%,"FatalError@"+�$+"@"+�8(�,�)),3,�)��d(�$,Cm%,0)
Cm%=3:ș263874:�
:���7(Ok$,b%):Im%=Cm%:Cm%=1:�d(Ok$,Cm%,0):Rr%=Im%:�b%=��0(O%,13,�):�0(O%,14,�):�1(E%,O%,14,Ey$,�):�1(E%,O%,16,Nn$,�):�l:e%=0:Am%=0:�5(O%):Db%=�:�1(E%,-2,Bo,�0(F%,"IcWait"),�):�L
��
m��d(Ar$,Cm%,Nh%):Ig$="#":!E%=�:$(E%+4)=Ar$+�0:ș262367,E%,Cm%,�0(F%,"ErrorTitle")�,Ar%:�Nh%�Ar%=2Fi=�:�C_
4�
H(��Q_:�W%:ș262351,,M%:W%=M%!8:Ȏ!E%�
�!�1:Fi=�:b%=�:�e%�G b%=��b%=�
��b%�
��e%�
��x%�#q%:x%=�
��Y:x%=�:�T:e%=�
��:�D:�G
��
�:�W%=1�A_
�
.(��O`:�W%:ș262351,,M%:W%=M%!8:Ȏ!E%�
j�1:Fi=�:b%=�:�e%�
~�G b%=��b%=�
�
�:�b%�
��e%�
��x%�#q%:x%=�
��Y:x%=�:�T:e%=�
��:�D:�G
��
�:�W%=1�V
�
((��U`:�W%:ș262351,,M%:W%=M%!8:Ȏ!E%�
d�1:�z(4,0)
n�2:�j(Fj$)
x�3:Fi=�:b%=�:�e%�
��G b%=��b%=�
�
�:�b%�
��e%�
��x%�#q%:x%=�
��Y:x%=�:�T:e%=�
��:�D:�G
��
�
�:�W%=1�o
�
"[��S_:�W%:ș262351,,M%:W%=M%!8:ș262357,,Cj%,E%,M%:Ov$=�4(M%):�1(E%,G%,6,Ov$,�):�W%=1�B_
r�
�;��t(Q%):�W%,Em%,Ai%:Em%=!E%:ș262351,,M%:W%=M%!8:ȎEm%�
�h�0:Pb%=0:Ce%=0:ș262358,�6(Q%),X%,1<<21,1<<21:�:Z%=X%!Ce%:�Z%<>-1�W`(Q%,Z%,0):�2(�6(Q%),Z%,0):Pb%+=1
Ce%+=4:�Z%=-1
M�1:�n(Q%):�Ai%=0�s%:g$(Q%,Ai%)="":Ao%(Q%,Ai%)=-2:A`%(Q%,Ai%)=�:�:y%(Q%)=0
XN�2:Ce%=0:ș262358,�6(Q%),X%,1<<21,1<<21:�:Z%=X%!Ce%:�Z%<>-1�2(�6(Q%),Z%,0)
�Ce%+=4:�Z%=-1
��:�Em%<>2�B(Q%,�)
��W%=1�J_(Q%)
��
�5��W_:�Kw%:Kw%=�(�Aa$,1)):�Hk%>-1�2(�6(Kw%),Hk%,0)
Aa$="":�
0��G`:�W%,d%:d%=�:ș262351,,M%:W%=M%!8:Ȏ!E%�
\�0:Ab%(0)=(�Ab%(0))
f'�I-1:�(I-1)>Gs%�1,�0(F%,"MenuFull")
p0Et%=�e($Ie%):d%=�:�R%=1�I-2:�w%(R%)=Et%d%=R%
�?�:�d%>-1�R%=d%�I-2:w%(R%)=w%(R%+1):Ab%(R%)=Ab%(R%+1):�:I-=1
�0w%(I-1)=Et%:Ab%(I-1)=�:�w%(I-1)=-2Ab%(I-1)=0
:Ab%(!E%)=(�(Ab%(!E%)))
�:�W%=1�r
.�
Z(��A`:�W%:ș262351,,M%:W%=M%!8:Ȏ!E%�
��0:�e%�
��G b%=��b%=�
��b%�
�磌
��x%�#q%:x%=�
��Y:x%=�:�T:e%=�
��:e%=0:Am%=0:�C(�0(F%,"BackDead")):�1(E%,O%,9,�0(F%,"Aborted"),�):�0(O%,13,(e%=0)):�0(O%,14,Am%�(�e%)):�5(At%):�5(Ac%):�1(E%,-2,Bo,�0(F%,"IcWait"),�):�D:�L
T�
^�
h
�:�W%=1�`
|�
�$��K`(Qg%,Px%,W%,t%,Z%,Sc%):Ȏt%�
��Bf%:�V`(W%,Z%)
��G%:�Q`(W%,Z%)
��Bd%:�D_(0,W%,Z%)
��Ci%:�D_(1,W%,Z%)
��O%:�H`(W%,Z%)
��Cy%:�Z%=11�I`
�Cc%:�z(W%,Z%,Qg%,Px%)
�-2:�F`(W%,Z%)
�:�
lL��I`:Iq$="<HardBackD$Dir>.Docs.Register":�Ag%>=300ș5,"Filer_Run "+Iq$:�
�{!E%=256:E%!12=0:E%!16=5:E%!20=0:E%!28=0:E%!32=0:E%!36=0:ș8,5,Iq$�,,Ex%:�(Ex%>>>20)=4095 Et%=((Ex%>>>8)�4095)�Et%=12288
�-E%!40=Et%:$(E%+44)=Iq$:ș262375,17,E%,0:�
��F`(W%,Z%):�Z%<0�
*Ȏ��
4�W%=2:�Z%=Bo�V
f�W%=4:�e%=��
�(�9(Bf%,�,�,0):Dd%=�:�Db%�5(O%):Db%=�
��:�e%=��
�(�9(O%,�,�,0):Db%=�:�Dd%�5(Bf%):Dd%=�
��
��:�
��H`(W%,Z%):ȎW%�
$
�2:�A_
8 �:磌
LȎ��
V�(W%�4)=4�Z%<>-1:ȎZ%�
j�12�e%=0:�a
t�13�e%:e%=�
~)�14�e%�Am%=0:Am%=�:�1(E%,O%,14,Id$,�)
�'�14�e%�Am%:Am%=�:�1(E%,O%,14,Ey$,�)
��
��
��:�
���V`(W%,Z%):Ȏ��
��(W%�2)=2:�o
�%�((W%�4)=4�(W%�1)=1)�Z%<>-1:ȎZ%�
�1:�i:�5(Bf%):Dd%=�:�a
�2:�_:�5(Bf%):Dd%=�
�0:�i
( �4:�_
2�
<�:�
Z��Q`(W%,Z%):ȎW%�
n�1,2,4:ȎZ%�
��32:�B_
�
�33:�r
�
:Ȏ��
��(W%�2)=2:�o
�%�((W%�4)=4�(W%�1)=1)�Z%<>-1:ȎZ%�
�W�10:�0(G%,12,(�1(G%,10)=0)):�0(G%,30,(�1(G%,10))):�U%=14�19:�0(G%,U%,(�1(G%,10))):�
��11:�0(G%,13,(�1(G%,11)=0))
��12:�R_
��13:�R`
���14:Ol%=�1(G%,14):�Ol%=0�0(G%,15,�):�0(G%,16,�):�0(G%,17,�):�0(G%,18,�):�0(G%,19,�)��0(G%,15,0):�0(G%,16,0):�0(G%,17,0):�0(G%,18,0):�0(G%,19,0)
|�15:�1(G%,15)�2(G%,14,�)
��17:�1(G%,17)�2(G%,14,�)
��27:�0(G%,28,(�1(G%,27)=0))
�7�35:�1(G%,35)=0��1(G%,36)=0��1(G%,37)=0�2(G%,35,�)
�7�36:�1(G%,35)=0��1(G%,36)=0��1(G%,37)=0�2(G%,36,�)
�7�37:�1(G%,35)=0��1(G%,36)=0��1(G%,37)=0�2(G%,37,�)
��:Q`%=�1(G%,15):Mm%=�1(G%,17):�Q`%=0�Mm%=0�(Z%=15�Z%=17)�0(G%,15,�):�0(G%,16,�):�0(G%,17,�):�0(G%,18,�):�0(G%,19,�):�2(G%,14,0)
:�
D�
N�:�
v��D_(Q%,W%,Z%):Ȏ��
�N�(W%�2)=2:Hh%=Z%:Ig$="4":�g(�6(Q%),0)=0�2(�6(Q%),Z%,�):Hk%=Z%�Hk%=�:Hh%=0
��J_(Q%)
�@�((W%�1)=1�(W%�4)=4)�Z%<>-1:�2(�6(Q%),Z%,(�(�1(�6(Q%),Z%))))
�Z�(W%�2)=0�Z%=�:Ce%=0:ș262358,�6(Q%),X%,1<<21,1<<21:�:Z%=X%!Ce%:�Z%<>-1�2(�6(Q%),Z%,0)
Ce%+=4:�Z%=-1
4�:�
R��z(W%,Z%,Ll%,Ju%):Ȏ��
f>�(W%�4)=4�Z%=0:F$=�9(E%,Cc%,1):�F$=""�7(�0(F%,"NoName"),�)
�%�F$,".")=0�7(�0(F%,"SaveAs1"),�)
��j(F$):ș262356,,�
�>�(W%�4)=4�Z%=2:F$=�9(E%,Cc%,1):�F$=""�7(�0(F%,"NoName"),�)
��!E%=Cc%:ș262347,,E%:Ls=E%!4-E%!20:Kp=E%!16-E%!24:E%!4=2:ș262350,,E%:!E%=Cc%:E%!4=5:E%!8=E%!8+Ls:E%!12=E%!12+Kp:E%!16=E%!16+Ls:E%!20=E%!20+Kp:�P_:E%!24=(E%!8)-Ll%:E%!28=(E%!12)-Ju%:E%!32=Fg%+(E%!16)-Ll%:E%!36=Eu%+(E%!20)-Ju%:�Y`
VD�Ix%=-1ș262352,,E%�Np$="file_"+�~Gm%:șIx%,197,1,Np$,E%+8,E%+24
��:�
����_:�1(E%,G%,2,i$,�):�1(E%,G%,6,r$,�):�2(G%,10,Ap%):�2(G%,11,Bn%):�2(G%,14,Ba%):�2(G%,15,Bz%):�2(G%,17,Cd%):�2(G%,34,Bq%):�2(G%,30,Dm%):�2(G%,35,Cb%):�2(G%,36,C`%):�2(G%,37,Bu%):�2(G%,27,Di%):�0(G%,12,(Ap%=0)):�0(G%,13,(Bn%=0)):�0(G%,30,Ap%)
Z��2(G%,40,Dr%):�1(E%,G%,18,B`$,�):�1(E%,G%,19,Af$,�):�1(E%,G%,28,�El%,�):�Ba%=0Bz%=�:Cd%=�:�0(G%,15,�):�0(G%,16,�):�0(G%,17,�):�0(G%,18,�):�0(G%,19,�)��2(G%,15,Bz%):�2(G%,17,Cd%):�0(G%,15,0):�0(G%,16,0):�0(G%,17,0):�0(G%,18,0):�0(G%,19,0)
/�Cb%=0�C`%=0�Bu%=0�B_%=�Bu%=�:�2(G%,37,Bu%)
UB_%=�:�Ap%�0(G%,14,�):�0(G%,15,�):�0(G%,16,�):�0(G%,17,�):�0(G%,18,�):�0(G%,19,�)
�'�0(G%,28,(Di%=0)):�B(0,0):�B(1,0):�
����i:i$=�9(p%,G%,2):r$=�9(p%,G%,6):Ae$=�S(r$):Hj$=�Z(r$):Ca%=�_(r$):n%=�X(r$):Ap%=�1(G%,10):Bn%=�1(G%,11):Ba%=�1(G%,14):Bz%=�1(G%,15):Cd%=�1(G%,17):Bq%=�1(G%,34):Dm%=�1(G%,30):Cb%=�1(G%,35):C`%=�1(G%,36):Bu%=�1(G%,37):Di%=�1(G%,27):Dr%=�1(G%,40)
:5B`$=�9(p%,G%,18):Af$=�9(p%,G%,19):�Cd%�y(B`$,Af$)
X)El%=�(�9(p%,G%,28)):�B(0,0):�B(1,0):�
�#��R_:�9(Bd%,0,�,0):�S(p%,Bd%):�
�,��R`:Dt%(1)=�:�9(Ci%,0,�,0):�S(p%,Ci%):�
�C��S(K%,Cl%):�Q%,l%,A_%,U%,Qq%,Gk%,Gr%,Gp%,Fs%:�Cl%=Bd%Q%=0�Q%=1
!FGk%=0:Gr%=0:Gp%=0:Fs%=0:!K%=Cl%:�U%=0�s%:K%!4=A`%(Q%,U%):�K%!4>=0�
!HșJ`%,,K%:�K%!8<Gp%Gp%=K%!8
!\�K%!12<Fs%Fs%=K%!12
!f�K%!16>Gk%Gk%=K%!16
!p�K%!20>Gr%Gr%=K%!20
!z?�:�:!K%=Gp%:K%!4=Fs%-4:K%!8=Gk%:K%!12=Gr%:ș262359,Cl%,K%:�
!�.��h(_%,Gd%,Ek%):V$=�4(Gd%+44):�y%(_%)>=s%�
"�V$>15V$="..."+�V$,15)
"$(�7(�2(F%,"TooManyIt@"+�s%+"@"+V$),�)
".�:�V$<>""�
"BcBc%=0:ȕ�3(V$)>=�3(g$(_%,Bc%))�Bc%<y%(_%):Bc%+=1:�:F`%=0:�Bc%=y%(_%)��3(V$)=�3(g$(_%,Bc%))F`%=�
"��Bc%>0�
"�!�3(V$)=�3(g$(_%,Bc%-1))F`%=�
"�*�:�Bc%=y%(_%)��3(V$)=�3(g$(_%,0))F`%=�
"��F`%=0�O_:F`%=�
"��:�
"�x��O_:�Bc%<>y%(_%)�Ai%=y%(_%)+1�Bc%+1��:g$(_%,Ai%)=g$(_%,Ai%-1):Ao%(_%,Ai%)=Ao%(_%,Ai%-1):A`%(_%,Ai%)=A`%(_%,Ai%-1):�
#PJg$(_%,Bc%)=V$:Ao%(_%,Bc%)=Gd%!40:A`%(_%,Bc%)=-2:y%(_%)+=1:�Ek%�B(_%,�)
#��
#�x��W`(Q%,Ei%,Ek%):�f%,Br%,Gi%,Lu%:Gi%=�:Br%=�6(Q%):f%=�:�:f%+=1:�A`%(Q%,f%)=Ei%�f%>=s%:�f%>=s%�A`%(Q%,f%)<>Ei%f%=s%+1
#��f%<=s%�
#��f%<>y%(Q%)Lu%=A`%(Q%,f%):�Ai%=f%+1�y%(Q%):g$(Q%,Ai%-1)=g$(Q%,Ai%):Ao%(Q%,Ai%-1)=Ao%(Q%,Ai%):A`%(Q%,Ai%-1)=A`%(Q%,Ai%):Gi%=�:�g$(Q%,f%)="":Ao%(Q%,f%)=�
$�4y%(Q%)-=1:!p%=Br%:�Gi%=0p%!4=A`%(Q%,f%)�p%!4=Lu%
$�ș262340,,p%
$��:�Ek%�B(Q%,�)
$��:�Gi%=0A`%(Q%,f%)=�
$��
%@ݤg(Cl%,Ps%):ș262358,Cl%,M%,1<<21,1<<21:�Ps%=0�!M%=-1�=0�=�
%:!f%=-4:�:f%+=4:�M%!f%=-1:=f%�4
%vݤ6(Q%):�Q%=0=Bd%�=Ci%
%�d��n(Q%):Br%=�6(Q%):�Dc%=0�s%:�A`%(Q%,Dc%)>-1�!p%=Br%:p%!4=A`%(Q%,Dc%):ș262340,,p%:A`%(Q%,Dc%)=�
%��:�
&���B(_%,Nk%):�Br%,Dc%,l%,A_%,F_%,Fh%,As%,Da%,Lr%,Gx%,Hn%,En%,Hb%,Dy%,Y$,Hx%,Hl%,Qd%,Ou%:Br%=�6(_%):�Dc%=0�s%:�A`%(_%,Dc%)>-1�!p%=Br%:p%!4=A`%(_%,Dc%):ș262340,,p%:A`%(_%,Dc%)=�
&p�:l%=1:A_%=y%(_%):�l%=0l%=1
&�!F_%=Lm%+8:Fh%=276:�y%(_%)<>0�
&�FAs%=0:Da%=La%(_%):Lr%=0:Gx%=0:Hn%=0:En%=0:Hb%=0:�:�g$(_%,As%)<>""�
';Dy%=385954067:Fh%=(�(g$(_%,As%))*Oa%)+40:F_%=Lm%+8:Ȏ��
'8$�Ao%(_%,As%)=4096:Y$="small_dir"
'BI�Ao%(_%,As%)=8192:Y$="sm"+�N(g$(_%,As%)):ș393449,24,,Y$�;Be:�(Be�1)�
'jLY$=�N(g$(_%,As%)):ș393449,24,,Y$�;Be:�(Be�1)Y$="small_app"�Dy%=Dy%�2048
'��
'�n�(Ao%(_%,As%)>=0�Ao%(_%,As%)<=4095):Y$="small_"+�"00"+�~(Ao%(_%,As%)�4095),3):ș393449,24,,Y$�;Be:�(Be�1)�
'�cY$="file_"+�"00"+�~(Ao%(_%,As%)�4095),3):ș393449,24,,Y$�;Be:�(Be�1)Y$="small_xxx"�Dy%=Dy%�2048
'��
'�"�Ao%(_%,As%)=-1:Y$="small_xxx"
'�<�:ș262377,40,,Y$�,,,Hx%,Hl%,Qd%,Ou%:�F_%<Hl%+8F_%=Hl%+8
(�Hx%<34Fh%+=42�Fh%+=Hx%+8
(�Y$="S"+Y$:!M%=Br%:M%!4=En%+8:M%!12=En%+Fh%:M%!8=Hb%-F_%:M%!16=Hb%-1:M%!20=Dy%:M%!24=Da%:$Da%=g$(_%,As%):M%!32=�($Da%)+1:Da%+=M%!32:M%!28=Da%:$Da%=Y$:Da%+=(�Y$+1):ș262338,,M%�A`%(_%,As%):En%=M%!12:Hn%+=1:Gx%+=1:�Gx%=l%Gx%=0:Lr%+=1:En%=0:Hb%=M%!8
(��:As%+=1:�Hn%=y%(_%)
(�u�:ș262353,Br%,0,-10000,10000,0:!p%=Br%:ș262342,,p%:�S(p%,Br%):�(Nk%�Dt%(_%)=�)�Dt%(_%)=��9(Br%,�,�,2):Dt%(_%)=�
)@�
)hG��b(t%):�Qw%:!E%=t%:ș262344,0,E%�Mj%:�Ca(E%+4,Qz%,Rz%):ȕMj%:Ȏt%�
)��:ș262346,0,E%�Mj%:�:�
*&"ݤi(t%):�Ku%:Ku%=�:�t%=O%Db%=�
*N=Ku%
*���P`:�Em%,In%:�E%!4<>-1�
*�"ș262355,,v%:Em%=v%!4:ȎE%!24�
+�27ș262356,,�:In%=�
+ �:�In%=��!E%=G%�
+4Ds%=�:ȎE%!4�
+H�2:ȎE%!24�
+R�398,13,414:Ds%=6
+\�
+f�6:ȎE%!24�
+p�399,13,415:Ds%=2
+z�
+��18:ȎE%!24�
+��398,13,414:Ds%=19
+��
+��19:ȎE%!24�
+��399,13,415:Ds%=18
+��
+��:�Ds%>-1�
,#�Ds%=6Mg%=�(�9(X%,!E%,6))�Mg%=0
,ș262354,!E%,Ds%,�,�,�,Mg%
,$�
,.�
,8�:�In%=�ș262364,E%!24
,L�
,���U_:�Iz%<>-1șIz%
,��ș262351,,v%:v%!20=64:v%!32=0:v%!36=1:v%!40=v%!12:v%!44=v%!16:v%!48=!v%:v%!52=v%!4:v%!56=256:v%!60=Gm%:$(v%+64)=�N(�9(E%,Cc%,1)):ș262375,17,v%+20,v%!12,v%!16:�
-d��Y`:Ix%=�M("DragASprite_Start"):Iz%=�M("DragASprite_Stop"):ș6,161,28�,,Ob:�(Ob�2)=0Ix%=�:Iz%=�
-P�
-ni��S`(K):�R%=0�256:v%!R%=K!R%:�:K=v%:�j(�4(K+44)):�4(K+44),11)<>"<Wimp$Scrap"�1(E%,Cc%,1,�4(K+44),�)
-�YK!12=K!8:K!16=3:!K=(((44+�(�4(K+44))+1)�4)+1)*4:ș262375,17,K,K!20,K!24:ș262356,,�:�
-�9��T`(K):�M_%:d%=�:�(-2)h$=�B(1,�4(K+44))�h$=�4(K+44)
.Ep$=i$:ȎK!20�
."'�G%:�(K!24=0�K!24=1�K!24=2�K!24=3)�
.6Aq%=K!40:Ȏ��
.J�(Aq%>=0�Aq%<=4095):Ep$=h$
.T�Aq%=-1:Ep$=h$
.^�Aq%=4096,Aq%=8192:Ep$=h$
.r#�(Aq%>=12288�Aq%<=16383):Ep$=h$
.|:i$=�4(K+44)
.��:�1(X%,G%,2,Ep$,�):�f(K)
.�$�:�(K!24=8�(K!24>=14�K!24<=19))�
.�Gș8,5,�4(K+44)�M_%,,Gn%,Oj%:�f(K):�M_%�((Gn%>>>20)=4095)�p(Gn%,Oj%)
.��
.��Bd%,Ci%:�K!20=Bd%Q%=0�Q%=1
.�)Aq%=K!40:F$=�4(K+44):�f(K):�h(Q%,K,�)
/'�Bf%,-2:�K!40=Gm%�f(K):�m(�4(K+44))
/0�K!20=-2�5(Bf%):Dd%=�:�a
/:�:�
/X.��f(K):K!12=K!8:K!16=4:ș262375,17,K,K!4:�
/�!��C`:�Ag%>=300Dl%=E%!20�Dl%=0
/��Ip%=0�
/�/Hv%=E%!4:E%!12=E%!8:ș262375,19,E%,Hv%:�e%�
/��G�
/��x%�D:�Y:e%=�
/��(Dl%�1)�G
/�Tș262355,,E%:E%!24=508:ș262375,8,E%,Hv%:Ip%=�:�1(E%,-2,Bo,�0(F%,"IcWait"),�):�L
0*�
04�:�(Dl%�1)�G
0HTș262355,,E%:E%!24=508:ș262375,8,E%,Hv%:Ip%=�:�1(E%,-2,Bo,�0(F%,"IcWait"),�):�L
0��
0��:�
0�1ݤG:Cm%=3:�d(�0(F%,"EndBackup"),7,0):�Ar%=1=�
0�=�
1/��B`(E%):�B_$,k$,Ad$:k$="H":Ad$="":ȎE%!32�
1B/�-2:Ad$="Hiconw":k$="":�e%Ad$+="A"�Ad$+="B"
1L�O%:k$+="mainw":ȎE%!36�
1`�7,6:E%!36=6
1t�9,8:E%!36=8
1��21,19:E%!36=19
1��18,17:E%!36=17
1��14:�Am%k$+="A"�k$+="B"
1��
1��Bf%:k$+="prefs"
1��G%:k$+="prefl":ȎE%!36�
1��0,1,2,3:E%!36=0
2 �4,5,6:E%!36=4
2
�8,9:E%!36=8
2�16,17:E%!36=16
2�7,21:E%!36=7
2(�24:E%!36=7
22�20,22:E%!36=22
2<�
2F�At%:k$+="query"
2P�Ac%:k$+="notif"
2Z1�Bd%,Ci%:k$+="seli":�E%!32=Bd%k$+="0"�k$+="1"
2d�Cy%:k$+="infow"
2n�Cc%:k$+="saveb"
2x:�Ag%<300�
2�k$="XXXXXX"
2�*�:ș262388,1,X%,E%!32,E%!36:Ȏ�Aa$,5)�
2�5�"onlyt":�X%!0=(I-1)Ad$="MHonlytE"�Ad$="MHonlyt0"
2��"desti":Ad$="MHdesti0"
2�:k$="MH"+�Aa$,5):E%!36=!X%
2��
2��
2��:�Ad$=""�
3�k$<>""k$+=�(E%!36)
3�:k$=Ad$
3,8�:B_$=�0(F%,k$):�B_$=""k$=�k$,6)+"Gen":B_$=�0(F%,k$)
3JV�B_$<>""E%!12=E%!8:E%!16=1283:$(E%+20)=B_$+�0:!E%=(25+�B_$)��3:ș262375,17,E%,E%!4
3��
3� ��N:�Cf%<>-1Fz%=Cf%�Fz%=5000
3�<Gh%=Bw%-(�-32768)-Fz%-8:�Gh%<2�(Di%<>0�Gh%<El%)�Gh%<Pj%�
3�Wș262380,�,��Bw%,Md%,Mc%:ș262380,Bw%+(Fx%),��Ja%:�Ja%<Bw%+(Fx%)�0,�0(F%,"MoreRAM")
3��N
3�{�:E`%=(Gh%-8)�2:M`%=�+4:Ak%=M`%+8:Hq%=M`%+Fz%+4:Nv%=Hq%+E`%:Hg%=Nv%+4:O`%=Hg%+E`%:�O`%>(Bw%+32768)�0,�0(F%,"NoMoreRAM")
4XCf%=Fz%
4b�:�
4���a:�:��:�Aa(�,�)
4��i$=""�Ap%i$=�0(F%,"Sels")
4��Ap%Ba%=�:Cd%=�:Bz%=�
4���1(E%,O%,1,i$,�):�1(E%,O%,3,r$,�):�1(E%,O%,20,"",�):�1(E%,O%,7,"",�):�1(E%,O%,18,"",�):�1(E%,O%,16,"",�):�1(E%,O%,21,"",�):�1(E%,O%,9,"",�):�1(E%,O%,11,"",�):�1(E%,At%,0,"",�):�1(E%,Ac%,0,"",�):�9(O%,�,�,0):Db%=�:Bp$="":�Ap%Bp$+="S"
5f�Bn%Bp$+="I"
5p�Ba%Bp$+="i"
5z�Bz%Bp$+="l"
5��Cd%Bp$+="o"
5��Bq%Bp$+="O"
5��Dm%Bp$+="B"
5��Cb%Bp$+="Mf"
5��C`%Bp$+="Md"
5��Bu%Bp$+="Mi"
5��Di%Bp$+="b"
5�Ig$=":":�1(E%,-2,Bo,�0(F%,"IcDoing"),�):�1(E%,O%,5,Bp$,�):I`%=0:Gl%=0:Gc%=100:G_%=�:Am%=�:�0(O%,13,�):�0(O%,14,�):�i$<>�0(F%,"Sels")�Z_(i$)
6j[Fd$=�$:Jf$=�Fd$,5,2)+�Fd$,8,3)+�Fd$,14,2):Bj%=�(i$+".BackupDate"):�Bj%�#Bj%�D_%=0:Cx%=0
6�ZMf%=�Ba%:Jo%=Ap%:Mi%=Bn%:Rd%=((�Jo%)�(�Mi%)):Bi%=�:�Ba%�Bj%=0�Bz%�7(�0(F%,"NoDate",�))
6�C�Bj%�Bz%Bj%=�(i$+".BackupDate"):�#Bj%,D_%,Cx%:�#Bj%�D_%=0:Cx%=0
6��Cd%�y(B`$,Af$)
6�_o%=1:Jk%=0:Ev%=0:H_%=0:Ms%=0:Cf%=�:�N:m%=0:!J%=-4:�6(J%,1,+1):Y%=2:�Ap%=0șBb%,5,i$�Y%,,Gn%
7F�Y%=1�H(�B(1,i$))��H(i$)
7PQ�4(-254):�4(Dk*10000):�L`(Ga%):�4(Ge%):�4(0):Mx%=m%-4:�H(Fd$):�Ba%P_%=5�P_%=1
7� �Ap%�
7�\Cq%=0:�1(E%,O%,16,�0(F%,"Count"),�):�U(�A(0)):�Kb%=0�s%:�g$(0,Kb%)<>""Cq%+=�O(g$(0,Kb%))
7��:�1(E%,O%,16,"",�)
7�R�:�1(E%,O%,16,�0(F%,"Count"),�):�U(�A(0)):Cq%=�O(i$):�1(E%,O%,16,"",�):Rb%=Cq%
86&�:ș66�Cn%:e%=�:G_%=0:�c(n%):�Ap%�
8�3J$=i$:�H(�5(J$)):�5(J$),1)="!"Y%=8192�Y%=4096
8�m�P(Y%):�4(1):�8(254):�A(Dk*10000):�8(Ga%):�A(Ge%):�8(2):�F(i$):�A(0):�A(0):�A(0):�A(3):Ib%=�c(0):�Ib%<=0�
9�4(0):�8(3)
9&��:�4(Ib%):Eo%=m%:�a%=1�Ib%:�4(0):�:R%=m%:Eh%=0:�a%=R%-4�Eo%�-4:Eh%+=1:!J%=a%:�6(J%,1,+1):�:�Kn%=0�s%:�g$(0,Kn%)<>""Dg%=0:�X(g$(0,Kn%),0)
9l�
9v�
9���:�Y%=1J$=�B(1,i$):�H(�5(J$)):�P(�F(Gn%)):�4(1):�8(254):�A(Dk*10000):�8(Ga%):�A(Ge%):�8(2):�F(J$):�A(0):�A(0):�A(0):�A(3):�4(1):�4(0):!J%=m%-4:�6(J%,1,+1):Dg%=0:�X(i$,0)��8(254):�A(Dk*10000):�8(Ga%):�A(Ge%):�X(i$,0)
:�\�:Ak%!Mx%=o%-1:�Ag%>=300ș263491,":"+�n%,,,,,,,,Ca%�Lx%,O_%��k(":"+�n%,Ca%,Lx%,O_%,R%,0)
:��m%>Lx%-2048�c(n%)
:�bșBb%,10,r$+".KeyFile",4093,,Ak%,Ak%+m%:�D:ș66�P`%:Od%=P`%-Cn%:�Gl%>0Gc%=(I`%/Gl%)+.5�Gc%=100
:��Ap%=0�T
:��Ba%=0Cx%=0:D_%=0
:�%�Mi%�Jo%H`$=" selectively"�H`$=""
;�ș236,Jk%,X%,256�X%:Nm$=�4(X%):ș236,Cq%,X%,256�X%:Qe$=�4(X%):�1(E%,O%,16,�2(F%,"Finished@"+Qe$+"@"+H`$+"@"+r$+"@"+Nm$)+�U(Od%),�):�1(E%,O%,20,�(o%-1),�):�1(E%,O%,9,"0h 0m 0s",�):�1(E%,O%,7,"100%",�):�0(O%,13,�):�0(O%,14,�)
;BH�1(E%,-2,Bo,�0(F%,"IcWait"),�):�5(At%):�5(Ac%):e%=�:Am%=�:G_%=0:��:�
;~-��Aa(V%,R`%):�7(�2(F%,"BackErr@"+�$),�):�
;�K��y(B`$,Af$):�Fl%,d%,Rs%:�:��:�7(�2(F%,"WrongDatesC@"+�8(�,�)),�):�
;�d%=�:�Y(B`$,"/")<>2d%=�
;��d%=��1,�0(F%,"WrongDates")
<