codigo.awk

{
    if ( $0 ~ /^ *[0-9]/ ) {
	for ( i = 1; i <= NF; i++ ) {
	    if ( i == 1 ) { printf $i";" }
	    if ( i > 1 && $i ~ /[A-Z0-9]/ ) {
		j = i
		while ( $j !~ /\.[0-9][0-9]/ && j <= NF ) {
		    field = field $j" "
		    j++
		}
		sub(/ $/,"",field)
		if ( j < NF ) {
		    printf field";"
		}
		if ( j == NF+1 ) {
		    print field
		}
		i = j
		field = ""
	    }
	    if ( i > 1 && $i ~ /[0-9]/ || $i ~ /\-[0-9]/ ) {
		if ( i != NF ) {
		    printf $i";"
		} else {
		    print $i
		}
	    }
	}
    }
}