
;******************************************************************************
;                                                                             *
;                                                                             *
;                                                                             *
;   XTREE MOUSE HELP MENU SOURCE FILE, FUTURE ADDITION WITHOUT ANY NOTICE.    *
;                                                   Huai-Yeu Chang 1988,12,27 *
;******************************************************************************

BEGIN   lbtn, rbtn, mbtn, lmov, rmov, umov, dmov,10,20

lbtn:   TYPE    13
mbtn:   TYPE    27
lmov:   TYPE    0,75
rmov:   TYPE    0,77
umov:   TYPE    0,72
dmov:   TYPE    0,80

rbtn:   menu    " XTREE Main Menu ",8,57,inverse
        option  "    Available",main1
        option  "     Delete",main2
        option  "     Files",main3
        option  "     Log Disk",main4
        option  "     Make Dir",main5
        option  "     Rename",main6
        option  "     Showall",main7
        option  "     Execute",main8
        option  "       Tag",main9
        option  "      UnTag",main10
        option  "      Volume",main11
        option  "      ^Tag",main12
        option  "      ^UnTag",main13
        option  "   Quit to DOS",main14
        option  "   XTREE Help",main15
        option  "   Mouse Help",main16
        mend

main16: popup   8,20,inverse
        text    "7===========  Mouse Help Menu  ===========9"
        text    "|                                         |"
        text    "| This sample is used under XTREE package,|"
        text    "|    following are the key definition:    |"
        text    "4-----------------------------------------6"
        text    "| Left Button -- ENTER key                |"
        text    "4-----------------------------------------6"
        text    "| Middle Button -- ESC key                |"
        text    "4-----------------------------------------6"
        text    "| Right Button -- Main Menu Display       |"
        text    "1=========================================3"
        select  1,15,15,nul
        pend

nul:    NOTHING
main1:  type "a"
main2:  type "d"
main3:  type "f"
main4:  type "l"
main5:  type "m"
main6:  type "r"
main7:  type "s"
main8:  type "x"
main9:  type "t"
main10: type "u"
main11: type "v"
main12: type 20,20
main13: type 21,22
main14: type 0,59
main15: type 0,60
