'MultipleFontLoad
'SCREEN 0 may use only one FONT. When changed, changes full screen
'Otherwise graphic modes preserve the screen contents when change font
'_LOADFONT needs the use of style$ variable instead of constant
CONST MINSIZE
= 8, MAXSIZE
= 100 f$ = "veranda.ttf"
style$ = "MONOSPACE"
PRINT:
PRINT "LOADING MIN/MAX: "; f$;
" style: "; style$
FOR i
= MINSIZE
TO MAXSIZE
PRINT "Font sizes:"; MINSIZE;
"-"; MAXSIZE;
INPUT ". Select size"; fontsize%
PRINT "Fail"; i; hFont&
(i
)
FOR i
= MINSIZE
TO MAXSIZE