DEFINITION MODULE LINEA ;

PROCEDURE LineAttribs(linemask, wrtmode : INTEGER) ;
(* see abacus INTERNALS for details *)

PROCEDURE Plot(x, y : INTEGER) ;

PROCEDURE Locate(x, y : INTEGER) : INTEGER ;
(* returns color value of point *)

PROCEDURE LineColour(p1, p2, p3, p4 : INTEGER) ;
(* sets line color of the planes *) 

PROCEDURE PlotColour(color : INTEGER) ;

PROCEDURE Line(x, y, x1, y1 : INTEGER) ;
PROCEDURE InitLineA;
END LINEA.