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 >
Wrap
Text File
|
1993-01-14
|
256b
|
12 lines
/*
HM_DEMO1.PRG
Demo of the most basic implementation of ADhormenu().
*/
//---------
func main()
local aMenu := { "Databases", "Utilities", "Quit" }
local nSel := ADhormenu( aMenu )
ADmessage( { "Selected" + str(nSel, 2) } )
return nil