
;******************************************************************************
;                                                                             *
;                       TRUEDOX TECHNOLOGY COMPANY                            *
;                                                                             *
;  SYMPHONY 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,30

lbtn:   TYPE    13
mbtn:   TYPE    27
lmov:   TYPE    0,75
rmov:   TYPE    0,77
umov:   match   1,77,normal,"MENU",nul,umov1
umov1:  TYPE    0,72
dmov:   match   1,77,normal,"MENU",nul,dmov1
dmov1:  TYPE    0,80
rbtn:   match   1,76,normal,"SHEET",main,rbtn1
rbtn1:  match   1,76,normal,"POINT",dot,main1

main:   menu    " SYMPHONY Main Menu",5,30,inverse
        option  "     Mouse Help",main1
        option  "    Symphony Help",f1
        option  "    Insert Rows",insr
        option  "    Insert Global",insg
        option  "    Insert Columns",insc
        option  "    Delete Rows",delr
        option  "    Delete Global",delg
        option  "    Delete Columns",delc
        option  "         Copy",copy
        option  "         Move",move
        option  "        Erase",erase
        option  "         Menu",f10
        option  "       Services",f9
        mend

main1:  popup   8,20,inverse
        text    "7===========  Mouse Help Menu  ===========9"
        text    "|                                         |"
        text    "|   This sample is used under SYMPHONY,   |"
        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
dot:    type "."
copy:   TYPE "/c"
move:   TYPE "/m"
erase:  TYPE "/e"
insc:   TYPE "/ic"
insr:   TYPE "/ir"
insg:   TYPE "/ig"
delc:   TYPE "/dc"
delr:   TYPE "/dr"
delg:   TYPE "/dg"
f1:     TYPE 0,59
f9:     TYPE 0,67
f10:    TYPE 0,68
