file = $1
/* file = $firstfont */
Print(file)
fonts=FontsInFile(file)
num=SizeOf(fonts)
i = 0
while ( i < num )
	Open(file + "(" + fonts[i] + ")")
	Print($fontname)
	Generate($fontname + ".afm","",0x11)
   	i += 1
endloop