10 REM *************************** 20 REM Document merge into columns 30 REM By Mark Ray 40 REM *************************** 50 REM NC100/200 Version 60 REM Downloaded from Tim's Amstrad NC Users' Site 70 REM http://www.ncus.org.uk 80 REM Originally from the Amstrad Notepad Users' Web 90 ON ERROR CLOSE#0:REPORT:PRINT " at ";ERL:END 100 CLS:PRINT SPC(30);"2 Columns on 1 Page."''SPC(31);"See sheet for info"' 110 INPUT LINE "Document for Left Column :"LT$ 120 INPUT LINE "Document for Right Column:"RT$ 130 INPUT LINE "Name of Finished Document:"OUT$ 140 L=OPENIN(LT$):R=OPENIN(RT$):O=OPENOUT(OUT$) 150 PRINT#O,">-------------------------------!------------------------------R" 160 REPEAT:INPUT#L,L$:INPUT#R,R$ 170 PRINT#O,L$+CHR$(9)+RIGHT$(R$,LEN(R$)-1):UNTIL EOF#L OR EOF#R 180 CLOSE#L:CLOSE#R:CLOSE#O