home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turbo Toolbox
/
Turbo_Toolbox.iso
/
1990
/
02
/
tricks
/
fontsize.mod
< prev
next >
Wrap
Text File
|
1989-11-13
|
921b
|
43 lines
(* ------------------------------------------------------ *)
(* FONTSIZE.MOD *)
(* (C) 1989 Andreas Prieser & TOOLBOX *)
(* ------------------------------------------------------ *)
IMPLEMENTATION MODULE FontSize;
FROM Lib IMPORT
(* procs *) Intr;
FROM SYSTEM IMPORT
(* types *) Registers;
PROCEDURE Font8x8;
VAR
r : Registers;
BEGIN
r.AX := 1112H;
r.BL := 00H;
Intr(r, 10H);
END Font8x8;
PROCEDURE Font8x14;
VAR
r : Registers;
BEGIN
r.AX := 1111H;
r.BL := 00H;
Intr(r, 10H);
END Font8x14;
PROCEDURE Font8x16;
VAR
r : Registers;
BEGIN
r.AX := 1114H;
r.BL := 00H;
Intr(r, 10H);
END Font8x16;
END FontSize.
(* ------------------------------------------------------ *)
(* Ende FONTSIZE.MOD *)