>TSplit 0.02 $ Split a text file into columns & 25-05-1995 JGH: Original version (! 22-02-1997 JGH: Generalised 2: <) This gives two columns on 130 width Flpp%=60: Lines per page Pwid%=57: Column width Z'mar%=60: Second column starts here d: nC"Source file: "in$:in%=(in$):in%=0:"'"in$"'" not found":END xQ"Dest. file: "out$:out%=(out$):out%=0:"Can't open '"out$"'":#in%:in%=0:  :Close:: $pg%=1::ptr1%=#in%:l%=1 lpp% #"Page: ";pg%;", ";l%;" ";13; #in%:#in%=13 #in% &:ptr2%=#in%:top%=ptr2%:pg%=pg%+1 !l%=1 lpp%:x%=0:#in%=ptr1% #"Page: ";pg%;", ";l%;" ";13; 6#in%:c%=#in%:c%=13 c%>31:#out%,c%:x%=x%+1 =c%=13 x%>wid% #in%:c%=13:#out%=#out%-1 x%=x%+1 )ptr1%=#in%:x%=x% mar%:#out%,32: !c%=0:x%=0:#in%:#in%=ptr2% 6#in%:c%=#in%:c%=13 c%>31:#out%,c%:x%=x%+1 .c%=13 x%>wid% #in%:c%<>13:#out%,13 $ptr2%=#in%::ptr1%=top% TvA #in%=ptr1%:x%=0 .c%=#in%:c%=13 c%>31:#out%,c%:x%=x%+1 "$c%=13 x%>57:c%<>13:#out%,13 ,#in%=top%:#in%=ptr2% 6#out%,12:pg%=pg%+1:#in% @#out%:out%=0:#in%:in%=0: J: T"Close:in%:A%=in%:in%=0:#A% ^out%:A%=out%:out%=0:#A% h