A program that uses fonts must first organize the fonts into a list in memory, a process called initializing. The list gives the computer information about the available fonts.
Initialize the fonts by calling the INITIALIZEFONTS routine:
USE DFLIB
INTEGER(2) numfonts
numfonts = INITIALIZEFONTS( )
If the computer successfully initializes one or more fonts, INITIALIZEFONTS returns the number of fonts initialized. If the function fails, it returns a negative error code.