function Subsystem_Pathname return String is
begin
    return ("!PROJECT.APPLICATION_1");
end Subsystem_Pathname;