procedure tpu$init_procedure
local start, finish, zap, file;
on_error if error <> tpu$_strnotfound then abort endif endon_error;
   set(success,off);
   jf_buf := create_buffer('jf_buf', 'mcv:rebuild.com');
   set(output_file,jf_buf,'mcv:rebuild.com');
   position (jf_buf);
   loop
      start := search('******************************',forward,exact);
      exitif start = 0;
      position(start);
      move_vertical(-1);
      start := mark(none);
      move_vertical(2);
      move_horizontal(-1);
      finish := mark(none);
      zap := create_range(start,finish,none); 
      erase(zap);
      start := mark(none);
      move_vertical(1);
      move_horizontal(-1);
      finish := mark(none);
      zap := create_range(start,finish,none);
      file := substr(zap,1,1000);
      erase(zap);
      file := file_parse(file,'','',NODE)+
              file_parse(file,'','',DEVICE)+
              file_parse(file,'','',DIRECTORY);
      copy_text('$ set default '+file);
      split_line;
      move_horizontal(-current_offset);
      start := mark(none);
      move_vertical(1);
      move_horizontal(-1);
      finish := mark(none);
      zap := create_range(start,finish,none);
      erase(zap);
      endloop;
   remove('$ extract');
   remove('$ msgpas');
   set(success,on);
   exit
endprocedure;

procedure remove(junk)
local start, finish, zap;
on_error if error <> tpu$_strnotfound then abort endif endon_error;
   position(beginning_of(jf_buf));
   loop
      start := search(junk,forward,no_exact);
      exitif start = 0;
      position(start);
      move_horizontal(-current_offset);
      start := mark(none);
      move_vertical(1);
      move_horizontal(-1);
      finish := mark(none);
      zap := create_range(start,finish,none);
      erase(zap);
      endloop;
endprocedure;

set(success,off);
save('mcv:make_rebuild.tpu$section');
quit;