home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / ecoule.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-07  |  789b  |  25 lines
  1. Program ecoulement;
  2.  
  3. Uses Crt,Gif,ModeXLib;
  4. Procedure Ecoule;
  5. var i,
  6.     Old9:Byte;
  7. Begin
  8.   Port[$3d4]:=9; {sélectionne le registre 9 du CRTC (Maximum Row Adress) }
  9.   Old9:=Port[$3d5] and $80;   {mémorise l'ancien contenu, ...}
  10.   for i:=2 to 31 do begin     {...évite la relecture }
  11.     WaitRetrace;              {synchronisation}
  12.     Port[$3d5]:=old9 or i;    {écriture dans le registre }
  13.   End;
  14. End;
  15.  
  16. Begin
  17.   asm mov ax,13h; int 10h End;  {active le mode 13h (ou un autre mode graphique)}
  18.   LoadGif('coin');  {charge le fond d'écran }
  19.   Move(vscreen^,Ptr($a000,0)^,64000);              {et l'affiche }
  20.   ReadLn;
  21.   Ecoule;                       {lance l'effet d'écoulement }
  22.   ReadLn;
  23.   TextMode(3);                  {remet la carte VGA dans l'état initial }
  24. End.
  25.