home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GFXFX2.ZIP / VIEWGIF.PAS < prev    next >
Pascal/Delphi Source File  |  1995-02-14  |  521b  |  18 lines
  1.  
  2. program viewgif; { VIEWGIF.PAS }
  3. { GIF viewer, by Bas van Gaalen }
  4. uses dos,u_vga,u_ffgif,u_kb;
  5. var info:gif_inforec; bgipath,fname:pathstr; dummy:byte;
  6. begin
  7.   bgipath:='i:\gfxfx2';
  8.   fname:=paramstr(1);
  9.   if gif_info(fname,info)<>gif_ok then begin
  10.     writeln('An error ocured: ',gif_errstr); halt; end;
  11.   with info do
  12.     writeln('Info on ',fname,': ',xres,'x',yres,'x',1 shl pixs,', ',version);
  13.   waitkey(0);
  14.   dummy:=gif_display(fname,bgipath,-1);
  15.   clearkeybuf; waitkey(0);
  16.   setvideo(u_lm);
  17. end.
  18.