{$I KEYS}

unit Size;

interface

const
      MaxOfDoc  = 15000;
      RulesTreeLimit = 5002 + 5000 + 6000;
      ParamLimit = 9;

      ListLimit =    15;
      Str25Len  =    25;
    {
      NNN :integer = 2;
      NNNPLUS :integer = 9   ( 21 div NNN - 1 );
    }
      LoopName  :string[10] = '';
      LoopLink  :pointer    = nil;

type
      Str10      = string[10];

      StrType    = string[Str25Len];

      StrTypeR   = record case byte of
                    1: (s: StrType);
                    2: (r: record
                           s :string[10];
                           x :array [1..2] of char;
                           v :string[11];
                           end
                       );
                   end;

      pStrTypeR  = ^StrTypeR;

type  pCas      = ^CasType;

      ListType  = array [1..ListLimit] of pCas;

      OldCasType= record
                    Group    :boolean;
                    Parent   :pCas;
                    Name     :string[50];
                    BalloonL :longint;
                    BalloonS :string[255-50-1-4];
                    List     :ListType;
                  end;

      CasType   = record
                    Group    :boolean;
                    Parent   :pCas;
                    CasName  :StrTypeR;
                    AlfaPrebalanceFlag :boolean;
                    BlnPtr   :^string;

                    x1,x2,y1,y2 :integer;  { ??? }

                    case boolean of
                       true: (G :record
                                   oName       :string[48];
                                   oDebet      :string[10];
                                   oCredit     :string[10];
                                   oParameter  :string[10];
                                   pDebet      :pointer;
                                   pCredit     :pointer;
                                   pCross      :pointer;
                                   iExpr       :integer;
                                   oDollar     :string[15];
                                   oConstFlag  :boolean;
                                   oConstValue :real;
                                   oDocument   :boolean;
                                   oHotKey     :boolean;
                                   oBreak      :boolean;
                                   oContinue   :boolean;
                                   Prog        :pointer;
                                   oOnlyString :boolean;
                                 end;
                              );
                       false:(List :ListType);
                 end;


implementation

begin
end.