ImageFree/!ImageFree/!RunImage

Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » PD » ImageFree/!ImageFree/!RunImage

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

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

Tape/disk:	Home » Archimedes archive » Acorn User » AU 1997-Xmas B.adf » PD
Filename:	ImageFree/!ImageFree/!RunImage
Read OK:	✔
File size:	0C40 bytes
Load address:	0000
Exec address:	0000

File contents

    3SYS&406C0:PROCV:PROCB:PROCN:PROCT:PROCC:PROCP:PROCK:SYS&406C1:ONERRORPROCM
    4REPEATSYS&400C7,1,Z%TOr%:CASEr%OF
    5WHEN2:SYS&400C5,,Z%
    6WHEN3:SYS&400C6,,Z%
    7WHEN6:PROCH(Z%!8,Z%!&C,Z%!16)
    8WHEN9:PROCG
    9WHEN17,18:PROCD
   10ENDCASE:UNTILC%:SYS&400DD,f%,&4B534154:PROCR:END
   11DEFPROCV:Z$=FNG:ENDPROC
   12DEFPROCBPROCS(Z$+".Messages"):ENDPROC
   13DEFPROCNDIMZ%539:A%=Z%+256:C$=FNM("Task"):J$=FNM("Sprite"):!Z%=3:Z%!4=&A:Z%!8=0:SYS&400C0,300,&4B534154,C$,Z%TOe%,f%:IFFNC(-1,0)
   14ENDPROC
   15DEFPROCT:C%=FALSE:N$=CHR$&D+CHR$&A:DIMk%3:ENDPROC
   16DEFPROCC DIMw%269:d%=w%+270:SYS&400D9,,Z$+".Templates":_%=FNS("prog_info"):S%=FNS("main"):SYS&400DA:PROCA(_%,8,FNM("Version")):ENDPROC
   17DEFPROCPPROCJ(Z%):PROCX("IBar01",0,FALSE,0,0):PROCW:DIMT%75:SYS&41503,U%,Z%,T%,76:T%!32=_%:ENDPROC
   18DEFPROCKSYS&400EC,-1,-1TOg%:ENDPROC
   19DEFPROCH(h%,M%,B%)CASEM%OF
   20WHEN-2:CASEh%OF
   21WHEN2:v%=T%:PROCQ(&B8)
   22ENDCASE
   23ENDCASE:ENDPROC
   24DEFPROCG:C%=!Z%=1:SYS&400CF,,Z%:IFZ%!8=1THENSYS&400D4,,T%,!Z%-64,Z%!4
   25ENDPROC
   26DEFPROCDCASEZ%!16OF
   27WHEN0:C%=TRUE
   28WHEN3:M$=FNJ(Z%+44):SYS8,17,M$TOc%:IFc%=3THEN
   29SYS&20029,49,M$TOR%,,H%;K%:IF(K%AND1)=0THEN
   30PROCA(S%,1,FNZ(R%)+"bytes"):PROCA(S%,5,FNZ(H%-R%)+"bytes"):PROCA(S%,9,FNZ(H%)+"bytes"):IFH%<>0THENG%=284*R%/H%ELSEG%=0
   31PROCZ(S%,3,G%,36):PROCZ(S%,7,284-G%,36):PROCL(S%,FNF("In",FNN(M$))):PROCU(S%)
   32ENDIF
   33ENDIF
   34WHEN&A:BPUT#Z%!20,"Run "+FNQ("ImageFree$Dir")
   35ENDCASE:ENDPROC
   36DEFFNZ(J%)IFJ%<(1<<&A)THEN
   37=STR$(J%)
   38ELSEIFJ%<(1<<20)THEN
   39=STR$INT(J%>>>&A)+"K"
   40ELSEIFJ%<(1<<30)THEN
   41=STR$INT(J%>>>20)+"M"
   42ELSE=STR$INT(J%>>>30)+"G"
   43ENDIF
   44ENDIF
   45ENDIF:="?"
   46DEFPROCMLOCALERROR:ONERRORLOCALVDU4:PRINTREPORT$;" in error handler. (IEC ";ERL;")":ENDPROC
   47!Z%=ERR:$(Z%+4)=REPORT$+" (IEC "+STR$ERL+")":SYS&400DF,Z%,&503,C$TO,C%:C%=C%=2:RESTOREERROR:ENDPROC
   48DEFFNC(t%,m%)LOCALB%,G%,q%,D%,K%:SYS&600E9,40,,J$TO,,,G%,q%,,D%;K%:IFK%AND1THENG%=34:q%=34:D%=28
   49!A%=t%:A%!4=0:A%!8=0:A%!&C=G%<<FNA(D%,4):A%!16=q%<<FNA(D%,5):A%!20=&301A:$(A%+24)=J$:SYS&400C2,m%,A%TOB%:=B%
   50DEFPROCA(M%,B%,G$)SYS&4D943,4,M%,B%,G$:ENDPROC
   51DEFPROCZ(M%,B%,Q%,N%)!A%=M%:A%!4=B%:SYS&400CE,,A%:IFe%>=322THEN
   52SYS&400D1,M%,A%!8,A%!&C,A%!16,A%!20:SYS&400FC,M%,B%,A%!8,A%!&C,A%!8+Q%,A%!&C+N%:SYS&400D1,M%,A%!8,A%!&C,A%!8+Q%,A%!&C+N%
   53ELSESYS&400C4,,A%:A%!4=M%:A%!16=A%!8+Q%:A%!20=A%!&C+N%:SYS&400C2,,A%+4
   54ENDIF:ENDPROC
   55DEFPROCF(M%,B%)!A%=M%:A%!4=B%:SYS&400CE,,A%:ENDPROC
   56DEFPROCJ(y%)P%=y%:ENDPROC
   57DEFPROCW[OPT0:=0:]:ENDPROC
   58DEFPROCX(A$,j%,b%,i%,u%)LOCALW%,X%:W%=EVAL("&"+RIGHT$(A$,2)):A$=LEFT$(A$,LENA$-2):[OPT0:=A$+"$"+CHR$0:&&70207:=44:=0:]:FORX%=0TOW%:[OPT0:=FNB+CHR$0:ALIGN:&j%OR(i%>>>X%)AND1OR((u%>>>X%)AND1)*2ORABS(X%=W%)*&80:&0:&&7000021ORABS(b%)*256:]:NEXT:ENDPROC
   59DEFFNB=A$+RIGHT$("0"+STR$~X%,2)
   60DEFPROCQ(I%)IFI%=-1THEN
   61PROCI(M%):V%=A%!4-A%!20:I%=A%!16-A%!24:PROCF(M%,B%):V%+=A%!8+48:I%+=A%!&C+44
   62ELSEV%=!Z%-64
   63ENDIF:SYS&400D4,,v%+0,V%,I%:ENDPROC
   64DEFPROCS(W$)LOCALF%:SYS&41500,,W$TO,,F%:DIMU%&F+F%:SYS&41501,U%,W$,U%+16:ENDPROC
   65DEFPROCRSYS&41504,U%:ENDPROC
   66DEFFNM(P$)LOCALF%,W%:SYS&61502,U%,P$+":",STRING$(&FF,"*"),&FFTO,,F%,W%:F%?W%=&D:=$F%
   67DEFFNF(P$,B$)LOCALF%,W%:SYS&61502,U%,P$+":",STRING$(&FF,"*"),&FF,B$TO,,F%,W%:F%?W%=&D:=$F%
   68DEFFNGLOCALZ$:SYS&4D940,0,"<ImageFree$Dir>"TO,Z$:=Z$
   69DEFFNA(D%,s%)SYS53,D%,s%TO,,s%:=s%
   70DEFFNW(RETURNa%)LOCALS$:SYS&4D941,1,a%TO,a%,S$:=S$
   71DEFFNJ(a%)=FNW(a%)
   72DEFFNP(S$,n%)LOCALF$:SYS&4D941,&A,S$,n%TO,,,F$:=F$
   73DEFFNN(S$)=FNP(S$,46)
   74DEFFNQ(U$)LOCALY%:SYS&20023,U$,A%,256,0,3TO,,Y%:IFY%=0THEN=""ELSEA%?Y%=&D
   75=$A%
   76DEFFNS(Q$)SYS&400DB,,Z%,w%,d%,-1,Q$,0TO,,w%:Z%!64=-1:SYS&400C1,,Z%TOM%:=M%
   77DEFPROCU(M%)!A%=M%:SYS&400CC,,A%+1:IFA%!32AND(1<<16)THEN
   78A%!28=-1
   79ELSEQ%=A%!&C-A%!4:N%=A%!16-A%!8:x%=(FNA(-1,&B)<<FNA(-1,4))-Q%>>1:z%=(FNA(-1,&C)<<FNA(-1,5))-N%>>1:!A%=M%:A%!4=x%:A%!8=z%:A%!&C=x%+Q%:A%!16=z%+N%
   80ENDIF:SYS&400C5,,A%:ENDPROC
   81DEFPROCI(M%)!A%=M%:SYS&400CB,,A%:ENDPROC
   82DEFPROCL(M%,F$)SYS&4D942,7,M%,F$:ENDPROC

/ș&406C0:�V:�B:�N:�T:�C:�P:�K:ș&406C1:��M
�ș&400C7,1,Z%�r%:Ȏr%�
�2:ș&400C5,,Z%
�3:ș&400C6,,Z%
�6:�H(Z%!8,Z%!&C,Z%!16)
	�9:�G
	
�17,18:�D

$�:�C%:ș&400DD,f%,&4B534154:�R:�
��V:Z$=�G:�
��B�S(Z$+".Messages"):�

w��N�Z%539:A%=Z%+256:C$=�M("Task"):J$=�M("Sprite"):!Z%=3:Z%!4=&A:Z%!8=0:ș&400C0,300,&4B534154,C$,Z%�e%,f%:�C(-1,0)
�
��T:C%=�:N$=�&D+�&A:�k%3:�
u��C �w%269:d%=w%+270:ș&400D9,,Z$+".Templates":_%=�S("prog_info"):S%=�S("main"):ș&400DA:�A(_%,8,�M("Version")):�
K��P�J(Z%):�X("IBar01",0,�,0,0):�W:�T%75:ș&41503,U%,Z%,T%,76:T%!32=_%:�
��Kș&400EC,-1,-1�g%:�
��H(h%,M%,B%)ȎM%�

�-2:Ȏh%�
�2:v%=T%:�Q(&B8)
�
�:�
>��G:C%=!Z%=1:ș&400CF,,Z%:�Z%!8=1�ș&400D4,,T%,!Z%-64,Z%!4
�
��DȎZ%!16�
�0:C%=�
'�3:M$=�J(Z%+44):ș8,17,M$�c%:�c%=3�
'ș&20029,49,M$�R%,,H%;K%:�(K%�1)=0�
g�A(S%,1,�Z(R%)+"bytes"):�A(S%,5,�Z(H%-R%)+"bytes"):�A(S%,9,�Z(H%)+"bytes"):�H%<>0�G%=284*R%/H%�G%=0
C�Z(S%,3,G%,36):�Z(S%,7,284-G%,36):�L(S%,�F("In",�N(M$))):�U(S%)
 �
!�
"*�&A:�#Z%!20,"Run "+�Q("ImageFree$Dir")
#�:�
$ݤZ(J%)�J%<(1<<&A)�
%
=�(J%)
&��J%<(1<<20)�
'=è(J%>>>&A)+"K"
(��J%<(1<<30)�
)=è(J%>>>20)+"M"
*�=è(J%>>>30)+"G"
+�
,�
-
�:="?"
.6��M�:���4:�$;" in error handler. (IEC ";�;")":�
/I!Z%=�:$(Z%+4)=�$+" (IEC "+Þ+")":ș&400DF,Z%,&503,C$�,C%:C%=C%=2:��:�
0UݤC(t%,m%)�B%,G%,q%,D%,K%:ș&600E9,40,,J$�,,,G%,q%,,D%;K%:�K%�1�G%=34:q%=34:D%=28
1l!A%=t%:A%!4=0:A%!8=0:A%!&C=G%<<�A(D%,4):A%!16=q%<<�A(D%,5):A%!20=&301A:$(A%+24)=J$:ș&400C2,m%,A%�B%:=B%
2&��A(M%,B%,G$)ș&4D943,4,M%,B%,G$:�
39��Z(M%,B%,Q%,N%)!A%=M%:A%!4=B%:ș&400CE,,A%:�e%>=322�
4yș&400D1,M%,A%!8,A%!&C,A%!16,A%!20:ș&400FC,M%,B%,A%!8,A%!&C,A%!8+Q%,A%!&C+N%:ș&400D1,M%,A%!8,A%!&C,A%!8+Q%,A%!&C+N%
5E�ș&400C4,,A%:A%!4=M%:A%!16=A%!8+Q%:A%!20=A%!&C+N%:ș&400C2,,A%+4
6�:�
7+��F(M%,B%)!A%=M%:A%!4=B%:ș&400CE,,A%:�
8��J(y%)P%=y%:�
9��W[OPT0:=0:]:�
:���X(A$,j%,b%,i%,u%)�W%,X%:W%=�("&"+�A$,2)):A$=�A$,�A$-2):[OPT0:=A$+"$"+�0:&&70207:=44:=0:]:�X%=0�W%:[OPT0:=�B+�0:ALIGN:&j%�(i%>>>X%)�1�((u%>>>X%)�1)*2��(X%=W%)*&80:&0:&&7000021��(b%)*256:]:�:�
;ݤB=A$+�"0"+�~X%,2)
<��Q(I%)�I%=-1�
=J�I(M%):V%=A%!4-A%!20:I%=A%!16-A%!24:�F(M%,B%):V%+=A%!8+48:I%+=A%!&C+44
>�V%=!Z%-64
?�:ș&400D4,,v%+0,V%,I%:�
@@��S(W$)�F%:ș&41500,,W$�,,F%:�U%&F+F%:ș&41501,U%,W$,U%+16:�
A��Rș&41504,U%:�
BHݤM(P$)�F%,W%:ș&61502,U%,P$+":",�&FF,"*"),&FF�,,F%,W%:F%?W%=&D:=$F%
CNݤF(P$,B$)�F%,W%:ș&61502,U%,P$+":",�&FF,"*"),&FF,B$�,,F%,W%:F%?W%=&D:=$F%
D/ݤG�Z$:ș&4D940,0,"<ImageFree$Dir>"�,Z$:=Z$
E!ݤA(D%,s%)ș53,D%,s%�,,s%:=s%
F(ݤW(�a%)�S$:ș&4D941,1,a%�,a%,S$:=S$
GݤJ(a%)=�W(a%)
H-ݤP(S$,n%)�F$:ș&4D941,&A,S$,n%�,,,F$:=F$
IݤN(S$)=�P(S$,46)
J=ݤQ(U$)�Y%:ș&20023,U$,A%,256,0,3�,,Y%:�Y%=0�=""�A%?Y%=&D
K=$A%
LGݤS(Q$)ș&400DB,,Z%,w%,d%,-1,Q$,0�,,w%:Z%!64=-1:ș&400C1,,Z%�M%:=M%
M0��U(M%)!A%=M%:ș&400CC,,A%+1:�A%!32�(1<<16)�
NA%!28=-1
O��Q%=A%!&C-A%!4:N%=A%!16-A%!8:x%=(�A(-1,&B)<<�A(-1,4))-Q%>>1:z%=(�A(-1,&C)<<�A(-1,5))-N%>>1:!A%=M%:A%!4=x%:A%!8=z%:A%!&C=x%+Q%:A%!16=z%+N%
P�:ș&400C5,,A%:�
Q ��I(M%)!A%=M%:ș&400CB,,A%:�
R ��L(M%,F$)ș&4D942,7,M%,F$:�
�

00000000  0d 00 03 2f c8 99 26 34  30 36 43 30 3a f2 56 3a  |.../..&406C0:.V:|
00000010  f2 42 3a f2 4e 3a f2 54  3a f2 43 3a f2 50 3a f2  |.B:.N:.T:.C:.P:.|
00000020  4b 3a c8 99 26 34 30 36  43 31 3a ee 85 f2 4d 0d  |K:..&406C1:...M.|
00000030  00 04 1b f5 c8 99 26 34  30 30 43 37 2c 31 2c 5a  |......&400C7,1,Z|
00000040  25 b8 72 25 3a c8 8e 72  25 ca 0d 00 05 13 c9 32  |%.r%:..r%......2|
00000050  3a c8 99 26 34 30 30 43  35 2c 2c 5a 25 0d 00 06  |:..&400C5,,Z%...|
00000060  13 c9 33 3a c8 99 26 34  30 30 43 36 2c 2c 5a 25  |..3:..&400C6,,Z%|
00000070  0d 00 07 1b c9 36 3a f2  48 28 5a 25 21 38 2c 5a  |.....6:.H(Z%!8,Z|
00000080  25 21 26 43 2c 5a 25 21  31 36 29 0d 00 08 09 c9  |%!&C,Z%!16).....|
00000090  39 3a f2 47 0d 00 09 0d  c9 31 37 2c 31 38 3a f2  |9:.G.....17,18:.|
000000a0  44 0d 00 0a 24 cb 3a fd  43 25 3a c8 99 26 34 30  |D...$.:.C%:..&40|
000000b0  30 44 44 2c 66 25 2c 26  34 42 35 33 34 31 35 34  |0DD,f%,&4B534154|
000000c0  3a f2 52 3a e0 0d 00 0b  0f dd f2 56 3a 5a 24 3d  |:.R:.......V:Z$=|
000000d0  a4 47 3a e1 0d 00 0c 1b  dd f2 42 f2 53 28 5a 24  |.G:.......B.S(Z$|
000000e0  2b 22 2e 4d 65 73 73 61  67 65 73 22 29 3a e1 0d  |+".Messages"):..|
000000f0  00 0d 77 dd f2 4e de 5a  25 35 33 39 3a 41 25 3d  |..w..N.Z%539:A%=|
00000100  5a 25 2b 32 35 36 3a 43  24 3d a4 4d 28 22 54 61  |Z%+256:C$=.M("Ta|
00000110  73 6b 22 29 3a 4a 24 3d  a4 4d 28 22 53 70 72 69  |sk"):J$=.M("Spri|
00000120  74 65 22 29 3a 21 5a 25  3d 33 3a 5a 25 21 34 3d  |te"):!Z%=3:Z%!4=|
00000130  26 41 3a 5a 25 21 38 3d  30 3a c8 99 26 34 30 30  |&A:Z%!8=0:..&400|
00000140  43 30 2c 33 30 30 2c 26  34 42 35 33 34 31 35 34  |C0,300,&4B534154|
00000150  2c 43 24 2c 5a 25 b8 65  25 2c 66 25 3a e7 a4 43  |,C$,Z%.e%,f%:..C|
00000160  28 2d 31 2c 30 29 0d 00  0e 05 e1 0d 00 0f 1e dd  |(-1,0)..........|
00000170  f2 54 3a 43 25 3d a3 3a  4e 24 3d bd 26 44 2b bd  |.T:C%=.:N$=.&D+.|
00000180  26 41 3a de 6b 25 33 3a  e1 0d 00 10 75 dd f2 43  |&A:.k%3:....u..C|
00000190  20 de 77 25 32 36 39 3a  64 25 3d 77 25 2b 32 37  | .w%269:d%=w%+27|
000001a0  30 3a c8 99 26 34 30 30  44 39 2c 2c 5a 24 2b 22  |0:..&400D9,,Z$+"|
000001b0  2e 54 65 6d 70 6c 61 74  65 73 22 3a 5f 25 3d a4  |.Templates":_%=.|
000001c0  53 28 22 70 72 6f 67 5f  69 6e 66 6f 22 29 3a 53  |S("prog_info"):S|
000001d0  25 3d a4 53 28 22 6d 61  69 6e 22 29 3a c8 99 26  |%=.S("main"):..&|
000001e0  34 30 30 44 41 3a f2 41  28 5f 25 2c 38 2c a4 4d  |400DA:.A(_%,8,.M|
000001f0  28 22 56 65 72 73 69 6f  6e 22 29 29 3a e1 0d 00  |("Version")):...|
00000200  11 4b dd f2 50 f2 4a 28  5a 25 29 3a f2 58 28 22  |.K..P.J(Z%):.X("|
00000210  49 42 61 72 30 31 22 2c  30 2c a3 2c 30 2c 30 29  |IBar01",0,.,0,0)|
00000220  3a f2 57 3a de 54 25 37  35 3a c8 99 26 34 31 35  |:.W:.T%75:..&415|
00000230  30 33 2c 55 25 2c 5a 25  2c 54 25 2c 37 36 3a 54  |03,U%,Z%,T%,76:T|
00000240  25 21 33 32 3d 5f 25 3a  e1 0d 00 12 1a dd f2 4b  |%!32=_%:.......K|
00000250  c8 99 26 34 30 30 45 43  2c 2d 31 2c 2d 31 b8 67  |..&400EC,-1,-1.g|
00000260  25 3a e1 0d 00 13 16 dd  f2 48 28 68 25 2c 4d 25  |%:.......H(h%,M%|
00000270  2c 42 25 29 c8 8e 4d 25  ca 0d 00 14 0d c9 2d 32  |,B%)..M%......-2|
00000280  3a c8 8e 68 25 ca 0d 00  15 14 c9 32 3a 76 25 3d  |:..h%......2:v%=|
00000290  54 25 3a f2 51 28 26 42  38 29 0d 00 16 05 cb 0d  |T%:.Q(&B8)......|
000002a0  00 17 07 cb 3a e1 0d 00  18 3e dd f2 47 3a 43 25  |....:....>..G:C%|
000002b0  3d 21 5a 25 3d 31 3a c8  99 26 34 30 30 43 46 2c  |=!Z%=1:..&400CF,|
000002c0  2c 5a 25 3a e7 5a 25 21  38 3d 31 8c c8 99 26 34  |,Z%:.Z%!8=1...&4|
000002d0  30 30 44 34 2c 2c 54 25  2c 21 5a 25 2d 36 34 2c  |00D4,,T%,!Z%-64,|
000002e0  5a 25 21 34 0d 00 19 05  e1 0d 00 1a 0f dd f2 44  |Z%!4...........D|
000002f0  c8 8e 5a 25 21 31 36 ca  0d 00 1b 0b c9 30 3a 43  |..Z%!16......0:C|
00000300  25 3d b9 0d 00 1c 27 c9  33 3a 4d 24 3d a4 4a 28  |%=....'.3:M$=.J(|
00000310  5a 25 2b 34 34 29 3a c8  99 38 2c 31 37 2c 4d 24  |Z%+44):..8,17,M$|
00000320  b8 63 25 3a e7 63 25 3d  33 8c 0d 00 1d 27 c8 99  |.c%:.c%=3....'..|
00000330  26 32 30 30 32 39 2c 34  39 2c 4d 24 b8 52 25 2c  |&20029,49,M$.R%,|
00000340  2c 48 25 3b 4b 25 3a e7  28 4b 25 80 31 29 3d 30  |,H%;K%:.(K%.1)=0|
00000350  8c 0d 00 1e 67 f2 41 28  53 25 2c 31 2c a4 5a 28  |....g.A(S%,1,.Z(|
00000360  52 25 29 2b 22 62 79 74  65 73 22 29 3a f2 41 28  |R%)+"bytes"):.A(|
00000370  53 25 2c 35 2c a4 5a 28  48 25 2d 52 25 29 2b 22  |S%,5,.Z(H%-R%)+"|
00000380  62 79 74 65 73 22 29 3a  f2 41 28 53 25 2c 39 2c  |bytes"):.A(S%,9,|
00000390  a4 5a 28 48 25 29 2b 22  62 79 74 65 73 22 29 3a  |.Z(H%)+"bytes"):|
000003a0  e7 48 25 3c 3e 30 8c 47  25 3d 32 38 34 2a 52 25  |.H%<>0.G%=284*R%|
000003b0  2f 48 25 8b 47 25 3d 30  0d 00 1f 43 f2 5a 28 53  |/H%.G%=0...C.Z(S|
000003c0  25 2c 33 2c 47 25 2c 33  36 29 3a f2 5a 28 53 25  |%,3,G%,36):.Z(S%|
000003d0  2c 37 2c 32 38 34 2d 47  25 2c 33 36 29 3a f2 4c  |,7,284-G%,36):.L|
000003e0  28 53 25 2c a4 46 28 22  49 6e 22 2c a4 4e 28 4d  |(S%,.F("In",.N(M|
000003f0  24 29 29 29 3a f2 55 28  53 25 29 0d 00 20 05 cd  |$))):.U(S%).. ..|
00000400  0d 00 21 05 cd 0d 00 22  2a c9 26 41 3a d5 23 5a  |..!...."*.&A:.#Z|
00000410  25 21 32 30 2c 22 52 75  6e 20 22 2b a4 51 28 22  |%!20,"Run "+.Q("|
00000420  49 6d 61 67 65 46 72 65  65 24 44 69 72 22 29 0d  |ImageFree$Dir").|
00000430  00 23 07 cb 3a e1 0d 00  24 17 dd a4 5a 28 4a 25  |.#..:...$...Z(J%|
00000440  29 e7 4a 25 3c 28 31 3c  3c 26 41 29 8c 0d 00 25  |).J%<(1<<&A)...%|
00000450  0a 3d c3 28 4a 25 29 0d  00 26 11 cc e7 4a 25 3c  |.=.(J%)..&...J%<|
00000460  28 31 3c 3c 32 30 29 8c  0d 00 27 14 3d c3 a8 28  |(1<<20)...'.=..(|
00000470  4a 25 3e 3e 3e 26 41 29  2b 22 4b 22 0d 00 28 11  |J%>>>&A)+"K"..(.|
00000480  cc e7 4a 25 3c 28 31 3c  3c 33 30 29 8c 0d 00 29  |..J%<(1<<30)...)|
00000490  14 3d c3 a8 28 4a 25 3e  3e 3e 32 30 29 2b 22 4d  |.=..(J%>>>20)+"M|
000004a0  22 0d 00 2a 15 cc 3d c3  a8 28 4a 25 3e 3e 3e 33  |"..*..=..(J%>>>3|
000004b0  30 29 2b 22 47 22 0d 00  2b 05 cd 0d 00 2c 05 cd  |0)+"G"..+....,..|
000004c0  0d 00 2d 0a cd 3a 3d 22  3f 22 0d 00 2e 36 dd f2  |..-..:="?"...6..|
000004d0  4d ea 85 3a ee 85 ea ef  34 3a f1 f6 24 3b 22 20  |M..:....4:..$;" |
000004e0  69 6e 20 65 72 72 6f 72  20 68 61 6e 64 6c 65 72  |in error handler|
000004f0  2e 20 28 49 45 43 20 22  3b 9e 3b 22 29 22 3a e1  |. (IEC ";.;")":.|
00000500  0d 00 2f 49 21 5a 25 3d  9f 3a 24 28 5a 25 2b 34  |../I!Z%=.:$(Z%+4|
00000510  29 3d f6 24 2b 22 20 28  49 45 43 20 22 2b c3 9e  |)=.$+" (IEC "+..|
00000520  2b 22 29 22 3a c8 99 26  34 30 30 44 46 2c 5a 25  |+")":..&400DF,Z%|
00000530  2c 26 35 30 33 2c 43 24  b8 2c 43 25 3a 43 25 3d  |,&503,C$.,C%:C%=|
00000540  43 25 3d 32 3a f7 85 3a  e1 0d 00 30 55 dd a4 43  |C%=2:..:...0U..C|
00000550  28 74 25 2c 6d 25 29 ea  42 25 2c 47 25 2c 71 25  |(t%,m%).B%,G%,q%|
00000560  2c 44 25 2c 4b 25 3a c8  99 26 36 30 30 45 39 2c  |,D%,K%:..&600E9,|
00000570  34 30 2c 2c 4a 24 b8 2c  2c 2c 47 25 2c 71 25 2c  |40,,J$.,,,G%,q%,|
00000580  2c 44 25 3b 4b 25 3a e7  4b 25 80 31 8c 47 25 3d  |,D%;K%:.K%.1.G%=|
00000590  33 34 3a 71 25 3d 33 34  3a 44 25 3d 32 38 0d 00  |34:q%=34:D%=28..|
000005a0  31 6c 21 41 25 3d 74 25  3a 41 25 21 34 3d 30 3a  |1l!A%=t%:A%!4=0:|
000005b0  41 25 21 38 3d 30 3a 41  25 21 26 43 3d 47 25 3c  |A%!8=0:A%!&C=G%<|
000005c0  3c a4 41 28 44 25 2c 34  29 3a 41 25 21 31 36 3d  |<.A(D%,4):A%!16=|
000005d0  71 25 3c 3c a4 41 28 44  25 2c 35 29 3a 41 25 21  |q%<<.A(D%,5):A%!|
000005e0  32 30 3d 26 33 30 31 41  3a 24 28 41 25 2b 32 34  |20=&301A:$(A%+24|
000005f0  29 3d 4a 24 3a c8 99 26  34 30 30 43 32 2c 6d 25  |)=J$:..&400C2,m%|
00000600  2c 41 25 b8 42 25 3a 3d  42 25 0d 00 32 26 dd f2  |,A%.B%:=B%..2&..|
00000610  41 28 4d 25 2c 42 25 2c  47 24 29 c8 99 26 34 44  |A(M%,B%,G$)..&4D|
00000620  39 34 33 2c 34 2c 4d 25  2c 42 25 2c 47 24 3a e1  |943,4,M%,B%,G$:.|
00000630  0d 00 33 39 dd f2 5a 28  4d 25 2c 42 25 2c 51 25  |..39..Z(M%,B%,Q%|
00000640  2c 4e 25 29 21 41 25 3d  4d 25 3a 41 25 21 34 3d  |,N%)!A%=M%:A%!4=|
00000650  42 25 3a c8 99 26 34 30  30 43 45 2c 2c 41 25 3a  |B%:..&400CE,,A%:|
00000660  e7 65 25 3e 3d 33 32 32  8c 0d 00 34 79 c8 99 26  |.e%>=322...4y..&|
00000670  34 30 30 44 31 2c 4d 25  2c 41 25 21 38 2c 41 25  |400D1,M%,A%!8,A%|
00000680  21 26 43 2c 41 25 21 31  36 2c 41 25 21 32 30 3a  |!&C,A%!16,A%!20:|
00000690  c8 99 26 34 30 30 46 43  2c 4d 25 2c 42 25 2c 41  |..&400FC,M%,B%,A|
000006a0  25 21 38 2c 41 25 21 26  43 2c 41 25 21 38 2b 51  |%!8,A%!&C,A%!8+Q|
000006b0  25 2c 41 25 21 26 43 2b  4e 25 3a c8 99 26 34 30  |%,A%!&C+N%:..&40|
000006c0  30 44 31 2c 4d 25 2c 41  25 21 38 2c 41 25 21 26  |0D1,M%,A%!8,A%!&|
000006d0  43 2c 41 25 21 38 2b 51  25 2c 41 25 21 26 43 2b  |C,A%!8+Q%,A%!&C+|
000006e0  4e 25 0d 00 35 45 cc c8  99 26 34 30 30 43 34 2c  |N%..5E...&400C4,|
000006f0  2c 41 25 3a 41 25 21 34  3d 4d 25 3a 41 25 21 31  |,A%:A%!4=M%:A%!1|
00000700  36 3d 41 25 21 38 2b 51  25 3a 41 25 21 32 30 3d  |6=A%!8+Q%:A%!20=|
00000710  41 25 21 26 43 2b 4e 25  3a c8 99 26 34 30 30 43  |A%!&C+N%:..&400C|
00000720  32 2c 2c 41 25 2b 34 0d  00 36 07 cd 3a e1 0d 00  |2,,A%+4..6..:...|
00000730  37 2b dd f2 46 28 4d 25  2c 42 25 29 21 41 25 3d  |7+..F(M%,B%)!A%=|
00000740  4d 25 3a 41 25 21 34 3d  42 25 3a c8 99 26 34 30  |M%:A%!4=B%:..&40|
00000750  30 43 45 2c 2c 41 25 3a  e1 0d 00 38 12 dd f2 4a  |0CE,,A%:...8...J|
00000760  28 79 25 29 50 25 3d 79  25 3a e1 0d 00 39 13 dd  |(y%)P%=y%:...9..|
00000770  f2 57 5b 4f 50 54 30 3a  3d 30 3a 5d 3a e1 0d 00  |.W[OPT0:=0:]:...|
00000780  3a c4 dd f2 58 28 41 24  2c 6a 25 2c 62 25 2c 69  |:...X(A$,j%,b%,i|
00000790  25 2c 75 25 29 ea 57 25  2c 58 25 3a 57 25 3d a0  |%,u%).W%,X%:W%=.|
000007a0  28 22 26 22 2b c2 41 24  2c 32 29 29 3a 41 24 3d  |("&"+.A$,2)):A$=|
000007b0  c0 41 24 2c a9 41 24 2d  32 29 3a 5b 4f 50 54 30  |.A$,.A$-2):[OPT0|
000007c0  3a 3d 41 24 2b 22 24 22  2b bd 30 3a 26 26 37 30  |:=A$+"$"+.0:&&70|
000007d0  32 30 37 3a 3d 34 34 3a  3d 30 3a 5d 3a e3 58 25  |207:=44:=0:]:.X%|
000007e0  3d 30 b8 57 25 3a 5b 4f  50 54 30 3a 3d a4 42 2b  |=0.W%:[OPT0:=.B+|
000007f0  bd 30 3a 41 4c 49 47 4e  3a 26 6a 25 84 28 69 25  |.0:ALIGN:&j%.(i%|
00000800  3e 3e 3e 58 25 29 80 31  84 28 28 75 25 3e 3e 3e  |>>>X%).1.((u%>>>|
00000810  58 25 29 80 31 29 2a 32  84 94 28 58 25 3d 57 25  |X%).1)*2..(X%=W%|
00000820  29 2a 26 38 30 3a 26 30  3a 26 26 37 30 30 30 30  |)*&80:&0:&&70000|
00000830  32 31 84 94 28 62 25 29  2a 32 35 36 3a 5d 3a ed  |21..(b%)*256:]:.|
00000840  3a e1 0d 00 3b 17 dd a4  42 3d 41 24 2b c2 22 30  |:...;...B=A$+."0|
00000850  22 2b c3 7e 58 25 2c 32  29 0d 00 3c 12 dd f2 51  |"+.~X%,2)..<...Q|
00000860  28 49 25 29 e7 49 25 3d  2d 31 8c 0d 00 3d 4a f2  |(I%).I%=-1...=J.|
00000870  49 28 4d 25 29 3a 56 25  3d 41 25 21 34 2d 41 25  |I(M%):V%=A%!4-A%|
00000880  21 32 30 3a 49 25 3d 41  25 21 31 36 2d 41 25 21  |!20:I%=A%!16-A%!|
00000890  32 34 3a f2 46 28 4d 25  2c 42 25 29 3a 56 25 2b  |24:.F(M%,B%):V%+|
000008a0  3d 41 25 21 38 2b 34 38  3a 49 25 2b 3d 41 25 21  |=A%!8+48:I%+=A%!|
000008b0  26 43 2b 34 34 0d 00 3e  0e cc 56 25 3d 21 5a 25  |&C+44..>..V%=!Z%|
000008c0  2d 36 34 0d 00 3f 1c cd  3a c8 99 26 34 30 30 44  |-64..?..:..&400D|
000008d0  34 2c 2c 76 25 2b 30 2c  56 25 2c 49 25 3a e1 0d  |4,,v%+0,V%,I%:..|
000008e0  00 40 40 dd f2 53 28 57  24 29 ea 46 25 3a c8 99  |.@@..S(W$).F%:..|
000008f0  26 34 31 35 30 30 2c 2c  57 24 b8 2c 2c 46 25 3a  |&41500,,W$.,,F%:|
00000900  de 55 25 26 46 2b 46 25  3a c8 99 26 34 31 35 30  |.U%&F+F%:..&4150|
00000910  31 2c 55 25 2c 57 24 2c  55 25 2b 31 36 3a e1 0d  |1,U%,W$,U%+16:..|
00000920  00 41 14 dd f2 52 c8 99  26 34 31 35 30 34 2c 55  |.A...R..&41504,U|
00000930  25 3a e1 0d 00 42 48 dd  a4 4d 28 50 24 29 ea 46  |%:...BH..M(P$).F|
00000940  25 2c 57 25 3a c8 99 26  36 31 35 30 32 2c 55 25  |%,W%:..&61502,U%|
00000950  2c 50 24 2b 22 3a 22 2c  c4 26 46 46 2c 22 2a 22  |,P$+":",.&FF,"*"|
00000960  29 2c 26 46 46 b8 2c 2c  46 25 2c 57 25 3a 46 25  |),&FF.,,F%,W%:F%|
00000970  3f 57 25 3d 26 44 3a 3d  24 46 25 0d 00 43 4e dd  |?W%=&D:=$F%..CN.|
00000980  a4 46 28 50 24 2c 42 24  29 ea 46 25 2c 57 25 3a  |.F(P$,B$).F%,W%:|
00000990  c8 99 26 36 31 35 30 32  2c 55 25 2c 50 24 2b 22  |..&61502,U%,P$+"|
000009a0  3a 22 2c c4 26 46 46 2c  22 2a 22 29 2c 26 46 46  |:",.&FF,"*"),&FF|
000009b0  2c 42 24 b8 2c 2c 46 25  2c 57 25 3a 46 25 3f 57  |,B$.,,F%,W%:F%?W|
000009c0  25 3d 26 44 3a 3d 24 46  25 0d 00 44 2f dd a4 47  |%=&D:=$F%..D/..G|
000009d0  ea 5a 24 3a c8 99 26 34  44 39 34 30 2c 30 2c 22  |.Z$:..&4D940,0,"|
000009e0  3c 49 6d 61 67 65 46 72  65 65 24 44 69 72 3e 22  |<ImageFree$Dir>"|
000009f0  b8 2c 5a 24 3a 3d 5a 24  0d 00 45 21 dd a4 41 28  |.,Z$:=Z$..E!..A(|
00000a00  44 25 2c 73 25 29 c8 99  35 33 2c 44 25 2c 73 25  |D%,s%)..53,D%,s%|
00000a10  b8 2c 2c 73 25 3a 3d 73  25 0d 00 46 28 dd a4 57  |.,,s%:=s%..F(..W|
00000a20  28 f8 61 25 29 ea 53 24  3a c8 99 26 34 44 39 34  |(.a%).S$:..&4D94|
00000a30  31 2c 31 2c 61 25 b8 2c  61 25 2c 53 24 3a 3d 53  |1,1,a%.,a%,S$:=S|
00000a40  24 0d 00 47 12 dd a4 4a  28 61 25 29 3d a4 57 28  |$..G...J(a%)=.W(|
00000a50  61 25 29 0d 00 48 2d dd  a4 50 28 53 24 2c 6e 25  |a%)..H-..P(S$,n%|
00000a60  29 ea 46 24 3a c8 99 26  34 44 39 34 31 2c 26 41  |).F$:..&4D941,&A|
00000a70  2c 53 24 2c 6e 25 b8 2c  2c 2c 46 24 3a 3d 46 24  |,S$,n%.,,,F$:=F$|
00000a80  0d 00 49 15 dd a4 4e 28  53 24 29 3d a4 50 28 53  |..I...N(S$)=.P(S|
00000a90  24 2c 34 36 29 0d 00 4a  3d dd a4 51 28 55 24 29  |$,46)..J=..Q(U$)|
00000aa0  ea 59 25 3a c8 99 26 32  30 30 32 33 2c 55 24 2c  |.Y%:..&20023,U$,|
00000ab0  41 25 2c 32 35 36 2c 30  2c 33 b8 2c 2c 59 25 3a  |A%,256,0,3.,,Y%:|
00000ac0  e7 59 25 3d 30 8c 3d 22  22 8b 41 25 3f 59 25 3d  |.Y%=0.="".A%?Y%=|
00000ad0  26 44 0d 00 4b 08 3d 24  41 25 0d 00 4c 47 dd a4  |&D..K.=$A%..LG..|
00000ae0  53 28 51 24 29 c8 99 26  34 30 30 44 42 2c 2c 5a  |S(Q$)..&400DB,,Z|
00000af0  25 2c 77 25 2c 64 25 2c  2d 31 2c 51 24 2c 30 b8  |%,w%,d%,-1,Q$,0.|
00000b00  2c 2c 77 25 3a 5a 25 21  36 34 3d 2d 31 3a c8 99  |,,w%:Z%!64=-1:..|
00000b10  26 34 30 30 43 31 2c 2c  5a 25 b8 4d 25 3a 3d 4d  |&400C1,,Z%.M%:=M|
00000b20  25 0d 00 4d 30 dd f2 55  28 4d 25 29 21 41 25 3d  |%..M0..U(M%)!A%=|
00000b30  4d 25 3a c8 99 26 34 30  30 43 43 2c 2c 41 25 2b  |M%:..&400CC,,A%+|
00000b40  31 3a e7 41 25 21 33 32  80 28 31 3c 3c 31 36 29  |1:.A%!32.(1<<16)|
00000b50  8c 0d 00 4e 0c 41 25 21  32 38 3d 2d 31 0d 00 4f  |...N.A%!28=-1..O|
00000b60  8d cc 51 25 3d 41 25 21  26 43 2d 41 25 21 34 3a  |..Q%=A%!&C-A%!4:|
00000b70  4e 25 3d 41 25 21 31 36  2d 41 25 21 38 3a 78 25  |N%=A%!16-A%!8:x%|
00000b80  3d 28 a4 41 28 2d 31 2c  26 42 29 3c 3c a4 41 28  |=(.A(-1,&B)<<.A(|
00000b90  2d 31 2c 34 29 29 2d 51  25 3e 3e 31 3a 7a 25 3d  |-1,4))-Q%>>1:z%=|
00000ba0  28 a4 41 28 2d 31 2c 26  43 29 3c 3c a4 41 28 2d  |(.A(-1,&C)<<.A(-|
00000bb0  31 2c 35 29 29 2d 4e 25  3e 3e 31 3a 21 41 25 3d  |1,5))-N%>>1:!A%=|
00000bc0  4d 25 3a 41 25 21 34 3d  78 25 3a 41 25 21 38 3d  |M%:A%!4=x%:A%!8=|
00000bd0  7a 25 3a 41 25 21 26 43  3d 78 25 2b 51 25 3a 41  |z%:A%!&C=x%+Q%:A|
00000be0  25 21 31 36 3d 7a 25 2b  4e 25 0d 00 50 14 cd 3a  |%!16=z%+N%..P..:|
00000bf0  c8 99 26 34 30 30 43 35  2c 2c 41 25 3a e1 0d 00  |..&400C5,,A%:...|
00000c00  51 20 dd f2 49 28 4d 25  29 21 41 25 3d 4d 25 3a  |Q ..I(M%)!A%=M%:|
00000c10  c8 99 26 34 30 30 43 42  2c 2c 41 25 3a e1 0d 00  |..&400CB,,A%:...|
00000c20  52 20 dd f2 4c 28 4d 25  2c 46 24 29 c8 99 26 34  |R ..L(M%,F$)..&4|
00000c30  44 39 34 32 2c 37 2c 4d  25 2c 46 24 3a e1 0d ff  |D942,7,M%,F$:...|
00000c40

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .