home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / grafik / pcx / teglpcx / pcxhead.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-07  |  820 b   |  31 lines
  1. {-----------------------------------------------------------------------------}
  2. {               TEGL Windows ToolKit II                  }
  3. {          Copyright (C) 1990, 1991 TEGL Systems Corporation              }
  4. {                All Rights Reserved.                  }
  5. {-----------------------------------------------------------------------------}
  6.  
  7. uses pcxgraph;
  8.  
  9. var pcxname : string;
  10.     pcxhead : pcxheader;
  11.  
  12. begin
  13.    writeln('PCX Show Header, Copyright (c) TEGL Systems Corporation 1991');
  14.    writeln;
  15.    if paramcount < 1 then
  16.      begin
  17.     writeln('Usage:    PCXHEAD  <source[.PCX]>');
  18.     writeln;
  19.     halt;
  20.      end;
  21.  
  22.    pcxname := paramstr(1);
  23.  
  24.    if pos('.',pcxname)=0 then
  25.       pcxname := pcxname + '.PCX';
  26.  
  27.    Writeln('PCX Header information for ',pcxname);
  28.    getpcxheader(pcxname,pcxhead);
  29.    listpcxheaderinfo(pcxhead);
  30. end.
  31.