home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / tricks / fontsize.mod < prev    next >
Encoding:
Modula Implementation  |  1989-11-14  |  921 b   |  43 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    FONTSIZE.MOD                        *)
  3. (*          (C) 1989 Andreas Prieser & TOOLBOX            *)
  4. (* ------------------------------------------------------ *)
  5. IMPLEMENTATION MODULE FontSize;
  6.  
  7.   FROM Lib IMPORT
  8.     (* procs *) Intr;
  9.  
  10.   FROM SYSTEM IMPORT
  11.     (* types *) Registers;
  12.  
  13.   PROCEDURE Font8x8;
  14.   VAR
  15.     r : Registers;
  16.   BEGIN
  17.     r.AX := 1112H;
  18.     r.BL := 00H;
  19.     Intr(r, 10H);
  20.   END Font8x8;
  21.  
  22.   PROCEDURE Font8x14;
  23.   VAR
  24.     r : Registers;
  25.   BEGIN
  26.     r.AX := 1111H;
  27.     r.BL := 00H;
  28.     Intr(r, 10H);
  29.   END Font8x14;
  30.  
  31.   PROCEDURE Font8x16;
  32.   VAR
  33.     r : Registers;
  34.   BEGIN
  35.     r.AX := 1114H;
  36.     r.BL := 00H;
  37.     Intr(r, 10H);
  38.   END Font8x16;
  39.  
  40. END FontSize.
  41. (* ------------------------------------------------------ *)
  42. (*                   Ende FONTSIZE.MOD                    *)
  43.