home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / DBMS9101.ZIP / DESQ_B.JAN < prev    next >
Encoding:
Text File  |  1990-11-21  |  360 b   |  14 lines
  1. LISTING B:
  2.  
  3. * Set up array for use in ACHOICE() emulation:
  4. private ar[adir ("*.prg")]
  5. lng = adir ("*.prg",ar)
  6.  
  7. * Create and open the window and keyboard for menu
  8. win = win_new ("Pop-Up Menu",14,12)    && Window
  9. kbd = key_new()                && Keyboard
  10. key_open (kbd,win)
  11.  
  12. * Choose and display a menu item
  13. choice = win_achoice (win,kbd,win_me(),4,30,15,43,ar)
  14.