(*******************************************************************)
(** Release history:                                              **)
(**    17th January 1985   version 1.0.0 First port to new world  **)
(*******************************************************************)
DEFINITION MODULE rawBBC;

EXPORT QUALIFIED VduByte, VduWord, PrinterOn,
                 TextCursor, GraphCursor, ScreenOn,
                 Bell,
                 CursorLeft, CursorRight, CursorDown, CursorUp,
                 ClearTextArea, StartOfLine, PageModeOn, PageModeOff,
                 ClearGraphicsArea, TextColour, GraphicsColour, SetColour,
                 ResetColours, Mode, DefChar, GraphicsWindow,
                 Plot, ResetWindows, Escape, TextWindow, GraphicsOrigin,
                 CursorHome, CursorTo, DeleteChar,
                 MoveAbs, MoveRel, LineAbs, LineRel, FillTriangleAbs,
                 FillTriangleRel;
       
PROCEDURE VduByte (I :INTEGER);
PROCEDURE VduWord (I :INTEGER);
PROCEDURE PrinterOn ();
PROCEDURE TextCursor ();
PROCEDURE GraphCursor ();
PROCEDURE ScreenOn ();
PROCEDURE Bell ();
PROCEDURE CursorLeft ();
PROCEDURE CursorRight ();
PROCEDURE CursorDown ();
PROCEDURE CursorUp ();
PROCEDURE ClearTextArea ();
PROCEDURE StartOfLine ();
PROCEDURE PageModeOn ();
PROCEDURE PageModeOff ();
PROCEDURE ClearGraphicsArea ();
PROCEDURE TextColour (Colour :INTEGER);
PROCEDURE GraphicsColour (Mode, Colour :INTEGER);
PROCEDURE SetColour (Logical, Physical :INTEGER);
PROCEDURE ResetColours;
PROCEDURE Mode (I :INTEGER);
PROCEDURE DefChar (C, R1, R2, R3, R4, R5, R6, R7, R8 :INTEGER);
PROCEDURE GraphicsWindow (Xl, Yb, Xr, Yt :INTEGER);
PROCEDURE Plot (Code, X, Y :INTEGER);
PROCEDURE ResetWindows ();
PROCEDURE Escape ();
PROCEDURE TextWindow (Xl, Yb, Xr, Yt :INTEGER);
PROCEDURE GraphicsOrigin (X, Y :INTEGER);
PROCEDURE CursorHome ();
PROCEDURE CursorTo (X, Y :INTEGER);
PROCEDURE DeleteChar ();
PROCEDURE MoveAbs (X, Y :INTEGER);
PROCEDURE MoveRel (X, Y :INTEGER);
PROCEDURE LineAbs (X, Y :INTEGER);
PROCEDURE LineRel (X, Y :INTEGER);
PROCEDURE FillTriangleAbs (X, Y :INTEGER);
PROCEDURE FillTriangleRel (X, Y :INTEGER);

END rawBBC.
