ð#Syntax10.Scn.Fnt MODULE PrinterDriver; (* Copyright (c) Jacques Supcik, 1994-95 / js 13.10.94 *) VAR res*: INTEGER; err*: BOOLEAN; errMsg*, f*: ARRAY 32 OF CHAR; Open*: PROCEDURE(tmpFileName: ARRAY OF CHAR); 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; PROCEDURE Error*(s0, s1: ARRAY OF CHAR); VAR error, f: ARRAY 32 OF CHAR; BEGIN COPY(s0, error); COPY(s1, f); HALT(99) END Error; BEGIN err := FALSE; END PrinterDriver.