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

BEGIN   lbtn, rbtn, mbtn, lmov, rmov, umov, dmov,30,30

lbtn:   match   1,76,inverse,"READY",slash,lbtn1
lbtn1:  match   1,76,48,"READY",slash,enter
mbtn:   TYPE    27
rbtn:   match   1,76,inverse,"HELP",enter,rbtn1
rbtn1:  match   1,76,48,"HELP",enter,main
lmov:   TYPE    0,75
rmov:   TYPE    0,77
umov:   TYPE    0,72
dmov:   TYPE    0,80

main:   menu    "  Main Menu  ",12,60,inverse
        option  "   Lotus Help",main1
        option  "      Edit",main2
        option  "      Name",main3
        option  "      Abs",main4
        option  "      GoTo",main5
        option  "     Window",main6
        option  "      Query",main7
        option  "      Table",main8
        option  "      Calc",main9
        option  "      Graph",main10
        option  "   Mouse Help",main11
        mend

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

enter:  type    13
slash:  type    "/"
nul:    NOTHING
main1:  type    0,59
main2:  type    0,60
main3:  type    0,61
main4:  type    0,62
main5:  type    0,63
main6:  type    0,64
main7:  type    0,65
main8:  type    0,66
main9:  type    0,67
main10: type    0,68
