10 REM > BLib.Win.Font1 1.00 14-Nov-2008 J.G.Harston
   20 :
   30 REM Font_Select - Attempt to select a font, returns non-zero if failed
   40 REM ------------------------------------------------------------------
   50 REM Returns FALSE if font not selected
   60 :
   70 DEFFNFont_Select(font$)
   80 LOCAL face%,face$:DIM face% LOCAL 31
   90 SYS "CharUpperBuff", !^font$, LEN font$
  100 OSCLI"FONT "+font$
  110 SYS "GetTextFace", @memhdc%, 32, face%:face$=$$face%
  120 SYS "CharUpperBuff", !^face$, LEN face$
  130 font$=LEFT$(font$,INSTR(font$+",",",")-1)
  140 =font$=face$
  150 :

Download Font1.bbc

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.