home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TWINS11.ZIP / KEYS.INF < prev    next >
Encoding:
Text File  |  1990-02-15  |  2.9 KB  |  85 lines
  1.  
  2. UNIT Keys;
  3.  
  4.                      (***********************************)
  5.                      (*       TWINS Version 1.10        *)
  6.                      (***********************************)
  7.                      (*     Object -Oriented Windows    *)
  8.                      (*  for Turbo Pascal Version 5.5   *)
  9.                      (*         Copyright 1990          *)
  10.                      (*          Brian Corll            *)
  11.                      (*       All Rights Reserved       *)
  12.                      (***********************************)
  13.                      (***********************************)
  14.                      (*   Turbo Pascal is a registered  *)
  15.                      (* trademark of Borland Int. Corp. *)
  16.                      (***********************************)
  17.                      (*   Portions Copyright 1984,1989  *)
  18.                      (*    Borland International Corp.  *)
  19.                      (***********************************)
  20.                      (***********************************)
  21.  
  22.  
  23.  
  24. INTERFACE
  25.  
  26. Uses Dos;
  27.  
  28. CONST
  29.  
  30.         NULL = #3;
  31.         ShiftTab = #15;
  32.         Return = #13;
  33.         Escape = #27;
  34.         Home = #71;
  35.         UpArrow = #72;
  36.         PgUp = #73;
  37.         LeftArrow = #75;
  38.         RightArrow = #77;
  39.         EndKey = #79;
  40.         DownArrow = #80;
  41.         PgDn = #81;
  42.         INS = #82;
  43.         DEL = #83;
  44.         Echo = #114;
  45.         CtrlLeftArrow = #115;
  46.         CtrlRightArrow = #116;
  47.         CtrlEnd = #117;
  48.         CtrlPgDn = #118;
  49.         CtrlHome = #119;
  50.         CtrlPgUp = #132;
  51.  
  52.  
  53.  
  54.         F1 = #59; F2 = #60; F3 = #61; F4 = #62; F5 = #63; F6 = #64;
  55.         F7 = #65; F8 = #66; F9 = #67; F10 = #68;
  56.  
  57.         ShiftF1 = #84; ShiftF2 = #85; ShiftF3 = #86; ShiftF4 = #87; ShiftF5 = #88;
  58.         ShiftF6 = #89; ShiftF7 = #90; ShiftF8 = #91; ShiftF9 = #92; ShiftF10 = #93;
  59.  
  60.         CtrlF1 = #94; CtrlF2 = #95; CtrlF3 = #96; CtrlF4 = #97; CtrlF5 = #98;
  61.         CtrlF6 = #99; CtrlF7 = #100; CtrlF8 = #101; CtrlF9 = #102; CtrlF10 = #103;
  62.  
  63.         AltF1 = #104; AltF2 = #105; AltF3 = #106; AltF4 = #107; AltF5 = #108;
  64.         AltF6 = #109; AltF7 = #110; AltF8 = #111; AltF9 = #112; AltF10 = #113;
  65.  
  66.         Alt1 = #120; Alt2 = #121; Alt3 = #122; Alt4 = #123; Alt5 = #124;
  67.         Alt6 = #125; Alt7 = #126; Alt8 = #127; Alt9 = #128; Alt0 = #129;
  68.         AltHyphen = #130; AltEqual = #131; AltQ = #16; AltW = #17; AltE = #18;
  69.         AltR = #19; AltT = #20; AltY = #21; AltU = #22; AltI = #23; AltO = #24;
  70.         AltP = #25; AltA = #30; AltS = #31; AltD = #32; AltF = #33; AltG = #34;
  71.         AltH = #35; AltJ = #36; AltK = #37; AltL = #38; AltZ = #44; AltX = #45;
  72.         AltC = #46; AltV = #47; AltB = #48; AltN = #49; AltM = #50;
  73.  
  74.  
  75. VAR
  76.         GlobalKey : CHAR;
  77.         (* A 'fake' key used to simulate 'stuffing' the keyboard. *)
  78.  
  79.  
  80. FUNCTION  Inkey : CHAR;
  81.  
  82. PROCEDURE KeyBoard(StuffChar : CHAR);
  83.  
  84. IMPLEMENTATION
  85.