home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / tptools.zip / BININST.ZIP / BIVARS.INC < prev    next >
Text File  |  1987-12-21  |  1KB  |  42 lines
  1. {                          BIVARS.INC
  2.                            INSTALL 4.0
  3.              Copyright (c) 1985, 87 by Borland International, Inc.            }
  4.  
  5. const
  6.   Version = '4.00A';           {installation program version number}
  7.   ProgName = 'Binary Editor'; {name of editor}
  8.   NameLength = 26;           {Maximum length title for command}
  9.   CmdListBytes = 300;        {Maximum Number of bytes of installable commands}
  10.  
  11. type
  12.   String255 = string[255];
  13.   FilePath = string[64];
  14.   CommandName = string[NameLength];
  15.   CommandString = string[4];
  16.   PackedCommandList = array[1..CmdListBytes] of Char;
  17.  
  18.   CommandRec =
  19.   record
  20.     Name : CommandName;
  21.     Main : KeyRec;
  22.     Alt : KeyRec;
  23.   end;
  24.  
  25.   CommandList = array[CommandType] of CommandRec;
  26.  
  27.   Registers =
  28.   record
  29.     case Integer of
  30.       1 : (AX, BX, CX, DX, BP, SI, DI, DS, ES, Flags : Word);
  31.       2 : (AL, AH, BL, BH, CL, CH, DL, DH : Byte);
  32.   end;
  33.  
  34. const
  35.   {Marks start of INSTALLATION AREA}
  36.   KIDstring : string[31] = 'BINARY EDITOR INSTALLATION AREA';
  37.  
  38. var
  39.   Reg : Registers;
  40.   Commands, OrigCommands : CommandList;
  41.   FName : FilePath;
  42.