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

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

lbtn:   TYPE    13
mbtn:   TYPE    27
lmov:   TYPE    0,75
rmov:   TYPE    0,77
umov:   TYPE    0,72
dmov:   TYPE    0,80
rbtn:   match   11,1,normal,"directory",main,sub

main:   menu    "       Main Menu       ",12,50,inverse
        option  "Open a Non-Document File",main2
        option  "  Open a Document File",main1
        option  "      Print a File",main3
        option  "      Rename a File",main4
        option  "      Copy a File",main5
        option  "      Delete a File",main6
        option  "      Run a Program",main7
        option  "      Run Mailmerge",main9
        option  "      Run Spellstar",main10
        option  "        Mouse Help",main11
        option  "       Exit to DOS",main8
        mend

sub:    menu    "       Edit Menu       ",12,50,inverse
        option  "   Quit Without Save   ",sub1
        option  "    Save And Resume    ",sub2
        option  "     Exit And Save     ",sub3
        mend

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

redirect: assign  lbtn, rbtn, mbtn, lmov, rmov, umov, dmov,40,40
direct:   assign  lbtn, rbtn, mbtn, lmov, rmov, umov, dmov
sub1:   execute qsub1,direct
sub2:   execute qsub2,direct
sub3:   execute qsub3,direct
qsub1:  type    11,"q"
qsub2:  type    11,"d"
qsub3:  type    11,"x"
nul:    NOTHING
main1:  execute redirect,dmain1
main2:  execute redirect,dmain2
dmain1: type "d"
dmain2: type "n"
main3:  type "p"
main4:  type "r"
main5:  type "c"
main6:  type "d"
main7:  type "r"
main8:  type "x"
main9:  type "m"
main10: type "s"
