Package IO Is

-- The I/O package for JANUS V. 1.4.6
-- Last Modified   5/ 5/83
-- Keypress & Purge added 2/13/83, with Get_Line bug correction
-- Mode, Putw, and Second Get_Line added 3/27/83
-- Put_Line(s) added 5/ 5/83

    -- Copyright 1982,1983  RR Software, P.O. Box 1512, Madison WI 53701
    -- Permission is hereby given to distribute Object Code produced from
    -- these libraries.


Type File_Mode Is (No_Access,Read_Only,Write_Only,Read_Write);

IOresult : Integer; -- The result of the IO operation
Subtype LString Is String(255);

Procedure Open(Fyle : In Out File; Name : In String; Mode : In File_Mode);
    -- Open the file name and give it the mode mode
Procedure Create(Fyle : In Out File; Name : In String; Mode : In File_Mode);
    -- Create the file name and give it the mode mode
Procedure Delete(Name : In String);
    -- Delete the file name
Procedure Close(Fyle : In Out File);
    -- Close the file fyle
Function Name(Fyle : In File) Return String;
    -- Return the name of the Open file
Function Mode(Fyle : In File) Return File_Mode;
    -- Return the file mode of the Open file
Function Is_open(Fyle : In File) Return Boolean;
    -- Is the file fyle open?
Function Get_Line Return LString;
    -- Get a line from Current_Input
Function Get_Line(Fyle : In File) Return LString;
    -- Get a line from the file fyle
Procedure Put_Line(Fyle : In File; Str : In Lstring);
    -- Put a line to the file, with a New_line
Procedure Put_Line(Str : In Lstring);
    -- Put a line to Current_Output, with a new_line
Procedure Put_Hex(Fyle : In File; val : In Integer);
    -- Write the integer in hexidecimal (no special format)
Procedure Putw(str : In LString; width : In Integer);
    -- Write the string to the default file, with blank padding to fill width
Procedure Putw(Fyle : In File; Str : In LString; width : In Integer);
    -- Write the string to fyle, with blank padding to fill width.
Function End_of_file(fyle : In File) Return Boolean;
    -- End of File Reached (in a text file)?
Function EOF(fyle : In File) Return Boolean;
    -- End of File Reached (in a binary file)?
Function Disk_full(fyle : In File) Return Boolean;
    -- Is the Disk full ?
Function End_of_Line(fyle : In File) Return Boolean;
    -- End of Line Reached?
Function Keypress Return Boolean;
    -- Returns True if a character is ready (a key has been pressed)
Procedure Purge (str : In String);
    -- Delete the file named str, without an error if str exists

End IO;
 a line to Current_Output, with a new_line
Procedure Put_Hex(Fyle : In File; val : In Integer);
    -- Write the integer in he