(69 . 7)(69 . 18)
814 To_Stderr(Character'Val(16#A#));
815
816 -- Exit
817 Quit(Sadness_Code);
818 end;
819 Quit(Sad_Code);
820 end Eggog;
821
822 -- Warn operator re: potentially-dangerous condition.
823 procedure Achtung(M : String) is
824 begin
825 for i in 1 .. M'Length loop
826 To_Stderr(M(I));
827 end loop;
828
829 -- Emit LF
830 To_Stderr(Character'Val(16#A#));
831 end Achtung;
832
833 end OS;