-- screentest.ada
-- Debora Weber-Wulff, 29.10.97

-- Let's give that screen package a test!
                                       
WITH Ada.Text_IO; USE Ada.Text_IO;
WITH Screen; USE Screen;

PROCEDURE screentest IS
    
    ch : character;
    
BEGIN             

    put_line ("First we write some stuff on the screen.");
    put_line ("Please enter a character and hit return.");
    get (ch);    
    
    ClearScreen;
    
    Put_line ("Nice to have a clean screen!");
    Beep;
    
    MoveCursor (Row => 10, Column => 10);
    Put ("Too slow......");
    
    MoveCursor (Row => 1, Column => 35);
    Put ("1,35: Up High!");
    
    MoveCursor (Row => 24, Column => 10);
    Put ("24,10: Down Low!");
    
END screentest;