Code:
MODE CON:COLS=40 LINES=12
echo off
goto :0
:sub_0
if not "%s%"=="" if not "%s%"=="]" set /a n=%n%+1
exit /b
:sub_1
if %f% leq 20 (set c=%c%%x%) else (
set _var%e%=%c%
set /a e=%e%+1
set c=%x%
set f=%n%)
exit /b
:sub
set x=
set s=
set n=
set f=
set c=
set e=0
for %%a in (%*) do (
set x=%%a
set n=0
for /l %%b in (0,1,19) do (
call set s=%%x:~%%b,1%%
call :sub_0)
call set /a n=%%n%%+1
call set /a f=%%f%%+%%n%%
call :sub_1)
set _var%e%=%c%
for /l %%d in ( 0 1 %e%) do (
rem call echo %%_var%%d%%)
call set %%_var%%d%%)
exit /b
:mainscreen
cls
echo %var2%
for /l %%d in ( 0 1 %e%) do (
call echo %%_var%%d%%)
echo ....................
echo . .
echo %q%
echo . .
echo ....................
exit /b
:input
call :mainscreen
set /p input=
if %input%==chat call :mainscreen&set /p var2= &call set var=%%var%%%%var2%%&call set var2=%%var%%
if %input%==buyparts set q=. shop .& call :sub [nisan] [honda] [toyota] [mazda] [saab] [alfaromeo] [datsun] [detomaso] [back] [chat]
if %input%==garage set q=. garage .& call :sub [buyparts] [listings] [garage] [back] [chat]
exit/b
:0
set q=. garage .&call :sub [buyparts] [listings] [garage] [back] [chat]
for /l %%a in (0) do (
for /l %%b in (0 1 9) do (
for %%c in (^| \ -- /) do (
for /l %%d in (0 1 8888) do (call)
call :mainscreen
echo %%c))
call :input)