Guest User

Untitled

a guest
Oct 26th, 2017
149
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.75 KB | None | 0 0
  1. START:
  2. CLS
  3. RANDOMIZE TIMER
  4. answer = INT(RND * 99) + 1
  5. num = 0
  6. PRINT "Welcome to Andrew's guess-a-number game, guess a number between 1 & 100 in 10 tries or less"
  7. PRINT "Enter Guess"
  8. DO
  9.     num = num + 1
  10.     PRINT "Enter guess"; num;
  11.     INPUT ": ", guess
  12.     IF (guess < answer) THEN PRINT "Higher..."
  13.     IF (guess > answer) THEN PRINT "Lower..."
  14.     IF (guess = answer) THEN PRINT "Correct"
  15.     IF (guess = answer) THEN PRINT "Do you want to play again? (y/n)"
  16.     IF (guess = answer) THEN INPUT PLAY$
  17.     IF PLAY$ = "y" THEN GOTO START
  18.     IF PLAY$ = "n" THEN END
  19. LOOP UNTIL num = 10
  20. PRINT "Whoops you ran out of guesses! Here's what I was thinking"; num;
  21. PRINT "Do you want to play again? (y/n)"
  22. INPUT PLAY$
  23. IF PLAY$ = "y" THEN GOTO START
  24. END
Add Comment
Please, Sign In to add comment