Warning: this is an htmlized version!
The original is here, and
the conversion rules are here.
-- You must set font850 before running this.
-- For example:
--   font850  = loadfont("ega1.8")

math_glyphs   = bigstrtorawarr(math_bigstr)
fontlatin     = trfont(font850, highglyphs_850, highglyphs_latin)
mathfontlatin = changefont(fontlatin, math_glyphs, math_cchars)
mathfont850   = trfont(mathfontlatin, highglyphs_latin, highglyphs_850)
savefont(font850, "850.8", "850.8.psf", "850.8.matrix")
savefont(fontlatin, "latin.8", "latin.8.psf", "latin.8.matrix")
savefont(mathfont850, "math850.8", "math850.8.psf", "math850.8.matrix")
savefont(mathfontlatin, "mathlatin.8", "mathlatin.8.psf",
                        "mathlatin.8.matrix")