! INSERT.TEC ! 0JZKERJAL:ASCNUM.TECA0JZXUZK0JZKER I2IN.TTTA0JX4MU(Q5)UN0JZKER I3IN.TTTA0JX4MU(Q5)UM0JZKER I4IN.TTTA0JXAZK(QM)0JZXP0JHK0JZKER I1IN.TTTA0JXAZK0JZKGA0J0JIEBZJ27I27I0JXDZKMD^A INSERT.TEC - Please Be Patient As This May Take A While. 0UJ0UH!OK1!1:A0JZXWZU2Q2-0"E@O/DONE1/' 0U1(QP-Q2)"L@O/OK00/' @O/SLLL/!OK00!(QN)C0XAGPZVZU20J0,ZPWZK@O/OK1/!DONE1!QH-3"L1%H@O/OK1/' EG@ZZZZZZ.ZZZ!SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="p" = QP=This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Move 0JZT ! INSERT.TEC ! ! THIS COMMAND LINE WILL ALLOW THE USER TO INSERT CHARACTERS PAST A ! ! COLUMN OF A FILE AS FOLLOWS: ! ! - INSERT PAST COLUMN n,m # OF CHARACTERS ON ALL LINES ! ! OF A FILE. ! ! ! ! THE ORIGIONAL FILE('S) WILL BE RENAMED "FILENAME.BAK" ! ! THE RESULTING FILE('S) WILL BE NAMED "FILENAME.FILETYPE" ! ! ! ! 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 ! MOVE COULMN n THRU COLUMN m TO COLUMN p ON ALL LINES ! 0JZKER I2IN.TTT! GET "n" THE USER DESIRES TO USE ! ! 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 0JZKER I3IN.TTT! GET "m" THE USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! CONVERT THE NUMBER FROM ASCII TO THE TECO EQIVALENT ! 0JX4MU! LOAD BUFFER "M" WITH THE VALUE OF THE CHARACTER ! (Q5)UM 0JZKER I4IN.TTT! GET CHARACTER THE USER DESIRES TO USE ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! LOAD BUFFER "P" WITH THE "M" # CHARACTERS ! 0JXAZK(QM)0JZXP 0JHK 0JZKER I1IN.TTT! GET THE FILENAME THE USER DESIRES TO PREPROCESS ! ! ELIMINATE ANY CARRIAGE RETURNS! A ! SAVE IT IN "A" BUFFER! 0JXAZK ! READ THE INPUT FILE FROM BUFFER "D" ! 0JZKGA0J 0JIEBZJ27I27I0JXDZKMD ! NOW GET A PAGE AT A TIME AND CONVERT THE TABS INTO THE APPROPRIATE ! ! NUMBER OF SPACES TO THE COLUMNS STILL LINE UP ! ^A INSERT.TEC - Please Be Patient As This May Take A While.  ! INITALIZE REGS ! 0UJ 0UH !OK1! 1:A0JZXW!PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 Q2-0"E@O/DONE1/' 0U1 ! SEPERATE THE COLUMNS A DESIRED ! ! CASE 1 ! ! FIRST A TEST ! (QP-Q2)"L@O/OK00/'@O/SLLL/ !OK00! ! SAVE FRONT OF LINE IN "A" ! (QN)C0XA ! GET THE INSERTED CHARACTERS ! GP ZV !PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 ! WRITE THIS PAGES'S WORTH INTO THE OUTPUT BUFFER & GET ANOTHER ! 0J0,ZPWZK@O/OK1/ ! ALL DONE CONVERTING FILE THIS COPY ! !DONE1! ! NOT 3 EMPTY BUFFERS YET SO NOT DONE ! QH-3"L1%H@O/OK1/' EG@ZZZZZZ.ZZZ!SLLL!  1234567890 2345678901 3456789012 4567890123 5678901234 6789012345 7890123456 "n" = QN="m" = QM="p" = QP=This Line Length In Characters = Q2= The Current Line Is Too Short For the Specified Move 0JZT