{**********************************************************************}
{ Clear screen using library function }
{**********************************************************************}
procedure cls;
begin
clear_screen; { Clear memory }
end;