home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a009 / 5.ddi / INCLUDE.LIF / SIMPLEIO.CH < prev    next >
Encoding:
Text File  |  1991-04-14  |  731 b   |  24 lines
  1. /***
  2. *    Simpleio.ch
  3. *    Definitions for performing simple I/O via standard input and output.
  4. *    Copyright (c) 1990 Nantucket Corp.  All rights reserved.
  5. */
  6.  
  7.  
  8. #command ?  [ <xList,...> ]                                             ;
  9.       => ( OutStd(Chr(13)+Chr(10)) [, OutStd(<xList>)] )
  10.  
  11.  
  12. #command ?? [ <xList,...> ]                                             ;
  13.       => OutStd( <xList> )
  14.  
  15.  
  16. #command ACCEPT TO <idVar>                                              ;
  17.       => <idVar> := StrTran( FReadStr(0, 256), Chr(13)+Chr(10) )
  18.  
  19.  
  20. #command ACCEPT <cPrompt> TO <idVar>                                    ;
  21.       => ? <cPrompt>                                                    ;
  22.        ; ACCEPT TO <idVar>
  23.  
  24.