home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / PC_PROF.ZIP / GUESS_2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  878 b   |  19 lines
  1. 10  RANDOMIZE 're-seeds the random number generator (keep the game interesting!)
  2. 20  NUMBER=INT(RND*1000)+1       'pick a random integer between 1 and 1000
  3. 30  PRINT "I know a number between 1 and 1000, try and guess what it is."
  4. 40  INPUT "What is your guess";GUESS
  5. 50  COUNT=1
  6. 60  IF NUMBER=GUESS THEN PRINT "Wow! One guess, you must be lucky!":GOTO 170
  7. 70  DIFFERENCE=ABS(NUMBER-GUESS) 'find how far away the guess is
  8. 80  IF DIFFERENCE<100 THEN PRINT "You're real close.":GOTO 110
  9. 90  IF DIFFERENCE<250 THEN PRINT "You're kind'a close.":GOTO 110
  10. 100  PRINT "Wow, are you ever off!"
  11. 110  INPUT "What is you guess";GUESS
  12. 120  COUNT=COUNT+1
  13. 130  IF NUMBER=GUESS THEN 160
  14. 140  IF DIFFERENCE>ABS(NUMBER-GUESS) THEN PRINT "You are getting closer ... "; ELSE PRINT "You did better last time!  ";
  15. 150  DIFFERENCE=ABS(NUMBER-GUESS):GOTO 110
  16. 160  PRINT "You got it in";COUNT;"guesses!"
  17. 170  INPUT "Would you like to play again (Y/N)";AGAIN$
  18. 180  IF AGAIN$="Y" OR AGAIN$="y" THEN 20
  19.