PROGRAM   TextStyl ;
USES   Graph ;

VAR
   G_GraphDriver : Integer ;
   G_GraphMode   : Integer ;
BEGIN
   G_GraphDriver := Detect ;
   G_GraphMode   := Detect ;
   InitGraph ( G_GraphDriver , G_GraphMode , 'C:\Lib\BGI' );


   SetTextStyle ( GothicFont , HorizDir , 4 );
   OutTextXY ( 10 , 10   ,   'GothicFont '   );

   SetTextStyle ( SansSerifFont , HorizDir , 4 );
   OutTextXY ( 10 , 60   ,   'SansSerifFont'   );

   SetTextStyle ( SmallFont , HorizDir , 4 );
   OutTextXY ( 10 , 110   ,   'SmalFont'   );

   SetTextStyle ( TriplexFont , HorizDir , 4 );
   OutTextXY ( 10 , 160   ,   'TriplexFont '   );

   ReadLn ;
   CloseGraph ;
END.
