home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / sigmv062.ark / STDIO.PRM < prev    next >
Text File  |  1984-04-29  |  719b  |  34 lines
  1. {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  2.      DECLARE THE FOLLOWING IN YOUR MAIN PROGRAM.
  3. CONST
  4.   DEFAULT    = 80;
  5.   SMAX        = 255;
  6.   space     = ' ';
  7.   maxargc    = 5;    < maximum # of words you expect to parse >
  8.             < out of the Command line.         >
  9.  
  10. TYPE
  11.   byte        = 0..255;
  12.   int        = INTEGER;
  13.   DSTRING    = string default;
  14.   MSTRING    = STRING SMAX;
  15.   S$0        = string 0;
  16.   S$255     = string 255;
  17.  
  18. VAR
  19.   argc : byte;
  20.   argv : ARRAY [1..maxargc] OF DSTRING;
  21.   infile,
  22.   outfile,
  23.   params : byte;
  24.   inbuf : MSTRING;
  25.   ioresult,
  26.   con_wanted,
  27.   printer_wanted : boolean;
  28.   stdin,
  29.   stdout    : TEXT;
  30.  
  31. PROCEDURE HALT(message:MSTRING);EXTERNAL;
  32.  
  33. ++++++++++++++++++++++++++++++++++++++++++++++++++++}
  34.