home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / squeeze.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-07  |  369b  |  13 lines
  1. Program Assemble_images;
  2.  
  3. uses Crt,ModeXLib,Gif;
  4. Begin
  5.   Init_ModeX;                        {Active le mode X}
  6.   LoadGif('squeeze');                {charge l'image }
  7.   p13_2_ModeX(vram_pos,rest div 4);
  8.   ReadLn;                            {attend une frappe de touche }
  9.   Squeeze;                           {assemble l'image }
  10.   ReadLn;
  11.   TextMode(3);
  12. End.
  13.