home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
GRAPHICS
/
SHOW42A.ZIP
/
EXAMPLES.EXE
/
MATHWIZZ.SHW
< prev
next >
Wrap
Text File
|
1994-02-01
|
2KB
|
107 lines
;*********************************************************************;
; Sciptname..: MathWizz.SHW ;
; Date.......: 1st. Feb. 1994, 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: "+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: "+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