home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk057 / guess_2.bas < prev    next >
Encoding:
BASIC Source File  |  1984-03-15  |  1.0 KB  |  20 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 you 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. u got it in";COUNT;"guesses!"
  20. 170 INPUT "Would y