 
Т > GetMeta %Т Extract metadata from ZIP files ,Т v1.00 20-Jul-2001 JGH: Initial version (/Т Needs ability to clear all MetaData files 2Т Needs a better name <4Т Needs to strip terminal "." from dir leafnames F: P: ZEч ctrl%30,data%80,extra%128,zp%6:A$=єOS_GetEnv:in%=0:out%=0:sj%=0 dч info% 31,metadata% 127 n7quit$=єcl(" -q",1):debug%=єcl("-de",0):Н ┘ Ж:Я:Рend xQГ єcl("-?",0):Я"Syntax: *UnZip infile -d path -f -u -v -X -quit command":Рend ┌Gfsh%=єcl("-f",0):upd%=єcl("-u",0):dest$=єcl("-d",1):vb%=єcl("-v",0) ▄"xtr%=єcl("-X",0):in$=єcl("",0) √└Г debug%:Я" run$='"run$"'"'"quit$='"quit$"'"'"  in$='"in$"'"'"dest$='"dest$"'"'"freshen=";fsh%;"  update=";upd%;"  verbose=";vb% ═: ╙'Н ┘ Ж:РCloseAll:Я" at line ";·:Рend ЄX%=ctrl%:Y%=X%│256:fln%=11 Ў)max%=⌠-▓-6000:ч mem% max%:wr%=2:rd%=4 хOГ in$="":Х"File to extract from: "in$:Г dest$="":Х"Destination path: "dest$ р5in%=▌(in$):Г in%=0:Я"File '"in$"' not found":Рend э:Г єget32<>&04034B50:Я"Not a ZIP file":ы#in%:in%=0:Рend Ф(РCheckFS:Г dest$<>"":dest$=dest$+"." П о#in%=0:У:id%=єget32:done%=ё З#  Г id%=&04034B50:Рfile:done%=╧"  Г id%=&02014B50:Рdir:done%=╧"  Г id%=&06054B50:Рeof:done%=╧6  Г ╛done%:о#in%=▐#in%-5:Я"Damaged ZIP file?";Ґ13;"+Щ id%=&02014B50 └ id%=&06054B50 └ е#in%,ы#in%:in%=06
Рend:Ю@:JщРCloseAll:*ExecT#in%=in%:Г in%:A%=in%:in%=0:ы#A%^(out%=out%:Г out%:A%=out%:out%=0:ы#A%h#md%=md%:Г md%:A%=md%:md%=0:ы#A%rА|:├
щРfile░4verneeded%=єget16:flags%=єget16:comptype%=єget16 +mtime%=єget16:mdate%=єget16:crc%=єget32є%compsize%=єget32:filesize%=єget32ў$namelen%=єget16:extralen%=єget16╦*name$="":Ц x%=0 ╦ 127 ┬4:extra%!x%=0:Мб6Г namelen%:Ц x%=1 ╦ namelen%:name$=name$+Ґ  #in%:Мл6Г extralen%:Ц x%=0 ╦ extralen%-1:extra%?x%= #in%:Мж!hdrid%=єex16(0):dsz%=єex16(2)Ю@sig%=extra%!4:load%=extra%!8:exec%=extra%!12:attr%=extra%!16ЙCctime%=єex16(24):cdate%=єex16(26):acc%=єex16(28):aux%=єex16(30)Т/Т hdrid%=&4341 -> Created on Acorn computerЧ2Т dsz% usually =&14, ie 20 bytes of extra dataТ sig%='ARC0'  -> Archive*name$=єconvertname(name$):Я name$;" ";РexMeta:Я:А&:0 щєex16(A%)=extra%!A% ─ &FFFF::DщРunzipNЯ"Type ";comptype%;" - ";XГ comptype%=0:Рunzipfile:АbЯ"not supported";l4о#in%=▐#in%+compsize%:Г(flags%─8):о#in%=▐#in%+12vА─:┼щРunzipfile■щРexMeta·Рensurepath(dest$+name$)╗path$=dest$+name$╡A%=╘ path$:У╪%A%=A%-1:Щ аpath$,A%,1)="." └ A%<2ф>leaf$=аpath$,A%+1):Г бleaf$,1)=".":leaf$=юleaf$,╘ leaf$-1)пpath$=юpath$,A%)зТ MetaData contents:ДDТ NAME+SPC TAB LOAD EXEC LEN ACC mDATE mTIME cDATE cTIME ACC AUXНCТ    10     1   4    4    4   1    2     3     2     3    2   2Ь.Т Dates and times are in fileserver format:2Т cdate, ctime, mdate, mtime are in ZIP format/Т Need to be outputted in fileserver format :*@info%!0=load%:info%!4=exec%:info%!8=filesize%:info%!12=attr%45info%!13=єfsDate(mdate%):info%!15=єfsTime(mtime%)>5info%!18=єfsDate(cdate%):info%!20=єfsTime(ctime%)H*info%!23=acc%:info%!25=aux%:info%!28=0R:\ filename$=leaf$:mpath$=path$fРSetExtras(27,crc%)p4о#in%=▐#in%+compsize%:Г(flags%─8):о#in%=▐#in%+12zА└#Я"Write to ";path$;"!!MetaData"▌ Я юleaf$+"         ",10);Ґ9;≤;Я єh0(load%,8)єh0(exec%,8)єh0(filesize%,8)єh0(attr%,2);╒3Я єh0(єfsDate(mdate%),4)єh0(єfsTime(mtime%),6);╛3Я єh0(єfsDate(cdate%),4)єh0(єfsTime(ctime%),6);ІЯ єh0(acc%,4)єh0(aux%,4)юАй;т7щєfsDate(A%):Т Convert ZIP format date to FS formatчЙ yr%,mn%,dy%Х>dy%=A% ─ &1F:mn%=(A% ─ &1E0)│32:yr%=1980+(A% ─ &FE00)│&200Р;yr%=yr%-1981:=dy%└ mn%*256 └(yr%─15)*&1000 └(yr%─&70)*2Э:7щєfsTime(A%):Т Convert ZIP format time to FS formatЙ hr%,mn%,sc%7sc%=(A%─&1F)*2:mn%=(A%─&3E0)│32:hr%=(A%─&F800)│&800$=hr%+256*mn%+65536*sc%.:8+Г бname$,1)=".":А:Т Should set dir infoB8Ъ"Save "+dest$+name$+" 0+"+ц~(єmin(filesize%,&F000))L*out%=0:Г filesize%:out%=ў(dest$+name$)V3Г comptype%=0:Рextract ▀ Г comptype%=8:Рinflate`Г(flags%─8):о#in%=▐#in%+12j)О8,8,8:Я"Done.";:Г out%:ы#out%:out%=0tLГ hdrid%=&4341:X%!2=load%:X%!6=exec%:X%!14=attr%:A%=єfile(dest$+name$,1)~.Г dsz%<25 └xtr%=0:А:Т No additional extras┬Т PRINT"mTime: ";~mtime%▓Т PRINT"mDate: ";~mdate%°Т PRINT"cTime: ";~ctime%іТ PRINT"cDate: ";~cdate%╟?Г(sj%─3):Ъ"Account "+dest$+name$+" "+ц~acc%+" ("+ц~aux%+")"╨Ад:н щРextract:Я"Extracting ...";ьРtrans:АБ:ЛщРinflate:Я"Inflating ...";Жо#in%=▐#in%+compsize%:А :
/щєconvertname(A$):Г їA$,".")+їA$,"/")=0:=A$JЦ A%=1╦╘ A$:B%=≈ аA$,A%,1):Г(B%─&FE)=46:A$=юA$,A%-1)+Ґ(B%┌1)+аA$,A%+1)!М:A%=0:У:B%=їA$+".",".",A%+1)(1Г B%-A%>fln%:A$=юA$,A%+10)+аA$,B%):B%=A%+fln%2A%=B%:Щ B%>=╘ A$:=A$<:FFщРensurepath(A$):Т A$="FILE" or ="DIR.DIR.DIR.FILE" or ="DIR.DIR."PГ їA$,".")=0:АZ:A$=A$+".":У A$=юA$,╘ A$-1):Щ бA$,1)=".":A$=юA$,╘ A$-1)dГ єfile(A$,5)=2:АnB$=A$:A$="":УxFГ B$<>"":A%=їB$+".","."):A$=A$+ю".",A$<>"")+юB$,A%-1):B$=аB$,A%+1)┌ Г єfile(A$,5)<>2:Ъ"CDir "+A$▄Щ B$="":А√:═щРdir:А╙щРeof:АЄ:Ў5щРCheckFS:Й X%,Y%:X%=data%:Y%=X%│256:sj%=0:A%=єfsхГ A%=16:sj%=1:АрГ A%<>5:Аэ&!X%=&19002000:X%!4=0:A%=&14:ж&FFF1ФГ ї$(X%+4),"SJ"):sj%=2:АПАЗ:щєget329zp%?0= #in%:zp%?1= #in%:zp%?2= #in%:zp%?3= #in%:=!zp%щєget16"= #in%+(&100* #in%),:66щєsofar(A%,B%):О8,8,8:Я єd0(100*A%│ B%,2);"%";:=""@$щєd0(A%,N%)=б"00000000"+ц A%,N%)J#щєh0(A%,N%)=б"0000000"+ц~A%,N%)T"щєmin(A%,B%):Г A%<B%:=A% ▀ =B%^:h"щРtrans:crc%=0:Г filesize%=0:Аr.crc%=-1:ptr%=0:У:Я єsofar(ptr%,filesize%);|7len%=max%:Г ptr%+len%>filesize%:len%=filesize%-ptr%├/Рgbpb(rd%,in%,mem%,len%,ptr%):Т PROCCalcCRC░$Рgbpb(wr%,out%,mem%,len%,▐#out%) >ptr%=ptr%+len%:Щ ptr%>=filesize%:Т crc%=FNrev32(crc%)EOR-1єАў:╦#щРgbpb(A%,chn%,addr%,num%,ptr%)б5!X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:ж &FFD1:Ал!щєfs:Й A%,Y%,E%:=(╨&FFDA)─&FFж:ЮщРput32(A%):!&70=A%Й5у#out%,?&70:у#out%,?&71:у#out%,?&72:у#out%,?&73:АТщРput16(A%):!&70=A%Чу#out%,?&70:у#out%,?&71:А:/щРend:Г quit$<>"":A$=quit$:quit$="":Рos(A$)Ю:А&Bщєfile(A$,A%):$data%=A$:?X%=data%:X%?1=data%│256:=(╨&FFDD)─&FF07щєOS_GetEnv:Й A$:A%=0:X%=1:os%=((╨&FFF4)─&FF00)│256:BГ os%=6─░>&8000:х≥"OS_GetEnv"╦A$:A$=аA$,1+їA$," ",1+їA$," ")))DГ os%=32:A$=$&100N6Г ╘ A$=0:Г?(╦P-3):A$=$&600 ▀ Г ╘ A$=0:A$=$(░-&300)XHA%=0:У A%=A%+1:Щ A%=╘ A$└≈ аA$,A%)<32└≈ аA$,A%)>126:Г A%<>╘ A$:A$=""b8A%=їA$+" "," "):run$=юA$,A%-1):Г run$<>"":=аA$,A%+1)luX%=ctrl%:Y%=X%│256:A%=9:?X%=0:X%!1=data%:!data%=0:ж&FFD1:Г!data%─?data%+data%?2<>8:data%?(1+data%)=13:=$(data%+1)v=""─Iщєcl(l$,n%):Г l$="":I%=їA$+" "," "):l$=юA$,I%-1):A$=єs(аA$,I%+1)):=l$┼ Г ≈ l$=32 ─ A$<>"":A$=" "+A$■dI%=їA$,l$):l$="":Г I%>0─n%>0:l$=аA$,їA$+" "," ",I%+1)+1):Г аA$,I%,1)<>" ":l$=юl$,їl$+" "," ")-1)·vГ I%:Г аA$,I%,1)=" ":A$=аA$,2+(≈ A$<>32),I%-2-(I%=1)) ▀ Г I%:A$=юA$,I%-1)+аA$,їA$+" "," ",їA$+" "," ",I%)+╘ l$)+1)╗#A$=єs(A$):Г n%:=єs(l$) ▀ =I%<>0╡,щРos(A$):Г A$=""└≈ A$=42:Ъ A$:А ▀ в A$:А╪2щєs(A$):Г юA$,1)=" ":У A$=аA$,2):Щ юA$,1)<>" "ф/Г бA$,1)=" ":У A$=юA$,╘ A$-1):Щ бA$,1)<>" "п=A$з:Д:Н:Ь::Т > ArcRead2f 30-01-2000Т Т v2b 12-01-2000 JJR:*Т v2c - add SCAN, INFO, DEL41Т v2d - Try Ack packets, some Beeb conversion>,Т v2e - DeBeebed, Uses MetaData, PROCdirH!Т v2f - PROCdir, general tidyR:\Н ┘ РErrorfAckType%=27p+К27:maxmem%=1024*1024:Ю=╦P+maxmem%+6144z/defaultRoot$="raFS::Raven.$.Root":Т "ram:$"└!Я"Default root: "defaultRoot$▌Ъ"Dir "+defaultRoot$≤?ч file maxmem%,info% 127,txbuf% 127,name% 127,metadata% 127╒
*FX7,8╛
*FX8,8І
*FX2,1ю start%=▒:totlen%=0:LastSp%=1йУтЦ A%=0╦127 ┬4:info%!A%=0:Мч=Т PRINT"Command   : ";:command$ =FNReadStr:PRINT command$Х>Т PRINT"Filename  : ";:filename$=FNReadStr:PRINT filename$Р3Я"Command   : ";:command$ =єReadStr:Я command$;Э'filename$=єReadStr:Я ┼17);filename$	blklen%=╔	+Г blklen%:Ц A%=0╦blklen%-1:info%?A%=╔:М	load%  =info%!0	$exec%  =info%!4	.length%=info%!8	8attr%  =info%!12	BРDoCommand	LЩ ё	VЮ	`:	jщРDoCommand	t Г command$="FILE":Рreceive:А	~Г command$="DIR" :Рdir:А	┬%Г command$="UP"  :Ъ"Dir ^":РAck:А	▓ Г command$="SET" :РSetInfo:А	°Г command$="SCAN":РScan:А	іГ command$="INFO":РInfo:А	╟Г command$="DEL" :РDel:А	╨А	д:	нщРError:х≥"Hourglass_Smash"	ь*FX2	Б*FX3	ЛЖ:Я" at line ";·" ";	ЖРCloseMD
 Я:Ю

:
#щєReadStr:Й a$,b$,c$:b$=Ґ13+Ґ10
#c$=Ў:х∙ їb$,c$)=0:a$+=c$:c$=Ў:н
(=a$
2:
<щРreceive
FРAck
PRЯ "Receiving : "filename$" ";length%" bytes. ETA ";length%│ LastSp%" seconds."
ZdЙ ┘:Н ┘ Й х≥ "OS_File",0,filename$,load%,exec%,file,file+length%:Я"Saved buffer to disk.":РError
d&Г length%>maxmem%:РBufferOverrun:А
nT%=▒
xГ length% ▄
┌х≥ "Hourglass_On"
▄totlen%+=length%
√Ц A%=0╦length%-1
═file?A%=╔
╙DГ(A%─&FF)=0:Г length%:х≥ "Hourglass_Percentage",(100/length%)*A%
ЄМ
Ўх≥ "Hourglass_Off"
хм
р-х≥ "XOS_CLI","SetType "+filename$+" Data"
э$х≥ "XOS_CLI","Access "+filename$
Ф:х≥ "OS_File",0,filename$,load%,exec%,file,file+length%
П1х≥ "XOS_File",4,filename$,,,,attr%:РSetExtras
З'Я "File      : ";filename$" saved."(T%=▒-T%:Г T%:LastSp%=100*length%│ T%XГ T%:Я"This file : ";100*length%│ T%" cps.  All files: ";100*(totlen%│(▒-start%))"."РAck"В ┘,А6:@щРBufferOverrunJ+О7:Я"Buffer overrun!  Discarding data";Tх≥ "Hourglass_On"^RЦ A%=0 ╦ length%-1:B%=╔:Г(A%─&FF)=0:х≥ "Hourglass_Percentage",(100/length%)*A%h!М:х≥ "Hourglass_Off":РAck:Я:Аr:|	щРdir├<Г юfilename$,1)="$" filename$=defaultRoot$+аfilename$,2)░/Т PRINT "Changing to / Creating ";filename$ Г їfilename$,".")=0 ▄є$  х≥ "XOS_CLI","CDIR "+filename$ў=  х≥ "XOS_File",1,filename$,load%,exec%,,attr%:РSetExtras╦мб!х≥ "XOS_CLI","DIR "+filename$лРAckжАЮ:ЙщРSetInfoТ0х≥ "XOS_File",1,filename$,load%,exec%,,attr%ЧРSetExtrasРAckА:&щРSetExtras(num%,crc%)0KГ crc%:info%!num%=crc%:num%=num%+4:Т info%!(num%-4)=0:REM temp'y bugfix:ptr%=єmdata(filename$)D0Г ptr%=-1:Г md%=0:md%=ў(mpath$+"!!MetaData")NГ ptr%=-1:о#md%=╒#md%X$A$=юfilename$+"         ",10)+Ґ9b%Ц A%=1 ╦ ╘ A$:у#md%,≈ аA$,A%,1):Мl5Т BPUT#md%,LEFT$(filename$+"         ",10)+CHR$9;vAЦ A%=0╦num%-1:у#md%,≈ єh0(info%?A%,2):у#md%,≈ єh0(info%?A%,1)─!Г crc%:Г A%=num%-5:у#md%,≈":"┼М:у#md%,13:РCloseMD■,Т Attempt to set cdate/ctime/acc/aux/etc·А╗╡щєmdata(name$)╪&Й ptr%,found%:name$=єs(єup(name$))фmd%=ґ(mpath$+"!!MetaData")пГ md%=0:=-1зУДptr%=▐#md%НCA%=0:У metadata%?A%= #md%:A%=A%+1:Щ е#md% └ metadata%?(A%-1)<32Ь4metadata%?(A%-1)=13:Т $metadata%=GET$#md%+CHR$13metadata%?10=13$found%=єs(єup($metadata%))=name$Щ е#md% └ found% Г ╛found%:=-1*о#md%=ptr%4	=ptr%>:HщРCloseMDRmd%=md%:Г md%:ы#md%:md%=0\Аf:p	щРDelzЯ "Deleting  : "filename$└,х≥ "XOS_CLI","Wipe "+filename$+" R~CF~V"▌РAck≤А╒:╛
щРInfoІ?х≥ "XOS_File",5,filename$ ╦ r0,r1,load%,exec%,length%,attr%ю#ptr%=єmdata(filename$):РCloseMDй%txbuf%?14=attr% └ ((4*attr%)─&44)тГ ptr%<>-1 ▄ч  mdata$=$(metadata%+11)Х:  Ц A%=0 ╦ 31:txbuf%?(A%+2)=═("&"+аmdata$,A%*2+1,2)):МРмЭ>!txbuf%=r0:txbuf%!2=load%:txbuf%!6=exec%:txbuf%!10=length%'РTxReply(txbuf%,15-15*(ptr%<>-1)):А:
щРScan$Т 'load%'=index to scan.Т PRINT "index:";load%8УB2х≥ "OS_GBPB",8,0,name%,1,load% ╦ ,,,ret%,load%Lname%?(1+?name%)=13V(Щ $(name%+1)<>"!!MetaData" └ ret%<>0`6!txbuf%=load%:txbuf%!4=ret%:$(txbuf%+8)=$(name%+1)j$РTxReply(txbuf%,9+╘$(name%+1)):Аt:~(щРAck:Г AckType%<>27:РTxReply(0,0):А┬
*FX3,3▓О27°*FX3іА╟:╨щРTxReply(Addr%,Len%)д
*FX3,3н
О Len%ь'Г Len%:Ц A%=0 ╦ Len%-1:О Addr%?A%:МБ*FX3ЛАЖ: щєup(A$):Г A$="":=""
Й A%,B$,c% Ц A%=1 ╦ ╘ A$:c%=≈ аA$,A%,1)Г c%>96─c%<123:c%=c%-32(B$=B$+Ґ c%:М:=B$2:<щєs(A$):Г A$="":=""FЙ c%:х∙ юA$,1)=" ":c%+=1:нP=аA$,c%+1,їA$+" "," ")-1)Z:d#щєh0(A%,N%)=б"0000000"+ц~A%,N%)Ъ