A spinner, demonstrating carriage return in Batch (CR thanks to Jeb - http://ss64.org/viewtopic.php?id=1344)

spinner.bat

@if (@X)==(@Y) @end /*
@echo off
setlocal enabledelayedexpansion
::http://ss64.org/viewtopic.php?id=1344
for /F "usebackq" %%a in (`copy /Z "%~f0" nul`) do set "cr=%%a"
set /a idx=0
for %%i in (/ - \ ^|) do (
  set spin.!idx!=%%i
  set /a idx+=1
)
:spinner
for %%i in (0 1 2 3) do (
<nul set/p"=!spin.%%i!!cr!"
cscript //nologo //E:JScript "%~f0"
)
goto spinner
*/
WScript.Sleep(150);