home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug013.ark / TRAP.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.2 KB  |  39 lines
  1. $B
  2. RANDOMIZE
  3. 10 G = 6 : N=100
  4. 50 INPUT "DO YOU WANT INSTRUCTIONS (1=YES, 2=N0)";Z
  5. IF Z<>1 THEN 180
  6. PRINT "I AM THINKING OF A NUMBER BETWEEN 1 AND ";N
  7. PRINT "TRY TO GUESS MY NUMBER. ON EACH GUESS, YOU"
  8. PRINT "ARE TO ENTER 2 NUMBERS, TRYING TO TRAP MY NUMBER "
  9. PRINT "BETWEEN YOUR NUMBERS. I WILL TELL YOU IF YOU "
  10. PRINT "TRAPPED MY NUMBER, IF MY NUMBER IS SMALLER,"
  11. PRINT "OR IF MY NUMBER IS LARGER THAN YOUR TWO NUMBERS."
  12. PRINT "IF YOU THINK YOU KNOW MY NUMBER, INPUT THAT NUMBER"
  13. PRINT "FOR BOTH GUESSES. EX- 4,4."
  14. PRINT "YOU GET ";G;" GUESSES."
  15. 180 X = INT(RND*N)
  16. 200 FOR Q = 1 TO G
  17. 210 PRINT : PRINT "GUESS #";Q; : INPUT A,B
  18. 230 IF A<>B THEN 240
  19. 235 IF X = A THEN 400
  20. 240 IF A<=B THEN 260
  21. 250 GOSUB 360
  22. 260 IF X<A THEN 300
  23. 270 IF X < = B THEN 320
  24. 280 PRINT "MY NUMBER IS LARGER THAN YOUR TRAP NUMBERS."
  25. 290 GOTO 330
  26. 300 PRINT "MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERES."
  27. 310 GOTO 330
  28. 320 PRINT "YOU HAVE TRAPPED MY NUMBER."
  29. 330 NEXT Q
  30. 340 PRINT " SORRY, THAT'S ";G;" GUESSES. MY NUMBER WAS "; X
  31. 350 GOTO 410
  32. 360 R=A : A=B : B=R 
  33. 390 RETURN
  34. 400 PRINT "YOU GOT IT!!!"
  35. 410 INPUT "DO YOU WANT TO PLAY AGAIN (1=YES, 2=NO)" ;F
  36. IF F<>2 THEN 180
  37. PRINT "GOODBYE"
  38. END
  39.