Whiler  | Code :
 - uses
 -   SysUtils, Windows;
 - procedure Cls;
 - var
 -   stdOutputHandle : Cardinal;
 -   cursorPos       : TCoord;
 -   width, height   : Cardinal;
 -   nbChars         : Cardinal;
 - begin
 -   stdOutputHandle := GetStdHandle(STD_OUTPUT_HANDLE);
 -   cursorPos := GetLargestConsoleWindowSize(stdOutputHandle);
 -   width := cursorPos.X;
 -   height := cursorPos.Y;
 -   cursorPos.X := 0;
 -   cursorPos.Y := 0;
 -   FillConsoleOutputCharacter(stdOutputHandle, ' ', width*height, cursorPos, nbChars);
 -   cursorPos.X := 0;
 -   cursorPos.Y := 0;
 -   SetConsoleCursorPosition(stdOutputHandle, cursorPos);
 - end;
 
  |  
    |