PowerShell function :: A simple console Write-Host animation

DiscoWrite.ps1

function DiscoWrite {
	param (
		[string]$str,
		[int]$speed = 25,
		[switch]$NoNewline
	)

	$anim = @('.', '-', '+', '*', '#')
	[int]$CursorTop = [Console]::CursorTop

	foreach ($letter in $str.ToCharArray()) {
		[int]$CursorLeft = [Console]::CursorLeft

		foreach ($frame in $anim) {
			Write-Host $frame -NoNewline
			[Console]::SetCursorPosition($CursorLeft, $CursorTop)
			Start-Sleep -m $speed
		}

		Write-Host $letter -NoNewline
	}

	if (!$NoNewLine) {
		Write-Host
	}
}