home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / Console.def < prev    next >
Encoding:
Modula Definition  |  1988-11-06  |  1.2 KB  |  77 lines
  1. (*$M-*)
  2. DEFINITION MODULE Console;
  3.  
  4. FROM SYSTEM IMPORT
  5.  ADDRESS;
  6. FROM Exec IMPORT
  7.  nonstd;
  8. FROM InputEvent IMPORT
  9.  InputEventPtr;
  10.  
  11. CONST
  12.  consoleName="console.device";
  13.  askKeyMap=nonstd+0;
  14.  setKeyMap=nonstd+1;
  15.  askDefaultKeyMap=nonstd+2;
  16.  setDefaultKeyMap=nonstd+3;
  17.  primary=0;
  18.  bold=1;
  19.  italic=3;
  20.  underscore=4;
  21.  negative=7;
  22.  black=30;
  23.  red=31;
  24.  green=32;
  25.  yellow=33;
  26.  blue=34;
  27.  magenta=35;
  28.  cyan=36;
  29.  white=37;
  30.  default=39;
  31.  blackBg=40;
  32.  redBg=41;
  33.  greenBg=42;
  34.  yellowBg=43;
  35.  blueBg=44;
  36.  magentaBg=45;
  37.  cyanBg=46;
  38.  whiteBg=47;
  39.  defaultBg=49;
  40.  clr0=30;
  41.  clr1=31;
  42.  clr2=32;
  43.  clr3=33;
  44.  clr4=34;
  45.  clr5=35;
  46.  clr6=36;
  47.  clr7=37;
  48.  clr0Bg=40;
  49.  clr1Bg=41;
  50.  clr2Bg=42;
  51.  clr3Bg=43;
  52.  clr4Bg=44;
  53.  clr5Bg=45;
  54.  clr6Bg=46;
  55.  clr7Bg=47;
  56.  dsrCpr=6;
  57.  ctcHSetTab=0;
  58.  ctcHClrTab=2;
  59.  ctcHClrTabsAll=5;
  60.  tbcHClrTab=0;
  61.  tbcHClrTabsAll=3;
  62.  mLnm=20;
  63.  mAsm=">1";
  64.  mAwm="?7";
  65.  
  66. PROCEDURE CDInputHandler(device0{14}:ADDRESS;
  67.                          events{8}:InputEventPtr;
  68.                          device1{9}:ADDRESS); CODE -42;
  69. PROCEDURE RawKeyConvert(
  70.            device0{14}:ADDRESS;
  71.            events{8}:InputEventPtr;
  72.            buffer{9}:ADDRESS;
  73.            length{1}:LONGINT;
  74.            keyMap{10}:ADDRESS):LONGINT; CODE -48;
  75.  
  76. END Console.
  77.