' $INCLUDE: 'DOORSORC.INT'
PROGNAME$ = "Menu Demo"   'Set up Door Source status line variables
RELEASE$ = "1.0"
CALL ClrScrn              'Clear the screen and close the config file
CLOSE #1

DIM Menu.Selections$(3)
    Menu.Selections$(1) = "1) Play Music and Quit"
    Menu.Selections$(2) = "2) Print your name and Quit"
    Menu.Selections$(3) = "3) Just Quit!"

CALL NL(2)
Line.Of.Text$ = "Menu Manager Demo Menu"  ' Center this text and send it
CALL Center(Line.Of.Text$)
CALL Send(Line.Of.Text$, No, Yes, 14)
CALL NL(1)

'                      1              2    3  4               4                              5    6
CALL MenuManager(Menu.Selections$(), Yes, 10, 3, "Use + and - to move and Enter to select or type the number", 15, BAR)
' 1 -=> Menu Selections stored in an array
' 2 -=> Center everything printed in menu
' 3 -=> Color of menu selections
' 4 -=> Tells user how to select an item
' 5 -=> Color of how to select an item
' 6 -=> What selection they selected (Returned to you, not sent to it)

CALL NL(3) ' Make sure you won't print on top of menu

IF BAR = 1 THEN GOTO PlayMusic:
IF BAR = 2 THEN GOTO PrintName:
IF BAR = 3 THEN END
CALL ExitDoor

PlayMusic:
 CALL ANSIMusic("ABCDEFG", Yes)
 CALL ExitDoor

PrintName:
 CALL Send("Hello " + CallName$, No, Yes, 13)
 CALL ExitDoor