{ Global Declarations }

{ 8086/8088 hardware flags }
const
  carry_flag     = 1;
  parity_flag    = 4;
  aux_carry_flag = 16;
  zero_flag      = 64;
  sign_flag      = 128;

type
  anystr   = string[255];  (* Matches any string for parameter passing *)
  shortstr = string[30];   (* Short string *)
  keystr   = string[65];   (* Function key string *)
  filestr  = string[65];   (* File name string *)
  text_file = text;