----------------------------------------------------------------------
--  The Screen Package (Specification)
--
--  Programmer : John Cupak
--  History    :  6Oct97 jcj Created
--               17Oct97 jcj "Base" types package 
--  Description: This package defines the xterm/VT100 size
----------------------------------------------------------------------

   package Screen is
   
      Maximum_Rows    : constant := 24;
      Maximum_Columns : constant := 80;
   
      subtype Rows    is Positive range 1..Maximum_Rows;
      subtype Columns is Positive range 1..Maximum_Columns;
   
   private
   
      -- Define constant for use by all child packages
   
      -- Command Sequence Introducer (CSI)
      -- (provides screen command prefix)
   
      CSI : constant String := ASCII.ESC & "[";
   
   end Screen;