home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / EBASIC.ZIP / BAGELS.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  1.6 KB  |  65 lines
  1.  
  2. 5 DIM N(10),A(10)
  3. 10 PRINT:PRINT:PRINT"THE BAGELS GAME:"
  4. 60 PRINT
  5. 70 INPUT "WOULD YOU LIKE THE RULES";A$
  6. 80 IF A$="N" OR A$="NO" THEN 160
  7. 90 PRINT"I AM THINKING OF A 3 DIGIT NUMBER.  YOU CAN GUESS WHAT"
  8. 100 PRINT"NUMBER I HAVE IN MIND AND I WILL TELL YOU:"
  9. 120 PRINT"PICO - ONE DIGIT IS IN THE WRONG PLACE"
  10. 130 PRINT"FERMI - ONE DIGIT IS IN THE CORRECT PLACE"
  11. 140 PRINT"BAGELS - NO DIGIT IS CORRECT"
  12. 160 RANDOMIZE
  13. 165 N(3)=INT(RND*9+1)
  14. 170 N(2)=INT(RND *10)
  15. 180 IF N(2)=N(3) THEN 170
  16. 190 N(1)=INT(RND *10)
  17. 200 IF N(1)=N(2) THEN 190
  18. 210 IF N(1)=N(3) THEN 190
  19. 220 PRINT: PRINT "OK, IHAVE A NUMBER."
  20. 240 G=0
  21. 260 PRINT:PRINT:PRINT "YOUR GUESS";
  22. 290 INPUT X
  23. 300 G=G+1
  24. 310 A(3)=INT(X/100)
  25. 320 A(2)=INT(X/10)-A(3)*10
  26. 330 A(1)=X-INT(X/10)*10
  27. 340 IF A(3)>9 THEN 410
  28. 350 IF A(3)<1 THEN 410
  29. 360 IF INT(X)<>X THEN 410
  30. 370 IF A(1)=A(2) THEN 410
  31. 380 IF A(2)=A(3) THEN 410
  32. 390 IF A(1)=A(3) THEN 410
  33. 400 GOTO 450
  34. 410 PRINT "   PICK A 3 DIGIT NUMBER FROM 102 TO 987"
  35. 420 PRINT "   HINT: IN MY NUMBER ALL THE DIGITS ARE DIFFERENT"
  36. 430 GOTO 260
  37. 450 F=0:P=0
  38. 460 FOR I=1 TO 3
  39. 470 FOR J=1 TO 3
  40. 480 IF A(I)=N(J) THEN 540
  41. 490 NEXT J
  42. 500 NEXT I
  43. 510 IF F+P<>0 THEN 590
  44. 520 PRINT"BAGELS ";
  45. 530 GOTO 260
  46. 540 IF I=J THEN 570
  47. 550 P=P+1
  48. 560 GOTO 490
  49. 570 F=F+1
  50. 580 GOTO 490
  51. 590 IF P=0 THEN 630
  52. 600 FOR K=1 TO P
  53. 610 PRINT "PICO ";
  54. 620 NEXT K
  55. 630 IF F=0 THEN 260
  56. 640 IF F=3 THEN 700
  57. 650 FOR K=1 TO F
  58. 660 PRINT "FERMI  ";
  59. 670 NEXT K
  60. 680 GOTO 260
  61. 700 PRINT "YOU GOT IT IN ";G;"GUESSES!!!"
  62. 750 PRINT:INPUT "ANOTHER GAME";A$
  63. 760 IF LEFT$(A$,1)="Y" THEN 160
  64. 770 END
  65.