alias listfonts {
var %a = f. $+ $ticks
.comopen %a WScript.Shell
if $comerr { return }
if $com(%a,ExpandEnvironmentStrings,3,bstr*,% $+ SystemRoot%) && $com(%a).result { noop }
.comclose %a
if *% iswm $v1 { return }
%a = $v2 $+ \Fonts
.fopen -no fontlist font.dat
noop $findfile(%a,*.fon;*.ttf,0,.fwrite -n fontlist $nopath($1-))
.fclose fontlist
filter -ffctn 1 1 font.dat font.dat
}