0JZKERJALEXEC:ASCNUM.TECA0JZXUZK0JZKERIN2RD.TTTA0JX4MU(Q5)UN0JHK0JZKERIN1RD.TTTA0JXAZK0JHK0JZKERIN3RD.TTTA0JXBZK0JZKER IN5RD.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:GAGA 0J0,ZPWZK!DON1!QH-3"L1%H@O/TOP/'EC!ALLDON! EG@ZZZZZZ.ZZZ ! REDSEA ! 0JZKERJALEXEC:ASCNUM.TECA0JZXUZK 0JZKER IN2RD.TTT A  0JX4MU (Q5)UN 0JHK 0JZKER IN1RD.TTT A  0JXAZK 0JHK 0JZKER IN3RD.TTT A  0JXBZK 0JZKER IN5RD.TTT A  0JXCZK 0JZKGA0J 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:A ZU2 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 MK 0JZKGC0J 0JIEWZJ27I27I0JXFZKMF  Results to File "C"  !TOP! 1:A ZU2 Q2-0"EXA@O/DON1/' 0UH (QN-1)C0XJ0K XA ZK :GA GA 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" ! 0JZKERJALEXEC:ASCNUM.TECA0JZXUZK ! GET "n" THE USER DESIRES TO USE ! 0JZKER IN2RD.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 IN1RD.TTT ! ELIMINATE ANY CARRIAGE RETURNS! A  ! SAVE IT IN "A" BUFFER! 0JXAZK 0JHK ! GET THE NAME OF DESTINATION FILE B ! 0JZKER IN3RD.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 IN5RD.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