home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2src / keys.def < prev    next >
Text File  |  1995-06-19  |  5KB  |  165 lines
  1. DEFINITION MODULE Keys;
  2. (*
  3.     Description : Symbolic constants for non-ASCII keyboard functions
  4.     Author      : I.R. Matters (Ian.Matters@anu.edu.au)
  5.     System      : Juergen Neuhoff's Modula-2 compiler on OS/2 v3.0
  6.     Version     : 1.00
  7.     Last Edit   : 19 June 1995
  8.  
  9.     Notes       : The values described in this table assume that the
  10.                   second byte of the keyboard code is shifted by 128
  11.                   decimal where possible.
  12.  
  13.                   Alt-Spacebar is specially mapped to 215C;
  14.                   The Ctrl-2 key is remapped to an ASCII nul;
  15.                   Ctrl-PrintScreen is only supported in full screen mode.
  16. *)
  17.  
  18.  
  19. CONST F1Key              = 273C;
  20.       F2Key              = 274C;
  21.       F3Key              = 275C;
  22.       F4Key              = 276C;
  23.       F5Key              = 277C;
  24.       F6Key              = 300C;
  25.       F7Key              = 301C;
  26.       F8Key              = 302C;
  27.       F9Key              = 303C;
  28.       F10Key             = 304C;
  29.  
  30.       ShiftF1Key         = 324C;
  31.       ShiftF2Key         = 325C;
  32.       ShiftF3Key         = 326C;
  33.       ShiftF4Key         = 327C;
  34.       ShiftF5Key         = 330C;
  35.       ShiftF6Key         = 331C;
  36.       ShiftF7Key         = 332C;
  37.       ShiftF8Key         = 333C;
  38.       ShiftF9Key         = 334C;
  39.       ShiftF10Key        = 335C;
  40.  
  41.       CtrlF1Key          = 336C;
  42.       CtrlF2Key          = 337C;
  43.       CtrlF3Key          = 340C;
  44.       CtrlF4Key          = 341C;
  45.       CtrlF5Key          = 342C;
  46.       CtrlF6Key          = 343C;
  47.       CtrlF7Key          = 344C;
  48.       CtrlF8Key          = 345C;
  49.       CtrlF9Key          = 346C;
  50.       CtrlF10Key         = 347C;
  51.  
  52.       AltF1Key           = 350C;
  53.       AltF2Key           = 351C;
  54.       AltF3Key           = 352C;
  55.       AltF4Key           = 335C;
  56.       AltF5Key           = 354C;
  57.       AltF6Key           = 355C;
  58.       AltF7Key           = 356C;
  59.       AltF8Key           = 357C;
  60.       AltF9Key           = 360C;
  61.       AltF10Key          = 361C;
  62.  
  63.       Alt1Key            = 370C;
  64.       Alt2Key            = 371C;
  65.       Alt3Key            = 372C;
  66.       Alt4Key            = 373C;
  67.       Alt5Key            = 374C;
  68.       Alt6Key            = 375C;
  69.       Alt7Key            = 376C;
  70.       Alt8Key            = 377C;
  71.  
  72.       AltQKey            = 220C;
  73.       AltWKey            = 221C;
  74.       AltEKey            = 222C;
  75.       AltRKey            = 223C;
  76.       AltTKey            = 224C;
  77.       AltYKey            = 225C;
  78.       AltUKey            = 226C;
  79.       AltIKey            = 227C;
  80.       AltOKey            = 230C;
  81.       AltPKey            = 231C;
  82.  
  83.       AltAKey            = 236C;
  84.       AltSKey            = 237C;
  85.       AltDKey            = 240C;
  86.       AltFKey            = 241C;
  87.       AltGKey            = 242C;
  88.       AltHKey            = 243C;
  89.       AltJKey            = 244C;
  90.       AltKKey            = 245C;
  91.       AltLKey            = 246C;
  92.  
  93.       AltZKey            = 254C;
  94.       AltXKey            = 255C;
  95.       AltCKey            = 256C;
  96.       AltVKey            = 257C;
  97.       AltBKey            = 260C;
  98.       AltNKey            = 261C;
  99.       AltMKey            = 262C;
  100.  
  101.       ShiftTabKey        = 217C;
  102.  
  103.       HomeKey            = 307C;
  104.       UpArrKey           = 310C;
  105.       PgUpKey            = 311C;
  106.  
  107.       LtArrKey           = 313C;
  108.  
  109.       RtArrKey           = 315C;
  110.  
  111.       EndKey             = 317C;
  112.       DnArrKey           = 320C;
  113.       PgDnKey            = 321C;
  114.       InsKey             = 322C;
  115.       DelKey             = 323C;
  116.  
  117.       CtrlPrtScKey       = 362C;  (* Only works in full screen mode *)
  118.       CtrlLtArrKey       = 363C;
  119.       CtrlRtArrKey       = 364C;
  120.       CtrlEndKey         = 365C;
  121.       CtrlPgDnKey        = 366C;
  122.       CtrlHomeKey        = 367C;
  123.  
  124.       (* The following keys do NOT have the high bit set as above *)
  125.  
  126.       Alt9Key            = 200C;
  127.       Alt0Key            = 201C;
  128.       AltHyphenKey       = 202C;
  129.       AltEqualsKey       = 203C;
  130.  
  131.       CtrlPgUpKey        = 204C;
  132.  
  133.       F11Key             = 205C;  (* Note that F11 and F12 may not *)
  134.       F12Key             = 206C;  (* be supported in all computers *)   
  135.       ShiftF11Key        = 207C;
  136.       ShiftF12Key        = 210C;
  137.       CtrlF11Key         = 211C;
  138.       CtrlF12Key         = 212C;
  139.       AltF11Key          = 213C;
  140.       AltF12Key          = 214C;
  141.  
  142.       AltSpacebar        = 215C;  (* Special key mapping *)
  143.  
  144.  
  145. TYPE Modifiers = SET OF (RightShiftKey, LeftShiftKey, ControlKey, AltKey,
  146.                          ScrollLockOn, NumLockOn, CapsLockOn, InsertOn,
  147.                          LeftControlKey, LeftAltKey, RightControlKey,
  148.                          RightAltKey, ScrollLockKey, NumLockKey,
  149.                          CapsLockKey, SystemRequestKey);
  150.  
  151.  
  152. PROCEDURE GetKeyChar(): CHAR;
  153. (*
  154.    Read a key as a CHAR.  If it's a special key,
  155.    return then second byte with the high bit set.
  156. *)
  157.  
  158.  
  159. PROCEDURE GetModifiers (VAR State: Modifiers);
  160. (*
  161.    Check the status of the various shift and lock keys
  162. *)
  163.  
  164.  
  165. END Keys.