|##########|
|#MAGIC   #|CLABLMAL
|#PROJECT #|"IMPORTALL"
|#PATHS   #|"StdProject"
|#FLAGS   #|xx-x-x--x-----x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x-xx-x----------
|##########|
DEFINITION MODULE Keyboard;
(* $A- *)
FROM T_Exec     IMPORT IOCommand, nonstdVAL, IOStdReqPtr;
FROM Resources  IMPORT ContextPtr;

CONST
  readEvent        = IOCommand( nonstdVAL + 0 );
  readMatrix       = IOCommand( nonstdVAL + 1 );
  addResetHandler  = IOCommand( nonstdVAL + 2 );
  remResetHandler  = IOCommand( nonstdVAL + 3 );
  resetHandlerDone = IOCommand( nonstdVAL + 4 );

PROCEDURE OpenKeyboard(context : ContextPtr:=NIL):IOStdReqPtr;

PROCEDURE CloseKeyboard(VAR request : IOStdReqPtr);

GROUP
  All  = readEvent,readMatrix,addResetHandler,remResetHandler,
         resetHandlerDone,OpenKeyboard,CloseKeyboard,T_Exec.ExecIOGrp;

END Keyboard.