Advertisement
Guest User

Untitled

a guest
May 9th, 2019
158
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.82 KB | None | 0 0
  1. CLS
  2. COLOR 15, 1
  3. LET X = 10
  4. RANDOMIZE TIMER
  5. LET num = RND
  6. LET num = INT(100 * num) + 1
  7.  
  8. PRINT "I have picked an umber from between 1 and 100, i am going to give you 10 chances to guess my number": INPUT GUESS
  9. PRINT GUESS
  10.  
  11.  
  12.  
  13.  
  14. 150
  15. CLS
  16. WHILE X > 0
  17. CLS
  18. IF GUESS > num THEN PRINT "to high lmaooooooo"
  19. IF GUESS < num THEN PRINT "to low lmaooooooo"
  20. IF GUESS = num THEN PRINT "good boy you got my num HDASHDIUASHUDI"
  21. IF GUESS = num THEN GOTO 1969
  22. IF GUESS > 100 THEN PRINT "Have you forgotten the rules? the number is supposed to be between 1 and 100, don't guess something over"
  23. PRINT "you have"
  24. X = X - 1
  25. PRINT X
  26. PRINT "tries remaining"
  27. PRINT "try to guess my number again?": INPUT GUESS
  28.  
  29. LET FSTGUES = GUESS
  30. GOTO 150
  31.  
  32.  
  33.  
  34. WEND
  35. PRINT "you ran out of guesses"
  36. PRINT "the number was"
  37. PRINT num
  38. END
  39. 1969
  40. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement