home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 02 / tricks / mini.mod < prev    next >
Encoding:
Text File  |  1989-11-14  |  844 b   |  22 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    MINI.MOD                            *)
  3. (*      Erzeugung eines verkleinerten Ausdrucks           *)
  4. (*        (C) 1989 Andreas Prieser & TOOLBOX              *)
  5. (* ------------------------------------------------------ *)
  6. MODULE Mini;
  7.  
  8.   FROM   ASCII IMPORT bel, esc;
  9.   FROM   FIO   IMPORT PrinterDevice, WrStr;
  10.   IMPORT IO;
  11.  
  12. BEGIN
  13.   WrStr( PrinterDevice, esc + '3' + CHR( 18 )  (* 12 inch *)
  14.                       + CHR( 15 )            (* condensed *)
  15.                       + esc + "S0"         (* Superscript *)
  16.                       + bel );               (* OK-Signal *)
  17.   IO.WrStr( "OK." );
  18.   IO.WrLn;
  19. END Mini.
  20. (* ------------------------------------------------------ *)
  21. (*                  Ende MINI.MOD                         *)
  22.