Sorry your browser is not supported!

if not FontLoaded("CALIBRI")
   calibri = 1
   LoadFont("CALIBRI.TTF")
endif

set text font "CALIBRI"
set text size 18

print "Hello World!"

wait key

if calibri
   UnloadFont("CALIBRI.TTF")
endif

end

function LoadFont(FontFile as string)
  load dll "gdi32.dll", 1
  result = call dll(1, "AddFontResourceA", FontFile)
  delete dll 1
endfunction result

function UnloadFont(FontFile as string)
  load dll "gdi32.dll", 1
  call dll 1, "RemoveFontResourceA", FontFile
  delete dll 1
endfunction

function FontLoaded(FontName as string)
   local i as integer

   FontName = upper$(FontName)

   perform checklist for fonts
   for i = 1 to checklist quantity()
      if upper$( checklist string$(i) ) = FontName then exitfunction 1
   next i
endfunction 0