@echo off
title EM
color 2C (2= Background Color / C= Text Color)
mode con lines=16 cols=86
0 Black
1 Blue
2 Green
3 Aqua
4 Red
5 Purple
6 Yellow
7 White
8 Gray
9 Light Blue
A Light Green
B Light Aqua
C Light Red
D Light Purple
E Light Yellow
F Bright White
@echo off
set "n=" \n"
set "Red=call :CLR 4 ""
set "LRed=call :CLR C ""
set "Aqua=call :CLR 3 ""
set "LAqua=call :CLR B ""
set "Yellow=call :CLR 6 ""
set "LYellow=call :CLR E ""
set "Green=call :CLR 2 ""
set "LGreen=call :CLR A ""
set "Blue=call :CLR 1 ""
set "LBlue=call :CLR 9 ""
set "Purple=call :CLR 5 ""
set "LPurple=call :CLR D ""
set "Grey=call :CLR 8 ""
set "White=call :CLR 7 ""
set "LWhite=call :CLR F ""
%LBlue% iki biru terang %n%
%Yellow% iki kuning %n%
%LGreen% iki ijo terang %n%
%Purple% iki ungu"
%LWhite% iki poteh"
%LAqua% iki warna opo rek"
%Red% iki abang %n%
pause >nul
:CLR
SetLocal EnableExtensions EnableDelayedExpansion
Set "Text=%~2"
If Not Defined Text (Set Text=^")
Subst `: "!Temp!" >Nul &`: &Cd \
If Not Exist `.7 (
Echo(|(timeout 1 >nul &Findstr "^" >`)
Set /P "=." >>` <Nul
For /F "delims=;" %%# In (
'"Prompt $H;&For %%_ In (_) Do Rem"') Do (
Set /P "=%%#%%#%%#" <Nul >`.3
Set /P "=%%#%%#%%#%%#%%#" <Nul >`.5``````````````````````````````````````````````````````````````
Set /P "=%%#%%#%%#%%#%%#%%#%%#" <Nul >`.7))
Set /P "LF=" <` &Set "LF=!LF:~0,1!"
For %%# in ("!LF!") Do For %%_ In (
\ / :) Do Set "Text=!Text:%%_=%%~#%%_%%~#!"
For /F delims^=^ eol^= %%# in ("!Text!") Do (
If #==#! SetLocal DisableDelayedExpansion
If \==%%# (Findstr /A:%~1 . \` Nul
Type `.3) Else If /==%%# (Findstr /A:%~1 . /.\` Nul
Type `.5) Else (Echo %%#\..\`>`.dat
Findstr /F:`.dat /A:%~1 .
Type `.7))
If "\n"=="%~3" (Echo()
exit /b
