/********************************************************

	De-select a precentage of the selected Items

	Brian Samuels


********************************************************/

global proc selPercent(int $percent)
{

string $selected[] = `ls -sl -fl`;
string $sel;
int $rnd;
	for($sel in $selected)
	{
		$rnd = `rand 0 100`;
		if($rnd> $percent)
		{
			select -d $sel;

		}
	}

}