# > FSplit v0.31 - Split a file  :Close_All:: 9A$=OS_GetEnv: ctrl% 31,name% 127:X%=ctrl%:Y%=X%256 (0in$=cl("",0):out$=cl("",0):size$=cl("",0) 2>in$="-?":"Syntax: FSplit K": <,in$="" : "Input file: "in$ F-out$="" : "Output prefix: "out$ P.size$="": "Size to split by (K): "size$ Z.size%=1024*size$:size%=0:size%=1024*1024 d1 file(in$,5)<>1:"File '"in$"' not found": n: x5ld%=X%!2:ex%=X%!6:at%=X%!14:bsz%=(--2500)-1024 @ buffer% bsz%:digits%=0:size%>bsz%:size%=bsz%*(size%bsz%) I out$,1)="#"::digits%=digits%+1:out$=out$,out$-1):out$,1)<>"#" : count%=1:in%=(in$): Hdigits%=0:outfile$=out$+count% outfile$=out$+d0(count%,digits%) copy:#in%:#in%:in%=0  : copy "outfile$;4;:out%=(outfile$) ?ptr%=#in%:ext%=#in%:len%=ext%-ptr%:len%>size%:len%=size%   pc(ptr%,ext%); $ num%=len%:num%>bsz%:num%=bsz% $ gbpb(3,in%,buffer%,num%,ptr%) ' gbpb(1,out%,buffer%,num%,#out%) "# len%=len%-num%:ptr%=ptr%+num% , 8;8;8;3; 6 len%<1:#out%:out%=0 @4X%!2=ld%:X%!6=ex%:X%!14=at%:A%=file(outfile$,1) Jcount%=count%+1: T ^: hClose_All r"in%=in%:in%:A%=in%:in%=0:#A% |'out%=out%:out%:A%=out%:out%=0:#A%  $ݤd0(A%,N%)="000000000"+A%,N%) /ݤpc(A%,B%)=8+8+8+d0((100*A%)B%,2)+"%" Bݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:=(&FFDD)&FF #gbpb(A%,chn%,addr%,num%,ptr%) >?X%=chn%:X%!1=addr%:X%!5=num%:X%!9=ptr%:<&FFFFF:&FFD1: A%=1A%=3:#?X%=X%!9 5:A%=1A%=2:#?X%,?X%!1 A%=3A%=4:?X%!1=#?X% 5X%!1=X%!1+1:X%!5=X%!5-1:(#?X% A%>2) X%!5<1: :ݤOS_GetEnv:A$,A%,X%,Y%:X%=1:os%=((&FFF4)&FF00)256 Los%=32:>&FFFF:X%256:ș"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ os%=32:A$=$&100 gA$=0:>&FFFF:run$=$&8100:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ 2A$=0:?(P-3):A$=$&600 A$=0:A$=$(-&300) *Y%=-10:A$=" "+A$:A$=A$,2):A$<>32 6Y%:A$=34:A%=A$,"""",2)+1 Y%:A%=A$+" "," ") &-Y%:run$=A$,A%-1):run$<>"":A$=A$,A%+1) 0 :=A$ :cݤcl(l$,n%):l$="":A$=s(A$):A$=34:A%=A$+" "" ",""" ",2):l$=A$,2,A%-2):A$=s(A$,A%+1)):=l$ D"":A%=A$,l$):A%:A$=s(A$,A%-1)+A$,A$," ",A%)+1))+" ":= Xn%=0:l$<>"":= b%A%=" ",l$=32)+A$,l$):A%=0:="" l'A$=A$,A%-1)+s(A$,A$," ",A%)+1)) vCl$=32:l$=A$,A%):A$=A$,A%-1):=l$,1-(l$=34),l$+2*(l$=34)) PA$,A%,1)<>34:l$=A$,A%,A$+" "," ",A%)-A%):A$=A$,A%-1)+A$,A%+l$+1):=l$ Jl$=A$,A%+1,A$+""" ",""" ",A%+1)-A%-1):A$=A$,A%-1)+A$,A%+l$+3):=l$ /ݤs(A$):A$,1)=" ":A$=A$,2):A$,1)<>" " +A$,1)=" ":A$=A$,A$-1):A$,1)<>" " =A$