{ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
 º MDRUtils/Mark D.Rafn  [71530,2307]                                       º
 º Rt1 Box138A                                                              º
 º Two Harbors, MN 55616                                                    º
 º 218-834-5154                                                             º
 º                                                                          º
 º Unit for programming the EGA graphics adapter.                           º
 º Must be in graphics mode.                                                º
 ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ}
{$D-,R-,S-}
unit EGA;
interface
uses Graph;

const
  EGACard: boolean = false;
  VGACard: boolean = false;
  EGA_Pal: PaletteType = (
    Size: 16;
    Colors: (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) );

  procedure EGA_SetPlane_Write( plane: byte );
  procedure EGA_SetPlane_Read( Plane: byte );
  procedure EGA_Reset_Write;
  procedure EGA_Reset_Read;
  procedure EGA_ResetPalette;
  procedure EGA_SetRGBPalette( cn, red, green, blue: integer );

implementation