Global_LastResult_TS          : T_TransferSysX_LastResult;
  Global_LastResult_CP          : T_SAE_Operation_Buffer_CP;
  Global_LastResult_FR          : T_Refrigerator_Operation_CmdReply;

  Global_Physical_Boundaries_AS : T_RobotX_AxesMovementBoundaries_AS;
  Global_Custom_Boundaries_AS   : T_RobotX_AxesMovementBoundaries_AS;
  Global_Physical_Boundaries_GR : T_RobotX_AxesMovementBoundaries_GR;
  Global_Custom_Boundaries_GR   : T_RobotX_AxesMovementBoundaries_GR;
  Global_Physical_Boundaries_TS : T_TransferSysX_AxesMovementBoundaries;
  Global_Custom_Boundaries_TS   : T_TransferSysX_AxesMovementBoundaries;
  Global_Physical_Boundaries_CP : T_ConveyancePusher_AxesMovementBoundaries;
  Global_Custom_Boundaries_CP   : T_ConveyancePusher_AxesMovementBoundaries;
  Global_Physical_Boundaries_FR : T_Refrigerator_Operation_CmdReply;
  Global_Custom_Boundaries_FR   : T_Refrigerator_Operation_CmdReply;

  Global_SoftwareVersions_AS    : T_RobotX_SoftwareVersions_AS;
  Global_SoftwareVersions_GR    : T_RobotX_SoftwareVersions_GR;
  Global_SoftwareVersions_TS    : T_TransferSysX_SoftwareVersions;
  Global_SoftwareVersions_CP    : T_ConveyancePusher_SoftwareVersions;
  Global_SoftwareVersions_FR    : T_Refrigerator_Operation_CmdReply;

  // up-to-date flags for all kind of data syncronized between app and machine/database
  Global_bUpdated_DB_CONFIGDATA  : Boolean;
  Global_iUpdated_BOUNDARIES     : T_RobotX_Int32;
  Global_bUpdated_SW_VERSIONS_AS : T_RobotX_Boolean;
  Global_bUpdated_SW_VERSIONS_GR : T_RobotX_Boolean;
  Global_iUpdated_BOUNDARIES_FR  : Int32;
  Global_bUpdated_SW_VERSIONS_FR : Boolean;

  // robot related globals managed by enumerated arrays of the former primitive type
  Global_ConnectState_RobotX              : T_RobotX_ConnectionState;
  Global_ConnectState_BarCode             : T_LoadBayX_Int32;  // Barcode scan station (certain kind of 1D/2D-code reader)
  Global_ConnectState_Beamer_LoadingArea  : T_LoadBayX_Int32;
  Global_ConnectState_Leuze_LoadingArea   : T_LoadBayX_Int32;
  Global_ConnectState_TCPAlive            : array of Int32;
  Global_ConnectState_TransferSystem      : T_TransferSysX_Int32;
  Global_ConnectState_ConveyancePusher    : Int32;
  Global_ConnectState_Refrigerator        : Int32;
  Global_ConnectState_Separator           : array[T_Enum_Separator] of Int32;
  Global_ConnectState_Database_Conn0      : Int32;    // database connection 0 (main thread)
  Global_ConnectState_Database_Conn2      : Int32;    // database connection 1 (SAE auslagerung thread)

  //  Loading
  Global_PackLoading_ColorPack : TColor;
  Global_PackLoading_ColorBelt : TColor;
  Global_PackLoading_ColorArrow: TColor;
  Global_PackLoading_ColorFrame: TColor;

  Global_DispAndLabel_CustEntryActive      : Boolean;
  Global_DispAndLabel_OrderActive          : Boolean;
  Global_DispAndLabel_ReloadActive         : Boolean;
  Global_DispAndLabel_PackActive           : Boolean;
  Global_DispAndLabel_PacksTotal           : Int32;
  Global_DispAndLabel_NeededLength         : Single;
  Global_DispAndLabel_OrderBufferLength    : Single;
  Global_DispAndLabel_PBA                  : Int32;

DEFINITION L1Meta;

   PROCEDURE Mod_GetName (m: L1Mem.Module; OUT name: ARRAY OF CHAR);
   PROCEDURE Mod_InitByName (OUT mod: L1Mem.Module; IN name: ARRAY OF CHAR);
   PROCEDURE Mod_InitLoaded (OUT mod: L1Mem.Module; IN name: ARRAY OF CHAR);
   PROCEDURE Mod_IsUnloaded (m: L1Mem.Module): BOOLEAN;
   PROCEDURE Mod_ToItem (mod: L1Mem.Module; OUT it: Meta.Item);
   PROCEDURE Type_Basic (IN type: L1Mem.Type): INTEGER;
   PROCEDURE Type_Fprint (IN type: L1Mem.Type): LONGINT;
   PROCEDURE Type_GetMod (t: L1Mem.Type; OUT m: L1Mem.Module);
   PROCEDURE Type_GetName (t: L1Mem.Type; OUT name: ARRAY OF CHAR);
   PROCEDURE Type_GetOfRec (OUT t: L1Mem.RecType; IN rec: ANYREC);
   PROCEDURE Type_IS (type: L1Mem.Type; IN rec: ANYREC): BOOLEAN;
   PROCEDURE Type_InitDescByName (OUT type: L1Mem.Type; IN name: ARRAY OF CHAR; load: BOOLEAN);

END L1Meta.

где в L1Mem:
      Addr* = RECORD x: POINTER TO RECORD [untagged] END END;
      Type* = RECORD addr-: Addr END;
      RecType* = RECORD type-: Type END;
      Module* = RECORD addr-: Addr END;

L1Meta.Mod_GetName(m, s);

m.GetName(s);

s := m.GetName;