(49 . 6)(49 . 15)
646 end Write_Newline;
647
648
649 -- Send a String to the TTY.
650 procedure Write_String(S : in String) is
651 begin
652 for i in S'Range loop
653 Write_Char(S(i));
654 end loop;
655 end Write_String;
656
657
658 -- Exit with an error condition report.
659 procedure Eggog(M : String) is
660 begin