home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
UT
/
UT045.ZIP
/
UTILS.EXE
/
GRMENU.BAT
< prev
next >
Wrap
DOS Batch File
|
1989-08-28
|
4KB
|
183 lines
echo off
break
rem This batch file uses several of the utilities in this package to build
rem a menu system that can be modified and used as a front end for just about
rem any system . . .
rem
rem Remember that you need to keep the case type statements following the
rem check for errorlevel in decending order for them to be properly parsed.
rem
rem For the sake of the demo, all of the errorlevel values have been entered.
rem It would be a good idea for the sake of speed to remove all unused
rem statements and replace them with a single goto ask, and also remove all
rem REM statements...
:mnutop
color 4 15
putcurs 5 /c
eko grmenu.txt 1
eko grmenu.txt 2
eko grmenu.txt 3
putcurs 9
eko grmenu.txt 4
eko grmenu.txt 5
eko grmenu.txt 6
eko grmenu.txt 7
eko grmenu.txt 8
eko grmenu.txt 9
eko grmenu.txt 10
eko grmenu.txt 11
eko grmenu.txt 12
eko grmenu.txt 13
:ask
putcurs 20
getresp Enter the number or pick key of the desired option :
rem Remember that you need to keep the case type statements following the
rem check for errorlevel in decending order for them to be properly parsed.
rem
rem Z
if errorlevel = 90 goto ask
rem Y
if errorlevel = 89 goto ask
rem X
if errorlevel = 88 goto xit
rem W
if errorlevel = 87 goto pcw
rem V
if errorlevel = 86 goto ask
rem U
if errorlevel = 85 goto ask
rem T
if errorlevel = 84 goto tym
rem S
if errorlevel = 83 goto ask
rem R
if errorlevel = 82 goto ask
rem Q
if errorlevel = 81 goto xit
rem P
if errorlevel = 80 goto ask
rem O
if errorlevel = 79 goto ask
rem N
if errorlevel = 78 goto ask
rem M
if errorlevel = 77 goto ask
rem L
if errorlevel = 76 goto dl
rem K
if errorlevel = 75 goto ask
rem J
if errorlevel = 74 goto ask
rem I
if errorlevel = 73 goto ask
rem H
if errorlevel = 72 goto chk
rem G
if errorlevel = 71 goto ask
rem F
if errorlevel = 70 goto fyl
rem E
if errorlevel = 69 goto ask
rem D
if errorlevel = 68 goto tday
rem C
if errorlevel = 67 goto pcm
rem B
if errorlevel = 66 goto ask
rem A
if errorlevel = 65 goto ask
rem 9
if errorlevel = 57 goto ask
rem 8
if errorlevel = 56 goto xit
rem 7
if errorlevel = 55 goto tday
rem 6
if errorlevel = 54 goto tym
rem 5
if errorlevel = 53 goto chk
rem 4
if errorlevel = 52 goto dl
rem 3
if errorlevel = 51 goto pcm
rem 2
if errorlevel = 50 goto fyl
rem 1
if errorlevel = 49 goto pcw
rem 0
if errorlevel = 48 goto ask
goto mnutop
:fyl
putcurs 12 /c
echo This option would have run PC-File if it had been set up properly . . .
echo You can include the batch commands directly in this file, or you can
echo use the CALL option to call a secondary batch file that will return
echo control to this program when completed.
tone /f350 /d500
pausec
goto mnutop
:pcw
putcurs 12 /c
echo This option would have run PC-Write if it had been set up properly . . .
echo You can include the batch commands directly in this file, or you can
echo use the CALL option to call a secondary batch file that will return
echo control to this program when completed.
tone /f350 /d500
pausec
goto mnutop
:pcm
putcurs 12 /c
echo This option would have run ProComm if it had been set up properly . . .
echo You can include the batch commands directly in this file, or you can
echo use the CALL option to call a secondary batch file that will return
echo control to this program when completed.
tone /f350 /d500
pausec
goto mnutop
:dl
putcurs 8 /c
dir /w
tone /f350 /d500
pausec
goto mnutop
:chk
putcurs 8 /c
chkdsk/f
tone /f350 /d500
pausec
goto mnutop
:tym
putcurs 23
now
tone /f350 /d500
pausec
clrbelow 22
goto ask
:tday
putcurs 23
today
tone /f350 /d500
pausec
clrbelow 22
goto ask
:xit
tone /d500 /f550 /r3
getyn Are you sure you want to quit
if errorlevel = 1 goto :xxx
clrline 20
goto ask
:xxx
color 0 15