(32 . 6)(32 . 9)
665 -- Send a Newline to the TTY.
666 procedure Write_Newline;
667
668 -- Send a String to the TTY.
669 procedure Write_String(S : in String);
670
671 -- Exit with an error condition report.
672 procedure Eggog(M : String);
673