home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
dbms_mag
/
9101
/
desq_b.jan
< prev
next >
Wrap
Text File
|
1990-11-21
|
360b
|
14 lines
LISTING B:
* Set up array for use in ACHOICE() emulation:
private ar[adir ("*.prg")]
lng = adir ("*.prg",ar)
* Create and open the window and keyboard for menu
win = win_new ("Pop-Up Menu",14,12) && Window
kbd = key_new() && Keyboard
key_open (kbd,win)
* Choose and display a menu item
choice = win_achoice (win,kbd,win_me(),4,30,15,43,ar)