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