echo off
if not "%1"=="" goto los
echo Parameter: Font-Dateien (.pfb), max. 4
goto end

:los
rem copy %GS_LIB%\pfshow.ps %TEMP%\pfshow$$.ps
echo 70 740 sethome 12 setfontsize > %TEMP%\pfshow$$.ps
:next
if exist %1.pfa type %1.pfa >> %TEMP%\pfshow$$.ps
if exist %1.pfb D:\fonts\progs\t1utils\t1ascii %1.pfb >> %TEMP%\pfshow$$.ps
if exist %1 D:\fonts\progs\t1utils\t1ascii %1 >> %TEMP%\pfshow$$.ps
echo                                    appendnewfont >> %TEMP%\pfshow$$.ps
shift
if not "%1"=="" goto next
echo showallfonts showpage quit >> %TEMP%\pfshow$$.ps

gs -q -sPAPERSIZE=a4 -sDEVICE=deskjet -r300 -dNOPAUSE pfshow.ps %TEMP%\pfshow$$.ps
del %TEMP%\pfshow$$.ps
:end