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") <