Imports System

​

Public Module Module1

​

    Sub Main() 

        Art 

        dim answer as String

        Console.WriteLine("Do you want to drive a ford pinto or a ferrari?")

        answer = Console.ReadLine()

        if answer = "ford pinto" then

            Console.WriteLine("Do you want to get gas? yes or no")

            answer = Console.ReadLine()

            if answer = "yes" then Console.WriteLine("Car explodes")

            If answer = "no" then Console.WriteLine("Go to tacobell or mc donalds")

            answer = Console.ReadLine()

            if answer = "tacobell" then

                console.WriteLine("You Win")

            else

                console.WriteLine("You Lose")

            end if

        end if

​

        If answer = "ferrari" then console.WriteLine(" Go fast or slow")

        answer = Console.ReadLine()

        if answer = "slow" then console.WriteLine("car explodes")

        if answer = "fast" then console.WriteLine(" right or left")

        answer = Console.ReadLine()

        if answer = "right" then console.WriteLine("You Win")

        if answer = "left" then console.WriteLine("You Lose")

    End Sub

​

    Sub Art()

    Console.WriteLine("                 _________      ")                       

    Console.WriteLine("                |          \")   

    Console.WriteLine("                |             \")    

    Console.WriteLine("                |               \")  

    Console.WriteLine("    ______________________________________                           ")  

    Console.WriteLine("    |                 ___0          ()_() |    ")    

    Console.WriteLine("    |_____________________________________|                               ") 

    Console.WriteLine("    0     0                      0     0")   

    end sub

End Module

​

​

​