Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

help me add elaborate my simple program

Status
Not open for further replies.

MentalWreck

Programmer
Oct 16, 2000
2
US
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 &quot;Go higher.&quot;: GOTO 10
IF guess > x% THEN LET d = d - 1: PRINT &quot;Go lower.&quot;: GOTO 10
40
COLOR 14
PRINT &quot;You're correct!&quot;
PRINT &quot; It was &quot;; x%
score = score + (d * 20)
PRINT &quot; You have &quot;; score; &quot; points.&quot;
IF score >= 500 THEN 1010 ELSE GOTO 5
END
1000 COLOR 12
PRINT &quot;Sorry. It was&quot;, x%
GOTO 5
END
1010 PRINT &quot; Congratulations. You met or exceeded 500 points.&quot;
PRINT &quot;Thanks for playing.&quot;
END

Anyone know How to make good graphics or sound effects? %-)

Please submit some ideas. [sig][/sig]
 
Check out Toshi's site at (lot's of good stuff there and you might come up with some ideas).
[sig]<p> <br><a href=mailto: > </a><br><a href= plain black box</a><br><i>"I sure hope I'm retired when it comes time to fix all the the Year-2000 problems in our systems!"</i><br>
<b>Edward Yourdon, <u>Time Bomb 2000</u></b>[/sig]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top