Topic       : The GFA-Basic Compendium
Author      : GFA Systemtechnik GmbH
Version     : GFABasic.HYP v2.98 (12/31/2023)
Subject     : Documentation/Programming
Nodes       : 899
Index Size  : 28056
HCP-Version : 3
Compiled on : Atari
@charset    : atarist
@lang       : 
@default    : Document not found
@help       : Help
@options    : +g -i -s +z
@width      : 75
@hostname   : STRNGSRV
@hostname   : CAB     
@hostname   : HIGHWIRE
@hostname   : THING   
View Ref-FileVST_LOAD_FONTS(x)
VST_UNLOAD_FONTS(x)

x: iexp

The function VST_LOAD_FONTS() loads any additional fonts specified in
ASSIGN.SYS, if sufficient memory is available, then the number of loaded fonts
is returned. If no fonts are available, zero is returned.

The parameter x should be zero with present versions of GEM, though this may
change in the future. It is important to reserve sufficient memory for the
additional fonts, using RESERVE.

The function VST_UNLOAD_FONTS() removes the fonts loaded previously
with VST_LOAD_FONTS() from memory. The parameter x is currently zero, same as
VST_LOAD_FONTS().

Example:

    RESERVE 25600
    '
    num_fonts%=VST_LOAD_FONTS(0) !how many additional fonts?
    ADD num_fonts%,WORK_OUT(10)  !add system fonts, gives the true total
    '
    FOR i%=1 to num_fonts%
      face%=VQT_NAME(i%,font$)   !index and name of loaded font
      DEFTEXT ,,,,face%
      TEXT 80,80,"This is "+font$+" font."
      ~INP(2)
    NEXT i%
    '
    ~VST_UNLOAD_FONTS(0)         !remove fonts
    '
    RESERVE

--> Displays the names of all available fonts in their own font face.

Memo: VST_UNLOAD_FONTS() seems to return INTOUT(0), but it's useless.
      This VDI call is documented as not having a return value.

vst_load_fonts()+, vst_unload_fonts()+