) > TxSplit v0.31 - Split a text file 6 :Close_All: " at line"+Þ,<128 <>17): 9A$=OS_GetEnv: ctrl% 31,name% 127:X%=ctrl%:Y%=X%256 (0in$=cl("",0):out$=cl("",0):size$=cl("",0) 2?in$="-?":"Syntax: TxSplit 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 ) bsz%<258:"Buffer size too small": @ buffer% bsz%:digits%=0:size%>bsz%:size%=bsz%*(size%bsz%) Hout$,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$) Optr%=#in%:ext%=#in%:len%=ext%-ptr%:stop%=:len%>size%:len%=size%:stop%=   pc(ptr%,ext%); 9 num%=len%:last%=stop%: num%>bsz%:num%=bsz%:last%= $ gbpb(3,in%,buffer%,num%,ptr%) "s last%:p%=buffer%+num%-256:n%=256:A%=?p%:p%=p%+1:n%=n%-1: A%=13 A%=10 n%<1:num%=num%-n%:#in%=#in%-n% ,' gbpb(1,out%,buffer%,num%,#out%) 6# len%=len%-num%:ptr%=ptr%+num% @ 8;8;8;3; J" len%<1 last%:#out%:out%=0 T4X%!2=ld%:X%!6=ex%:X%!14=at%:A%=file(outfile$,1) ^count%=count%+1: h r: |Close_All "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 06Y%:A$=34:A%=A$,"""",2)+1 Y%:A%=A$+" "," ") :-Y%:run$=A$,A%-1):run$<>"":A$=A$,A%+1) D :=A$ 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$ 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$