Off Topic Stuff

[Squashman]

Some times I do wish we had another forum category to share off topic stuff. I know a lot of you are old school people who have had computers for years and would appreciate some of these links.

http://www.neowin.net/news/microsoft-pa ... k-inferior
Would be really cool if the guy would have saved all the key strokes and clicks with AutoIt or AutoHotKey. That would be awesome. Who wants to makes Santa Clause in pure batch! LOL!

For you old school gamers. I know I played Frogger for hours!
http://news.cnet.com/8301-17938_105-576 ... r-browser/

[berserker]

why not some mod create the "off topic forum" ? then you can post your off topic stuff there. Its more clean. Also good to create others for other topics.

[AiroNG]

My first games were Jill of the jungle and the Commander Keen Saga.
I'm still sad that I lost my original copy of the latter.

The Santa Clause link is nice, but have a look on this one:
http ://www.youtube.com/watch?v=hb3A1TdqXug - (Drawing the Mona Lisa in MSPaint)

[Squashman]

why not some mod create the "off topic forum" ? then you can post your off topic stuff there. Its more clean. Also good to create others for other topics.

Moderators dont have that much control. We would need the site admin to create it. I am not sure he would want it to turn into a free for all.

[brinda]

merry christmas and a happy new year all,

squashman,
that is a lovely video, of MS paint. It reminds of the day of a 286 pc with 40MB hard drive and 1.2 + 1.44 MB disk + dos 5 before windows came in

thank you.

[foxidrive]

I agree, that is a fantastic work of art - such a talented person behind the 'paint-brush'.

[penpen]

Ah: "Frogger" ... i first had played it on a C64(G) (1988/1989... don't know anymore but it was on X-mas WITH Frogger ).
It is still working , but half of the discs seems to have lost its data ... my Frogger's "dead" now ...

For all, that may buy one to test it, here is a little tutorial i've found on youtube:
http://www.youtube.com/watch?v=xmnlkLc1Foc

I wish you all a merry christmas and have a good new year 2014,
penpen

[foxidrive]

Speaking about old games and consoles, The Internet Archive is hosting MAME emulated games in Java to play in your web browser - and there are oodles of them.

https://archive.org/details/consolelivingroom

[einstein1969]

There is a better frogger in dos batch?

I would love to play! Why do not we try to make one?

einstein1969

[Squashman]

There is a better frogger in dos batch?

I would love to play! Why do not we try to make one?

einstein1969

I can't imagine trying to code your Frog jumping onto a log and moving with the log at the same time.

[einstein1969]

There is a better frogger in dos batch?

I would love to play! Why do not we try to make one?

einstein1969

I can't imagine trying to code your Frog jumping onto a log and moving with the log at the same time.

sum the Velocity of log + Velocity of frog

something like this:

Code: Select all

@echo off & setlocal EnableDelayedExpansion

set "L0=°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²°±²"
set "L1=±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û±²Û"
set "L2=                                                         "

set /a F=0, MF=0, PXF=15, PYF=2, JF=0

:loop

set L0F=%L0%
set L1F=%L1%
set L2F=%L2%

For %%y in ("%PYF%") do for %%x in ("%PXF%") do set L%%~yF=!L%%~yF:~0,%%~x!X

cls
echo(%L0F%
echo(
echo(%L1F%
echo(
echo(%L2F%

ping 192.0.2.0 -n 1 -w 500 >nul

set L0=%L0:~-1%%L0:~0,-1%
If %PYF% equ 0 set /a PXF+=1
if %MF% equ 0 (
      set L1=%L1:~1%%L1:~0,1%
      If %PYF% equ 1 set /a PXF-=1
      )
set /a "F=F+1, MF=F %% 2, JF=F %% 10"
if %JF% equ 0 (set /a "PYF=PYF-1" & IF !PYF! lss 0 set PYF=2) 

goto :loop

substitute this line for X movement

Code: Select all

set /a "F=F+1, MF=F %% 2, JF=F %% 10, PXF=PXF+(%RANDOM% %% 3)-1"

[penpen]

There is a better frogger in dos batch?

I would love to play! Why do not we try to make one?

I like this idea , but i have not the time, i wish i wanted to have for that , so i've done only some (quick and dirty) graphic setup:

Code: Select all

@echo off
cls

:output
setlocal enableDelayedExpansion
set "line_0_1=²²²²²² É» ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"
set "line_0_2=²²²²²²ÊÊÊʲ²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"
set "line_1_1=            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»"
set "line_1_2=            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ"
set "line_2_1=ÜÜ////ÜÜ////            ÜÜ////ÜÜ////ÜÜ////ÜÜ////                ÜÜ////ÜÜ////ÜÜ////ÜÜ////            ÜÜ////ÜÜ////"
set "line_2_2=ßß\\\\ßß\\\\            ßß\\\\ßß\\\\ßß\\\\ßß\\\\                ßß\\\\ßß\\\\ßß\\\\ßß\\\\            ßß\\\\ßß\\\\"
set "line_3_1=ÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
set "line_3_2=ÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
set "line_4_1=ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍ»        "
set "line_4_2=ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍͼ        "
set "line_5_1=//ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ//"
set "line_5_2=\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\"
set "line_6_1=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_6_2=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_7_1=                ÜÜ_ÜÜÜÜÜ                ÜÜ_ÜÜÜÜÜ                                        ÜÜ_ÜÜÜÜÜ                "
set "line_7_2=                ßßîßßßßß                ßßîßßßßß                                        ßßîßßßßß                "
set "line_8_1=                  ÌÄ=ÂÂÄ=¿        ÌÄ=ÂÂÄ=¿                                            ÌÄ=ÂÂÄ=¿                  "
set "line_8_2=                  ÌÄ=ÁÁÄ=Ù        ÌÄ=ÁÁÄ=Ù                                            ÌÄ=ÁÁÄ=Ù                  "
set "line_9_1=            ÚÄËÄË¿                                ÚÄËÄË¿                          ÚÄËÄË¿                        "
set "line_9_2=            ÀÄÊÄÊÙ                                ÀÄÊÄÊÙ                          ÀÄÊÄÊÙ                        "
set "line_10_1=          ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/                ÜÄÄÜÜÜ_/    "
set "line_10_2=          ßÄÄßßßî\              ßÄÄßßßî\              ßÄÄßßßî\              ßÄÄßßßî\                ßÄÄßßßî\    "
set "line_11_1=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_11_2=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"

set "frog_1_0= Ú¿ "
set "frog_2_0=ÁÁÁÁ"
set "frog_1_1= ÌÄ¿"
set "frog_2_1= ÌÄÙ"
set "frog_1_2=ÂÂÂÂ"
set "frog_2_2= ÀÙ "
set "frog_1_3=ÚĹ "
set "frog_2_3=ÀĹ "

:: lines are all 112 characters long
set "LINE_LENGTH=112"
set /A "speed_0=0", "speed_1=-1", "speed_2=1", "speed_3=-1", "speed_4=-1", "speed_5=1"
set /A "speed_6=0", "speed_7=1", "speed_8=-2", "speed_9=2", "speed_10=-1", "speed_11=0"
for /L %%a in (0,1,11) do set /A "offset_%%a=0"


set /A "NORTH=0", "EAST=1", "SOUTH=2", "WEST=3"
set /A "frog.head=!NORTH!"


:next


set "T1=%TIME%"
set /A "N=112*2"
for /L %%k in (0,1,%N%) do (
   cls
rem   echo 0 0
   (
      set "status=                                                                               %%k/%N%"
      echo(!status:~-79!
      for /L %%l in (0,1,11) do (
         set /A "frame=((%%k%%!LINE_LENGTH!)*!speed_%%l!)%%!LINE_LENGTH!"
::         echo set /A "frame=((%%k%%!LINE_LENGTH!)*!speed_%%l!)%%!LINE_LENGTH!", !frame!
         for /F %%f in ("!frame!") do (
            set "l_1=!line_%%l_1:~%%f!!line_%%l_1!"
            set "l_2=!line_%%l_2:~%%f!!line_%%l_2!"
         )
         echo(!l_1:~0,79!
         echo(!l_2:~0,79!
      )
   ) > CON
   pause
)

(
   echo %T1%
   echo %TIME%
) > CON
goto :eof

I hope this post doesn't change the ANSI characters, it should look similar to this (with lesser spaces between the lines; working in my internet explorer :

Code: Select all

▓▓▓▓▓▓ ╔╗ ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓
▓▓▓▓▓▓╩╩╩╩▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓▓▓▓▓▓▓▓    ▓▓▓▓▓
            ╔═╦════════════╗            ╔═╦════════════╗            ╔═╦════════
            ╚═╩════════════╝            ╚═╩════════════╝            ╚═╩════════
▄▄////▄▄////            ▄▄////▄▄////▄▄////▄▄////                ▄▄////▄▄////▄▄/
▀▀\\\\▀▀\\\\            ▀▀\\\\▀▀\\\\▀▀\\\\▀▀\\\\                ▀▀\\\\▀▀\\\\▀▀\
═════╗          ╔═╦════════════════════════╗          ╔═╦══════════════════════
═════╝          ╚═╩════════════════════════╝          ╚═╩══════════════════════
╔═╦══════════╗        ╔═╦══════════╗        ╔═╦══════════╗        ╔═╦══════════
╚═╩══════════╝        ╚═╩══════════╝        ╚═╩══════════╝        ╚═╩══════════
//▄▄////▄▄////          ▄▄////▄▄////▄▄////          ▄▄////▄▄////▄▄////
\\▀▀\\\\▀▀\\\\          ▀▀\\\\▀▀\\\\▀▀\\\\          ▀▀\\\\▀▀\\\\▀▀\\\\
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
                ▄▄_▄▄▄▄▄                ▄▄_▄▄▄▄▄
                ▀▀¯▀▀▀▀▀                ▀▀¯▀▀▀▀▀
                  ╠─=┬┬─=┐        ╠─=┬┬─=┐
                  ╠─=┴┴─=┘        ╠─=┴┴─=┘
            ┌─╦─╦┐                                ┌─╦─╦┐
            └─╩─╩┘                                └─╩─╩┘
          ▄──▄▄▄_/              ▄──▄▄▄_/              ▄──▄▄▄_/              ▄──
          ▀──▀▀▀¯\              ▀──▀▀▀¯\              ▀──▀▀▀¯\              ▀──
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░

If someone is faster than me to create the program logic feal free to use this for non profit use only (i've build this setup on my memory... maybe good, maybe bad... eho knows... my "frogger" is dead... ); just add an authors note (PM me in such a case and i send you my name per PM).

penpen

[einstein1969]

wow penpen!

I love it. You could add some color?

einstein1969

[penpen]

I haven't tested it until now, but i fear it will get too slow if i implement colors using findstr.
I thought about a little helper tool written in C# doing this, and it should also set the cursor to (0,0) so it won't flicker.
But this should be optional (via switch), and so i assume i do it much later (after all other of the game is finished; and as said above actually i have not much time, so it may take a while).

penpen

[einstein1969]

I haven't tested it until now, but i fear it will get too slow if i implement colors using findstr.
I thought about a little helper tool written in C# doing this, and it should also set the cursor to (0,0) so it won't flicker.
But this should be optional (via switch), and so i assume i do it much later (after all other of the game is finished; and as said above actually i have not much time, so it may take a while).

penpen

It also I think it could be extremely slow.
I thought, however, some color "static". And let him manage only a few lines with findstr.

What do you think?

Code: Select all

@echo off & setlocal enableDelayedExpansion

set /a cols=80,lines=43

rem color
pushd "%temp%"
for /f %%a in ('"prompt $H&for %%b in (1) do rem"') do set "BS=%%a"
For /L %%c in (1,1,%cols%) do set "str_findstr=!str_findstr!L"
For /L %%l in (1,1,%cols%) do <nul set /p .=%BS%> "!str_findstr:~0,%%l!"

cls & mode %cols%,%lines% & color 1e


:output

rem set "line_0_1=²²²²²² É» ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²²"
rem set "line_0_2=²²²²²²ÊÊÊʲ²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    ²²²²²²²²²²²²    
set "line_0_1=%BS%"
set "line_0_2=%BS%"
set "line_1_1=            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»            ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍ»"
set "line_1_2=            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ            ÈÍÊÍÍÍÍÍÍÍÍÍÍÍͼ"
set "line_2_1=ÜÜ////ÜÜ////            ÜÜ////ÜÜ////ÜÜ////ÜÜ////                ÜÜ////ÜÜ////ÜÜ////ÜÜ////            ÜÜ////ÜÜ////"
set "line_2_2=ßß\\\\ßß\\\\            ßß\\\\ßß\\\\ßß\\\\ßß\\\\                ßß\\\\ßß\\\\ßß\\\\ßß\\\\            ßß\\\\ßß\\\\"
set "line_3_1=ÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
set "line_3_2=ÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ"
set "line_4_1=ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»        ÉÍËÍÍÍÍÍÍÍÍÍÍ»          ÉÍËÍÍÍÍÍÍÍÍÍÍ»        "
set "line_4_2=ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ        ÈÍÊÍÍÍÍÍÍÍÍÍͼ          ÈÍÊÍÍÍÍÍÍÍÍÍͼ        "
set "line_5_1=//ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ////ÜÜ////ÜÜ////          ÜÜ//"
set "line_5_2=\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\\\ßß\\\\ßß\\\\          ßß\\"
rem set "line_6_1=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
rem set "line_6_2=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_6_1=%BS%"
set "line_6_2=%BS%"
set "line_7_1=                ÜÜ_ÜÜÜÜÜ                ÜÜ_ÜÜÜÜÜ                                        ÜÜ_ÜÜÜÜÜ                "
set "line_7_2=                ßßîßßßßß                ßßîßßßßß                                        ßßîßßßßß                "
set "line_8_1=                  ÌÄ=ÂÂÄ=¿        ÌÄ=ÂÂÄ=¿                                            ÌÄ=ÂÂÄ=¿                  "
set "line_8_2=                  ÌÄ=ÁÁÄ=Ù        ÌÄ=ÁÁÄ=Ù                                            ÌÄ=ÁÁÄ=Ù                  "
set "line_9_1=            ÚÄËÄË¿                                ÚÄËÄË¿                          ÚÄËÄË¿                        "
set "line_9_2=            ÀÄÊÄÊÙ                                ÀÄÊÄÊÙ                          ÀÄÊÄÊÙ                        "
set "line_10_1=          ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/              ÜÄÄÜÜÜ_/                ÜÄÄÜÜÜ_/    "
set "line_10_2=          ßÄÄßßßî\              ßÄÄßßßî\              ßÄÄßßßî\              ßÄÄßßßî\                ßÄÄßßßî\    "
rem set "line_11_1=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
rem set "line_11_2=°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°"
set "line_11_1=%BS%"
set "line_11_2=%BS%"

set "frog_1_0= Ú¿ "
set "frog_2_0=ÁÁÁÁ"
set "frog_1_1= ÌÄ¿"
set "frog_2_1= ÌÄÙ"
set "frog_1_2=ÂÂÂÂ"
set "frog_2_2= ÀÙ "
set "frog_1_3=ÚĹ "
set "frog_2_3=ÀĹ "

:: lines are all 112 characters long
set "LINE_LENGTH=112"
set /A "speed_0=0", "speed_1=-1", "speed_2=1", "speed_3=-1", "speed_4=-1", "speed_5=1"
set /A "speed_6=0", "speed_7=1", "speed_8=-2", "speed_9=2", "speed_10=-1", "speed_11=0"
for /L %%a in (0,1,11) do set /A "offset_%%a=0"


set /A "NORTH=0", "EAST=1", "SOUTH=2", "WEST=3"
set /A "frog.head=!NORTH!"


:next

rem 4 c e a 2 1 5

echo(
<nul set /p "=%BS%  " & call :ColorText_bg_BS 4 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS c 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS e 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS a 76 /N 
<nul set /p "=%BS%  " & call :ColorText_bg_BS 2 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 1 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 5 76

echo(
echo(
<nul set /p "=%BS%  " & call :ColorText_bg_BS 2 6 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 3 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 2 6 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 13 & call :ColorText_bg_BS 0 5 & call :ColorText_bg_BS 2 3 /N

For /L %%n in (1,1,10) do echo(
call :ColorText_bg_BS a 78 /N
call :ColorText_bg_BS a 78
For /L %%n in (1,1,9) do echo(
call :ColorText_bg_BS 5 78 /N
call :ColorText_bg_BS 5 78 /n

echo(
echo(
<nul set /p "=%BS%  " & call :ColorText_bg_BS 5 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 1 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 2 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS a 76 /N 
<nul set /p "=%BS%  " & call :ColorText_bg_BS e 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS c 76 /N
<nul set /p "=%BS%  " & call :ColorText_bg_BS 4 76 


set "T1=%TIME%"
set /A "N=112*2"
for /L %%k in (0,1,%N%) do (
rem   cls
mode %cols%,%lines%
for /L %%L in (1,1,8) do echo(
rem   echo 0 0
rem   (
      set "status=                                                                               %%k/%N%"
      echo(!status:~-78!
      for /L %%l in (0,1,11) do (
         set /A "frame=((%%k%%!LINE_LENGTH!)*!speed_%%l!)%%!LINE_LENGTH!"
::         echo set /A "frame=((%%k%%!LINE_LENGTH!)*!speed_%%l!)%%!LINE_LENGTH!", !frame!
         for /F %%f in ("!frame!") do (
            set "l_1=!line_%%l_1:~%%f!!line_%%l_1!"
            set "l_2=!line_%%l_2:~%%f!!line_%%l_2!"
         )
         echo(  !l_1:~0,76!
         echo(  !l_2:~0,76!
      )
rem   ) > CON
   pause
   rem ping 192.0.2.0 -n 1 -w 500 >nul
)

(
   echo   %T1%
   echo   %TIME%
) > CON

popd
goto :eof


:ColorText_bg_BS bg_color len [/n]
(   
  set /a "len=%2-1"
  if %1 equ 0 (set fg=1) else set fg=%1
  if !len! geq 1 for %%. in (!len!) do  findstr /v /a:%1!fg! /R "^$" "!str_findstr:~0,%%.!" nul
  if /i "%~3"=="/n" echo(
goto :eof
)

einstein1969