Sorry your browser is not supported!

sync on : sync rate 60
disable escapekey
ink rgb(255,255,255),1 : set text size 13
make object cube 1,1 : hide object 1

Perform checklist for fonts
maxfonts = checklist quantity()

dim CurrentSysFonts$(maxfonts)

MasterFont$ = "Arial"
SubstituteA$ = "Verdana"
SubstituteB$ = "Hillbilly"
MasterFontCheck = 0
SubACheck = 0
SubBCheck = 0

for i = 1 to maxfonts
CurrentSysFonts$(i) = CHECKLIST STRING$(i)
next i

for i = 1 to maxfonts
if CurrentSysFonts$(i) = MasterFont$
MasterFontCheck = 1
endif
if CurrentSysFonts$(i) = SubstituteA$
SubACheck = 1
endif
if CurrentSysFonts$(i) = SubstituteB$
SubBCheck = 1
endif
next i

for i = 1 to maxfonts
CurrentSysFonts$(i) = CHECKLIST STRING$(i)
center text screen width()/2,screen height()/2-24,"font : "+STR$(i)+" of "+STR$(maxfonts)
center text screen width()/2,screen height()/2,CurrentSysFonts$(i)
center text screen width()/2,screen height()/2+40,"master font : "+STR$(MasterFontCheck) + " " + MasterFont$
center text screen width()/2,screen height()/2+60,"subA font : "+STR$(SubACheck) + " " + SubstituteA$
center text screen width()/2,screen height()/2+80,"subB font : "+STR$(SubBCheck) + " " + SubstituteB$
sync
next i

suspend for key
undim CurrentSysFonts$(maxfonts)
delete object 1
end

sync on : sync rate 60 : disable escapekey
ink rgb(255,255,255),1 : set text size 13
backdrop on

MasterFont$ = "Arial"
SubstituteA$ = "Verdana"
SubstituteB$ = "Hillbilly"

maxfonts = find_max_fonts()

dim MasterFontCheck(1) : MasterFontCheck(1) = 0
dim SubACheck(1) : SubACheck(1) = 0
dim SubBCheck(1) : SubBCheck(1) = 0
dim CurrentSysFonts$(maxfonts)

catch_all_fontnames(maxfonts)

check_for_fonts(maxfonts,MasterFont$,SubstituteA$,SubstituteB$)

for i = 1 to maxfonts
   CurrentSysFonts$(i) = CHECKLIST STRING$(i)
   center text screen width()/2,screen height()/2-24,"font : "+STR$(i)+" of "+STR$(maxfonts)
   center text screen width()/2,screen height()/2,CurrentSysFonts$(i)
   center text screen width()/2,screen height()/2+40,"master font : "+STR$(MasterFontCheck(1)) + " " + MasterFont$
   center text screen width()/2,screen height()/2+60,"subA font : "+STR$(SubACheck(1)) + " " + SubstituteA$
   center text screen width()/2,screen height()/2+80,"subB font : "+STR$(SubBCheck(1)) + " " + SubstituteB$
   sync
next i

suspend for key

undim CurrentSysFonts$(maxfonts)
undim MasterFontCheck(1)
undim SubACheck(1)
undim SubBCheck(1)

end

function find_max_fonts()
Perform checklist for fonts
maxfonts = checklist quantity()
endfunction maxfonts

function catch_all_fontnames(maxfonts)
for i = 1 to maxfonts
   CurrentSysFonts$(i) = CHECKLIST STRING$(i)
next i
endfunction

function check_for_fonts(maxfonts,MasterFont$,SubstituteA$,SubstituteB$)
for i = 1 to maxfonts
   if CurrentSysFonts$(i) = MasterFont$
      MasterFontCheck(1) = 1
   endif
   if CurrentSysFonts$(i) = SubstituteA$
      SubACheck(1) = 1
   endif
   if CurrentSysFonts$(i) = SubstituteB$
      SubBCheck(1) = 1
   endif
next i
endfunction