QBASIC GAME : BAGELS (NUMBER GUESSING GAME)

Qbasic program to make bagel game (number guessing game)

 REM===========================================================================
 REM Subject: BAGELS (NUMBER GUESSING GAME)
 REM===========================================================================
 PRINT TAB(33); "BAGELS"
 REM * BAGELS NUMBER GUESSING GAME
 
 DIM Answer%(3), PlayerGuess%(3)
 PRINT : PRINT : PRINT
 INPUT "WOULD YOU LIKE THE RULES (YES OR NO)"; a$
 IF UCASE$(LEFT$(a$, 1)) <> "N" THEN
 PRINT
 PRINT "I AM THINKING OF A 3 DIGIT NUMBER. TRY TO GUESS"
 PRINT "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOWS:"
 PRINT "PICO - ONE DIGIT IS IN THE WRONG PLACE"
 PRINT "FERMI - ONE DIGIT IS IN THE CORRECT PLACE"
 PRINT "BAGELS - NO DIGIT IS CORRECT"
 END IF
 DO
 FOR i% = 1 TO 3
 NoDupDig: Answer%(i%) = 10 * RND(1)
 IF i > 1 THEN
 FOR J% = 1 TO i - 1
 IF Answer%(i) = Answer%(J%) THEN GOTO NoDupDig
 NEXT J%
 END IF
 NEXT i%
 PRINT
 PRINT "OK, I HAVE A NUMBER IN MIND."
 FOR i% = 1 TO 20
 BadGuess: PRINT "GUESS #"; i%,
 INPUT a$
 IF LEN(a$) <> 3 THEN
 PRINT "TRY GUESSING A THREE DIGIT NUMBER."
 GOTO BadGuess
 END IF
 FOR J% = 1 TO 3
 PlayerGuess%(J%) = ASC(MID$(a$, J%, 1)) - 48
 IF PlayerGuess%(J%) < 0 OR PlayerGuess%(J%) > 9 THEN
 PRINT "WHAT?"
 GOTO BadGuess
 END IF
 NEXT J%
 IF PlayerGuess%(1) = PlayerGuess%(2) OR PlayerGuess%(2) = PlayerGuess%(3) OR PlayerGuess%(3) = PlayerGuess%(1) THEN
 PRINT "OH, I FORGOT TO TELLL YOU THAT THE NUMBER I HAVE IN MIND"
 PRINT "HAS NO DIGITS THE SAME."
 GOTO BadGuess
 END IF
 PicoCount% = 0
 FermiCount% = 0
 FOR J% = 1 TO 2
 IF Answer%(J%) = PlayerGuess%(J% + 1) OR Answer%(J% + 1) = PlayerGuess%(J%) THEN PicoCount% = PicoCount% + 1
 NEXT J%
 IF Answer%(1) = PlayerGuess%(3) OR Answer%(3) = PlayerGuess%(1) THEN PicoCount% = PicoCount% + 1
 FOR J% = 1 TO 3
 IF Answer%(J%) = PlayerGuess%(J%) THEN FermiCount% = FermiCount% + 1
 NEXT J%
 IF FermiCount% = 3 THEN
 PRINT "YOU GOT IT!!!"
 Y = Y + 1
 GOTO Winner
 END IF
 FOR J% = 1 TO PicoCount%
 PRINT "PICO ";
 NEXT J%
 FOR J% = 1 TO FermiCount%
 PRINT "FERMI ";
 NEXT J%
 IF PicoCount% + FermiCount% = 0 THEN PRINT "BAGELS";
 PRINT
 NEXT i%
 PRINT "OH WELL"
 PRINT "THAT IS TWENTY GUESSES. MY NUMBER WAS"; 100 * Answer%(1) + 10 * Answer%(2) + Answer%(3)
 Winner: INPUT "PLAY AGAIN (YES OR NO)"; a$
 LOOP WHILE UCASE$(LEFT$(a$, 1)) = "Y"
 PRINT
 PRINT "A"; Y; " POINT BAGLES BUFF!!"
 PRINT "HOPE YOU HAD FUN. BYE."