> FSplit  Split a file bsz%=64: Buffer size in K ( :CloseAll:: 2@ș "OS_GetEnv" A$:A$=A$,1+A$," ",1+A$," ",1+A$," ")))) <*A%=A$," "):in$=A$,A%-1):A$=A$,A%+1) F+A%=A$," "):out$=A$,A%-1):A$=A$,A%+1) P,A%=A$," "):size$=A$,A%-1):A$=A$,A%+1) Zin$="": "Input file: "in$ d$out$="": "Output prefix: "out$ n)size$="": "Size to split by: "size$ x$size%=size$:size%=0:size%=1024 : 4 buffer% bsz%*1024:size%=bsz%*(size%bsz%)*1024 digits%=0 ȕ out$,1)="#" + digits%=digits%+1:out$=out$,out$-1)  : count%=1:in%=(in$)  J digits%=0:outfile$=out$+count% outfile$=out$+d0(count%,digits%) $ outfile$;4;:out%=(outfile$) - len%=#in%-#in%:len%>size%:len%=size%   pc(#in%,#in%); 0 num%=len%:num%>bsz%*1024:num%=bsz%*1024 ' ș "OS_GBPB",4,in%,buffer%,num% "( ș "OS_GBPB",2,out%,buffer%,num% , len%=len%-num% 6 8;8;8;3; @ len%<1 J #out%:out%=0: T count%=count%+1 ^ #in% h#in%:in%=0 r |CloseAll "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)+"%"