home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
mymath55.zip
/
MATH2.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-12-24
|
2KB
|
143 lines
ECHO OFF
REM KEY.COM must be in the path.
:START
CLS
TYPE MENU2.TXT
REM You may add a whole path to the above statement or change to this sub-dir.
KEY
IF ERRORLEVEL 97 IF NOT ERRORLEVEL 98 GOTO a
IF ERRORLEVEL 98 IF NOT ERRORLEVEL 99 GOTO b
IF ERRORLEVEL 99 IF NOT ERRORLEVEL 100 GOTO c
IF ERRORLEVEL 100 IF NOT ERRORLEVEL 101 GOTO d
IF ERRORLEVEL 101 IF NOT ERRORLEVEL 102 GOTO e
IF ERRORLEVEL 102 IF NOT ERRORLEVEL 103 GOTO f
IF ERRORLEVEL 103 IF NOT ERRORLEVEL 104 GOTO g
IF ERRORLEVEL 104 IF NOT ERRORLEVEL 105 GOTO h
IF ERRORLEVEL 105 IF NOT ERRORLEVEL 106 GOTO i
IF ERRORLEVEL 106 IF NOT ERRORLEVEL 107 GOTO j
IF ERRORLEVEL 107 IF NOT ERRORLEVEL 108 GOTO k
IF ERRORLEVEL 108 IF NOT ERRORLEVEL 109 GOTO l
IF ERRORLEVEL 109 IF NOT ERRORLEVEL 110 GOTO m
IF ERRORLEVEL 110 IF NOT ERRORLEVEL 111 GOTO n
IF ERRORLEVEL 111 IF NOT ERRORLEVEL 112 GOTO o
IF ERRORLEVEL 112 IF NOT ERRORLEVEL 113 GOTO p
IF ERRORLEVEL 113 IF NOT ERRORLEVEL 114 GOTO q
IF ERRORLEVEL 114 IF NOT ERRORLEVEL 115 GOTO r
IF ERRORLEVEL 115 IF NOT ERRORLEVEL 116 GOTO s
IF ERRORLEVEL 116 IF NOT ERRORLEVEL 117 GOTO t
IF ERRORLEVEL 117 IF NOT ERRORLEVEL 118 GOTO u
IF ERRORLEVEL 118 IF NOT ERRORLEVEL 119 GOTO v
IF ERRORLEVEL 119 IF NOT ERRORLEVEL 120 GOTO END
GOTO START
:a
CLS
RADIUS
PAUSE
GOTO START
:b
CLS
DIAMETER
PAUSE
GOTO START
:c
CLS
CIRCUM
PAUSE
GOTO START
:d
CLS
AREA
PAUSE
GOTO START
:e
CLS
SPHERE1
PAUSE
GOTO START
:f
CLS
SPHERE2
PAUSE
GOTO START
:g
CLS
RADCYL
PAUSE
GOTO START
:h
CLS
HIGHTCYL
PAUSE
GOTO START
:i
CLS
RADCON
PAUSE
GOTO START
:j
CLS
HIGHTCON
PAUSE
GOTO START
:k
CLS
C-TO-F
PAUSE
GOTO START
:l
CLS
F-TO-C
PAUSE
GOTO START
:m
CLS
K-TO-C
PAUSE
GOTO START
:n
CLS
ROOT
PAUSE
GOTO START
:o
CLS
EXP
PAUSE
GOTO START
:p
CLS
QUAD
PAUSE
GOTO START
:q
CLS
Q-OR-L
PAUSE
GOTO START
:r
CLS
ADD
PAUSE
GOTO START
:s
CLS
DIFF
PAUSE
GOTO START
:t
CLS
MULT
PAUSE
GOTO START
:u
CLS
DIV
PAUSE
GOTO START
:v
CLS
AVG
PAUSE
GOTO START
:END
CLS