
IntroScreen

Choice = 1
DO
    Menu$(0) = "Main Menu Title"   ' Main menu title
    Menu$(1) = "First Choice"
    Menu$(2) = "Second Choice"
    Menu$(3) = "Third Choice"
    Menu$(4) = "Quit Program"
    Menu$(5) = "" ' Null indicates end of menu items

    HelpIndex = 0

    PrintMenu Choice, HelpIndex


    SELECT CASE Choice

        :
        :
        :

    END SELECT


LOOP UNTIL Choice = 4

CLS

END

