With Longops;
Package Longio Is

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

    -- Long Integer I/O
    -- Do not USE (use clause) this package until the built-in procedure
    -- bug is fixed.
    -- Last Modified 3/27/83

    Use Longops;

    Procedure Get(Item : Out Long_Integer);
    Procedure Get(Fyle : In File; Item : Out Long_Integer);

    Procedure Put(Item : In Long_Integer);
    Procedure Put(Fyle : In File; Item : In Long_Integer);
    Procedure Put(Item : In Long_Integer; Width : In Integer);
    Procedure Put(Fyle : In File; Item : In Long_Integer; Width :
	In Integer);

End Longio;
27/83

    Use Longops;

    Procedure Get(Item : Out Long_Integer);
    Procedure Get(Fyle : In File; Item : Out Long_Integer);

    Procedure Put(Item : In Long_Integer);
    Procedure Put(Fyle : In File; Item : In Long_Integer);
    Procedure