program bitmap_modes;

uses crt,dos,graphics;

var modes : array[2..4] of word;
  i, code : integer;

{-----------------------------------------------}

begin

  if (paramstr(1)='/?') or (paramstr(1)='') then
    begin
      writeln;
      Writeln('MODES FOR BITMAP  Written by Franz Ayestaran (c)1997');
      writeln('----------------');
      writeln('The program saves four mode values which are unique to');
      writeln('each make of graphics card and saves them to a file called');
      writeln('<default.mde>. The default driver for BITMAP supports the');
      writeln('Cirrus CL-GD542X Chipsets if the <default.mde> file is not');
      writeln('present. The values can be entered in as decimal or hex');
      writeln('ie: <255> or <$ff>.');
      writeln;
      writeln('BITMAP <m2> <m3> <m4>');
      writeln;
      writeln('Modes in 256 Colour> 2: 640x400 - 3: 800x600 - 4: 1024x768');
    end;

  if (paramstr(1)<>'/?') and (paramstr(1)<>'') then
    begin
      Val(ParamStr(1), i, code);
      modes[2]:=i;
      Val(ParamStr(2), i, code);
      modes[3]:=i;
      Val(ParamStr(3), i, code);
      modes[4]:=i;

      save_graphic_modes('default.mde',modes[2],modes[3],modes[4]);
      writeln('File Saved!');
    end;
end.