home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / PC_PROF.ZIP / GUESS_1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  558 b   |  11 lines
  1. 10  NUMBER=INT(RND*1000)+1       'pick a random integer between 1 and 1000
  2. 20  COUNT=0                      'initialize the counter
  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=COUNT+1                'keep track of the number of guesses
  6. 60  IF NUMBER=GUESS THEN 90      'got it!
  7. 70  IF GUESS<NUMBER THEN PRINT "Too low,"; ELSE PRINT "Too high,";
  8. 80  PRINT " try again ... ";:GOTO 40
  9. 90  PRINT "You got it in";COUNT;"guesses!  Would you like to play again (Y/N)";
  10. 100  INPUT AGAIN$:IF AGAIN$="Y" OR AGAIN$="y" THEN 10
  11.