BEGIN {expresion_compleat = "t"}
{if (expresion_compleat == "t"){
    if ($0 ~ /.*do_fio\(&c.*/ && substr($2,2,9) == "(char *)&"){

       var = (substr($2,11,length($2)-10 ))
       if ((var ~ /.*alfs_1\.alfa.*/) ||\
           (var ~ /.*cbuf.*/) ||\
           (var ~ /.*h.*/) ||\
           (var ~ /.*blh.*/) ||\
           (var ~ /.*errmsg.*/) ||\
           (var ~ /.*bel.*/) ||\
           (var ~ /.*com_1\.buf.*/) ||\
           (var ~ /.*ch.*/) ||\
           (var ~ /.*sig.*/) ||\
           (var ~ /.*buf.*/) ||\
           (var ~ /.*in.*/)){
          if (substr($0,length($0),1) == ";"){ 
             print var " = " var " << 24;"
             print $0
             print var " = " var " >> 24;"
             }
          else{
             print var " = " var " << 24;"
             print $0
             expresion_compleat = "f"
             }
          }
          else
             print $0 
       }
    else
       print $0
    } 
  else{               # expresion_compleat != t
     print $0
     print var " = " var " << 24;"
     expresion_compleat = "t"
     }
}

