home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / tricks / fontdemo.mod < prev    next >
Encoding:
Text File  |  1989-11-14  |  1.0 KB  |  42 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     FONTDEMO.MOD                       *)
  3. (*           Demonstration zum Modul FontSize             *)
  4. (*          (C) 1989  Andreas Prieser & TOOLBOX           *)
  5. (* ------------------------------------------------------ *)
  6. MODULE FontDemo;
  7.  
  8.   FROM IO IMPORT
  9.     (* procs *) RdKey, WrStr, WrLn;
  10.  
  11.   FROM FontSize IMPORT
  12.     (* procs *) Font8x8, Font8x14, Font8x16;
  13.  
  14.   FROM Window IMPORT
  15.     (* procs *) Clear;
  16.  
  17.   VAR c : CHAR;
  18.  
  19. BEGIN
  20.   Clear;
  21.   WrStr( "Font-Demo (nur EGA und VGA)" );
  22.   WrLn;  WrLn;
  23.  
  24.   WrStr( "EGA: 43 Zeilen, VGA: 50 Zeilen " + CHR( 17 ) +
  25.          CHR( 217 ) );
  26.   Font8x8;
  27.   c := RdKey();
  28.   WrLn;  WrLn;
  29.  
  30.   WrStr( "VGA: 28 Zeilen " + CHR( 17 ) + CHR( 217 )  );
  31.   Font8x14;
  32.   c := RdKey();
  33.   WrLn;  WrLn;
  34.  
  35.   WrStr( "VGA: 25 Zeilen " + CHR( 17 ) + CHR( 217 )  );
  36.   Font8x16;
  37.   WrLn;
  38.  
  39. END FontDemo.
  40. (* ------------------------------------------------------ *)
  41. (*                 Ende FONTDEMO.MOD                      *)
  42.