home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / MSMOUSE2.ZIP / MENUS.ZIP / DROP.DEF < prev    next >
Encoding:
Text File  |  1989-02-10  |  3.0 KB  |  96 lines
  1. ;       SAMPLE Microsoft Mouse 'DROP' MENU
  2. ;
  3. ; Note: Please review the comments below before you compile
  4. ;       and use this source file as a mouse menu.
  5.  
  6. ; The DROP mouse menu demonstrates how to create 'drop-
  7. ; down' menus.
  8. ;
  9. ; Clicking a mouse button when the cursor is on the main
  10. ; menu (drop1) will display a drop-down menu (except in the
  11. ; case of the 'CLR SCRN' field, which will cause a screen-
  12. ; clear command to be executed).
  13. ;
  14. ; Clicking a mouse button when the cursor is on the top
  15. ; entry of a drop-down menu will redisplay the main menu. 
  16. ;
  17. ; Since the entire area underneath the main menu will be
  18. ; written over by each drop-down menu, you should use a
  19. ; BLACK background for this type of mouse menu.
  20. ;
  21. ; When you choose a drop-down menu, the initial position of
  22. ; the cursor is always the upper-left corner of the area
  23. ; defined by the set of SELECT statements associated with
  24. ; the menu.
  25. ;
  26. ;
  27. BEGIN lb
  28. ;
  29. lb:     execute drop1
  30. rb:     execute drop2
  31. bb:     execute drop3
  32. nul:    nothing
  33. ;
  34. drop1:  POPUP 1,40,NORMAL
  35.         text "╔══════════╤══════════╤══════════╗"
  36.         text "║ CLR SCRN │ LIST DIR │ CH DRIVE ║"
  37.         text "╚══════════╧══════════╧══════════╝"
  38.         select 2,2,10,cls
  39.         select 2,13,10,rb
  40.         select 2,24,10,bb
  41.         PEND
  42. ;
  43. cls:    type "cls",enter
  44. ;
  45. drop2:  POPUP 1,40,NORMAL
  46.         text "╔══════════╦══════════╦══════════╗"
  47.         text "║ CLR SCRN ║ LIST DIR ║ CH DRIVE ║"
  48.         text "╚══════════╬══════════╬══════════╝"
  49.         text "           ║   dir    ║"
  50.         text "           ║  *.bat   ║"
  51.         text "           ║  *.com   ║"
  52.         text "           ║  *.doc   ║"
  53.         text "           ║  *.exe   ║"
  54.         text "           ║  *.sys   ║"
  55.         text "           ║  CANCEL  ║"
  56.         text "           ╚══════════╝"
  57.       select 2,13,10,lb
  58.       select 3,13,10,rb
  59.       select 4,13,10,dir
  60.       select 5,13,10,dirb
  61.       select 6,13,10,dirc
  62.       select 7,13,10,dird
  63.       select 8,13,10,dire
  64.       select 9,13,10,dirs
  65.       select 10,13,10,nul
  66.       PEND
  67. ;
  68. dir:        type "dir",enter
  69. dirb:       type "dir *.bat",enter
  70. dirc:       type "dir *.com",enter
  71. dird:       type "dir *.doc",enter
  72. dire:       type "dir *.exe",enter
  73. dirs:       type "dir *.sys",enter
  74. ;
  75. drop3:  POPUP 1,40,NORMAL
  76.         text "╔══════════╤══════════╦══════════╗"
  77.         text "║ CLR SCRN │ LIST DIR ║ CH DRIVE ║"
  78.         text "╚══════════╧══════════╬══════════╣"
  79.         text "                      ║    A:    ║"
  80.         text "                      ║    B:    ║"
  81.         text "                      ║    C:    ║"
  82.         text "                      ║  CANCEL  ║"
  83.         text "                      ╚══════════╝"
  84.         select 2,24,10,lb
  85.         select 3,24,10,bb
  86.         select 4,24,10,a
  87.         select 5,24,10,b
  88.         select 6,24,10,c
  89.         select 7,24,10,nul
  90.         PEND
  91. ;
  92. a:      type "A:",enter,"cls",enter,enter
  93. b:      type "B:",enter,"cls",enter,enter
  94. c:      type "C:",enter,"cls",enter,enter
  95. ;
  96.