|##########|
|#MAGIC   #|CLABLMKH
|#PROJECT #|"ImportAll"
|#PATHS   #|"StdProject"
|#FLAGS   #|xx-x-x--xx--x-x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE Console;
(* $A- *)
FROM T_Exec      IMPORT IOCommand,nonstdVAL,IOStdReqPtr,LibraryPtr,
                        IOStdReq;
FROM Input       IMPORT InputEventPtr;
FROM KeyMap      IMPORT KeyMapPtr;
FROM System      IMPORT Regs;
FROM Resources   IMPORT ContextPtr;

CONST
  askKeyMap          = IOCommand(nonstdVAL+0);
  setKeyMap          = IOCommand(nonstdVAL+1);
  askDefaultKeyMap   = IOCommand(nonstdVAL+2);
  setDefaultKeyMap   = IOCommand(nonstdVAL+3);

  primary            = 0;
  bold               = 1;
  italic             = 3;
  underScore         = 4;
  negative           = 7;

|(V36)
  normal             = 22;
  notItalic          = 23;
  notUnderscore      = 24;
  positive           = 27;

  black              = 30;
  red                = 31;
  green              = 32;
  yellow             = 33;
  blue               = 34;
  magenta            = 35;
  cyan               = 36;
  white              = 37;
  default            = 39;
  blackBg            = 40;
  redBg              = 41;
  greenBg            = 42;
  yellowBg           = 43;
  blueBg             = 44;
  magentaBg          = 45;
  cyanBg             = 46;
  whiteBg            = 47;
  defaultBg          = 49;

  clr0               = 30;
  clr1               = 31;
  clr2               = 32;
  clr3               = 33;
  clr4               = 34;
  clr5               = 35;
  clr6               = 36;
  clr7               = 37;
  clr0Bg             = 40;
  clr1Bg             = 41;
  clr2Bg             = 42;
  clr3Bg             = 43;
  clr4Bg             = 44;
  clr5Bg             = 45;
  clr6Bg             = 46;
  clr7Bg             = 47;

  dsrCpr             = 6;

  ctcHSetTab         = 0;
  ctcHClrTab         = 2;
  ctcHClrTabsAll     = 5;
  tbcHClrTab         = 0;
  tbcHClrTabsAll     = 3;

  mLnm               = 20;
  mAsm               = ">1";
  mAwm               = "?7";


|Definition der verschiedenen Console Units für OpenDevice()
CONST
  library  = -1;
  standard = 0;

|(V36)
  charMap  = 1;
  snipMap  = 3;

|Neue Flags für OpenDevice() - (V37)
TYPE
  ConFlags   = (nodrawOnNewsize,dummy=31);
  ConFlagSet = SET OF ConFlags;

VAR
  ConsoleBase  : LibraryPtr;

PROCEDURE OpenConsole(window  : ANYPTR;
                      unit    : LONGCARD   := standard;
                      flags   := ConFlagSet:{};
                      context : ContextPtr := NIL): IOStdReqPtr;

PROCEDURE CloseConsole(VAR request : IOStdReqPtr);

LIBRARY ConsoleBase BY -42
  PROCEDURE CDInputHandler(events  IN A0  : InputEventPtr;
                           device1 IN A1  : ANYPTR):InputEventPtr;

LIBRARY ConsoleBase BY -48
  PROCEDURE RawKeyConvert(events  IN A0  : InputEventPtr;
                          buffer  IN A1  : ANYPTR;
                          length  IN D1  : LONGINT;
                          keyMap  IN A2 : KeyMapPtr):LONGINT;

GROUP
  UnitGrp       =  library,standard,charMap,snipMap,ConFlags,
                   ConFlagSet;
  CommandGrp    =  askKeyMap,setKeyMap,askDefaultKeyMap,
                   setDefaultKeyMap;
  StyleGrp      =  primary,bold,italic,underScore,negative,normal,
                   notItalic,notUnderscore,positive;
  ColorGrp      =  black,red,green,yellow,blue,magenta,cyan,white,
                   default,blackBg,redBg,greenBg,yellowBg,blueBg,
                   magentaBg,cyanBg,whiteBg,defaultBg;
  ClrGrp        =  clr0,clr1,clr2,clr3,clr4,clr5,clr6,clr7,clr0Bg,
                   clr1Bg,clr2Bg,clr3Bg,clr4Bg,clr5Bg,clr6Bg,clr7Bg;
  ConstGrp      =  dsrCpr,ctcHSetTab,ctcHClrTab,ctcHClrTabsAll,
                   tbcHClrTab,tbcHClrTabsAll,mLnm,mAsm,mAwm;

  ProcGrp       =  T_Exec.ExecIOGrp,OpenConsole,CloseConsole,
                   CDInputHandler,RawKeyConvert;

  All           =  UnitGrp,CommandGrp,StyleGrp,ColorGrp,ClrGrp,
                   ConstGrp,ProcGrp;


END Console.