DECLARE SUB mnuMain.Load ()
DECLARE SUB mnuMain.Show ()

'$INCLUDE: 'dialog.bi'
'$DYNAMIC

'   create objects
DIM mnuMainDataIndex(0) AS MenuIdxType
DIM mnuMainDataItem(0) AS MenuItemType
DIM mnuMainGroup AS MenuGroupType

'   load menu
mnuMain.Load

'   print initial screen
scrCurtain

mnuMain.Show

DIM KeyHit AS STRING
DIM Choice AS INTEGER
LOCATE , , 0

DO
    KeyHit$ = INKEY$

    IF kbALT THEN Choice = Main.Menu(mnuMainGroup, mnuMainDataIndex(), mnuMainDataItem())
  
LOOP UNTIL (Choice AND 255) = 7 OR KeyHit$ = CHR$(cstESC)
END

REM $STATIC
SUB mnuMain.Load

SHARED mnuMainDataIndex() AS MenuIdxType
SHARED mnuMainDataItem() AS MenuItemType
SHARED mnuMainGroup AS MenuGroupType
mnuMainGroup.FileName = "menubar.txt"

CALL mnuMaxData(mnuMainGroup)

CALL mnuLoad(mnuMainGroup, mnuMainDataIndex(), mnuMainDataItem())

END SUB

SUB mnuMain.Show

SHARED mnuMainDataIndex() AS MenuIdxType
SHARED mnuMainDataItem() AS MenuItemType
SHARED mnuMainGroup AS MenuGroupType

CALL mnuShow(mnuMainGroup, mnuMainDataIndex(), mnuMainDataItem())

END SUB