Category : Batch File Utilities - mostly for DOS
Archive   : BMNU400.ZIP
Filename : DOS.BAT

echo off
rem
rem DOS.BAT E Cartman
rem
if "%&Mdebug%"=="Y" echo on
if "%&Mi%"=="" set &Mi=1
if "%&Mmi%"=="" set &Mmi=15
rem
:SetBMS
if "%&BMS%"=="" set &BMS=SAVESCR
:Top
if not "%&ret%"=="" goto %&ret%
%MenuArea%exe\BatMenu @%MenuArea%mnu\dos.mnu /keep /+%&Mi% /%&BMS%
if errorlevel 10 goto Exit
if errorlevel 9 goto Prev
if errorlevel 8 goto Fmt
if errorlevel 7 goto ChDrv
if errorlevel 6 goto ChDir
if errorlevel 5 goto Del
if errorlevel 4 goto Ren
if errorlevel 3 goto Move
if errorlevel 2 goto Copy
if errorlevel 1 goto Dir
goto Prev

:Dir
set &BMS=GetScr
set &Mi=1
%MenuArea%exe\BatMenu @%MenuArea%msg\working1.msg /keep/message/nowait
dir | %MenuArea%exe\BMlit > %&Ud%\æç.dat
%MenuArea%exe\numlines %&Ud%\æç.dat 15
if errorlevel 1 goto Dir2
copy %MenuArea%mnu\mdir.mnu+%&Ud%\æç.dat %&Ud%\æç.mnu > NUL
goto Dir3
:Dir2
copy %MenuArea%mnu\mdirw.mnu+%&Ud%\æç.dat %&Ud%\æç.mnu > NUL
:Dir3
%MenuArea%exe\BatMenu @%&Ud%\æç.mnu /nobar
goto Top


:Copy
set &BMS=GetScr
set &Mi=2
%MenuArea%exe\BatMenu @%MenuArea%msg\working1.msg /keep/message/nowait
%MenuArea%exe\BatMenu @%MenuArea%msg\msgbox1.msg /keep/message/nowait
%MenuArea%exe\filesel 6 10 *.* %&Ud%\fi.dat
if errorlevel 1 goto CopyDest
goto Cancel
:CopyDest
%MenuArea%exe\BatMenu @%MenuArea%msg\working1.msg /keep/message/nowait
%MenuArea%exe\vsetenv 4 12 "Enter destination for selected files " &DEST 20
%MenuArea%exe\ginsert copy %&Ud%\fi.dat I > %&Ud%\æç1
%MenuArea%exe\ginsert "%&DEST% > NUL" %&Ud%\æç1 A >> %&Ud%\æç.bat
copy %&Ud%\æç.bat+%MenuArea%txt\return %&Ud%\æç.bat > nul
set &DEST=
set &ret=Copy1
set &nxtbat=DOS
%&Ud%\æç.bat
:Copy1
set &ret=Copy2
set &nxtbat=
goto Cleanup
:Copy2
set &ret=
goto Top


:Move
set &BMS=GetScr
set &Mi=3
%MenuArea%exe\BatMenu @%MenuArea%msg\working1.msg /keep/message/nowait
%MenuArea%exe\BatMenu @%MenuArea%msg\msgbox1.msg /keep/message/nowait
%MenuArea%exe\filesel 6 10 *.* %&Ud%\fi.dat
if errorlevel 1 goto MoveDest
goto Cancel
:MoveDest
%MenuArea%exe\BatMenu @%MenuArea%msg\working1.msg /keep/message/nowait
%MenuArea%exe\vsetenv 4 12 "Enter destination for selected files " &DEST 20
%MenuArea%exe\ginsert copy %&Ud%\fi.dat I > %&Ud%\æç1
%MenuArea%exe\ginsert "%&DEST% > NUL" %&Ud%\æç1 A >> %&Ud%\æç.bat
copy %&Ud%\æç.bat+%MenuArea%txt\return %&Ud%\æç.bat > nul
set &DEST=
set &ret=Move1
set &nxtbat=DOS
%&Ud%\æç.bat
:Move1
%MenuArea%exe\BatMenu 15 14 " Remove source files ? " No Yes
if errorlevel 2 goto MovDel
goto MovEx
:MovDel
%MenuArea%exe\ginsert del %&Ud%\fi.dat I > %&Ud%\æç2
%MenuArea%exe\ginsert "> NUL" %&Ud%\æç2 A >> %&Ud%\æç2.bat
copy %&Ud%\æç2.bat+%MenuArea%txt\return %&Ud%\æç2.bat > nul
set &ret=Move2
set &nxtbat=DOS
%&Ud%\æç2.bat
:Move2
set &ret=MovEx
set &nxtbat=
goto Cleanup
:MovEx
set &ret=
goto Top


:Ren
set &BMS=GetScr
set &Mi=4
%MenuArea%exe\vsetenv 4 12 "Enter name of file to rename " _RSRC 12
%MenuArea%exe\vsetenv 4 12 "Enter new name for file " _RDEST 12
%MenuArea%exe\BatMenu @%MenuArea%msg\working1.msg /keep/message/nowait
ren %_RSRC% %_RDEST%
set _RSRC=
set _RDEST=
goto Top


:Del
set &BMS=GetScr
set &Mi=5
%MenuArea%exe\BatMenu @%MenuArea%msg\working1.msg /keep/message/nowait
%MenuArea%exe\BatMenu @%MenuArea%msg\msgbox1.msg /keep/message/nowait
%MenuArea%exe\filesel 6 10 *.* %&Ud%\fi.dat
if errorlevel 1 goto Del1
goto Cancel
:Del1
%MenuArea%exe\BatMenu @%MenuArea%msg\delete1.msg /keep/message/nowait
%MenuArea%exe\ginsert del %&Ud%\fi.dat I > %&Ud%\æç2
%MenuArea%exe\ginsert "> NUL" %&Ud%\æç2 A >> %&Ud%\æç2.bat
copy %&Ud%\æç2.bat+%MenuArea%txt\return %&Ud%\æç2.bat > nul
set &ret=Del2
set &nxtbat=DOS
%&Ud%\æç2.bat
:Del2
set &ret=DelEx
set &nxtbat=
goto Cleanup
:DelEx
set &ret=
goto Top


:ChDir
set &BMS=GetScr
set &Mi=6
%MenuArea%exe\vsetenv 4 12 "Enter directory to change to " &MCD 36
if "%&Mcd%" == "" goto cancel
set &ret=ChDir2
%MenuArea%exe\mcd %&Mcd% > NUL
if errorlevel 1 goto ChDirErr
goto ChDirEx
:ChDirErr
%MenuArea%exe\BatMenu @%MenuArea%msg\direrr.msg /message/beep
:ChDirEx
set &ret=
set &Mcd=
goto Top


:ChDrv
set &BMS=GetScr
set &Mi=7
%MenuArea%exe\BatMenu @%MenuArea%msg\working1.msg /keep/message/nowait
%MenuArea%exe\drives ~ > %&Ud%\æç1
%MenuArea%exe\drives > %&Ud%\æç2
copy %MenuArea%mnu\drives.mnu+%&Ud%\æç1 %&Ud%\æç.mnu > NUL
%MenuArea%exe\BatMenu @%&Ud%\æç.mnu
if errorlevel 255 goto Exit
if errorlevel 26 goto d26
if errorlevel 25 goto d25
if errorlevel 24 goto d24
if errorlevel 23 goto d23
if errorlevel 22 goto d22
if errorlevel 21 goto d21
if errorlevel 20 goto d20
if errorlevel 19 goto d19
if errorlevel 18 goto d18
if errorlevel 17 goto d17
if errorlevel 16 goto d16
if errorlevel 15 goto d15
if errorlevel 14 goto d14
if errorlevel 13 goto d13
if errorlevel 12 goto d12
if errorlevel 11 goto d11
if errorlevel 10 goto d10
if errorlevel 9 goto d9
if errorlevel 8 goto d8
if errorlevel 7 goto d7
if errorlevel 6 goto d6
if errorlevel 5 goto d5
if errorlevel 4 goto d4
if errorlevel 3 goto d3
if errorlevel 2 goto d2
if errorlevel 1 goto d1
goto Cancel
:d26
set &drv=26
goto SetDrv
:d25
set &drv=25
goto SetDrv
:d24
set &drv=24
goto SetDrv
:d23
set &drv=23
goto SetDrv
:d22
set &drv=22
goto SetDrv
:d21
set &drv=21
goto SetDrv
:d20
set &drv=20
goto SetDrv
:d19
set &drv=19
goto SetDrv
:d18
set &drv=18
goto SetDrv
:d17
set &drv=17
goto SetDrv
:d16
set &drv=16
goto SetDrv
:d15
set &drv=15
goto SetDrv
:d14
set &drv=14
goto SetDrv
:d13
set &drv=13
goto SetDrv
:d12
set &drv=12
goto SetDrv
:d11
set &drv=11
goto SetDrv
:d10
set &drv=10
goto SetDrv
:d9
set &drv=9
goto SetDrv
:d8
set &drv=8
goto SetDrv
:d7
set &drv=7
goto SetDrv
:d6
set &drv=6
goto SetDrv
:d5
set &drv=5
goto SetDrv
:d4
set &drv=4
goto SetDrv
:d3
set &drv=3
goto SetDrv
:d2
set &drv=2
goto SetDrv
:d1
set &drv=1
goto SetDrv
:SetDrv
%MenuArea%exe\wrtline %&drv% %&Ud%\æç2 N > %&Ud%\æç3
set &drv=
copy %&Ud%\æç3+%MenuArea%txt\return %&Ud%\æç.bat > NUL
set &ret=ChDrv2
set &nxtbat=dos
%&Ud%\æç
:ChDrv2
set &ret=ChDrvEx
goto Cleanup
:ChDrvEx
set &ret=
goto Top



:Fmt
set &BMS=GetScr
set &Mi=8
%MenuArea%exe\BatMenu @%MenuArea%mnu\density.mnu
if errorlevel 255 goto Exit
if errorlevel 2 goto FmtHi
if errorlevel 1 goto FmtLo
goto Cancel
:FmtHi
set &opt=
goto FmtDrv
:FmtLo
set &opt=/N:9/T:80
:FmtDrv
%MenuArea%exe\BatMenu @%MenuArea%mnu\fmtdrv.mnu
if errorlevel 255 goto Exit
if errorlevel 2 goto FmtB
if errorlevel 1 goto FmtA
goto Cancel
:FmtB
set &drv=B:
goto DoFmt
:FmtA
set &drv=A:
:DoFmt
if "%_color%"=="Y" echo 
cls
format %&drv%%&opt%
%MenuArea%exe\mpause
if "%_color%"=="Y" echo 
set &drv=
set &opt=
goto Top

:Cancel
%MenuArea%exe\BatMenu @%MenuArea%msg\cancel.msg /keep/message/nowait
set &ret=Can1
goto CleanUp
:Can1
set &ret=
goto Top

:Prev
set &ret=Prev2
goto CleanUp
:Prev2
set &ret=
set &Mi=
%MenuArea%bat\menu
goto X

:Exit
set &ret=Exit2
goto CleanUp
:Exit2
if exist %&Ud%\äæç*.* del %&Ud%\äæç*.* > NUL
set &ret=
set &Ud=
set &Mi=
set &Mmi=
set &BMS=

cls
%MenuArea%exe\batmenu @%MenuArea%msg\menudone.msg /keep/message/nowait
set MenuArea=
if "%&ML%"=="Y" goto NoUnload
%&Mouse% OFF
:NoUnload
set &ML=
set &Mouse=
goto X


:CleanUp
if exist %&Ud%\fi.dat del %&Ud%\fi.dat > NUL
if exist %&Ud%\æç*.* del %&Ud%\æç*.* > NUL
if exist %&Ud%\status del %&Ud%\status > NUL
if exist %&Ud%\status.msg del %&Ud%\status.msg > NUL
if "%&ret%"=="Exit2" set &MI=
set &nxtbat=
set &drv=
set &opt=
goto %&ret%


:X