home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / 52capi.zip / SIMPLEIO.CH < prev    next >
Text File  |  1993-02-15  |  800b  |  31 lines
  1. /***
  2. *
  3. *    Simpleio.ch
  4. *
  5. *    Definitions for performing simple I/O via standard input and output.
  6. *
  7. *  Copyright (c) 1990-1993, Computer Associates International, Inc.
  8. *  All rights reserved.
  9. *
  10. */
  11.  
  12.  
  13. #command ?  [ <xList,...> ]                                             ;
  14.       => ( OutStd(Chr(13)+Chr(10)) [, OutStd(<xList>)] )
  15.  
  16.  
  17. #command ?? [ <xList,...> ]                                             ;
  18.       => OutStd( <xList> )
  19.  
  20.  
  21. #command ACCEPT TO <idVar>                                              ;
  22.       => <idVar> := StrTran( FReadStr(0, 256), Chr(13)+Chr(10) )
  23.  
  24.  
  25. #command ACCEPT <cPrompt> TO <idVar>                                    ;
  26.       => ? <cPrompt>                                                    ;
  27.        ; ACCEPT TO <idVar>
  28.  
  29. #define _SIMPLEIO_CH
  30.  
  31.