
;******************************************************************************
;                                                                             *
;                       TRUEDOX TECHNOLOGY COMPANY                            *
;                                                                             *
;  EDIT-LINE MOUSE MENU HELP SOURCE FILE, AND FUTURE ADDITION WITHOUT NOTICE. *
;                                                   Huai-Yeu Chang 1988,12,27 *
;******************************************************************************

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

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

rbtn:   menu    "      Main Menu     ",16,55,inverse
        option  " List From First Line",main1
        option  "Insert From First Line",main5
        option  "   Delete First Line",main6
        option  "   Write Current File",main7
        option  "      Exit to DOS",main2
        option  "      Mouse Help",main4
        option  "      Quit to DOS",main3
        mend

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

nul:    NOTHING
main1:  type "l",13
main2:  type "e",13
main3:  type "q",13,"y"
main5:  type "i",13
main6:  type "d",13
main7:  type "w",13
