NOTE:  Mixes 2 36-character-wide documents into one with 2 columns.


1 REM *** Written by Mark Ray, please read welcome.msg first ***
2 ON ERROR IF ERR=17 THEN CH."AUTO" ELSE REPORT:PRINT " at ";ERL:END
5  CLS:PRINT SPC(30);"2 Columns on 1 Page."''SPC(31);"See sheet for info"'
10 INPUT LINE "Document for Left Column :"LT$
20 INPUT LINE "Document for Right Column:"RT$
30 INPUT LINE "Name of Finished Document:"OUT$
40 L=OPENIN(LT$):R=OPENIN(RT$):O=OPENOUT(OUT$)
45 PRINT#O,">-------------------------------!------------------------------R"
50 REPEAT:INPUT#L,L$:INPUT#R,R$
60 PRINT#O,L$+CHR$(9)+RIGHT$(R$,LEN(R$)-1):UNTIL EOF#L OR EOF#R
70 CLOSE#L:CLOSE#R:CLOSE#O:CHAIN"AUTO"