rc1 = reload ( "win32api", 1, 1 );
if ( rc1 != 0 )
	{ tl_step ( "Error Message", FAIL, "[reload(\"win32api\")] - FAILED!"); }
else
	{ tl_step ( "Status Message", PASS, "[reload(\"win32api\")] - OK"); }

public function phone_num_gen (out phone)
{
	auto x, areacode, prefix, sufix;

	x = int ( rand(GetTickCount())*1000000000000 );
	areacode = substr(x, 1 ,3);
	prefix = substr(x, 4, 3);
	sufix = substr(x, 7, 4);
	phone = "(" & areacode & ") " & prefix & "-" & sufix;
	return ( E_OK );
}

for (i = 1; i < 10; i++)
{
	phone_num_gen(num);
	printf(num);
}

rc1 = unload ( "win32api" );
if ( rc1 != 0 )
	{ tl_step ( "Error Message", FAIL, "[unload(\"win32api\")] - FAILED!"); }
else
	{ tl_step ( "Status Message", PASS, "[unload(\"win32api\")] - OK"); }


