
;******************************************************************************
;                                                                             *
;                       TRUEDOX TECHNOLOGY COMPANY                            *
;                                                                             *
;  PE2 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    "Main Menu",12,60,inverse
        option  "Help",main1
        option  "File",main2
        option  "Save File",main3
        option  "Quit",main4
        option  "Insert Line",main5
        option  "Delete Line",main6
        option  "Repeat Command",main7
        option  "Switch",main8
        option  "Quit Main Menu",mbtn
        option  "Exit to DOS",main9
        option  "Mouse Help",main10
        mend

main10: popup   8,20,inverse
        text    "7===========  Mouse Help Menu  ===========9"
        text    "|                                         |"
        text    "|  This sample is used under PEII 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 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,62
