RosettaCodeData/Task/Terminal-control-Clear-the-screen/Icon/terminal-control-clear-the-screen.icon

procedure main ()
  if &features == "MS Windows" then system("cls")  # Windows
  else if &features == "UNIX" then system("clear") # Unix
end