home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Graphics
/
WOGRAPH.BIN
/
658.EXAMPLES.EXE
/
MATHWIZZ.SHW
< prev
next >
Wrap
Text File
|
1993-02-01
|
2KB
|
141 lines
;*********************************************************************;
; Sciptname..: MathWizz.SHW ;
; Date.......: 1st. Feb. 1993, by RMP DATA. ;
; Purpose....: Promotion for DATASHOW, as an example script. ;
;*********************************************************************;
; Create all variables
VARIABLE CREATE var1 TYPE NUMBER 0
VARIABLE CREATE var2 TYPE NUMBER 0
VARIABLE CREATE result TYPE NUMBER 0
VARIABLE CREATE input TYPE NUMBER 0
VARIABLE CREATE inkey TYPE KEY
SHOW SCREEN "mathwiz1.scr" TXT
WAIT 3
; Starting point for addition puzzles
MARK 10
SHOW SCREEN "mathwiz2.scr" TXT
math var1 = random(100)
math var2 = random(100)
math result = var1 + var2
goxy 30 10
write var1
goxy 30 11
write "+"
goxy 30 12
write var2
goxy 30 13
write "--------"
goxy 30 15
write "--------"
goxy 30 14
READ STRING input 4
IF input EQ result DO JUMPMARK 11
goxy 30 17
write "Wrong result..."
goxy 30 19
write "The result was:"
goxy 56 19
write result
JUMPMARK 12
MARK 11
goxy 30 17
write "CONGRATULATION!!!"
MARK 12
goxy 4 25
write "Q = Quit, PgDn = New Operator, Any other key = Continue this puzzle"
READ KEY inkey
CASE KEY inkey 81 DO JUMPMARK 100 ; 'q'
CASE KEY inkey 113 DO JUMPMARK 100 ; 'Q'
CASE KEY inkey 481 DO JUMPMARK 20 ; 'PgDn'
; Jump back to starting point
JUMPMARK 10
; Starting point for multiplication puzzles
MARK 20
SHOW SCREEN "mathwiz2.scr" TXT
math var1 = random(100)
math var2 = random(100)
math result = var1 * var2
goxy 30 10
write var1
goxy 30 11
write "*"
goxy 30 12
write var2
goxy 30 13
write "--------"
goxy 30 15
write "--------"
goxy 30 14
READ STRING input 4
IF input EQ result DO JUMPMARK 21
goxy 30 17
write "Wrong result..."
goxy 30 19
write "The result was:"
goxy 56 19
write result
JUMPMARK 22
MARK 21
goxy 30 17
write "CONGRATULATION!!!"
MARK 22
goxy 4 25
write "Q = Quit, Any other key = Continue this puzzle"
READ KEY inkey
CASE KEY inkey 81 DO JUMPMARK 100 ; 'q'
CASE KEY inkey 113 DO JUMPMARK 100 ; 'Q'
JUMPMARK 20
; End the script
MARK 100
COLOR BACKGROUND 0
SCREEN CLEAR
WRITE "THANK YOU FOR USING MATHWIZARD..."
WAIT 2
QUIT