🚀 go-pugleaf

In article <BzKtA4.D67@news.cso.uiuc.edu>, ritley@uimrl7.mrl.uiuc.edu () writes:
> 
> I am trying to clean up large amounts of Fortran code which
> contains "junk" in each record of each file, beyond the
> 72-nd character position in each record.
> 
> 
-- 

Here is a simple procedure to do that, but I might use a learn sequence if I
knew what the file looked like, since that is usually faster than writing a TPU
procedure and debugging it, and then running it on the file.

For the most part, I use LSE since I do embedded stuff, but I think you can
compile this with "extend this" and save your section file.  The procedure can
be invoked with "tpu d72".  The way I determine end of buffer might be
cumbersome, so I am open to suggestions from the "pros".


-----cut here---------------------------------------------------------------
procedure d72

!  Mark end of buffer

  position(buffer_end);
  eob := mark(none);
  position(buffer_begin);

  loop	      
    position(line_begin);
    eob1 := mark(none);     ! mark current position
    exitif (eob1=eob);      ! exit if end of buffer
    col72 := cursor_horizontal(72);   ! move to col 72
    erase_character(length(current_line) - 72);  ! erase to eol
    move_vertical(1);
  endloop

endprocedure;

-----cut here---------------------------------------------------------------

-------------------------------------------------------------------------------
Todd A Sorensen               Honeywell Defense Avionics Systems Division
(505) 828-5611                internet: tas@dasd.honeywell.com
                              fax: (505) 828-5500
------------------------------------------------------------------------------- 
Why celebrate CHRISTmas if you don't believe in Him?