F0NTNAME$="garnet.font" : Rem name of font to load 
F0NTSIZE=9 : Rem size of font to load 
Rem the above names and sizes MUST be correct otherwise I cant locate them 
Get Disc Fonts : Rem load font list from disc 
For TEMP=1 To 100
   A$=Font$(TEMP) : Rem font data
   If Mid$(A$,0,11)=F0NTNAME$ : Rem is the name the same ? 
      If Mid$(A$,31,1)=Str$(FONTSIZE) : Rem is the size the same?
         F0NT=TEMP : Rem store the number of the font.
         Goto SETFNT : Rem set the font 
      End If 
   End If 
   If A$="" : Rem if a$ is null- the font doesnt exist, or I can't find it.  
      F0NT=0 : Rem so default to topaz
   End If 
Next 
SETFNT:
Set Font F0NT : Rem set our font