home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c221 / 5.ddi / MWHC.005 / V2 < prev    next >
Encoding:
Text File  |  1992-12-09  |  742 b   |  19 lines
  1. { (C) Copyright  1986-1992 MetaWare Incorporated;  Santa Cruz, CA 95060. }
  2.  
  3. pragma c_include('implement.pf');
  4. package Console;
  5.    pragma routine_aliasing_convention(Implement.RTE || 'kb%p');
  6.    {
  7.      Read/write a string from the console; emit newline.
  8.    }
  9.    procedure Gets(var S: String);                  External;
  10.    procedure Puts(const S: String);                  External;
  11.    procedure Newline();                          External;
  12.    -- What is the name of the console device?
  13.    -- If you open In_name, you should be able to read from the console.
  14.    -- If you open Out_name, you should be able to write to the screen.
  15.    -- This is supported only if the OS supports it.
  16.    procedure Console_names(var In_name,Out_name:String);        External;
  17.    end; 
  18.  
  19.