> ZipInfo v1.03 *:Close_All:" at line ";:exit() Win$=OS_GetEnv:ctrl% 31,info% 127,extra% 127,zp% 11:X%=ctrl%:Y%=X%256:wr%=2:rd%=4 (#in$="":"File to examine: "in$ 20in$,2)="-?":"ZipInfo ":exit(0) 45:A%=in$,":",3):A%:in$="-"+in$,A%-1)+"-"+in$,A%+1) F:in%=(in$):in%=0:"File '"in$"' not found":exit(214) PSgbpb(rd%,in%,zp%,4,0):!zp%<>&04034B50:"Not a ZIP file":#in%:in%=0:exit(-1) ZP"Name"11"Sys Ver Flag Type ModTime ModDate CRC CompSize FileSize" d5#in%=0::gbpb(rd%,in%,zp%,4,0):id%=!zp%:done%= n$(id%&FFFF)=&4B50#in%:done%= xid%=&04034B50:file .done%:#in%=#in%-3:"Damaged ZIP?";13; &id%=&06054B50id%=&02014B50#in% #in%:in%=0:exit(0): file @gbpb(rd%,in%,info%,26,0):nameln%=ex16(22):extln%=ex16(24) .len%=nameln%:len%>127:len%=127:ptr%=#in% Clen%:gbpb(rd%,in%,extra%,len%,0):len%=127:#in%=ptr%+nameln% :extra%?len%=13:name$=$extra%:A%=01274:extra%!A%=0: "len%=extln%:len%>127:len%=127 1ptr%=#in%:len%:gbpb(rd%,in%,extra%,len%,0) #in%=ptr%+extln%+info%!14 %name$=fn_zip(name$):name$;14); c(info%?28):!zp%=0::!zp%=zp%!1:zp%?3=#in%:!zp%=&08074B50#in%:gbpb(rd%,in%,info%+10,12,0) Yhost(info%?0)" ";~info%?116;".";~info%?115;" "h0(info%!2,4)" "h0(info%!4,4)" "; >prtime(fstime(info%!6))" "prdate(fsdate(info%!8))" "; 8h0(info%!10,8)" "h0(info%!14,8)" "h0(info%!18,8) "extln%=0: ,`(!extra%&FFFF)<>&4341:7;"Ex: ";extln%;": ";:A%=0extln%-14:h0(extra%!A%,8)" ";::: 6(!extra%&FFFF)<>&4341: @14:" "prdate(extra%!17); ^-dsz%>25:" "prtime(fstime(extra%!24)); h-dsz%>27:" "prdate(fsdate(extra%!26)); r"dsz%>29:" "h0(extra%!28,4); |'dsz%>31:" ("h0(extra%!30,4);")"; : ݤex16(A%)=info%!A%&FFFF cݤhost(A%):A%<11:=" FAT Ami VMS Unx CMS Atr OS2 MacZSys CPMNTFS",A%*4+1,4)=" "+h0(A%,2)+" " Rݤfsdate(A%):A%=A%-&200:=(A%31)+((A%&1E0)*8)+((A%&1E00)*8)+((A%&E000)256) Bݤfstime(A%):=((A%&F800)2048)+((A%&7E0)*8)+((A%31)*131072) _ݤprdate(A%)=d0(A%31,2)+"/"+d0((A%&F00)256,2)+"/"+(1981+((A%&F000)4096)+(A%&E0)2) Uݤprtime(A%)=d0(A%63,2)+":"+d0((A%&3F00)256,2)+":"+d0((A%&3F0000)65536,2) )ݤfn_zip(B$):B%:A$="#?./$<^>&+@=%; " !A%=1B$:B%=A$,B$,A%,1))-1 4B%>:B$=B$,A%-1)+A$+"_",(B%1)+1,1)+B$,A%+1)  :=B$ Close_All "in%=in%:in%:A%=in%:in%=0:#A% 'out%=out%:out%:A%=out%:out%=0:#A%  $ݤh0(A%,N%):="0000000"+~A%,N%) &$ݤd0(A%,N%):="00000000"+A%,N%) 0*ݤf_access(A%,T%):A$:(A%128):A$="P" :(T%2):A$=A$+"D" D(A%8):A$=A$+"L" N(A%2):A$=A$+"W" X(A%1):A$=A$+"R" b(A%5)=4:A$=A$+"E" l A$=A$+"/":(A%32):A$=A$+"w" v(A%16):A$=A$+"r" (A%80)=64:A$=A$+"e" =A$+" ",8) Tgbpb(A%,chn%,addr%,num%,ptr%):?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:&FFD1: 2ݤOS_GetEnv:A%=0:X%=1:os%=((&FFF4)&FF00)256 3A%=&600-&7B00*(>&8000):!(-&100)=@%:A%=-&300 ;?(P-3)=0:A%=&100:<&FFFF:A%=-&300:!(+512)=@%:A%= cA$=$A%:=&8F00:run$=A$:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ SY%=-10:A$=" "+A$:A$=A$,2):A$<>32:A$=34:A%=A$,"""",2)+1A%=A$+" "," ") 9Y%:run$=A$,1-(A$=34),A%-1+2*(A$=34)):A$=A$,A%+1)  :=A$ !os(A$):A$=42:A$A$:A$  @exit(A%):"FX1,"+A%:quit$=quit$:A$=quit$:quit$="":os(A$) >&FFFFF:ȘA%   I}{ O{*"ȑ " g{[{LQ%=PA.:CH."*BASIC {{{{a{a{`|{`` g{,z0ȱCm{02 ee  { {Cm{{꩏ `