> FJoin v0.31 - Join files ! :Close_All::exit(): 9A$=OS_GetEnv: ctrl% 31,name% 127:X%=ctrl%:Y%=X%256 ( in$=cl("",0):out$=cl("",0) 23in$="-?":"Syntax: FJoin ": <#in$="" : "Input prefix: "in$ F$out$="": "Output file: "out$ P: Zbsz%=(--2500)-1024 d buffer% bsz%-1:digits%=0 nD in$,1)="#"::digits%=digits%+1:in$=in$,in$-1):in$,1)<>"#" x: count%=1:out%=0:infile$=""  last$=infile$ F digits%=0:infile$=in$+ count% infile$=in$+d0(count%,digits%) /in%=(infile$):found%=in%<>0: found%:copy $ found%:out%:#out%:out%=0: &A%=file(last$,5):A%=file(out$,1) exit(0): : copy &infile$;4;: out%=0:out%=(out$) #ptr%=#in%:ext%=#in%:len%=ext%   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% 6 8;8;8;3; @ len%<1 J#in%:in%=0: 13; Tcount%=count%+1 ^ h: rClose_All |'out%=out%:out%:A%=out%:out%=0:#A% "in%=in%:in%:A%=in%:in%=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$+" "," ") 09Y%:run$=A$,1-(A$=34),A%-1+2*(A$=34)):A$=A$,A%+1) : :=A$ D%os(A$):A$=42:A$: A$:A$ N3exit(A%):"FX1,"+(A%255):>&FFFFF: A% X bcݤcl(l$,n%):l$="":A$=s(A$):A$=34:A%=A$+" "" ",""" ",2):l$=A$,2,A%-2):A$=s(A$,A%+1)):=l$ l"":A%=A$,l$):A%:A$=s(A$,A%-1)+A$,A$," ",A%)+1))+" ":= n%=0:l$<>"":= %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$