[Info-vax] x86-64 VMS: One piece of software no-one has asked for yet

[Henry Crun]

On 07/09/14 12:31, Phillip Helbig---undress to reply wrote:
> In article <020920140045214758%nospam at yrl.co.uk>, Elliott Roper
> <nospam at yrl.co.uk> writes:
>
>> In article <ltqn58$b8d$1 at online.de>, Phillip Helbig---undress to reply
>> <helbig at astro.multiCLOTHESvax.de> wrote:
>>
>>> In article <db27db-kst1.ln1 at news.chingola.ch>, Paul Sture
>>> <nospam at sture.ch> writes:
>>>
>>>> My most common use for TECO was stripping extraneous <CR><LF> pairs from
>>>> RUNOFF output files.
>>>
<code>
! CONTROL.TPU
! TPU procedure to remove ASCII 1 - 31 characters from a file
!
! Usage: EDIT/TPU/NOSECTIO/COMMAND=CONTROL.TPU <input-file-spec.ext>
!
!                                                 Mike Rechtman, 1996
PROCEDURE global_delete( X )
  LOCAL src_range, replace_count, CONTROL_

ON_ERROR
RETURN;
ENDON_ERROR;

CONTROL_ := ASCII(X);
LOOP
src_range := SEARCH( CONTROL_,FORWARD );
ERASE( src_range );
replace_count := replace_count + 1;
ENDLOOP;
ENDPROCEDURE;

LOCAL X
file_spec := GET_INFO( COMMAND_LINE,"file_name" );
next_file := "";
next_file := File_Search (file_spec);
msg_txt := FAO(" Working on !AS " , next_file);
MESSAGE ( msg_txt ) ;
main_buffer := CREATE_BUFFER( "main",next_file ) ;
X := 0 ;
Loop
	X := X+1 ;
	Exitif X > 31 ;
   	POSITION( BEGINNING_OF( main_buffer ) ) ;
	global_delete( X ) ;
Endloop ;
WRITE_FILE( main_buffer ) ;
DELETE ( main_buffer ) ;
EXIT ;
!
</code>

Easy enough to make the necessary changes...

>>> I also use it for this, but not for RUNOFF files.
>>>
>>> I don't use it for my lawnmower.
>>>
>> Waves!
>
> Hi Elliott, nice to see that you are a) still around and b) still
> reading comp.os.vms.  Now that the grass is much greener again on the
> VMS side of the fence, you might have to boot your lawnmower!
>


-- 
Mike R.
Home: http://alpha.mike-r.com/
QOTD: http://alpha.mike-r.com/php/qotd.php
No Micro$oft products were used in the URLs above, or in preparing this message.
Recommended reading: http://www.catb.org/~esr/faqs/smart-questions.html#before


--- news://freenews.netfront.net/ - complaints: news at netfront.net ---