0JZKERJAL:ASCNUM.TECA0JZXUZK0JZKERI2RD.TTTA0JX4MU(Q5)UN0JHK0JZKERI1RD.TTTA0JXAZK0JHK0JZKERI3RD.TTTA0JXBZK0JZKER I5RD.TTTA0JXCZK0JZKGA0J0JIERZJ27I27I0JXKZKMK The User Has Entered The Following Inputs: File :GA Split at Column "n" = QN= Into File :GB And into File :GC REDSEA.TEC Please Be Patient As This May Take A While.  0JZKGB0J0J27IIEWZJ27I27I0JXEZKME Results to File "B" !ATOP!1:AZU2Q2-0"EXA@O/ADON1/'0UH(QN-Q2)"L@O/OK00/'@O/SLLL/!SLLL! 1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="j" = QJ="k" = QK=(Q2-2)U2 This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Move 0JZT@O/ALLDON/!OK00!(QN-1)C0XD0KZKGDZJI :GD 0J0,ZPWZK@O/ATOP/!ADON1!QH-3"L1%H@O/ATOP/'ECMK0JZKGC0J0JIEWZJ27I27I0JXFZKMF Results to File "C" !TOP!1:AZU2Q2-0"EXA@O/DON1/'0UH(QN-1)C0XJ0KXAZK:GAGA0J0,ZPWZK!DON1! QH-3"L1%H@O/TOP/'EC!ALLDON!EG@ZZZZZZ.ZZZ 0JZKERJAL:ASCNUM.TECA0JZXUZK0JZKERI2RD.TTTA0JX4MU(Q5)UN0JHK0JZKERI1RD.TTTA0JXAZK0JHK0JZKERI3RD.TTTA0JXBZK0JZKER I5RD.TTTA0JXCZK0JZKGA0J0JIERZJ27I27I0JXKZKMK The User Has Entered The Following Inputs: File :GA Split at Column "n" = QN= Into File :GB And into File :GC REDSEA.TEC Please Be Patient As This May Take A While.  0JZKGB0J 0J27IIEWZJ27I27I0JXEZKME Results to File "B" !ATOP! 1:AZU2 Q2-0"EXA@O/ADON1/' 0UH (QN-Q2)"L@O/OK00/'@O/SLLL/ !SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="j" = QJ="k" = QK=(Q2-2)U2 This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Move 0JZT@O/ALLDON/ !OK00! (QN-1)C0XD0K ZK GD ZJI :GD 0J0,ZPWZK@O/ATOP/ !ADON1! QH-3 "L 1%H @O/ATOP/ ' EC MK0JZKGC0J 0JIEWZJ27I27I0JXFZKMF Results to File "C" !TOP! 1:AZU2 Q2-0"EXA@O/DON1/' 0UH (QN-1)C0XJ0K XA ZK :GAGA 0J0,ZPWZK!DON1! QH-3 "L 1%H @O/TOP/ 'EC !ALLDON! EG@ZZZZZZ.ZZZ ! REDSEA ! 0JZKERJAL:ASCNUM.TECA0JZXUZK0JZKER I2RD.TTTA 0JX4MU(Q5)UN0JHK0JZKER I1RD.TTTA 0JXAZK0JHK0JZKER I3RD.TTTA 0JXBZK0JZKER I5RD.TTTA 0JXCZK0JZKGA0J 0JIERZJ27I27I0JXKZKMK The User Has Entered The Following Inputs: File :GA Split at Column "n" = QN= Into File :GB And into File :GC REDSEA.TEC Please Be Patient As This May Take A While.  0JZKGB0J 0J27IIEWZJ27I27I0JXEZKME Results to File "B" !ATOP! 1:AZU2 Q2-0"EXA@O/ADON1/' 0UH (QN-Q2)"L@O/OK00/'@O/SLLL/ !SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="j" = QJ="k" = QK=(Q2-2)U2 This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Move 0JZT@O/ALLDON/ !OK00! (QN-1)C0XD0K ZK GD ZJI :GD 0J0,ZPWZK@O/ATOP/ !ADON1! QH-3 "L 1%H @O/ATOP/ ' EC MK0JZKGC0J 0JIEWZJ27I27I0JXFZKMF Results to File "C" !TOP! 1:AZU2 Q2-0"EXA@O/DON1/' 0UH (QN-1)C0XJ0K XA ZK :GAGA 0J0,ZPWZK!DON1! QH-3 "L 1%H @O/TOP/ 'EC !ALLDON! EG@ZZZZZZ.ZZZ ! REDSEA ! ! YOU GUSSED IT THIS COMLINE ALLOWS THE USER TO SPLIT A FILE INTO TWO ! ! FILES DOWN A SPECIFIED COLUMN NUMBER n ! ! ! ! THE ORIGIONAL FILE WILL BE UNCHANGED. ! ! THE RESULTING FILES SPECIFIED BY THE USER. ! ! ! ! GET THE MACRO FOR DOING THE ASCII NUMBER TO TECO NUMBER CONVERSION ! ! PUT IT IN BUFFER "U" ! ! THE NUMBER IT CONVERTS TO IS IN BUFFER "5" ! ! THE NUMBER IT CONVERTS FROM IS IN BUFFER "4" ! 0JZKERJAL:ASCNUM.TECA0JZXUZK! GET "n" THE USER DESIRES TO USE ! 0JZKER I2RD.TTT! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "N" WITH THE VALUE OF THE CHARACTER ! (Q5)UN 0JHK! GET THE FILENAME "A" THE USER DESIRES TO PREPROCESS ! 0JZKER I1RD.TTT! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN "A" BUFFER! 0JXAZK0JHK! GET THE NAME OF DESTINATION FILE B ! 0JZKER I3RD.TTT! GET THE FILENAME "B" THE USER DESIRES TO PREPROCESS ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN "B" BUFFER! 0JXBZK! GET THE NAME OF DESTINATION FILE C ! 0JZKER I5RD.TTT! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN "C" BUFFER! 0JXCZK! NOW SET UP ALL THE INPUT AND OUTPUT FILES ! ! READ THE INPUT FILE "A" FROM BUFFER "K" ! 0JZKGA0J 0JIERZJ27I27I0JXKZKMK ! NOW READ IN 1 LINE FROM FILE "A" & SPLIT IT INTO TWO PIECES !  The User Has Entered The Following Inputs: File :GA Split at Column "n" = QN= Into File :GB And into File :GC REDSEA.TEC Please Be Patient As This May Take A While.  ! OPEN THE OUTPUT FILE "B" FROM BUFFER "E" ! 0JZKGB0J 0J27IIEWZJ27I27I0JXEZKME ! SHOW THE USER WHAT HE GOT !  Results to File "B"  ! NOW DO THE OTHER PIECE OF THE FILE ! !ATOP! ! INITALIZE REGS ! ! GET 1 LINE ! 1:A!PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 ! IF NO MORE LEFT IN THIS FILE DONT TRY TO SAVE ANY COLUMN'S WORTH ! Q2-0"EXA@O/ADON1/' 0UH ! FIRST A TEST ! (QN-Q2)"L@O/OK00/'@O/SLLL/ !SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="j" = QJ="k" = QK=(Q2-2)U2 This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Move 0JZT@O/ALLDON/ !OK00! ! SAVE FRONT OF LINE IN "D" TO EVENTUALLY OUTPUT TO FILE "B" ! (QN-1)C0XD0K ZK ! NOW GET THE FILE "B" STUFF & OUTPUT IT ! GD ! GIVE THE USER A CARRIAGE RETURN ! ZJI  ! SHOW THE USER WHAT HE GOT ! :GD  ! WRITE OUT THIS PAGES WORTH & GET MORE ! 0J0,ZPWZK@O/ATOP/ !ADON1! QH-3 "L 1%H @O/ATOP/ ' ! NOT 3 EMPTY BUFFERS YET SO NOT DONE ! ! CLOSE THE OUTPUT FILE ! EC ! OPEN THE INPUT FILE AGAIN ! MK ! OPEN THE OUTPUT FILE "C" FROM BUFFER "F" ! 0JZKGC0J 0JIEWZJ27I27I0JXFZKMF ! SHOW THE USER WHAT HE GOT !  Results to File "C"  !TOP! ! INITALIZE REGS ! ! GET 1 LINE ! 1:A!PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 ! IF NO MORE LEFT IN THIS FILE DONT TRY TO SAVE ANY COLUMN'S WORTH ! Q2-0"EXA@O/DON1/' 0UH ! SAVE FRONT OF LINE IN "J" TO EVENTUALLY OUTPUT TO FILE "B" ! (QN-1)C0XJ0K ! SAVE N-> PART IN BUFFER "A" TO EVENTUALLY OUTPUT TO FILE "C" ! XA ZK ! SHOW THE USER WHAT HE GOT ! :GA ! NOW GET THE FILE "B" STUFF & OUTPUT IT ! GA ! WRITE OUT THIS PAGES WORTH & GET MORE ! 0J0,ZPWZK !DON1! QH-3 "L 1%H @O/TOP/ '! NOT 3 EMPTY BUFFERS YET SO NOT DONE ! ! CLOSE THE OUTPUT FILE ! EC !ALLDON! ! ALL DONE CONVERTING FILE THIS COPY ! EG@ZZZZZZ.ZZZ