Home » Archimedes archive » Acorn User » AU 1997-04 A.adf » Extras1 » MenuBar2/!MenuBar/Overlays/Drop

MenuBar2/!MenuBar/Overlays/Drop

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-04 A.adf » Extras1
Filename: MenuBar2/!MenuBar/Overlays/Drop
Read OK:
File size: 0D07 bytes
Load address: 0000
Exec address: 0000
File contents
 1123REM> Drop
 1124DEFPROCly(q%,Uy%,yy%):SYS&400CF,,A%:x%=A%!0:v%=A%!4:Gy%=A%!&C:c%=A%!16:IFq%=Gy%ANDNOTINKEY-3THEN
 1125IFIy%PROCPELSEPROCK_(q%,c%)
 1126ENDPROC
 1127ENDIF:IFGy%=-2ANDc%=-1THEN
 1128l$="IconBar"
 1129ELSE:A%!0=20:A%!&C=0:A%!16=0:SYS&400E7,19,A%,Gy%,c%TO,,ou%:IFou%=0THENENDPROC
 1130SYS&42680,ou%TOl$
 1131ENDIF:Wl%=FALSE:CASEl$OF
 1132WHEN"IconBar":PROCX_(q%,Uy%,yy%)
 1133WHEN"Pinboard":PROCI_(q%,yy%,x%,v%)
 1134WHEN"Filer":PROCr_(q%,Gy%,c%,x%,v%)
 1135OTHERWISEPROCoy(q%,Uy%,Gy%,c%,x%,v%)
 1136ENDCASE:ENDPROC
 1137DEFPROCX_(q%,Uy%,yy%):LOCALJ%:s%=FNW(q%):FORJ%=1TOs%:IFUy%>0THENPROCMy(q%,M%(J%),yy%)
 1138NEXT:PROCJ(G%):ENDPROC
 1139DEFPROCI_(q%,yy%,x%,v%):LOCALJ%,S$,O%,t%:O%=x%:t%=v%:s%=FNW(q%):FORJ%=1TOs%:Sy%=M%(J%):S$=FNC(G%,M%(J%)):IFFNZ(S$)THEN
 1140m$=STR$O%:IFO%<0THENm$="0"+m$
 1141i$=STR$t%:IFt%<0THENi$="0"+i$
 1142OSCLI("Pin "+S$+" "+m$+" "+i$):IFJ%MOD4=0THENt%-=&74:O%=x%ELSEO%+=&BC
 1143ENDIF:NEXT:IFINKEY-1THEN
 1144IFs%>1THEN
 1145PROCs(q%,s%)
 1146ELSE:PROCI(q%,k%)
 1147ENDIF
 1148ENDIF:PROCJ(G%):IFyy%=16THENPROCC(G%)
 1149ENDPROC
 1150DEFPROCr_(q%,Gy%,c%,x%,v%):LOCALZ$,F$,T_%,V%:Wl%=TRUE:Z$=FNC(G%,k%):F$=FNJ(Z$):T_%=FNAy(Z$):V%=FNP(Z$):A%!0=(48+LENZ$)ANDNOT3:A%!4=0:A%!8=0:A%!&C=0:A%!16=1:A%!20=Gy%:A%!24=c%:A%!28=x%:A%!32=v%:A%!36=T_%:A%!40=V%:$(A%+44)=F$+CHR$0:SYS&400E7,18,A%,A%!20,A%!24:ENDPROC
 1151DEFPROCe_(A%):IFWl%THENPROCR_(A%,q%,yy%)
 1152ENDPROC
 1153DEFPROCR_(A%,q%,yy%):LOCALJ%,K%,s%,Wy$,S$,j$,F$,K$,Jy$:su%=FNUy:kl%=FNm:s%=FNW(q%):IFs%=1THENk%=M%(1)
 1154Wy$=FNQ(A%+44):j$=FNz(Wy$):PROCJ(G%):IFINKEY-1THENgu%=TRUEELSEgu%=FALSE
 1155FORJ%=1TOs%:K$=FNC(G%,M%(J%)):F$=FNJ(K$):Jy$=j$+"."+F$:IFFNZ(K$)THEN
 1156IFsu%THEN
 1157SYS&400DE,"Filer_Action"TOeJ%:SYS&40F80,eJ%,FNz(K$):SYS&40F81,eJ%,F$:SYS&40F82,eJ%,0,kl%,j$,LENj$+1
 1158ELSE:x$=FNTy(FALSE):PROCfy("Copy files","Copy "+K$+" "+Jy$+" "+x$)
 1159ENDIF
 1160ENDIF:NEXT:IFNOTsu%THENSYS&400EF,0
 1161A%!0=64:A%!&C=A%!8:A%!16=3:SYS&400E7,18,A%,A%!20,A%!24:IFgu%THEN
 1162IFs%>1THEN
 1163PROCs(q%,s%)
 1164ELSE:PROCI(q%,k%)
 1165ENDIF
 1166ENDIF:IFyy%=16THENPROCC(G%)
 1167ENDPROC
 1168DEFPROCfy(f$,Gy$):$C%=f$:SYS&400EF,C%:OSCLIGy$:ENDPROC
 1169DEFFNTy(Ji%):LOCALC$,R%:R%=FNm:C$="A":IFdu%THENC$+="C"ELSEC$+="~C"
 1170IFJi%THENC$+="D"ELSEC$+="~D"
 1171IFCl%THENC$+="F"ELSEC$+="~F"
 1172C$+="~L":IFnu%THENC$+="N"ELSEC$+="~N"
 1173C$+="~P~QR~S~T":IFVu%THENC$+="V"ELSEC$+="~V"
 1174=C$
 1175DEFFNm:Cl%=(FNs(&C6)AND16)DIV16:du%=(FNs(&C6)AND32)DIV32:Vu%=(FNs(&C6)AND64)DIV64:nu%=(FNs(&C6)AND&80)DIV&80:R%=Vu%+(du%<<1)+(Cl%<<2)+(nu%<<3):=R%
 1176DEFFNs(Zy%):LOCALF_%:SYS6,&A1,Zy%TO,,F_%:=F_%
 1177DEFPROCoy(q%,Uy%,Gy%,c%,x%,v%):A%!&C=0:A%!20=Gy%:A%!24=c%:A%!28=x%:A%!32=v%:s%=FNW(q%):IFs%=1THENk%=M%(1)
 1178G%=FNN(q%):FORJ%=1TOs%:K$=FNC(G%,M%(J%)):IFFNZ(K$)THEN
 1179V%=FNP(K$):A%!40=V%:A%!0=((48+LENK$)DIV4)*4:$(A%+44)=K$+CHR$0:A%!16=3:SYS&400E7,17,A%,Gy%,c%
 1180ENDIF:NEXT:IFINKEY-1THEN
 1181IFs%>1THEN
 1182PROCs(q%,s%)
 1183ELSE:PROCI(q%,k%)
 1184ENDIF
 1185ENDIF:PROCJ(G%):IFyy%=16THENPROCC(G%)
 1186ENDPROC
 1187DEFFNo(V$):LOCALJ%,F$,f%,a_%,H$,f_%,I$:IFV$=""THEN=TRUE
 1188F$=FNJ(V$):f%=FNU(V$):a_%=TRUE:IFf%=2ANDLEFT$(F$,1)="!"THEN
 1189H$=RIGHT$(F$,LENF$-1):H$=FNh(H$):f_%=FNt:a_%=FALSE:FORJ%=1TOf_%:I$=M$(J%):IFINSTR(M$(J%),H$)THENa_%=TRUE
 1190NEXT
 1191ENDIF:=a_%
 1192DEFPROCjy(h$,V$):LOCALJ%,F$,f%,H$,f_%,Zl%,vu%,G$,Ll%,ry%:IFh$=""ORV$=""THENENDPROC
 1193F$=FNJ(V$):f%=FNU(V$):IFf%=2ANDLEFT$(F$,1)="!"THEN
 1194H$=RIGHT$(F$,LENF$-1):H$=FNh(H$):f_%=FNt:g%=0:Zl%=0:FORJ%=1TOf_%:g%=INSTR(M$(J%),H$):IFg%>0THEN
 1195Zl%=L%(J%):H$=M$(J%):J%=f_%+1
 1196ENDIF:NEXT:IFZl%>0THEN
 1197A%!0=-2:SYS&400CC,,A%:Ll%=A%!88:ry%=0:FORJ%=1TOLl%:A%!0=20:A%!&C=0:A%!16=0:SYS&400E7,19,A%,-2,J%TO,,vu%:IFvu%>0THEN
 1198SYS&42680,vu%TOG$:IFG$=H$THENry%=J%
 1199ENDIF:NEXT:IFry%>-1ANDFNZ(h$)THEN
 1200Gy%=-2:c%=ry%:x%=0:v%=0:A%!20=Gy%:A%!24=c%:A%!28=x%:A%!32=v%:A%!0=((48+LENh$)DIV4)*4:A%!4=0:A%!8=0:A%!&C=0:A%!16=3:A%!40=FNP(h$):$(A%+44)=h$+CHR$0:SYS&400E7,17,A%,Gy%,c%
 1201ENDIF
 1202ENDIF
 1203ENDIF:ENDPROC
 1204DEFFNt:LOCALW%,B%,Q%:Q%=0:SYS&42681,,A%,&600TO,hJ%:W%=A%:REPEAT:B%=W%!&C:IF(B%AND1)=0THEN
 1205Q%+=1:IFQ%<=30THEN
 1206L%(Q%)=W%!0:M$(Q%)=FNQ(W%!4)
 1207ENDIF
 1208ENDIF:W%+=16:UNTILW%>=hJ%:IFQ%>30THENQ%=30
 1209=Q%
 1210DEFFNh(H$):LOCALA$,U%:A$=H$:U%=0:IFvJ%>0THEN
 1211REPEAT:U%+=1:A$=C$(U%,0):UNTILA$=H$ORU%=vJ%:IFA$=H$THENA$=C$(U%,1)ELSEA$=H$
 1212ENDIF:=A$
c�> Drop
dR��ly(q%,Uy%,yy%):ș&400CF,,A%:x%=A%!0:v%=A%!4:Gy%=A%!&C:c%=A%!16:�q%=Gy%���-3�
e�Iy%�P��K_(q%,c%)
f�
g�:�Gy%=-2�c%=-1�
hl$="IconBar"
iB�:A%!0=20:A%!&C=0:A%!16=0:ș&400E7,19,A%,Gy%,c%�,,ou%:�ou%=0��
jș&42680,ou%�l$
k�:Wl%=�:Ȏl$�
l�"IconBar":�X_(q%,Uy%,yy%)
m!�"Pinboard":�I_(q%,yy%,x%,v%)
n!�"Filer":�r_(q%,Gy%,c%,x%,v%)
o�oy(q%,Uy%,Gy%,c%,x%,v%)
p�:�
qE��X_(q%,Uy%,yy%):�J%:s%=�W(q%):�J%=1�s%:�Uy%>0��My(q%,M%(J%),yy%)
r�:�J(G%):�
sg��I_(q%,yy%,x%,v%):�J%,S$,O%,t%:O%=x%:t%=v%:s%=�W(q%):�J%=1�s%:Sy%=M%(J%):S$=�C(G%,M%(J%)):�Z(S$)�
tm$=�O%:�O%<0�m$="0"+m$
ui$=�t%:�t%<0�i$="0"+i$
v<�("Pin "+S$+" "+m$+" "+i$):�J%�4=0�t%-=&74:O%=x%�O%+=&BC
w
�:�:�-1�
x
�s%>1�
y
�s(q%,s%)
z�:�I(q%,k%)
{�
|�:�J(G%):�yy%=16��C(G%)
}�
~���r_(q%,Gy%,c%,x%,v%):�Z$,F$,T_%,V%:Wl%=�:Z$=�C(G%,k%):F$=�J(Z$):T_%=�Ay(Z$):V%=�P(Z$):A%!0=(48+�Z$)��3:A%!4=0:A%!8=0:A%!&C=0:A%!16=1:A%!20=Gy%:A%!24=c%:A%!28=x%:A%!32=v%:A%!36=T_%:A%!40=V%:$(A%+44)=F$+�0:ș&400E7,18,A%,A%!20,A%!24:�
 ��e_(A%):�Wl%��R_(A%,q%,yy%)
��
�Y��R_(A%,q%,yy%):�J%,K%,s%,Wy$,S$,j$,F$,K$,Jy$:su%=�Uy:kl%=�m:s%=�W(q%):�s%=1�k%=M%(1)
�4Wy$=�Q(A%+44):j$=�z(Wy$):�J(G%):�-1�gu%=��gu%=�
�>�J%=1�s%:K$=�C(G%,M%(J%)):F$=�J(K$):Jy$=j$+"."+F$:�Z(K$)�
�	�su%�
�_ș&400DE,"Filer_Action"�eJ%:ș&40F80,eJ%,�z(K$):ș&40F81,eJ%,F$:ș&40F82,eJ%,0,kl%,j$,�j$+1
�;�:x$=�Ty(�):�fy("Copy files","Copy "+K$+" "+Jy$+" "+x$)
��
��:�:�su%�ș&400EF,0
�?A%!0=64:A%!&C=A%!8:A%!16=3:ș&400E7,18,A%,A%!20,A%!24:�gu%�
�
�s%>1�
�
�s(q%,s%)
��:�I(q%,k%)
��
��:�yy%=16��C(G%)
��
�*��fy(f$,Gy$):$C%=f$:ș&400EF,C%:�Gy$:�
�7ݤTy(Ji%):�C$,R%:R%=�m:C$="A":�du%�C$+="C"�C$+="~C"
��Ji%�C$+="D"�C$+="~D"
��Cl%�C$+="F"�C$+="~F"
�"C$+="~L":�nu%�C$+="N"�C$+="~N"
�)C$+="~P~QR~S~T":�Vu%�C$+="V"�C$+="~V"
�=C$
�ݤm:Cl%=(�s(&C6)�16)�16:du%=(�s(&C6)�32)�32:Vu%=(�s(&C6)�64)�64:nu%=(�s(&C6)�&80)�&80:R%=Vu%+(du%<<1)+(Cl%<<2)+(nu%<<3):=R%
�(ݤs(Zy%):�F_%:ș6,&A1,Zy%�,,F_%:=F_%
�c��oy(q%,Uy%,Gy%,c%,x%,v%):A%!&C=0:A%!20=Gy%:A%!24=c%:A%!28=x%:A%!32=v%:s%=�W(q%):�s%=1�k%=M%(1)
�0G%=�N(q%):�J%=1�s%:K$=�C(G%,M%(J%)):�Z(K$)�
�WV%=�P(K$):A%!40=V%:A%!0=((48+�K$)�4)*4:$(A%+44)=K$+�0:A%!16=3:ș&400E7,17,A%,Gy%,c%
�
�:�:�-1�
�
�s%>1�
�
�s(q%,s%)
��:�I(q%,k%)
��
��:�J(G%):�yy%=16��C(G%)
��
�-ݤo(V$):�J%,F$,f%,a_%,H$,f_%,I$:�V$=""�=�
�/F$=�J(V$):f%=�U(V$):a_%=�:�f%=2��F$,1)="!"�
�OH$=�F$,�F$-1):H$=�h(H$):f_%=�t:a_%=�:�J%=1�f_%:I$=M$(J%):�M$(J%),H$)�a_%=�
��
�
�:=a_%
�B��jy(h$,V$):�J%,F$,f%,H$,f_%,Zl%,vu%,G$,Ll%,ry%:�h$=""�V$=""��
�)F$=�J(V$):f%=�U(V$):�f%=2��F$,1)="!"�
�MH$=�F$,�F$-1):H$=�h(H$):f_%=�t:g%=0:Zl%=0:�J%=1�f_%:g%=�M$(J%),H$):�g%>0�
�!Zl%=L%(J%):H$=M$(J%):J%=f_%+1
��:�:�Zl%>0�
�mA%!0=-2:ș&400CC,,A%:Ll%=A%!88:ry%=0:�J%=1�Ll%:A%!0=20:A%!&C=0:A%!16=0:ș&400E7,19,A%,-2,J%�,,vu%:�vu%>0�
�!ș&42680,vu%�G$:�G$=H$�ry%=J%
��:�:�ry%>-1��Z(h$)�
��Gy%=-2:c%=ry%:x%=0:v%=0:A%!20=Gy%:A%!24=c%:A%!28=x%:A%!32=v%:A%!0=((48+�h$)�4)*4:A%!4=0:A%!8=0:A%!&C=0:A%!16=3:A%!40=�P(h$):$(A%+44)=h$+�0:ș&400E7,17,A%,Gy%,c%
��
��
��:�
�Iݤt:�W%,B%,Q%:Q%=0:ș&42681,,A%,&600�,hJ%:W%=A%:�:B%=W%!&C:�(B%�1)=0�
�Q%+=1:�Q%<=30�
�L%(Q%)=W%!0:M$(Q%)=�Q(W%!4)
��
�"�:W%+=16:�W%>=hJ%:�Q%>30�Q%=30
�=Q%
�%ݤh(H$):�A$,U%:A$=H$:U%=0:�vJ%>0�
�>�:U%+=1:A$=C$(U%,0):�A$=H$�U%=vJ%:�A$=H$�A$=C$(U%,1)�A$=H$
�	�:=A$
�
00000000  0d 04 63 0b f4 3e 20 44  72 6f 70 0d 04 64 52 dd  |..c..> Drop..dR.|
00000010  f2 6c 79 28 71 25 2c 55  79 25 2c 79 79 25 29 3a  |.ly(q%,Uy%,yy%):|
00000020  c8 99 26 34 30 30 43 46  2c 2c 41 25 3a 78 25 3d  |..&400CF,,A%:x%=|
00000030  41 25 21 30 3a 76 25 3d  41 25 21 34 3a 47 79 25  |A%!0:v%=A%!4:Gy%|
00000040  3d 41 25 21 26 43 3a 63  25 3d 41 25 21 31 36 3a  |=A%!&C:c%=A%!16:|
00000050  e7 71 25 3d 47 79 25 80  ac a6 2d 33 8c 0d 04 65  |.q%=Gy%...-3...e|
00000060  15 e7 49 79 25 f2 50 8b  f2 4b 5f 28 71 25 2c 63  |..Iy%.P..K_(q%,c|
00000070  25 29 0d 04 66 05 e1 0d  04 67 14 cd 3a e7 47 79  |%)..f....g..:.Gy|
00000080  25 3d 2d 32 80 63 25 3d  2d 31 8c 0d 04 68 10 6c  |%=-2.c%=-1...h.l|
00000090  24 3d 22 49 63 6f 6e 42  61 72 22 0d 04 69 42 cc  |$="IconBar"..iB.|
000000a0  3a 41 25 21 30 3d 32 30  3a 41 25 21 26 43 3d 30  |:A%!0=20:A%!&C=0|
000000b0  3a 41 25 21 31 36 3d 30  3a c8 99 26 34 30 30 45  |:A%!16=0:..&400E|
000000c0  37 2c 31 39 2c 41 25 2c  47 79 25 2c 63 25 b8 2c  |7,19,A%,Gy%,c%.,|
000000d0  2c 6f 75 25 3a e7 6f 75  25 3d 30 8c e1 0d 04 6a  |,ou%:.ou%=0....j|
000000e0  13 c8 99 26 34 32 36 38  30 2c 6f 75 25 b8 6c 24  |...&42680,ou%.l$|
000000f0  0d 04 6b 11 cd 3a 57 6c  25 3d a3 3a c8 8e 6c 24  |..k..:Wl%=.:..l$|
00000100  ca 0d 04 6c 1e c9 22 49  63 6f 6e 42 61 72 22 3a  |...l.."IconBar":|
00000110  f2 58 5f 28 71 25 2c 55  79 25 2c 79 79 25 29 0d  |.X_(q%,Uy%,yy%).|
00000120  04 6d 21 c9 22 50 69 6e  62 6f 61 72 64 22 3a f2  |.m!."Pinboard":.|
00000130  49 5f 28 71 25 2c 79 79  25 2c 78 25 2c 76 25 29  |I_(q%,yy%,x%,v%)|
00000140  0d 04 6e 21 c9 22 46 69  6c 65 72 22 3a f2 72 5f  |..n!."Filer":.r_|
00000150  28 71 25 2c 47 79 25 2c  63 25 2c 78 25 2c 76 25  |(q%,Gy%,c%,x%,v%|
00000160  29 0d 04 6f 1d 7f f2 6f  79 28 71 25 2c 55 79 25  |)..o...oy(q%,Uy%|
00000170  2c 47 79 25 2c 63 25 2c  78 25 2c 76 25 29 0d 04  |,Gy%,c%,x%,v%)..|
00000180  70 07 cb 3a e1 0d 04 71  45 dd f2 58 5f 28 71 25  |p..:...qE..X_(q%|
00000190  2c 55 79 25 2c 79 79 25  29 3a ea 4a 25 3a 73 25  |,Uy%,yy%):.J%:s%|
000001a0  3d a4 57 28 71 25 29 3a  e3 4a 25 3d 31 b8 73 25  |=.W(q%):.J%=1.s%|
000001b0  3a e7 55 79 25 3e 30 8c  f2 4d 79 28 71 25 2c 4d  |:.Uy%>0..My(q%,M|
000001c0  25 28 4a 25 29 2c 79 79  25 29 0d 04 72 0e ed 3a  |%(J%),yy%)..r..:|
000001d0  f2 4a 28 47 25 29 3a e1  0d 04 73 67 dd f2 49 5f  |.J(G%):...sg..I_|
000001e0  28 71 25 2c 79 79 25 2c  78 25 2c 76 25 29 3a ea  |(q%,yy%,x%,v%):.|
000001f0  4a 25 2c 53 24 2c 4f 25  2c 74 25 3a 4f 25 3d 78  |J%,S$,O%,t%:O%=x|
00000200  25 3a 74 25 3d 76 25 3a  73 25 3d a4 57 28 71 25  |%:t%=v%:s%=.W(q%|
00000210  29 3a e3 4a 25 3d 31 b8  73 25 3a 53 79 25 3d 4d  |):.J%=1.s%:Sy%=M|
00000220  25 28 4a 25 29 3a 53 24  3d a4 43 28 47 25 2c 4d  |%(J%):S$=.C(G%,M|
00000230  25 28 4a 25 29 29 3a e7  a4 5a 28 53 24 29 8c 0d  |%(J%)):..Z(S$)..|
00000240  04 74 1a 6d 24 3d c3 4f  25 3a e7 4f 25 3c 30 8c  |.t.m$=.O%:.O%<0.|
00000250  6d 24 3d 22 30 22 2b 6d  24 0d 04 75 1a 69 24 3d  |m$="0"+m$..u.i$=|
00000260  c3 74 25 3a e7 74 25 3c  30 8c 69 24 3d 22 30 22  |.t%:.t%<0.i$="0"|
00000270  2b 69 24 0d 04 76 3c ff  28 22 50 69 6e 20 22 2b  |+i$..v<.("Pin "+|
00000280  53 24 2b 22 20 22 2b 6d  24 2b 22 20 22 2b 69 24  |S$+" "+m$+" "+i$|
00000290  29 3a e7 4a 25 83 34 3d  30 8c 74 25 2d 3d 26 37  |):.J%.4=0.t%-=&7|
000002a0  34 3a 4f 25 3d 78 25 8b  4f 25 2b 3d 26 42 43 0d  |4:O%=x%.O%+=&BC.|
000002b0  04 77 0d cd 3a ed 3a e7  a6 2d 31 8c 0d 04 78 0a  |.w..:.:..-1...x.|
000002c0  e7 73 25 3e 31 8c 0d 04  79 0d f2 73 28 71 25 2c  |.s%>1...y..s(q%,|
000002d0  73 25 29 0d 04 7a 0f cc  3a f2 49 28 71 25 2c 6b  |s%)..z..:.I(q%,k|
000002e0  25 29 0d 04 7b 05 cd 0d  04 7c 1b cd 3a f2 4a 28  |%)..{....|..:.J(|
000002f0  47 25 29 3a e7 79 79 25  3d 31 36 8c f2 43 28 47  |G%):.yy%=16..C(G|
00000300  25 29 0d 04 7d 05 e1 0d  04 7e ed dd f2 72 5f 28  |%)..}....~...r_(|
00000310  71 25 2c 47 79 25 2c 63  25 2c 78 25 2c 76 25 29  |q%,Gy%,c%,x%,v%)|
00000320  3a ea 5a 24 2c 46 24 2c  54 5f 25 2c 56 25 3a 57  |:.Z$,F$,T_%,V%:W|
00000330  6c 25 3d b9 3a 5a 24 3d  a4 43 28 47 25 2c 6b 25  |l%=.:Z$=.C(G%,k%|
00000340  29 3a 46 24 3d a4 4a 28  5a 24 29 3a 54 5f 25 3d  |):F$=.J(Z$):T_%=|
00000350  a4 41 79 28 5a 24 29 3a  56 25 3d a4 50 28 5a 24  |.Ay(Z$):V%=.P(Z$|
00000360  29 3a 41 25 21 30 3d 28  34 38 2b a9 5a 24 29 80  |):A%!0=(48+.Z$).|
00000370  ac 33 3a 41 25 21 34 3d  30 3a 41 25 21 38 3d 30  |.3:A%!4=0:A%!8=0|
00000380  3a 41 25 21 26 43 3d 30  3a 41 25 21 31 36 3d 31  |:A%!&C=0:A%!16=1|
00000390  3a 41 25 21 32 30 3d 47  79 25 3a 41 25 21 32 34  |:A%!20=Gy%:A%!24|
000003a0  3d 63 25 3a 41 25 21 32  38 3d 78 25 3a 41 25 21  |=c%:A%!28=x%:A%!|
000003b0  33 32 3d 76 25 3a 41 25  21 33 36 3d 54 5f 25 3a  |32=v%:A%!36=T_%:|
000003c0  41 25 21 34 30 3d 56 25  3a 24 28 41 25 2b 34 34  |A%!40=V%:$(A%+44|
000003d0  29 3d 46 24 2b bd 30 3a  c8 99 26 34 30 30 45 37  |)=F$+.0:..&400E7|
000003e0  2c 31 38 2c 41 25 2c 41  25 21 32 30 2c 41 25 21  |,18,A%,A%!20,A%!|
000003f0  32 34 3a e1 0d 04 7f 20  dd f2 65 5f 28 41 25 29  |24:.... ..e_(A%)|
00000400  3a e7 57 6c 25 8c f2 52  5f 28 41 25 2c 71 25 2c  |:.Wl%..R_(A%,q%,|
00000410  79 79 25 29 0d 04 80 05  e1 0d 04 81 59 dd f2 52  |yy%)........Y..R|
00000420  5f 28 41 25 2c 71 25 2c  79 79 25 29 3a ea 4a 25  |_(A%,q%,yy%):.J%|
00000430  2c 4b 25 2c 73 25 2c 57  79 24 2c 53 24 2c 6a 24  |,K%,s%,Wy$,S$,j$|
00000440  2c 46 24 2c 4b 24 2c 4a  79 24 3a 73 75 25 3d a4  |,F$,K$,Jy$:su%=.|
00000450  55 79 3a 6b 6c 25 3d a4  6d 3a 73 25 3d a4 57 28  |Uy:kl%=.m:s%=.W(|
00000460  71 25 29 3a e7 73 25 3d  31 8c 6b 25 3d 4d 25 28  |q%):.s%=1.k%=M%(|
00000470  31 29 0d 04 82 34 57 79  24 3d a4 51 28 41 25 2b  |1)...4Wy$=.Q(A%+|
00000480  34 34 29 3a 6a 24 3d a4  7a 28 57 79 24 29 3a f2  |44):j$=.z(Wy$):.|
00000490  4a 28 47 25 29 3a e7 a6  2d 31 8c 67 75 25 3d b9  |J(G%):..-1.gu%=.|
000004a0  8b 67 75 25 3d a3 0d 04  83 3e e3 4a 25 3d 31 b8  |.gu%=....>.J%=1.|
000004b0  73 25 3a 4b 24 3d a4 43  28 47 25 2c 4d 25 28 4a  |s%:K$=.C(G%,M%(J|
000004c0  25 29 29 3a 46 24 3d a4  4a 28 4b 24 29 3a 4a 79  |%)):F$=.J(K$):Jy|
000004d0  24 3d 6a 24 2b 22 2e 22  2b 46 24 3a e7 a4 5a 28  |$=j$+"."+F$:..Z(|
000004e0  4b 24 29 8c 0d 04 84 09  e7 73 75 25 8c 0d 04 85  |K$)......su%....|
000004f0  5f c8 99 26 34 30 30 44  45 2c 22 46 69 6c 65 72  |_..&400DE,"Filer|
00000500  5f 41 63 74 69 6f 6e 22  b8 65 4a 25 3a c8 99 26  |_Action".eJ%:..&|
00000510  34 30 46 38 30 2c 65 4a  25 2c a4 7a 28 4b 24 29  |40F80,eJ%,.z(K$)|
00000520  3a c8 99 26 34 30 46 38  31 2c 65 4a 25 2c 46 24  |:..&40F81,eJ%,F$|
00000530  3a c8 99 26 34 30 46 38  32 2c 65 4a 25 2c 30 2c  |:..&40F82,eJ%,0,|
00000540  6b 6c 25 2c 6a 24 2c a9  6a 24 2b 31 0d 04 86 3b  |kl%,j$,.j$+1...;|
00000550  cc 3a 78 24 3d a4 54 79  28 a3 29 3a f2 66 79 28  |.:x$=.Ty(.):.fy(|
00000560  22 43 6f 70 79 20 66 69  6c 65 73 22 2c 22 43 6f  |"Copy files","Co|
00000570  70 79 20 22 2b 4b 24 2b  22 20 22 2b 4a 79 24 2b  |py "+K$+" "+Jy$+|
00000580  22 20 22 2b 78 24 29 0d  04 87 05 cd 0d 04 88 18  |" "+x$).........|
00000590  cd 3a ed 3a e7 ac 73 75  25 8c c8 99 26 34 30 30  |.:.:..su%...&400|
000005a0  45 46 2c 30 0d 04 89 3f  41 25 21 30 3d 36 34 3a  |EF,0...?A%!0=64:|
000005b0  41 25 21 26 43 3d 41 25  21 38 3a 41 25 21 31 36  |A%!&C=A%!8:A%!16|
000005c0  3d 33 3a c8 99 26 34 30  30 45 37 2c 31 38 2c 41  |=3:..&400E7,18,A|
000005d0  25 2c 41 25 21 32 30 2c  41 25 21 32 34 3a e7 67  |%,A%!20,A%!24:.g|
000005e0  75 25 8c 0d 04 8a 0a e7  73 25 3e 31 8c 0d 04 8b  |u%......s%>1....|
000005f0  0d f2 73 28 71 25 2c 73  25 29 0d 04 8c 0f cc 3a  |..s(q%,s%).....:|
00000600  f2 49 28 71 25 2c 6b 25  29 0d 04 8d 05 cd 0d 04  |.I(q%,k%).......|
00000610  8e 14 cd 3a e7 79 79 25  3d 31 36 8c f2 43 28 47  |...:.yy%=16..C(G|
00000620  25 29 0d 04 8f 05 e1 0d  04 90 2a dd f2 66 79 28  |%)........*..fy(|
00000630  66 24 2c 47 79 24 29 3a  24 43 25 3d 66 24 3a c8  |f$,Gy$):$C%=f$:.|
00000640  99 26 34 30 30 45 46 2c  43 25 3a ff 47 79 24 3a  |.&400EF,C%:.Gy$:|
00000650  e1 0d 04 91 37 dd a4 54  79 28 4a 69 25 29 3a ea  |....7..Ty(Ji%):.|
00000660  43 24 2c 52 25 3a 52 25  3d a4 6d 3a 43 24 3d 22  |C$,R%:R%=.m:C$="|
00000670  41 22 3a e7 64 75 25 8c  43 24 2b 3d 22 43 22 8b  |A":.du%.C$+="C".|
00000680  43 24 2b 3d 22 7e 43 22  0d 04 92 19 e7 4a 69 25  |C$+="~C".....Ji%|
00000690  8c 43 24 2b 3d 22 44 22  8b 43 24 2b 3d 22 7e 44  |.C$+="D".C$+="~D|
000006a0  22 0d 04 93 19 e7 43 6c  25 8c 43 24 2b 3d 22 46  |".....Cl%.C$+="F|
000006b0  22 8b 43 24 2b 3d 22 7e  46 22 0d 04 94 22 43 24  |".C$+="~F"..."C$|
000006c0  2b 3d 22 7e 4c 22 3a e7  6e 75 25 8c 43 24 2b 3d  |+="~L":.nu%.C$+=|
000006d0  22 4e 22 8b 43 24 2b 3d  22 7e 4e 22 0d 04 95 29  |"N".C$+="~N"...)|
000006e0  43 24 2b 3d 22 7e 50 7e  51 52 7e 53 7e 54 22 3a  |C$+="~P~QR~S~T":|
000006f0  e7 56 75 25 8c 43 24 2b  3d 22 56 22 8b 43 24 2b  |.Vu%.C$+="V".C$+|
00000700  3d 22 7e 56 22 0d 04 96  07 3d 43 24 0d 04 97 7f  |="~V"....=C$....|
00000710  dd a4 6d 3a 43 6c 25 3d  28 a4 73 28 26 43 36 29  |..m:Cl%=(.s(&C6)|
00000720  80 31 36 29 81 31 36 3a  64 75 25 3d 28 a4 73 28  |.16).16:du%=(.s(|
00000730  26 43 36 29 80 33 32 29  81 33 32 3a 56 75 25 3d  |&C6).32).32:Vu%=|
00000740  28 a4 73 28 26 43 36 29  80 36 34 29 81 36 34 3a  |(.s(&C6).64).64:|
00000750  6e 75 25 3d 28 a4 73 28  26 43 36 29 80 26 38 30  |nu%=(.s(&C6).&80|
00000760  29 81 26 38 30 3a 52 25  3d 56 75 25 2b 28 64 75  |).&80:R%=Vu%+(du|
00000770  25 3c 3c 31 29 2b 28 43  6c 25 3c 3c 32 29 2b 28  |%<<1)+(Cl%<<2)+(|
00000780  6e 75 25 3c 3c 33 29 3a  3d 52 25 0d 04 98 28 dd  |nu%<<3):=R%...(.|
00000790  a4 73 28 5a 79 25 29 3a  ea 46 5f 25 3a c8 99 36  |.s(Zy%):.F_%:..6|
000007a0  2c 26 41 31 2c 5a 79 25  b8 2c 2c 46 5f 25 3a 3d  |,&A1,Zy%.,,F_%:=|
000007b0  46 5f 25 0d 04 99 63 dd  f2 6f 79 28 71 25 2c 55  |F_%...c..oy(q%,U|
000007c0  79 25 2c 47 79 25 2c 63  25 2c 78 25 2c 76 25 29  |y%,Gy%,c%,x%,v%)|
000007d0  3a 41 25 21 26 43 3d 30  3a 41 25 21 32 30 3d 47  |:A%!&C=0:A%!20=G|
000007e0  79 25 3a 41 25 21 32 34  3d 63 25 3a 41 25 21 32  |y%:A%!24=c%:A%!2|
000007f0  38 3d 78 25 3a 41 25 21  33 32 3d 76 25 3a 73 25  |8=x%:A%!32=v%:s%|
00000800  3d a4 57 28 71 25 29 3a  e7 73 25 3d 31 8c 6b 25  |=.W(q%):.s%=1.k%|
00000810  3d 4d 25 28 31 29 0d 04  9a 30 47 25 3d a4 4e 28  |=M%(1)...0G%=.N(|
00000820  71 25 29 3a e3 4a 25 3d  31 b8 73 25 3a 4b 24 3d  |q%):.J%=1.s%:K$=|
00000830  a4 43 28 47 25 2c 4d 25  28 4a 25 29 29 3a e7 a4  |.C(G%,M%(J%)):..|
00000840  5a 28 4b 24 29 8c 0d 04  9b 57 56 25 3d a4 50 28  |Z(K$)....WV%=.P(|
00000850  4b 24 29 3a 41 25 21 34  30 3d 56 25 3a 41 25 21  |K$):A%!40=V%:A%!|
00000860  30 3d 28 28 34 38 2b a9  4b 24 29 81 34 29 2a 34  |0=((48+.K$).4)*4|
00000870  3a 24 28 41 25 2b 34 34  29 3d 4b 24 2b bd 30 3a  |:$(A%+44)=K$+.0:|
00000880  41 25 21 31 36 3d 33 3a  c8 99 26 34 30 30 45 37  |A%!16=3:..&400E7|
00000890  2c 31 37 2c 41 25 2c 47  79 25 2c 63 25 0d 04 9c  |,17,A%,Gy%,c%...|
000008a0  0d cd 3a ed 3a e7 a6 2d  31 8c 0d 04 9d 0a e7 73  |..:.:..-1......s|
000008b0  25 3e 31 8c 0d 04 9e 0d  f2 73 28 71 25 2c 73 25  |%>1......s(q%,s%|
000008c0  29 0d 04 9f 0f cc 3a f2  49 28 71 25 2c 6b 25 29  |).....:.I(q%,k%)|
000008d0  0d 04 a0 05 cd 0d 04 a1  1b cd 3a f2 4a 28 47 25  |..........:.J(G%|
000008e0  29 3a e7 79 79 25 3d 31  36 8c f2 43 28 47 25 29  |):.yy%=16..C(G%)|
000008f0  0d 04 a2 05 e1 0d 04 a3  2d dd a4 6f 28 56 24 29  |........-..o(V$)|
00000900  3a ea 4a 25 2c 46 24 2c  66 25 2c 61 5f 25 2c 48  |:.J%,F$,f%,a_%,H|
00000910  24 2c 66 5f 25 2c 49 24  3a e7 56 24 3d 22 22 8c  |$,f_%,I$:.V$="".|
00000920  3d b9 0d 04 a4 2f 46 24  3d a4 4a 28 56 24 29 3a  |=..../F$=.J(V$):|
00000930  66 25 3d a4 55 28 56 24  29 3a 61 5f 25 3d b9 3a  |f%=.U(V$):a_%=.:|
00000940  e7 66 25 3d 32 80 c0 46  24 2c 31 29 3d 22 21 22  |.f%=2..F$,1)="!"|
00000950  8c 0d 04 a5 4f 48 24 3d  c2 46 24 2c a9 46 24 2d  |....OH$=.F$,.F$-|
00000960  31 29 3a 48 24 3d a4 68  28 48 24 29 3a 66 5f 25  |1):H$=.h(H$):f_%|
00000970  3d a4 74 3a 61 5f 25 3d  a3 3a e3 4a 25 3d 31 b8  |=.t:a_%=.:.J%=1.|
00000980  66 5f 25 3a 49 24 3d 4d  24 28 4a 25 29 3a e7 a7  |f_%:I$=M$(J%):..|
00000990  4d 24 28 4a 25 29 2c 48  24 29 8c 61 5f 25 3d b9  |M$(J%),H$).a_%=.|
000009a0  0d 04 a6 05 ed 0d 04 a7  0a cd 3a 3d 61 5f 25 0d  |..........:=a_%.|
000009b0  04 a8 42 dd f2 6a 79 28  68 24 2c 56 24 29 3a ea  |..B..jy(h$,V$):.|
000009c0  4a 25 2c 46 24 2c 66 25  2c 48 24 2c 66 5f 25 2c  |J%,F$,f%,H$,f_%,|
000009d0  5a 6c 25 2c 76 75 25 2c  47 24 2c 4c 6c 25 2c 72  |Zl%,vu%,G$,Ll%,r|
000009e0  79 25 3a e7 68 24 3d 22  22 84 56 24 3d 22 22 8c  |y%:.h$="".V$="".|
000009f0  e1 0d 04 a9 29 46 24 3d  a4 4a 28 56 24 29 3a 66  |....)F$=.J(V$):f|
00000a00  25 3d a4 55 28 56 24 29  3a e7 66 25 3d 32 80 c0  |%=.U(V$):.f%=2..|
00000a10  46 24 2c 31 29 3d 22 21  22 8c 0d 04 aa 4d 48 24  |F$,1)="!"....MH$|
00000a20  3d c2 46 24 2c a9 46 24  2d 31 29 3a 48 24 3d a4  |=.F$,.F$-1):H$=.|
00000a30  68 28 48 24 29 3a 66 5f  25 3d a4 74 3a 67 25 3d  |h(H$):f_%=.t:g%=|
00000a40  30 3a 5a 6c 25 3d 30 3a  e3 4a 25 3d 31 b8 66 5f  |0:Zl%=0:.J%=1.f_|
00000a50  25 3a 67 25 3d a7 4d 24  28 4a 25 29 2c 48 24 29  |%:g%=.M$(J%),H$)|
00000a60  3a e7 67 25 3e 30 8c 0d  04 ab 21 5a 6c 25 3d 4c  |:.g%>0....!Zl%=L|
00000a70  25 28 4a 25 29 3a 48 24  3d 4d 24 28 4a 25 29 3a  |%(J%):H$=M$(J%):|
00000a80  4a 25 3d 66 5f 25 2b 31  0d 04 ac 0f cd 3a ed 3a  |J%=f_%+1.....:.:|
00000a90  e7 5a 6c 25 3e 30 8c 0d  04 ad 6d 41 25 21 30 3d  |.Zl%>0....mA%!0=|
00000aa0  2d 32 3a c8 99 26 34 30  30 43 43 2c 2c 41 25 3a  |-2:..&400CC,,A%:|
00000ab0  4c 6c 25 3d 41 25 21 38  38 3a 72 79 25 3d 30 3a  |Ll%=A%!88:ry%=0:|
00000ac0  e3 4a 25 3d 31 b8 4c 6c  25 3a 41 25 21 30 3d 32  |.J%=1.Ll%:A%!0=2|
00000ad0  30 3a 41 25 21 26 43 3d  30 3a 41 25 21 31 36 3d  |0:A%!&C=0:A%!16=|
00000ae0  30 3a c8 99 26 34 30 30  45 37 2c 31 39 2c 41 25  |0:..&400E7,19,A%|
00000af0  2c 2d 32 2c 4a 25 b8 2c  2c 76 75 25 3a e7 76 75  |,-2,J%.,,vu%:.vu|
00000b00  25 3e 30 8c 0d 04 ae 21  c8 99 26 34 32 36 38 30  |%>0....!..&42680|
00000b10  2c 76 75 25 b8 47 24 3a  e7 47 24 3d 48 24 8c 72  |,vu%.G$:.G$=H$.r|
00000b20  79 25 3d 4a 25 0d 04 af  17 cd 3a ed 3a e7 72 79  |y%=J%.....:.:.ry|
00000b30  25 3e 2d 31 80 a4 5a 28  68 24 29 8c 0d 04 b0 a4  |%>-1..Z(h$).....|
00000b40  47 79 25 3d 2d 32 3a 63  25 3d 72 79 25 3a 78 25  |Gy%=-2:c%=ry%:x%|
00000b50  3d 30 3a 76 25 3d 30 3a  41 25 21 32 30 3d 47 79  |=0:v%=0:A%!20=Gy|
00000b60  25 3a 41 25 21 32 34 3d  63 25 3a 41 25 21 32 38  |%:A%!24=c%:A%!28|
00000b70  3d 78 25 3a 41 25 21 33  32 3d 76 25 3a 41 25 21  |=x%:A%!32=v%:A%!|
00000b80  30 3d 28 28 34 38 2b a9  68 24 29 81 34 29 2a 34  |0=((48+.h$).4)*4|
00000b90  3a 41 25 21 34 3d 30 3a  41 25 21 38 3d 30 3a 41  |:A%!4=0:A%!8=0:A|
00000ba0  25 21 26 43 3d 30 3a 41  25 21 31 36 3d 33 3a 41  |%!&C=0:A%!16=3:A|
00000bb0  25 21 34 30 3d a4 50 28  68 24 29 3a 24 28 41 25  |%!40=.P(h$):$(A%|
00000bc0  2b 34 34 29 3d 68 24 2b  bd 30 3a c8 99 26 34 30  |+44)=h$+.0:..&40|
00000bd0  30 45 37 2c 31 37 2c 41  25 2c 47 79 25 2c 63 25  |0E7,17,A%,Gy%,c%|
00000be0  0d 04 b1 05 cd 0d 04 b2  05 cd 0d 04 b3 07 cd 3a  |...............:|
00000bf0  e1 0d 04 b4 49 dd a4 74  3a ea 57 25 2c 42 25 2c  |....I..t:.W%,B%,|
00000c00  51 25 3a 51 25 3d 30 3a  c8 99 26 34 32 36 38 31  |Q%:Q%=0:..&42681|
00000c10  2c 2c 41 25 2c 26 36 30  30 b8 2c 68 4a 25 3a 57  |,,A%,&600.,hJ%:W|
00000c20  25 3d 41 25 3a f5 3a 42  25 3d 57 25 21 26 43 3a  |%=A%:.:B%=W%!&C:|
00000c30  e7 28 42 25 80 31 29 3d  30 8c 0d 04 b5 12 51 25  |.(B%.1)=0.....Q%|
00000c40  2b 3d 31 3a e7 51 25 3c  3d 33 30 8c 0d 04 b6 1f  |+=1:.Q%<=30.....|
00000c50  4c 25 28 51 25 29 3d 57  25 21 30 3a 4d 24 28 51  |L%(Q%)=W%!0:M$(Q|
00000c60  25 29 3d a4 51 28 57 25  21 34 29 0d 04 b7 05 cd  |%)=.Q(W%!4).....|
00000c70  0d 04 b8 22 cd 3a 57 25  2b 3d 31 36 3a fd 57 25  |...".:W%+=16:.W%|
00000c80  3e 3d 68 4a 25 3a e7 51  25 3e 33 30 8c 51 25 3d  |>=hJ%:.Q%>30.Q%=|
00000c90  33 30 0d 04 b9 07 3d 51  25 0d 04 ba 25 dd a4 68  |30....=Q%...%..h|
00000ca0  28 48 24 29 3a ea 41 24  2c 55 25 3a 41 24 3d 48  |(H$):.A$,U%:A$=H|
00000cb0  24 3a 55 25 3d 30 3a e7  76 4a 25 3e 30 8c 0d 04  |$:U%=0:.vJ%>0...|
00000cc0  bb 3e f5 3a 55 25 2b 3d  31 3a 41 24 3d 43 24 28  |.>.:U%+=1:A$=C$(|
00000cd0  55 25 2c 30 29 3a fd 41  24 3d 48 24 84 55 25 3d  |U%,0):.A$=H$.U%=|
00000ce0  76 4a 25 3a e7 41 24 3d  48 24 8c 41 24 3d 43 24  |vJ%:.A$=H$.A$=C$|
00000cf0  28 55 25 2c 31 29 8b 41  24 3d 48 24 0d 04 bc 09  |(U%,1).A$=H$....|
00000d00  cd 3a 3d 41 24 0d ff                              |.:=A$..|
00000d07