Sorry your browser is not supported!

set text size 16 : set text font "Arial"
d$="ABCabc123"
PERFORM CHECKLIST FOR FONTS
fontcount=checklist quantity()
x=0 : y=0 : mw=0
for f=1 to fontcount
   f$=checklist string$(f)
   o$=f$+" = "
   text x,y,o$
   w1=text width(o$)
   h1=text height(o$)
   set text font f$
   text x+w1,y,d$
   w2=text width(d$)
   h2=text height(d$)
   set text font "Arial"
   if h1 < h2 : h=h2 : else : h=h1 : endif
   w=w1+w2 : y=y+h
   if w > mw then mw=w
   if y > (screen height()-20) then x=x+mw+5 : mw=0 : y=0
next f
wait key

sync on : sync rate 0 : set text size 20 : ink rgb(255,255,255),rgb(0,0,0)
` output string
d$=""
for f=1 to 26 : d$=d$+chr$(f+64) : next f
for f=1 to 26 : d$=d$+chr$(f+96) : next f
d$=d$+"0123456789"
` get list of available fonts into an array
perform checklist for fonts
c=checklist quantity()
dim a$(c-1)
for f=1 to c
   a$(f-1)=checklist string$(f)
next f
` sort fonts into alphabetical order
repeat
   t$=""
   for f=0 to c-2
      if a$(f) > a$(f+1) then t$=a$(f) : a$(f)=a$(f+1) : a$(f+1)=t$
   next f
until t$=""
` make images for sprites
for f=1 to c
   f$=a$(f-1)
   cls
   set text font "Arial"
   text 0,0,f$+" = " : fw=text width(f$+" = ")
   set text font f$
   text fw,0,d$
   get image f,0,0,800,20,1
next f
o=0
do
   if upkey() and o < 0 then inc o,20
   if downkey() then dec o,20
   for f=1 to c
      sprite f,0,((f-1)*20)+o,f
   next f
   sync
loop