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