separate (Vt100)


procedure Clear_Screen is
    ----------------------------------------------------------------------
    --|
    --|  NAME:  CLEAR_SCREEN
    --|
    --|  OVERVIEW:
    --|    This procedure clears the screen on a vt100 using an escape code
    --|    sequence.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ----------------------------------------------------------------------
    Escape : constant Character := Ascii.Esc;
    L_Bracket : constant Character := Ascii.L_Bracket;
    Clear_Screen : String (1 .. 80);
begin
    --    put(escape);
    --    put(l_bracket);
    --    put('H');
    --    put(escape);
    --    put(l_bracket);
    --    put('J');
    null;
end Clear_Screen;