BEGIN {i=0}
    $1 == "(CHARACTER" { letter[i]=$3; i++}  
    $1 == "(CHARHT" { high[i-1]=10*$3;} 
    $1 == "(CHARDP" { deph[i-1] = 10*$3 ;}  
END{for(j=0;j<229;j++) print "alt["j+15"]:="(high[j]+deph[j])/2-deph[j]";" > "fontdat";}