public static function starComment ($strComment, $intTabs = 0)
	{
		
		// Set return
		
		$strReturn	= '';
		
		// Split comment into lines
		
		$arrComment		= explode ("\n", $strComment);
		
		// Find the position of the first /
		
		$intFirstSlash	= strpos ($arrComment[0], '/');
		
		// Set prefix
		
		$strPrefix		= ($intFirstSlash)? substr ($arrComment[0], 0, $intFirstSlash) : NULL;
		
		// Clean comment
		
		$strComment		= self::cleanComment ($strComment);
		
		// Split comment into lines
		
		$arrComment		= explode ("\n", $strComment);
		
		// Set the high count
		
		$intHigh	= 0;
		
		// For each line
		
		foreach ($arrComment as $strLine)
		{
			
			// If the length is above the high count
			
			if (strlen ($strLine) > $intHigh)
			{
				
				// Set length as high count
				
				$intHigh	= strlen ($strLine);
				
			}
			
		}
		
		// For each line
		
		foreach ($arrComment as &$strLine)
		{
			
			// Count chars
			
			$strCountChars	= count_chars ($strLine, 3);
			
			// If the comment consists of only -'s
			
			if ($strCountChars == '-')
			{
				
				// Set the line to be -'s
				
				$strLine	= str_repeat ('-', $intHigh);
				
			}
			
		}
		
		// Unset reference
		
		unset ($strLine);
		
		// Set tabs
		
		$strTabs	= str_repeat ("\t", $intTabs);
		
		// Add the first lines
		
		$strReturn	.= $strTabs . $strPrefix . '/****' . str_repeat ('*', $intHigh) . '*****' . "\n" . 
					   $strTabs . $strPrefix . '*    ' . str_repeat (' ', $intHigh) . '    *' . "\n";
		
		// For each line
		
		foreach ($arrComment as $strLine)
		{
			
			// Add to return
			
			$strReturn	.= $strTabs . $strPrefix . '*    ' . str_pad ($strLine, $intHigh) . '    *' . "\n";
			
		}
		
		// Add the last lines
		
		$strReturn	.= $strTabs . $strPrefix . '*    ' . str_repeat (' ', $intHigh) . '    *' . "\n" . 
					   $strTabs . $strPrefix . '*****' . str_repeat ('*', $intHigh) . '****/';
		
		// Return
		
		return $strReturn;
		
	}