> FJoin  Join files bsz%=64: Buffer size in K $ :CloseAll:" at line ";: @ș "OS_GetEnv" A$:A$=A$,1+A$," ",1+A$," ",1+A$," ")))) *A%=A$," "):in$=A$,A%-1):A$=A$,A%+1) +A%=A$," "):out$=A$,A%-1):A$=A$,A%+1) ,A%=A$," "):size$=A$,A%-1):A$=A$,A%+1) " in$="": "Input prefix: "in$ # out$="": "Output file: "out$ : #size%=1024*bsz%: buffer% size% digits%=0 ȕ in$,1)="#" ) digits%=digits%+1:in$=in$, in$-1)  : count%=1:out%=0  H digits%=0:infile$=in$+ count% infile$=in$+d0(count%,digits%)  in%=(infile$)  found%=in%<>0  found%  out%=0:out%=(out$)  infile$;4;   pc(#in%,#in%); 2 len%=#in%-#in%: len%>size%:len%=size% ) ș "OS_GBPB",4,in%,buffer%,len% * ș "OS_GBPB",2,out%,buffer%,len%  8;8;8;3;  #in% ! #in%:in%=0: 13; " count%=count%+1 # $ found% %out%:#out%:out%=0: & ' CloseAll (#in%=in%: in%:A%=in%:in%=0:#A% )(out%=out%: out%:A%=out%:out%=0:#A% * +% d0(A%,N%)="00000000"+ A%,N%) ,1 pc(A%,B%)=8+8+8+d0((100*A%) B%,2)+"%"