! ELIM.TEC ! 0JZKER IN1EL1.TTTA 0JZXDIERZJ27I0JZXUZKMUAAA0JZXQZK0JZKER IN1EL2.TTTA 0JZXEIERZJ27I0JZXXZKMXAAA ZV ZXS< S -2C27I0LI27IL >ZJI!D!0JZXL0JZK:GL 0UM^A ELIM.TEC Please Be Patient As This May Take A Short While..  :GA  File names & deleted lines will be shown to the user. !TOPP! 0UL 0JZKGQ ZU2 Q2-0 "E @O/DONE1/ ' 0JXAKZXQ 0JZK :GA GA0J 0JZXAZK 0JZKGA0J 0JIEBZJ27I27I0JXDZKMD 0UH 0UJ < !TOP0A! 1:A ZU2 Q2"E@O/DONE0/' 0UO ML0J0,ZPWZK!DONE0! QO-3"L1%O@O/TOP0A/' @O/DDONE1/ > !DDONE1! EC@O/TOPP/ !DONE1! EG ! ELIM.TEC ! ! THIS COMMAND LINE WILL OPERATEON A NAMES LIST OF FILES AND ! ! DELETE ALL LINES IN THE FILE ! ! THAT CONTAIN THE SPECIFIED TOKENS ! 0JZKER IN1EL1.TTT! GET THE NAME OF THE LIST OF NAMES ! A ! ELIMINATE ANY CARRIAGE RETURNS! 0JZXDIERZJ27I0JZXUZKMU!SAVE IT IN REG -U AND OPEN THE LIST OF NAMES FILE! AAA0JZXQZK! GO TO TOP OF PAGE AND SAVE THE NAMES IN REG "Q" ! 0JZKER IN1EL2.TTT! GET THE NAME OF THE LIST OF TOKENS ! A ! ELIMINATE ANY CARRIAGE RETURNS! 0JZXEIERZJ27I0JZXXZKMX!SAVE IT IN REG -X AND OPEN THE LIST OF TOKENS FILE! ! GET THE LIST OF TOKENS & BUILD THE TOKEN SEARCH MACRO ! AAA ! SHOW THE USER HIS LIST OF TOKENS ! ZV ! SAVE THE LIST OF TOKENS FOR LATER IN BUFF "S" ! ZXS ! TOP OF THE LOOP BUILDING THE TOKEN SEARCH MACRO ! ! EACH TOKEN IN THE FILE WILL PRODUCE THE FOLLOWING SEARCH MACRO ! ! TEMP SAVE THE TOKEN IN BUFFER "A" ! < S -2C27I0LI27IL ! END OF THE LOOP BUILDING THE TOKEN SEARCH MACRO ! > ! PUT THE ENDING LABEL IN THE MACRO ! ZJI!D!! SAVE IT IN BUFFER "L" ! 0JZXL0JZK ! TEMP ! :GL ! ! ! ! ! THIS IS THE VERY TOP OF THE LOOP THAT HANDLES ALL THE FILES ! ! ! ! ! 0UM ! ZERO TOTAL LINE COUNT ! ^A ELIM.TEC Please Be Patient As This May Take A Short While..  :GA  File names & deleted lines will be shown to the user. ! HERE DO THIS A LINE AT A TIME ! !TOPP! ! ZERO THIS FILE TOKEN COUNT ! 0UL 0JZKGQ ZU2 !PUT BUFFER LENGTH IN BUFFER 2 ! ! IF NO INPUT GET OUT ALL FILES DONE ! Q2-0 "E @O/DONE1/ ' ! SAVE THE FILE NAME IN BUFFER "A" ! ! AND PEEL OFF ONE FILE NAME AND DELETE THE LINES CONTAINING TOKEN ! ! SPECIFIED IN THIS FILE ! 0JXAKZXQ 0JZK :GA ! PRINT OUT THE FILE NAME ! GA0J 0JZXAZK ! READ THE INPUT FILE FROM BUFFER "D" ! 0JZKGA0J 0JIEBZJ27I27I0JXDZKMD ! NOW GET A PAGE AT A TIME AND CONVERT THE TECO FILE INTO THE APPROPRIATE ! ! ASCII ! ! INITALIZE REGS ! 0UH 0UJ !********************************! < !TOP0A! ! GET A LINE ! 1:A !PUT BUFFER LENGTH IN BUFFER 2 ! ZU2 Q2"E@O/DONE0/' 0UO ! EXECUTE THE COUNT MACRO ! ML! WRITE OUT THIS PAGES WORTH & GET MORE ! !V! 0J0,ZPWZK!V! !********************************! !DONE0! ! NOT 3 EMPTY BUFFERS YET SO NOT DONE ! QO-3"L1%O@O/TOP0A/' ! ALL DONE ! @O/DDONE1/ > !DDONE1! ! CLOSE THE CURRENT FILE ! EC@O/TOPP/ ! GO GET THE NEXT FILE TO CONVERT ! !DONE1! EG ! CLOSE THE OUTPUT FILE !