0JZKERIN1ELB1.TTTA0JZXDIERZJ27I0JZXUZKMU AAA0JZXQZK0JZKERIN1ELB2.TTTA0JZXEIERZJ27I0JZXXZKMX AAZVZXSS -2C27I0LI!T!<1:A27II0JSS -2CI;27II@O/D/>ZU2Q2"E@O/D2/'27II0UO0JZVZK @O/T/27II!D2!QO-3"L1%O27II@O/T/'!D!27I 0JZXL0JZK:GL0UM^A ELIMBEFOR.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!ML@O/DDONE1/'!DONE0!QO-3"L1%O@O/TOP0A/'@O/DDONE1/> !DDONE1!EC@O/TOPP/!DONE1!EG ! ELIMBEFOR.TEC ! 0JZKER IN1ELB1.TTT A 0JZXDIERZJ27I0JZXUZKMU AAA0JZXQZK 0JZKER IN1ELB2.TTT A 0JZXEIERZJ27I0JZXXZKMX AA ZV ZXS S -2C27I 0LI!T! < 1:A27II0JSS -2C I;27I I@O/D/ > ZU2 Q2"E@O/D2/'27II 0UO 0JZVZK @O/T/27II !D2! QO-3"L1%O27II@O/T/' !D! 27I 0JZXL0JZK :GL 0UM ^A ELIMBEFOR.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! ML @O/DDONE1/' !DONE0! QO-3"L1%O@O/TOP0A/' @O/DDONE1/ > !DDONE1! EC@O/TOPP/ !DONE1! EG ! ELIMBEFOR.TEC ! ! THIS COMMAND LINE WILL OPERATEON A NAMES LIST OF FILES AND ! ! DELETE ALL LINES IN THE FILE ! ! UNTIL THE SPECIFIED TOKEN IS REACHED ! 0JZKER IN1ELB1.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 IN1ELB2.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 TOKEN & BUILD THE TOKEN SEARCH MACRO TO DELETE ! ! LINES TILL ITS REACHED ! AA ! 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 -2C27I ! BUILD THE DELETE/SEARCH MACRO ! 0LI!T! < 1:A27II0JSS -2C ! PUT IN THE TOKEN LINE DELETER ! I;27I I@O/D/ > ZU2 Q2"E@O/D2/'27II 0UO 0JZVZK @O/T/27II !D2! QO-3"L1%O27II@O/T/' !D! ! PUT THE ENDING LABEL IN THE MACRO ! 27I ! 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 ELIMBEFOR.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! ! EXECUTE THE COUNT MACRO ! ML ! CLOSE THE CURRENT FILE ! @O/DDONE1/' !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 !