if exist %1.pfb goto los
echo kein .pfb-Fontfile da.
goto end

:los
echo MaxIndex 255 > %1.enc
echo MaxEncoded 255 >> %1.enc
echo StartEncoding >> %1.enc
sed -e /eexec/d -e /eexec/q -e "s,^dup \(.*\)/\(.*\) put$,\1\2," -e tx -e d -e :x %1.pfb >> %1.enc
echo EndEncoding >> %1.enc
:end