Click above to get retro games delivered to your door ever month!

  Name:     FLoad() - load a font from disk into EGA/VGA memory
  Usage:    <logical> = FLoad(<fname>,<start>,<num>,<table>)
  Params:   string <fname> - the filename to load from
            integer <start> - the starting character defined
            integer <num> - the number of characters defined
            integer <table> - the table to load the font into,
            optional, if left off then table 1 is assumed

  Returns:  logical .T. if the font was loaded ok, .F. if not
            or error

 ---------------------------------- Example ---------------------------------

            * A file EGA.814 contains a font for the EGA. the
            * starting character is 0, and there are 256 characters
            * defined. Load them into table 2.

                 if ! (FLoad("EGA.814",0,256,2))
                      ? "Error loading font...."
                 endif

  Note:     FLoad() is mainly for use in loading fonts generated
            by the public domain font editor CHET, or the PC
            magazine program FONTEDIT. The font file must contain
            the binary font definitions only. Some font programs
            add additional information which would cause FLoad()
            to load erroneous data into the EGA/VGA memory. Usually
            the font file contains only font data but some
            experimentation may be in order to see if your font
            editor creates pure binary font files.