Shell I am releasing an Animated Heart that changes color in batch! [Valentines Day Specia]

Code
@echo off & setlocal enableDelayedExpansion

color 0d



set /a "boxMax_Cols=73", "boxMax_Lines=19"

set /a "cols=boxMax_Cols + 4", "lines=boxMax_Lines + 4"

mode con: cols=%Cols% lines=%Lines%



for /l %%a in (1,1,%boxMax_Cols%) do set "out=!out!Û" 

for /l %%a in (1,1,%boxMax_Lines%) do (

    for /l %%b in (1,1,%boxMax_Cols%) do (

        set "%%a,%%b= "

    )

)





for %%a in (18 19 20 21 29 30 31 32 40 41 42 43 44 47 54 55 56 59 63 65 66 67 68 69) do set "2,%%a=Û"

for %%a in (3 4 5 7 8 9 16 17 18 19 20 21 22 23 27 28 29 30 31 32 33 34 42 47 53 57 59 63 65) do set "3,%%a=Û"

for %%a in (2 3 4 5 6 7 8 9 10 15 16 23 24 26 27 34 35 42 47 53 57 59 63 65 66 67) do set "4,%%a=Û"

for %%a in (2 3 4 5 6 7 8 9 10 14 15 25 35 36 42 47 53 57 60 62 65) do set "5,%%a=Û"

for %%a in (3 4 5 6 7 8 9 13 14 19 20 21 22 28 29 30 36 37 40 41 42 43 44 47 48 49 50 51 54 55 56 61 65 66 67 68 69) do set "6,%%a=Û"

for %%a in (4 5 6 7 8 13 19 25 28 31 37) do set "7,%%a=Û"

for %%a in (6 13 14 19 20 21 24 25 26 28 29 30 36 37 47 51 54 55 56 59 63 65 67 69) do set "8,%%a=Û"

for %%a in (14 15 19 25 28 31 35 36 47 51 53 57 59 63 65 67 69) do set "9,%%a=Û"

for %%a in (16 17 19 28 29 30 33 34 48 49 50 53 57 59 63 65 67 69) do set "10,%%a=Û"

for %%a in (17 18 32 33 49 53 57 59 63) do set "11,%%a=Û"

for %%a in (19 20 30 31 49 54 55 56 60 61 62 65 67 69) do set "12,%%a=Û"

for %%a in (11 12 13 15 16 17 20 21 29 30) do set "13,%%a=Û"

for %%a in (10 11 12 13 14 15 16 17 18 22 23 27 28 32 33 34 35 36 39 40 41 44 45 46 47 50 51 52 53 54 56 60 62 63 64 65 66 68 69 70 71) do set "14,%%a=Û"

for %%a in (11 12 13 14 15 16 17 23 24 26 27 32 38 42 44 48 50 56 60 62 68 72) do set "15,%%a=Û"

for %%a in (12 13 14 15 16 24 25 25 26 32 33 34 38 42 44 45 46 47 50 51 52 56 60 62 63 64 68 69 70 71) do set "16,%%a=Û"

for %%a in (13 14 15 25 32 38 42 44 47 50 57 59 62 68 71) do set "17,%%a=Û"

for %%a in (14 32 39 40 41 44 48 50 51 52 53 54 58 62 63 64 65 66 68 72) do set "18,%%a=Û"



echo. & echo  Û!out!Û

for /l %%a in (1,1,!boxMax_Lines!) do (

    for /l %%b in (1,1,!boxMax_Cols!) do set "line=!line!!%%a,%%b!"

    echo  Û!line!Û

    set "line="

)

echo  Û!out!Û

pause > nul

goto :main