PROCEDURE cjc_listing_fix

LOCAL 	file_name    ,
        target_str   ,
	target_range ,
        now_position ;

ON_ERROR
	if ( ERROR = TPU$_STRNOTFOUND )  then
            !!!!  do nothing -- needing this is an idiocy of TPU courtesy of DEC
        else return ;
	endif ;
ENDON_ERROR;

file_name  :=  get_info ( CURRENT_BUFFER , "FILE_NAME" ) ;
if ( index ( file_parse ( file_name , '' , '' , TYPE ) , 'LIS' ) = 0 ) then
        message ( 'NOT a listing file. No fixing attempted' ) ;
        return ( 0 ) ;
endif ;

target_str    :=  '' ;
now_position  :=  mark ( NONE ) ;
position ( beginning_of ( current_buffer ) ) ;

loop
	target_range := search ( target_str, FORWARD ) ;
        exitif ( target_range = 0 ) ;
        position ( beginning_of ( target_range ) ) ;

        erase_line ;  erase_line ;
        erase_line ;  erase_line ;
endloop;

position ( now_position ) ;

ENDPROCEDURE ;