Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_15_03.adf » !Organiser_Organiser » !Upgrade/!RunImage

!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_ArchimedesWorld_15_03.adf » !Organiser_Organiser
Filename: !Upgrade/!RunImage
Read OK:
File size: 27E9 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

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.20 (26 Oct 97)",TRUE):j%=FNC(1*&400):PROCq(j%,s%):ONERRORPROCK
    5WHILENOTa%:PROCW(1):ENDWHILE:ONERROREND
    6SYS&400DD:END
    7DEFPROCg:LOCALERROR:ONERRORLOCALRESTOREERROR:CLOSE#0:SYS&406C1:PROCC(REPORT$,FALSE):ENDPROC
    8SYS&406C0:OSCLI"CDir <Upgrade$Dir>.BackUp":PROCM(5):PROCF(0):OSCLI"Copy "+S$+" <Upgrade$Dir>.Backup.!Organiser ~c ~v f r":PROCF(1):F$="<Upgrade$Dir>.BackUp.!Organiser":ONERRORLOCALRESTOREERROR:CLOSE#0:SYS&406C1:PROCC(REPORT$+STR$ERL,TRUE):ENDPROC
    9OSCLI"Copy "+P$+" "+S$+" ~c ~v f r":PROCF(2):PROCO:PROCM(2):SYS&406C1:ENDPROC
   10DEFPROCO:LOCALR%,Q%,A%,B%:R%=OPENIN(F$+".Data.Settings"):Q%=OPENOUT(S$+".Data.Settings"):IFK%>=&6ETHENV$=GET$#R%
   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):IFK%<&73THEN
   12PRINT#Q%,-1,0,0,0,0:BPUT#Q%,-1:BPUT#Q%,0:PRINT#Q%,500,920:PROCP("0,15,8,11,4,4,11,")
   13ELSE:INPUT#R%,O%,Gy%,g%,Py%,q%:PRINT#Q%,O%,Gy%,g%,Py%,q%:PROCA(1):PROCA(1):INPUT#R%,e%,Xy%:PRINT#Q%,e%,Xy%:PROCA(7)
   14ENDIF:IFK%<&78THENPROCP("3,7,9,")ELSEPROCA(3)
   15IFK%<&73THEN
   16FORB%=1TOn%:PROCA(1):BPUT#Q%,A%(B%):BPUT#Q%,7:NEXT
   17ELSEPROCA(n%*3)
   18ENDIF:IFK%<&78THENBPUT#Q%,"%z12:%mi:%se %am. %dy/%mn/%yr"ELSEPROCZ
   19PROCZ:PROCZ:PROCA(3):IFK%<&78THEN
   20BPUT#Q%,"mailto:":BPUT#Q%,"http://":PROCP("4,8,7,7,7,7,7,7,7,7,7,7,7,11,10,")
   21ELSEPROCZ:PROCZ:PROCA(&F)
   22ENDIF:PROCZ:PROCA(2):PROCZ:PROCA(4):PROCZ:PROCA(3):IFK%<&6ETHEN
   23PROCR(2,0)
   24ELSEPROCA(2)
   25ENDIF:IFK%<&73THEN
   26BPUT#Q%,6
   27ELSEPROCA(1)
   28ENDIF:CLOSE#R%:CLOSE#Q%:PROCF(3):IFK%<&75THEN
   29OSCLI"Remove "+S$+".Templates"
   30ENDIF:PROCF(4):IFK%<&78THEN
   31R%=OPENIN(F$+".Data.Addresses"):Q%=OPENOUT(S$+".Data.Addresses"):PROCr:PROCb:CLOSE#R%:CLOSE#Q%
   32ELSEOSCLI"Copy "+F$+".Data.Addresses "+S$+".Data.Addresses ~c ~v f"
   33ENDIF:OSCLI"Copy "+F$+".Data.Anni "+S$+".Data.Anni ~c ~v f":OSCLI"Copy "+F$+".Data.Diary "+S$+".Data.Diary ~c ~v f":OSCLI"Copy "+F$+".Data.Important "+S$+".Data.Important ~c ~v f":PROCF(5):ENDPROC
   34DEFPROCR(N%,C%)LOCALA%:FORA%=1TON%:BPUT#Q%,CHR$C%;:NEXT:ENDPROC
   35DEFPROCZBPUT#Q%,GET$#R%:ENDPROC
   36DEFPROCA(N%)LOCALA%:FORA%=1TON%:BPUT#Q%,BGET#R%:NEXT:ENDPROC
   37DEFFNALOCALA%:A%=BGET#R%:BPUT#Q%,A%:=A%
   38DEFPROCP(A$):WHILEA$<>"":BPUT#Q%,VALA$:PRINTVALA$:A$=MID$(A$,INSTR(A$,",")+1):ENDWHILE:ENDPROC
   39DEFPROCr:LOCALUy%,A$(),A%,N%,S%,C%,B%:DIMA$(&E):c%=-1:WHILENOTEOF#R%:S%=&C:Uy%=VALGET$#R%:IFK%<&73THENN%=&DELSEN%=&E
   40FORA%=0TON%:A$(A%)=GET$#R%:S%+=LENA$(A%)+1:NEXT:IFN%=&DTHENA$(&E)="":N%=&E:S%+=1
   41C%=FNP(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%=c%:IFB%<>-1THEN
   42WHILEFNF(FNM(B%,0)+" "+FNM(B%,1))<X$ANDB%!4<>-1:B%=B%!4:ENDWHILE:IFFNF(FNM(B%,0)+" "+FNM(B%,1))>=X$THEN
   43!C%=!B%:C%!4=B%:!B%=C%:IF!C%<>-1THEN!(!C%+4)=C%ELSEc%=C%
   44ELSE:B%!4=C%:!C%=B%:C%!4=-1
   45ENDIF
   46ELSEc%=C%:!C%=-1:C%!4=-1
   47ENDIF:ENDWHILE:ENDPROC
   48DEFPROCb:LOCALB%:B%=c%:WHILEB%<>-1:BPUT#Q%,STR$B%!8:SYS&C,2,Q%,B%+&C,B%!8 -&C:B%=B%!4:ENDWHILE:ENDPROC
   49DEFFNF(A$):LOCALB%:A$=FNV(A$):B%=ASCLEFT$(A$,1):WHILENOT(B%>47ANDB%<58)ANDNOT(B%>64ANDB%<91)ANDA$<>"":A$=MID$(A$,2):B%=ASCLEFT$(A$,1):ENDWHILE:=A$
   50DEFFNM(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$
   51DEFPROCd:CASECy%OF
   52WHEN2:J%!8=J%!16-368:SYS&400C5,,J%
   53WHEN3:PROCh(!J%):IF!J%=U%THENa%=TRUE
   54WHEN6:PROCQ(J%!&C,J%!16,J%!8,!J%,J%!4)
   55WHEN7:PROCv
   56WHEN8:PROCa(!J%,J%!4,J%!24)
   57WHEN9:PROCt
   58WHEN17,18:PROCX
   59ENDCASE:ENDPROC
   60DEFPROCv:IFFNJTHENSYS&42401
   61SYS&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
   62ENDPROC
   63DEFPROCX:CASEJ%!16OF
   64WHEN0:a%=TRUE
   65WHEN2:PROCz(FNZ(J%+44))
   66WHEN3:PROCV(J%!40,FNZ(J%+44))
   67WHEN8:PROCD
   68ENDCASE:ENDPROC
   69DEFPROCz(M$):SYS&406C0:OSCLI"Copy "+P$+" "+M$+" r ~c ~v":z%=OPENOUT(M$+".Resources.!Language"):BPUT#z%,FNS(U%,37):CLOSE#z%:R%=OPENIN(P$+".Data.Settings"):Q%=OPENOUT(M$+".Data.Settings"):PROCZ:PROCZ:A$=GET$#z%:BPUT#Q%,FNS(U%,35):WHILENOTEOF#R%:BPUT#Q%,BGET#R%:ENDWHILE:CLOSE#Q%:CLOSE#R%:SYS&406C1
   70SWAPJ%!8,J%!&C:J%!16=3:SYS&400E7,18,J%,J%!4:ENDPROC
   71DEFFNR(h%,M$):=(h%=8192)
   72DEFFNY(h%,M$):LOCALz%:IFFNI(M$)="!Organiser"+CHR$0THEN
   73z%=OPENIN(M$+".Data.Settings"):C$=GET$#z%:CLOSE#z%:IFVALC$=0THENC$="1.00 (8 Aug 97)"
   74K%=(VALC$)*&64:S$=M$:CASETRUEOF
   75WHENK%<t%:PROCS(U%,7,M$):PROCS(U%,8,"Version "+C$):PROCG(U%,&A,0):PROCM(1)
   76WHENK%=t%:PROCC("The version you are trying to upgrade is the latest version known to this upgrading application.",FALSE)
   77WHENK%>t%:PROCC("The version you are trying to upgrade is newer than this upgrading application.",FALSE)
   78ENDCASE
   79ENDIF:=TRUE
   80DEFPROCQ(D%,_%,k%,f%,d%):CASED%OF
   81WHEN-2:IFk%=2THENPROCB(b%,!J%-64,-1)ELSEPROCu(U%,-1,-1)
   82WHENU%:IFk%<>2THEN
   83CASE_%OF
   84WHEN2:PROCM(1)
   85WHEN9:PROCM(0)
   86WHEN&A:PROCg
   87WHEN&D,19:PROC_
   88WHEN&E:OSCLI"Filer_Run "+W$+".Improv"
   89WHEN&F,18,23:a%=TRUE
   90WHEN20:PROCM(4):PROCU(U%,35)
   91WHEN24:PROCM(0)
   92WHEN26:IF(k%AND64)THENPROCN(U%,26,"!Organiser")
   93WHEN37:PROCI(U%,37)
   94ENDCASE
   95ELSEPROCB(b%,!J%-64,J%!4)
   96ENDIF
   97ENDCASE:ENDPROC
   98DEFPROCI(e%,o%):LOCALv%,D$,Zy%,B$,G$,Q$,g%:v%=1:D$=FNS(e%,o%):REPEAT:SYS&C,9,P$+".Resources",J%,1,v%,256,0TO,,,g%,v%:IFg%=1THEN
   99G$=FNZ(J%):IFQ$=""THENQ$=G$
  100IFZy%=TRUETHENB$=G$
  101IFG$=D$THENZy%=TRUE
  102ENDIF:UNTILv%=-1ORB$<>"":IFB$=""THENB$=Q$
  103PROCS(e%,o%,B$):ENDPROC
  104DEFPROCy:CASEy%OF
  105WHENb%:CASE!J%OF
  106WHEN1:a%=TRUE
  107ENDCASE
  108ENDCASE:ENDPROC
  109DEFFNH(D%,_%,vy%,Wy%,`%,By%,Fy%,Qy%):LOCALAy%:Ay%=TRUE:CASED%OF
  110ENDCASE:=Ay%
  111DEFPROCC(A$,F%):PROCS(U%,17,A$):PROCw(U%,19,ABSNOTF%):PROCM(3):ENDPROC
  112DEFPROCM(N%):!G%=U%:SYS&400CB,,G%:G%!8=G%!16-368:G%!24=N%*-368:SYS&400C5,,G%:ENDPROC
  113DEFPROCF(N%):LOCALA%:FORA%=29TO32:PROCs(U%,A%,-(N%>A%-29)):NEXT:PROCW(NOT1):ENDPROC
  114DEFPROC_:LOCALERROR:ONERRORLOCALRESTOREERROR:SYS&406C1:PROCC(REPORT$,FALSE):ENDPROC
  115SYS&406C0:OSCLI"Copy "+F$+" "+S$+" ~c ~v f r q":SYS&406C1:PROCM(1):RESTOREERROR:ENDPROC
  116DEFPROCe:Dy%=FNX(W$+".Sprites",0):C$="":K%=0:t%=(VALJ$)*&64:S$="":F$="":P$=W$+".!Organiser":ENDPROC
  117DEFPROCn:PROCS(U%,7,""):PROCS(U%,8,""):PROCG(U%,&A,1):PROCS(U%,37,"English"):PROCM(0):ENDPROC
  118DEFPROCT:LOCALP%:l%=FNG("Info"):U%=FNG("Main"):SYS&400DB,,0,0,0,0,"Main"TO,Uy%:PROCS(l%,8,J$):PROCY(U%,P%!72,"Organiser upgrader version "+LEFT$(J$,4),0):ENDPROC
  119DEFPROCc:b%=FNT("Skeleton"+FNL("Info",l%)+"\Quit"):ENDPROC
 3751DEFPROCL(H$,K$,I$,Iy%):U$=H$:J$=I$:s%=0:a%=FALSE:W$=K$:x%=0:r%=0:m%=FALSE:u%=FALSE:DIMJ%512:G%=J%+256:SYS&400C0,&C8,&4B534154,U$TOLy%,qy%:PROCe:IFIy%THENPROCH(Ky%,W$+".Templates")
 3752PROCc:PROCn:ENDPROC
 3753DEFPROCW(_y%):SYS&400C7,_y%,J%TOCy%:PROCd:ENDPROC
 3754DEFPROCa(e%,o%,w%):LOCALWy%,`%,By%,Fy%,Qy%:Wy%=(w%=399):`%=(w%=398):By%=(w%=415):Fy%=(w%=414):Qy%=(w%=&D):IFNOTFNH(e%,o%,w%,Wy%,`%,By%,Fy%,Qy%)THENSYS&400DC,w%
 3755ENDPROC
 3756DEFPROCt:LOCALMy%:My%=FNN:PROCy:IFMy%THENSYS&400D4,,y%
 3757ENDPROC
 3758DEFPROCV(h%,M$):IFFNR(h%,M$)THEN
 3759IFFNY(h%,M$)THEN
 3760SWAPJ%!8,J%!&C:J%!16=4:SYS&400E7,17,J%,J%!4:IFM$="<Wimp$Scrap>"THENOSCLI"Remove <Wimp$Scrap>"
 3761ENDIF
 3762ENDIF:ENDPROC
 3763DEFPROCD:IFFNO<>-1THENJ%!&C=J%!8:J%!8=0:SYS&400E7,19,J%,J%!4
 3764ENDPROC
 3765DEFFNO:=TRUE
 3766DEFFNX(M$,E%):LOCALF%,A%,S%:F%=OPENINM$:A%=EXT#F%+4:CLOSE#F%:A%+=E%:DIMS%A%:!S%=A%:S%!8=16:SYS46,266,S%,M$:=S%
 3767DEFPROCU(D%,_%):!G%=D%:G%!4=_%:SYS&400CE,,G%:SYS&400D2,D%,_%,,,-1,LENFNZ(G%!28):ENDPROC
 3768DEFPROCw(D%,_%,O%):LOCALq%:q%=G%+64:IFO%=1THEN!G%=D%:G%!4=_%:SYS&400CE,,G%
 3769!q%=D%:q%!4=_%:q%!8=(ABSO%)<<23:q%!&C=1<<23:SYS&400CD,,q%:IFO%=1THENSYS&400D1,D%,G%!8,G%!&C,G%!16,G%!20
 3770ENDPROC
 3771DEFPROCs(D%,_%,O%):LOCALA%:!G%=D%:G%!4=_%:A%=1:IFO%=-1THENO%=1:A%=0
 3772G%!8=O%<<21:G%!&C=A%<<21:SYS&400CD,,G%:ENDPROC
 3773DEFPROCG(D%,_%,O%):LOCALA%:A%=1:!G%=D%:G%!4=_%:IFO%=-1THENO%=1:A%=0
 3774G%!8=O%*(1<<22):G%!&C=A%<<22:SYS&400CD,,G%:ENDPROC
 3775DEFPROCS(D%,_%,R$):LOCALP%,L%:!G%=D%:G%!4=_%:SYS&400CE,,G%:IFG%!24AND(1<<8)THENP%=G%!28:L%=(G%!36)-1:ELSEP%=G%+28:L%=&B
 3776$P%=LEFT$(R$,L%):G%!8=0:G%!&C=0:SYS&400CD,,G%:ENDPROC
 3777DEFFNS(D%,_%):LOCALA$:!G%=D%:G%!4=_%:SYS&400CE,,G%:IF(G%!24AND256)>0THENA$=FNZ(G%!28)ELSEA$=FNZ(G%+28)
 3778=A$
 3779DEFFNT(A$):LOCALA%,B%,L%,Z$,I%:A$+="\":DIMA%4*FNQ (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%=FND(Z$):B%!4=0:B%!8=&7000021
 3780IFINSTR(Z$,">")THENB%!4=VALMID$(Z$,INSTR(Z$,">")+1):Z$=LEFT$(Z$,INSTR(Z$,">")-1)
 3781IFLENZ$>&BTHENDIMI%LENZ$+1:$I%=Z$:B%!8=B%!8OR256:B%!&C=I%:B%!16=0:B%!20=I%+1ELSE$(B%+&C)=Z$
 3782IFLENZ$>L%THENL%=LENZ$
 3783A$=MID$(A$,INSTR(A$,"\")+1):ENDWHILE:!B%=!B%OR&80:A%!16=L%*16+16:=A%
 3784DEFFND(RETURNZ$):LOCALA%,F%:REPEAT:CASECHR$ASCZ$OF
 3785WHEN"�":A%+=1:Z$=MID$(Z$,2)
 3786WHEN"_":A%+=2:Z$=MID$(Z$,2)
 3787WHEN"*":A%+=8:Z$=MID$(Z$,2)
 3788OTHERWISEF%=-1
 3789ENDCASE:UNTILF%:=A%
 3790DEFFNQ(A$):LOCALA%:WHILEINSTR(A$,"\"):A%+=1:A$=MID$(A$,INSTR(A$,"\")+1):ENDWHILE:=A%
 3791DEFFNK(A%):LOCALH%:A%+=4:REPEATA%+=24:H%+=44:IF(!A%AND2)>0THENH%+=24
 3792UNTIL(!A%AND&80)>0:=H%+96
 3793DEFPROCB(M%,X%,Y%):IFY%=-1THENY%=FNK(M%)
 3794SYS&400D4,,M%,X%,Y%:y%=M%:ENDPROC
 3795DEFFNL(A$,A%):="\"+A$+">"+STR$A%
 3796DEFFNN:SYS&400CF,,G%:=(((G%!8)AND1)=1)
 3797DEFFNJ:LOCALA%,B%:SYS&20039,,"DragASprite_Start"TO;A%:B%=TRUE:IF(A%AND1)THENB%=FALSE
 3798SYS6,&A1,28TO,,A%:IF(A%AND2)=0THENB%=FALSE
 3799=B%
 3800DEFPROCN(D%,_%,N$):!J%=D%:SYS&400CB,,J%:f%=J%!4-J%!20:d%=J%!16-J%!24:J%!4=_%:SYS&400CE,,J%:IFFNJTHEN
 3801!J%=f%+J%!8:J%!4=d%+J%!&C:J%!8=f%+J%!16:J%!&C=d%+J%!20:SYS&42400,&C5,1,N$,J%,0
 3802ELSE:J%!4=5:J%!8=f%+J%!8:J%!&C=d%+J%!&C:J%!16=f%+J%!16:J%!20=d%+J%!20:J%!24=0:J%!28=0:J%!32=&7FFFFFFF:J%!36=&7FFFFFFF:SYS&400D0,,J%
 3803ENDIF:ENDPROC
 3804DEFFNI(A$):WHILEINSTR(A$,"."):A$=MID$(A$,INSTR(A$,".")+1):ENDWHILE:=A$+CHR$0
 3805DEFFNB:LOCALA%,B%:SYS53,-1,&CTO,,A%:SYS53,-1,5TO,,B%:=(A%<<B%)
 3806DEFFNP(H%,S%,F%):LOCALP%,E%,V%,L%,T%:SYS&2001D,2,H%,,S%TOE%,,P%;V%:IF(V%AND1)=1THEN
 3807IFF%THEN
 3808P%=FNW:PROCJ(H%,(S%DIVP%)*P%-P%*((S%MODP%)>0),TRUE):P%=FNP(H%,S%,FALSE)
 3809ELSESYS43,E%
 3810ENDIF
 3811ENDIF:=P%
 3812DEFPROCf(H%,RETURNB%,S%,F%):LOCALL%,E%,V%,T%,P%:SYS&2001D,4,H%,B%,S%TOE%,,B%;V%:V%=((V%AND1)=1):CASETRUEOF
 3813WHENV%ANDNOTF%:SYS43,E%
 3814WHENV%ANDF%AND(S%>0):PROCJ(H%,S%,TRUE):PROCf(H%,B%,S%,TRUE)
 3815WHENV%ANDF%AND(S%<0)
 3816WHENNOTV%ANDF%AND(S%<0):PROCJ(H%,-1,TRUE)
 3817ENDCASE:ENDPROC
 3818DEFPROCJ(H%,S%,F%):LOCALP%:IFF%THEN
 3819IFS%<0THEN
 3820SYS&2001D,5,H%,,-32*&400*&400:S%=H%!&C+H%-&8000:P%=FNW: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%
 3821ELSE:E%=s%:F%=FNC(S%):SYS29,5,H%,,s%-E%
 3822ENDIF
 3823ELSESYS29,5,H%,,S%
 3824ENDIF:ENDPROC
 3825DEFPROCq(H%,S%):IFS%=-1THENS%=s%
 3826SYS29,0,H%,,S%:ENDPROC
 3827DEFFNW:LOCALP%:SYS81TOP%:=P%
 3828DEFFNC(M%):LOCALS%:SYS&400EC,-1,-1TOS%:SYS&400EC,S%+M%,-1TOS%:s%=S%-(HIMEM-&8000):=HIMEM
 3829DEFFNZ(P%):LOCALA$:WHILE?P%<>0AND?P%<>&DAND?P%<>&A:A$+=CHR$(?P%):P%+=1:ENDWHILE:=A$
 3830DEFFNV(A$):LOCALA%,C%:FORA%=1TOLENA$:C%=ASCMID$(A$,A%,1):IFC%>=97ANDC%<=&7ATHENC%=C%ANDNOT32
 3831MID$(A$,A%)=CHR$(C%):NEXT:=A$
 3832DEFFNU:LOCALA%,B%:SYS53,-1,&BTO,,A%:SYS53,-1,4TO,,B%:=(A%<<B%)
 3833DEFPROCK:LOCALERROR:ONERRORERROREXTERL,REPORT$+" at line "+STR$ERL
 3834!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%=2THENa%=-1
 3835RESTOREERROR:ENDPROC
 3836DEFPROCh(D%):!G%=D%:SYS&400C6,,G%:IFD%=r%THENm%=FALSE:!G%=x%:SYS&600C6,,G%
 3837IFD%=U%THENu%=FALSE
 3838ENDPROC
 3839DEFFNG(L$):LOCALH%,S%,I%,O%,i%:SYS&400DB,,,0,0,0,L$,0TO,S%,I%:IFS%>512THEN
 3840SYS&2001E,6,,,S%TO,,P%;O%:IFO%AND1THENERROR2,"Not enough memory to create window."
 3841ELSEP%=J%
 3842ENDIF:DIMi%I%:SYS&400DB,,P%,i%,i%+I%,Jy%,L$,0TO,,i%:P%!64=Dy%:SYS&400C1,,P%TOH%:IFS%>512THENSYS30,7,,P%
 3843=H%
 3844DEFPROCu(D%,p%,Ny%):LOCALW%,H%,X%,Y%,Z%:!G%=D%: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
 3845G%!4=FNU/2-W%/2:G%!&C=G%!4+W%:G%!16=FNB-((FNB-&84)-H%)/2-Y%:G%!8=G%!16-H%
 3846ELSE:IFNy%=1THEN
 3847MOUSEX%,Y%,Z%:G%!4=X%-64:G%!&C=G%!4+W%:G%!8=Y%-H%:G%!16=Y%
 3848ENDIF
 3849ENDIF:IFp%<>0THENG%!28=p%
 3850SYS&400C5,,G%:IFD%=U%THENu%=TRUE
 3851IFD%=r%THENm%=TRUE:!J%=r%:SYS&400CB,,J%:J%!28=G%!28:PROCx
 3852ENDPROC
 3853DEFPROCx:IFx%<>0AND!J%=r%THEN
 3854!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
 3855G%!4-=J%!20:G%!&C-=J%!20:IFG%!4<J%!4THENG%!20=J%!20-Sy%:G%!4=J%!4
 3856IFG%!&C>J%!&CTHENG%!&C=J%!&C
 3857ENDIF:IFOy%THEN
 3858G%!16-=J%!24:G%!8-=J%!24:IFG%!16>J%!16THENG%!24=J%!16-G%!16:G%!16=J%!16
 3859IFG%!8<J%!8THENG%!8=J%!8
 3860ENDIF:SYS&400C5,,G%:J%!28=x%
 3861ENDIF:ENDPROC
 3862DEFPROCH(Ky%,T$):Jy%=-1:SYS&400D9,,T$:PROCT:SYS&400DA:ENDPROC
 3863DEFPROCY(W%,dy%,A$,wy%):$dy%=A$:IFwy%THEN
 3864!J%=W%:SYS&400CB,,J%:SYS&400D1,-1,J%!4,J%!16,J%!&C,J%!16+44
 3865ENDIF: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.20 (26 Oct 97)",�):j%=�C(1*&400):�q(j%,s%):��K
ȕ�a%:�W(1):�:��
ș&400DD:�
(��g:�:��:�#0:ș&406C1:�C(�$,�):�
�ș&406C0:�"CDir <Upgrade$Dir>.BackUp":�M(5):�F(0):�"Copy "+S$+" <Upgrade$Dir>.Backup.!Organiser ~c ~v f r":�F(1):F$="<Upgrade$Dir>.BackUp.!Organiser":��:�#0:ș&406C1:�C(�$+Þ,�):�
	=�"Copy "+P$+" "+S$+" ~c ~v f r":�F(2):�O:�M(2):ș&406C1:�

Y��O:�R%,Q%,A%,B%:R%=�(F$+".Data.Settings"):Q%=�(S$+".Data.Settings"):�K%>=&6E�V$=�#R%
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):�K%<&73�
G�#Q%,-1,0,0,0,0:�#Q%,-1:�#Q%,0:�#Q%,500,920:�P("0,15,8,11,4,4,11,")

[�:�#R%,O%,Gy%,g%,Py%,q%:�#Q%,O%,Gy%,g%,Py%,q%:�A(1):�A(1):�#R%,e%,Xy%:�#Q%,e%,Xy%:�A(7)
 �:�K%<&78��P("3,7,9,")��A(3)
�K%<&73�
'�B%=1�n%:�A(1):�#Q%,A%(B%):�#Q%,7:�

��A(n%*3)
5�:�K%<&78��#Q%,"%z12:%mi:%se %am. %dy/%mn/%yr"��Z
�Z:�Z:�A(3):�K%<&78�
H�#Q%,"mailto:":�#Q%,"http://":�P("4,8,7,7,7,7,7,7,7,7,7,7,7,11,10,")
��Z:�Z:�A(&F)
)�:�Z:�A(2):�Z:�A(4):�Z:�A(3):�K%<&6E�
�R(2,0)

��A(2)
�:�K%<&73�

�#Q%,6

��A(1)
�:�#R%:�#Q%:�F(3):�K%<&75�
�"Remove "+S$+".Templates"
�:�F(4):�K%<&78�
IR%=�(F$+".Data.Addresses"):Q%=�(S$+".Data.Addresses"):�r:�b:�#R%:�#Q%
 @�"Copy "+F$+".Data.Addresses "+S$+".Data.Addresses ~c ~v f"
!��:�"Copy "+F$+".Data.Anni "+S$+".Data.Anni ~c ~v f":�"Copy "+F$+".Data.Diary "+S$+".Data.Diary ~c ~v f":�"Copy "+F$+".Data.Important "+S$+".Data.Important ~c ~v f":�F(5):�
"(��R(N%,C%)�A%:�A%=1�N%:�#Q%,�C%;:�:�
#��Z�#Q%,�#R%:�
$%��A(N%)�A%:�A%=1�N%:�#Q%,�#R%:�:�
%ݤA�A%:A%=�#R%:�#Q%,A%:=A%
&9��P(A$):ȕA$<>"":�#Q%,�A$:�A$:A$=�A$,�A$,",")+1):�:�
'Z��r:�Uy%,A$(),A%,N%,S%,C%,B%:�A$(&E):c%=-1:ȕ��#R%:S%=&C:Uy%=��#R%:�K%<&73�N%=&D�N%=&E
(E�A%=0�N%:A$(A%)=�#R%:S%+=�A$(A%)+1:�:�N%=&D�A$(&E)="":N%=&E:S%+=1
)qC%=�P(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%=c%:�B%<>-1�
*Uȕ�F(�M(B%,0)+" "+�M(B%,1))<X$�B%!4<>-1:B%=B%!4:�:�F(�M(B%,0)+" "+�M(B%,1))>=X$�
+5!C%=!B%:C%!4=B%:!B%=C%:�!C%<>-1�!(!C%+4)=C%�c%=C%
,�:B%!4=C%:!C%=B%:C%!4=-1
-�
.�c%=C%:!C%=-1:C%!4=-1
/	�:�:�
0J��b:�B%:B%=c%:ȕB%<>-1:�#Q%,�B%!8:ș&C,2,Q%,B%+&C,B%!8 -&C:B%=B%!4:�:�
1fݤF(A$):�B%:A$=�V(A$):B%=��A$,1):ȕ�(B%>47�B%<58)��(B%>64�B%<91)�A$<>"":A$=�A$,2):B%=��A$,1):�:=A$
2_ݤM(B%,L%):�A$:B%+=&C:ȕL%>0:ȕ?B%<>&A:B%+=1:�:B%+=1:L%-=1:�:ȕ?B%<>&A:A$+=�?B%:B%+=1:�:=A$
3��d:ȎCy%�
4"�2:J%!8=J%!16-368:ș&400C5,,J%
5�3:�h(!J%):�!J%=U%�a%=�
6$�6:�Q(J%!&C,J%!16,J%!8,!J%,J%!4)
7	�7:�v
8�8:�a(!J%,J%!4,J%!24)
9	�9:�t
:
�17,18:�X
;�:�
<��v:�J�ș&42401
=�ș&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
>�
?��X:ȎJ%!16�
@�0:a%=�
A�2:�z(�Z(J%+44))
B�3:�V(J%!40,�Z(J%+44))
C	�8:�D
D�:�
E���z(M$):ș&406C0:�"Copy "+P$+" "+M$+" r ~c ~v":z%=�(M$+".Resources.!Language"):�#z%,�S(U%,37):�#z%:R%=�(P$+".Data.Settings"):Q%=�(M$+".Data.Settings"):�Z:�Z:A$=�#z%:�#Q%,�S(U%,35):ȕ��#R%:�#Q%,�#R%:�:�#Q%:�#R%:ș&406C1
F.ȔJ%!8,J%!&C:J%!16=3:ș&400E7,18,J%,J%!4:�
GݤR(h%,M$):=(h%=8192)
H+ݤY(h%,M$):�z%:�I(M$)="!Organiser"+�0�
IFz%=�(M$+".Data.Settings"):C$=�#z%:�#z%:�C$=0�C$="1.00 (8 Aug 97)"
JK%=(�C$)*&64:S$=M$:Ȏ��
K?�K%<t%:�S(U%,7,M$):�S(U%,8,"Version "+C$):�G(U%,&A,0):�M(1)
Ls�K%=t%:�C("The version you are trying to upgrade is the latest version known to this upgrading application.",�)
Mb�K%>t%:�C("The version you are trying to upgrade is newer than this upgrading application.",�)
N�
O�:=�
P��Q(D%,_%,k%,f%,d%):ȎD%�
Q+�-2:�k%=2��B(b%,!J%-64,-1)��u(U%,-1,-1)
R�U%:�k%<>2�
S	Ȏ_%�
T�2:�M(1)
U�9:�M(0)
V
�&A:�g
W
�&D,19:�_
X"�&E:�"Filer_Run "+W$+".Improv"
Y�&F,18,23:a%=�
Z�20:�M(4):�U(U%,35)
[
�24:�M(0)
\'�26:�(k%�64)��N(U%,26,"!Organiser")
]�37:�I(U%,37)
^�
_��B(b%,!J%-64,J%!4)
`�
a�:�
bn��I(e%,o%):�v%,D$,Zy%,B$,G$,Q$,g%:v%=1:D$=�S(e%,o%):�:ș&C,9,P$+".Resources",J%,1,v%,256,0�,,,g%,v%:�g%=1�
cG$=�Z(J%):�Q$=""�Q$=G$
d�Zy%=��B$=G$
e�G$=D$�Zy%=�
f �:�v%=-1�B$<>"":�B$=""�B$=Q$
g�S(e%,o%,B$):�
h
��y:Ȏy%�
i�b%:Ȏ!J%�
j�1:a%=�
k�
l�:�
m6ݤH(D%,_%,vy%,Wy%,`%,By%,Fy%,Qy%):�Ay%:Ay%=�:ȎD%�
n
�:=Ay%
o2��C(A$,F%):�S(U%,17,A$):�w(U%,19,��F%):�M(3):�
pK��M(N%):!G%=U%:ș&400CB,,G%:G%!8=G%!16-368:G%!24=N%*-368:ș&400C5,,G%:�
q:��F(N%):�A%:�A%=29�32:�s(U%,A%,-(N%>A%-29)):�:�W(�1):�
r$��_:�:��:ș&406C1:�C(�$,�):�
sBș&406C0:�"Copy "+F$+" "+S$+" ~c ~v f r q":ș&406C1:�M(1):��:�
tY��e:Dy%=�X(W$+".Sprites",0):C$="":K%=0:t%=(�J$)*&64:S$="":F$="":P$=W$+".!Organiser":�
uG��n:�S(U%,7,""):�S(U%,8,""):�G(U%,&A,1):�S(U%,37,"English"):�M(0):�
v���T:�P%:l%=�G("Info"):U%=�G("Main"):ș&400DB,,0,0,0,0,"Main"�,Uy%:�S(l%,8,J$):�Y(U%,P%!72,"Organiser upgrader version "+�J$,4),0):�
w1��c:b%=�T("Skeleton"+�L("Info",l%)+"\Quit"):�
����L(H$,K$,I$,Iy%):U$=H$:J$=I$:s%=0:a%=�:W$=K$:x%=0:r%=0:m%=�:u%=�:�J%512:G%=J%+256:ș&400C0,&C8,&4B534154,U$�Ly%,qy%:�e:�Iy%��H(Ky%,W$+".Templates")
��c:�n:�
�%��W(_y%):ș&400C7,_y%,J%�Cy%:�d:�
����a(e%,o%,w%):�Wy%,`%,By%,Fy%,Qy%:Wy%=(w%=399):`%=(w%=398):By%=(w%=415):Fy%=(w%=414):Qy%=(w%=&D):笤H(e%,o%,w%,Wy%,`%,By%,Fy%,Qy%)�ș&400DC,w%
��
�(��t:�My%:My%=�N:�y:�My%�ș&400D4,,y%
��
���V(h%,M$):�R(h%,M$)�
��Y(h%,M$)�
�VȔJ%!8,J%!&C:J%!16=4:ș&400E7,17,J%,J%!4:�M$="<Wimp$Scrap>"��"Remove <Wimp$Scrap>"
��
��:�
�5��D:�O<>-1�J%!&C=J%!8:J%!8=0:ș&400E7,19,J%,J%!4
��
�
ݤO:=�
�]ݤX(M$,E%):�F%,A%,S%:F%=�M$:A%=�#F%+4:�#F%:A%+=E%:�S%A%:!S%=A%:S%!8=16:ș46,266,S%,M$:=S%
�K��U(D%,_%):!G%=D%:G%!4=_%:ș&400CE,,G%:ș&400D2,D%,_%,,,-1,��Z(G%!28):�
�@��w(D%,_%,O%):�q%:q%=G%+64:�O%=1�!G%=D%:G%!4=_%:ș&400CE,,G%
�c!q%=D%:q%!4=_%:q%!8=(�O%)<<23:q%!&C=1<<23:ș&400CD,,q%:�O%=1�ș&400D1,D%,G%!8,G%!&C,G%!16,G%!20
��
�:��s(D%,_%,O%):�A%:!G%=D%:G%!4=_%:A%=1:�O%=-1�O%=1:A%=0
�+G%!8=O%<<21:G%!&C=A%<<21:ș&400CD,,G%:�
�:��G(D%,_%,O%):�A%:A%=1:!G%=D%:G%!4=_%:�O%=-1�O%=1:A%=0
�/G%!8=O%*(1<<22):G%!&C=A%<<22:ș&400CD,,G%:�
�h��S(D%,_%,R$):�P%,L%:!G%=D%:G%!4=_%:ș&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(D%,_%):�A$:!G%=D%:G%!4=_%:ș&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*�Q (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%=�D(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%
�ݤD(�Z$):�A%,F%:�:Ȏ��Z$�
��"�":A%+=1:Z$=�Z$,2)
��"_":A%+=2:Z$=�Z$,2)
��"*":A%+=8:Z$=�Z$,2)
�
F%=-1
�
�:�F%:=A%
�9ݤQ(A$):�A%:ȕ�A$,"\"):A%+=1:A$=�A$,�A$,"\")+1):�:=A%
�6ݤK(A%):�H%:A%+=4:�A%+=24:H%+=44:�(!A%�2)>0�H%+=24
��(!A%�&80)>0:=H%+96
�"��B(M%,X%,Y%):�Y%=-1�Y%=�K(M%)
�ș&400D4,,M%,X%,Y%:y%=M%:�
�ݤL(A$,A%):="\"+A$+">"+�A%
�$ݤN:ș&400CF,,G%:=(((G%!8)�1)=1)
�BݤJ:�A%,B%:ș&20039,,"DragASprite_Start"�;A%:B%=�:�(A%�1)�B%=�
�"ș6,&A1,28�,,A%:�(A%�2)=0�B%=�
�=B%
�\��N(D%,_%,N$):!J%=D%:ș&400CB,,J%:f%=J%!4-J%!20:d%=J%!16-J%!24:J%!4=_%:ș&400CE,,J%:�J�
�Q!J%=f%+J%!8:J%!4=d%+J%!&C:J%!8=f%+J%!16:J%!&C=d%+J%!20:ș&42400,&C5,1,N$,J%,0
ڃ�:J%!4=5:J%!8=f%+J%!8:J%!&C=d%+J%!&C:J%!16=f%+J%!16:J%!20=d%+J%!20:J%!24=0:J%!28=0:J%!32=&7FFFFFFF:J%!36=&7FFFFFFF:ș&400D0,,J%
��:�
�2ݤI(A$):ȕ�A$,"."):A$=�A$,�A$,".")+1):�:=A$+�0
�7ݤB:�A%,B%:ș53,-1,&C�,,A%:ș53,-1,5�,,B%:=(A%<<B%)
�HݤP(H%,S%,F%):�P%,E%,V%,L%,T%:ș&2001D,2,H%,,S%�E%,,P%;V%:�(V%�1)=1�
��F%�
�;P%=�W:�J(H%,(S%�P%)*P%-P%*((S%�P%)>0),�):P%=�P(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):�J(H%,S%,�):�f(H%,B%,S%,�)
��V%�F%�(S%<0)
�ɬV%�F%�(S%<0):�J(H%,-1,�)
��:�
���J(H%,S%,F%):�P%:�F%�
�
�S%<0�
�ș&2001D,5,H%,,-32*&400*&400:S%=H%!&C+H%-&8000:P%=�W:ș&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%:�
�ݤW:�P%:ș81�P%:=P%
�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ݤV(A$):�A%,C%:�A%=1��A$:C%=��A$,A%,1):�C%>=97�C%<=&7A�C%=C%��32
��A$,A%)=�(C%):�:=A$
�7ݤU:�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�a%=-1
���:�
�?��h(D%):!G%=D%:ș&400C6,,G%:�D%=r%�m%=�:!G%=x%:ș&600C6,,G%
��D%=U%�u%=�
��
�AݤG(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."

�P%=J%
\�:�i%I%:ș&400DB,,P%,i%,i%+I%,Jy%,L$,0�,,i%:P%!64=Dy%:ș&400C1,,P%�H%:�S%>512�ș30,7,,P%
=H%
���u(D%,p%,Ny%):�W%,H%,X%,Y%,Z%:!G%=D%:ș&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�
JG%!4=�U/2-W%/2:G%!&C=G%!4+W%:G%!16=�B-((�B-&84)-H%)/2-Y%:G%!8=G%!16-H%

�:�Ny%=1�
;ȗX%,Y%,Z%:G%!4=X%-64:G%!&C=G%!4+W%:G%!8=Y%-H%:G%!16=Y%
�
	�:�p%<>0�G%!28=p%

ș&400C5,,G%:�D%=U%�u%=�
2�D%=r%�m%=�:!J%=r%:ș&400CB,,J%:J%!28=G%!28:�x
�

��x:�x%<>0�!J%=r%�
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%�
GG%!16-=J%!24:G%!8-=J%!24:�G%!16>J%!16�G%!24=J%!16-G%!16:G%!16=J%!16
�G%!8<J%!8�G%!8=J%!8
�:ș&400C5,,G%:J%!28=x%
�:�
1��H(Ky%,T$):Jy%=-1:ș&400D9,,T$:�T:ș&400DA:�
$��Y(W%,dy%,A$,wy%):$dy%=A$:�wy%�
=!J%=W%:ș&400CB,,J%:ș&400D1,-1,J%!4,J%!16,J%!&C,J%!16+44
�:�
�
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 30 20 28 32 36  20 4f 63 74 20 39 37 29  |1.20 (26 Oct 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  61 25 3a f2 57 28 31 29  |K.......a%:.W(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 4d  28 35 29 3a f2 46 28 30  |ckUp":.M(5):.F(0|
00000180  29 3a ff 22 43 6f 70 79  20 22 2b 53 24 2b 22 20  |):."Copy "+S$+" |
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 46 24 3d 22 3c 55 70  67 72 61 64 65 24 44 69  |:F$="<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 53 24 2b 22 20 7e  | "+P$+" "+S$+" ~|
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 4d 28 32 29  3a c8 99 26 34 30 36 43  |.O:.M(2):..&406C|
00000240  31 3a e1 0d 00 0a 59 dd  f2 4f 3a ea 52 25 2c 51  |1:....Y..O:.R%,Q|
00000250  25 2c 41 25 2c 42 25 3a  52 25 3d 8e 28 46 24 2b  |%,A%,B%:R%=.(F$+|
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 53  24 2b 22 2e 44 61 74 61  |):Q%=.(S$+".Data|
00000280  2e 53 65 74 74 69 6e 67  73 22 29 3a e7 4b 25 3e  |.Settings"):.K%>|
00000290  3d 26 36 45 8c 56 24 3d  be 23 52 25 0d 00 0b 69  |=&6E.V$=.#R%...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 4b 25  |.A:.A(2+5+5):.K%|
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 50 28  22 30 2c 31 35 2c 38 2c  |,920:.P("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 52 25 2c 4f  25 2c 47 79 25 2c 67 25  |.:.#R%,O%,Gy%,g%|
00000360  2c 50 79 25 2c 71 25 3a  f1 23 51 25 2c 4f 25 2c  |,Py%,q%:.#Q%,O%,|
00000370  47 79 25 2c 67 25 2c 50  79 25 2c 71 25 3a f2 41  |Gy%,g%,Py%,q%:.A|
00000380  28 31 29 3a f2 41 28 31  29 3a e8 23 52 25 2c 65  |(1):.A(1):.#R%,e|
00000390  25 2c 58 79 25 3a f1 23  51 25 2c 65 25 2c 58 79  |%,Xy%:.#Q%,e%,Xy|
000003a0  25 3a f2 41 28 37 29 0d  00 0e 20 cd 3a e7 4b 25  |%:.A(7)... .:.K%|
000003b0  3c 26 37 38 8c f2 50 28  22 33 2c 37 2c 39 2c 22  |<&78..P("3,7,9,"|
000003c0  29 8b f2 41 28 33 29 0d  00 0f 0c e7 4b 25 3c 26  |)..A(3).....K%<&|
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 4b 25  |A(n%*3)...5.:.K%|
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 18  |/%mn/%yr"..Z....|
00000440  f2 5a 3a f2 5a 3a f2 41  28 33 29 3a e7 4b 25 3c  |.Z:.Z:.A(3):.K%<|
00000450  26 37 38 8c 0d 00 14 48  d5 23 51 25 2c 22 6d 61  |&78....H.#Q%,"ma|
00000460  69 6c 74 6f 3a 22 3a d5  23 51 25 2c 22 68 74 74  |ilto:":.#Q%,"htt|
00000470  70 3a 2f 2f 22 3a f2 50  28 22 34 2c 38 2c 37 2c  |p://":.P("4,8,7,|
00000480  37 2c 37 2c 37 2c 37 2c  37 2c 37 2c 37 2c 37 2c  |7,7,7,7,7,7,7,7,|
00000490  37 2c 37 2c 31 31 2c 31  30 2c 22 29 0d 00 15 11  |7,7,11,10,")....|
000004a0  cc f2 5a 3a f2 5a 3a f2  41 28 26 46 29 0d 00 16  |..Z:.Z:.A(&F)...|
000004b0  29 cd 3a f2 5a 3a f2 41  28 32 29 3a f2 5a 3a f2  |).:.Z:.A(2):.Z:.|
000004c0  41 28 34 29 3a f2 5a 3a  f2 41 28 33 29 3a e7 4b  |A(4):.Z:.A(3):.K|
000004d0  25 3c 26 36 45 8c 0d 00  17 0b f2 52 28 32 2c 30  |%<&6E......R(2,0|
000004e0  29 0d 00 18 0a cc f2 41  28 32 29 0d 00 19 0e cd  |)......A(2).....|
000004f0  3a e7 4b 25 3c 26 37 33  8c 0d 00 1a 0a d5 23 51  |:.K%<&73......#Q|
00000500  25 2c 36 0d 00 1b 0a cc  f2 41 28 31 29 0d 00 1c  |%,6......A(1)...|
00000510  1e cd 3a d9 23 52 25 3a  d9 23 51 25 3a f2 46 28  |..:.#R%:.#Q%:.F(|
00000520  33 29 3a e7 4b 25 3c 26  37 35 8c 0d 00 1d 1e ff  |3):.K%<&75......|
00000530  22 52 65 6d 6f 76 65 20  22 2b 53 24 2b 22 2e 54  |"Remove "+S$+".T|
00000540  65 6d 70 6c 61 74 65 73  22 0d 00 1e 14 cd 3a f2  |emplates".....:.|
00000550  46 28 34 29 3a e7 4b 25  3c 26 37 38 8c 0d 00 1f  |F(4):.K%<&78....|
00000560  49 52 25 3d 8e 28 46 24  2b 22 2e 44 61 74 61 2e  |IR%=.(F$+".Data.|
00000570  41 64 64 72 65 73 73 65  73 22 29 3a 51 25 3d ae  |Addresses"):Q%=.|
00000580  28 53 24 2b 22 2e 44 61  74 61 2e 41 64 64 72 65  |(S$+".Data.Addre|
00000590  73 73 65 73 22 29 3a f2  72 3a f2 62 3a d9 23 52  |sses"):.r:.b:.#R|
000005a0  25 3a d9 23 51 25 0d 00  20 40 cc ff 22 43 6f 70  |%:.#Q%.. @.."Cop|
000005b0  79 20 22 2b 46 24 2b 22  2e 44 61 74 61 2e 41 64  |y "+F$+".Data.Ad|
000005c0  64 72 65 73 73 65 73 20  22 2b 53 24 2b 22 2e 44  |dresses "+S$+".D|
000005d0  61 74 61 2e 41 64 64 72  65 73 73 65 73 20 7e 63  |ata.Addresses ~c|
000005e0  20 7e 76 20 66 22 0d 00  21 af cd 3a ff 22 43 6f  | ~v f"..!..:."Co|
000005f0  70 79 20 22 2b 46 24 2b  22 2e 44 61 74 61 2e 41  |py "+F$+".Data.A|
00000600  6e 6e 69 20 22 2b 53 24  2b 22 2e 44 61 74 61 2e  |nni "+S$+".Data.|
00000610  41 6e 6e 69 20 7e 63 20  7e 76 20 66 22 3a ff 22  |Anni ~c ~v f":."|
00000620  43 6f 70 79 20 22 2b 46  24 2b 22 2e 44 61 74 61  |Copy "+F$+".Data|
00000630  2e 44 69 61 72 79 20 22  2b 53 24 2b 22 2e 44 61  |.Diary "+S$+".Da|
00000640  74 61 2e 44 69 61 72 79  20 7e 63 20 7e 76 20 66  |ta.Diary ~c ~v f|
00000650  22 3a ff 22 43 6f 70 79  20 22 2b 46 24 2b 22 2e  |":."Copy "+F$+".|
00000660  44 61 74 61 2e 49 6d 70  6f 72 74 61 6e 74 20 22  |Data.Important "|
00000670  2b 53 24 2b 22 2e 44 61  74 61 2e 49 6d 70 6f 72  |+S$+".Data.Impor|
00000680  74 61 6e 74 20 7e 63 20  7e 76 20 66 22 3a f2 46  |tant ~c ~v f":.F|
00000690  28 35 29 3a e1 0d 00 22  28 dd f2 52 28 4e 25 2c  |(5):..."(..R(N%,|
000006a0  43 25 29 ea 41 25 3a e3  41 25 3d 31 b8 4e 25 3a  |C%).A%:.A%=1.N%:|
000006b0  d5 23 51 25 2c bd 43 25  3b 3a ed 3a e1 0d 00 23  |.#Q%,.C%;:.:...#|
000006c0  12 dd f2 5a d5 23 51 25  2c be 23 52 25 3a e1 0d  |...Z.#Q%,.#R%:..|
000006d0  00 24 25 dd f2 41 28 4e  25 29 ea 41 25 3a e3 41  |.$%..A(N%).A%:.A|
000006e0  25 3d 31 b8 4e 25 3a d5  23 51 25 2c 9a 23 52 25  |%=1.N%:.#Q%,.#R%|
000006f0  3a ed 3a e1 0d 00 25 1e  dd a4 41 ea 41 25 3a 41  |:.:...%...A.A%:A|
00000700  25 3d 9a 23 52 25 3a d5  23 51 25 2c 41 25 3a 3d  |%=.#R%:.#Q%,A%:=|
00000710  41 25 0d 00 26 39 dd f2  50 28 41 24 29 3a c8 95  |A%..&9..P(A$):..|
00000720  41 24 3c 3e 22 22 3a d5  23 51 25 2c bb 41 24 3a  |A$<>"":.#Q%,.A$:|
00000730  f1 bb 41 24 3a 41 24 3d  c1 41 24 2c a7 41 24 2c  |..A$:A$=.A$,.A$,|
00000740  22 2c 22 29 2b 31 29 3a  ce 3a e1 0d 00 27 5a dd  |",")+1):.:...'Z.|
00000750  f2 72 3a ea 55 79 25 2c  41 24 28 29 2c 41 25 2c  |.r:.Uy%,A$(),A%,|
00000760  4e 25 2c 53 25 2c 43 25  2c 42 25 3a de 41 24 28  |N%,S%,C%,B%:.A$(|
00000770  26 45 29 3a 63 25 3d 2d  31 3a c8 95 ac c5 23 52  |&E):c%=-1:....#R|
00000780  25 3a 53 25 3d 26 43 3a  55 79 25 3d bb be 23 52  |%:S%=&C:Uy%=..#R|
00000790  25 3a e7 4b 25 3c 26 37  33 8c 4e 25 3d 26 44 8b  |%:.K%<&73.N%=&D.|
000007a0  4e 25 3d 26 45 0d 00 28  45 e3 41 25 3d 30 b8 4e  |N%=&E..(E.A%=0.N|
000007b0  25 3a 41 24 28 41 25 29  3d be 23 52 25 3a 53 25  |%:A$(A%)=.#R%:S%|
000007c0  2b 3d a9 41 24 28 41 25  29 2b 31 3a ed 3a e7 4e  |+=.A$(A%)+1:.:.N|
000007d0  25 3d 26 44 8c 41 24 28  26 45 29 3d 22 22 3a 4e  |%=&D.A$(&E)="":N|
000007e0  25 3d 26 45 3a 53 25 2b  3d 31 0d 00 29 71 43 25  |%=&E:S%+=1..)qC%|
000007f0  3d a4 50 28 6a 25 2c 53  25 2c b9 29 3a 43 25 21  |=.P(j%,S%,.):C%!|
00000800  38 3d 53 25 3a 53 25 3d  43 25 2b 26 43 3a e3 41  |8=S%:S%=C%+&C:.A|
00000810  25 3d 30 b8 4e 25 3a 24  53 25 3d 41 24 28 41 25  |%=0.N%:$S%=A$(A%|
00000820  29 2b bd 26 41 3a 53 25  2b 3d a9 41 24 28 41 25  |)+.&A:S%+=.A$(A%|
00000830  29 2b 31 3a ed 3a 58 24  3d a4 46 28 41 24 28 30  |)+1:.:X$=.F(A$(0|
00000840  29 2b 22 20 22 2b 41 24  28 31 29 29 3a 42 25 3d  |)+" "+A$(1)):B%=|
00000850  63 25 3a e7 42 25 3c 3e  2d 31 8c 0d 00 2a 55 c8  |c%:.B%<>-1...*U.|
00000860  95 a4 46 28 a4 4d 28 42  25 2c 30 29 2b 22 20 22  |..F(.M(B%,0)+" "|
00000870  2b a4 4d 28 42 25 2c 31  29 29 3c 58 24 80 42 25  |+.M(B%,1))<X$.B%|
00000880  21 34 3c 3e 2d 31 3a 42  25 3d 42 25 21 34 3a ce  |!4<>-1:B%=B%!4:.|
00000890  3a e7 a4 46 28 a4 4d 28  42 25 2c 30 29 2b 22 20  |:..F(.M(B%,0)+" |
000008a0  22 2b a4 4d 28 42 25 2c  31 29 29 3e 3d 58 24 8c  |"+.M(B%,1))>=X$.|
000008b0  0d 00 2b 35 21 43 25 3d  21 42 25 3a 43 25 21 34  |..+5!C%=!B%:C%!4|
000008c0  3d 42 25 3a 21 42 25 3d  43 25 3a e7 21 43 25 3c  |=B%:!B%=C%:.!C%<|
000008d0  3e 2d 31 8c 21 28 21 43  25 2b 34 29 3d 43 25 8b  |>-1.!(!C%+4)=C%.|
000008e0  63 25 3d 43 25 0d 00 2c  1c cc 3a 42 25 21 34 3d  |c%=C%..,..:B%!4=|
000008f0  43 25 3a 21 43 25 3d 42  25 3a 43 25 21 34 3d 2d  |C%:!C%=B%:C%!4=-|
00000900  31 0d 00 2d 05 cd 0d 00  2e 19 cc 63 25 3d 43 25  |1..-.......c%=C%|
00000910  3a 21 43 25 3d 2d 31 3a  43 25 21 34 3d 2d 31 0d  |:!C%=-1:C%!4=-1.|
00000920  00 2f 09 cd 3a ce 3a e1  0d 00 30 4a dd f2 62 3a  |./..:.:...0J..b:|
00000930  ea 42 25 3a 42 25 3d 63  25 3a c8 95 42 25 3c 3e  |.B%:B%=c%:..B%<>|
00000940  2d 31 3a d5 23 51 25 2c  c3 42 25 21 38 3a c8 99  |-1:.#Q%,.B%!8:..|
00000950  26 43 2c 32 2c 51 25 2c  42 25 2b 26 43 2c 42 25  |&C,2,Q%,B%+&C,B%|
00000960  21 38 20 2d 26 43 3a 42  25 3d 42 25 21 34 3a ce  |!8 -&C:B%=B%!4:.|
00000970  3a e1 0d 00 31 66 dd a4  46 28 41 24 29 3a ea 42  |:...1f..F(A$):.B|
00000980  25 3a 41 24 3d a4 56 28  41 24 29 3a 42 25 3d 97  |%:A$=.V(A$):B%=.|
00000990  c0 41 24 2c 31 29 3a c8  95 ac 28 42 25 3e 34 37  |.A$,1):...(B%>47|
000009a0  80 42 25 3c 35 38 29 80  ac 28 42 25 3e 36 34 80  |.B%<58)..(B%>64.|
000009b0  42 25 3c 39 31 29 80 41  24 3c 3e 22 22 3a 41 24  |B%<91).A$<>"":A$|
000009c0  3d c1 41 24 2c 32 29 3a  42 25 3d 97 c0 41 24 2c  |=.A$,2):B%=..A$,|
000009d0  31 29 3a ce 3a 3d 41 24  0d 00 32 5f dd a4 4d 28  |1):.:=A$..2_..M(|
000009e0  42 25 2c 4c 25 29 3a ea  41 24 3a 42 25 2b 3d 26  |B%,L%):.A$:B%+=&|
000009f0  43 3a c8 95 4c 25 3e 30  3a c8 95 3f 42 25 3c 3e  |C:..L%>0:..?B%<>|
00000a00  26 41 3a 42 25 2b 3d 31  3a ce 3a 42 25 2b 3d 31  |&A:B%+=1:.:B%+=1|
00000a10  3a 4c 25 2d 3d 31 3a ce  3a c8 95 3f 42 25 3c 3e  |:L%-=1:.:..?B%<>|
00000a20  26 41 3a 41 24 2b 3d bd  3f 42 25 3a 42 25 2b 3d  |&A:A$+=.?B%:B%+=|
00000a30  31 3a ce 3a 3d 41 24 0d  00 33 0e dd f2 64 3a c8  |1:.:=A$..3...d:.|
00000a40  8e 43 79 25 ca 0d 00 34  22 c9 32 3a 4a 25 21 38  |.Cy%...4".2:J%!8|
00000a50  3d 4a 25 21 31 36 2d 33  36 38 3a c8 99 26 34 30  |=J%!16-368:..&40|
00000a60  30 43 35 2c 2c 4a 25 0d  00 35 1b c9 33 3a f2 68  |0C5,,J%..5..3:.h|
00000a70  28 21 4a 25 29 3a e7 21  4a 25 3d 55 25 8c 61 25  |(!J%):.!J%=U%.a%|
00000a80  3d b9 0d 00 36 24 c9 36  3a f2 51 28 4a 25 21 26  |=...6$.6:.Q(J%!&|
00000a90  43 2c 4a 25 21 31 36 2c  4a 25 21 38 2c 21 4a 25  |C,J%!16,J%!8,!J%|
00000aa0  2c 4a 25 21 34 29 0d 00  37 09 c9 37 3a f2 76 0d  |,J%!4)..7..7:.v.|
00000ab0  00 38 19 c9 38 3a f2 61  28 21 4a 25 2c 4a 25 21  |.8..8:.a(!J%,J%!|
00000ac0  34 2c 4a 25 21 32 34 29  0d 00 39 09 c9 39 3a f2  |4,J%!24)..9..9:.|
00000ad0  74 0d 00 3a 0d c9 31 37  2c 31 38 3a f2 58 0d 00  |t..:..17,18:.X..|
00000ae0  3b 07 cb 3a e1 0d 00 3c  14 dd f2 76 3a e7 a4 4a  |;..:...<...v:..J|
00000af0  8c c8 99 26 34 32 34 30  31 0d 00 3d b0 c8 99 26  |...&42401..=...&|
00000b00  34 30 30 43 46 2c 2c 4a  25 3a 4a 25 21 32 30 3d  |400CF,,J%:J%!20=|
00000b10  4a 25 21 26 43 3a 4a 25  21 32 34 3d 4a 25 21 31  |J%!&C:J%!24=J%!1|
00000b20  36 3a 4a 25 21 32 38 3d  21 4a 25 3a 4a 25 21 33  |6:J%!28=!J%:J%!3|
00000b30  32 3d 4a 25 21 34 3a 4a  25 21 33 36 3d 30 3a 21  |2=J%!4:J%!36=0:!|
00000b40  4a 25 3d 36 34 3a 4a 25  21 26 43 3d 30 3a 4a 25  |J%=64:J%!&C=0:J%|
00000b50  21 34 30 3d 35 31 32 3a  24 28 4a 25 2b 34 34 29  |!40=512:$(J%+44)|
00000b60  3d 22 21 4f 72 67 61 6e  69 73 65 72 22 3a 4a 25  |="!Organiser":J%|
00000b70  21 31 36 3d 31 3a c8 99  26 34 30 30 45 37 2c 31  |!16=1:..&400E7,1|
00000b80  38 2c 4a 25 2c 4a 25 21  32 30 2c 4a 25 21 32 34  |8,J%,J%!20,J%!24|
00000b90  3a e7 28 4a 25 21 38 80  31 29 3d 30 8c c8 99 26  |:.(J%!8.1)=0...&|
00000ba0  34 30 30 44 34 2c 2c 2d  31 0d 00 3e 05 e1 0d 00  |400D4,,-1..>....|
00000bb0  3f 10 dd f2 58 3a c8 8e  4a 25 21 31 36 ca 0d 00  |?...X:..J%!16...|
00000bc0  40 0b c9 30 3a 61 25 3d  b9 0d 00 41 14 c9 32 3a  |@..0:a%=...A..2:|
00000bd0  f2 7a 28 a4 5a 28 4a 25  2b 34 34 29 29 0d 00 42  |.z(.Z(J%+44))..B|
00000be0  1a c9 33 3a f2 56 28 4a  25 21 34 30 2c a4 5a 28  |..3:.V(J%!40,.Z(|
00000bf0  4a 25 2b 34 34 29 29 0d  00 43 09 c9 38 3a f2 44  |J%+44))..C..8:.D|
00000c00  0d 00 44 07 cb 3a e1 0d  00 45 de dd f2 7a 28 4d  |..D..:...E...z(M|
00000c10  24 29 3a c8 99 26 34 30  36 43 30 3a ff 22 43 6f  |$):..&406C0:."Co|
00000c20  70 79 20 22 2b 50 24 2b  22 20 22 2b 4d 24 2b 22  |py "+P$+" "+M$+"|
00000c30  20 72 20 7e 63 20 7e 76  22 3a 7a 25 3d ae 28 4d  | r ~c ~v":z%=.(M|
00000c40  24 2b 22 2e 52 65 73 6f  75 72 63 65 73 2e 21 4c  |$+".Resources.!L|
00000c50  61 6e 67 75 61 67 65 22  29 3a d5 23 7a 25 2c a4  |anguage"):.#z%,.|
00000c60  53 28 55 25 2c 33 37 29  3a d9 23 7a 25 3a 52 25  |S(U%,37):.#z%:R%|
00000c70  3d 8e 28 50 24 2b 22 2e  44 61 74 61 2e 53 65 74  |=.(P$+".Data.Set|
00000c80  74 69 6e 67 73 22 29 3a  51 25 3d ae 28 4d 24 2b  |tings"):Q%=.(M$+|
00000c90  22 2e 44 61 74 61 2e 53  65 74 74 69 6e 67 73 22  |".Data.Settings"|
00000ca0  29 3a f2 5a 3a f2 5a 3a  41 24 3d be 23 7a 25 3a  |):.Z:.Z:A$=.#z%:|
00000cb0  d5 23 51 25 2c a4 53 28  55 25 2c 33 35 29 3a c8  |.#Q%,.S(U%,35):.|
00000cc0  95 ac c5 23 52 25 3a d5  23 51 25 2c 9a 23 52 25  |...#R%:.#Q%,.#R%|
00000cd0  3a ce 3a d9 23 51 25 3a  d9 23 52 25 3a c8 99 26  |:.:.#Q%:.#R%:..&|
00000ce0  34 30 36 43 31 0d 00 46  2e c8 94 4a 25 21 38 2c  |406C1..F...J%!8,|
00000cf0  4a 25 21 26 43 3a 4a 25  21 31 36 3d 33 3a c8 99  |J%!&C:J%!16=3:..|
00000d00  26 34 30 30 45 37 2c 31  38 2c 4a 25 2c 4a 25 21  |&400E7,18,J%,J%!|
00000d10  34 3a e1 0d 00 47 19 dd  a4 52 28 68 25 2c 4d 24  |4:...G...R(h%,M$|
00000d20  29 3a 3d 28 68 25 3d 38  31 39 32 29 0d 00 48 2b  |):=(h%=8192)..H+|
00000d30  dd a4 59 28 68 25 2c 4d  24 29 3a ea 7a 25 3a e7  |..Y(h%,M$):.z%:.|
00000d40  a4 49 28 4d 24 29 3d 22  21 4f 72 67 61 6e 69 73  |.I(M$)="!Organis|
00000d50  65 72 22 2b bd 30 8c 0d  00 49 46 7a 25 3d 8e 28  |er"+.0...IFz%=.(|
00000d60  4d 24 2b 22 2e 44 61 74  61 2e 53 65 74 74 69 6e  |M$+".Data.Settin|
00000d70  67 73 22 29 3a 43 24 3d  be 23 7a 25 3a d9 23 7a  |gs"):C$=.#z%:.#z|
00000d80  25 3a e7 bb 43 24 3d 30  8c 43 24 3d 22 31 2e 30  |%:..C$=0.C$="1.0|
00000d90  30 20 28 38 20 41 75 67  20 39 37 29 22 0d 00 4a  |0 (8 Aug 97)"..J|
00000da0  1b 4b 25 3d 28 bb 43 24  29 2a 26 36 34 3a 53 24  |.K%=(.C$)*&64:S$|
00000db0  3d 4d 24 3a c8 8e b9 ca  0d 00 4b 3f c9 4b 25 3c  |=M$:......K?.K%<|
00000dc0  74 25 3a f2 53 28 55 25  2c 37 2c 4d 24 29 3a f2  |t%:.S(U%,7,M$):.|
00000dd0  53 28 55 25 2c 38 2c 22  56 65 72 73 69 6f 6e 20  |S(U%,8,"Version |
00000de0  22 2b 43 24 29 3a f2 47  28 55 25 2c 26 41 2c 30  |"+C$):.G(U%,&A,0|
00000df0  29 3a f2 4d 28 31 29 0d  00 4c 73 c9 4b 25 3d 74  |):.M(1)..Ls.K%=t|
00000e00  25 3a f2 43 28 22 54 68  65 20 76 65 72 73 69 6f  |%:.C("The versio|
00000e10  6e 20 79 6f 75 20 61 72  65 20 74 72 79 69 6e 67  |n you are trying|
00000e20  20 74 6f 20 75 70 67 72  61 64 65 20 69 73 20 74  | to upgrade is t|
00000e30  68 65 20 6c 61 74 65 73  74 20 76 65 72 73 69 6f  |he latest versio|
00000e40  6e 20 6b 6e 6f 77 6e 20  74 6f 20 74 68 69 73 20  |n known to this |
00000e50  75 70 67 72 61 64 69 6e  67 20 61 70 70 6c 69 63  |upgrading applic|
00000e60  61 74 69 6f 6e 2e 22 2c  a3 29 0d 00 4d 62 c9 4b  |ation.",.)..Mb.K|
00000e70  25 3e 74 25 3a f2 43 28  22 54 68 65 20 76 65 72  |%>t%:.C("The ver|
00000e80  73 69 6f 6e 20 79 6f 75  20 61 72 65 20 74 72 79  |sion you are try|
00000e90  69 6e 67 20 74 6f 20 75  70 67 72 61 64 65 20 69  |ing to upgrade i|
00000ea0  73 20 6e 65 77 65 72 20  74 68 61 6e 20 74 68 69  |s newer than thi|
00000eb0  73 20 75 70 67 72 61 64  69 6e 67 20 61 70 70 6c  |s upgrading appl|
00000ec0  69 63 61 74 69 6f 6e 2e  22 2c a3 29 0d 00 4e 05  |ication.",.)..N.|
00000ed0  cb 0d 00 4f 08 cd 3a 3d  b9 0d 00 50 1d dd f2 51  |...O..:=...P...Q|
00000ee0  28 44 25 2c 5f 25 2c 6b  25 2c 66 25 2c 64 25 29  |(D%,_%,k%,f%,d%)|
00000ef0  3a c8 8e 44 25 ca 0d 00  51 2b c9 2d 32 3a e7 6b  |:..D%...Q+.-2:.k|
00000f00  25 3d 32 8c f2 42 28 62  25 2c 21 4a 25 2d 36 34  |%=2..B(b%,!J%-64|
00000f10  2c 2d 31 29 8b f2 75 28  55 25 2c 2d 31 2c 2d 31  |,-1)..u(U%,-1,-1|
00000f20  29 0d 00 52 0f c9 55 25  3a e7 6b 25 3c 3e 32 8c  |)..R..U%:.k%<>2.|
00000f30  0d 00 53 09 c8 8e 5f 25  ca 0d 00 54 0c c9 32 3a  |..S..._%...T..2:|
00000f40  f2 4d 28 31 29 0d 00 55  0c c9 39 3a f2 4d 28 30  |.M(1)..U..9:.M(0|
00000f50  29 0d 00 56 0a c9 26 41  3a f2 67 0d 00 57 0d c9  |)..V..&A:.g..W..|
00000f60  26 44 2c 31 39 3a f2 5f  0d 00 58 22 c9 26 45 3a  |&D,19:._..X".&E:|
00000f70  ff 22 46 69 6c 65 72 5f  52 75 6e 20 22 2b 57 24  |."Filer_Run "+W$|
00000f80  2b 22 2e 49 6d 70 72 6f  76 22 0d 00 59 12 c9 26  |+".Improv"..Y..&|
00000f90  46 2c 31 38 2c 32 33 3a  61 25 3d b9 0d 00 5a 17  |F,18,23:a%=...Z.|
00000fa0  c9 32 30 3a f2 4d 28 34  29 3a f2 55 28 55 25 2c  |.20:.M(4):.U(U%,|
00000fb0  33 35 29 0d 00 5b 0d c9  32 34 3a f2 4d 28 30 29  |35)..[..24:.M(0)|
00000fc0  0d 00 5c 27 c9 32 36 3a  e7 28 6b 25 80 36 34 29  |..\'.26:.(k%.64)|
00000fd0  8c f2 4e 28 55 25 2c 32  36 2c 22 21 4f 72 67 61  |..N(U%,26,"!Orga|
00000fe0  6e 69 73 65 72 22 29 0d  00 5d 11 c9 33 37 3a f2  |niser")..]..37:.|
00000ff0  49 28 55 25 2c 33 37 29  0d 00 5e 05 cb 0d 00 5f  |I(U%,37)..^...._|
00001000  17 cc f2 42 28 62 25 2c  21 4a 25 2d 36 34 2c 4a  |...B(b%,!J%-64,J|
00001010  25 21 34 29 0d 00 60 05  cd 0d 00 61 07 cb 3a e1  |%!4)..`....a..:.|
00001020  0d 00 62 6e dd f2 49 28  65 25 2c 6f 25 29 3a ea  |..bn..I(e%,o%):.|
00001030  76 25 2c 44 24 2c 5a 79  25 2c 42 24 2c 47 24 2c  |v%,D$,Zy%,B$,G$,|
00001040  51 24 2c 67 25 3a 76 25  3d 31 3a 44 24 3d a4 53  |Q$,g%:v%=1:D$=.S|
00001050  28 65 25 2c 6f 25 29 3a  f5 3a c8 99 26 43 2c 39  |(e%,o%):.:..&C,9|
00001060  2c 50 24 2b 22 2e 52 65  73 6f 75 72 63 65 73 22  |,P$+".Resources"|
00001070  2c 4a 25 2c 31 2c 76 25  2c 32 35 36 2c 30 b8 2c  |,J%,1,v%,256,0.,|
00001080  2c 2c 67 25 2c 76 25 3a  e7 67 25 3d 31 8c 0d 00  |,,g%,v%:.g%=1...|
00001090  63 1a 47 24 3d a4 5a 28  4a 25 29 3a e7 51 24 3d  |c.G$=.Z(J%):.Q$=|
000010a0  22 22 8c 51 24 3d 47 24  0d 00 64 10 e7 5a 79 25  |"".Q$=G$..d..Zy%|
000010b0  3d b9 8c 42 24 3d 47 24  0d 00 65 10 e7 47 24 3d  |=..B$=G$..e..G$=|
000010c0  44 24 8c 5a 79 25 3d b9  0d 00 66 20 cd 3a fd 76  |D$.Zy%=...f .:.v|
000010d0  25 3d 2d 31 84 42 24 3c  3e 22 22 3a e7 42 24 3d  |%=-1.B$<>"":.B$=|
000010e0  22 22 8c 42 24 3d 51 24  0d 00 67 12 f2 53 28 65  |"".B$=Q$..g..S(e|
000010f0  25 2c 6f 25 2c 42 24 29  3a e1 0d 00 68 0d dd f2  |%,o%,B$):...h...|
00001100  79 3a c8 8e 79 25 ca 0d  00 69 0e c9 62 25 3a c8  |y:..y%...i..b%:.|
00001110  8e 21 4a 25 ca 0d 00 6a  0b c9 31 3a 61 25 3d b9  |.!J%...j..1:a%=.|
00001120  0d 00 6b 05 cb 0d 00 6c  07 cb 3a e1 0d 00 6d 36  |..k....l..:...m6|
00001130  dd a4 48 28 44 25 2c 5f  25 2c 76 79 25 2c 57 79  |..H(D%,_%,vy%,Wy|
00001140  25 2c 60 25 2c 42 79 25  2c 46 79 25 2c 51 79 25  |%,`%,By%,Fy%,Qy%|
00001150  29 3a ea 41 79 25 3a 41  79 25 3d b9 3a c8 8e 44  |):.Ay%:Ay%=.:..D|
00001160  25 ca 0d 00 6e 0a cb 3a  3d 41 79 25 0d 00 6f 32  |%...n..:=Ay%..o2|
00001170  dd f2 43 28 41 24 2c 46  25 29 3a f2 53 28 55 25  |..C(A$,F%):.S(U%|
00001180  2c 31 37 2c 41 24 29 3a  f2 77 28 55 25 2c 31 39  |,17,A$):.w(U%,19|
00001190  2c 94 ac 46 25 29 3a f2  4d 28 33 29 3a e1 0d 00  |,..F%):.M(3):...|
000011a0  70 4b dd f2 4d 28 4e 25  29 3a 21 47 25 3d 55 25  |pK..M(N%):!G%=U%|
000011b0  3a c8 99 26 34 30 30 43  42 2c 2c 47 25 3a 47 25  |:..&400CB,,G%:G%|
000011c0  21 38 3d 47 25 21 31 36  2d 33 36 38 3a 47 25 21  |!8=G%!16-368:G%!|
000011d0  32 34 3d 4e 25 2a 2d 33  36 38 3a c8 99 26 34 30  |24=N%*-368:..&40|
000011e0  30 43 35 2c 2c 47 25 3a  e1 0d 00 71 3a dd f2 46  |0C5,,G%:...q:..F|
000011f0  28 4e 25 29 3a ea 41 25  3a e3 41 25 3d 32 39 b8  |(N%):.A%:.A%=29.|
00001200  33 32 3a f2 73 28 55 25  2c 41 25 2c 2d 28 4e 25  |32:.s(U%,A%,-(N%|
00001210  3e 41 25 2d 32 39 29 29  3a ed 3a f2 57 28 ac 31  |>A%-29)):.:.W(.1|
00001220  29 3a e1 0d 00 72 24 dd  f2 5f 3a ea 85 3a ee 85  |):...r$.._:..:..|
00001230  ea f7 85 3a c8 99 26 34  30 36 43 31 3a f2 43 28  |...:..&406C1:.C(|
00001240  f6 24 2c a3 29 3a e1 0d  00 73 42 c8 99 26 34 30  |.$,.):...sB..&40|
00001250  36 43 30 3a ff 22 43 6f  70 79 20 22 2b 46 24 2b  |6C0:."Copy "+F$+|
00001260  22 20 22 2b 53 24 2b 22  20 7e 63 20 7e 76 20 66  |" "+S$+" ~c ~v f|
00001270  20 72 20 71 22 3a c8 99  26 34 30 36 43 31 3a f2  | r q":..&406C1:.|
00001280  4d 28 31 29 3a f7 85 3a  e1 0d 00 74 59 dd f2 65  |M(1):..:...tY..e|
00001290  3a 44 79 25 3d a4 58 28  57 24 2b 22 2e 53 70 72  |:Dy%=.X(W$+".Spr|
000012a0  69 74 65 73 22 2c 30 29  3a 43 24 3d 22 22 3a 4b  |ites",0):C$="":K|
000012b0  25 3d 30 3a 74 25 3d 28  bb 4a 24 29 2a 26 36 34  |%=0:t%=(.J$)*&64|
000012c0  3a 53 24 3d 22 22 3a 46  24 3d 22 22 3a 50 24 3d  |:S$="":F$="":P$=|
000012d0  57 24 2b 22 2e 21 4f 72  67 61 6e 69 73 65 72 22  |W$+".!Organiser"|
000012e0  3a e1 0d 00 75 47 dd f2  6e 3a f2 53 28 55 25 2c  |:...uG..n:.S(U%,|
000012f0  37 2c 22 22 29 3a f2 53  28 55 25 2c 38 2c 22 22  |7,""):.S(U%,8,""|
00001300  29 3a f2 47 28 55 25 2c  26 41 2c 31 29 3a f2 53  |):.G(U%,&A,1):.S|
00001310  28 55 25 2c 33 37 2c 22  45 6e 67 6c 69 73 68 22  |(U%,37,"English"|
00001320  29 3a f2 4d 28 30 29 3a  e1 0d 00 76 87 dd f2 54  |):.M(0):...v...T|
00001330  3a ea 50 25 3a 6c 25 3d  a4 47 28 22 49 6e 66 6f  |:.P%:l%=.G("Info|
00001340  22 29 3a 55 25 3d a4 47  28 22 4d 61 69 6e 22 29  |"):U%=.G("Main")|
00001350  3a c8 99 26 34 30 30 44  42 2c 2c 30 2c 30 2c 30  |:..&400DB,,0,0,0|
00001360  2c 30 2c 22 4d 61 69 6e  22 b8 2c 55 79 25 3a f2  |,0,"Main".,Uy%:.|
00001370  53 28 6c 25 2c 38 2c 4a  24 29 3a f2 59 28 55 25  |S(l%,8,J$):.Y(U%|
00001380  2c 50 25 21 37 32 2c 22  4f 72 67 61 6e 69 73 65  |,P%!72,"Organise|
00001390  72 20 75 70 67 72 61 64  65 72 20 76 65 72 73 69  |r upgrader versi|
000013a0  6f 6e 20 22 2b c0 4a 24  2c 34 29 2c 30 29 3a e1  |on "+.J$,4),0):.|
000013b0  0d 00 77 31 dd f2 63 3a  62 25 3d a4 54 28 22 53  |..w1..c:b%=.T("S|
000013c0  6b 65 6c 65 74 6f 6e 22  2b a4 4c 28 22 49 6e 66  |keleton"+.L("Inf|
000013d0  6f 22 2c 6c 25 29 2b 22  5c 51 75 69 74 22 29 3a  |o",l%)+"\Quit"):|
000013e0  e1 0d 0e a7 98 dd f2 4c  28 48 24 2c 4b 24 2c 49  |.......L(H$,K$,I|
000013f0  24 2c 49 79 25 29 3a 55  24 3d 48 24 3a 4a 24 3d  |$,Iy%):U$=H$:J$=|
00001400  49 24 3a 73 25 3d 30 3a  61 25 3d a3 3a 57 24 3d  |I$:s%=0:a%=.:W$=|
00001410  4b 24 3a 78 25 3d 30 3a  72 25 3d 30 3a 6d 25 3d  |K$:x%=0:r%=0:m%=|
00001420  a3 3a 75 25 3d a3 3a de  4a 25 35 31 32 3a 47 25  |.:u%=.:.J%512:G%|
00001430  3d 4a 25 2b 32 35 36 3a  c8 99 26 34 30 30 43 30  |=J%+256:..&400C0|
00001440  2c 26 43 38 2c 26 34 42  35 33 34 31 35 34 2c 55  |,&C8,&4B534154,U|
00001450  24 b8 4c 79 25 2c 71 79  25 3a f2 65 3a e7 49 79  |$.Ly%,qy%:.e:.Iy|
00001460  25 8c f2 48 28 4b 79 25  2c 57 24 2b 22 2e 54 65  |%..H(Ky%,W$+".Te|
00001470  6d 70 6c 61 74 65 73 22  29 0d 0e a8 0b f2 63 3a  |mplates").....c:|
00001480  f2 6e 3a e1 0d 0e a9 25  dd f2 57 28 5f 79 25 29  |.n:....%..W(_y%)|
00001490  3a c8 99 26 34 30 30 43  37 2c 5f 79 25 2c 4a 25  |:..&400C7,_y%,J%|
000014a0  b8 43 79 25 3a f2 64 3a  e1 0d 0e aa 92 dd f2 61  |.Cy%:.d:.......a|
000014b0  28 65 25 2c 6f 25 2c 77  25 29 3a ea 57 79 25 2c  |(e%,o%,w%):.Wy%,|
000014c0  60 25 2c 42 79 25 2c 46  79 25 2c 51 79 25 3a 57  |`%,By%,Fy%,Qy%:W|
000014d0  79 25 3d 28 77 25 3d 33  39 39 29 3a 60 25 3d 28  |y%=(w%=399):`%=(|
000014e0  77 25 3d 33 39 38 29 3a  42 79 25 3d 28 77 25 3d  |w%=398):By%=(w%=|
000014f0  34 31 35 29 3a 46 79 25  3d 28 77 25 3d 34 31 34  |415):Fy%=(w%=414|
00001500  29 3a 51 79 25 3d 28 77  25 3d 26 44 29 3a e7 ac  |):Qy%=(w%=&D):..|
00001510  a4 48 28 65 25 2c 6f 25  2c 77 25 2c 57 79 25 2c  |.H(e%,o%,w%,Wy%,|
00001520  60 25 2c 42 79 25 2c 46  79 25 2c 51 79 25 29 8c  |`%,By%,Fy%,Qy%).|
00001530  c8 99 26 34 30 30 44 43  2c 77 25 0d 0e ab 05 e1  |..&400DC,w%.....|
00001540  0d 0e ac 28 dd f2 74 3a  ea 4d 79 25 3a 4d 79 25  |...(..t:.My%:My%|
00001550  3d a4 4e 3a f2 79 3a e7  4d 79 25 8c c8 99 26 34  |=.N:.y:.My%...&4|
00001560  30 30 44 34 2c 2c 79 25  0d 0e ad 05 e1 0d 0e ae  |00D4,,y%........|
00001570  1a dd f2 56 28 68 25 2c  4d 24 29 3a e7 a4 52 28  |...V(h%,M$):..R(|
00001580  68 25 2c 4d 24 29 8c 0d  0e af 0f e7 a4 59 28 68  |h%,M$).......Y(h|
00001590  25 2c 4d 24 29 8c 0d 0e  b0 56 c8 94 4a 25 21 38  |%,M$)....V..J%!8|
000015a0  2c 4a 25 21 26 43 3a 4a  25 21 31 36 3d 34 3a c8  |,J%!&C:J%!16=4:.|
000015b0  99 26 34 30 30 45 37 2c  31 37 2c 4a 25 2c 4a 25  |.&400E7,17,J%,J%|
000015c0  21 34 3a e7 4d 24 3d 22  3c 57 69 6d 70 24 53 63  |!4:.M$="<Wimp$Sc|
000015d0  72 61 70 3e 22 8c ff 22  52 65 6d 6f 76 65 20 3c  |rap>".."Remove <|
000015e0  57 69 6d 70 24 53 63 72  61 70 3e 22 0d 0e b1 05  |Wimp$Scrap>"....|
000015f0  cd 0d 0e b2 07 cd 3a e1  0d 0e b3 35 dd f2 44 3a  |......:....5..D:|
00001600  e7 a4 4f 3c 3e 2d 31 8c  4a 25 21 26 43 3d 4a 25  |..O<>-1.J%!&C=J%|
00001610  21 38 3a 4a 25 21 38 3d  30 3a c8 99 26 34 30 30  |!8:J%!8=0:..&400|
00001620  45 37 2c 31 39 2c 4a 25  2c 4a 25 21 34 0d 0e b4  |E7,19,J%,J%!4...|
00001630  05 e1 0d 0e b5 0a dd a4  4f 3a 3d b9 0d 0e b6 5d  |........O:=....]|
00001640  dd a4 58 28 4d 24 2c 45  25 29 3a ea 46 25 2c 41  |..X(M$,E%):.F%,A|
00001650  25 2c 53 25 3a 46 25 3d  8e 4d 24 3a 41 25 3d a2  |%,S%:F%=.M$:A%=.|
00001660  23 46 25 2b 34 3a d9 23  46 25 3a 41 25 2b 3d 45  |#F%+4:.#F%:A%+=E|
00001670  25 3a de 53 25 41 25 3a  21 53 25 3d 41 25 3a 53  |%:.S%A%:!S%=A%:S|
00001680  25 21 38 3d 31 36 3a c8  99 34 36 2c 32 36 36 2c  |%!8=16:..46,266,|
00001690  53 25 2c 4d 24 3a 3d 53  25 0d 0e b7 4b dd f2 55  |S%,M$:=S%...K..U|
000016a0  28 44 25 2c 5f 25 29 3a  21 47 25 3d 44 25 3a 47  |(D%,_%):!G%=D%:G|
000016b0  25 21 34 3d 5f 25 3a c8  99 26 34 30 30 43 45 2c  |%!4=_%:..&400CE,|
000016c0  2c 47 25 3a c8 99 26 34  30 30 44 32 2c 44 25 2c  |,G%:..&400D2,D%,|
000016d0  5f 25 2c 2c 2c 2d 31 2c  a9 a4 5a 28 47 25 21 32  |_%,,,-1,..Z(G%!2|
000016e0  38 29 3a e1 0d 0e b8 40  dd f2 77 28 44 25 2c 5f  |8):....@..w(D%,_|
000016f0  25 2c 4f 25 29 3a ea 71  25 3a 71 25 3d 47 25 2b  |%,O%):.q%:q%=G%+|
00001700  36 34 3a e7 4f 25 3d 31  8c 21 47 25 3d 44 25 3a  |64:.O%=1.!G%=D%:|
00001710  47 25 21 34 3d 5f 25 3a  c8 99 26 34 30 30 43 45  |G%!4=_%:..&400CE|
00001720  2c 2c 47 25 0d 0e b9 63  21 71 25 3d 44 25 3a 71  |,,G%...c!q%=D%:q|
00001730  25 21 34 3d 5f 25 3a 71  25 21 38 3d 28 94 4f 25  |%!4=_%:q%!8=(.O%|
00001740  29 3c 3c 32 33 3a 71 25  21 26 43 3d 31 3c 3c 32  |)<<23:q%!&C=1<<2|
00001750  33 3a c8 99 26 34 30 30  43 44 2c 2c 71 25 3a e7  |3:..&400CD,,q%:.|
00001760  4f 25 3d 31 8c c8 99 26  34 30 30 44 31 2c 44 25  |O%=1...&400D1,D%|
00001770  2c 47 25 21 38 2c 47 25  21 26 43 2c 47 25 21 31  |,G%!8,G%!&C,G%!1|
00001780  36 2c 47 25 21 32 30 0d  0e ba 05 e1 0d 0e bb 3a  |6,G%!20........:|
00001790  dd f2 73 28 44 25 2c 5f  25 2c 4f 25 29 3a ea 41  |..s(D%,_%,O%):.A|
000017a0  25 3a 21 47 25 3d 44 25  3a 47 25 21 34 3d 5f 25  |%:!G%=D%:G%!4=_%|
000017b0  3a 41 25 3d 31 3a e7 4f  25 3d 2d 31 8c 4f 25 3d  |:A%=1:.O%=-1.O%=|
000017c0  31 3a 41 25 3d 30 0d 0e  bc 2b 47 25 21 38 3d 4f  |1:A%=0...+G%!8=O|
000017d0  25 3c 3c 32 31 3a 47 25  21 26 43 3d 41 25 3c 3c  |%<<21:G%!&C=A%<<|
000017e0  32 31 3a c8 99 26 34 30  30 43 44 2c 2c 47 25 3a  |21:..&400CD,,G%:|
000017f0  e1 0d 0e bd 3a dd f2 47  28 44 25 2c 5f 25 2c 4f  |....:..G(D%,_%,O|
00001800  25 29 3a ea 41 25 3a 41  25 3d 31 3a 21 47 25 3d  |%):.A%:A%=1:!G%=|
00001810  44 25 3a 47 25 21 34 3d  5f 25 3a e7 4f 25 3d 2d  |D%:G%!4=_%:.O%=-|
00001820  31 8c 4f 25 3d 31 3a 41  25 3d 30 0d 0e be 2f 47  |1.O%=1:A%=0.../G|
00001830  25 21 38 3d 4f 25 2a 28  31 3c 3c 32 32 29 3a 47  |%!8=O%*(1<<22):G|
00001840  25 21 26 43 3d 41 25 3c  3c 32 32 3a c8 99 26 34  |%!&C=A%<<22:..&4|
00001850  30 30 43 44 2c 2c 47 25  3a e1 0d 0e bf 68 dd f2  |00CD,,G%:....h..|
00001860  53 28 44 25 2c 5f 25 2c  52 24 29 3a ea 50 25 2c  |S(D%,_%,R$):.P%,|
00001870  4c 25 3a 21 47 25 3d 44  25 3a 47 25 21 34 3d 5f  |L%:!G%=D%:G%!4=_|
00001880  25 3a c8 99 26 34 30 30  43 45 2c 2c 47 25 3a e7  |%:..&400CE,,G%:.|
00001890  47 25 21 32 34 80 28 31  3c 3c 38 29 8c 50 25 3d  |G%!24.(1<<8).P%=|
000018a0  47 25 21 32 38 3a 4c 25  3d 28 47 25 21 33 36 29  |G%!28:L%=(G%!36)|
000018b0  2d 31 3a 8b 50 25 3d 47  25 2b 32 38 3a 4c 25 3d  |-1:.P%=G%+28:L%=|
000018c0  26 42 0d 0e c0 2d 24 50  25 3d c0 52 24 2c 4c 25  |&B...-$P%=.R$,L%|
000018d0  29 3a 47 25 21 38 3d 30  3a 47 25 21 26 43 3d 30  |):G%!8=0:G%!&C=0|
000018e0  3a c8 99 26 34 30 30 43  44 2c 2c 47 25 3a e1 0d  |:..&400CD,,G%:..|
000018f0  0e c1 57 dd a4 53 28 44  25 2c 5f 25 29 3a ea 41  |..W..S(D%,_%):.A|
00001900  24 3a 21 47 25 3d 44 25  3a 47 25 21 34 3d 5f 25  |$:!G%=D%:G%!4=_%|
00001910  3a c8 99 26 34 30 30 43  45 2c 2c 47 25 3a e7 28  |:..&400CE,,G%:.(|
00001920  47 25 21 32 34 80 32 35  36 29 3e 30 8c 41 24 3d  |G%!24.256)>0.A$=|
00001930  a4 5a 28 47 25 21 32 38  29 8b 41 24 3d a4 5a 28  |.Z(G%!28).A$=.Z(|
00001940  47 25 2b 32 38 29 0d 0e  c2 07 3d 41 24 0d 0e c3  |G%+28)....=A$...|
00001950  d2 dd a4 54 28 41 24 29  3a ea 41 25 2c 42 25 2c  |...T(A$):.A%,B%,|
00001960  4c 25 2c 5a 24 2c 49 25  3a 41 24 2b 3d 22 5c 22  |L%,Z$,I%:A$+="\"|
00001970  3a de 41 25 34 2a a4 51  20 28 41 24 29 2a 32 34  |:.A%4*.Q (A$)*24|
00001980  3a 42 25 3d 41 25 2b 34  3a 5a 24 3d c0 41 24 2c  |:B%=A%+4:Z$=.A$,|
00001990  a7 41 24 2c 22 5c 22 29  2d 31 29 3a 24 41 25 3d  |.A$,"\")-1):$A%=|
000019a0  5a 24 3a 41 25 21 26 43  3d 26 37 30 32 30 37 3a  |Z$:A%!&C=&70207:|
000019b0  41 25 21 32 30 3d 34 34  3a 41 25 21 32 34 3d 30  |A%!20=44:A%!24=0|
000019c0  3a 4c 25 3d a9 5a 24 3a  41 24 3d c1 41 24 2c a7  |:L%=.Z$:A$=.A$,.|
000019d0  41 24 2c 22 5c 22 29 2b  31 29 3a c8 95 a7 41 24  |A$,"\")+1):...A$|
000019e0  2c 22 5c 22 29 3a 5a 24  3d c0 41 24 2c a7 41 24  |,"\"):Z$=.A$,.A$|
000019f0  2c 22 5c 22 29 2d 31 29  3a 42 25 2b 3d 32 34 3a  |,"\")-1):B%+=24:|
00001a00  21 42 25 3d a4 44 28 5a  24 29 3a 42 25 21 34 3d  |!B%=.D(Z$):B%!4=|
00001a10  30 3a 42 25 21 38 3d 26  37 30 30 30 30 32 31 0d  |0:B%!8=&7000021.|
00001a20  0e c4 36 e7 a7 5a 24 2c  22 3e 22 29 8c 42 25 21  |..6..Z$,">").B%!|
00001a30  34 3d bb c1 5a 24 2c a7  5a 24 2c 22 3e 22 29 2b  |4=..Z$,.Z$,">")+|
00001a40  31 29 3a 5a 24 3d c0 5a  24 2c a7 5a 24 2c 22 3e  |1):Z$=.Z$,.Z$,">|
00001a50  22 29 2d 31 29 0d 0e c5  51 e7 a9 5a 24 3e 26 42  |")-1)...Q..Z$>&B|
00001a60  8c de 49 25 a9 5a 24 2b  31 3a 24 49 25 3d 5a 24  |..I%.Z$+1:$I%=Z$|
00001a70  3a 42 25 21 38 3d 42 25  21 38 84 32 35 36 3a 42  |:B%!8=B%!8.256:B|
00001a80  25 21 26 43 3d 49 25 3a  42 25 21 31 36 3d 30 3a  |%!&C=I%:B%!16=0:|
00001a90  42 25 21 32 30 3d 49 25  2b 31 8b 24 28 42 25 2b  |B%!20=I%+1.$(B%+|
00001aa0  26 43 29 3d 5a 24 0d 0e  c6 12 e7 a9 5a 24 3e 4c  |&C)=Z$......Z$>L|
00001ab0  25 8c 4c 25 3d a9 5a 24  0d 0e c7 37 41 24 3d c1  |%.L%=.Z$...7A$=.|
00001ac0  41 24 2c a7 41 24 2c 22  5c 22 29 2b 31 29 3a ce  |A$,.A$,"\")+1):.|
00001ad0  3a 21 42 25 3d 21 42 25  84 26 38 30 3a 41 25 21  |:!B%=!B%.&80:A%!|
00001ae0  31 36 3d 4c 25 2a 31 36  2b 31 36 3a 3d 41 25 0d  |16=L%*16+16:=A%.|
00001af0  0e c8 1d dd a4 44 28 f8  5a 24 29 3a ea 41 25 2c  |.....D(.Z$):.A%,|
00001b00  46 25 3a f5 3a c8 8e bd  97 5a 24 ca 0d 0e c9 18  |F%:.:....Z$.....|
00001b10  c9 22 80 22 3a 41 25 2b  3d 31 3a 5a 24 3d c1 5a  |.".":A%+=1:Z$=.Z|
00001b20  24 2c 32 29 0d 0e ca 18  c9 22 5f 22 3a 41 25 2b  |$,2)....."_":A%+|
00001b30  3d 32 3a 5a 24 3d c1 5a  24 2c 32 29 0d 0e cb 18  |=2:Z$=.Z$,2)....|
00001b40  c9 22 2a 22 3a 41 25 2b  3d 38 3a 5a 24 3d c1 5a  |."*":A%+=8:Z$=.Z|
00001b50  24 2c 32 29 0d 0e cc 0a  7f 46 25 3d 2d 31 0d 0e  |$,2).....F%=-1..|
00001b60  cd 0d cb 3a fd 46 25 3a  3d 41 25 0d 0e ce 39 dd  |...:.F%:=A%...9.|
00001b70  a4 51 28 41 24 29 3a ea  41 25 3a c8 95 a7 41 24  |.Q(A$):.A%:...A$|
00001b80  2c 22 5c 22 29 3a 41 25  2b 3d 31 3a 41 24 3d c1  |,"\"):A%+=1:A$=.|
00001b90  41 24 2c a7 41 24 2c 22  5c 22 29 2b 31 29 3a ce  |A$,.A$,"\")+1):.|
00001ba0  3a 3d 41 25 0d 0e cf 36  dd a4 4b 28 41 25 29 3a  |:=A%...6..K(A%):|
00001bb0  ea 48 25 3a 41 25 2b 3d  34 3a f5 41 25 2b 3d 32  |.H%:A%+=4:.A%+=2|
00001bc0  34 3a 48 25 2b 3d 34 34  3a e7 28 21 41 25 80 32  |4:H%+=44:.(!A%.2|
00001bd0  29 3e 30 8c 48 25 2b 3d  32 34 0d 0e d0 17 fd 28  |)>0.H%+=24.....(|
00001be0  21 41 25 80 26 38 30 29  3e 30 3a 3d 48 25 2b 39  |!A%.&80)>0:=H%+9|
00001bf0  36 0d 0e d1 22 dd f2 42  28 4d 25 2c 58 25 2c 59  |6..."..B(M%,X%,Y|
00001c00  25 29 3a e7 59 25 3d 2d  31 8c 59 25 3d a4 4b 28  |%):.Y%=-1.Y%=.K(|
00001c10  4d 25 29 0d 0e d2 1e c8  99 26 34 30 30 44 34 2c  |M%)......&400D4,|
00001c20  2c 4d 25 2c 58 25 2c 59  25 3a 79 25 3d 4d 25 3a  |,M%,X%,Y%:y%=M%:|
00001c30  e1 0d 0e d3 1e dd a4 4c  28 41 24 2c 41 25 29 3a  |.......L(A$,A%):|
00001c40  3d 22 5c 22 2b 41 24 2b  22 3e 22 2b c3 41 25 0d  |="\"+A$+">"+.A%.|
00001c50  0e d4 24 dd a4 4e 3a c8  99 26 34 30 30 43 46 2c  |..$..N:..&400CF,|
00001c60  2c 47 25 3a 3d 28 28 28  47 25 21 38 29 80 31 29  |,G%:=(((G%!8).1)|
00001c70  3d 31 29 0d 0e d5 42 dd  a4 4a 3a ea 41 25 2c 42  |=1)...B..J:.A%,B|
00001c80  25 3a c8 99 26 32 30 30  33 39 2c 2c 22 44 72 61  |%:..&20039,,"Dra|
00001c90  67 41 53 70 72 69 74 65  5f 53 74 61 72 74 22 b8  |gASprite_Start".|
00001ca0  3b 41 25 3a 42 25 3d b9  3a e7 28 41 25 80 31 29  |;A%:B%=.:.(A%.1)|
00001cb0  8c 42 25 3d a3 0d 0e d6  22 c8 99 36 2c 26 41 31  |.B%=...."..6,&A1|
00001cc0  2c 32 38 b8 2c 2c 41 25  3a e7 28 41 25 80 32 29  |,28.,,A%:.(A%.2)|
00001cd0  3d 30 8c 42 25 3d a3 0d  0e d7 07 3d 42 25 0d 0e  |=0.B%=.....=B%..|
00001ce0  d8 5c dd f2 4e 28 44 25  2c 5f 25 2c 4e 24 29 3a  |.\..N(D%,_%,N$):|
00001cf0  21 4a 25 3d 44 25 3a c8  99 26 34 30 30 43 42 2c  |!J%=D%:..&400CB,|
00001d00  2c 4a 25 3a 66 25 3d 4a  25 21 34 2d 4a 25 21 32  |,J%:f%=J%!4-J%!2|
00001d10  30 3a 64 25 3d 4a 25 21  31 36 2d 4a 25 21 32 34  |0:d%=J%!16-J%!24|
00001d20  3a 4a 25 21 34 3d 5f 25  3a c8 99 26 34 30 30 43  |:J%!4=_%:..&400C|
00001d30  45 2c 2c 4a 25 3a e7 a4  4a 8c 0d 0e d9 51 21 4a  |E,,J%:..J....Q!J|
00001d40  25 3d 66 25 2b 4a 25 21  38 3a 4a 25 21 34 3d 64  |%=f%+J%!8:J%!4=d|
00001d50  25 2b 4a 25 21 26 43 3a  4a 25 21 38 3d 66 25 2b  |%+J%!&C:J%!8=f%+|
00001d60  4a 25 21 31 36 3a 4a 25  21 26 43 3d 64 25 2b 4a  |J%!16:J%!&C=d%+J|
00001d70  25 21 32 30 3a c8 99 26  34 32 34 30 30 2c 26 43  |%!20:..&42400,&C|
00001d80  35 2c 31 2c 4e 24 2c 4a  25 2c 30 0d 0e da 83 cc  |5,1,N$,J%,0.....|
00001d90  3a 4a 25 21 34 3d 35 3a  4a 25 21 38 3d 66 25 2b  |:J%!4=5:J%!8=f%+|
00001da0  4a 25 21 38 3a 4a 25 21  26 43 3d 64 25 2b 4a 25  |J%!8:J%!&C=d%+J%|
00001db0  21 26 43 3a 4a 25 21 31  36 3d 66 25 2b 4a 25 21  |!&C:J%!16=f%+J%!|
00001dc0  31 36 3a 4a 25 21 32 30  3d 64 25 2b 4a 25 21 32  |16:J%!20=d%+J%!2|
00001dd0  30 3a 4a 25 21 32 34 3d  30 3a 4a 25 21 32 38 3d  |0:J%!24=0:J%!28=|
00001de0  30 3a 4a 25 21 33 32 3d  26 37 46 46 46 46 46 46  |0:J%!32=&7FFFFFF|
00001df0  46 3a 4a 25 21 33 36 3d  26 37 46 46 46 46 46 46  |F:J%!36=&7FFFFFF|
00001e00  46 3a c8 99 26 34 30 30  44 30 2c 2c 4a 25 0d 0e  |F:..&400D0,,J%..|
00001e10  db 07 cd 3a e1 0d 0e dc  32 dd a4 49 28 41 24 29  |...:....2..I(A$)|
00001e20  3a c8 95 a7 41 24 2c 22  2e 22 29 3a 41 24 3d c1  |:...A$,"."):A$=.|
00001e30  41 24 2c a7 41 24 2c 22  2e 22 29 2b 31 29 3a ce  |A$,.A$,".")+1):.|
00001e40  3a 3d 41 24 2b bd 30 0d  0e dd 37 dd a4 42 3a ea  |:=A$+.0...7..B:.|
00001e50  41 25 2c 42 25 3a c8 99  35 33 2c 2d 31 2c 26 43  |A%,B%:..53,-1,&C|
00001e60  b8 2c 2c 41 25 3a c8 99  35 33 2c 2d 31 2c 35 b8  |.,,A%:..53,-1,5.|
00001e70  2c 2c 42 25 3a 3d 28 41  25 3c 3c 42 25 29 0d 0e  |,,B%:=(A%<<B%)..|
00001e80  de 48 dd a4 50 28 48 25  2c 53 25 2c 46 25 29 3a  |.H..P(H%,S%,F%):|
00001e90  ea 50 25 2c 45 25 2c 56  25 2c 4c 25 2c 54 25 3a  |.P%,E%,V%,L%,T%:|
00001ea0  c8 99 26 32 30 30 31 44  2c 32 2c 48 25 2c 2c 53  |..&2001D,2,H%,,S|
00001eb0  25 b8 45 25 2c 2c 50 25  3b 56 25 3a e7 28 56 25  |%.E%,,P%;V%:.(V%|
00001ec0  80 31 29 3d 31 8c 0d 0e  df 08 e7 46 25 8c 0d 0e  |.1)=1......F%...|
00001ed0  e0 3b 50 25 3d a4 57 3a  f2 4a 28 48 25 2c 28 53  |.;P%=.W:.J(H%,(S|
00001ee0  25 81 50 25 29 2a 50 25  2d 50 25 2a 28 28 53 25  |%.P%)*P%-P%*((S%|
00001ef0  83 50 25 29 3e 30 29 2c  b9 29 3a 50 25 3d a4 50  |.P%)>0),.):P%=.P|
00001f00  28 48 25 2c 53 25 2c a3  29 0d 0e e1 0c cc c8 99  |(H%,S%,.).......|
00001f10  34 33 2c 45 25 0d 0e e2  05 cd 0d 0e e3 09 cd 3a  |43,E%..........:|
00001f20  3d 50 25 0d 0e e4 56 dd  f2 66 28 48 25 2c f8 42  |=P%...V..f(H%,.B|
00001f30  25 2c 53 25 2c 46 25 29  3a ea 4c 25 2c 45 25 2c  |%,S%,F%):.L%,E%,|
00001f40  56 25 2c 54 25 2c 50 25  3a c8 99 26 32 30 30 31  |V%,T%,P%:..&2001|
00001f50  44 2c 34 2c 48 25 2c 42  25 2c 53 25 b8 45 25 2c  |D,4,H%,B%,S%.E%,|
00001f60  2c 42 25 3b 56 25 3a 56  25 3d 28 28 56 25 80 31  |,B%;V%:V%=((V%.1|
00001f70  29 3d 31 29 3a c8 8e b9  ca 0d 0e e5 13 c9 56 25  |)=1):.........V%|
00001f80  80 ac 46 25 3a c8 99 34  33 2c 45 25 0d 0e e6 2c  |..F%:..43,E%...,|
00001f90  c9 56 25 80 46 25 80 28  53 25 3e 30 29 3a f2 4a  |.V%.F%.(S%>0):.J|
00001fa0  28 48 25 2c 53 25 2c b9  29 3a f2 66 28 48 25 2c  |(H%,S%,.):.f(H%,|
00001fb0  42 25 2c 53 25 2c b9 29  0d 0e e7 11 c9 56 25 80  |B%,S%,.).....V%.|
00001fc0  46 25 80 28 53 25 3c 30  29 0d 0e e8 1e c9 ac 56  |F%.(S%<0)......V|
00001fd0  25 80 46 25 80 28 53 25  3c 30 29 3a f2 4a 28 48  |%.F%.(S%<0):.J(H|
00001fe0  25 2c 2d 31 2c b9 29 0d  0e e9 07 cb 3a e1 0d 0e  |%,-1,.).....:...|
00001ff0  ea 1a dd f2 4a 28 48 25  2c 53 25 2c 46 25 29 3a  |....J(H%,S%,F%):|
00002000  ea 50 25 3a e7 46 25 8c  0d 0e eb 0a e7 53 25 3c  |.P%:.F%......S%<|
00002010  30 8c 0d 0e ec 9a c8 99  26 32 30 30 31 44 2c 35  |0.......&2001D,5|
00002020  2c 48 25 2c 2c 2d 33 32  2a 26 34 30 30 2a 26 34  |,H%,,-32*&400*&4|
00002030  30 30 3a 53 25 3d 48 25  21 26 43 2b 48 25 2d 26  |00:S%=H%!&C+H%-&|
00002040  38 30 30 30 3a 50 25 3d  a4 57 3a c8 99 26 34 30  |8000:P%=.W:..&40|
00002050  30 45 43 2c 2d 31 2c 2d  31 b8 46 25 3a 46 25 3d  |0EC,-1,-1.F%:F%=|
00002060  a4 43 28 28 28 53 25 81  50 25 29 2a 50 25 2d 50  |.C(((S%.P%)*P%-P|
00002070  25 2a 28 28 53 25 83 50  25 29 3e 30 29 29 2d 46  |%*((S%.P%)>0))-F|
00002080  25 29 3a c8 99 32 39 2c  35 2c 48 25 2c 2c 28 28  |%):..29,5,H%,,((|
00002090  53 25 81 50 25 29 2a 50  25 2d 50 25 2a 28 28 53  |S%.P%)*P%-P%*((S|
000020a0  25 83 50 25 29 3e 30 29  29 2d 53 25 0d 0e ed 26  |%.P%)>0))-S%...&|
000020b0  cc 3a 45 25 3d 73 25 3a  46 25 3d a4 43 28 53 25  |.:E%=s%:F%=.C(S%|
000020c0  29 3a c8 99 32 39 2c 35  2c 48 25 2c 2c 73 25 2d  |):..29,5,H%,,s%-|
000020d0  45 25 0d 0e ee 05 cd 0d  0e ef 12 cc c8 99 32 39  |E%............29|
000020e0  2c 35 2c 48 25 2c 2c 53  25 0d 0e f0 07 cd 3a e1  |,5,H%,,S%.....:.|
000020f0  0d 0e f1 1b dd f2 71 28  48 25 2c 53 25 29 3a e7  |......q(H%,S%):.|
00002100  53 25 3d 2d 31 8c 53 25  3d 73 25 0d 0e f2 13 c8  |S%=-1.S%=s%.....|
00002110  99 32 39 2c 30 2c 48 25  2c 2c 53 25 3a e1 0d 0e  |.29,0,H%,,S%:...|
00002120  f3 17 dd a4 57 3a ea 50  25 3a c8 99 38 31 b8 50  |....W:.P%:..81.P|
00002130  25 3a 3d 50 25 0d 0e f4  49 dd a4 43 28 4d 25 29  |%:=P%...I..C(M%)|
00002140  3a ea 53 25 3a c8 99 26  34 30 30 45 43 2c 2d 31  |:.S%:..&400EC,-1|
00002150  2c 2d 31 b8 53 25 3a c8  99 26 34 30 30 45 43 2c  |,-1.S%:..&400EC,|
00002160  53 25 2b 4d 25 2c 2d 31  b8 53 25 3a 73 25 3d 53  |S%+M%,-1.S%:s%=S|
00002170  25 2d 28 93 2d 26 38 30  30 30 29 3a 3d 93 0d 0e  |%-(.-&8000):=...|
00002180  f5 3f dd a4 5a 28 50 25  29 3a ea 41 24 3a c8 95  |.?..Z(P%):.A$:..|
00002190  3f 50 25 3c 3e 30 80 3f  50 25 3c 3e 26 44 80 3f  |?P%<>0.?P%<>&D.?|
000021a0  50 25 3c 3e 26 41 3a 41  24 2b 3d bd 28 3f 50 25  |P%<>&A:A$+=.(?P%|
000021b0  29 3a 50 25 2b 3d 31 3a  ce 3a 3d 41 24 0d 0e f6  |):P%+=1:.:=A$...|
000021c0  44 dd a4 56 28 41 24 29  3a ea 41 25 2c 43 25 3a  |D..V(A$):.A%,C%:|
000021d0  e3 41 25 3d 31 b8 a9 41  24 3a 43 25 3d 97 c1 41  |.A%=1..A$:C%=..A|
000021e0  24 2c 41 25 2c 31 29 3a  e7 43 25 3e 3d 39 37 80  |$,A%,1):.C%>=97.|
000021f0  43 25 3c 3d 26 37 41 8c  43 25 3d 43 25 80 ac 33  |C%<=&7A.C%=C%..3|
00002200  32 0d 0e f7 17 c1 41 24  2c 41 25 29 3d bd 28 43  |2.....A$,A%)=.(C|
00002210  25 29 3a ed 3a 3d 41 24  0d 0e f8 37 dd a4 55 3a  |%):.:=A$...7..U:|
00002220  ea 41 25 2c 42 25 3a c8  99 35 33 2c 2d 31 2c 26  |.A%,B%:..53,-1,&|
00002230  42 b8 2c 2c 41 25 3a c8  99 35 33 2c 2d 31 2c 34  |B.,,A%:..53,-1,4|
00002240  b8 2c 2c 42 25 3a 3d 28  41 25 3c 3c 42 25 29 0d  |.,,B%:=(A%<<B%).|
00002250  0e f9 22 dd f2 4b 3a ea  85 3a ee 85 85 a2 9e 2c  |.."..K:..:.....,|
00002260  f6 24 2b 22 20 61 74 20  6c 69 6e 65 20 22 2b c3  |.$+" at line "+.|
00002270  9e 0d 0e fa 84 21 4a 25  3d 9f 3a 24 28 4a 25 2b  |.....!J%=.:$(J%+|
00002280  34 29 3d f6 24 2b 22 2c  22 2b c3 9e 2b 22 2e 20  |4)=.$+","+..+". |
00002290  20 43 6c 69 63 6b 20 4f  4b 20 63 6f 6e 74 69 6e  | Click OK contin|
000022a0  75 65 20 6f 72 20 43 41  4e 43 45 4c 20 74 6f 20  |ue or CANCEL to |
000022b0  71 75 69 74 20 61 70 70  6c 69 63 61 74 69 6f 6e  |quit application|
000022c0  2e 22 3a c8 99 26 34 30  30 44 46 2c 4a 25 2c 33  |.":..&400DF,J%,3|
000022d0  2b 28 31 3c 3c 26 41 29  2b 28 31 3c 3c 38 29 2c  |+(1<<&A)+(1<<8),|
000022e0  55 24 2c 4e 24 b8 2c 4f  25 3a e7 4f 25 3d 32 8c  |U$,N$.,O%:.O%=2.|
000022f0  61 25 3d 2d 31 0d 0e fb  08 f7 85 3a e1 0d 0e fc  |a%=-1......:....|
00002300  3f dd f2 68 28 44 25 29  3a 21 47 25 3d 44 25 3a  |?..h(D%):!G%=D%:|
00002310  c8 99 26 34 30 30 43 36  2c 2c 47 25 3a e7 44 25  |..&400C6,,G%:.D%|
00002320  3d 72 25 8c 6d 25 3d a3  3a 21 47 25 3d 78 25 3a  |=r%.m%=.:!G%=x%:|
00002330  c8 99 26 36 30 30 43 36  2c 2c 47 25 0d 0e fd 0f  |..&600C6,,G%....|
00002340  e7 44 25 3d 55 25 8c 75  25 3d a3 0d 0e fe 05 e1  |.D%=U%.u%=......|
00002350  0d 0e ff 41 dd a4 47 28  4c 24 29 3a ea 48 25 2c  |...A..G(L$):.H%,|
00002360  53 25 2c 49 25 2c 4f 25  2c 69 25 3a c8 99 26 34  |S%,I%,O%,i%:..&4|
00002370  30 30 44 42 2c 2c 2c 30  2c 30 2c 30 2c 4c 24 2c  |00DB,,,0,0,0,L$,|
00002380  30 b8 2c 53 25 2c 49 25  3a e7 53 25 3e 35 31 32  |0.,S%,I%:.S%>512|
00002390  8c 0d 0f 00 4a c8 99 26  32 30 30 31 45 2c 36 2c  |....J..&2001E,6,|
000023a0  2c 2c 53 25 b8 2c 2c 50  25 3b 4f 25 3a e7 4f 25  |,,S%.,,P%;O%:.O%|
000023b0  80 31 8c 85 32 2c 22 4e  6f 74 20 65 6e 6f 75 67  |.1..2,"Not enoug|
000023c0  68 20 6d 65 6d 6f 72 79  20 74 6f 20 63 72 65 61  |h memory to crea|
000023d0  74 65 20 77 69 6e 64 6f  77 2e 22 0d 0f 01 0a cc  |te window.".....|
000023e0  50 25 3d 4a 25 0d 0f 02  5c cd 3a de 69 25 49 25  |P%=J%...\.:.i%I%|
000023f0  3a c8 99 26 34 30 30 44  42 2c 2c 50 25 2c 69 25  |:..&400DB,,P%,i%|
00002400  2c 69 25 2b 49 25 2c 4a  79 25 2c 4c 24 2c 30 b8  |,i%+I%,Jy%,L$,0.|
00002410  2c 2c 69 25 3a 50 25 21  36 34 3d 44 79 25 3a c8  |,,i%:P%!64=Dy%:.|
00002420  99 26 34 30 30 43 31 2c  2c 50 25 b8 48 25 3a e7  |.&400C1,,P%.H%:.|
00002430  53 25 3e 35 31 32 8c c8  99 33 30 2c 37 2c 2c 50  |S%>512...30,7,,P|
00002440  25 0d 0f 03 07 3d 48 25  0d 0f 04 a0 dd f2 75 28  |%....=H%......u(|
00002450  44 25 2c 70 25 2c 4e 79  25 29 3a ea 57 25 2c 48  |D%,p%,Ny%):.W%,H|
00002460  25 2c 58 25 2c 59 25 2c  5a 25 3a 21 47 25 3d 44  |%,X%,Y%,Z%:!G%=D|
00002470  25 3a c8 99 26 34 30 30  43 42 2c 2c 47 25 3a 58  |%:..&400CB,,G%:X|
00002480  25 3d 33 36 2a 28 28 47  25 21 33 32 3e 3e 32 38  |%=36*((G%!32>>28|
00002490  29 80 31 29 3a 59 25 3d  33 36 2a 28 28 47 25 21  |).1):Y%=36*((G%!|
000024a0  33 32 3e 3e 32 36 29 80  31 29 2d 33 36 2a 28 28  |32>>26).1)-36*((|
000024b0  47 25 21 33 32 3e 3e 33  30 29 80 31 29 3a 57 25  |G%!32>>30).1):W%|
000024c0  3d 47 25 21 26 43 2d 47  25 21 34 2b 58 25 3a 48  |=G%!&C-G%!4+X%:H|
000024d0  25 3d 47 25 21 31 36 2d  47 25 21 38 2b 59 25 3a  |%=G%!16-G%!8+Y%:|
000024e0  e7 4e 79 25 3d 2d 31 8c  0d 0f 05 4a 47 25 21 34  |.Ny%=-1....JG%!4|
000024f0  3d a4 55 2f 32 2d 57 25  2f 32 3a 47 25 21 26 43  |=.U/2-W%/2:G%!&C|
00002500  3d 47 25 21 34 2b 57 25  3a 47 25 21 31 36 3d a4  |=G%!4+W%:G%!16=.|
00002510  42 2d 28 28 a4 42 2d 26  38 34 29 2d 48 25 29 2f  |B-((.B-&84)-H%)/|
00002520  32 2d 59 25 3a 47 25 21  38 3d 47 25 21 31 36 2d  |2-Y%:G%!8=G%!16-|
00002530  48 25 0d 0f 06 0d cc 3a  e7 4e 79 25 3d 31 8c 0d  |H%.....:.Ny%=1..|
00002540  0f 07 3b c8 97 58 25 2c  59 25 2c 5a 25 3a 47 25  |..;..X%,Y%,Z%:G%|
00002550  21 34 3d 58 25 2d 36 34  3a 47 25 21 26 43 3d 47  |!4=X%-64:G%!&C=G|
00002560  25 21 34 2b 57 25 3a 47  25 21 38 3d 59 25 2d 48  |%!4+W%:G%!8=Y%-H|
00002570  25 3a 47 25 21 31 36 3d  59 25 0d 0f 08 05 cd 0d  |%:G%!16=Y%......|
00002580  0f 09 15 cd 3a e7 70 25  3c 3e 30 8c 47 25 21 32  |....:.p%<>0.G%!2|
00002590  38 3d 70 25 0d 0f 0a 1c  c8 99 26 34 30 30 43 35  |8=p%......&400C5|
000025a0  2c 2c 47 25 3a e7 44 25  3d 55 25 8c 75 25 3d b9  |,,G%:.D%=U%.u%=.|
000025b0  0d 0f 0b 32 e7 44 25 3d  72 25 8c 6d 25 3d b9 3a  |...2.D%=r%.m%=.:|
000025c0  21 4a 25 3d 72 25 3a c8  99 26 34 30 30 43 42 2c  |!J%=r%:..&400CB,|
000025d0  2c 4a 25 3a 4a 25 21 32  38 3d 47 25 21 32 38 3a  |,J%:J%!28=G%!28:|
000025e0  f2 78 0d 0f 0c 05 e1 0d  0f 0d 16 dd f2 78 3a e7  |.x...........x:.|
000025f0  78 25 3c 3e 30 80 21 4a  25 3d 72 25 8c 0d 0f 0e  |x%<>0.!J%=r%....|
00002600  68 21 47 25 3d 78 25 3a  47 25 21 34 3d 4a 25 21  |h!G%=x%:G%!4=J%!|
00002610  34 2b 53 79 25 3a 47 25  21 31 36 3d 4a 25 21 31  |4+Sy%:G%!16=J%!1|
00002620  36 2b 52 79 25 3a 47 25  21 26 43 3d 47 25 21 34  |6+Ry%:G%!&C=G%!4|
00002630  2b 48 79 25 3a 47 25 21  38 3d 47 25 21 31 36 2d  |+Hy%:G%!8=G%!16-|
00002640  56 79 25 3a 47 25 21 32  30 3d 30 3a 47 25 21 32  |Vy%:G%!20=0:G%!2|
00002650  34 3d 30 3a 47 25 21 32  38 3d 4a 25 21 32 38 3a  |4=0:G%!28=J%!28:|
00002660  e7 59 79 25 8c 0d 0f 0f  41 47 25 21 34 2d 3d 4a  |.Yy%....AG%!4-=J|
00002670  25 21 32 30 3a 47 25 21  26 43 2d 3d 4a 25 21 32  |%!20:G%!&C-=J%!2|
00002680  30 3a e7 47 25 21 34 3c  4a 25 21 34 8c 47 25 21  |0:.G%!4<J%!4.G%!|
00002690  32 30 3d 4a 25 21 32 30  2d 53 79 25 3a 47 25 21  |20=J%!20-Sy%:G%!|
000026a0  34 3d 4a 25 21 34 0d 0f  10 1c e7 47 25 21 26 43  |4=J%!4.....G%!&C|
000026b0  3e 4a 25 21 26 43 8c 47  25 21 26 43 3d 4a 25 21  |>J%!&C.G%!&C=J%!|
000026c0  26 43 0d 0f 11 0b cd 3a  e7 4f 79 25 8c 0d 0f 12  |&C.....:.Oy%....|
000026d0  47 47 25 21 31 36 2d 3d  4a 25 21 32 34 3a 47 25  |GG%!16-=J%!24:G%|
000026e0  21 38 2d 3d 4a 25 21 32  34 3a e7 47 25 21 31 36  |!8-=J%!24:.G%!16|
000026f0  3e 4a 25 21 31 36 8c 47  25 21 32 34 3d 4a 25 21  |>J%!16.G%!24=J%!|
00002700  31 36 2d 47 25 21 31 36  3a 47 25 21 31 36 3d 4a  |16-G%!16:G%!16=J|
00002710  25 21 31 36 0d 0f 13 18  e7 47 25 21 38 3c 4a 25  |%!16.....G%!8<J%|
00002720  21 38 8c 47 25 21 38 3d  4a 25 21 38 0d 0f 14 1b  |!8.G%!8=J%!8....|
00002730  cd 3a c8 99 26 34 30 30  43 35 2c 2c 47 25 3a 4a  |.:..&400C5,,G%:J|
00002740  25 21 32 38 3d 78 25 0d  0f 15 07 cd 3a e1 0d 0f  |%!28=x%.....:...|
00002750  16 31 dd f2 48 28 4b 79  25 2c 54 24 29 3a 4a 79  |.1..H(Ky%,T$):Jy|
00002760  25 3d 2d 31 3a c8 99 26  34 30 30 44 39 2c 2c 54  |%=-1:..&400D9,,T|
00002770  24 3a f2 54 3a c8 99 26  34 30 30 44 41 3a e1 0d  |$:.T:..&400DA:..|
00002780  0f 17 24 dd f2 59 28 57  25 2c 64 79 25 2c 41 24  |..$..Y(W%,dy%,A$|
00002790  2c 77 79 25 29 3a 24 64  79 25 3d 41 24 3a e7 77  |,wy%):$dy%=A$:.w|
000027a0  79 25 8c 0d 0f 18 3d 21  4a 25 3d 57 25 3a c8 99  |y%....=!J%=W%:..|
000027b0  26 34 30 30 43 42 2c 2c  4a 25 3a c8 99 26 34 30  |&400CB,,J%:..&40|
000027c0  30 44 31 2c 2d 31 2c 4a  25 21 34 2c 4a 25 21 31  |0D1,-1,J%!4,J%!1|
000027d0  36 2c 4a 25 21 26 43 2c  4a 25 21 31 36 2b 34 34  |6,J%!&C,J%!16+44|
000027e0  0d 0f 19 07 cd 3a e1 0d  ff                       |.....:...|
000027e9