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

  Name:     FONTS - load new fonts into EGA/VGA adaptor memory
  Usage:    <logical> = FLxxxxx([<table>])
  Params:   integer <table> - the font table to load the font into,
            in the range of 1 - 4. Optional, default is table 1

  Returns:  logical .T. if the font loaded OK, .F. if not.

            Each font has a different function name preceded by the
            two letters FL - Font Load xxxxxx, where xxxxx equals the
            name of the font. The following fonts are available:

                 Font Name      - Description
                 FLoldeng()     - Old English
                 FLavantgrd()   - Avante Garde
                 FLbauhaus()    - Bauhaus
                 FLbodoni()     - Bodoni
                 FLbroadway()   - Broadway
                 FLscript1()    - Script font
                 FLcalligra()   - Calligraphy
                 FLgaramond()   - Garamond
                 FLlegend()     - Legend (haunted)
                 FLpercy()      - Percy (modern)
                 FLparkave()    - Park Avenue
                 FL3270()       - 3270 Type Font
                 FLcomputer()   - Computer Font
                 FLcyrillic()   - Cyrillic
                 FLgreek()      - Greek Characters
                 FLhebrew()     - Hebrew Characters
                 FLitalic1()    - Italic Font
                 FLitalic2()    - Italic Font
                 FLdigital()    - Digital letters
                 FLscript2()    - Script Font
                 FLromany()     - Romany

            * The FLhebrew() and FLgreek() alphabets start at ascii
            * value 128.

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

                 * Load a font into table 1 using default
                 FLbroadway()

                 * Load a font into table 2
                 FLparkave(2)

                 * set high intensity characters to display
                 * the font in table 2
                 FLdefine(1,2)

                 * set low intensity text to display the
                 * font in table 1
                 FLdefine(0,1)

                 * display the fonts
                 print(10,0,"This is Broadway...",15)
                 print(11,0,"This is Park Avenue...",7)

  Note:     The fonts occupy a character matrix of 8 scan lines in
            width by 14 scan lines in height and are only available
            in 80x25 col mode. The horizontal resolution necessary is
            350 scan lines. On an EGA this is the maximum resolution.
            On a VGA, the maximum resolution is 400-480 horizontal
            lines. If your VGA adaptor is displaying 400 or 480 lines,
            the adaptor is switched into 350 line resolution to display
            the font correctly. If the mode is reset, then the screen is
            cleared and the cursor is homed to row 0, col 0.

            You can display 2 different fonts based on the color
            attribute of the text being displayed. By using the
            FLdefine() function, you can specify that text displayed
            in high intensity colors can use a font in one table,
            while text displayed in the low intensity colors can
            use another table. Careful planning of colors and fonts
            can yield 2 different fonts on screen at the same time.
            Using the palette() function, you can set the colors to
            any of 64 colors available on the EGA and VGA. If you
            exit your program without issuing an FLreset() all
            the fonts you loaded will remain in effect until you
            reboot.

            If you are using the Hebrew get function readh(), you
            should load the Hebrew font first in order to see the
            Hebrew characters. Readh() automatically converts standard
            ascii values into the upper ascii characters so that
            the Hebrew characters are displayed. If you load a font
            and the mode has to be reset on your adaptor, the palette
            is cleared, the screen is cleared, the mode is changed
            and the cursor is homed to row 0, col 0. If your program
            runs on a machine without an EGA or VGA adaptor installed,
            then the font functions return immediately without doing
            anything. This transparency lets you load fonts without
            concern to the type of adaptor in use. If the font loads,
            it will be available, if not, then you'll have the
            standard characters.