PROGRAM Example;

DECLARE PROCESS Two()
   PUBLIC
      Public_1;
   PRIVATE
      Private_1;
   END
END

GLOBAL
   ID_1;
   TWO ID_2; // You must declare it of type Two

LOCAL
   Local_1;

BEGIN
   ID_1 = One();
   ID_2 = Two();
   Write_var( 0, 20, 10, 4, ID_1.Local_1 );
   Write_var( 0, 20, 30, 4, ID_2.Local_1 );
   Write_var( 0, 20, 50, 4, ID_2.Public_1 );
   WHILE ( !Key( _Esc ) )
      Frame;
   END
END


//---------------------------------------
PROCESS One()

BEGIN
   IF ( Exists( ID_2 ) )
      // ID_2.Private_1 = 30; // This would give an Error
      ID_2.Public_1 = 30; 
   END
   WHILE ( !Key( _Esc ) )
      Frame;
   END
END


//---------------------------------------
PROCESS Two()
// You can't declare variables here ; That 
// was doed above in the declaration.
BEGIN
   Private_1 = 15;
   Public_1 = 25;
   Local_1 = 10;
   ID_1.Local_1 = 20;
   WHILE ( !Key( _Esc ) )
      Frame;
   END
END