Unit Globals; {* The laptop version *}



interface

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

const

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

  Null      = #0;

  Backspace = #8;

  CntrlEntr = #10;

  LineFeed  = #12;

  Enter     = #13;

  Esc       = #27;

  AltEnter  = #28;

  Space     = #32;



{* 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;

  ShF1 = #84;

  ShF3 = #86;

  ShF5 = #88;

  ShF7 = #90;

  ShF9 = #92;

  AltA = #30;

  AltB = #48;

  AltC = #46;

  AltD = #32;

  AltM = #50;

  AltP = #25;

  AltQ = #16;

  Up        = #72;

  Left      = #75;

  Center    = #76;

  Right     = #77;

  Down      = #80;



{* Screen characters *}

  ArrowLeft   = #27;

  ArrowRight  = #26;

  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;



Var

  ExitSave: pointer;



  DumByte: byte;

  DumChar: char;

  DumInt: integer;

  DumStr: string;

  DumBool: boolean;

  DumWord: word;



implementation

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

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

uses

  Dos;



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

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

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

begin

  SetCBreak(true);

end.