Groups | Search | Server Info | Login | Register

Groups > alt.lang.basic > #849

Re: Computer guesses your number

Show all headers | View raw

On 12/27/2023 5:17 PM, Auric__ wrote:
> Physfitfreak wrote:
> 
>> On 3/29/2023 8:27 AM, F. W. wrote:
>>> 10 Rem       *** Computer guesses your number ***
>>> 20 Print "Welcome to the guessing game!"
>>> 25 untergrenze = 1 : obergrenze = 0 : versuch = 0 : anzahl = 0
>>> 30 Input "To what maximal number will you guess";obergrenze
>>> 40 Do
>>> 42  versuch = untergrenze + Int((obergrenze - untergrenze) / 2)
>>> 43  anzahl = anzahl + 1
>>> 46  Print "Zwischen ";untergrenze;" und ";obergrenze
>>> 50  Print "I guess ";versuch
>>> 60  Input "g(reater, s(maller, i(t is it!";antwort$
>>> 63  Select Case antwort$
>>> 64    Case "g": untergrenze = versuch : Print "Okay, greater..."
>>> 65    Case "s": obergrenze = versuch : Print "Okay, smaller..."
>>> 66  End Select
>>> 70  If antwort$ = "i" Then 90
>>> 80 Loop Until antwort$ = "i"
>>> 90 Print "I needed ";anzahl;" tries. I remain a math-champion!"
>>>
>>> FW
>>
>> What language is this program in?
> 
> It looks like a mashup of GWBASIC and QBasic. Some form of Microsoft BASIC
> anyway.
> - GWBASIC: No "DO" or "SELECT CASE". Change the DO-LOOP to WHILE-WEND, and
>    SELECT CASE to IF-ELSE, and it should work, but I'm not going to bother.
> - QBasic: No line numbers inside SELECT CASE, but if you run it through
>    REMLINE.BAS it works. (Also in FreeBASIC.)
> 
> It works in QB64 and Bywater BASIC if you use capital letters in the inputs.
> (Why capitals, I don't know.)
> 
> If you delete line 10 it works in Chipmunk Basic.
> 
> It *doesn't* work in BBS BASIC, PowerBASIC, PureBasic, or True Basic.
> 
> Also, line 70 is probably unnecessary. Just sayin'.
> 


It doesn't compile in latest version of FreeBASIC; it would need 
declaration of the variables, to begin with.

Who would just post a BASIC program presumably for others to try, 
without specifying what flavor of BASIC it got compiled on? I think the 
poster wasn't serious about what he wanted to do.

Back to alt.lang.basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Computer guesses your number "F. W." <me@home.com> - 2023-03-29 15:27 +0200
  Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2023-12-26 19:28 -0600
    Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2023-12-27 23:17 +0000
      Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2023-12-27 18:37 -0600
        Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2023-12-29 06:21 +0000
          Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2023-12-29 18:26 -0600
            Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2023-12-31 19:18 +0000
              Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-02 20:47 -0600
                Re: Computer guesses your number Gordon Henderson <gordon+usenet@drogon.net> - 2024-01-03 15:17 +0000
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-03 21:16 +0000
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-03 23:20 -0600
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-04 22:09 +0000
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-05 20:41 -0600
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-06 19:30 +0000
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-07 16:41 -0600
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-08 03:21 +0000
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-26 19:03 -0600
                Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-26 23:16 -0600
                Re: Computer guesses your number "Auric__" <not.my.real@email.address> - 2024-01-27 05:41 +0000
  Re: Computer guesses your number Gordon Henderson <gordon+usenet@drogon.net> - 2023-12-30 21:32 +0000
    Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2023-12-30 20:20 -0600
      Re: Computer guesses your number Gordon Henderson <gordon+usenet@drogon.net> - 2023-12-31 08:02 +0000
        Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-02 20:07 -0600
          Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-02 20:35 -0600
            Re: Computer guesses your number Gordon Henderson <gordon+usenet@drogon.net> - 2024-01-03 15:10 +0000
              Re: Computer guesses your number Physfitfreak <Physfitfreak@gmail.com> - 2024-01-03 23:22 -0600

csiph-web