! DELETE.TEC ! 0JZKERJAL:ASCNUM.TECA0JZXUZK0JZKER I2DE1.TTTA0JX4MU(Q5)UN0JZKER I3DE1.TTTA0JX4MU(Q5)UM0JHK0JZKER I1DE1.TTTA0JXAZK0JZKGA0J0JIEBZJ27I27I0JXDZKMD^A DELETE.TEC - Please Be Patient As This May Take A While. 0UJ0UH(QN-QM)"L@O/OK0/'(QN-QM)"E@O/OK0/' !BADD! ^A The User Has Entered A Bad Input ??? "n" = QN="m" = QM="p" = QP= The Following Relationships Must Hold: IN MOVING COULMN n THRU COLUMN m TO AFTER COLUMN p ON ALL LINES: m > or = n EX!OK0! !OK1! 1:A0JZXWZU2Q2-0"E@O/DONE1/'0U1(QP-Q2)"L@O/OK00/'@O/SLLL/ !OK00! (QN-1)C0XA0K(QM-QN+1)C0XB0K0LGAZVZU20J0,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 ! DELETE.TEC ! ! THIS COMMAND LINE WILL ALLOW THE USER TO DELET ! ! COLUMNS OF A FILE AS FOLLOWS: ! ! - DELETE COLUMN n THRU COLUMN m ON ALL LINES ! ! OF A FILE. ! ! ! ! necessary conditions: ! ! ! ! m > or = n ! ! ! ! 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 I2DE1.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 I3DE1.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 0JHK 0JZKER I1DE1.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 DELETE THE COLUMNS ! ^A DELETE.TEC - Please Be Patient As This May Take A While.  ! INITALIZE REGS ! 0UJ 0UH ! PERFORM A TEST SO THE FOLLOWING COMDITIONS ARE MET ! ! MOVE COULMN n THRU COLUMN m TO COLUMN p ON ALL LINES ! ! m > or = n ! (QN-QM)"L@O/OK0/' (QN-QM)"E@O/OK0/' ! HERE IF ITS BAD ! !BADD! ^A The User Has Entered A Bad Input ??? "n" = QN="m" = QM="p" = QP= The Following Relationships Must Hold: IN MOVING COULMN n THRU COLUMN m TO AFTER COLUMN p ON ALL LINES: m > or = n EX! JUST KILL THE WHOLE MACRO HERE FOR NOW ! !OK0! ! DELETE COULMN n THRU COLUMN m ON ALL LINES ! !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-1)C0XA0K ! SAVE N-> PART IN "B" ! (QM-QN+1)C0XB0K ! BACK TO FRONT TO GET REST OF THE FRONT OF THE LINE ! 0LGA ! SHOW THE USER THE RESULT OF THE MOVE ! 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