MentalWreck
Programmer
Here's the program I wrote
CLS
COLOR 11
PRINT "Copyright 2000 Joseph Emerson"
PRINT " Numerics Pilot 1.0 beta A"
score = 0
5
d = 10
RANDOMIZE TIMER
x% = INT(RND * 1000) + 1
COLOR 15
PRINT "I am thinking of a number between 1 and 1000."
10
IF d = 0 THEN 1000
PRINT "Chances left:"; d
PRINT "What is your guess?"
INPUT guess
CLS
IF guess = x% THEN 40
IF guess < x% THEN LET d = d - 1: PRINT "Go higher.": GOTO 10
IF guess > x% THEN LET d = d - 1: PRINT "Go lower.": GOTO 10
40
COLOR 14
PRINT "You're correct!"
PRINT " It was "; x%
score = score + (d * 20)
PRINT " You have "; score; " points."
IF score >= 500 THEN 1010 ELSE GOTO 5
END
1000 COLOR 12
PRINT "Sorry. It was", x%
GOTO 5
END
1010 PRINT " Congratulations. You met or exceeded 500 points."
PRINT "Thanks for playing."
END
Anyone know How to make good graphics or sound effects? %-)
Please submit some ideas. [sig][/sig]
CLS
COLOR 11
PRINT "Copyright 2000 Joseph Emerson"
PRINT " Numerics Pilot 1.0 beta A"
score = 0
5
d = 10
RANDOMIZE TIMER
x% = INT(RND * 1000) + 1
COLOR 15
PRINT "I am thinking of a number between 1 and 1000."
10
IF d = 0 THEN 1000
PRINT "Chances left:"; d
PRINT "What is your guess?"
INPUT guess
CLS
IF guess = x% THEN 40
IF guess < x% THEN LET d = d - 1: PRINT "Go higher.": GOTO 10
IF guess > x% THEN LET d = d - 1: PRINT "Go lower.": GOTO 10
40
COLOR 14
PRINT "You're correct!"
PRINT " It was "; x%
score = score + (d * 20)
PRINT " You have "; score; " points."
IF score >= 500 THEN 1010 ELSE GOTO 5
END
1000 COLOR 12
PRINT "Sorry. It was", x%
GOTO 5
END
1010 PRINT " Congratulations. You met or exceeded 500 points."
PRINT "Thanks for playing."
END
Anyone know How to make good graphics or sound effects? %-)
Please submit some ideas. [sig][/sig]