'===========================================================================
' Subject: BAGELS GUESSING GAME FOR BASEC    Date: 12-23-98 (18:30)       
' Author:  The ABC Programmer                Code: BEC                    
' Origin:  voxel@edmc.net                  Packet: BASEC.ABC
'===========================================================================
' Modified for use with BASEC [DOS/UNIX] by William Yu

    PRINT TAB(33); "BAGELS"
    PRINT TAB(15); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
    PRINT "Modified for execution in QBASIC by James Hooker,  1996"
    REM *** BAGELS NUMBER GUESSING GAME
    REM *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TO BE
    REM *** LAWRENCE HALL OF SCIENCE, U.C. BERKLEY
    DIM Answer%(13) AS INTEGER
    DIM PlayerGuess%(13) AS INTEGER
    DIM i% as integer,j% as integer,picocount% as integer, fermicount% as integer
    dim a$ as string
    dim y as integer
    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
    RANDOMIZE
    DO
        FOR i% = 1 TO 3
NoDupDig:
            Answer%(i%) = RND(10)
            IF i% > 1 THEN
                FOR J% = 1 TO i% - 1
                    IF Answer%(i%) = Answer%(J%) THEN GOTO NoDupDig
                NEXT
            END IF
        NEXT
        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 "THATS'S TWENTY GUESSES. MY NUMBER WAS"; 100 * Answer%(1) + 10 * Answer%(2) + Answer%(3)
Winner: INPUT "PLAY AGAIN (YES OR NO)"; a$
    LOOP UNTIL UCASE$(LEFT$(a$, 1)) <> "Y"
    PRINT
    PRINT "A "; Y; " POINT BAGLES BUFF!!"
    PRINT "HOPE YOU HAD FUN. BYE."