home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
1990
/
02
/
tricks
/
fontdemo.mod
< prev
next >
Wrap
Text File
|
1989-11-13
|
1KB
|
42 lines
(* ------------------------------------------------------ *)
(* FONTDEMO.MOD *)
(* Demonstration zum Modul FontSize *)
(* (C) 1989 Andreas Prieser & TOOLBOX *)
(* ------------------------------------------------------ *)
MODULE FontDemo;
FROM IO IMPORT
(* procs *) RdKey, WrStr, WrLn;
FROM FontSize IMPORT
(* procs *) Font8x8, Font8x14, Font8x16;
FROM Window IMPORT
(* procs *) Clear;
VAR c : CHAR;
BEGIN
Clear;
WrStr( "Font-Demo (nur EGA und VGA)" );
WrLn; WrLn;
WrStr( "EGA: 43 Zeilen, VGA: 50 Zeilen " + CHR( 17 ) +
CHR( 217 ) );
Font8x8;
c := RdKey();
WrLn; WrLn;
WrStr( "VGA: 28 Zeilen " + CHR( 17 ) + CHR( 217 ) );
Font8x14;
c := RdKey();
WrLn; WrLn;
WrStr( "VGA: 25 Zeilen " + CHR( 17 ) + CHR( 217 ) );
Font8x16;
WrLn;
END FontDemo.
(* ------------------------------------------------------ *)
(* Ende FONTDEMO.MOD *)