        ; Mouse Menu for Texas Instruments PC Scheme
        ; ------------------------------------------
        BEGIN   LB, MB, RB, , , MovU, MovD, , 50

        ; Button Definitions
        ; ------------------
        ; Left button displays this menu
LB:     MENU    , 1, 71, 112
        OPTION  "Select", slct          ; selects from a Scheme menu
        OPTION  "Escape", escp          ; no-select exit from a Scheme menu
        OPTION  "Cancel"                ; cancels this menu
        MEND

        ; Middle button selects an item from a Scheme menu
MB:     TYPE    ENTER

        ; Right button displays this menu
RB:     MENU    , 1, 60, 112
        OPTION  "Load", load
        OPTION  "Edit", edit
        OPTION  "Compile", compl
        OPTION  "DOS", dos
        OPTION  "FreeSp", free
        OPTION  "GC", gc
        OPTION  "Clear Screen", clscr
        OPTION  "Scheme Reset", reset
        OPTION  "Debug on/off", debug
        OPTION  "Transcript on/off", scrpt
        OPTION  "Exit", exit
        OPTION  "Cancel"                ; cancels this menu
        MEND

        ; Mouse Movement Definitions
        ; --------------------------
MovU:   TYPE    0, 72 ; 0, 72 is Up Arrow Key
MovD:   TYPE    0, 80 ; 0, 80 is Down Arrow Key

        ; Menu Actions
        ; ------------
        ; RB selections
load:   TYPE    "(load-menu)", ENTER
edit:   TYPE    "(edit-menu)", ENTER
compl:  TYPE    "(compile-menu)", ENTER
dos:    TYPE    "(dos-menu)", ENTER
free:   TYPE    "(freesp)", ENTER
gc:     TYPE    "(gc #t)", ENTER
clscr:  TYPE    "(clr-console)", ENTER
reset:  TYPE    "(scheme-reset)", ENTER
debug:  TYPE    "(debug-toggle)", ENTER
scrpt:  TYPE    "(trnscrpt-toggle)", ENTER
exit:   TYPE    "(exit)", ENTER, "CLS", ENTER

        ; MB selections
slct:   TYPE    ENTER
escp:   TYPE    ESC
