home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: Educate
/
Educate.zip
/
mathwhiz.zip
/
MATHWHIZ.CMD
next >
Wrap
OS/2 REXX Batch file
|
1996-07-18
|
4KB
|
197 lines
/*MATH WHIZ*/
CLS
SAY "WELCOME TO MATH WHIZ V1.00"
SAY " "
SAY "WHAT IS YOUR NAME?"
PARSE PULL NAME
SAY " "
SAY "Hello" NAME"."
INTRO:
SAY "WOULD YOU LIKE TO PRACTICE ADDITION, SUBTRACTION, OR MULTIPLICATION?"
SAY "CHOOSE A, S, OR M:"
PULL SIGN
SAY "WHICH LEVEL WOULD YOU LIKE TO PLAY?"
SAY "ENTER 1 OR 2:"
PULL LEVEL
IF SIGN=A THEN SIGNAL ADD
IF SIGN=S THEN SIGNAL SUB
IF SIGN=M THEN SIGNAL MULT
IF SIGN=X THEN SIGNAL MIX
ADD:
IF LEVEL=1 THEN SIGNAL AFIRST
IF LEVEL=2 THEN SIGNAL ASECOND
SUB:
IF LEVEL=1 THEN SIGNAL SFIRST
IF LEVEL=2 THEN SIGNAL SSECOND
MULT:
IF LEVEL=1 THEN SIGNAL MFIRST
IF LEVEL=2 THEN SIGNAL MSECOND
AFIRST:
CLS
A=RANDOM(9)
B=RANDOM(9)
C=0
D=0
DO 15
SAY " "
SAY A "+" B "="
PULL ANSWER
IF ANSWER = A+B THEN SAY A+B" IS CORRECT"
ELSE SAY ANSWER "IS INCORRECT. THE CORRECT ANSWER IS" A+B
IF ANSWER = A+B THEN C=C+1
A=RANDOM(9)
B=RANDOM(9)
D=D+1
SAY " "
END
SAY NAME", YOU GOT "C "OUT OF "D" CORRECT!"
SAY "WOULD YOU LIKE TO PLAY AGAIN?"
SAY "(Y OR N):"
PULL INPUT
IF INPUT=Y THEN SIGNAL INTRO
ELSE SAY "THANKS FOR PLAYING MATH WHIZ V1.00"
EXIT
ASECOND:
cls
A=RANDOM(20)
B=RANDOM(20)
C=0
D=0
DO 15
SAY " "
SAY A "+" B "="
PULL ANSWER
IF ANSWER = A+B THEN SAY A+B" IS CORRECT"
ELSE SAY ANSWER "IS INCORRECT. THE CORRECT ANSWER IS" A+B
IF ANSWER = A+B THEN C=C+1
A=RANDOM(20)
B=RANDOM(20)
D=D+1
SAY " "
END
SAY NAME", YOU GOT "C "OUT OF "D" CORRECT!"
SAY "WOULD YOU LIKE TO PLAY AGAIN?"
SAY "(Y OR N):"
PULL INPUT
IF INPUT=Y THEN SIGNAL INTRO
ELSE SAY "THANKS FOR PLAYING MATH WHIZ V1.00"
EXIT
MFIRST:
cls
A=RANDOM(9)
B=RANDOM(9)
C=0
D=0
DO 15
SAY " "
SAY A "*" B "="
PULL ANSWER
IF ANSWER = A*B THEN SAY A*B" IS CORRECT"
ELSE SAY ANSWER "IS INCORRECT. THE CORRECT ANSWER IS" A*B
IF ANSWER = A*B THEN C=C+1
A=RANDOM(9)
B=RANDOM(9)
D=D+1
SAY " "
END
SAY NAME", YOU GOT "C "OUT OF "D" CORRECT!"
SAY "WOULD YOU LIKE TO PLAY AGAIN?"
SAY "(Y OR N):"
PULL INPUT
IF INPUT=Y THEN SIGNAL INTRO
ELSE SAY "THANKS FOR PLAYING MATH WHIZ V1.00"
EXIT
MSECOND:
cls
A=RANDOM(15)
B=RANDOM(15)
C=0
D=0
DO 15
SAY " "
SAY A "*" B "="
PULL ANSWER
IF ANSWER = A*B THEN SAY A*B" IS CORRECT"
ELSE SAY ANSWER "IS INCORRECT. THE CORRECT ANSWER IS" A*B
IF ANSWER = A*B THEN C=C+1
A=RANDOM(15)
B=RANDOM(15)
D=D+1
SAY " "
END
SAY NAME", YOU GOT "C "OUT OF "D" CORRECT!"
SAY "WOULD YOU LIKE TO PLAY AGAIN?"
SAY "(Y OR N):"
PULL INPUT
IF INPUT=Y THEN SIGNAL INTRO
ELSE SAY "THANKS FOR PLAYING MATH WHIZ V1.00"
EXIT
SFIRST:
cls
A=RANDOM(10, 20)
B=RANDOM(9)
C=0
D=0
DO 15
SAY " "
SAY A "-" B "="
PULL ANSWER
IF ANSWER = A-B THEN SAY A-B" IS CORRECT"
ELSE SAY ANSWER "IS INCORRECT. THE CORRECT ANSWER IS" A-B
IF ANSWER = A-B THEN C=C+1
A=RANDOM(10, 20)
B=RANDOM(9)
D=D+1
SAY " "
END
SAY NAME", YOU GOT "C "OUT OF "D" CORRECT!"
SAY "WOULD YOU LIKE TO PLAY AGAIN?"
SAY "(Y OR N):"
PULL INPUT
IF INPUT=Y THEN SIGNAL INTRO
ELSE SAY "THANKS FOR PLAYING MATH WHIZ V1.00"
EXIT
SSECOND:
cls
A=RANDOM(15, 30)
B=RANDOM(14)
C=0
D=0
DO 15
SAY " "
SAY A "-" B "="
PULL ANSWER
IF ANSWER = A-B THEN SAY A-B" IS CORRECT"
ELSE SAY ANSWER "IS INCORRECT. THE CORRECT ANSWER IS" A-B
IF ANSWER = A-B THEN C=C+1
A=RANDOM(15, 30)
B=RANDOM(14)
D=D+1
SAY " "
END
SAY NAME", YOU GOT "C "OUT OF "D" CORRECT!"
SAY "WOULD YOU LIKE TO PLAY AGAIN?"
SAY "(Y OR N):"
PULL INPUT
IF INPUT=Y THEN SIGNAL INTRO
ELSE SAY "THANKS FOR PLAYING MATH WHIZ V1.00"
EXIT