Unit Glob; {* The laptop version *}



interface

{***************************************************************************}

const

{* Keys that are NOT read in with a #0 first *}

  Null        = #0;

  Backspace   = #8;

  Cntrl_B     = #02;

  Cntrl_D     = #04;

  Cntrl_X     = #24;

  Cntrl_Z     = #26;

  CntrlEntr   = #10;

  LineFeed    = #12;

  Enter       = #13;

  Esc         = #27;

  AltEnter    = #28;

  Space       = #32;

  GraveAccent = #96;

  Tilde       = #126;



{* Keys that are read in with a #0 first *}

  F1   = #59;

  F2   = #60;

  F3   = #61;

  F4   = #62;

  F5   = #63;

  F6   = #64;

  F7   = #65;

  F8   = #66;

  F9   = #67;

  F10  = #68;

  Home       = #71;

  UpArrow    = #72;

  PgUp       = #73;

  LeftArrow  = #75;

  RightArrow = #77;

  End_Key    = #79;

  DownArrow  = #80;

  PgDn       = #81;

  Ins        = #82;

  Del        = #83;

  ShF1 = #84;

  ShF2 = #85;

  ShF3 = #86;

  ShF4 = #87;

  ShF5 = #88;

  ShF6 = #89;

  ShF7 = #90;

  ShF8 = #91;

  ShF9 = #92;

  ShF10= #93;

  AltA = #30;

  AltB = #48;

  AltC = #46;

  AltD = #32;

  AltG = #34;

  AltH = #35;



  AltJ = #36;

  AltK = #37;

  AltL = #38;

  AltM = #50;

  AltP = #25;

  AltQ = #16;

  AltR = #19;

  Up        = #72;

  Left      = #75;

  Center    = #76;

  Right     = #77;

  Down      = #80;



{* Screen characters *}

  ArrowUpDown    = #18;

  ArrowUp        = #24;

  ArrowDown      = #25;

  ArrowRight     = #26;

  ArrowLeft      = #27;

  ArrowLeftRight = #29;

  Beep        = #7;

  QuietBeep   = #173;

  DoubleTopLeft     = #201;

  DoubleTopRight    = #187;

  DoubleBottomLeft  = #200;

  DoubleBottomRight = #188;

  DoubleHorizontal  = #205;

  DoubleVertical    = #186;

  DoubleTeeDown     = #203;

  DoubleTeeLeft     = #185;

  DoubleTeeRight    = #204;

  DoubleTeeUp       = #202;

  SingleTopLeft     = #218;

  SingleTopRight    = #191;

  SingleBottomLeft  = #192;

  SingleBottomRight = #217;

  SingleHorizontal  = #196;

  SingleVertical    = #179;



  Forever = false;



  Infinity = MaxLongInt;



  Bit0 = 1;

  Bit1 = 2;

  Bit2 = 4;

  Bit3 = 8;

  Bit4 = 16;

  Bit5 = 32;

  Bit6 = 64;

  Bit7 = 128;



Type

  W10K = 0..9999;

  PortType = 1..4;



Var

  ExitSave: pointer;



  DumByte: byte;

  DumChar: char;

  DumInt: integer;

  DumLongInt: longint;

  DumStr: string;

  DumBool: boolean;

  DumWord: word;



implementation

{***************************************************************************}

{***************************************************************************}

uses

  Dos;



{***************************************************************************}

{***************************************************************************}

{***************************************************************************}

begin

  SetCBreak(true);

end.