# > FSplit v0.31 - Split a file ! :Close_All::exit(): 9A$=OS_GetEnv: ctrl% 31,name% 127:X%=ctrl%:Y%=X%256 (0in$=cl("",0):out$=cl("",0):size$=cl("",0) 2,in$="" : "Input file: "in$ <-out$="" : "Output prefix: "out$ F.size$="": "Size to split by (K): "size$ P.size%=1024*size$:size%=0:size%=1024*1024 Z< file(in$,5)<>1:"File '"in$"' not found":exit(214): d: n5ld%=X%!2:ex%=X%!6:at%=X%!14:bsz%=(--2500)-1024 x@ 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 exit(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%+len% " 8;8;8;3; , len%<1:#out%:out%=0 64X%!2=ld%:X%!6=ex%:X%!14=at%:A%=file(outfile$,1) @count%=count%+1: J T: ^Close_All h"in%=in%:in%:A%=in%:in%=0:#A% r'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)+"%" Lݤfile(A$,A%):$name%=A$:?X%=name%:X%?1=name%256:<&FFFFF:=(&FFDD)&FF A%=(A$):A%=0:=0 #A%:=1 #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%>31:>&FFFFF:X%256: "GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ CA%=&600-&7B00*(>&8000)-&3F00*(>&C000):!(-&100)=@%:A%=-&300 ;?(P-3)=0:A%=&100:<&FFFF:A%=-&300:!(+512)=@%:A%= aA$=$A%:=&8F00:run$=A$: 16A$,,A%: 72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ UY%=-10:A$=" "+A$:A$=A$,2):A$<>32:A$=34:A%=A$,"""",2)+1 A%=A$+" "," ") 9Y%:run$=A$,1-(A$=34),A%-1+2*(A$=34)):A$=A$,A%+1) & :=A$ 0%os(A$):A$=42:A$: A$:A$ :3exit(A%):"FX1,"+(A%255):>&FFFFF: A% D Ncݤcl(l$,n%):l$="":A$=s(A$):A$=34:A%=A$+" "" ",""" ",2):l$=A$,2,A%-2):A$=s(A$,A%+1)):=l$ X"":A%=A$,l$):A%:A$=s(A$,A%-1)+A$,A$," ",A%)+1))+" ":= ln%=0:l$<>"":= v%A%=" ",l$=32)+A$,l$):A%=0:="" 'A$=A$,A%-1)+s(A$,A$," ",A%)+1)) Cl$=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$ Hl$=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$