@echo off
set dumvar=
set del=
if not "%1"=="-" goto mach
set del=rem
shift

:mach
sed -e /StartFontMetrics/,/StartKernPairs/p -e d %1.afm > %1.afs
egrep KPX %1.afm | sort >> %1.afs
sed -e /EndKernPairs/,/EndFontMetrics/p -e d %1.afm >> %1.afs
%del% if exist %1.af$ del %1.af$
ren %1.afm %1.af$
ren %1.afs %1.afm