PROCEDURE INITIOAIDS;
(* Call this Procedure to INITialize the Variables *)
BEGIN
  MAXLINE := 80;	(*Maximum number of CHARacters per line*)
  SCREENSIZE := 24;	(*Maximum number of lines displayable*)
(* These definitions are directly printable CHARacters *)
  BELL	:= CHR(7);
  CR	:= CHR(13);	(* Carriage Return *)
  LF	:= CHR(10);	(* Line Feed *)
  DEL	:= CHR(127);	(* DELete *)
  ESC	:= CHR(27);	(* ESCape *)
  TAB	:= CHR(9);	(* TAB CHARacter if supported *)
  HOME	:= CHR(30);	(* Home-up Cursor on ADM3A CRT *)
  CLEAR := CHR(26);	(* Home-up AND Clear ADM3A CRT *)
  BELL	:= CHR(7);	(* Rings the Bell on terminals equipped *)
  formfeed := CHR(12);	(* ASCII form feed code *)
  null := CHR(0);	(* ASCII null character *)
  EQUALS := CHR(61);	(* ASCII EQual sign *)
  REVERSE := CHR(8);	(* Move the Cursor Back/Left *)
  CURSORLEFT:=CHR(8);	(* Move Cursor Left *)
  CURSORRIGHT:=CHR(12); (* Move Cursor Right *)

  Terminal := ADM;	{ Select the correct terminal type }

{ SET FOR CORRECT TERMINAL LIBRARY }
{$iTVI920.LIB }

END;



  Terminal := ADM;	{ Select the correct terminal type }

{ SET FOR CORRECT TERMINAL