home *** CD-ROM | disk | FTP | other *** search
/ PC Interdit / pc-interdit.iso / graph / draw_fon.pas < prev    next >
Pascal/Delphi Source File  |  1994-10-06  |  552b  |  19 lines
  1. Uses Crt,ModeXLib,Gif,Font;
  2.  
  3. Var Entree:Char;      {caractère tapé }
  4.  
  5. Begin
  6.   Init_ModeX;          {initialise le mode X }
  7.   LoadGif('pfont4');   {charge le jeu de caractères }
  8.   p13_2_ModeX(48000,16000); {et le copie en page 3 }
  9.  
  10.   Repeat               {boucle d'affichage des frappes }
  11.     Entree:=ReadKey;    {lit un caractères }
  12.     Print_Char(Entree); {et l'affiche }
  13.   Until Entree=#27;   {jusqu'à ce qu'on tape Esc }
  14.  
  15.   Print_String('Ceci est un test');  {pour terminer affiche toute une chaîne }
  16.   ReadLn;
  17.   TextMode(3);
  18. End.
  19.