@Echo Off
color 0b
mode 60,30
SetLocal EnableDelayedExpansion
Call:COLORI
=======================================================================
    Title ..:: COLORIR COMENTARIOS ::..
    Echo.==========================================================
    Echo. COMENTARIOS DOS
    Echo.==========================================================
Call:HIGH_LITER DOS "@echo off"
Call:HIGH_LITER DOS "title Syntax HIGH_LITER    "
Call:HIGH_LITER DOS "color, 0a"
Call:HIGH_LITER DOS "set, /a, x,=,10     "
Call:HIGH_LITER DOS "set, /a, y=77       "
Call:HIGH_LITER DOS "set, /a, r,=,%%%%x%%%%, + ,%%%%y%%%% "
Call:HIGH_LITER DOS "echo, %%%%x%%%%, + ,%%%%y%%%%, eigual ah:"
Call:HIGH_LITER DOS "echo ,%%%%r%%%%"
Call:HIGH_LITER DOS " ,"(" "pause" ,")" "
Call:HIGH_LITER DOS "":","loop""
Call:HIGH_LITER DOS "echo, 1"
Call:HIGH_LITER DOS "goto, loop"
Call:HIGH_LITER DOS "::Comentario"
Echo.==========================================================
Echo. OUTRO TIPO COMENTARIOS DOS
Echo.==========================================================
Call:HIGH_LITER DOS "@Echo Off                                  "
Call:HIGH_LITER DOS "For /f " ",Token,=,1,-,2," " %%%%D in "(",'Echo Hola wxw',")" , Do,"(" "
Call:HIGH_LITER DOS "If /i "[",wxw,"]" equ "[",%%%%D,"]","("                                   "
Call:HIGH_LITER DOS "Echo.,Mundo                                                   "
Call:HIGH_LITER DOS ",")",Else,"(",Echo %%%%D,")",")"                              "
Call:HIGH_LITER DOS "Pause                                                         "
Pause>nul
Echo.==========================================================
Echo.                CORES DISPONIVEIS
Echo. USA-SE ASSIM PINTA.COM COR_DO_TEXTO COR_DO_FUNDO "TEXTO"
Echo.==========================================================
@FOR %%# IN (A B C D E F G H I J K L M N O P) DO Pinta.com %%# 0 "%%#  Boss-Head "&ECHO.
Pause>nul
=======================================================================
Exit /b 0
:HIGH_LITER
Set LINGUAGEM=VB DOS
==========================================================================================
:::INICIO DE VERIFICAÇÃO LINGUAGEM  VB/VBS
    Set SINTAX[VB] = Private,Public,Sub,Function,MsgBox,CreateObject,For,If,Else,Case,Select,Set,Do,Loop,Until,While,ByVal,ByRef,End
    Set OPERADORES[VB] = +,-,*,/,And,Or,Not,"<",">"
    Set SEPA_RADOR[VB] = "(",")"

:::INICIO DE VERIFICAÇÃO LINGUAGEM DOS/BATCH
    Set SINTAX[DOS] = Echo,Set,SetLocal,EnableDelayedExpansion,Pause,Exit,Echo.,If,Else,For,Select,Set,In,Do,Find,Help,Ping,Off,Call,Goto,Mode,Del,Debug,More,Type,On,Time,Title,TelNet,Cd,MkDir,@Echo,color,loop
    Set OPERADORES[DOS] = +,-,*,EQU,NEQ,==,LSS,LEQ,GTR,GEQ,"<",">","/P","/A",:,"/i",^=
    Set SEPA_RADOR[DOS] = "(",")","[","]","{","}"
==========================================================================================
For %%L In (!LINGUAGEM!) Do (
    If /i [%1] EQU [%%L] (
        Set LIN_GUA=%%L
))
Set INI_COM=NAO
Set IMP_RIME=NAO
If [!LIN_GUA!] NEQ [] (
    For %%S In (%~2) Do (
        Set IMP_RIME=NAO
        For %%P In (!SINTAX[%LIN_GUA%] !) Do (
            If /i [!INI_COM!] EQU [NAO] (
            If /i [%%P] EQU [%%~S] (
                Pinta.com B 0 "%%~S "
                Set IMP_RIME=OK
            ))
        )
        For %%O In (!OPERADORES[%LIN_GUA%] !) Do (
            If /i [!INI_COM!] EQU [NAO] (
            If /i [%%O] EQU [%%~S] (
                Pinta.com L 0 "%%~O "
                Set IMP_RIME=OK
            ))
        )
        For %%A In (!SEPA_RADOR[%LIN_GUA%] !) Do (
            If /i [!INI_COM!] EQU [NAO] (
            If /i [%%A] EQU [%%S] (
                Pinta.com N 0 "%%~A "
                Set IMP_RIME=OK
            ))
        )
        If /i [%%S] EQU [""] (
            If /i [!INI_COM!] EQU [NAO] (
                Set INI_COM=OK
                Pinta.com O 0 " ""
            ) Else (
                Set INI_COM=NAO
                Pinta.com O 0 "" "
            )
            Set IMP_RIME=OK
        )
        If /i [!IMP_RIME!] EQU [NAO] (
            If /i [!INI_COM!] EQU [NAO] (
                Set /p"=%%~S "<nul
            ) Else (
                Pinta.com H 0 "%%S "
            )
        )
    )
)
Echo.
Goto:Eof
:COLORI
(
Echo.e100 B8 10 00 F6 26 84 00 BB 0F 00 22 1E 82 00 01 C3
Echo.e110 30 FF BE 87 00 31 C9 8A 0E 80 00 83 E9 07 76 1D
Echo.e120 51 B9 01 00 B4 09 8A 04 CD 10 53 31 DB B4 03 CD
Echo.e130 10 80 C2 01 B4 02 CD 10 5B 59 46 E2 E3 CD 20 00
Echo.e140 45 64 64 79 57
Echo.nPinta.com
Echo.RCX
Echo.45
Echo.W
Echo.Q
)|Debug>nul
Goto:Eof