home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / OBJ20D.ZIP / TESTMENU.PRG < prev    next >
Text File  |  1993-08-13  |  508b  |  22 lines
  1. #include "Menus.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local mnu
  8.  
  9.    CLS
  10.  
  11.    DEFINE MENU mnu
  12.  
  13.    DEFINE PAD OF mnu AT 2, 2 PROMPT " &Uno  " MESSAGE "Primera opción"
  14.    DEFINE PAD OF mnu AT 4, 2 PROMPT " &Dos  " MESSAGE "Segunda opción"
  15.    DEFINE PAD OF mnu AT 6, 2 PROMPT " &Tres " MESSAGE "Tercera opción"
  16.  
  17.    ACTIVATE MENU mnu
  18.  
  19. return
  20.  
  21. //----------------------------------------------------------------------------//
  22.