Syntax10.Scn.Fnt
Syntax10b.Scn.Fnt
Syntax10i.Scn.Fnt
MODULE PrinterDriver;	(* JS 13.10.94, SHML 12 Jul 95 *)
	IMPORT Texts, Oberon;
		res*: INTEGER; err*: BOOLEAN; errMsg*, f*: ARRAY 32 OF CHAR;
		Open*: PROCEDURE(VAR name, user: ARRAY OF CHAR; password: LONGINT);
		UseListFont*: PROCEDURE(VAR name: ARRAY OF CHAR);
		ReplConst*: PROCEDURE(x, y, w, h: INTEGER);
		ContString*: PROCEDURE(VAR s, fname: ARRAY OF CHAR);
		String*: PROCEDURE(x, y: INTEGER; VAR s, fname: ARRAY OF CHAR);
		ReplPattern*: PROCEDURE(x, y, w, h, col: INTEGER);
		Picture*: PROCEDURE(x, y, w, h, mode: INTEGER; adr: LONGINT);
		Circle*: PROCEDURE(x0, y0, r: INTEGER);
		Ellipse*: PROCEDURE(x0, y0, a, b: INTEGER);
		Line*: PROCEDURE(x0, y0, x1, y1: INTEGER);
		UseColor*: PROCEDURE(red, green, blue: INTEGER);
		Spline*: PROCEDURE(x0, y0, n, open: INTEGER; VAR X, Y: ARRAY OF INTEGER);
		Page*: PROCEDURE(nofcopies: INTEGER);
		Close*: PROCEDURE;
		wr: Texts.Writer;
	PROCEDURE Error*(s0, s1: ARRAY OF CHAR);
	BEGIN
		COPY(s0, errMsg); COPY(s1, f);
		Texts.WriteString(wr, s0); Texts.Write(wr, " "); Texts.WriteString(wr, s1);	(*<<*)
		Texts.WriteLn(wr); Texts.Append(Oberon.Log, wr.buf);	(*<<*)
		err := TRUE; res := 1
	END Error;
BEGIN Texts.OpenWriter(wr); err := FALSE
END PrinterDriver.