#file=geisa_contents
$geisa <geisainf|
{
skip 7
echo "<table border>"
read l m n p q r s t u
echo "<captation><h3>"
 echol "Contenu de la base <em>$t</em>" "Contents of the <em>$t</em> data base"
 echo "</h3></captation>"
skip 4
read l m n p q r
echo "<tr><th>&nbsp;"
echol "mol&eacute;cule" "molecule"
echo " </th><th>&nbsp;$m </th><th>&nbsp;$n </th><th colspan=2>&nbsp;"
echol "nombre de" "number of"
echo "$r </th></tr>"
skip 2
while read l m n;test "$l" != "------";do
echo "<tr><td>$l</td><td align=center>$m</td><td>`expr \"$n\" : '/\(.*\)/'`</td><td align=right colspan=2>`expr \"$n\" : '/.*/\(.*\)'`</td></tr>";done
skip 2;ifs=$IFS;IFS=" =";read l m n p q r s t u v nu1 x y nu2;IFS=$ifs
echo "<tr><th colspan=3></th><th>&nbsp;total</th><td align=right>$p</td></tr>"
echo "<captation align=bottom><h4><ul><li>"
echol "Domaine spectral" "Spectral area"
echo ": <em>$nu1</em> &agrave; <em>$nu2</em> cm<sup>-1</sup></li></ul></h4></captation>"
echo "<captation align=bottom><h4><ul><li>"
echol "Nombre total de transitions" "Total number of transitions"
echo ": <em>$p</em></li></ul></h4></captation>"
echo "</table>"
}