> TwoCol <"Input file: "in$:in%=(in$):in%=0:in$;" not found": G"Output file:"out$:out%=(out$):out%=0:"Can't open "out$:#in%: ()"Column width: "wid%:wid%=0:wid%=40 2."Page length: "pglen%:pglen%=0:pglen%=60 <,"Paper length: "plen%:plen%=0:plen%=66 F P7p0%=#in%:z%=pglen%:a$=line:z%=z%-1:z%<1 #in% Zz%=pglen%: d0p1%=#in%:#in%=p0%:#in%:a$=line a$="" n0p0%=#in%:#in%=p1%:#in%:b$=line b$="" xout(a$+wid%-a$," ")+b$) z%=z%-1:z%<1 p0%>=#in% /z%=plen%-pglen%:z%:out(""):z%=z%-1:z%<1 p0%>=#in% #out%:#in%  : ݤerr: in%:A%=in%:in%=0:#A% out%:A%=out%:out%=0:#A% " at line ";:= : ݤline: a$,a%:#in%:="" (a%=#in%:a%<>10 a%<>13:a$=a$+a% (a%=10 a%=13 a$>=wid%-3 #in% =a$ : "out(a$):out%=0:a$: ,(a$<>"":#out%,a$:a$=a$,2):a$="" 6+#out%,13:13;100*#in% #in%;"%";: