1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | with Ada.Text_IO, Ada.Characters.Latin_1; package body Shell.Testing is procedure Pause_Til_Tester_Is_Ready is use Ada.Text_IO; begin New_Line; Put_Line ("Press <Enter> to run the next test."); declare Unused : String := Get_Line; begin Clear_Screen; end; end Pause_Til_Tester_Is_Ready; procedure Clear_Screen is use Ada.Text_IO; begin Put (Ada.Characters.Latin_1.ESC & "[2J"); -- Clear the screen. end Clear_Screen; end Shell.Testing; |