@echo off

:menu1
echo c)lear all
echo f)ill a bunch
echo l)ist them
echo s)ize them
echo r)un Perl program
echo q)uit
set /p zans="what to do? [cflqrs] "
if "%zans%X"=="X" goto menu1
if /i "%zans%"=="c" goto docl1
if /i "%zans%"=="f" goto dofl1
if /i "%zans%"=="l" goto doli1
if /i "%zans%"=="q" goto doqu1
if /i "%zans%"=="r" goto doru1
if /i "%zans%"=="s" goto dosz1
goto menu1

:docl1
set zcount=350
set zcounter=1
:clagain
rem echo I see %zcounter% and %zcount%
if %zcount% LSS 1 goto :menu1
if not defined zenv%zcounter% goto menu1
rem echo Once again, doing zenv%zcounter% ...
set zenv%zcounter%=
set /a zcounter+=1
set /a zcount-=1
goto clagain

:dofl1  ---------------------------------------------------
set /p zans="how many should I fill? "
if "%zans%X"=="X" goto menu1

set zcount=%zans%
echo Will fill %zcount% environment variables with 100-char values

:flagain
if %zcount% LSS 1 goto :menu1
set zenv%zcount%=a123456789b123456789c123456789d123456789e123456789f123456789g123456789h123456789i123456789j123456789
set /a zcount-=1
goto flagain

:doli1
set zenv
goto menu1

:dosz1
set zenv >zenv.size
set >all.env.size
dir zenv.size all.env.size
goto menu1

:doru1
perl -w joinersw1a.pl
goto menu1

:doqu1
echo okay, quitting, bye!
goto :eof

rem vim:ft=dosbatch:ts=2:sw=2:et:is:hls:ss=10: