# conv.pl <indat>
$rmfont = "/Palatino-Roman";
$ttfont = "/Courier";
$sffont = "/Helvetica";

$i=0;
while (<>)
{ if (!$i)
 { ($first,$num) = $ARGV =~ /(\w+).(\d+)/;
   $output = $first.$num.".eps";
   print "generating $output\n";
   open(output,">".$output);

   # erg�nze die EPSF-Kennung
   print output "%!PS-Adobe-3.0 EPS-1.2\n";

   # schreibe den ganzen Prolog
   do { $_ = <>; print output $_;
      } while (!/%%EndProlog/);

   # f�ge nun den Fonthack ein
   # ist f�r andere Fonts abzu�ndern!!!
   print output <<EOP
/pala $rmfont def
/courier $ttfont def
/cmr10 $rmfont def      % wg. TeX-Grundschrift
/cmr7 $rmfont def
/fshow {exch findfont exch scalefont setfont show} def
EOP
 }
 else
 { print output $_; }
 ++$i;
 if (eof) { $i=0;  close(output); }
}