home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / CLIPPER / PDHM / HM_DEMO1.PRG < prev    next >
Text File  |  1993-01-14  |  256b  |  12 lines
  1. /*
  2.     HM_DEMO1.PRG
  3.     Demo of the most basic implementation of ADhormenu().
  4. */
  5.  
  6. //---------
  7. func main()
  8. local aMenu := { "Databases", "Utilities", "Quit" }
  9. local nSel := ADhormenu( aMenu )
  10. ADmessage( { "Selected" + str(nSel, 2) } )
  11. return nil
  12.