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