> ZipAllNew v0.12 1 Run ZipNewFile with reference to _Make file * v0.12 Passes on options and switches (: 2 :Close_All:: (options)": F"dname$=drv$,drv$+" "," ")-1) P"Dir :"+dname$ Z.in%=("_Make"):in%=0:"No '_Make' file": d-:A$=rd(in%):#in% A$,9)="| Created" n#in%:in%=0 x.A$,9)<>"| Created":"No creation date": 3day$=A$,18,2):month$=A$,21,3):year$=A$,25,4) :day%=day$:month%=Date_FromMonth(month$):year%=year$ os%=6:"Basic -quit :Apps.Archivers.ZipTools.ZipNewFile :"+dname$+" "+d0(day%,2)+"/"+d0(month%,2)+"/"+d0(year%,4)+" "+drv$: o":Apps.Archivers.ZipTools.ZipNewFile :"+dname$+" "+d0(day%,2)+"/"+d0(month%,2)+"/"+d0(year%,4)+" "+drv$ : #ݤDate_FromMonth(A$):A$=uc(A$) 6A%="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",A$,3)) (A%-1)3=0:=A%3+1 =0 .Close_All:in%=in%:in%:A%=in%:in%=0:#A%  ݤrd(i%):A$: &A%=#i%:A%<>10 A%<>13:A$=A$+A% A%=10 A%=13 #i%:=A$ $ݤd0(A%,N%)="000000000"+A%,N%) ݤuc(A$): B$:A$="":="" 5B$=B$+(A$((A$<"@")&DF)):A$=A$,2):A$="":=B$ ":ݤOS_GetEnv:A$,A%:X%=1:os%=((&FFF4)&FF00)256:X%-1 ,Jos%=32:>&FFFF:ș"GetModuleFileName",0,X%,255:A$=$$X%:run$=A$:=@cmd$ 6os%=32:A$=$&100 @{A$=0:>&7FFF:run$=$&8100:ș"OS_GetEnv"A$,,A%:ș"OS_WriteEnv","",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ J2A$=0:?(P-3):A$=$&600 A$=0:A$=$(-&300) T7A%=A$+" "," "):run$=A$,A%-1):run$<>"":=A$,A%+1) ^bY%=X%256:A%=9:?X%=0:X%!1=X%+16:X%!16=0:&FFD1:A%=X%+16:!A%?A%+A%?2<>8:A%?(A%+1)=13:=$(A%+1) h="" r&os(A$):A$=42:A$ A$<>"":A$ | @exit(A%):"FX1,"+A%:quit$=quit$:A$=quit$:quit$="":os(A$) os%=32:Ș A% os%<6: *Quit  :