(* TEXT MODE *)
PROCEDURE INV(N:BOOLEAN);EXTERNAL;
PROCEDURE UNDERLINE(N:BOOLEAN);EXTERNAL;
PROCEDURE MODE(N:INTEGER);EXTERNAL;
PROCEDURE DKL(N:BOOLEAN);EXTERNAL;
PROCEDURE AT(X,Y:INTEGER);EXTERNAL;
PROCEDURE COLOR(A,B,C:INTEGER);EXTERNAL;

PROCEDURE SCREEN(N:BOOLEAN);EXTERNAL;

(* GRAPHICS MODE *)
PROCEDURE PLOT(X,Y,C:INTEGER);EXTERNAL;
PROCEDURE LINE(X,Y,XX,YY,C:INTEGER);EXTERNAL;
PROCEDURE DRAW(X,Y,C:INTEGER);EXTERNAL;
PROCEDURE CURSOR(A,B:INTEGER);EXTERNAL;
PROCEDURE PAINT(X,Y,C,CC:INTEGER);EXTERNAL;
PROCEDURE BOX(X,Y,XX,YY,C,T:INTEGER);EXTERNAL;
FUNCTION POINT(X,Y:INTEGER):INTEGER;EXTERNAL;

(* ALL AREA *)
PROCEDURE DISPLAY(N:INTEGER);EXTERNAL;
PROCEDURE PRINTER(N:INTEGER);EXTERNAL;
FUNCTION READKEY:CHAR;EXTERNAL;
FUNCTION KEYPRESSED:BOOLEAN;EXTERNAL;
PROCEDURE IK(N:BOOLEAN);EXTERNAL;
PROCEDURE ID(N:BOOLEAN);EXTERNAL;
PROCEDURE IP(N:BOOLEAN);EXTERNAL;
FUNCTION GD:INTEGER;EXTERNAL;
FUNCTION GIK:BOOLEAN;EXTERNAL;
FUNCTION GID:BOOLEAN;EXTERNAL;
FUNCTION GIP:BOOLEAN;EXTERNAL;