Basic Computer Games - Small Basic Edition: Bagels

In this game, the computer picks a 3 digit secret number using the digits 0 to 9 and you attempt to guess what it is. You are allowed up to twenty guesses. No digit is repeated. After each guess the computer will give you clues about your guess as follows:

PICO One digit is correct, but in the wrong place.

FERMI One digit is in the correct place.

BAGELS No digit is correct.

You will learn to draw inferences from the clues and, with practice, you’ll learn to improve your score. There are several good strategies for playing Bagels. After you have found a good strategy, see if you can improve it or try a different strategy altogether and see if it is any better. While the program allows up to twenty guesses, if you use a good strategy it should not take more than eight guesses to get any number.

The original authors of this program are D. Resek and P. Rowe of the Lawrence Hall of Science, Berkeley, California.

Code Listing (Small Basic File: bagels.sb):

TextWindow.CursorLeft = 33
TextWindow.WriteLine("BAGELS")
TextWindow.CursorLeft = 15
TextWindow.WriteLine("BIBLEBYTE BOOKS, 
MAPLE VALLEY, WASHINGTON")
TextWindow.WriteLine("")
TextWindow.WriteLine("")
'   *** BAGLES NUMBER GUESSING GAME
'   *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED 
TO BE
'   *** LAWRENCE HALL OF SCIENCE, U.C. BERKELY
Y=0
T=255
TextWindow.WriteLine("")
TextWindow.WriteLine("")
TextWindow.WriteLine("")
TextWindow.Write("WOULD YOU LIKE THE RULES 
(YES OR NO) ")
AD = TextWindow.Read()
If Text.GetSubText(AD,1,1)="N" Then 
  Goto LN150
EndIf
TextWindow.WriteLine("")
TextWindow.WriteLine("I AM THINKING OF A 
THREE-DIGIT NUMBER.  
TRY TO GUESS")
TextWindow.WriteLine("MY NUMBER AND I WILL 
GIVE YOU CLUES AS FOLLOWS:")
TextWindow.WriteLine("   PICO   - 
ONE DIGIT CORRECT 
BUT IN THE WRONG POSITION")
TextWindow.WriteLine("   FERMI  - 
ONE DIGIT CORRECT 
AND IN THE RIGHT POSITION")
TextWindow.WriteLine("   BAGELS - 
NO DIGITS CORRECT")
LN150:
For I=1 To 3
LN160:
A[I]=Math.GetRandomNumber(10) - 1
If I-1=0 Then 
  Goto LN200
EndIf
For J=1 To I-1
If A[I]=A[J] Then 
  Goto LN160
EndIf
EndFor
LN200:
EndFor
TextWindow.WriteLine("")
TextWindow.WriteLine("O.K.  I HAVE A NUMBER 
IN MIND.")
For I=1 To 20
LN230:
TextWindow.WriteLine("GUESS #"+I)
Ad = TextWindow.Read()
If Text.GetLength(AD)<>3 Then 
  Goto LN630
EndIf
For Z=1 To 3
A1[z]=Text.GetCharacterCode
(Text.GetSubText(AD,Z,1))
EndFor
For J=1 To 3
If A1[J]<48 Then 
  Goto LN300
EndIf
If A1[J]>57 Then 
  Goto LN300
EndIf
B[J]=A1[J]-48
EndFor
Goto LN320
LN300:
TextWindow.WriteLine("WHAT?")
Goto LN230
LN320:
If B[1]=B[2] Then 
  Goto LN650
EndIf
If B[2]=B[3] Then 
  Goto LN650
EndIf
If B[3]=B[1] Then 
  Goto LN650
EndIf
C=0
D=0
For J=1 To 2
If A[J]<>B[J+1] Then 
  Goto LN390
EndIf
C=C+1
LN390:
If A[J+1]<>B[J] Then 
  Goto LN410
EndIf
C=C+1
LN410:
EndFor
If A[1]<>B[3] Then 
  Goto LN440
EndIf
C=C+1
LN440:
If A[3]<>B[1] Then 
  Goto LN460
EndIf
C=C+1
LN460:
For J=1 To 3
If A[J]<>B[J] Then 
  Goto LN490
EndIf
D=D+1
LN490:
EndFor
If D=3 Then 
  Goto LN680
EndIf
If C=0 Then 
  Goto LN545
EndIf
For J=1 To C
TextWindow.Write("PICO ")
EndFor
LN545:
If D=0 Then 
  Goto LN580
EndIf
For J=1 To D
TextWindow.Write("FERMI ")
EndFor
LN580:
If C+D<>0 Then 
  Goto LN600
EndIf
TextWindow.Write("BAGELS")
LN600:
TextWindow.WriteLine("")
EndFor
TextWindow.WriteLine("OH WELL.")
TextWindow.WriteLine("THAT'S TWENTY GUESSES.  
MY NUMBER WAS "+100*A[1]+10*A[2]+A[3])
Goto LN700
LN630:
TextWindow.WriteLine("TRY GUESSING A 
THREE-DIGIT NUMBER.")
Goto LN230
LN650:
TextWindow.WriteLine("OH, I FORGOT TO TELL YOU 
THAT THE NUMBER I HAVE IN MIND")
TextWindow.WriteLine("HAS NO TWO DIGITS 
THE SAME.")
Goto LN230
LN680:
TextWindow.WriteLine("YOU GOT IT!!!")
TextWindow.WriteLine("")
Y=Y+1
LN700:
TextWindow.Write("PLAY AGAIN (YES OR NO) ")
AD = TextWindow.Read()
If Text.GetSubText(AD,1,1)="Y" Then 
  Goto LN150
EndIf
If Y=0 Then 
  Goto LN750
EndIf
TextWindow.WriteLine("")
TextWindow.WriteLine("A "+Y+" POINT BAGELS 
BUFF!!")
LN750:
TextWindow.WriteLine("HOPE YOU HAD FUN.  
BYE.")