home *** CD-ROM | disk | FTP | other *** search
/ PC Media 23 / PC MEDIA CD23.iso / share / prog / dclib500 / verpcx.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-03-25  |  1.2 KB  |  43 lines
  1. Program a;
  2.  
  3. Uses PCXUNIT, Crt, SRP;
  4.  
  5. var
  6.    Spcx : Pointer;
  7.    PCXX,
  8.    PCXY : byte;
  9.  
  10. Begin
  11.      If (ParamStr(1)='?') or (ParamStr(1)='') or (ParamStr(1)=' ')
  12.      or (ParamStr(1)='  ') or (ParamStr(1)='   ') or (ParamStr(1)='    ')
  13.      or (ParamStr(1)=' ') then
  14.      begin
  15.        Writeln;
  16.        TextColor(15);
  17.        { Versión 1.00 del 17/09/1993. Versión inicial }
  18.        { Versión 1.01 del 25/03/1994. Se corrigen errores }
  19.        Writeln('VerPCX Versión 1.01 para DOS');
  20.        Writeln('Shareware 1993,94 David Carrero Fernández-Baillo');
  21.        Textcolor(7);
  22.        Writeln;
  23.        Writeln('Visualizador de imagenes .PCX');
  24.        Writeln('No soporta la versión 5 del formato .PCX');
  25.        Writeln('SINTAXIS:');
  26.        Writeln('   VERPCX <ficheroPCX>');
  27.        Writeln('   No requiere extensión si es .PCX');
  28.        Writeln;
  29.      end
  30.      else
  31.      begin
  32.        SalvarPantalla(SPCX, PCXX, PCXY);
  33.        Writeln;
  34.        Textcolor(15);
  35.        Writeln('VerPCX Versión 1.01 para DOS');
  36.        Writeln('Shareware 1993,94 David Carrero Fernández-Baillo');
  37.        Textcolor(7);
  38.        Writeln;
  39.        Delay(900);
  40.        VerPCX(ParamStr(1));
  41.        RecuperarPantalla(SPCX, PCXX, PCXY);
  42.      end
  43. end.