Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199804.adf » Features » Organiser/!Upgrade/!RunImage
Organiser/!Upgrade/!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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199804.adf » Features |
| Filename: | Organiser/!Upgrade/!RunImage |
| Read OK: | ✔ |
| File size: | 29F0 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1REM>!RunImage
2REMProduced by BasCompress v1.71 (19 Sep 1996)
3N$="!Upgrade":DIMA%(4):A%(1)=&B:A%(2)=&A:A%(3)=&F:A%(4)=9:ONERROROSCLI"Error "+REPORT$+" at line "+STR$ERL:SYS&400DD:END
4PROCL("Organiser upgrader","<Upgrade$Dir>","1.26 (16 Nov 97)",TRUE):j%=FNC(1*&400):PROCq(j%,s%):ONERRORPROCK
5WHILENOTz%:PROCB(1):ENDWHILE:ONERROREND
6SYS&400DD:END
7DEFPROCg:LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#0:SYS&406C1:PROCC(REPORT$,FALSE):ENDPROC
8SYS&406C0:OSCLI"CDir <Upgrade$Dir>.BackUp":PROCS(5):PROCF(0):OSCLI"Copy "+M$+" <Upgrade$Dir>.Backup.!Organiser ~c ~v f r":PROCF(1):C$="<Upgrade$Dir>.BackUp.!Organiser":ONERRORLOCALRESTOREERROR:CLOSE#0:SYS&406C1:PROCC(REPORT$+STR$ERL,TRUE):ENDPROC
9OSCLI"Copy "+P$+" "+M$+" ~c ~v f r":PROCF(2):PROCO:PROCS(2):SYS&406C1:ENDPROC
10DEFPROCO:LOCALK%,Q%,A%,B%:K%=OPENIN(C$+".Data.Settings"):Q%=OPENOUT(M$+".Data.Settings"):IFD%>=&6ETHENV$=GET$#K%
11BPUT#Q%,J$:PROCZ:PROCZ:zy%=FNA:ey%=FNA:ry%=FNA:cy%=FNA:Ty%=FNA:n%=FNA:xy%=FNA:ay%=FNA:fy%=FNA:sy%=FNA:PROCA(2+5+5):IFD%<&73THEN
12PRINT#Q%,-1,0,0,0,0:BPUT#Q%,-1:BPUT#Q%,0:PRINT#Q%,500,920:PROCJ("0,15,8,11,4,4,11,")
13ELSE:INPUT#K%,O%,Gy%,g%,Py%,a%:PRINT#Q%,O%,Gy%,g%,Py%,a%:PROCA(1):PROCA(1):INPUT#K%,d%,Xy%:PRINT#Q%,d%,Xy%:PROCA(7)
14ENDIF:IFD%<&78THENPROCJ("3,7,9,")ELSEPROCA(3)
15IFD%<&73THEN
16FORB%=1TOn%:PROCA(1):BPUT#Q%,A%(B%):BPUT#Q%,7:NEXT
17ELSEPROCA(n%*3)
18ENDIF:IFD%<&78THENBPUT#Q%,"%z12:%mi:%se %am. %dy/%mn/%yr"ELSEPROCZ
19IFD%<&7DTHEN
20BPUT#Q%,0:BPUT#Q%,0:PRINT#Q%,71431
21ELSEPROCA(2+5)
22ENDIF:IFD%<&7ETHEN
23PROCJ("11,5,0,")
24ELSEPROCA(3)
25ENDIF:PROCZ:PROCZ:PROCA(3):IFD%<&78THEN
26BPUT#Q%,"mailto:":BPUT#Q%,"http://":PROCJ("4,8,7,7,7,7,7,7,7,7,7,7,7,11,10,")
27ELSEPROCZ:PROCZ:PROCA(&F)
28ENDIF:PROCZ:PROCA(2):IFD%<&7DTHENBPUT#Q%,&FFELSEPROCA(1)
29PROCZ:PROCA(4):PROCZ:PROCA(3):IFD%<&6ETHEN
30PROCR(2,0)
31ELSEPROCA(2)
32ENDIF:IFD%<&73THEN
33BPUT#Q%,6
34ELSEPROCA(1)
35ENDIF:IFD%<&7ETHEN
36BPUT#Q%,0
37ELSEPROCA(1)
38ENDIF:CLOSE#K%:CLOSE#Q%:PROCF(3):IFD%<&75THEN
39OSCLI"Remove "+M$+".Templates"
40ENDIF:PROCF(4):IFD%<&78THEN
41K%=OPENIN(C$+".Data.Addresses"):Q%=OPENOUT(M$+".Data.Addresses"):PROCr:PROCb:CLOSE#K%:CLOSE#Q%
42ELSEOSCLI"Copy "+C$+".Data.Addresses "+M$+".Data.Addresses ~c ~v f"
43ENDIF:OSCLI"Copy "+C$+".Data.Anni "+M$+".Data.Anni ~c ~v f":OSCLI"Copy "+C$+".Data.Diary "+M$+".Data.Diary ~c ~v f":OSCLI"Copy "+C$+".Data.Important "+M$+".Data.Important ~c ~v f":PROCF(5):ENDPROC
44DEFPROCR(N%,C%)LOCALA%:FORA%=1TON%:BPUT#Q%,CHR$C%;:NEXT:ENDPROC
45DEFPROCZBPUT#Q%,GET$#K%:ENDPROC
46DEFPROCA(N%)LOCALA%:FORA%=1TON%:BPUT#Q%,BGET#K%:NEXT:ENDPROC
47DEFFNALOCALA%:A%=BGET#K%:BPUT#Q%,A%:=A%
48DEFPROCJ(A$):WHILEA$<>"":BPUT#Q%,VALA$:PRINTVALA$:A$=MID$(A$,INSTR(A$,",")+1):ENDWHILE:ENDPROC
49DEFPROCr:LOCALUy%,A$(),A%,N%,S%,C%,B%:DIMA$(&E):f%=-1:WHILENOTEOF#K%:S%=&C:Uy%=VALGET$#K%:IFD%<&73THENN%=&DELSEN%=&E
50FORA%=0TON%:A$(A%)=GET$#K%:S%+=LENA$(A%)+1:NEXT:IFN%=&DTHENA$(&E)="":N%=&E:S%+=1
51C%=FNJ(j%,S%,TRUE):C%!8=S%:S%=C%+&C:FORA%=0TON%:$S%=A$(A%)+CHR$&A:S%+=LENA$(A%)+1:NEXT:X$=FNF(A$(0)+" "+A$(1)):B%=f%:IFB%<>-1THEN
52WHILEFNF(FNM(B%,0)+" "+FNM(B%,1))<X$ANDB%!4<>-1:B%=B%!4:ENDWHILE:IFFNF(FNM(B%,0)+" "+FNM(B%,1))>=X$THEN
53!C%=!B%:C%!4=B%:!B%=C%:IF!C%<>-1THEN!(!C%+4)=C%ELSEf%=C%
54ELSE:B%!4=C%:!C%=B%:C%!4=-1
55ENDIF
56ELSEf%=C%:!C%=-1:C%!4=-1
57ENDIF:ENDWHILE:ENDPROC
58DEFPROCb:LOCALB%:B%=f%:WHILEB%<>-1:BPUT#Q%,STR$B%!8:SYS&C,2,Q%,B%+&C,B%!8 -&C:B%=B%!4:ENDWHILE:ENDPROC
59DEFFNF(A$):LOCALB%:A$=FNI(A$):B%=ASCLEFT$(A$,1):WHILENOT(B%>47ANDB%<58)ANDNOT(B%>64ANDB%<91)ANDA$<>"":A$=MID$(A$,2):B%=ASCLEFT$(A$,1):ENDWHILE:=A$
60DEFFNM(B%,L%):LOCALA$:B%+=&C:WHILEL%>0:WHILE?B%<>&A:B%+=1:ENDWHILE:B%+=1:L%-=1:ENDWHILE:WHILE?B%<>&A:A$+=CHR$?B%:B%+=1:ENDWHILE:=A$
61DEFPROCd:CASECy%OF
62WHEN2:J%!8=J%!16-368:SYS&400C5,,J%
63WHEN3:PROCh(!J%):IF!J%=U%THENz%=TRUE
64WHEN6:PROCQ(J%!&C,J%!16,J%!8,!J%,J%!4)
65WHEN7:PROCv
66WHEN8:PROCa(!J%,J%!4,J%!24)
67WHEN9:PROCt
68WHEN17,18:PROCX
69ENDCASE:ENDPROC
70DEFPROCv:IFFNBTHENSYS&42401
71SYS&400CF,,J%:J%!20=J%!&C:J%!24=J%!16:J%!28=!J%:J%!32=J%!4:J%!36=0:!J%=64:J%!&C=0:J%!40=512:$(J%+44)="!Organiser":J%!16=1:SYS&400E7,18,J%,J%!20,J%!24:IF(J%!8AND1)=0THENSYS&400D4,,-1
72ENDPROC
73DEFPROCX:CASEJ%!16OF
74WHEN0:z%=TRUE
75WHEN2:PROCz(FNZ(J%+44))
76WHEN3:PROCV(J%!40,FNZ(J%+44))
77WHEN8:PROCD
78ENDCASE:ENDPROC
79DEFPROCz(S$):SYS&406C0:OSCLI"Copy "+P$+" "+S$+" r ~c ~v":_%=OPENOUT(S$+".Resources.!Language"):BPUT#_%,FNS(U%,37):CLOSE#_%:K%=OPENIN(P$+".Data.Settings"):Q%=OPENOUT(S$+".Data.Settings"):PROCZ:PROCZ:A$=GET$#_%:BPUT#Q%,FNS(U%,35):WHILENOTEOF#K%:BPUT#Q%,BGET#K%:ENDWHILE:CLOSE#Q%:CLOSE#K%:SYS&406C1
80SWAPJ%!8,J%!&C:J%!16=3:SYS&400E7,18,J%,J%!4:z%=TRUE:ENDPROC
81DEFFNH(h%,S$):=(h%=8192)
82DEFFN_(h%,S$):LOCAL_%:IFFNL(S$)="!Organiser"+CHR$0THEN
83_%=OPENIN(S$+".Data.Settings"):F$=GET$#_%:CLOSE#_%:IFVALF$=0THENF$="1.00 (8 Aug 97)"
84D%=(VALF$)*&64:M$=S$:CASETRUEOF
85WHEND%<c%:PROCM(U%,7,S$):PROCM(U%,8,"Version "+F$):PROCW(U%,&A,0):PROCS(1)
86WHEND%=c%:PROCC("The version you are trying to upgrade is the latest version known to this upgrading application.",FALSE)
87WHEND%>c%:PROCC("The version you are trying to upgrade is newer than this upgrading application.",FALSE)
88ENDCASE
89ENDIF:=TRUE
90DEFPROCQ(R%,q%,k%,e%,r%):CASER%OF
91WHEN-2:IFk%=2THENPROCG(b%,!J%-64,-1)ELSEPROCu(U%,-1,-1)
92WHENU%:IFk%<>2THEN
93CASEq%OF
94WHEN2:PROCS(1)
95WHEN9:PROCS(0)
96WHEN&A:PROCg
97WHEN&D,19:PROC_
98WHEN&E:OSCLI"Filer_Run "+W$+".Improv"
99WHEN&F,18,23:z%=TRUE
100WHEN20:PROCS(4):PROCU(U%,35)
101WHEN24:PROCS(0)
102WHEN26:IF(k%AND64)THENPROCN(U%,26,"!Organiser")
103WHEN37:PROCI(U%,37)
104ENDCASE
105ELSEPROCG(b%,!J%-64,J%!4)
106ENDIF
107ENDCASE:ENDPROC
108DEFPROCI(d%,o%):LOCALt%,D$,Zy%,B$,G$,Q$,g%:t%=1:D$=FNS(d%,o%):REPEAT:SYS&C,9,P$+".Resources",J%,1,t%,256,0TO,,,g%,t%:IFg%=1THEN
109G$=FNZ(J%):IFQ$=""THENQ$=G$
110IFZy%=TRUETHENB$=G$
111IFG$=D$THENZy%=TRUE
112ENDIF:UNTILt%=-1ORB$<>"":IFB$=""THENB$=Q$
113PROCM(d%,o%,B$):ENDPROC
114DEFPROCy:CASEy%OF
115WHENb%:CASE!J%OF
116WHEN1:z%=TRUE
117ENDCASE
118ENDCASE:ENDPROC
119DEFFNX(R%,q%,vy%,Wy%,`%,By%,Fy%,Qy%):LOCALAy%:Ay%=TRUE:CASER%OF
120ENDCASE:=Ay%
121DEFPROCC(A$,F%):PROCM(U%,17,A$):PROCw(U%,19,ABSNOTF%):PROCS(3):ENDPROC
122DEFPROCS(N%):!G%=U%:SYS&400CB,,G%:G%!8=G%!16-368:G%!24=N%*-368:SYS&400C5,,G%:ENDPROC
123DEFPROCF(N%):LOCALA%:FORA%=29TO32:PROCs(U%,A%,-(N%>A%-29)):NEXT:PROCB(NOT1):ENDPROC
124DEFPROC_:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&406C1:PROCC(REPORT$,FALSE):ENDPROC
125SYS&406C0:OSCLI"Copy "+C$+" "+M$+" ~c ~v f r q":SYS&406C1:PROCS(1):RESTOREERROR:ENDPROC
126DEFPROCe:Dy%=FNQ(W$+".Sprites",0):F$="":D%=0:c%=(VALJ$+0.001)*&64:M$="":C$="":P$=W$+".!Organiser":ENDPROC
127DEFPROCn:PROCM(U%,7,""):PROCM(U%,8,""):PROCW(U%,&A,1):PROCM(U%,37,"English"):IFFNV("Organiser$Dir")THEN
128_%=OPENIN("<Organiser$Dir>.Data.Settings"):M$=FNq("Organiser$Dir"):F$=GET$#_%:CLOSE#_%:IFVALF$=0THENF$="1.00 (8 Aug 97)"
129D%=(VALF$)*&64:IFD%<c%THENPROCW(U%,&A,0):PROCM(U%,7,M$):PROCM(U%,8,"Version "+F$)
130ENDIF:PROCS(0):ENDPROC
131DEFPROCT:LOCALP%:l%=FNW("Info"):U%=FNW("Main"):SYS&400DB,,0,0,0,0,"Main"TO,Uy%:PROCM(l%,8,J$):PROCY(U%,P%!72,"Organiser upgrader version "+LEFT$(J$,4),0):ENDPROC
132DEFPROCc:b%=FNT("Skeleton"+FNU("Info",l%)+"\Quit"):ENDPROC
4051DEFPROCL(H$,K$,I$,Iy%):U$=H$:J$=I$:s%=0:z%=FALSE:W$=K$:x%=0:v%=0:m%=FALSE:u%=FALSE:DIMJ%512:G%=J%+256:SYS&400C0,&C8,&4B534154,U$TOLy%,qy%:PROCe:IFIy%THENPROCH(Ky%,W$+".Templates")
4052PROCc:PROCn:ENDPROC
4053DEFPROCB(_y%):SYS&400C7,_y%,J%TOCy%:PROCd:ENDPROC
4054DEFPROCa(d%,o%,w%):LOCALWy%,`%,By%,Fy%,Qy%:Wy%=(w%=399):`%=(w%=398):By%=(w%=415):Fy%=(w%=414):Qy%=(w%=&D):IFNOTFNX(d%,o%,w%,Wy%,`%,By%,Fy%,Qy%)THENSYS&400DC,w%
4055ENDPROC
4056DEFPROCt:LOCALMy%:My%=FNN:PROCy:IFMy%THENSYS&400D4,,y%
4057ENDPROC
4058DEFPROCV(h%,S$):IFFNH(h%,S$)THEN
4059IFFN_(h%,S$)THEN
4060SWAPJ%!8,J%!&C:J%!16=4:SYS&400E7,17,J%,J%!4:IFS$="<Wimp$Scrap>"THENOSCLI"Remove <Wimp$Scrap>"
4061ENDIF
4062ENDIF:ENDPROC
4063DEFPROCD:IFFNY<>-1THENJ%!&C=J%!8:J%!8=0:SYS&400E7,19,J%,J%!4
4064ENDPROC
4065DEFFNY:=TRUE
4066DEFFNQ(S$,E%):LOCALF%,A%,S%:F%=OPENINS$:A%=EXT#F%+4:CLOSE#F%:A%+=E%:DIMS%A%:!S%=A%:S%!8=16:SYS46,266,S%,S$:=S%
4067DEFPROCU(R%,q%):!G%=R%:G%!4=q%:SYS&400CE,,G%:SYS&400D2,R%,q%,,,-1,LENFNZ(G%!28):ENDPROC
4068DEFPROCw(R%,q%,O%):LOCALa%:a%=G%+64:IFO%=1THEN!G%=R%:G%!4=q%:SYS&400CE,,G%
4069!a%=R%:a%!4=q%:a%!8=(ABSO%)<<23:a%!&C=1<<23:SYS&400CD,,a%:IFO%=1THENSYS&400D1,R%,G%!8,G%!&C,G%!16,G%!20
4070ENDPROC
4071DEFPROCs(R%,q%,O%):LOCALA%:!G%=R%:G%!4=q%:A%=1:IFO%=-1THENO%=1:A%=0
4072G%!8=O%<<21:G%!&C=A%<<21:SYS&400CD,,G%:ENDPROC
4073DEFPROCW(R%,q%,O%):LOCALA%:A%=1:!G%=R%:G%!4=q%:IFO%=-1THENO%=1:A%=0
4074G%!8=O%*(1<<22):G%!&C=A%<<22:SYS&400CD,,G%:ENDPROC
4075DEFPROCM(R%,q%,R$):LOCALP%,L%:!G%=R%:G%!4=q%:SYS&400CE,,G%:IFG%!24AND(1<<8)THENP%=G%!28:L%=(G%!36)-1:ELSEP%=G%+28:L%=&B
4076$P%=LEFT$(R$,L%):G%!8=0:G%!&C=0:SYS&400CD,,G%:ENDPROC
4077DEFFNS(R%,q%):LOCALA$:!G%=R%:G%!4=q%:SYS&400CE,,G%:IF(G%!24AND256)>0THENA$=FNZ(G%!28)ELSEA$=FNZ(G%+28)
4078=A$
4079DEFFNT(A$):LOCALA%,B%,L%,Z$,I%:A$+="\":DIMA%4*FNR (A$)*24:B%=A%+4:Z$=LEFT$(A$,INSTR(A$,"\")-1):$A%=Z$:A%!&C=&70207:A%!20=44:A%!24=0:L%=LENZ$:A$=MID$(A$,INSTR(A$,"\")+1):WHILEINSTR(A$,"\"):Z$=LEFT$(A$,INSTR(A$,"\")-1):B%+=24:!B%=FNK(Z$):B%!4=0:B%!8=&7000021
4080IFINSTR(Z$,">")THENB%!4=VALMID$(Z$,INSTR(Z$,">")+1):Z$=LEFT$(Z$,INSTR(Z$,">")-1)
4081IFLENZ$>&BTHENDIMI%LENZ$+1:$I%=Z$:B%!8=B%!8OR256:B%!&C=I%:B%!16=0:B%!20=I%+1ELSE$(B%+&C)=Z$
4082IFLENZ$>L%THENL%=LENZ$
4083A$=MID$(A$,INSTR(A$,"\")+1):ENDWHILE:!B%=!B%OR&80:A%!16=L%*16+16:=A%
4084DEFFNK(RETURNZ$):LOCALA%,F%:REPEAT:CASECHR$ASCZ$OF
4085WHEN"�":A%+=1:Z$=MID$(Z$,2)
4086WHEN"_":A%+=2:Z$=MID$(Z$,2)
4087WHEN"*":A%+=8:Z$=MID$(Z$,2)
4088OTHERWISEF%=-1
4089ENDCASE:UNTILF%:=A%
4090DEFFNR(A$):LOCALA%:WHILEINSTR(A$,"\"):A%+=1:A$=MID$(A$,INSTR(A$,"\")+1):ENDWHILE:=A%
4091DEFFND(A%):LOCALH%:A%+=4:REPEATA%+=24:H%+=44:IF(!A%AND2)>0THENH%+=24
4092UNTIL(!A%AND&80)>0:=H%+96
4093DEFPROCG(M%,X%,Y%):IFY%=-1THENY%=FND(M%)
4094SYS&400D4,,M%,X%,Y%:y%=M%:ENDPROC
4095DEFFNU(A$,A%):="\"+A$+">"+STR$A%
4096DEFFNN:SYS&400CF,,G%:=(((G%!8)AND1)=1)
4097DEFFNB:LOCALA%,B%:SYS&20039,,"DragASprite_Start"TO;A%:B%=TRUE:IF(A%AND1)THENB%=FALSE
4098SYS6,&A1,28TO,,A%:IF(A%AND2)=0THENB%=FALSE
4099=B%
4100DEFPROCN(R%,q%,N$):!J%=R%:SYS&400CB,,J%:e%=J%!4-J%!20:r%=J%!16-J%!24:J%!4=q%:SYS&400CE,,J%:IFFNBTHEN
4101!J%=e%+J%!8:J%!4=r%+J%!&C:J%!8=e%+J%!16:J%!&C=r%+J%!20:SYS&42400,&C5,1,N$,J%,0
4102ELSE:J%!4=5:J%!8=e%+J%!8:J%!&C=r%+J%!&C:J%!16=e%+J%!16:J%!20=r%+J%!20:J%!24=0:J%!28=0:J%!32=&7FFFFFFF:J%!36=&7FFFFFFF:SYS&400D0,,J%
4103ENDIF:ENDPROC
4104DEFFNL(A$):WHILEINSTR(A$,"."):A$=MID$(A$,INSTR(A$,".")+1):ENDWHILE:=A$+CHR$0
4105DEFFNG:LOCALA%,B%:SYS53,-1,&CTO,,A%:SYS53,-1,5TO,,B%:=(A%<<B%)
4106DEFFNJ(H%,S%,F%):LOCALP%,E%,V%,L%,T%:SYS&2001D,2,H%,,S%TOE%,,P%;V%:IF(V%AND1)=1THEN
4107IFF%THEN
4108P%=FNP:PROCP(H%,(S%DIVP%)*P%-P%*((S%MODP%)>0),TRUE):P%=FNJ(H%,S%,FALSE)
4109ELSESYS43,E%
4110ENDIF
4111ENDIF:=P%
4112DEFPROCf(H%,RETURNB%,S%,F%):LOCALL%,E%,V%,T%,P%:SYS&2001D,4,H%,B%,S%TOE%,,B%;V%:V%=((V%AND1)=1):CASETRUEOF
4113WHENV%ANDNOTF%:SYS43,E%
4114WHENV%ANDF%AND(S%>0):PROCP(H%,S%,TRUE):PROCf(H%,B%,S%,TRUE)
4115WHENV%ANDF%AND(S%<0)
4116WHENNOTV%ANDF%AND(S%<0):PROCP(H%,-1,TRUE)
4117ENDCASE:ENDPROC
4118DEFPROCP(H%,S%,F%):LOCALP%:IFF%THEN
4119IFS%<0THEN
4120SYS&2001D,5,H%,,-32*&400*&400:S%=H%!&C+H%-&8000:P%=FNP:SYS&400EC,-1,-1TOF%:F%=FNC(((S%DIVP%)*P%-P%*((S%MODP%)>0))-F%):SYS29,5,H%,,((S%DIVP%)*P%-P%*((S%MODP%)>0))-S%
4121ELSE:E%=s%:F%=FNC(S%):SYS29,5,H%,,s%-E%
4122ENDIF
4123ELSESYS29,5,H%,,S%
4124ENDIF:ENDPROC
4125DEFPROCq(H%,S%):IFS%=-1THENS%=s%
4126SYS29,0,H%,,S%:ENDPROC
4127DEFFNP:LOCALP%:SYS81TOP%:=P%
4128DEFFNq(A$):LOCALL%:SYS35,A$,G%,&FF,0,3TO,,L%:G%?L%=0:=FNZ(G%)
4129DEFFNV(A$):LOCALL%,F%:SYS&20023,A$,G%,&FF,0,3TO,,L%;F%:IF(F%AND1)=0THENG%?L%=0:IFFNZ(G%)<>""THENF%=TRUEELSEF%=FALSE
4130=F%
4131DEFFNC(M%):LOCALS%:SYS&400EC,-1,-1TOS%:SYS&400EC,S%+M%,-1TOS%:s%=S%-(HIMEM-&8000):=HIMEM
4132DEFFNZ(P%):LOCALA$:WHILE?P%<>0AND?P%<>&DAND?P%<>&A:A$+=CHR$(?P%):P%+=1:ENDWHILE:=A$
4133DEFFNI(A$):LOCALA%,C%:FORA%=1TOLENA$:C%=ASCMID$(A$,A%,1):IFC%>=97ANDC%<=&7ATHENC%=C%ANDNOT32
4134MID$(A$,A%)=CHR$(C%):NEXT:=A$
4135DEFFNO:LOCALA%,B%:SYS53,-1,&BTO,,A%:SYS53,-1,4TO,,B%:=(A%<<B%)
4136DEFPROCK:LOCALERROR:ONERRORERROREXTERL,REPORT$+" at line "+STR$ERL
4137!J%=ERR:$(J%+4)=REPORT$+","+STR$ERL+". Click OK continue or CANCEL to quit application.":SYS&400DF,J%,3+(1<<&A)+(1<<8),U$,N$TO,O%:IFO%=2THENz%=-1
4138RESTOREERROR:ENDPROC
4139DEFPROCh(R%):!G%=R%:SYS&400C6,,G%:IFR%=v%THENm%=FALSE:!G%=x%:SYS&600C6,,G%
4140IFR%=U%THENu%=FALSE
4141ENDPROC
4142DEFFNW(L$):LOCALH%,S%,I%,O%,i%:SYS&400DB,,,0,0,0,L$,0TO,S%,I%:IFS%>512THEN
4143SYS&2001E,6,,,S%TO,,P%;O%:IFO%AND1THENERROR2,"Not enough memory to create window."
4144ELSEP%=J%
4145ENDIF:DIMi%I%:SYS&400DB,,P%,i%,i%+I%,Jy%,L$,0TO,,i%:P%!64=Dy%:SYS&400C1,,P%TOH%:IFS%>512THENSYS30,7,,P%
4146=H%
4147DEFPROCu(R%,p%,Ny%):LOCALW%,H%,X%,Y%,Z%:!G%=R%:SYS&400CB,,G%:X%=36*((G%!32>>28)AND1):Y%=36*((G%!32>>26)AND1)-36*((G%!32>>30)AND1):W%=G%!&C-G%!4+X%:H%=G%!16-G%!8+Y%:IFNy%=-1THEN
4148G%!4=FNO/2-W%/2:G%!&C=G%!4+W%:G%!16=FNG-((FNG-&84)-H%)/2-Y%:G%!8=G%!16-H%
4149ELSE:IFNy%=1THEN
4150MOUSEX%,Y%,Z%:G%!4=X%-64:G%!&C=G%!4+W%:G%!8=Y%-H%:G%!16=Y%
4151ENDIF
4152ENDIF:IFp%<>0THENG%!28=p%
4153SYS&400C5,,G%:IFR%=U%THENu%=TRUE
4154IFR%=v%THENm%=TRUE:!J%=v%:SYS&400CB,,J%:J%!28=G%!28:PROCx
4155ENDPROC
4156DEFPROCx:IFx%<>0AND!J%=v%THEN
4157!G%=x%:G%!4=J%!4+Sy%:G%!16=J%!16+Ry%:G%!&C=G%!4+Hy%:G%!8=G%!16-Vy%:G%!20=0:G%!24=0:G%!28=J%!28:IFYy%THEN
4158G%!4-=J%!20:G%!&C-=J%!20:IFG%!4<J%!4THENG%!20=J%!20-Sy%:G%!4=J%!4
4159IFG%!&C>J%!&CTHENG%!&C=J%!&C
4160ENDIF:IFOy%THEN
4161G%!16-=J%!24:G%!8-=J%!24:IFG%!16>J%!16THENG%!24=J%!16-G%!16:G%!16=J%!16
4162IFG%!8<J%!8THENG%!8=J%!8
4163ENDIF:SYS&400C5,,G%:J%!28=x%
4164ENDIF:ENDPROC
4165DEFPROCH(Ky%,T$):Jy%=-1:SYS&400D9,,T$:PROCT:SYS&400DA:ENDPROC
4166DEFPROCY(W%,dy%,A$,wy%):$dy%=A$:IFwy%THEN
4167!J%=W%:SYS&400CB,,J%:SYS&400D1,-1,J%!4,J%!16,J%!&C,J%!16+44
4168ENDIF:ENDPROC
�>!RunImage
0�Produced by BasCompress v1.71 (19 Sep 1996)
dN$="!Upgrade":�A%(4):A%(1)=&B:A%(2)=&A:A%(3)=&F:A%(4)=9:�"Error "+�$+" at line "+Þ:ș&400DD:�
^�L("Organiser upgrader","<Upgrade$Dir>","1.26 (16 Nov 97)",�):j%=�C(1*&400):�q(j%,s%):��K
ȕ�z%:�B(1):�:��
ș&400DD:�
(��g:�:��:�#0:ș&406C1:�C(�$,�):�
�ș&406C0:�"CDir <Upgrade$Dir>.BackUp":�S(5):�F(0):�"Copy "+M$+" <Upgrade$Dir>.Backup.!Organiser ~c ~v f r":�F(1):C$="<Upgrade$Dir>.BackUp.!Organiser":��:�#0:ș&406C1:�C(�$+Þ,�):�
=�"Copy "+P$+" "+M$+" ~c ~v f r":�F(2):�O:�S(2):ș&406C1:�
Y��O:�K%,Q%,A%,B%:K%=�(C$+".Data.Settings"):Q%=�(M$+".Data.Settings"):�D%>=&6E�V$=�#K%
i�#Q%,J$:�Z:�Z:zy%=�A:ey%=�A:ry%=�A:cy%=�A:Ty%=�A:n%=�A:xy%=�A:ay%=�A:fy%=�A:sy%=�A:�A(2+5+5):�D%<&73�
G�#Q%,-1,0,0,0,0:�#Q%,-1:�#Q%,0:�#Q%,500,920:�J("0,15,8,11,4,4,11,")
[�:�#K%,O%,Gy%,g%,Py%,a%:�#Q%,O%,Gy%,g%,Py%,a%:�A(1):�A(1):�#K%,d%,Xy%:�#Q%,d%,Xy%:�A(7)
�:�D%<&78��J("3,7,9,")��A(3)
�D%<&73�
'�B%=1�n%:�A(1):�#Q%,A%(B%):�#Q%,7:�
��A(n%*3)
5�:�D%<&78��#Q%,"%z12:%mi:%se %am. %dy/%mn/%yr"��Z
�D%<&7D�
�#Q%,0:�#Q%,0:�#Q%,71431
��A(2+5)
�:�D%<&7E�
�J("11,5,0,")
��A(3)
�:�Z:�Z:�A(3):�D%<&78�
H�#Q%,"mailto:":�#Q%,"http://":�J("4,8,7,7,7,7,7,7,7,7,7,7,7,11,10,")
��Z:�Z:�A(&F)
%�:�Z:�A(2):�D%<&7D��#Q%,&FF��A(1)
�Z:�A(4):�Z:�A(3):�D%<&6E�
�R(2,0)
��A(2)
�:�D%<&73�
!
�#Q%,6
"
��A(1)
#�:�D%<&7E�
$
�#Q%,0
%
��A(1)
& �:�#K%:�#Q%:�F(3):�D%<&75�
' �"Remove "+M$+".Templates"
(�:�F(4):�D%<&78�
)IK%=�(C$+".Data.Addresses"):Q%=�(M$+".Data.Addresses"):�r:�b:�#K%:�#Q%
*@�"Copy "+C$+".Data.Addresses "+M$+".Data.Addresses ~c ~v f"
+��:�"Copy "+C$+".Data.Anni "+M$+".Data.Anni ~c ~v f":�"Copy "+C$+".Data.Diary "+M$+".Data.Diary ~c ~v f":�"Copy "+C$+".Data.Important "+M$+".Data.Important ~c ~v f":�F(5):�
,(��R(N%,C%)�A%:�A%=1�N%:�#Q%,�C%;:�:�
-��Z�#Q%,�#K%:�
.%��A(N%)�A%:�A%=1�N%:�#Q%,�#K%:�:�
/ ݤA�A%:A%=�#K%:�#Q%,A%:=A%
09��J(A$):ȕA$<>"":�#Q%,�A$:�A$:A$=�A$,�A$,",")+1):�:�
1Z��r:�Uy%,A$(),A%,N%,S%,C%,B%:�A$(&E):f%=-1:ȕ��#K%:S%=&C:Uy%=��#K%:�D%<&73�N%=&D�N%=&E
2E�A%=0�N%:A$(A%)=�#K%:S%+=�A$(A%)+1:�:�N%=&D�A$(&E)="":N%=&E:S%+=1
3qC%=�J(j%,S%,�):C%!8=S%:S%=C%+&C:�A%=0�N%:$S%=A$(A%)+�&A:S%+=�A$(A%)+1:�:X$=�F(A$(0)+" "+A$(1)):B%=f%:�B%<>-1�
4Uȕ�F(�M(B%,0)+" "+�M(B%,1))<X$�B%!4<>-1:B%=B%!4:�:�F(�M(B%,0)+" "+�M(B%,1))>=X$�
55!C%=!B%:C%!4=B%:!B%=C%:�!C%<>-1�!(!C%+4)=C%�f%=C%
6 �:B%!4=C%:!C%=B%:C%!4=-1
7�
8�f%=C%:!C%=-1:C%!4=-1
9 �:�:�
:J��b:�B%:B%=f%:ȕB%<>-1:�#Q%,�B%!8:ș&C,2,Q%,B%+&C,B%!8 -&C:B%=B%!4:�:�
;fݤF(A$):�B%:A$=�I(A$):B%=��A$,1):ȕ�(B%>47�B%<58)��(B%>64�B%<91)�A$<>"":A$=�A$,2):B%=��A$,1):�:=A$
<_ݤM(B%,L%):�A$:B%+=&C:ȕL%>0:ȕ?B%<>&A:B%+=1:�:B%+=1:L%-=1:�:ȕ?B%<>&A:A$+=�?B%:B%+=1:�:=A$
=��d:ȎCy%�
>"�2:J%!8=J%!16-368:ș&400C5,,J%
?�3:�h(!J%):�!J%=U%�z%=�
@$�6:�Q(J%!&C,J%!16,J%!8,!J%,J%!4)
A �7:�v
B�8:�a(!J%,J%!4,J%!24)
C �9:�t
D
�17,18:�X
E�:�
F��v:�B�ș&42401
G�ș&400CF,,J%:J%!20=J%!&C:J%!24=J%!16:J%!28=!J%:J%!32=J%!4:J%!36=0:!J%=64:J%!&C=0:J%!40=512:$(J%+44)="!Organiser":J%!16=1:ș&400E7,18,J%,J%!20,J%!24:�(J%!8�1)=0�ș&400D4,,-1
H�
I��X:ȎJ%!16�
J �0:z%=�
K�2:�z(�Z(J%+44))
L�3:�V(J%!40,�Z(J%+44))
M �8:�D
N�:�
O���z(S$):ș&406C0:�"Copy "+P$+" "+S$+" r ~c ~v":_%=�(S$+".Resources.!Language"):�#_%,�S(U%,37):�#_%:K%=�(P$+".Data.Settings"):Q%=�(S$+".Data.Settings"):�Z:�Z:A$=�#_%:�#Q%,�S(U%,35):ȕ��#K%:�#Q%,�#K%:�:�#Q%:�#K%:ș&406C1
P3ȔJ%!8,J%!&C:J%!16=3:ș&400E7,18,J%,J%!4:z%=�:�
QݤH(h%,S$):=(h%=8192)
R+ݤ_(h%,S$):�_%:�L(S$)="!Organiser"+�0�
SF_%=�(S$+".Data.Settings"):F$=�#_%:�#_%:�F$=0�F$="1.00 (8 Aug 97)"
TD%=(�F$)*&64:M$=S$:Ȏ��
U?�D%<c%:�M(U%,7,S$):�M(U%,8,"Version "+F$):�W(U%,&A,0):�S(1)
Vs�D%=c%:�C("The version you are trying to upgrade is the latest version known to this upgrading application.",�)
Wb�D%>c%:�C("The version you are trying to upgrade is newer than this upgrading application.",�)
X�
Y�:=�
Z ��Q(R%,q%,k%,e%,r%):ȎR%�
[+�-2:�k%=2��G(b%,!J%-64,-1)��u(U%,-1,-1)
\�U%:�k%<>2�
] Ȏq%�
^ �2:�S(1)
_ �9:�S(0)
`
�&A:�g
a
�&D,19:�_
b"�&E:�"Filer_Run "+W$+".Improv"
c�&F,18,23:z%=�
d�20:�S(4):�U(U%,35)
e
�24:�S(0)
f'�26:�(k%�64)��N(U%,26,"!Organiser")
g�37:�I(U%,37)
h�
i��G(b%,!J%-64,J%!4)
j�
k�:�
ln��I(d%,o%):�t%,D$,Zy%,B$,G$,Q$,g%:t%=1:D$=�S(d%,o%):�:ș&C,9,P$+".Resources",J%,1,t%,256,0�,,,g%,t%:�g%=1�
mG$=�Z(J%):�Q$=""�Q$=G$
n�Zy%=��B$=G$
o�G$=D$�Zy%=�
p �:�t%=-1�B$<>"":�B$=""�B$=Q$
q�M(d%,o%,B$):�
r
��y:Ȏy%�
s�b%:Ȏ!J%�
t �1:z%=�
u�
v�:�
w6ݤX(R%,q%,vy%,Wy%,`%,By%,Fy%,Qy%):�Ay%:Ay%=�:ȎR%�
x
�:=Ay%
y2��C(A$,F%):�M(U%,17,A$):�w(U%,19,��F%):�S(3):�
zK��S(N%):!G%=U%:ș&400CB,,G%:G%!8=G%!16-368:G%!24=N%*-368:ș&400C5,,G%:�
{:��F(N%):�A%:�A%=29�32:�s(U%,A%,-(N%>A%-29)):�:�B(�1):�
|$��_:�:��:ș&406C1:�C(�$,�):�
}Bș&406C0:�"Copy "+C$+" "+M$+" ~c ~v f r q":ș&406C1:�S(1):��:�
~_��e:Dy%=�Q(W$+".Sprites",0):F$="":D%=0:c%=(�J$+0.001)*&64:M$="":C$="":P$=W$+".!Organiser":�
U��n:�M(U%,7,""):�M(U%,8,""):�W(U%,&A,1):�M(U%,37,"English"):�V("Organiser$Dir")�
�i_%=�("<Organiser$Dir>.Data.Settings"):M$=�q("Organiser$Dir"):F$=�#_%:�#_%:�F$=0�F$="1.00 (8 Aug 97)"
�FD%=(�F$)*&64:�D%<c%��W(U%,&A,0):�M(U%,7,M$):�M(U%,8,"Version "+F$)
�
�:�S(0):�
����T:�P%:l%=�W("Info"):U%=�W("Main"):ș&400DB,,0,0,0,0,"Main"�,Uy%:�M(l%,8,J$):�Y(U%,P%!72,"Organiser upgrader version "+�J$,4),0):�
�1��c:b%=�T("Skeleton"+�U("Info",l%)+"\Quit"):�
Ә��L(H$,K$,I$,Iy%):U$=H$:J$=I$:s%=0:z%=�:W$=K$:x%=0:v%=0:m%=�:u%=�:�J%512:G%=J%+256:ș&400C0,&C8,&4B534154,U$�Ly%,qy%:�e:�Iy%��H(Ky%,W$+".Templates")
� �c:�n:�
�%��B(_y%):ș&400C7,_y%,J%�Cy%:�d:�
֒��a(d%,o%,w%):�Wy%,`%,By%,Fy%,Qy%:Wy%=(w%=399):`%=(w%=398):By%=(w%=415):Fy%=(w%=414):Qy%=(w%=&D):笤X(d%,o%,w%,Wy%,`%,By%,Fy%,Qy%)�ș&400DC,w%
��
�(��t:�My%:My%=�N:�y:�My%�ș&400D4,,y%
��
���V(h%,S$):�H(h%,S$)�
��_(h%,S$)�
�VȔJ%!8,J%!&C:J%!16=4:ș&400E7,17,J%,J%!4:�S$="<Wimp$Scrap>"��"Remove <Wimp$Scrap>"
��
��:�
�5��D:�Y<>-1�J%!&C=J%!8:J%!8=0:ș&400E7,19,J%,J%!4
��
�
ݤY:=�
�]ݤQ(S$,E%):�F%,A%,S%:F%=�S$:A%=�#F%+4:�#F%:A%+=E%:�S%A%:!S%=A%:S%!8=16:ș46,266,S%,S$:=S%
�K��U(R%,q%):!G%=R%:G%!4=q%:ș&400CE,,G%:ș&400D2,R%,q%,,,-1,��Z(G%!28):�
�@��w(R%,q%,O%):�a%:a%=G%+64:�O%=1�!G%=R%:G%!4=q%:ș&400CE,,G%
�c!a%=R%:a%!4=q%:a%!8=(�O%)<<23:a%!&C=1<<23:ș&400CD,,a%:�O%=1�ș&400D1,R%,G%!8,G%!&C,G%!16,G%!20
��
�:��s(R%,q%,O%):�A%:!G%=R%:G%!4=q%:A%=1:�O%=-1�O%=1:A%=0
�+G%!8=O%<<21:G%!&C=A%<<21:ș&400CD,,G%:�
�:��W(R%,q%,O%):�A%:A%=1:!G%=R%:G%!4=q%:�O%=-1�O%=1:A%=0
�/G%!8=O%*(1<<22):G%!&C=A%<<22:ș&400CD,,G%:�
�h��M(R%,q%,R$):�P%,L%:!G%=R%:G%!4=q%:ș&400CE,,G%:�G%!24�(1<<8)�P%=G%!28:L%=(G%!36)-1:�P%=G%+28:L%=&B
�-$P%=�R$,L%):G%!8=0:G%!&C=0:ș&400CD,,G%:�
�WݤS(R%,q%):�A$:!G%=R%:G%!4=q%:ș&400CE,,G%:�(G%!24�256)>0�A$=�Z(G%!28)�A$=�Z(G%+28)
�=A$
��ݤT(A$):�A%,B%,L%,Z$,I%:A$+="\":�A%4*�R (A$)*24:B%=A%+4:Z$=�A$,�A$,"\")-1):$A%=Z$:A%!&C=&70207:A%!20=44:A%!24=0:L%=�Z$:A$=�A$,�A$,"\")+1):ȕ�A$,"\"):Z$=�A$,�A$,"\")-1):B%+=24:!B%=�K(Z$):B%!4=0:B%!8=&7000021
�6�Z$,">")�B%!4=��Z$,�Z$,">")+1):Z$=�Z$,�Z$,">")-1)
�Q�Z$>&B��I%�Z$+1:$I%=Z$:B%!8=B%!8�256:B%!&C=I%:B%!16=0:B%!20=I%+1�$(B%+&C)=Z$
��Z$>L%�L%=�Z$
�7A$=�A$,�A$,"\")+1):�:!B%=!B%�&80:A%!16=L%*16+16:=A%
� ݤK(�Z$):�A%,F%:�:Ȏ��Z$�
��"�":A%+=1:Z$=�Z$,2)
��"_":A%+=2:Z$=�Z$,2)
��"*":A%+=8:Z$=�Z$,2)
�
F%=-1
�
�:�F%:=A%
�9ݤR(A$):�A%:ȕ�A$,"\"):A%+=1:A$=�A$,�A$,"\")+1):�:=A%
�6ݤD(A%):�H%:A%+=4:�A%+=24:H%+=44:�(!A%�2)>0�H%+=24
��(!A%�&80)>0:=H%+96
�"��G(M%,X%,Y%):�Y%=-1�Y%=�D(M%)
� ș&400D4,,M%,X%,Y%:y%=M%:�
� ݤU(A$,A%):="\"+A$+">"+�A%
$ݤN:ș&400CF,,G%:=(((G%!8)�1)=1)
BݤB:�A%,B%:ș&20039,,"DragASprite_Start"�;A%:B%=�:�(A%�1)�B%=�
"ș6,&A1,28�,,A%:�(A%�2)=0�B%=�
=B%
\��N(R%,q%,N$):!J%=R%:ș&400CB,,J%:e%=J%!4-J%!20:r%=J%!16-J%!24:J%!4=q%:ș&400CE,,J%:�B�
Q!J%=e%+J%!8:J%!4=r%+J%!&C:J%!8=e%+J%!16:J%!&C=r%+J%!20:ș&42400,&C5,1,N$,J%,0
��:J%!4=5:J%!8=e%+J%!8:J%!&C=r%+J%!&C:J%!16=e%+J%!16:J%!20=r%+J%!20:J%!24=0:J%!28=0:J%!32=&7FFFFFFF:J%!36=&7FFFFFFF:ș&400D0,,J%
�:�
2ݤL(A$):ȕ�A$,"."):A$=�A$,�A$,".")+1):�:=A$+�0
7ݤG:�A%,B%:ș53,-1,&C�,,A%:ș53,-1,5�,,B%:=(A%<<B%)
HݤJ(H%,S%,F%):�P%,E%,V%,L%,T%:ș&2001D,2,H%,,S%�E%,,P%;V%:�(V%�1)=1�
�F%�
;P%=�P:�P(H%,(S%�P%)*P%-P%*((S%�P%)>0),�):P%=�J(H%,S%,�)
�ș43,E%
�
�:=P%
V��f(H%,�B%,S%,F%):�L%,E%,V%,T%,P%:ș&2001D,4,H%,B%,S%�E%,,B%;V%:V%=((V%�1)=1):Ȏ��
�V%��F%:ș43,E%
,�V%�F%�(S%>0):�P(H%,S%,�):�f(H%,B%,S%,�)
�V%�F%�(S%<0)
ɬV%�F%�(S%<0):�P(H%,-1,�)
�:�
��P(H%,S%,F%):�P%:�F%�
�S%<0�
�ș&2001D,5,H%,,-32*&400*&400:S%=H%!&C+H%-&8000:P%=�P:ș&400EC,-1,-1�F%:F%=�C(((S%�P%)*P%-P%*((S%�P%)>0))-F%):ș29,5,H%,,((S%�P%)*P%-P%*((S%�P%)>0))-S%
&�:E%=s%:F%=�C(S%):ș29,5,H%,,s%-E%
�
�ș29,5,H%,,S%
�:�
��q(H%,S%):�S%=-1�S%=s%
ș29,0,H%,,S%:�
ݤP:�P%:ș81�P%:=P%
7ݤq(A$):�L%:ș35,A$,G%,&FF,0,3�,,L%:G%?L%=0:=�Z(G%)
!YݤV(A$):�L%,F%:ș&20023,A$,G%,&FF,0,3�,,L%;F%:�(F%�1)=0�G%?L%=0:�Z(G%)<>""�F%=��F%=�
"=F%
#IݤC(M%):�S%:ș&400EC,-1,-1�S%:ș&400EC,S%+M%,-1�S%:s%=S%-(�-&8000):=�
$?ݤZ(P%):�A$:ȕ?P%<>0�?P%<>&D�?P%<>&A:A$+=�(?P%):P%+=1:�:=A$
%DݤI(A$):�A%,C%:�A%=1��A$:C%=��A$,A%,1):�C%>=97�C%<=&7A�C%=C%��32
&�A$,A%)=�(C%):�:=A$
'7ݤO:�A%,B%:ș53,-1,&B�,,A%:ș53,-1,4�,,B%:=(A%<<B%)
("��K:�:��,�$+" at line "+Þ
)�!J%=�:$(J%+4)=�$+","+Þ+". Click OK continue or CANCEL to quit application.":ș&400DF,J%,3+(1<<&A)+(1<<8),U$,N$�,O%:�O%=2�z%=-1
*��:�
+?��h(R%):!G%=R%:ș&400C6,,G%:�R%=v%�m%=�:!G%=x%:ș&600C6,,G%
,�R%=U%�u%=�
-�
.AݤW(L$):�H%,S%,I%,O%,i%:ș&400DB,,,0,0,0,L$,0�,S%,I%:�S%>512�
/Jș&2001E,6,,,S%�,,P%;O%:�O%�1��2,"Not enough memory to create window."
0
�P%=J%
1\�:�i%I%:ș&400DB,,P%,i%,i%+I%,Jy%,L$,0�,,i%:P%!64=Dy%:ș&400C1,,P%�H%:�S%>512�ș30,7,,P%
2=H%
3���u(R%,p%,Ny%):�W%,H%,X%,Y%,Z%:!G%=R%:ș&400CB,,G%:X%=36*((G%!32>>28)�1):Y%=36*((G%!32>>26)�1)-36*((G%!32>>30)�1):W%=G%!&C-G%!4+X%:H%=G%!16-G%!8+Y%:�Ny%=-1�
4JG%!4=�O/2-W%/2:G%!&C=G%!4+W%:G%!16=�G-((�G-&84)-H%)/2-Y%:G%!8=G%!16-H%
5
�:�Ny%=1�
6;ȗX%,Y%,Z%:G%!4=X%-64:G%!&C=G%!4+W%:G%!8=Y%-H%:G%!16=Y%
7�
8�:�p%<>0�G%!28=p%
9 ș&400C5,,G%:�R%=U%�u%=�
:2�R%=v%�m%=�:!J%=v%:ș&400CB,,J%:J%!28=G%!28:�x
;�
<��x:�x%<>0�!J%=v%�
=h!G%=x%:G%!4=J%!4+Sy%:G%!16=J%!16+Ry%:G%!&C=G%!4+Hy%:G%!8=G%!16-Vy%:G%!20=0:G%!24=0:G%!28=J%!28:�Yy%�
>AG%!4-=J%!20:G%!&C-=J%!20:�G%!4<J%!4�G%!20=J%!20-Sy%:G%!4=J%!4
? �G%!&C>J%!&C�G%!&C=J%!&C
@ �:�Oy%�
AGG%!16-=J%!24:G%!8-=J%!24:�G%!16>J%!16�G%!24=J%!16-G%!16:G%!16=J%!16
B�G%!8<J%!8�G%!8=J%!8
C�:ș&400C5,,G%:J%!28=x%
D�:�
E1��H(Ky%,T$):Jy%=-1:ș&400D9,,T$:�T:ș&400DA:�
F$��Y(W%,dy%,A$,wy%):$dy%=A$:�wy%�
G=!J%=W%:ș&400CB,,J%:ș&400D1,-1,J%!4,J%!16,J%!&C,J%!16+44
H�:�
� 00000000 0d 00 01 0f f4 3e 21 52 75 6e 49 6d 61 67 65 0d |.....>!RunImage.|
00000010 00 02 30 f4 50 72 6f 64 75 63 65 64 20 62 79 20 |..0.Produced by |
00000020 42 61 73 43 6f 6d 70 72 65 73 73 20 76 31 2e 37 |BasCompress v1.7|
00000030 31 20 28 31 39 20 53 65 70 20 31 39 39 36 29 0d |1 (19 Sep 1996).|
00000040 00 03 64 4e 24 3d 22 21 55 70 67 72 61 64 65 22 |..dN$="!Upgrade"|
00000050 3a de 41 25 28 34 29 3a 41 25 28 31 29 3d 26 42 |:.A%(4):A%(1)=&B|
00000060 3a 41 25 28 32 29 3d 26 41 3a 41 25 28 33 29 3d |:A%(2)=&A:A%(3)=|
00000070 26 46 3a 41 25 28 34 29 3d 39 3a ee 85 ff 22 45 |&F:A%(4)=9:..."E|
00000080 72 72 6f 72 20 22 2b f6 24 2b 22 20 61 74 20 6c |rror "+.$+" at l|
00000090 69 6e 65 20 22 2b c3 9e 3a c8 99 26 34 30 30 44 |ine "+..:..&400D|
000000a0 44 3a e0 0d 00 04 5e f2 4c 28 22 4f 72 67 61 6e |D:....^.L("Organ|
000000b0 69 73 65 72 20 75 70 67 72 61 64 65 72 22 2c 22 |iser upgrader","|
000000c0 3c 55 70 67 72 61 64 65 24 44 69 72 3e 22 2c 22 |<Upgrade$Dir>","|
000000d0 31 2e 32 36 20 28 31 36 20 4e 6f 76 20 39 37 29 |1.26 (16 Nov 97)|
000000e0 22 2c b9 29 3a 6a 25 3d a4 43 28 31 2a 26 34 30 |",.):j%=.C(1*&40|
000000f0 30 29 3a f2 71 28 6a 25 2c 73 25 29 3a ee 85 f2 |0):.q(j%,s%):...|
00000100 4b 0d 00 05 15 c8 95 ac 7a 25 3a f2 42 28 31 29 |K.......z%:.B(1)|
00000110 3a ce 3a ee 85 e0 0d 00 06 0e c8 99 26 34 30 30 |:.:.........&400|
00000120 44 44 3a e0 0d 00 07 28 dd f2 67 3a ea 85 3a ee |DD:....(..g:..:.|
00000130 85 ea f7 85 3a d9 23 30 3a c8 99 26 34 30 36 43 |....:.#0:..&406C|
00000140 31 3a f2 43 28 f6 24 2c a3 29 3a e1 0d 00 08 ba |1:.C(.$,.):.....|
00000150 c8 99 26 34 30 36 43 30 3a ff 22 43 44 69 72 20 |..&406C0:."CDir |
00000160 3c 55 70 67 72 61 64 65 24 44 69 72 3e 2e 42 61 |<Upgrade$Dir>.Ba|
00000170 63 6b 55 70 22 3a f2 53 28 35 29 3a f2 46 28 30 |ckUp":.S(5):.F(0|
00000180 29 3a ff 22 43 6f 70 79 20 22 2b 4d 24 2b 22 20 |):."Copy "+M$+" |
00000190 3c 55 70 67 72 61 64 65 24 44 69 72 3e 2e 42 61 |<Upgrade$Dir>.Ba|
000001a0 63 6b 75 70 2e 21 4f 72 67 61 6e 69 73 65 72 20 |ckup.!Organiser |
000001b0 7e 63 20 7e 76 20 66 20 72 22 3a f2 46 28 31 29 |~c ~v f r":.F(1)|
000001c0 3a 43 24 3d 22 3c 55 70 67 72 61 64 65 24 44 69 |:C$="<Upgrade$Di|
000001d0 72 3e 2e 42 61 63 6b 55 70 2e 21 4f 72 67 61 6e |r>.BackUp.!Organ|
000001e0 69 73 65 72 22 3a ee 85 ea f7 85 3a d9 23 30 3a |iser":.....:.#0:|
000001f0 c8 99 26 34 30 36 43 31 3a f2 43 28 f6 24 2b c3 |..&406C1:.C(.$+.|
00000200 9e 2c b9 29 3a e1 0d 00 09 3d ff 22 43 6f 70 79 |.,.):....=."Copy|
00000210 20 22 2b 50 24 2b 22 20 22 2b 4d 24 2b 22 20 7e | "+P$+" "+M$+" ~|
00000220 63 20 7e 76 20 66 20 72 22 3a f2 46 28 32 29 3a |c ~v f r":.F(2):|
00000230 f2 4f 3a f2 53 28 32 29 3a c8 99 26 34 30 36 43 |.O:.S(2):..&406C|
00000240 31 3a e1 0d 00 0a 59 dd f2 4f 3a ea 4b 25 2c 51 |1:....Y..O:.K%,Q|
00000250 25 2c 41 25 2c 42 25 3a 4b 25 3d 8e 28 43 24 2b |%,A%,B%:K%=.(C$+|
00000260 22 2e 44 61 74 61 2e 53 65 74 74 69 6e 67 73 22 |".Data.Settings"|
00000270 29 3a 51 25 3d ae 28 4d 24 2b 22 2e 44 61 74 61 |):Q%=.(M$+".Data|
00000280 2e 53 65 74 74 69 6e 67 73 22 29 3a e7 44 25 3e |.Settings"):.D%>|
00000290 3d 26 36 45 8c 56 24 3d be 23 4b 25 0d 00 0b 69 |=&6E.V$=.#K%...i|
000002a0 d5 23 51 25 2c 4a 24 3a f2 5a 3a f2 5a 3a 7a 79 |.#Q%,J$:.Z:.Z:zy|
000002b0 25 3d a4 41 3a 65 79 25 3d a4 41 3a 72 79 25 3d |%=.A:ey%=.A:ry%=|
000002c0 a4 41 3a 63 79 25 3d a4 41 3a 54 79 25 3d a4 41 |.A:cy%=.A:Ty%=.A|
000002d0 3a 6e 25 3d a4 41 3a 78 79 25 3d a4 41 3a 61 79 |:n%=.A:xy%=.A:ay|
000002e0 25 3d a4 41 3a 66 79 25 3d a4 41 3a 73 79 25 3d |%=.A:fy%=.A:sy%=|
000002f0 a4 41 3a f2 41 28 32 2b 35 2b 35 29 3a e7 44 25 |.A:.A(2+5+5):.D%|
00000300 3c 26 37 33 8c 0d 00 0c 47 f1 23 51 25 2c 2d 31 |<&73....G.#Q%,-1|
00000310 2c 30 2c 30 2c 30 2c 30 3a d5 23 51 25 2c 2d 31 |,0,0,0,0:.#Q%,-1|
00000320 3a d5 23 51 25 2c 30 3a f1 23 51 25 2c 35 30 30 |:.#Q%,0:.#Q%,500|
00000330 2c 39 32 30 3a f2 4a 28 22 30 2c 31 35 2c 38 2c |,920:.J("0,15,8,|
00000340 31 31 2c 34 2c 34 2c 31 31 2c 22 29 0d 00 0d 5b |11,4,4,11,")...[|
00000350 cc 3a e8 23 4b 25 2c 4f 25 2c 47 79 25 2c 67 25 |.:.#K%,O%,Gy%,g%|
00000360 2c 50 79 25 2c 61 25 3a f1 23 51 25 2c 4f 25 2c |,Py%,a%:.#Q%,O%,|
00000370 47 79 25 2c 67 25 2c 50 79 25 2c 61 25 3a f2 41 |Gy%,g%,Py%,a%:.A|
00000380 28 31 29 3a f2 41 28 31 29 3a e8 23 4b 25 2c 64 |(1):.A(1):.#K%,d|
00000390 25 2c 58 79 25 3a f1 23 51 25 2c 64 25 2c 58 79 |%,Xy%:.#Q%,d%,Xy|
000003a0 25 3a f2 41 28 37 29 0d 00 0e 20 cd 3a e7 44 25 |%:.A(7)... .:.D%|
000003b0 3c 26 37 38 8c f2 4a 28 22 33 2c 37 2c 39 2c 22 |<&78..J("3,7,9,"|
000003c0 29 8b f2 41 28 33 29 0d 00 0f 0c e7 44 25 3c 26 |)..A(3).....D%<&|
000003d0 37 33 8c 0d 00 10 27 e3 42 25 3d 31 b8 6e 25 3a |73....'.B%=1.n%:|
000003e0 f2 41 28 31 29 3a d5 23 51 25 2c 41 25 28 42 25 |.A(1):.#Q%,A%(B%|
000003f0 29 3a d5 23 51 25 2c 37 3a ed 0d 00 11 0d cc f2 |):.#Q%,7:.......|
00000400 41 28 6e 25 2a 33 29 0d 00 12 35 cd 3a e7 44 25 |A(n%*3)...5.:.D%|
00000410 3c 26 37 38 8c d5 23 51 25 2c 22 25 7a 31 32 3a |<&78..#Q%,"%z12:|
00000420 25 6d 69 3a 25 73 65 20 25 61 6d 2e 20 25 64 79 |%mi:%se %am. %dy|
00000430 2f 25 6d 6e 2f 25 79 72 22 8b f2 5a 0d 00 13 0c |/%mn/%yr"..Z....|
00000440 e7 44 25 3c 26 37 44 8c 0d 00 14 1c d5 23 51 25 |.D%<&7D......#Q%|
00000450 2c 30 3a d5 23 51 25 2c 30 3a f1 23 51 25 2c 37 |,0:.#Q%,0:.#Q%,7|
00000460 31 34 33 31 0d 00 15 0c cc f2 41 28 32 2b 35 29 |1431......A(2+5)|
00000470 0d 00 16 0e cd 3a e7 44 25 3c 26 37 45 8c 0d 00 |.....:.D%<&7E...|
00000480 17 11 f2 4a 28 22 31 31 2c 35 2c 30 2c 22 29 0d |...J("11,5,0,").|
00000490 00 18 0a cc f2 41 28 33 29 0d 00 19 1a cd 3a f2 |.....A(3).....:.|
000004a0 5a 3a f2 5a 3a f2 41 28 33 29 3a e7 44 25 3c 26 |Z:.Z:.A(3):.D%<&|
000004b0 37 38 8c 0d 00 1a 48 d5 23 51 25 2c 22 6d 61 69 |78....H.#Q%,"mai|
000004c0 6c 74 6f 3a 22 3a d5 23 51 25 2c 22 68 74 74 70 |lto:":.#Q%,"http|
000004d0 3a 2f 2f 22 3a f2 4a 28 22 34 2c 38 2c 37 2c 37 |://":.J("4,8,7,7|
000004e0 2c 37 2c 37 2c 37 2c 37 2c 37 2c 37 2c 37 2c 37 |,7,7,7,7,7,7,7,7|
000004f0 2c 37 2c 31 31 2c 31 30 2c 22 29 0d 00 1b 11 cc |,7,11,10,").....|
00000500 f2 5a 3a f2 5a 3a f2 41 28 26 46 29 0d 00 1c 25 |.Z:.Z:.A(&F)...%|
00000510 cd 3a f2 5a 3a f2 41 28 32 29 3a e7 44 25 3c 26 |.:.Z:.A(2):.D%<&|
00000520 37 44 8c d5 23 51 25 2c 26 46 46 8b f2 41 28 31 |7D..#Q%,&FF..A(1|
00000530 29 0d 00 1d 1e f2 5a 3a f2 41 28 34 29 3a f2 5a |).....Z:.A(4):.Z|
00000540 3a f2 41 28 33 29 3a e7 44 25 3c 26 36 45 8c 0d |:.A(3):.D%<&6E..|
00000550 00 1e 0b f2 52 28 32 2c 30 29 0d 00 1f 0a cc f2 |....R(2,0)......|
00000560 41 28 32 29 0d 00 20 0e cd 3a e7 44 25 3c 26 37 |A(2).. ..:.D%<&7|
00000570 33 8c 0d 00 21 0a d5 23 51 25 2c 36 0d 00 22 0a |3...!..#Q%,6..".|
00000580 cc f2 41 28 31 29 0d 00 23 0e cd 3a e7 44 25 3c |..A(1)..#..:.D%<|
00000590 26 37 45 8c 0d 00 24 0a d5 23 51 25 2c 30 0d 00 |&7E...$..#Q%,0..|
000005a0 25 0a cc f2 41 28 31 29 0d 00 26 1e cd 3a d9 23 |%...A(1)..&..:.#|
000005b0 4b 25 3a d9 23 51 25 3a f2 46 28 33 29 3a e7 44 |K%:.#Q%:.F(3):.D|
000005c0 25 3c 26 37 35 8c 0d 00 27 1e ff 22 52 65 6d 6f |%<&75...'.."Remo|
000005d0 76 65 20 22 2b 4d 24 2b 22 2e 54 65 6d 70 6c 61 |ve "+M$+".Templa|
000005e0 74 65 73 22 0d 00 28 14 cd 3a f2 46 28 34 29 3a |tes"..(..:.F(4):|
000005f0 e7 44 25 3c 26 37 38 8c 0d 00 29 49 4b 25 3d 8e |.D%<&78...)IK%=.|
00000600 28 43 24 2b 22 2e 44 61 74 61 2e 41 64 64 72 65 |(C$+".Data.Addre|
00000610 73 73 65 73 22 29 3a 51 25 3d ae 28 4d 24 2b 22 |sses"):Q%=.(M$+"|
00000620 2e 44 61 74 61 2e 41 64 64 72 65 73 73 65 73 22 |.Data.Addresses"|
00000630 29 3a f2 72 3a f2 62 3a d9 23 4b 25 3a d9 23 51 |):.r:.b:.#K%:.#Q|
00000640 25 0d 00 2a 40 cc ff 22 43 6f 70 79 20 22 2b 43 |%..*@.."Copy "+C|
00000650 24 2b 22 2e 44 61 74 61 2e 41 64 64 72 65 73 73 |$+".Data.Address|
00000660 65 73 20 22 2b 4d 24 2b 22 2e 44 61 74 61 2e 41 |es "+M$+".Data.A|
00000670 64 64 72 65 73 73 65 73 20 7e 63 20 7e 76 20 66 |ddresses ~c ~v f|
00000680 22 0d 00 2b af cd 3a ff 22 43 6f 70 79 20 22 2b |"..+..:."Copy "+|
00000690 43 24 2b 22 2e 44 61 74 61 2e 41 6e 6e 69 20 22 |C$+".Data.Anni "|
000006a0 2b 4d 24 2b 22 2e 44 61 74 61 2e 41 6e 6e 69 20 |+M$+".Data.Anni |
000006b0 7e 63 20 7e 76 20 66 22 3a ff 22 43 6f 70 79 20 |~c ~v f":."Copy |
000006c0 22 2b 43 24 2b 22 2e 44 61 74 61 2e 44 69 61 72 |"+C$+".Data.Diar|
000006d0 79 20 22 2b 4d 24 2b 22 2e 44 61 74 61 2e 44 69 |y "+M$+".Data.Di|
000006e0 61 72 79 20 7e 63 20 7e 76 20 66 22 3a ff 22 43 |ary ~c ~v f":."C|
000006f0 6f 70 79 20 22 2b 43 24 2b 22 2e 44 61 74 61 2e |opy "+C$+".Data.|
00000700 49 6d 70 6f 72 74 61 6e 74 20 22 2b 4d 24 2b 22 |Important "+M$+"|
00000710 2e 44 61 74 61 2e 49 6d 70 6f 72 74 61 6e 74 20 |.Data.Important |
00000720 7e 63 20 7e 76 20 66 22 3a f2 46 28 35 29 3a e1 |~c ~v f":.F(5):.|
00000730 0d 00 2c 28 dd f2 52 28 4e 25 2c 43 25 29 ea 41 |..,(..R(N%,C%).A|
00000740 25 3a e3 41 25 3d 31 b8 4e 25 3a d5 23 51 25 2c |%:.A%=1.N%:.#Q%,|
00000750 bd 43 25 3b 3a ed 3a e1 0d 00 2d 12 dd f2 5a d5 |.C%;:.:...-...Z.|
00000760 23 51 25 2c be 23 4b 25 3a e1 0d 00 2e 25 dd f2 |#Q%,.#K%:....%..|
00000770 41 28 4e 25 29 ea 41 25 3a e3 41 25 3d 31 b8 4e |A(N%).A%:.A%=1.N|
00000780 25 3a d5 23 51 25 2c 9a 23 4b 25 3a ed 3a e1 0d |%:.#Q%,.#K%:.:..|
00000790 00 2f 1e dd a4 41 ea 41 25 3a 41 25 3d 9a 23 4b |./...A.A%:A%=.#K|
000007a0 25 3a d5 23 51 25 2c 41 25 3a 3d 41 25 0d 00 30 |%:.#Q%,A%:=A%..0|
000007b0 39 dd f2 4a 28 41 24 29 3a c8 95 41 24 3c 3e 22 |9..J(A$):..A$<>"|
000007c0 22 3a d5 23 51 25 2c bb 41 24 3a f1 bb 41 24 3a |":.#Q%,.A$:..A$:|
000007d0 41 24 3d c1 41 24 2c a7 41 24 2c 22 2c 22 29 2b |A$=.A$,.A$,",")+|
000007e0 31 29 3a ce 3a e1 0d 00 31 5a dd f2 72 3a ea 55 |1):.:...1Z..r:.U|
000007f0 79 25 2c 41 24 28 29 2c 41 25 2c 4e 25 2c 53 25 |y%,A$(),A%,N%,S%|
00000800 2c 43 25 2c 42 25 3a de 41 24 28 26 45 29 3a 66 |,C%,B%:.A$(&E):f|
00000810 25 3d 2d 31 3a c8 95 ac c5 23 4b 25 3a 53 25 3d |%=-1:....#K%:S%=|
00000820 26 43 3a 55 79 25 3d bb be 23 4b 25 3a e7 44 25 |&C:Uy%=..#K%:.D%|
00000830 3c 26 37 33 8c 4e 25 3d 26 44 8b 4e 25 3d 26 45 |<&73.N%=&D.N%=&E|
00000840 0d 00 32 45 e3 41 25 3d 30 b8 4e 25 3a 41 24 28 |..2E.A%=0.N%:A$(|
00000850 41 25 29 3d be 23 4b 25 3a 53 25 2b 3d a9 41 24 |A%)=.#K%:S%+=.A$|
00000860 28 41 25 29 2b 31 3a ed 3a e7 4e 25 3d 26 44 8c |(A%)+1:.:.N%=&D.|
00000870 41 24 28 26 45 29 3d 22 22 3a 4e 25 3d 26 45 3a |A$(&E)="":N%=&E:|
00000880 53 25 2b 3d 31 0d 00 33 71 43 25 3d a4 4a 28 6a |S%+=1..3qC%=.J(j|
00000890 25 2c 53 25 2c b9 29 3a 43 25 21 38 3d 53 25 3a |%,S%,.):C%!8=S%:|
000008a0 53 25 3d 43 25 2b 26 43 3a e3 41 25 3d 30 b8 4e |S%=C%+&C:.A%=0.N|
000008b0 25 3a 24 53 25 3d 41 24 28 41 25 29 2b bd 26 41 |%:$S%=A$(A%)+.&A|
000008c0 3a 53 25 2b 3d a9 41 24 28 41 25 29 2b 31 3a ed |:S%+=.A$(A%)+1:.|
000008d0 3a 58 24 3d a4 46 28 41 24 28 30 29 2b 22 20 22 |:X$=.F(A$(0)+" "|
000008e0 2b 41 24 28 31 29 29 3a 42 25 3d 66 25 3a e7 42 |+A$(1)):B%=f%:.B|
000008f0 25 3c 3e 2d 31 8c 0d 00 34 55 c8 95 a4 46 28 a4 |%<>-1...4U...F(.|
00000900 4d 28 42 25 2c 30 29 2b 22 20 22 2b a4 4d 28 42 |M(B%,0)+" "+.M(B|
00000910 25 2c 31 29 29 3c 58 24 80 42 25 21 34 3c 3e 2d |%,1))<X$.B%!4<>-|
00000920 31 3a 42 25 3d 42 25 21 34 3a ce 3a e7 a4 46 28 |1:B%=B%!4:.:..F(|
00000930 a4 4d 28 42 25 2c 30 29 2b 22 20 22 2b a4 4d 28 |.M(B%,0)+" "+.M(|
00000940 42 25 2c 31 29 29 3e 3d 58 24 8c 0d 00 35 35 21 |B%,1))>=X$...55!|
00000950 43 25 3d 21 42 25 3a 43 25 21 34 3d 42 25 3a 21 |C%=!B%:C%!4=B%:!|
00000960 42 25 3d 43 25 3a e7 21 43 25 3c 3e 2d 31 8c 21 |B%=C%:.!C%<>-1.!|
00000970 28 21 43 25 2b 34 29 3d 43 25 8b 66 25 3d 43 25 |(!C%+4)=C%.f%=C%|
00000980 0d 00 36 1c cc 3a 42 25 21 34 3d 43 25 3a 21 43 |..6..:B%!4=C%:!C|
00000990 25 3d 42 25 3a 43 25 21 34 3d 2d 31 0d 00 37 05 |%=B%:C%!4=-1..7.|
000009a0 cd 0d 00 38 19 cc 66 25 3d 43 25 3a 21 43 25 3d |...8..f%=C%:!C%=|
000009b0 2d 31 3a 43 25 21 34 3d 2d 31 0d 00 39 09 cd 3a |-1:C%!4=-1..9..:|
000009c0 ce 3a e1 0d 00 3a 4a dd f2 62 3a ea 42 25 3a 42 |.:...:J..b:.B%:B|
000009d0 25 3d 66 25 3a c8 95 42 25 3c 3e 2d 31 3a d5 23 |%=f%:..B%<>-1:.#|
000009e0 51 25 2c c3 42 25 21 38 3a c8 99 26 43 2c 32 2c |Q%,.B%!8:..&C,2,|
000009f0 51 25 2c 42 25 2b 26 43 2c 42 25 21 38 20 2d 26 |Q%,B%+&C,B%!8 -&|
00000a00 43 3a 42 25 3d 42 25 21 34 3a ce 3a e1 0d 00 3b |C:B%=B%!4:.:...;|
00000a10 66 dd a4 46 28 41 24 29 3a ea 42 25 3a 41 24 3d |f..F(A$):.B%:A$=|
00000a20 a4 49 28 41 24 29 3a 42 25 3d 97 c0 41 24 2c 31 |.I(A$):B%=..A$,1|
00000a30 29 3a c8 95 ac 28 42 25 3e 34 37 80 42 25 3c 35 |):...(B%>47.B%<5|
00000a40 38 29 80 ac 28 42 25 3e 36 34 80 42 25 3c 39 31 |8)..(B%>64.B%<91|
00000a50 29 80 41 24 3c 3e 22 22 3a 41 24 3d c1 41 24 2c |).A$<>"":A$=.A$,|
00000a60 32 29 3a 42 25 3d 97 c0 41 24 2c 31 29 3a ce 3a |2):B%=..A$,1):.:|
00000a70 3d 41 24 0d 00 3c 5f dd a4 4d 28 42 25 2c 4c 25 |=A$..<_..M(B%,L%|
00000a80 29 3a ea 41 24 3a 42 25 2b 3d 26 43 3a c8 95 4c |):.A$:B%+=&C:..L|
00000a90 25 3e 30 3a c8 95 3f 42 25 3c 3e 26 41 3a 42 25 |%>0:..?B%<>&A:B%|
00000aa0 2b 3d 31 3a ce 3a 42 25 2b 3d 31 3a 4c 25 2d 3d |+=1:.:B%+=1:L%-=|
00000ab0 31 3a ce 3a c8 95 3f 42 25 3c 3e 26 41 3a 41 24 |1:.:..?B%<>&A:A$|
00000ac0 2b 3d bd 3f 42 25 3a 42 25 2b 3d 31 3a ce 3a 3d |+=.?B%:B%+=1:.:=|
00000ad0 41 24 0d 00 3d 0e dd f2 64 3a c8 8e 43 79 25 ca |A$..=...d:..Cy%.|
00000ae0 0d 00 3e 22 c9 32 3a 4a 25 21 38 3d 4a 25 21 31 |..>".2:J%!8=J%!1|
00000af0 36 2d 33 36 38 3a c8 99 26 34 30 30 43 35 2c 2c |6-368:..&400C5,,|
00000b00 4a 25 0d 00 3f 1b c9 33 3a f2 68 28 21 4a 25 29 |J%..?..3:.h(!J%)|
00000b10 3a e7 21 4a 25 3d 55 25 8c 7a 25 3d b9 0d 00 40 |:.!J%=U%.z%=...@|
00000b20 24 c9 36 3a f2 51 28 4a 25 21 26 43 2c 4a 25 21 |$.6:.Q(J%!&C,J%!|
00000b30 31 36 2c 4a 25 21 38 2c 21 4a 25 2c 4a 25 21 34 |16,J%!8,!J%,J%!4|
00000b40 29 0d 00 41 09 c9 37 3a f2 76 0d 00 42 19 c9 38 |)..A..7:.v..B..8|
00000b50 3a f2 61 28 21 4a 25 2c 4a 25 21 34 2c 4a 25 21 |:.a(!J%,J%!4,J%!|
00000b60 32 34 29 0d 00 43 09 c9 39 3a f2 74 0d 00 44 0d |24)..C..9:.t..D.|
00000b70 c9 31 37 2c 31 38 3a f2 58 0d 00 45 07 cb 3a e1 |.17,18:.X..E..:.|
00000b80 0d 00 46 14 dd f2 76 3a e7 a4 42 8c c8 99 26 34 |..F...v:..B...&4|
00000b90 32 34 30 31 0d 00 47 b0 c8 99 26 34 30 30 43 46 |2401..G...&400CF|
00000ba0 2c 2c 4a 25 3a 4a 25 21 32 30 3d 4a 25 21 26 43 |,,J%:J%!20=J%!&C|
00000bb0 3a 4a 25 21 32 34 3d 4a 25 21 31 36 3a 4a 25 21 |:J%!24=J%!16:J%!|
00000bc0 32 38 3d 21 4a 25 3a 4a 25 21 33 32 3d 4a 25 21 |28=!J%:J%!32=J%!|
00000bd0 34 3a 4a 25 21 33 36 3d 30 3a 21 4a 25 3d 36 34 |4:J%!36=0:!J%=64|
00000be0 3a 4a 25 21 26 43 3d 30 3a 4a 25 21 34 30 3d 35 |:J%!&C=0:J%!40=5|
00000bf0 31 32 3a 24 28 4a 25 2b 34 34 29 3d 22 21 4f 72 |12:$(J%+44)="!Or|
00000c00 67 61 6e 69 73 65 72 22 3a 4a 25 21 31 36 3d 31 |ganiser":J%!16=1|
00000c10 3a c8 99 26 34 30 30 45 37 2c 31 38 2c 4a 25 2c |:..&400E7,18,J%,|
00000c20 4a 25 21 32 30 2c 4a 25 21 32 34 3a e7 28 4a 25 |J%!20,J%!24:.(J%|
00000c30 21 38 80 31 29 3d 30 8c c8 99 26 34 30 30 44 34 |!8.1)=0...&400D4|
00000c40 2c 2c 2d 31 0d 00 48 05 e1 0d 00 49 10 dd f2 58 |,,-1..H....I...X|
00000c50 3a c8 8e 4a 25 21 31 36 ca 0d 00 4a 0b c9 30 3a |:..J%!16...J..0:|
00000c60 7a 25 3d b9 0d 00 4b 14 c9 32 3a f2 7a 28 a4 5a |z%=...K..2:.z(.Z|
00000c70 28 4a 25 2b 34 34 29 29 0d 00 4c 1a c9 33 3a f2 |(J%+44))..L..3:.|
00000c80 56 28 4a 25 21 34 30 2c a4 5a 28 4a 25 2b 34 34 |V(J%!40,.Z(J%+44|
00000c90 29 29 0d 00 4d 09 c9 38 3a f2 44 0d 00 4e 07 cb |))..M..8:.D..N..|
00000ca0 3a e1 0d 00 4f de dd f2 7a 28 53 24 29 3a c8 99 |:...O...z(S$):..|
00000cb0 26 34 30 36 43 30 3a ff 22 43 6f 70 79 20 22 2b |&406C0:."Copy "+|
00000cc0 50 24 2b 22 20 22 2b 53 24 2b 22 20 72 20 7e 63 |P$+" "+S$+" r ~c|
00000cd0 20 7e 76 22 3a 5f 25 3d ae 28 53 24 2b 22 2e 52 | ~v":_%=.(S$+".R|
00000ce0 65 73 6f 75 72 63 65 73 2e 21 4c 61 6e 67 75 61 |esources.!Langua|
00000cf0 67 65 22 29 3a d5 23 5f 25 2c a4 53 28 55 25 2c |ge"):.#_%,.S(U%,|
00000d00 33 37 29 3a d9 23 5f 25 3a 4b 25 3d 8e 28 50 24 |37):.#_%:K%=.(P$|
00000d10 2b 22 2e 44 61 74 61 2e 53 65 74 74 69 6e 67 73 |+".Data.Settings|
00000d20 22 29 3a 51 25 3d ae 28 53 24 2b 22 2e 44 61 74 |"):Q%=.(S$+".Dat|
00000d30 61 2e 53 65 74 74 69 6e 67 73 22 29 3a f2 5a 3a |a.Settings"):.Z:|
00000d40 f2 5a 3a 41 24 3d be 23 5f 25 3a d5 23 51 25 2c |.Z:A$=.#_%:.#Q%,|
00000d50 a4 53 28 55 25 2c 33 35 29 3a c8 95 ac c5 23 4b |.S(U%,35):....#K|
00000d60 25 3a d5 23 51 25 2c 9a 23 4b 25 3a ce 3a d9 23 |%:.#Q%,.#K%:.:.#|
00000d70 51 25 3a d9 23 4b 25 3a c8 99 26 34 30 36 43 31 |Q%:.#K%:..&406C1|
00000d80 0d 00 50 33 c8 94 4a 25 21 38 2c 4a 25 21 26 43 |..P3..J%!8,J%!&C|
00000d90 3a 4a 25 21 31 36 3d 33 3a c8 99 26 34 30 30 45 |:J%!16=3:..&400E|
00000da0 37 2c 31 38 2c 4a 25 2c 4a 25 21 34 3a 7a 25 3d |7,18,J%,J%!4:z%=|
00000db0 b9 3a e1 0d 00 51 19 dd a4 48 28 68 25 2c 53 24 |.:...Q...H(h%,S$|
00000dc0 29 3a 3d 28 68 25 3d 38 31 39 32 29 0d 00 52 2b |):=(h%=8192)..R+|
00000dd0 dd a4 5f 28 68 25 2c 53 24 29 3a ea 5f 25 3a e7 |.._(h%,S$):._%:.|
00000de0 a4 4c 28 53 24 29 3d 22 21 4f 72 67 61 6e 69 73 |.L(S$)="!Organis|
00000df0 65 72 22 2b bd 30 8c 0d 00 53 46 5f 25 3d 8e 28 |er"+.0...SF_%=.(|
00000e00 53 24 2b 22 2e 44 61 74 61 2e 53 65 74 74 69 6e |S$+".Data.Settin|
00000e10 67 73 22 29 3a 46 24 3d be 23 5f 25 3a d9 23 5f |gs"):F$=.#_%:.#_|
00000e20 25 3a e7 bb 46 24 3d 30 8c 46 24 3d 22 31 2e 30 |%:..F$=0.F$="1.0|
00000e30 30 20 28 38 20 41 75 67 20 39 37 29 22 0d 00 54 |0 (8 Aug 97)"..T|
00000e40 1b 44 25 3d 28 bb 46 24 29 2a 26 36 34 3a 4d 24 |.D%=(.F$)*&64:M$|
00000e50 3d 53 24 3a c8 8e b9 ca 0d 00 55 3f c9 44 25 3c |=S$:......U?.D%<|
00000e60 63 25 3a f2 4d 28 55 25 2c 37 2c 53 24 29 3a f2 |c%:.M(U%,7,S$):.|
00000e70 4d 28 55 25 2c 38 2c 22 56 65 72 73 69 6f 6e 20 |M(U%,8,"Version |
00000e80 22 2b 46 24 29 3a f2 57 28 55 25 2c 26 41 2c 30 |"+F$):.W(U%,&A,0|
00000e90 29 3a f2 53 28 31 29 0d 00 56 73 c9 44 25 3d 63 |):.S(1)..Vs.D%=c|
00000ea0 25 3a f2 43 28 22 54 68 65 20 76 65 72 73 69 6f |%:.C("The versio|
00000eb0 6e 20 79 6f 75 20 61 72 65 20 74 72 79 69 6e 67 |n you are trying|
00000ec0 20 74 6f 20 75 70 67 72 61 64 65 20 69 73 20 74 | to upgrade is t|
00000ed0 68 65 20 6c 61 74 65 73 74 20 76 65 72 73 69 6f |he latest versio|
00000ee0 6e 20 6b 6e 6f 77 6e 20 74 6f 20 74 68 69 73 20 |n known to this |
00000ef0 75 70 67 72 61 64 69 6e 67 20 61 70 70 6c 69 63 |upgrading applic|
00000f00 61 74 69 6f 6e 2e 22 2c a3 29 0d 00 57 62 c9 44 |ation.",.)..Wb.D|
00000f10 25 3e 63 25 3a f2 43 28 22 54 68 65 20 76 65 72 |%>c%:.C("The ver|
00000f20 73 69 6f 6e 20 79 6f 75 20 61 72 65 20 74 72 79 |sion you are try|
00000f30 69 6e 67 20 74 6f 20 75 70 67 72 61 64 65 20 69 |ing to upgrade i|
00000f40 73 20 6e 65 77 65 72 20 74 68 61 6e 20 74 68 69 |s newer than thi|
00000f50 73 20 75 70 67 72 61 64 69 6e 67 20 61 70 70 6c |s upgrading appl|
00000f60 69 63 61 74 69 6f 6e 2e 22 2c a3 29 0d 00 58 05 |ication.",.)..X.|
00000f70 cb 0d 00 59 08 cd 3a 3d b9 0d 00 5a 1d dd f2 51 |...Y..:=...Z...Q|
00000f80 28 52 25 2c 71 25 2c 6b 25 2c 65 25 2c 72 25 29 |(R%,q%,k%,e%,r%)|
00000f90 3a c8 8e 52 25 ca 0d 00 5b 2b c9 2d 32 3a e7 6b |:..R%...[+.-2:.k|
00000fa0 25 3d 32 8c f2 47 28 62 25 2c 21 4a 25 2d 36 34 |%=2..G(b%,!J%-64|
00000fb0 2c 2d 31 29 8b f2 75 28 55 25 2c 2d 31 2c 2d 31 |,-1)..u(U%,-1,-1|
00000fc0 29 0d 00 5c 0f c9 55 25 3a e7 6b 25 3c 3e 32 8c |)..\..U%:.k%<>2.|
00000fd0 0d 00 5d 09 c8 8e 71 25 ca 0d 00 5e 0c c9 32 3a |..]...q%...^..2:|
00000fe0 f2 53 28 31 29 0d 00 5f 0c c9 39 3a f2 53 28 30 |.S(1).._..9:.S(0|
00000ff0 29 0d 00 60 0a c9 26 41 3a f2 67 0d 00 61 0d c9 |)..`..&A:.g..a..|
00001000 26 44 2c 31 39 3a f2 5f 0d 00 62 22 c9 26 45 3a |&D,19:._..b".&E:|
00001010 ff 22 46 69 6c 65 72 5f 52 75 6e 20 22 2b 57 24 |."Filer_Run "+W$|
00001020 2b 22 2e 49 6d 70 72 6f 76 22 0d 00 63 12 c9 26 |+".Improv"..c..&|
00001030 46 2c 31 38 2c 32 33 3a 7a 25 3d b9 0d 00 64 17 |F,18,23:z%=...d.|
00001040 c9 32 30 3a f2 53 28 34 29 3a f2 55 28 55 25 2c |.20:.S(4):.U(U%,|
00001050 33 35 29 0d 00 65 0d c9 32 34 3a f2 53 28 30 29 |35)..e..24:.S(0)|
00001060 0d 00 66 27 c9 32 36 3a e7 28 6b 25 80 36 34 29 |..f'.26:.(k%.64)|
00001070 8c f2 4e 28 55 25 2c 32 36 2c 22 21 4f 72 67 61 |..N(U%,26,"!Orga|
00001080 6e 69 73 65 72 22 29 0d 00 67 11 c9 33 37 3a f2 |niser")..g..37:.|
00001090 49 28 55 25 2c 33 37 29 0d 00 68 05 cb 0d 00 69 |I(U%,37)..h....i|
000010a0 17 cc f2 47 28 62 25 2c 21 4a 25 2d 36 34 2c 4a |...G(b%,!J%-64,J|
000010b0 25 21 34 29 0d 00 6a 05 cd 0d 00 6b 07 cb 3a e1 |%!4)..j....k..:.|
000010c0 0d 00 6c 6e dd f2 49 28 64 25 2c 6f 25 29 3a ea |..ln..I(d%,o%):.|
000010d0 74 25 2c 44 24 2c 5a 79 25 2c 42 24 2c 47 24 2c |t%,D$,Zy%,B$,G$,|
000010e0 51 24 2c 67 25 3a 74 25 3d 31 3a 44 24 3d a4 53 |Q$,g%:t%=1:D$=.S|
000010f0 28 64 25 2c 6f 25 29 3a f5 3a c8 99 26 43 2c 39 |(d%,o%):.:..&C,9|
00001100 2c 50 24 2b 22 2e 52 65 73 6f 75 72 63 65 73 22 |,P$+".Resources"|
00001110 2c 4a 25 2c 31 2c 74 25 2c 32 35 36 2c 30 b8 2c |,J%,1,t%,256,0.,|
00001120 2c 2c 67 25 2c 74 25 3a e7 67 25 3d 31 8c 0d 00 |,,g%,t%:.g%=1...|
00001130 6d 1a 47 24 3d a4 5a 28 4a 25 29 3a e7 51 24 3d |m.G$=.Z(J%):.Q$=|
00001140 22 22 8c 51 24 3d 47 24 0d 00 6e 10 e7 5a 79 25 |"".Q$=G$..n..Zy%|
00001150 3d b9 8c 42 24 3d 47 24 0d 00 6f 10 e7 47 24 3d |=..B$=G$..o..G$=|
00001160 44 24 8c 5a 79 25 3d b9 0d 00 70 20 cd 3a fd 74 |D$.Zy%=...p .:.t|
00001170 25 3d 2d 31 84 42 24 3c 3e 22 22 3a e7 42 24 3d |%=-1.B$<>"":.B$=|
00001180 22 22 8c 42 24 3d 51 24 0d 00 71 12 f2 4d 28 64 |"".B$=Q$..q..M(d|
00001190 25 2c 6f 25 2c 42 24 29 3a e1 0d 00 72 0d dd f2 |%,o%,B$):...r...|
000011a0 79 3a c8 8e 79 25 ca 0d 00 73 0e c9 62 25 3a c8 |y:..y%...s..b%:.|
000011b0 8e 21 4a 25 ca 0d 00 74 0b c9 31 3a 7a 25 3d b9 |.!J%...t..1:z%=.|
000011c0 0d 00 75 05 cb 0d 00 76 07 cb 3a e1 0d 00 77 36 |..u....v..:...w6|
000011d0 dd a4 58 28 52 25 2c 71 25 2c 76 79 25 2c 57 79 |..X(R%,q%,vy%,Wy|
000011e0 25 2c 60 25 2c 42 79 25 2c 46 79 25 2c 51 79 25 |%,`%,By%,Fy%,Qy%|
000011f0 29 3a ea 41 79 25 3a 41 79 25 3d b9 3a c8 8e 52 |):.Ay%:Ay%=.:..R|
00001200 25 ca 0d 00 78 0a cb 3a 3d 41 79 25 0d 00 79 32 |%...x..:=Ay%..y2|
00001210 dd f2 43 28 41 24 2c 46 25 29 3a f2 4d 28 55 25 |..C(A$,F%):.M(U%|
00001220 2c 31 37 2c 41 24 29 3a f2 77 28 55 25 2c 31 39 |,17,A$):.w(U%,19|
00001230 2c 94 ac 46 25 29 3a f2 53 28 33 29 3a e1 0d 00 |,..F%):.S(3):...|
00001240 7a 4b dd f2 53 28 4e 25 29 3a 21 47 25 3d 55 25 |zK..S(N%):!G%=U%|
00001250 3a c8 99 26 34 30 30 43 42 2c 2c 47 25 3a 47 25 |:..&400CB,,G%:G%|
00001260 21 38 3d 47 25 21 31 36 2d 33 36 38 3a 47 25 21 |!8=G%!16-368:G%!|
00001270 32 34 3d 4e 25 2a 2d 33 36 38 3a c8 99 26 34 30 |24=N%*-368:..&40|
00001280 30 43 35 2c 2c 47 25 3a e1 0d 00 7b 3a dd f2 46 |0C5,,G%:...{:..F|
00001290 28 4e 25 29 3a ea 41 25 3a e3 41 25 3d 32 39 b8 |(N%):.A%:.A%=29.|
000012a0 33 32 3a f2 73 28 55 25 2c 41 25 2c 2d 28 4e 25 |32:.s(U%,A%,-(N%|
000012b0 3e 41 25 2d 32 39 29 29 3a ed 3a f2 42 28 ac 31 |>A%-29)):.:.B(.1|
000012c0 29 3a e1 0d 00 7c 24 dd f2 5f 3a ea 85 3a ee 85 |):...|$.._:..:..|
000012d0 ea f7 85 3a c8 99 26 34 30 36 43 31 3a f2 43 28 |...:..&406C1:.C(|
000012e0 f6 24 2c a3 29 3a e1 0d 00 7d 42 c8 99 26 34 30 |.$,.):...}B..&40|
000012f0 36 43 30 3a ff 22 43 6f 70 79 20 22 2b 43 24 2b |6C0:."Copy "+C$+|
00001300 22 20 22 2b 4d 24 2b 22 20 7e 63 20 7e 76 20 66 |" "+M$+" ~c ~v f|
00001310 20 72 20 71 22 3a c8 99 26 34 30 36 43 31 3a f2 | r q":..&406C1:.|
00001320 53 28 31 29 3a f7 85 3a e1 0d 00 7e 5f dd f2 65 |S(1):..:...~_..e|
00001330 3a 44 79 25 3d a4 51 28 57 24 2b 22 2e 53 70 72 |:Dy%=.Q(W$+".Spr|
00001340 69 74 65 73 22 2c 30 29 3a 46 24 3d 22 22 3a 44 |ites",0):F$="":D|
00001350 25 3d 30 3a 63 25 3d 28 bb 4a 24 2b 30 2e 30 30 |%=0:c%=(.J$+0.00|
00001360 31 29 2a 26 36 34 3a 4d 24 3d 22 22 3a 43 24 3d |1)*&64:M$="":C$=|
00001370 22 22 3a 50 24 3d 57 24 2b 22 2e 21 4f 72 67 61 |"":P$=W$+".!Orga|
00001380 6e 69 73 65 72 22 3a e1 0d 00 7f 55 dd f2 6e 3a |niser":....U..n:|
00001390 f2 4d 28 55 25 2c 37 2c 22 22 29 3a f2 4d 28 55 |.M(U%,7,""):.M(U|
000013a0 25 2c 38 2c 22 22 29 3a f2 57 28 55 25 2c 26 41 |%,8,""):.W(U%,&A|
000013b0 2c 31 29 3a f2 4d 28 55 25 2c 33 37 2c 22 45 6e |,1):.M(U%,37,"En|
000013c0 67 6c 69 73 68 22 29 3a e7 a4 56 28 22 4f 72 67 |glish"):..V("Org|
000013d0 61 6e 69 73 65 72 24 44 69 72 22 29 8c 0d 00 80 |aniser$Dir")....|
000013e0 69 5f 25 3d 8e 28 22 3c 4f 72 67 61 6e 69 73 65 |i_%=.("<Organise|
000013f0 72 24 44 69 72 3e 2e 44 61 74 61 2e 53 65 74 74 |r$Dir>.Data.Sett|
00001400 69 6e 67 73 22 29 3a 4d 24 3d a4 71 28 22 4f 72 |ings"):M$=.q("Or|
00001410 67 61 6e 69 73 65 72 24 44 69 72 22 29 3a 46 24 |ganiser$Dir"):F$|
00001420 3d be 23 5f 25 3a d9 23 5f 25 3a e7 bb 46 24 3d |=.#_%:.#_%:..F$=|
00001430 30 8c 46 24 3d 22 31 2e 30 30 20 28 38 20 41 75 |0.F$="1.00 (8 Au|
00001440 67 20 39 37 29 22 0d 00 81 46 44 25 3d 28 bb 46 |g 97)"...FD%=(.F|
00001450 24 29 2a 26 36 34 3a e7 44 25 3c 63 25 8c f2 57 |$)*&64:.D%<c%..W|
00001460 28 55 25 2c 26 41 2c 30 29 3a f2 4d 28 55 25 2c |(U%,&A,0):.M(U%,|
00001470 37 2c 4d 24 29 3a f2 4d 28 55 25 2c 38 2c 22 56 |7,M$):.M(U%,8,"V|
00001480 65 72 73 69 6f 6e 20 22 2b 46 24 29 0d 00 82 0d |ersion "+F$)....|
00001490 cd 3a f2 53 28 30 29 3a e1 0d 00 83 87 dd f2 54 |.:.S(0):.......T|
000014a0 3a ea 50 25 3a 6c 25 3d a4 57 28 22 49 6e 66 6f |:.P%:l%=.W("Info|
000014b0 22 29 3a 55 25 3d a4 57 28 22 4d 61 69 6e 22 29 |"):U%=.W("Main")|
000014c0 3a c8 99 26 34 30 30 44 42 2c 2c 30 2c 30 2c 30 |:..&400DB,,0,0,0|
000014d0 2c 30 2c 22 4d 61 69 6e 22 b8 2c 55 79 25 3a f2 |,0,"Main".,Uy%:.|
000014e0 4d 28 6c 25 2c 38 2c 4a 24 29 3a f2 59 28 55 25 |M(l%,8,J$):.Y(U%|
000014f0 2c 50 25 21 37 32 2c 22 4f 72 67 61 6e 69 73 65 |,P%!72,"Organise|
00001500 72 20 75 70 67 72 61 64 65 72 20 76 65 72 73 69 |r upgrader versi|
00001510 6f 6e 20 22 2b c0 4a 24 2c 34 29 2c 30 29 3a e1 |on "+.J$,4),0):.|
00001520 0d 00 84 31 dd f2 63 3a 62 25 3d a4 54 28 22 53 |...1..c:b%=.T("S|
00001530 6b 65 6c 65 74 6f 6e 22 2b a4 55 28 22 49 6e 66 |keleton"+.U("Inf|
00001540 6f 22 2c 6c 25 29 2b 22 5c 51 75 69 74 22 29 3a |o",l%)+"\Quit"):|
00001550 e1 0d 0f d3 98 dd f2 4c 28 48 24 2c 4b 24 2c 49 |.......L(H$,K$,I|
00001560 24 2c 49 79 25 29 3a 55 24 3d 48 24 3a 4a 24 3d |$,Iy%):U$=H$:J$=|
00001570 49 24 3a 73 25 3d 30 3a 7a 25 3d a3 3a 57 24 3d |I$:s%=0:z%=.:W$=|
00001580 4b 24 3a 78 25 3d 30 3a 76 25 3d 30 3a 6d 25 3d |K$:x%=0:v%=0:m%=|
00001590 a3 3a 75 25 3d a3 3a de 4a 25 35 31 32 3a 47 25 |.:u%=.:.J%512:G%|
000015a0 3d 4a 25 2b 32 35 36 3a c8 99 26 34 30 30 43 30 |=J%+256:..&400C0|
000015b0 2c 26 43 38 2c 26 34 42 35 33 34 31 35 34 2c 55 |,&C8,&4B534154,U|
000015c0 24 b8 4c 79 25 2c 71 79 25 3a f2 65 3a e7 49 79 |$.Ly%,qy%:.e:.Iy|
000015d0 25 8c f2 48 28 4b 79 25 2c 57 24 2b 22 2e 54 65 |%..H(Ky%,W$+".Te|
000015e0 6d 70 6c 61 74 65 73 22 29 0d 0f d4 0b f2 63 3a |mplates").....c:|
000015f0 f2 6e 3a e1 0d 0f d5 25 dd f2 42 28 5f 79 25 29 |.n:....%..B(_y%)|
00001600 3a c8 99 26 34 30 30 43 37 2c 5f 79 25 2c 4a 25 |:..&400C7,_y%,J%|
00001610 b8 43 79 25 3a f2 64 3a e1 0d 0f d6 92 dd f2 61 |.Cy%:.d:.......a|
00001620 28 64 25 2c 6f 25 2c 77 25 29 3a ea 57 79 25 2c |(d%,o%,w%):.Wy%,|
00001630 60 25 2c 42 79 25 2c 46 79 25 2c 51 79 25 3a 57 |`%,By%,Fy%,Qy%:W|
00001640 79 25 3d 28 77 25 3d 33 39 39 29 3a 60 25 3d 28 |y%=(w%=399):`%=(|
00001650 77 25 3d 33 39 38 29 3a 42 79 25 3d 28 77 25 3d |w%=398):By%=(w%=|
00001660 34 31 35 29 3a 46 79 25 3d 28 77 25 3d 34 31 34 |415):Fy%=(w%=414|
00001670 29 3a 51 79 25 3d 28 77 25 3d 26 44 29 3a e7 ac |):Qy%=(w%=&D):..|
00001680 a4 58 28 64 25 2c 6f 25 2c 77 25 2c 57 79 25 2c |.X(d%,o%,w%,Wy%,|
00001690 60 25 2c 42 79 25 2c 46 79 25 2c 51 79 25 29 8c |`%,By%,Fy%,Qy%).|
000016a0 c8 99 26 34 30 30 44 43 2c 77 25 0d 0f d7 05 e1 |..&400DC,w%.....|
000016b0 0d 0f d8 28 dd f2 74 3a ea 4d 79 25 3a 4d 79 25 |...(..t:.My%:My%|
000016c0 3d a4 4e 3a f2 79 3a e7 4d 79 25 8c c8 99 26 34 |=.N:.y:.My%...&4|
000016d0 30 30 44 34 2c 2c 79 25 0d 0f d9 05 e1 0d 0f da |00D4,,y%........|
000016e0 1a dd f2 56 28 68 25 2c 53 24 29 3a e7 a4 48 28 |...V(h%,S$):..H(|
000016f0 68 25 2c 53 24 29 8c 0d 0f db 0f e7 a4 5f 28 68 |h%,S$)......._(h|
00001700 25 2c 53 24 29 8c 0d 0f dc 56 c8 94 4a 25 21 38 |%,S$)....V..J%!8|
00001710 2c 4a 25 21 26 43 3a 4a 25 21 31 36 3d 34 3a c8 |,J%!&C:J%!16=4:.|
00001720 99 26 34 30 30 45 37 2c 31 37 2c 4a 25 2c 4a 25 |.&400E7,17,J%,J%|
00001730 21 34 3a e7 53 24 3d 22 3c 57 69 6d 70 24 53 63 |!4:.S$="<Wimp$Sc|
00001740 72 61 70 3e 22 8c ff 22 52 65 6d 6f 76 65 20 3c |rap>".."Remove <|
00001750 57 69 6d 70 24 53 63 72 61 70 3e 22 0d 0f dd 05 |Wimp$Scrap>"....|
00001760 cd 0d 0f de 07 cd 3a e1 0d 0f df 35 dd f2 44 3a |......:....5..D:|
00001770 e7 a4 59 3c 3e 2d 31 8c 4a 25 21 26 43 3d 4a 25 |..Y<>-1.J%!&C=J%|
00001780 21 38 3a 4a 25 21 38 3d 30 3a c8 99 26 34 30 30 |!8:J%!8=0:..&400|
00001790 45 37 2c 31 39 2c 4a 25 2c 4a 25 21 34 0d 0f e0 |E7,19,J%,J%!4...|
000017a0 05 e1 0d 0f e1 0a dd a4 59 3a 3d b9 0d 0f e2 5d |........Y:=....]|
000017b0 dd a4 51 28 53 24 2c 45 25 29 3a ea 46 25 2c 41 |..Q(S$,E%):.F%,A|
000017c0 25 2c 53 25 3a 46 25 3d 8e 53 24 3a 41 25 3d a2 |%,S%:F%=.S$:A%=.|
000017d0 23 46 25 2b 34 3a d9 23 46 25 3a 41 25 2b 3d 45 |#F%+4:.#F%:A%+=E|
000017e0 25 3a de 53 25 41 25 3a 21 53 25 3d 41 25 3a 53 |%:.S%A%:!S%=A%:S|
000017f0 25 21 38 3d 31 36 3a c8 99 34 36 2c 32 36 36 2c |%!8=16:..46,266,|
00001800 53 25 2c 53 24 3a 3d 53 25 0d 0f e3 4b dd f2 55 |S%,S$:=S%...K..U|
00001810 28 52 25 2c 71 25 29 3a 21 47 25 3d 52 25 3a 47 |(R%,q%):!G%=R%:G|
00001820 25 21 34 3d 71 25 3a c8 99 26 34 30 30 43 45 2c |%!4=q%:..&400CE,|
00001830 2c 47 25 3a c8 99 26 34 30 30 44 32 2c 52 25 2c |,G%:..&400D2,R%,|
00001840 71 25 2c 2c 2c 2d 31 2c a9 a4 5a 28 47 25 21 32 |q%,,,-1,..Z(G%!2|
00001850 38 29 3a e1 0d 0f e4 40 dd f2 77 28 52 25 2c 71 |8):....@..w(R%,q|
00001860 25 2c 4f 25 29 3a ea 61 25 3a 61 25 3d 47 25 2b |%,O%):.a%:a%=G%+|
00001870 36 34 3a e7 4f 25 3d 31 8c 21 47 25 3d 52 25 3a |64:.O%=1.!G%=R%:|
00001880 47 25 21 34 3d 71 25 3a c8 99 26 34 30 30 43 45 |G%!4=q%:..&400CE|
00001890 2c 2c 47 25 0d 0f e5 63 21 61 25 3d 52 25 3a 61 |,,G%...c!a%=R%:a|
000018a0 25 21 34 3d 71 25 3a 61 25 21 38 3d 28 94 4f 25 |%!4=q%:a%!8=(.O%|
000018b0 29 3c 3c 32 33 3a 61 25 21 26 43 3d 31 3c 3c 32 |)<<23:a%!&C=1<<2|
000018c0 33 3a c8 99 26 34 30 30 43 44 2c 2c 61 25 3a e7 |3:..&400CD,,a%:.|
000018d0 4f 25 3d 31 8c c8 99 26 34 30 30 44 31 2c 52 25 |O%=1...&400D1,R%|
000018e0 2c 47 25 21 38 2c 47 25 21 26 43 2c 47 25 21 31 |,G%!8,G%!&C,G%!1|
000018f0 36 2c 47 25 21 32 30 0d 0f e6 05 e1 0d 0f e7 3a |6,G%!20........:|
00001900 dd f2 73 28 52 25 2c 71 25 2c 4f 25 29 3a ea 41 |..s(R%,q%,O%):.A|
00001910 25 3a 21 47 25 3d 52 25 3a 47 25 21 34 3d 71 25 |%:!G%=R%:G%!4=q%|
00001920 3a 41 25 3d 31 3a e7 4f 25 3d 2d 31 8c 4f 25 3d |:A%=1:.O%=-1.O%=|
00001930 31 3a 41 25 3d 30 0d 0f e8 2b 47 25 21 38 3d 4f |1:A%=0...+G%!8=O|
00001940 25 3c 3c 32 31 3a 47 25 21 26 43 3d 41 25 3c 3c |%<<21:G%!&C=A%<<|
00001950 32 31 3a c8 99 26 34 30 30 43 44 2c 2c 47 25 3a |21:..&400CD,,G%:|
00001960 e1 0d 0f e9 3a dd f2 57 28 52 25 2c 71 25 2c 4f |....:..W(R%,q%,O|
00001970 25 29 3a ea 41 25 3a 41 25 3d 31 3a 21 47 25 3d |%):.A%:A%=1:!G%=|
00001980 52 25 3a 47 25 21 34 3d 71 25 3a e7 4f 25 3d 2d |R%:G%!4=q%:.O%=-|
00001990 31 8c 4f 25 3d 31 3a 41 25 3d 30 0d 0f ea 2f 47 |1.O%=1:A%=0.../G|
000019a0 25 21 38 3d 4f 25 2a 28 31 3c 3c 32 32 29 3a 47 |%!8=O%*(1<<22):G|
000019b0 25 21 26 43 3d 41 25 3c 3c 32 32 3a c8 99 26 34 |%!&C=A%<<22:..&4|
000019c0 30 30 43 44 2c 2c 47 25 3a e1 0d 0f eb 68 dd f2 |00CD,,G%:....h..|
000019d0 4d 28 52 25 2c 71 25 2c 52 24 29 3a ea 50 25 2c |M(R%,q%,R$):.P%,|
000019e0 4c 25 3a 21 47 25 3d 52 25 3a 47 25 21 34 3d 71 |L%:!G%=R%:G%!4=q|
000019f0 25 3a c8 99 26 34 30 30 43 45 2c 2c 47 25 3a e7 |%:..&400CE,,G%:.|
00001a00 47 25 21 32 34 80 28 31 3c 3c 38 29 8c 50 25 3d |G%!24.(1<<8).P%=|
00001a10 47 25 21 32 38 3a 4c 25 3d 28 47 25 21 33 36 29 |G%!28:L%=(G%!36)|
00001a20 2d 31 3a 8b 50 25 3d 47 25 2b 32 38 3a 4c 25 3d |-1:.P%=G%+28:L%=|
00001a30 26 42 0d 0f ec 2d 24 50 25 3d c0 52 24 2c 4c 25 |&B...-$P%=.R$,L%|
00001a40 29 3a 47 25 21 38 3d 30 3a 47 25 21 26 43 3d 30 |):G%!8=0:G%!&C=0|
00001a50 3a c8 99 26 34 30 30 43 44 2c 2c 47 25 3a e1 0d |:..&400CD,,G%:..|
00001a60 0f ed 57 dd a4 53 28 52 25 2c 71 25 29 3a ea 41 |..W..S(R%,q%):.A|
00001a70 24 3a 21 47 25 3d 52 25 3a 47 25 21 34 3d 71 25 |$:!G%=R%:G%!4=q%|
00001a80 3a c8 99 26 34 30 30 43 45 2c 2c 47 25 3a e7 28 |:..&400CE,,G%:.(|
00001a90 47 25 21 32 34 80 32 35 36 29 3e 30 8c 41 24 3d |G%!24.256)>0.A$=|
00001aa0 a4 5a 28 47 25 21 32 38 29 8b 41 24 3d a4 5a 28 |.Z(G%!28).A$=.Z(|
00001ab0 47 25 2b 32 38 29 0d 0f ee 07 3d 41 24 0d 0f ef |G%+28)....=A$...|
00001ac0 d2 dd a4 54 28 41 24 29 3a ea 41 25 2c 42 25 2c |...T(A$):.A%,B%,|
00001ad0 4c 25 2c 5a 24 2c 49 25 3a 41 24 2b 3d 22 5c 22 |L%,Z$,I%:A$+="\"|
00001ae0 3a de 41 25 34 2a a4 52 20 28 41 24 29 2a 32 34 |:.A%4*.R (A$)*24|
00001af0 3a 42 25 3d 41 25 2b 34 3a 5a 24 3d c0 41 24 2c |:B%=A%+4:Z$=.A$,|
00001b00 a7 41 24 2c 22 5c 22 29 2d 31 29 3a 24 41 25 3d |.A$,"\")-1):$A%=|
00001b10 5a 24 3a 41 25 21 26 43 3d 26 37 30 32 30 37 3a |Z$:A%!&C=&70207:|
00001b20 41 25 21 32 30 3d 34 34 3a 41 25 21 32 34 3d 30 |A%!20=44:A%!24=0|
00001b30 3a 4c 25 3d a9 5a 24 3a 41 24 3d c1 41 24 2c a7 |:L%=.Z$:A$=.A$,.|
00001b40 41 24 2c 22 5c 22 29 2b 31 29 3a c8 95 a7 41 24 |A$,"\")+1):...A$|
00001b50 2c 22 5c 22 29 3a 5a 24 3d c0 41 24 2c a7 41 24 |,"\"):Z$=.A$,.A$|
00001b60 2c 22 5c 22 29 2d 31 29 3a 42 25 2b 3d 32 34 3a |,"\")-1):B%+=24:|
00001b70 21 42 25 3d a4 4b 28 5a 24 29 3a 42 25 21 34 3d |!B%=.K(Z$):B%!4=|
00001b80 30 3a 42 25 21 38 3d 26 37 30 30 30 30 32 31 0d |0:B%!8=&7000021.|
00001b90 0f f0 36 e7 a7 5a 24 2c 22 3e 22 29 8c 42 25 21 |..6..Z$,">").B%!|
00001ba0 34 3d bb c1 5a 24 2c a7 5a 24 2c 22 3e 22 29 2b |4=..Z$,.Z$,">")+|
00001bb0 31 29 3a 5a 24 3d c0 5a 24 2c a7 5a 24 2c 22 3e |1):Z$=.Z$,.Z$,">|
00001bc0 22 29 2d 31 29 0d 0f f1 51 e7 a9 5a 24 3e 26 42 |")-1)...Q..Z$>&B|
00001bd0 8c de 49 25 a9 5a 24 2b 31 3a 24 49 25 3d 5a 24 |..I%.Z$+1:$I%=Z$|
00001be0 3a 42 25 21 38 3d 42 25 21 38 84 32 35 36 3a 42 |:B%!8=B%!8.256:B|
00001bf0 25 21 26 43 3d 49 25 3a 42 25 21 31 36 3d 30 3a |%!&C=I%:B%!16=0:|
00001c00 42 25 21 32 30 3d 49 25 2b 31 8b 24 28 42 25 2b |B%!20=I%+1.$(B%+|
00001c10 26 43 29 3d 5a 24 0d 0f f2 12 e7 a9 5a 24 3e 4c |&C)=Z$......Z$>L|
00001c20 25 8c 4c 25 3d a9 5a 24 0d 0f f3 37 41 24 3d c1 |%.L%=.Z$...7A$=.|
00001c30 41 24 2c a7 41 24 2c 22 5c 22 29 2b 31 29 3a ce |A$,.A$,"\")+1):.|
00001c40 3a 21 42 25 3d 21 42 25 84 26 38 30 3a 41 25 21 |:!B%=!B%.&80:A%!|
00001c50 31 36 3d 4c 25 2a 31 36 2b 31 36 3a 3d 41 25 0d |16=L%*16+16:=A%.|
00001c60 0f f4 1d dd a4 4b 28 f8 5a 24 29 3a ea 41 25 2c |.....K(.Z$):.A%,|
00001c70 46 25 3a f5 3a c8 8e bd 97 5a 24 ca 0d 0f f5 18 |F%:.:....Z$.....|
00001c80 c9 22 80 22 3a 41 25 2b 3d 31 3a 5a 24 3d c1 5a |.".":A%+=1:Z$=.Z|
00001c90 24 2c 32 29 0d 0f f6 18 c9 22 5f 22 3a 41 25 2b |$,2)....."_":A%+|
00001ca0 3d 32 3a 5a 24 3d c1 5a 24 2c 32 29 0d 0f f7 18 |=2:Z$=.Z$,2)....|
00001cb0 c9 22 2a 22 3a 41 25 2b 3d 38 3a 5a 24 3d c1 5a |."*":A%+=8:Z$=.Z|
00001cc0 24 2c 32 29 0d 0f f8 0a 7f 46 25 3d 2d 31 0d 0f |$,2).....F%=-1..|
00001cd0 f9 0d cb 3a fd 46 25 3a 3d 41 25 0d 0f fa 39 dd |...:.F%:=A%...9.|
00001ce0 a4 52 28 41 24 29 3a ea 41 25 3a c8 95 a7 41 24 |.R(A$):.A%:...A$|
00001cf0 2c 22 5c 22 29 3a 41 25 2b 3d 31 3a 41 24 3d c1 |,"\"):A%+=1:A$=.|
00001d00 41 24 2c a7 41 24 2c 22 5c 22 29 2b 31 29 3a ce |A$,.A$,"\")+1):.|
00001d10 3a 3d 41 25 0d 0f fb 36 dd a4 44 28 41 25 29 3a |:=A%...6..D(A%):|
00001d20 ea 48 25 3a 41 25 2b 3d 34 3a f5 41 25 2b 3d 32 |.H%:A%+=4:.A%+=2|
00001d30 34 3a 48 25 2b 3d 34 34 3a e7 28 21 41 25 80 32 |4:H%+=44:.(!A%.2|
00001d40 29 3e 30 8c 48 25 2b 3d 32 34 0d 0f fc 17 fd 28 |)>0.H%+=24.....(|
00001d50 21 41 25 80 26 38 30 29 3e 30 3a 3d 48 25 2b 39 |!A%.&80)>0:=H%+9|
00001d60 36 0d 0f fd 22 dd f2 47 28 4d 25 2c 58 25 2c 59 |6..."..G(M%,X%,Y|
00001d70 25 29 3a e7 59 25 3d 2d 31 8c 59 25 3d a4 44 28 |%):.Y%=-1.Y%=.D(|
00001d80 4d 25 29 0d 0f fe 1e c8 99 26 34 30 30 44 34 2c |M%)......&400D4,|
00001d90 2c 4d 25 2c 58 25 2c 59 25 3a 79 25 3d 4d 25 3a |,M%,X%,Y%:y%=M%:|
00001da0 e1 0d 0f ff 1e dd a4 55 28 41 24 2c 41 25 29 3a |.......U(A$,A%):|
00001db0 3d 22 5c 22 2b 41 24 2b 22 3e 22 2b c3 41 25 0d |="\"+A$+">"+.A%.|
00001dc0 10 00 24 dd a4 4e 3a c8 99 26 34 30 30 43 46 2c |..$..N:..&400CF,|
00001dd0 2c 47 25 3a 3d 28 28 28 47 25 21 38 29 80 31 29 |,G%:=(((G%!8).1)|
00001de0 3d 31 29 0d 10 01 42 dd a4 42 3a ea 41 25 2c 42 |=1)...B..B:.A%,B|
00001df0 25 3a c8 99 26 32 30 30 33 39 2c 2c 22 44 72 61 |%:..&20039,,"Dra|
00001e00 67 41 53 70 72 69 74 65 5f 53 74 61 72 74 22 b8 |gASprite_Start".|
00001e10 3b 41 25 3a 42 25 3d b9 3a e7 28 41 25 80 31 29 |;A%:B%=.:.(A%.1)|
00001e20 8c 42 25 3d a3 0d 10 02 22 c8 99 36 2c 26 41 31 |.B%=...."..6,&A1|
00001e30 2c 32 38 b8 2c 2c 41 25 3a e7 28 41 25 80 32 29 |,28.,,A%:.(A%.2)|
00001e40 3d 30 8c 42 25 3d a3 0d 10 03 07 3d 42 25 0d 10 |=0.B%=.....=B%..|
00001e50 04 5c dd f2 4e 28 52 25 2c 71 25 2c 4e 24 29 3a |.\..N(R%,q%,N$):|
00001e60 21 4a 25 3d 52 25 3a c8 99 26 34 30 30 43 42 2c |!J%=R%:..&400CB,|
00001e70 2c 4a 25 3a 65 25 3d 4a 25 21 34 2d 4a 25 21 32 |,J%:e%=J%!4-J%!2|
00001e80 30 3a 72 25 3d 4a 25 21 31 36 2d 4a 25 21 32 34 |0:r%=J%!16-J%!24|
00001e90 3a 4a 25 21 34 3d 71 25 3a c8 99 26 34 30 30 43 |:J%!4=q%:..&400C|
00001ea0 45 2c 2c 4a 25 3a e7 a4 42 8c 0d 10 05 51 21 4a |E,,J%:..B....Q!J|
00001eb0 25 3d 65 25 2b 4a 25 21 38 3a 4a 25 21 34 3d 72 |%=e%+J%!8:J%!4=r|
00001ec0 25 2b 4a 25 21 26 43 3a 4a 25 21 38 3d 65 25 2b |%+J%!&C:J%!8=e%+|
00001ed0 4a 25 21 31 36 3a 4a 25 21 26 43 3d 72 25 2b 4a |J%!16:J%!&C=r%+J|
00001ee0 25 21 32 30 3a c8 99 26 34 32 34 30 30 2c 26 43 |%!20:..&42400,&C|
00001ef0 35 2c 31 2c 4e 24 2c 4a 25 2c 30 0d 10 06 83 cc |5,1,N$,J%,0.....|
00001f00 3a 4a 25 21 34 3d 35 3a 4a 25 21 38 3d 65 25 2b |:J%!4=5:J%!8=e%+|
00001f10 4a 25 21 38 3a 4a 25 21 26 43 3d 72 25 2b 4a 25 |J%!8:J%!&C=r%+J%|
00001f20 21 26 43 3a 4a 25 21 31 36 3d 65 25 2b 4a 25 21 |!&C:J%!16=e%+J%!|
00001f30 31 36 3a 4a 25 21 32 30 3d 72 25 2b 4a 25 21 32 |16:J%!20=r%+J%!2|
00001f40 30 3a 4a 25 21 32 34 3d 30 3a 4a 25 21 32 38 3d |0:J%!24=0:J%!28=|
00001f50 30 3a 4a 25 21 33 32 3d 26 37 46 46 46 46 46 46 |0:J%!32=&7FFFFFF|
00001f60 46 3a 4a 25 21 33 36 3d 26 37 46 46 46 46 46 46 |F:J%!36=&7FFFFFF|
00001f70 46 3a c8 99 26 34 30 30 44 30 2c 2c 4a 25 0d 10 |F:..&400D0,,J%..|
00001f80 07 07 cd 3a e1 0d 10 08 32 dd a4 4c 28 41 24 29 |...:....2..L(A$)|
00001f90 3a c8 95 a7 41 24 2c 22 2e 22 29 3a 41 24 3d c1 |:...A$,"."):A$=.|
00001fa0 41 24 2c a7 41 24 2c 22 2e 22 29 2b 31 29 3a ce |A$,.A$,".")+1):.|
00001fb0 3a 3d 41 24 2b bd 30 0d 10 09 37 dd a4 47 3a ea |:=A$+.0...7..G:.|
00001fc0 41 25 2c 42 25 3a c8 99 35 33 2c 2d 31 2c 26 43 |A%,B%:..53,-1,&C|
00001fd0 b8 2c 2c 41 25 3a c8 99 35 33 2c 2d 31 2c 35 b8 |.,,A%:..53,-1,5.|
00001fe0 2c 2c 42 25 3a 3d 28 41 25 3c 3c 42 25 29 0d 10 |,,B%:=(A%<<B%)..|
00001ff0 0a 48 dd a4 4a 28 48 25 2c 53 25 2c 46 25 29 3a |.H..J(H%,S%,F%):|
00002000 ea 50 25 2c 45 25 2c 56 25 2c 4c 25 2c 54 25 3a |.P%,E%,V%,L%,T%:|
00002010 c8 99 26 32 30 30 31 44 2c 32 2c 48 25 2c 2c 53 |..&2001D,2,H%,,S|
00002020 25 b8 45 25 2c 2c 50 25 3b 56 25 3a e7 28 56 25 |%.E%,,P%;V%:.(V%|
00002030 80 31 29 3d 31 8c 0d 10 0b 08 e7 46 25 8c 0d 10 |.1)=1......F%...|
00002040 0c 3b 50 25 3d a4 50 3a f2 50 28 48 25 2c 28 53 |.;P%=.P:.P(H%,(S|
00002050 25 81 50 25 29 2a 50 25 2d 50 25 2a 28 28 53 25 |%.P%)*P%-P%*((S%|
00002060 83 50 25 29 3e 30 29 2c b9 29 3a 50 25 3d a4 4a |.P%)>0),.):P%=.J|
00002070 28 48 25 2c 53 25 2c a3 29 0d 10 0d 0c cc c8 99 |(H%,S%,.).......|
00002080 34 33 2c 45 25 0d 10 0e 05 cd 0d 10 0f 09 cd 3a |43,E%..........:|
00002090 3d 50 25 0d 10 10 56 dd f2 66 28 48 25 2c f8 42 |=P%...V..f(H%,.B|
000020a0 25 2c 53 25 2c 46 25 29 3a ea 4c 25 2c 45 25 2c |%,S%,F%):.L%,E%,|
000020b0 56 25 2c 54 25 2c 50 25 3a c8 99 26 32 30 30 31 |V%,T%,P%:..&2001|
000020c0 44 2c 34 2c 48 25 2c 42 25 2c 53 25 b8 45 25 2c |D,4,H%,B%,S%.E%,|
000020d0 2c 42 25 3b 56 25 3a 56 25 3d 28 28 56 25 80 31 |,B%;V%:V%=((V%.1|
000020e0 29 3d 31 29 3a c8 8e b9 ca 0d 10 11 13 c9 56 25 |)=1):.........V%|
000020f0 80 ac 46 25 3a c8 99 34 33 2c 45 25 0d 10 12 2c |..F%:..43,E%...,|
00002100 c9 56 25 80 46 25 80 28 53 25 3e 30 29 3a f2 50 |.V%.F%.(S%>0):.P|
00002110 28 48 25 2c 53 25 2c b9 29 3a f2 66 28 48 25 2c |(H%,S%,.):.f(H%,|
00002120 42 25 2c 53 25 2c b9 29 0d 10 13 11 c9 56 25 80 |B%,S%,.).....V%.|
00002130 46 25 80 28 53 25 3c 30 29 0d 10 14 1e c9 ac 56 |F%.(S%<0)......V|
00002140 25 80 46 25 80 28 53 25 3c 30 29 3a f2 50 28 48 |%.F%.(S%<0):.P(H|
00002150 25 2c 2d 31 2c b9 29 0d 10 15 07 cb 3a e1 0d 10 |%,-1,.).....:...|
00002160 16 1a dd f2 50 28 48 25 2c 53 25 2c 46 25 29 3a |....P(H%,S%,F%):|
00002170 ea 50 25 3a e7 46 25 8c 0d 10 17 0a e7 53 25 3c |.P%:.F%......S%<|
00002180 30 8c 0d 10 18 9a c8 99 26 32 30 30 31 44 2c 35 |0.......&2001D,5|
00002190 2c 48 25 2c 2c 2d 33 32 2a 26 34 30 30 2a 26 34 |,H%,,-32*&400*&4|
000021a0 30 30 3a 53 25 3d 48 25 21 26 43 2b 48 25 2d 26 |00:S%=H%!&C+H%-&|
000021b0 38 30 30 30 3a 50 25 3d a4 50 3a c8 99 26 34 30 |8000:P%=.P:..&40|
000021c0 30 45 43 2c 2d 31 2c 2d 31 b8 46 25 3a 46 25 3d |0EC,-1,-1.F%:F%=|
000021d0 a4 43 28 28 28 53 25 81 50 25 29 2a 50 25 2d 50 |.C(((S%.P%)*P%-P|
000021e0 25 2a 28 28 53 25 83 50 25 29 3e 30 29 29 2d 46 |%*((S%.P%)>0))-F|
000021f0 25 29 3a c8 99 32 39 2c 35 2c 48 25 2c 2c 28 28 |%):..29,5,H%,,((|
00002200 53 25 81 50 25 29 2a 50 25 2d 50 25 2a 28 28 53 |S%.P%)*P%-P%*((S|
00002210 25 83 50 25 29 3e 30 29 29 2d 53 25 0d 10 19 26 |%.P%)>0))-S%...&|
00002220 cc 3a 45 25 3d 73 25 3a 46 25 3d a4 43 28 53 25 |.:E%=s%:F%=.C(S%|
00002230 29 3a c8 99 32 39 2c 35 2c 48 25 2c 2c 73 25 2d |):..29,5,H%,,s%-|
00002240 45 25 0d 10 1a 05 cd 0d 10 1b 12 cc c8 99 32 39 |E%............29|
00002250 2c 35 2c 48 25 2c 2c 53 25 0d 10 1c 07 cd 3a e1 |,5,H%,,S%.....:.|
00002260 0d 10 1d 1b dd f2 71 28 48 25 2c 53 25 29 3a e7 |......q(H%,S%):.|
00002270 53 25 3d 2d 31 8c 53 25 3d 73 25 0d 10 1e 13 c8 |S%=-1.S%=s%.....|
00002280 99 32 39 2c 30 2c 48 25 2c 2c 53 25 3a e1 0d 10 |.29,0,H%,,S%:...|
00002290 1f 17 dd a4 50 3a ea 50 25 3a c8 99 38 31 b8 50 |....P:.P%:..81.P|
000022a0 25 3a 3d 50 25 0d 10 20 37 dd a4 71 28 41 24 29 |%:=P%.. 7..q(A$)|
000022b0 3a ea 4c 25 3a c8 99 33 35 2c 41 24 2c 47 25 2c |:.L%:..35,A$,G%,|
000022c0 26 46 46 2c 30 2c 33 b8 2c 2c 4c 25 3a 47 25 3f |&FF,0,3.,,L%:G%?|
000022d0 4c 25 3d 30 3a 3d a4 5a 28 47 25 29 0d 10 21 59 |L%=0:=.Z(G%)..!Y|
000022e0 dd a4 56 28 41 24 29 3a ea 4c 25 2c 46 25 3a c8 |..V(A$):.L%,F%:.|
000022f0 99 26 32 30 30 32 33 2c 41 24 2c 47 25 2c 26 46 |.&20023,A$,G%,&F|
00002300 46 2c 30 2c 33 b8 2c 2c 4c 25 3b 46 25 3a e7 28 |F,0,3.,,L%;F%:.(|
00002310 46 25 80 31 29 3d 30 8c 47 25 3f 4c 25 3d 30 3a |F%.1)=0.G%?L%=0:|
00002320 e7 a4 5a 28 47 25 29 3c 3e 22 22 8c 46 25 3d b9 |..Z(G%)<>"".F%=.|
00002330 8b 46 25 3d a3 0d 10 22 07 3d 46 25 0d 10 23 49 |.F%=...".=F%..#I|
00002340 dd a4 43 28 4d 25 29 3a ea 53 25 3a c8 99 26 34 |..C(M%):.S%:..&4|
00002350 30 30 45 43 2c 2d 31 2c 2d 31 b8 53 25 3a c8 99 |00EC,-1,-1.S%:..|
00002360 26 34 30 30 45 43 2c 53 25 2b 4d 25 2c 2d 31 b8 |&400EC,S%+M%,-1.|
00002370 53 25 3a 73 25 3d 53 25 2d 28 93 2d 26 38 30 30 |S%:s%=S%-(.-&800|
00002380 30 29 3a 3d 93 0d 10 24 3f dd a4 5a 28 50 25 29 |0):=...$?..Z(P%)|
00002390 3a ea 41 24 3a c8 95 3f 50 25 3c 3e 30 80 3f 50 |:.A$:..?P%<>0.?P|
000023a0 25 3c 3e 26 44 80 3f 50 25 3c 3e 26 41 3a 41 24 |%<>&D.?P%<>&A:A$|
000023b0 2b 3d bd 28 3f 50 25 29 3a 50 25 2b 3d 31 3a ce |+=.(?P%):P%+=1:.|
000023c0 3a 3d 41 24 0d 10 25 44 dd a4 49 28 41 24 29 3a |:=A$..%D..I(A$):|
000023d0 ea 41 25 2c 43 25 3a e3 41 25 3d 31 b8 a9 41 24 |.A%,C%:.A%=1..A$|
000023e0 3a 43 25 3d 97 c1 41 24 2c 41 25 2c 31 29 3a e7 |:C%=..A$,A%,1):.|
000023f0 43 25 3e 3d 39 37 80 43 25 3c 3d 26 37 41 8c 43 |C%>=97.C%<=&7A.C|
00002400 25 3d 43 25 80 ac 33 32 0d 10 26 17 c1 41 24 2c |%=C%..32..&..A$,|
00002410 41 25 29 3d bd 28 43 25 29 3a ed 3a 3d 41 24 0d |A%)=.(C%):.:=A$.|
00002420 10 27 37 dd a4 4f 3a ea 41 25 2c 42 25 3a c8 99 |.'7..O:.A%,B%:..|
00002430 35 33 2c 2d 31 2c 26 42 b8 2c 2c 41 25 3a c8 99 |53,-1,&B.,,A%:..|
00002440 35 33 2c 2d 31 2c 34 b8 2c 2c 42 25 3a 3d 28 41 |53,-1,4.,,B%:=(A|
00002450 25 3c 3c 42 25 29 0d 10 28 22 dd f2 4b 3a ea 85 |%<<B%)..("..K:..|
00002460 3a ee 85 85 a2 9e 2c f6 24 2b 22 20 61 74 20 6c |:.....,.$+" at l|
00002470 69 6e 65 20 22 2b c3 9e 0d 10 29 84 21 4a 25 3d |ine "+....).!J%=|
00002480 9f 3a 24 28 4a 25 2b 34 29 3d f6 24 2b 22 2c 22 |.:$(J%+4)=.$+","|
00002490 2b c3 9e 2b 22 2e 20 20 43 6c 69 63 6b 20 4f 4b |+..+". Click OK|
000024a0 20 63 6f 6e 74 69 6e 75 65 20 6f 72 20 43 41 4e | continue or CAN|
000024b0 43 45 4c 20 74 6f 20 71 75 69 74 20 61 70 70 6c |CEL to quit appl|
000024c0 69 63 61 74 69 6f 6e 2e 22 3a c8 99 26 34 30 30 |ication.":..&400|
000024d0 44 46 2c 4a 25 2c 33 2b 28 31 3c 3c 26 41 29 2b |DF,J%,3+(1<<&A)+|
000024e0 28 31 3c 3c 38 29 2c 55 24 2c 4e 24 b8 2c 4f 25 |(1<<8),U$,N$.,O%|
000024f0 3a e7 4f 25 3d 32 8c 7a 25 3d 2d 31 0d 10 2a 08 |:.O%=2.z%=-1..*.|
00002500 f7 85 3a e1 0d 10 2b 3f dd f2 68 28 52 25 29 3a |..:...+?..h(R%):|
00002510 21 47 25 3d 52 25 3a c8 99 26 34 30 30 43 36 2c |!G%=R%:..&400C6,|
00002520 2c 47 25 3a e7 52 25 3d 76 25 8c 6d 25 3d a3 3a |,G%:.R%=v%.m%=.:|
00002530 21 47 25 3d 78 25 3a c8 99 26 36 30 30 43 36 2c |!G%=x%:..&600C6,|
00002540 2c 47 25 0d 10 2c 0f e7 52 25 3d 55 25 8c 75 25 |,G%..,..R%=U%.u%|
00002550 3d a3 0d 10 2d 05 e1 0d 10 2e 41 dd a4 57 28 4c |=...-.....A..W(L|
00002560 24 29 3a ea 48 25 2c 53 25 2c 49 25 2c 4f 25 2c |$):.H%,S%,I%,O%,|
00002570 69 25 3a c8 99 26 34 30 30 44 42 2c 2c 2c 30 2c |i%:..&400DB,,,0,|
00002580 30 2c 30 2c 4c 24 2c 30 b8 2c 53 25 2c 49 25 3a |0,0,L$,0.,S%,I%:|
00002590 e7 53 25 3e 35 31 32 8c 0d 10 2f 4a c8 99 26 32 |.S%>512.../J..&2|
000025a0 30 30 31 45 2c 36 2c 2c 2c 53 25 b8 2c 2c 50 25 |001E,6,,,S%.,,P%|
000025b0 3b 4f 25 3a e7 4f 25 80 31 8c 85 32 2c 22 4e 6f |;O%:.O%.1..2,"No|
000025c0 74 20 65 6e 6f 75 67 68 20 6d 65 6d 6f 72 79 20 |t enough memory |
000025d0 74 6f 20 63 72 65 61 74 65 20 77 69 6e 64 6f 77 |to create window|
000025e0 2e 22 0d 10 30 0a cc 50 25 3d 4a 25 0d 10 31 5c |."..0..P%=J%..1\|
000025f0 cd 3a de 69 25 49 25 3a c8 99 26 34 30 30 44 42 |.:.i%I%:..&400DB|
00002600 2c 2c 50 25 2c 69 25 2c 69 25 2b 49 25 2c 4a 79 |,,P%,i%,i%+I%,Jy|
00002610 25 2c 4c 24 2c 30 b8 2c 2c 69 25 3a 50 25 21 36 |%,L$,0.,,i%:P%!6|
00002620 34 3d 44 79 25 3a c8 99 26 34 30 30 43 31 2c 2c |4=Dy%:..&400C1,,|
00002630 50 25 b8 48 25 3a e7 53 25 3e 35 31 32 8c c8 99 |P%.H%:.S%>512...|
00002640 33 30 2c 37 2c 2c 50 25 0d 10 32 07 3d 48 25 0d |30,7,,P%..2.=H%.|
00002650 10 33 a0 dd f2 75 28 52 25 2c 70 25 2c 4e 79 25 |.3...u(R%,p%,Ny%|
00002660 29 3a ea 57 25 2c 48 25 2c 58 25 2c 59 25 2c 5a |):.W%,H%,X%,Y%,Z|
00002670 25 3a 21 47 25 3d 52 25 3a c8 99 26 34 30 30 43 |%:!G%=R%:..&400C|
00002680 42 2c 2c 47 25 3a 58 25 3d 33 36 2a 28 28 47 25 |B,,G%:X%=36*((G%|
00002690 21 33 32 3e 3e 32 38 29 80 31 29 3a 59 25 3d 33 |!32>>28).1):Y%=3|
000026a0 36 2a 28 28 47 25 21 33 32 3e 3e 32 36 29 80 31 |6*((G%!32>>26).1|
000026b0 29 2d 33 36 2a 28 28 47 25 21 33 32 3e 3e 33 30 |)-36*((G%!32>>30|
000026c0 29 80 31 29 3a 57 25 3d 47 25 21 26 43 2d 47 25 |).1):W%=G%!&C-G%|
000026d0 21 34 2b 58 25 3a 48 25 3d 47 25 21 31 36 2d 47 |!4+X%:H%=G%!16-G|
000026e0 25 21 38 2b 59 25 3a e7 4e 79 25 3d 2d 31 8c 0d |%!8+Y%:.Ny%=-1..|
000026f0 10 34 4a 47 25 21 34 3d a4 4f 2f 32 2d 57 25 2f |.4JG%!4=.O/2-W%/|
00002700 32 3a 47 25 21 26 43 3d 47 25 21 34 2b 57 25 3a |2:G%!&C=G%!4+W%:|
00002710 47 25 21 31 36 3d a4 47 2d 28 28 a4 47 2d 26 38 |G%!16=.G-((.G-&8|
00002720 34 29 2d 48 25 29 2f 32 2d 59 25 3a 47 25 21 38 |4)-H%)/2-Y%:G%!8|
00002730 3d 47 25 21 31 36 2d 48 25 0d 10 35 0d cc 3a e7 |=G%!16-H%..5..:.|
00002740 4e 79 25 3d 31 8c 0d 10 36 3b c8 97 58 25 2c 59 |Ny%=1...6;..X%,Y|
00002750 25 2c 5a 25 3a 47 25 21 34 3d 58 25 2d 36 34 3a |%,Z%:G%!4=X%-64:|
00002760 47 25 21 26 43 3d 47 25 21 34 2b 57 25 3a 47 25 |G%!&C=G%!4+W%:G%|
00002770 21 38 3d 59 25 2d 48 25 3a 47 25 21 31 36 3d 59 |!8=Y%-H%:G%!16=Y|
00002780 25 0d 10 37 05 cd 0d 10 38 15 cd 3a e7 70 25 3c |%..7....8..:.p%<|
00002790 3e 30 8c 47 25 21 32 38 3d 70 25 0d 10 39 1c c8 |>0.G%!28=p%..9..|
000027a0 99 26 34 30 30 43 35 2c 2c 47 25 3a e7 52 25 3d |.&400C5,,G%:.R%=|
000027b0 55 25 8c 75 25 3d b9 0d 10 3a 32 e7 52 25 3d 76 |U%.u%=...:2.R%=v|
000027c0 25 8c 6d 25 3d b9 3a 21 4a 25 3d 76 25 3a c8 99 |%.m%=.:!J%=v%:..|
000027d0 26 34 30 30 43 42 2c 2c 4a 25 3a 4a 25 21 32 38 |&400CB,,J%:J%!28|
000027e0 3d 47 25 21 32 38 3a f2 78 0d 10 3b 05 e1 0d 10 |=G%!28:.x..;....|
000027f0 3c 16 dd f2 78 3a e7 78 25 3c 3e 30 80 21 4a 25 |<...x:.x%<>0.!J%|
00002800 3d 76 25 8c 0d 10 3d 68 21 47 25 3d 78 25 3a 47 |=v%...=h!G%=x%:G|
00002810 25 21 34 3d 4a 25 21 34 2b 53 79 25 3a 47 25 21 |%!4=J%!4+Sy%:G%!|
00002820 31 36 3d 4a 25 21 31 36 2b 52 79 25 3a 47 25 21 |16=J%!16+Ry%:G%!|
00002830 26 43 3d 47 25 21 34 2b 48 79 25 3a 47 25 21 38 |&C=G%!4+Hy%:G%!8|
00002840 3d 47 25 21 31 36 2d 56 79 25 3a 47 25 21 32 30 |=G%!16-Vy%:G%!20|
00002850 3d 30 3a 47 25 21 32 34 3d 30 3a 47 25 21 32 38 |=0:G%!24=0:G%!28|
00002860 3d 4a 25 21 32 38 3a e7 59 79 25 8c 0d 10 3e 41 |=J%!28:.Yy%...>A|
00002870 47 25 21 34 2d 3d 4a 25 21 32 30 3a 47 25 21 26 |G%!4-=J%!20:G%!&|
00002880 43 2d 3d 4a 25 21 32 30 3a e7 47 25 21 34 3c 4a |C-=J%!20:.G%!4<J|
00002890 25 21 34 8c 47 25 21 32 30 3d 4a 25 21 32 30 2d |%!4.G%!20=J%!20-|
000028a0 53 79 25 3a 47 25 21 34 3d 4a 25 21 34 0d 10 3f |Sy%:G%!4=J%!4..?|
000028b0 1c e7 47 25 21 26 43 3e 4a 25 21 26 43 8c 47 25 |..G%!&C>J%!&C.G%|
000028c0 21 26 43 3d 4a 25 21 26 43 0d 10 40 0b cd 3a e7 |!&C=J%!&C..@..:.|
000028d0 4f 79 25 8c 0d 10 41 47 47 25 21 31 36 2d 3d 4a |Oy%...AGG%!16-=J|
000028e0 25 21 32 34 3a 47 25 21 38 2d 3d 4a 25 21 32 34 |%!24:G%!8-=J%!24|
000028f0 3a e7 47 25 21 31 36 3e 4a 25 21 31 36 8c 47 25 |:.G%!16>J%!16.G%|
00002900 21 32 34 3d 4a 25 21 31 36 2d 47 25 21 31 36 3a |!24=J%!16-G%!16:|
00002910 47 25 21 31 36 3d 4a 25 21 31 36 0d 10 42 18 e7 |G%!16=J%!16..B..|
00002920 47 25 21 38 3c 4a 25 21 38 8c 47 25 21 38 3d 4a |G%!8<J%!8.G%!8=J|
00002930 25 21 38 0d 10 43 1b cd 3a c8 99 26 34 30 30 43 |%!8..C..:..&400C|
00002940 35 2c 2c 47 25 3a 4a 25 21 32 38 3d 78 25 0d 10 |5,,G%:J%!28=x%..|
00002950 44 07 cd 3a e1 0d 10 45 31 dd f2 48 28 4b 79 25 |D..:...E1..H(Ky%|
00002960 2c 54 24 29 3a 4a 79 25 3d 2d 31 3a c8 99 26 34 |,T$):Jy%=-1:..&4|
00002970 30 30 44 39 2c 2c 54 24 3a f2 54 3a c8 99 26 34 |00D9,,T$:.T:..&4|
00002980 30 30 44 41 3a e1 0d 10 46 24 dd f2 59 28 57 25 |00DA:...F$..Y(W%|
00002990 2c 64 79 25 2c 41 24 2c 77 79 25 29 3a 24 64 79 |,dy%,A$,wy%):$dy|
000029a0 25 3d 41 24 3a e7 77 79 25 8c 0d 10 47 3d 21 4a |%=A$:.wy%...G=!J|
000029b0 25 3d 57 25 3a c8 99 26 34 30 30 43 42 2c 2c 4a |%=W%:..&400CB,,J|
000029c0 25 3a c8 99 26 34 30 30 44 31 2c 2d 31 2c 4a 25 |%:..&400D1,-1,J%|
000029d0 21 34 2c 4a 25 21 31 36 2c 4a 25 21 26 43 2c 4a |!4,J%!16,J%!&C,J|
000029e0 25 21 31 36 2b 34 34 0d 10 48 07 cd 3a e1 0d ff |%!16+44..H..:...|
000029f0 
.