home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MSMOUSE2.ZIP / MENUS.ZIP / EXECUTE1.DEF < prev    next >
Encoding:
Text File  |  1989-02-10  |  1.3 KB  |  42 lines
  1. ;       SAMPLE Microsoft Mouse `EXECUTE1' 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 EXECUTE1 menu provides an example of the functional
  7. ; limitations of the Microsoft Mouse EXECUTE statement.
  8. ;
  9. ; This example calls a label from a menu (menu1), where the
  10. ; label (run:) specifies that two commands be executed (cls
  11. ; & menu2).  The label 'cls:' causes a 'cls<return>'
  12. ; sequence to be sent to the keyboard buffer, after which
  13. ; 'menu2:'is run.
  14. ;
  15. ; Running the menu appears to yield the opposite order of
  16. ; operations.  That is, the 'cls<enter>' command is executed
  17. ; AFTER 'menu2:' terminates.  The keystrokes 'cls<enter>'
  18. ; are sent to the keyboard buffer BEFORE 'menu2:' is
  19. ; executed, but since the menu has not relinquished control
  20. ; to DOS, they are not immediately acted upon.
  21. ;
  22. ; Note: See the file EXECUTE2.DEF for a related example.
  23. ;
  24. ;
  25. BEGIN lb
  26.  
  27. lb:     execute menu1
  28.  
  29. menu1: MENU   " sample 'execute' function menu (1)",1,40,NORMAL
  30.        option "  clear the screen, and run menu2  ",run
  31.        MEND
  32. ;
  33. run:   execute cls,menu2
  34. ;
  35. menu2: MENU   " sample 'execute' function menu (2)",1,40,NORMAL
  36.        option "             do nothing            ",nul
  37.        MEND
  38. ;
  39. cls:   type "cls",enter
  40. nul:   nothing
  41. ;
  42.