$PBExportHeader$a_msg.srf
global type a_msg from function_object
end type

forward prototypes
global subroutine msg (string title, string text, icon ico, button button_, integer default)
global function integer a_msg (string title, string text, icon ico, button button_, integer default)
end prototypes

global subroutine msg (string title, string text, icon ico, button button_, integer default);
if IsNull(default) then default =  1 
MessageBox(title, text, ico, button_, default)
end subroutine

global function integer a_msg (string title, string text, icon ico, button button_, integer default);
if IsNull(default) then default =  1 
return MessageBox(title, text, ico, button_, default)
end function

$PBExportHeader$b_msg.srf
global type b_msg from function_object
end type

forward prototypes
global subroutine b_msg ()
end prototypes

global subroutine b_msg ();a_msg('Заголовок', 'Текст', Information!, YesNo!,  1 )
end subroutine