public Module Module1

    public Sub Main()

        dim x1001 as string

        system.console.writeline("Hello")

        dim c as integer = system.console.readline()

        if c = 1 then

            system.console.writeline("Which do you wish to play?")

        end if

        dim a as integer = system.console.readline()

        if a = 1 then 

            dim b as string = ("how would you like to proceed?")

            system.console.writeline(b)

        end if  

        if a = 1 and c = 1 then

            system.console.writeline("you come upon a door that is slightly ajar")

            dim d1 as string = system.console.readline()

            if d1 = ("open door") then

                system.console.writeline("you have now opened the door, you can now enter the house.")

            else

                system.console.writeline("error")

        end if

        end if

        dim s as string = system.console.readline()

        if s = ("enter house") then

            system.console.writeline("you are now in a dimly lit house, there is a table that has an apple on it. There is a knife in the sink.")

            dim s1 as string

            s1 = system.console.readline()

            if s1 = "take apple" then

                system.console.writeline("you have taken the apple")

            end if

        end if 

End Sub

End Module