home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a012 / 1.ddi / CHAP14.EXE / MYMENU.CH < prev   
Encoding:
Text File  |  1991-06-12  |  899 b   |  23 lines
  1. /*
  2.    Listing 14.13 - contains modified @..PROMPT and MENU TO Commands
  3.    Author: Greg Lief
  4.    Excerpted from Grumpfish Library
  5.    Copyright (c) 1988-91 Greg Lief
  6.    Distributed by Grumpfish Inc., Box 17761, Salem, OR 97305 USA
  7.    *
  8.    Grumpfish Library versions of these commands feature other options,
  9.    including WHEN (security levels) clauses for each menu option, and
  10.    CLOCK, EVENT, and TIMEOUT options for the MENU TO command.  Call
  11.    (503) 588-1815 for a free demo disk.
  12. */
  13.  
  14. #command  @ <row>, <col> PROMPT <prompt> [MESSAGE <msg>]         ;
  15.           [ACTION <action>]                                   => ;
  16.           if(menulist == NIL, menulist := {}, NIL);              ; 
  17.           aadd(menulist,{ <row>, <col>, <prompt>, <msg>, <{action}> })
  18.  
  19. #command  MENU TO <v> => ;
  20.           lite_menu(menulist, @<v>, #<v>) ; menulist := {}
  21.  
  22. //───── end of file MYMENU.CH
  23.