home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / VIEWPCX.PAS < prev    next >
Pascal/Delphi Source File  |  1995-02-14  |  499b  |  18 lines

  1.  
  2. program viewpcx; { VIEWPCX.PAS }
  3. { Basic PCX viewer (320x200x256), by Bas van Gaalen }
  4. { Commandline-parameter: any 64kb PCX file }
  5. uses u_vga,u_ffpcx,u_pal,u_kb;
  6. var pcxpal:pal_type; pcxpic:pointer;
  7. begin
  8.   getmem(pcxpic,320*200);
  9.   if pcx_load(paramstr(1),pcxpic,pcxpal)<>pcx_ok then begin
  10.     writeln('An error ocured: ',pcx_errstr); halt; end;
  11.   setvideo($13);
  12.   setpal(pcxpal);
  13.   displaypic(0,0,pcxpic,320,200);
  14.   freemem(pcxpic,320*200);
  15.   waitkey(0);
  16.   setvideo(u_lm);
  17. end.
  18.