ðCOberon10.Scn.FntOberon10i.Scn.Fnt ¹ßMODULE PrinterDriver; (* js 13.10.94 *) (*---------------------------------------------------------* * Copyright (c) 1990-1996 ETH Z…rich. All Rights Reserved. * Oberon is a trademark of Institut f…r Computersysteme, ETH Z…rich. *---------------------------------------------------------*) 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.