! ELIMNOT.TEC ! 0JZKERIN1ELN1.TTTA0JZXDIERZJ27I0JZXUZKMUAAA0JZXQZK0JZKERIN1ELN2.TTTA0JZXEIERZJ27I0JZXXZKMXAAAZVZXS27IL>ZJIVK!D!0JZXL0JZK! TEMP !:GL0UM^A ELIMNOT.TEC Please Be Patient As This May Take A Short While..  :GA  File names & deleted lines will be shown to the user. !TOPP!0UL0JZKGQZU2Q2-0"E@O/DONE1/'0JXAKZXQ0JZK:GAGA0J0JZXAZK0JZKGA0J0JIEBZJ27I27I0JXDZKMD0UH0UJ< !TOP0A!1:AZU2Q2"E@O/DONE0/'0UOML0J0,ZPWZK!DONE0! QO-3"L1%O@O/TOP0A/'@O/DDONE1/>!DDONE1!EC@O/TOPP/!DONE1!EG ! ELIMNOT.TEC ! 0JZKERIN1ELN1.TTTA 0JZXDIERZJ27I0JZXUZKMUAAA0JZXQZK0JZKERIN1ELN2.TTTA 0JZXEIERZJ27I0JZXXZKMXAAA ZV ZXS< S -2C27I0LI27IL >ZJIVK!D!0JZXL0JZK! TEMP ! :GL 0UM ! ZERO TOTAL LINE COUNT ! ^A ELIMNOT.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 ! ELIMNOT.TEC ! ! THIS COMMAND LINE WILL OPERATE ON A NAMES LIST OF FILES AND ! ! DELETE ALL LINES IN THE FILE ! ! THAT DO NOT CONTAIN CONTAIN THE SPECIFIED TOKENS ! ! ----- ! 0JZKERIN1ELN1.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" ! 0JZKERIN1ELN2.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 ! ZJIVK!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 ELIMNOT.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 !