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"