home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GEARS.ZIP / KEYBOARD.DOC < prev    next >
Encoding:
Text File  |  1980-01-01  |  3.3 KB  |  147 lines
  1. (*****************************************************************************)
  2. (* Unit Keyboard: Extended Keyboard Reading Routines           DOCUMENTATION *)
  3. (*                                                                           *)
  4. (* Copyright 1988, Escape Technologies                                       *)
  5. (*****************************************************************************)
  6.  
  7. Unit Keyboard;
  8.  
  9. Interface
  10.  
  11. Uses Dos;
  12.  
  13. Const CapsOn = True;
  14.       CapsOff = False;
  15.       NumOn = True;
  16.       NumOff = False;
  17.       InsertOn = True;
  18.       InsertOff = False;
  19.       F1 = #59;
  20.       F2 = #60;
  21.       F3 = #61;
  22.       F4 = #62;
  23.       F5 = #63;
  24.       F6 = #64;
  25.       F7 = #65;
  26.       F8 = #66;
  27.       F9 = #67;
  28.       F10 = #68;
  29.       F11 = #133;
  30.       F12 = #134;
  31.       Home = #71;
  32.       UpArrow = #72;
  33.       PgUp = #73;
  34.       LeftArrow = #75;
  35.       CenterKey = #76;
  36.       RightArrow = #77;
  37.       EndKey = #79;
  38.       DownArrow = #80;
  39.       PgDn = #81;
  40.       Ins = #82;
  41.       Del = #83;
  42.       ShiftF1 = #84;
  43.       ShiftF2 = #85;
  44.       ShiftF3 = #86;
  45.       ShiftF4 = #87;
  46.       ShiftF5 = #88;
  47.       ShiftF6 = #89;
  48.       ShiftF7 = #90;
  49.       ShiftF8 = #91;
  50.       ShiftF9 = #92;
  51.       ShiftF10 = #93;
  52.       ShiftF11 = #135;
  53.       ShiftF12 = #136;
  54.       ShiftTab = #15;
  55.       CtrlF1 = #94;
  56.       CtrlF2 = #95;
  57.       CtrlF3 = #96;
  58.       CtrlF4 = #97;
  59.       CtrlF5 = #98;
  60.       CtrlF6 = #99;
  61.       CtrlF7 = #100;
  62.       CtrlF8 = #101;
  63.       CtrlF9 = #102;
  64.       CtrlF10 = #103;
  65.       CtrlF11 = #137;
  66.       CtrlF12 = #138;
  67.       CtrlPrtSc = #114;
  68.       CtrlHome = #119;
  69.       CtrlUpArrow = #160;
  70.       CtrlPgUp = #132;
  71.       CtrlLeftArrow = #115;
  72.       CtrlRightArrow = #116;
  73.       CtrlEndKey = #117;
  74.       CtrlDownArrow = #164;
  75.       CtrlPgDn = #118;
  76.       CtrlIns = #165;
  77.       CtrlDel = #166;
  78.       AltF1 = #104;
  79.       AltF2 = #105;
  80.       AltF3 = #106;
  81.       AltF4 = #107;
  82.       AltF5 = #108;
  83.       AltF6 = #109;
  84.       AltF7 = #110;
  85.       AltF8 = #111;
  86.       AltF9 = #112;
  87.       AltF10 = #113;
  88.       AltF11 = #139;
  89.       AltF12 = #140;
  90.       AltHome = #174;
  91.       AltUpArrow = #175;
  92.       AltPgUp = #176;
  93.       AltLeftArrow = #178;
  94.       AltRightArrow = #180;
  95.       AltEndKey = #182;
  96.       AltDownArrow = #183;
  97.       AltPgDn = #184;
  98.       AltIns = #185;
  99.       AltDel = #186;
  100.       AltQ = #16;
  101.       AltW = #17;
  102.       AltE = #18;
  103.       AltR = #19;
  104.       AltT = #20;
  105.       AltY = #21;
  106.       AltU = #22;
  107.       AltI = #23;
  108.       AltO = #24;
  109.       AltP = #25;
  110.       AltA = #30;
  111.       AltS = #31;
  112.       AltD = #32;
  113.       AltF = #33;
  114.       AltG = #34;
  115.       AltH = #35;
  116.       AltJ = #36;
  117.       AltK = #37;
  118.       AltL = #38;
  119.       AltZ = #44;
  120.       AltX = #45;
  121.       AltC = #46;
  122.       AltV = #47;
  123.       AltB = #48;
  124.       AltN = #49;
  125.       AltM = #50;
  126.       Alt1 = #120;
  127.       Alt2 = #121;
  128.       Alt3 = #122;
  129.       Alt4 = #123;
  130.       Alt5 = #124;
  131.       Alt6 = #125;
  132.       Alt7 = #126;
  133.       Alt8 = #127;
  134.       Alt9 = #128;
  135.       Alt0 = #129;
  136.       AltMinus = #130;
  137.       AltEquals = #131;
  138.  
  139. Procedure SetLocks(Caps,Num,Insert:Boolean);
  140. Function ScrollLockOn:Boolean;
  141. Function NumLockOn:Boolean;
  142. Function CapsLockOn:Boolean;
  143. Function RightShiftPressed:Boolean;
  144. Function LeftShiftPressed:Boolean;
  145. Function CtrlPressed:Boolean;
  146. Function AltPressed:Boolean;
  147.