home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / prgmming / clipper / readers.ch < prev    next >
Text File  |  1993-06-11  |  1KB  |  39 lines
  1. /*
  2.  * File......: readers.ch  
  3.  * Author....: Andy M Leighton
  4.  * BBS.......: The Dark Knight Returns
  5.  * Net/Node..: 050/069
  6.  * User Name.: Andy Leighton
  7.  * Date......: 08/06/93
  8.  * Revision..: 1.0
  9.  * Log file..: $Logfile$
  10.  *
  11.  * This is an original work by Andy M Leighton and is placed in the
  12.  * public domain.
  13.  *
  14.  * Modification history:
  15.  * ---------------------
  16.  *
  17.  * Rev 1.0  8/6/93
  18.  * Initial Revision
  19.  */
  20.  
  21.  
  22. #ifndef __READERS_CH   // Don't include it more than once
  23.  
  24. #define __READERS_CH
  25.  
  26. #command @ <row>, <col> GET <var>                                        ;
  27.                   [<clauses,...>]                              ;
  28.                   FROM <aChoices>                              ;
  29.                   [<moreClauses,...>]                          ;
  30.                                                                ;
  31.      => @ <row>, <col> GET <var>                               ;
  32.                   [<clauses>]                                  ;
  33.                   SEND reader := {|g| GT_ChoiceReader(g)}      ;
  34.                   [<moreClauses>]; Atail(getlist):cargo :=     ;
  35.                              {<aChoices>, 0, {,,}}
  36.  
  37. #endif
  38.  
  39.