home *** CD-ROM | disk | FTP | other *** search
/ PC Underground / UNDERGROUND.ISO / graphic / draw_fon.pas < prev    next >
Pascal/Delphi Source File  |  1995-07-28  |  558b  |  19 lines
  1. Uses Crt,ModeXLib,Gif,Font;
  2.  
  3. Var Input:Char;                {input character}
  4.  
  5. Begin
  6.   Init_ModeX;                  {Mode X on}
  7.   LoadGif('pfont4');           {load character set}
  8.   p13_2_ModeX(48000,16000);    {and copy to page 3}
  9.  
  10.   Repeat                       {loop for outputting keyboard input}
  11.     Input:=ReadKey;            {get character}
  12.     Print_Char(Input);         {and put on monitor}
  13.   Until Input=#27;             {until Esc pressed}
  14.  
  15.   Print_String('hello, test'); {finally, output a string}
  16.   ReadLn;
  17.   TextMode(3);
  18. End.
  19.