external;

procedure ClrScr;
begin
   Write(Chr($0c));
end;