' SELECT-1.BAS
' This program asks the user for his or her name, prints a menu,
'   and asks the user to choose a menu item.  The program then
'   displays a message based on which menu item the user chose.

CLS

INPUT "Please enter your name:  ", userName$
PRINT
PRINT "Congratulations, "; userName$; "!  You've won the final"
PRINT "round of Go Ahead--Make My Deal!!  Please choose"
PRINT "which prize you want:"
PRINT
PRINT , "1.  Door #1"
PRINT , "2.  What's behind the curtain"
PRINT , "3.  The Big Pink Box"
PRINT
INPUT "Please enter 1, 2, or 3:  ", menuNum%
PRINT

SELECT CASE menuNum%
    CASE 1
        PRINT "** It's a new car!!! **"
        PRINT "Yes, it's the new Land Yacht 2000,"
        PRINT "complete with Guzzle-O-Matic!"
    CASE 2
        PRINT "** 500 pogo sticks!!! **"
        PRINT "Yes, you and your entire family can hop till you"
        PRINT "drop with the latest in pogoing fun!"
    CASE 3
        PRINT "** A lifetime supply of pickled herring!!! **"
        PRINT "Yes, twelve thousand jars of Smelz-Good"
        PRINT "pickled herring delivered to your front door!"
END SELECT

PRINT
PRINT "Thanks for playing!"


