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

 CGA80()
 Switches to 80-column mode (color or monochrome)
------------------------------------------------------------------------------
 Syntax

     CGA80([<lMonochromeMode>]) --> lSwitch

 Argument

     <lMonochromeMode>  Designates the 40.character mode.  If this
     parameter is .T., the function switches to the monochrome CGA
     80-character mode.  If this parameter is .F., the function switches to
     the 80-character color mode.  The default value is .F..

 Returns

     CGA80() returns .T. when the screen adapter you use permits a switch.

 Description

     This function can be used with any screen adapter that has CGA emulation
     capability.  You can switch to CGA 80-character mode, color or
     monochrome.  The function ISCOLOR() also returns .T. in the monochrome
     mode because this option activates a "color summing" of the screen
     adapter and does not switch to the monochrome mode for a hercules
     adapter or a monochrome text adapter.

 Notes

     Important!  This function cannot be implemented when windows are
     open.

     .  A call with .T. corresponds to BIOS mode 2.  A call with .F.
        corresponds to BIOS mode 3.

 Examples

     .  Switch to 80-character mode (color):

        ?  CGA80()         //  .T., if successful

     .  Switch to 80-character mode (monochrome):

        ?  CGA80(.T.)      //  .T., if successful