long	g_long
string	g_name(512)

function extern set_gname( string name(512) )
{
	g_name	= name
}

function extern get_gname( ref string name() )
{
	name	= g_name
}

function extern string ret_gname()
{
	return( g_name )
}

function extern long	set_glong( long lng )
{
	g_long	= lng
	return( g_long )
}

function extern long	get_glong( ref long lng )
{
	lng	= g_long
	return( lng )
}

function extern hello()
{
	g_name	= "Hello"
}
