DosTips.com

Code: Select all

@echo off
Setlocal EnableDelayedExpansion
:: Limit window size
mode con lines=25
:: Determine available characters and available colors
set Characters=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890
set Colors=123456789abcdef
:: Calculate amount of characters and colors
FOR /F "delims=:" %%A IN ('"(echo %Characters%&echo.)|findstr /O $"') DO set /a TotalCharAmount=%%A - 3
FOR /F "delims=:" %%A IN ('"(echo %Colors%&echo.)|findstr /O $"') DO set /a TotalColorAmount=%%A - 3
:Loop_Random
:: Calculate next character, its color and its next place. Temporary variables, which are overwritten afterwards, are named the same as their end products (e.g. NextChar is first a number and then the actual character)
set /a NextChar=%random% %% %TotalCharAmount%
set NextChar=!Characters:~%NextChar%,1!
set /a NextColor=%random% %% %TotalColorAmount%
set NextColor=!Colors:~%NextColor%,1!
set /a NextPlace=((%random% %% 50) * 80 + (%random% %% 80)) * 2
cmd /c exit /b %NextPlace%
set NextPlace=%=ExitCode:~4%
:: Display
(
echo EB800:%NextPlace% "%NextChar%"%NextColor%
echo Q
) | debug >nul
:: Add a PING-command here to make a delay in order to limit CPU usage
REM ping localhost -n 2 >nul
goto :Loop_Random

Code: Select all

@echo off
setlocal enableExtensions disableDelayedExpansion
:: set active, utf-7 and utf8 codepages
set /A "utf7Cp=65000, utf8Cp=65001"
set "cp="
for /f "delims=." %%a in ('2^>nul chcp') do for %%b in (%%a) do set "cp=%%b"
if not defined cp for /f "tokens=2" %%a in ('2^>nul chcp') do set "cp=%%~a"
>nul chcp %utf8Cp%

:: define filenames
set "utf7DataFile=data.utf-7.txt"
set "dataFile=data.dat"

:: create chinese chcp seperator char
set "data="

setlocal enableDelayedExpansion

:: create glyph data using only characters in { '+', '-', '/', '0'-'9', 'A'-'Z', 'a'-'z' }
>nul chcp %utf8Cp%
rem >"%dataFile%" cmd /a /c^<nul set /p "=+/v8-"
rem >nul chcp %utf7Cp%
set "data="
rem <"%dataFile%" set /p "data="
rem >nul chcp %utf8Cp%
set "data=!data!+AF8mOiY7JmUmZiZjJmAgIiXYJcsl2SZCJkAmaiZrJjwluiXEIZUgPAC2AKclrCGoIZEhkyGSIZAiHyGUJbIlvA- +ACEAIgAjAC"
set "data=!data!QAJQAm-'()+ACo-+-,-./0123456789:+ADsAPAA9AD4-?+AEA-ABCDEFGHIJKLMNOPQRSTUVWXYZ+AFsAXABdAF4AXwBg-abcde"
set "data=!data!fghijklmnopqrstuvwxyz+AHsAfAB9AH4jAgDHAPwA6QDiAOQA4ADlAOcA6gDrAOgA7wDuAOwAxADFAMkA5gDGAPQA9gDyAPsA+Q"
set "data=!data!D/ANYA3ACiAKMApSCnAZI-+AOEA7QDzAPoA8QDRAKoAugC/IxAArAC9ALwAoQCrALslkSWSJZMlAiUkJWElYiVWJVUlYyVRJVclX"
set "data=!data!SVcJVslECUUJTQlLCUcJQAlPCVeJV8lWiVUJWklZiVgJVAlbCVnJWglZCVlJVklWCVSJVMlayVqJRglDCWIJYQljCWQJYADsQDfA"
set "data=!data!5MDwAOjA8MAtQPEA6YDmAOpA7QiHgPGA7UiKQ-+ImEAsSJlImQjICMhAPciSACwIhkAtyIaIH8AsiWg-+AKA-"
::  index       0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
::              0         1         2         3         4         5         6         7         8         9         
cmd /d /a /e:on /v:on /c">"^!dataFile^!" echo(^!data^!"
set "data="

:: read data from file
>nul chcp %utf7Cp%
set "data="
<"%dataFile%" set /p "data="
>nul chcp %utf8Cp%

::initialize
:: set "Characters=!data:~1,31!!data:~33,222!"
:: removed NUL, BEL, TAB, SUB, ESC, breaking whitespace, non breaking whitespace
set "Characters=!data:~1,6!!data:~8,1!!data:~10,16!!data:~28,4!!data:~33,222!"
set "Colors=123456789abcdef"
call :strlen "Characters"  "TotalCharAmount"
call :strlen     "Colors" "TotalColorAmount"
for /F %%a in ('echo prompt $E^| cmd') do set "ESC=%%a"
mode con cols=80 lines=25
title Retro awesomness.

:loop
set /a "c=!random! %% !TotalCharAmount!, i=!random! %% %TotalColorAmount%, j=!random! %% %TotalColorAmount%, x=(!random! %% 80) + 1, y=(!random! %% 25) + 1"
set /a "color=0x!Colors:~%i%,1!, bgcolor=0x!Colors:~%j%,1!"
<nul set /p "=%ESC%[%y%;%x%f%ESC%[38;5;%color%;48;5;%bgcolor%m!Characters:~%c%,1!%ESC%[0m"
goto :loop
goto :eof


:strlen
:: %~1	environment variable that holds the string to test
:: %~2	environment variable to store the string length to
	setlocal enableExtensions enableDelayedExpansion
	if not defined %~1 (
		set "%~2=-1"
	) else (
		set "len=0"
		for /l %%a in (12,-1,0) do (
			set /a "len|=(1<<%%~a)"
			for %%b in (!len!) do if "!%~1:~%%~b,1!" == "" set /a "len^=(1<<%%~a)"
		)
	)
	endlocal & set /a "%~2=%len%+1"
	goto :eof

Code: Select all

_☺☻♥♦♣♠•◘○◙♂♀♪♫☼
►◄↕‼¶§▬↨↑↓→←∟↔▲▼
 !"#$%&'()*+,-./
0123456789:;<=>?
@ABCDEFGHIJKLMNO
PQRSTUVWXYZ[\]^_
`abcdefghijklmno
pqrstuvwxyz{|}~⌂
ÇüéâäàåçêëèïîìÄÅ
ÉæÆôöòûùÿÖÜ¢£¥₧ƒ
áíóúñѪº¿⌐¬½¼¡«»
░▒▓│┤╡╢╖╕╣║╗╝╜╛┐
└┴┬├─┼╞╟╚╔╩╦╠═╬╧
╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀
αßΓπΣσµτΦΘΩδ∞φε∩
≡±≥≤⌠⌡÷≈°∙·√ⁿ²■ 

Code: Select all

 ☺☻♥♦♣♠•◘○◙♂♀♪♫☼
►◄↕‼¶§▬↨↑↓→←∟↔▲▼
 !"#$%&'()*+,-./
0123456789:;<=>?
@ABCDEFGHIJKLMNO
PQRSTUVWXYZ[\]^_
`abcdefghijklmno
pqrstuvwxyz{|}~⌂
ÇüéâäàåçêëèïîìÄÅ
ÉæÆôöòûùÿÖÜø£Ø׃
áíóúñѪº¿®¬½¼¡«»
░▒▓│┤ÁÂÀ©╣║╗╝¢¥┐
└┴┬├─┼ãÃ╚╔╩╦╠═╬¤
ðÐÊËÈıÍÎÏ┘┌█▄¦Ì▀
ÓßÔÒõÕµþÞÚÛÙýݯ´
­±‗¾¶§÷¸°¨·¹³²■ 

Code: Select all

C:\>cls&("Retro awesomeness AnsiSys.bat" | AnsiSys.exe)

Code: Select all

@echo off
setlocal enableExtensions disableDelayedExpansion
:: set active, utf-7 and utf8 codepages
set /A "utf7Cp=65000, utf8Cp=65001"
set "cp="
for /f "delims=." %%a in ('2^>nul chcp') do for %%b in (%%a) do set "cp=%%b"
if not defined cp for /f "tokens=2" %%a in ('2^>nul chcp') do set "cp=%%~a"
>nul chcp %utf8Cp%

:: define filenames
set "utf7DataFile=data.utf-7.txt"
set "dataFile=data.dat"

:: create chinese chcp seperator char
set "data="

setlocal enableDelayedExpansion

:: create glyph data using only characters in { '+', '-', '/', '0'-'9', 'A'-'Z', 'a'-'z' }
>nul chcp %utf8Cp%
rem >"%dataFile%" cmd /a /c^<nul set /p "=+/v8-"
rem >nul chcp %utf7Cp%
set "data="
rem <"%dataFile%" set /p "data="
rem >nul chcp %utf8Cp%
set "data=!data!+AF8mOiY7JmUmZiZjJmAgIiXYJcsl2SZCJkAmaiZrJjwluiXEIZUgPAC2AKclrCGoIZEhkyGSIZAiHyGUJbIlvA- +ACEAIgAjAC"
set "data=!data!QAJQAm-'()+ACo-+-,-./0123456789:+ADsAPAA9AD4-?+AEA-ABCDEFGHIJKLMNOPQRSTUVWXYZ+AFsAXABdAF4AXwBg-abcde"
set "data=!data!fghijklmnopqrstuvwxyz+AHsAfAB9AH4jAgDHAPwA6QDiAOQA4ADlAOcA6gDrAOgA7wDuAOwAxADFAMkA5gDGAPQA9gDyAPsA+Q"
set "data=!data!D/ANYA3ACiAKMApSCnAZI-+AOEA7QDzAPoA8QDRAKoAugC/IxAArAC9ALwAoQCrALslkSWSJZMlAiUkJWElYiVWJVUlYyVRJVclX"
set "data=!data!SVcJVslECUUJTQlLCUcJQAlPCVeJV8lWiVUJWklZiVgJVAlbCVnJWglZCVlJVklWCVSJVMlayVqJRglDCWIJYQljCWQJYADsQDfA"
set "data=!data!5MDwAOjA8MAtQPEA6YDmAOpA7QiHgPGA7UiKQ-+ImEAsSJlImQjICMhAPciSACwIhkAtyIaIH8AsiWg-+AKA-"
::  index       0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
::              0         1         2         3         4         5         6         7         8         9         
cmd /d /a /e:on /v:on /c">"^!dataFile^!" echo(^!data^!"
set "data="

:: read data from file
>nul chcp %utf7Cp%
set "data="
<"%dataFile%" set /p "data="
>nul chcp %utf8Cp%

::initialize
set "Characters=!data:~1,31!!data:~33,222!"
:: removed NUL, BEL, TAB, SUB, ESC, breaking whitespace, non breaking whitespace
set "Characters=!data:~1,6!!data:~8,1!!data:~10,16!!data:~28,4!!data:~33,222!"
set "Colors=12345679abcdef"
for %%a in (0 1 2 3 4 5 6 7) do set "Colors[%%~a]=%%~a"
for %%a in (8 9 a b c d e f) do for /f %%b in ('set /a "0x%%~a-8"') do set "Colors[%%~a]=%%~b;1"
call :strlen "Characters"  "TotalCharAmount"
call :strlen     "Colors" "TotalColorAmount"
for /F %%a in ('echo prompt $E^| cmd') do set "ESC=%%a"
mode con cols=80 lines=25
title Retro awesomness.
:: set cp 437: Needed for AnsiSys.exe
>nul chcp 437

:loop
set /a "c=!random! %% !TotalCharAmount!, i=!random! %% %TotalColorAmount%, j=!random! %% %TotalColorAmount%, x=(!random! %% 78) + 2, y=(!random! %% 23) + 2"
set "color=!Colors:~%i%,1!"
set "bgcolor=!Colors:~%j%,1!"
<nul set /p "=!ESC![%y%;%x%f!ESC![1;3!Colors[%color%]!m!ESC![1;4!Colors[%bgcolor%]!m!Characters:~%c%,1!!ESC![0m"
goto :loop
goto :eof

:strlen
:: %~1	environment variable that holds the string to test
:: %~2	environment variable to store the string length to
	setlocal enableExtensions enableDelayedExpansion
	if not defined %~1 (
		set "%~2=-1"
	) else (
		set "len=0"
		for /l %%a in (12,-1,0) do (
			set /a "len|=(1<<%%~a)"
			for %%b in (!len!) do if "!%~1:~%%~b,1!" == "" set /a "len^=(1<<%%~a)"
		)
	)
	endlocal & set /a "%~2=%len%+1"
	goto :eof

Code: Select all

'AnsiSys.exe)' is not recognized as an internal or external command,
operable program or batch file.

Code: Select all

cls("Retro awesomeness AnsiSys.bat") | AnsiSys.exe

Code: Select all

@echo off
setlocal enableExtensions disableDelayedExpansion
:: set active, utf-7 and utf8 codepages
set /A "utf7Cp=65000, utf8Cp=65001"
set "cp="
for /f "delims=." %%a in ('2^>nul chcp') do for %%b in (%%a) do set "cp=%%b"
if not defined cp for /f "tokens=2" %%a in ('2^>nul chcp') do set "cp=%%~a"
>nul chcp %utf8Cp%

:: define filenames
set "utf7DataFile=data.utf-7.txt"
set "dataFile=data.dat"

:: create chinese chcp seperator char
set "data="

setlocal enableDelayedExpansion

:: create glyph data using only characters in { '+', '-', '/', '0'-'9', 'A'-'Z', 'a'-'z' }
>nul chcp %utf8Cp%
rem >"%dataFile%" cmd /a /c^<nul set /p "=+/v8-"
rem >nul chcp %utf7Cp%
set "data="
rem <"%dataFile%" set /p "data="
rem >nul chcp %utf8Cp%
set "data=!data!+AF8mOiY7JmUmZiZjJmAgIiXYJcsl2SZCJkAmaiZrJjwluiXEIZUgPAC2AKclrCGoIZEhkyGSIZAiHyGUJbIlvA- +ACEAIgAjAC"
set "data=!data!QAJQAm-'()+ACo-+-,-./0123456789:+ADsAPAA9AD4-?+AEA-ABCDEFGHIJKLMNOPQRSTUVWXYZ+AFsAXABdAF4AXwBg-abcde"
set "data=!data!fghijklmnopqrstuvwxyz+AHsAfAB9AH4jAgDHAPwA6QDiAOQA4ADlAOcA6gDrAOgA7wDuAOwAxADFAMkA5gDGAPQA9gDyAPsA+Q"
set "data=!data!D/ANYA3ACiAKMApSCnAZI-+AOEA7QDzAPoA8QDRAKoAugC/IxAArAC9ALwAoQCrALslkSWSJZMlAiUkJWElYiVWJVUlYyVRJVclX"
set "data=!data!SVcJVslECUUJTQlLCUcJQAlPCVeJV8lWiVUJWklZiVgJVAlbCVnJWglZCVlJVklWCVSJVMlayVqJRglDCWIJYQljCWQJYADsQDfA"
set "data=!data!5MDwAOjA8MAtQPEA6YDmAOpA7QiHgPGA7UiKQ-+ImEAsSJlImQjICMhAPciSACwIhkAtyIaIH8AsiWg-+AKA-"
::  index       0123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789
::              0         1         2         3         4         5         6         7         8         9         
cmd /d /a /e:on /v:on /c">"^!dataFile^!" echo(^!data^!"
set "data="

:: read data from file
>nul chcp %utf7Cp%
set "data="
<"%dataFile%" set /p "data="
>nul chcp %utf8Cp%

::initialize
set "Characters=!data:~1,31!!data:~33,254!"
:: removed NUL, BEL, TAB, SUB, ESC, breaking whitespace, non breaking whitespace
set "Characters=!data:~1,6!!data:~8,1!!data:~10,16!!data:~28,4!!data:~33,254!"
set "Colors=0123456789abcdef"
for %%a in (0 1 2 3 4 5 6 7) do set "Colors[%%~a]=%%~a"
for %%a in (8 9 a b c d e f) do for /f %%b in ('set /a "0x%%~a-8"') do set "Colors[%%~a]=%%~b;1"
call :strlen "Characters"  "TotalCharAmount"
call :strlen     "Colors" "TotalColorAmount"
for /F %%a in ('echo prompt $E^| cmd') do set "ESC=%%a"
mode con cols=80 lines=25
title Retro awesomeness.
:: set cp 437: Needed for AnsiSys.exe
>nul chcp 437

:loop
set /a "c=!random! %% !TotalCharAmount!, i=!random! %% %TotalColorAmount%, j=!random! %% %TotalColorAmount%, x=(!random! %% 78) + 2, y=(!random! %% 23) + 2"
set "color=!Colors:~%i%,1!"
set "bgcolor=!Colors:~%j%,1!"
<nul set /p "=!ESC![%y%;%x%f!ESC![1;3!Colors[%color%]!m!ESC![1;4!Colors[%bgcolor%]!m!Characters:~%c%,1!!ESC![0m"
goto :loop
goto :eof

:strlen
:: %~1	environment variable that holds the string to test
:: %~2	environment variable to store the string length to
	setlocal enableExtensions enableDelayedExpansion
	if not defined %~1 (
		set "%~2=-1"
	) else (
		set "len=0"
		for /l %%a in (12,-1,0) do (
			set /a "len|=(1<<%%~a)"
			for %%b in (!len!) do if "!%~1:~%%~b,1!" == "" set /a "len^=(1<<%%~a)"
		)
	)
	endlocal & set /a "%~2=%len%+1"
	goto :eof

Code: Select all

C:\>cls&("Retro awesomeness AnsiSys.bat" | AnsiSys.exe)