Stop the number on 100 to get a WOW! No Media!

Welcome to WOW! You need two people to play. WOW! is all about timing. There is a number that starts at 0 and rises. Try to stop it by pressing the spacebar when it reaches 100. The closer you are the more points you get. If you stop the number on 100 then you get a WOW! and 100 points! You and your partner take turns until five rounds are over, and then see who has more points.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Menu:
set text size 1000

do
ink rgb(rnd(1000),rnd(1000),rnd(1000)),0
text 225,150,"WOW!"
WOW=WOW+1
if WOW>200 then exit
loop

set text size 10
ink rgb(10,10,1000),0
if firstime=0
cls
text 5,10,"Welcome to WOW! You need two people to play. WOW! is all about timing. There is a number"
text 5,30,"that starts at 0 and rises. Try to stop it by pressing the spacebar when it reaches 100."
text 5,50,"The closer you are the more points you get. If you stop the number on 100 then you get a"
text 5,70,"WOW! and 100 points! You and your partner take turns until five rounds are over, and then"
text 5,90,"see who has more points. press any key..."
suspend for key
endif
firstime=1

rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Gamestart:
cls
R = 1
set cursor 10,10
input "type name player 1: ";P1$
cls
set cursor 10,10
input "type name player 2: ";P2$
cls
Game:
set cursor 10,10
print P1$
set cursor 10,30
print P2$
set cursor 10,50
print "Round ",R
set cursor 10,70
print "press any key..."
suspend for key
Gstartover:
A = 0
cls
set cursor 10,10
print "Get Ready, ",P1$
wait 3000
do
cls
A = A+1
set cursor 10,10
print A
set cursor 10,30
print P1$
if spacekey()=1 then B = A : goto Grend
loop

Grend:
cls
set cursor 10,10
print B
set cursor 10,30
if B = 100 then print "!!!WOW!!! | 100" : S = S+100
if B = 101 then print "CLOSE | 50" : S = S+50
if B = 102 then print "CLOSE | 30" : S = S+30
if B = 103 then print "CLOSE | 20" : S = S+20
if B = 104 then print "NOT BAD | 10" : S = S+10
if B = 105 then print "NOT BAD | 8" : S = S+8
if B = 106 then print "NOPE | 7" : S = S+7
if B = 107 then print "NOPE | 5" : S = S+5
if B = 108 then print "NO WAY | 3" : S = S+3
if B = 109 then print "NO WAY | 1" : S = S+1
if B = 99 then print "CLOSE | 50" : S = S+50
if B = 98 then print "CLOSE | 30" : S = S+30
if B = 97 then print "CLOSE | 20" : S = S+20
if B = 96 then print "NOT BAD | 10" : S = S+10
if B = 95 then print "NOT BAD | 9" : S = S+9
if B = 94 then print "NOPE | 8" : S = S+8
if B = 93 then print "NOPE | 7" : S = S+7
if B = 92 then print "NOPE | 5" : S = S+5
if B = 91 then print "NO WAY | 3" : S = S+3
if B = 90 then print "NO WAY | 1" : S = S+1
set cursor 10,70
print "Press any key..."
wait 200
suspend for key
goto Gsoe
Gsoe:
cls
do
set cursor 10,10
print P1$,"'s Score: ",S
set cursor 10,30
print P2$,"'s Score: ",S2
set cursor 10,50
print "Round ",R
set cursor 10,70
print "Press Enter..."
if returnkey()=1
goto GPlayer
endif
loop

GPlayer:
cls
set cursor 10,10
print "Get Ready, ",P2$
wait 3000
cls
A = 0
do
cls
A = A+1
set cursor 10,10
print A
set cursor 10,30
print P2$
if spacekey()=1 then B = A : goto Grend2
loop

Grend2:
cls
set cursor 10,10
print B
set cursor 10,30
if B = 100 then print "!!!WOW!!! | 100" : S2 = S2+100
if B = 101 then print "CLOSE | 50" : S2 = S2+50
if B = 102 then print "CLOSE | 30" : S2 = S2+30
if B = 103 then print "CLOSE | 20" : S2 = S2+20
if B = 104 then print "NOT BAD | 10" : S2 = S2+10
if B = 105 then print "NOT BAD | 8" : S2 = S2+8
if B = 106 then print "NOPE | 7" : S2 = S2+7
if B = 107 then print "NOPE | 5" : S2 = S2+5
if B = 108 then print "NO WAY | 3" : S2 = S2+3
if B = 109 then print "NO WAY | 1" : S2 = S2+1
if B = 99 then print "CLOSE | 50" : S2 = S2+50
if B = 98 then print "CLOSE | 30" : S2 = S2+30
if B = 97 then print "CLOSE | 20" : S2 = S2+20
if B = 96 then print "NOT BAD | 10" : S2 = S2+10
if B = 95 then print "NOT BAD | 9" : S2 = S2+9
if B = 94 then print "NOPE | 8" : S2 = S2+8
if B = 93 then print "NOPE | 7" : S2 = S2+7
if B = 92 then print "NOPE | 5" : S2 = S2+5
if B = 91 then print "NO WAY | 3" : S2 = S+3
if B = 90 then print "NO WAY | 1" : S2 = S2+1
set cursor 10,70
print "Press any key..."
wait 200
suspend for key
goto Gsoe2
Gsoe2:
R = R+1
cls
do
set cursor 10,10
print P1$,"'s Score: ",S
set cursor 10,30
print P2$,"'s Score: ",S2
set cursor 10,50
print "Round ",R
set cursor 10,70
print "Press Enter..."
if R = 6
goto Gfinal
endif
if returnkey()=1
goto Gstartover
endif
loop

Gfinal:
cls
do
set cursor 10,10
print P1$,"'s Score: ",S
set cursor 10,30
print P2$,"'s Score: ",S2
set cursor 10,50
print "Final"
set cursor 10,70
print "If you want to play again press Enter. If you want to quit press Escape."
if returnkey()=1
goto Menu
endif
loop

NA:
print "This version is not avalible"
print "Press any Key"
suspend for key
goto Menu