program IMAGE;

{$M 8192,0,0}           { Leave memory for child process }

uses crt,dos,open,graphics;

var count,h, s, s2, m, hund : Word;
                       mode : byte;

begin

  mode:=0;

  if (paramstr(1)='/?') or (paramstr(1)='') then
    begin
      writeln;
      Writeln('IMAGE FOR DOS  Written by Franz Ayestaran (c)1999');
      writeln('-------------');
      writeln('The program loads 256 colour and greyscale images of');
      writeln('320 x 200 in size, the <.img> extension is not required');
      writeln('but must be accompanied by a <.pal> file.');
      writeln;
      writeln('Image <filename> </f> </g> </p>');
      writeln;
      writeln('/p = Waits for key to be pressed when bitmap is displayed,');
      writeln('     else the bitmap will be displayed for 10 seconds');
      writeln('/f = Fades image/palette in and out.');
      writeln('/g = Only displays bimap palette.');
      writeln('/t = Do not return to text mode.');
      writeln('/? = Displays this screen when used in place of filename.');
    end;

  if (paramstr(1)<>'/?') and (paramstr(1)<>'') then

  if Does_File_Exist(paramstr(1)+'.img') then
    begin

    mode:=1;
    asminitgraphics(mode);

     if (paramstr(2)='/g') or
        (paramstr(3)='/g') or
        (paramstr(4)='/g') or
        (paramstr(5)='/g') or
        (paramstr(6)='/g') then

       begin
         clearpalettearray;
         asminitpalette;
         Load256palette(paramstr(1)+'.pal');
         palettegraph(mode);
       end;

     if (paramstr(2)<>'/g') and
        (paramstr(3)<>'/g') and
        (paramstr(4)<>'/g') and
        (paramstr(5)<>'/g') and
        (paramstr(6)<>'/g') then

        begin
         clearpalettearray;
         asminitpalette;
         Load256palette(paramstr(1)+'.pal');
         Load320Image(paramstr(1)+'.img',mode1addr,64000);
        end;

     if (paramstr(2)='/f') or
        (paramstr(3)='/f') or
        (paramstr(4)='/f') or
        (paramstr(5)='/f') or
        (paramstr(6)='/f') then fadein(200)
                                else asminitpalette;

     if (paramstr(2)='/p') or
        (paramstr(3)='/p') or
        (paramstr(4)='/p') or
        (paramstr(5)='/p') or
        (paramstr(6)='/p') then repeat until keypressed
                             else
                               begin
                                 for count := 1 to 10 do
                                 begin
                                     GetTime(h,m,s,hund);
                                   repeat
                                     GetTime(h,m,s2,hund);
                                   until s2<>s;
                                 end;
                               end;


     if (paramstr(2)='/f') or
        (paramstr(3)='/f') or
        (paramstr(4)='/f') or
        (paramstr(5)='/f') or
        (paramstr(6)='/f') then fadeout(200);


     if (paramstr(2)='/t') or
        (paramstr(3)='/t') or
        (paramstr(4)='/t') or
        (paramstr(5)='/t') or
        (paramstr(6)='/t') then begin end else asmclosegraph;

    end
      else writeln('File not found!');

end.