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