while($f=<>){$F=$f<88|$f>108;$f-=87.7;$T=int($f*3);if($f>12.2){$f-=11.3;$T+=int($f*1.05);}print"|";for($t=88;$t<109;$t++){printf("%d%s",$t,$t^108?" ":"");}print"|\n|";for($t=0;$t<71;$t++){printf($F?"x":$T^$t?" ":"*");}print"|\n\n";}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).