home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / fade_out.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-07  |  352b  |  13 lines
  1. uses crt,modexlib;
  2. var i:word;
  3.  
  4. Begin
  5.   For i:=1 to 40 do   {prépare l'écran de test }
  6.     Write('Ceci est un texte de démonstration ');
  7.   GetPal;             {charge la table de palette avec la palette du DAC}
  8.   ReadLn;
  9.   Fade_out;           {fondu de fermeture de l'écran }
  10.   ReadLn;
  11.   TextMode(3);        {rétablit l'écran normal }
  12. End.
  13.