Очистка экрана

[Winner]

Недавно только разобрался в обычном Pascal и Midlet Pascal и пока умею делать только простенькие программки. Другими словами я еще ламер
Встретился с проблемой очистки экрана. Решения этой проблемы нигде не нашел, потому я создал эту тему. Если такая тема уже соществует, то прошу скинуть мне ссылку.

В общем проблема такая: я делаю текст или картинку в начале программы и потом эта картинка или текст не пропадает, если я хочу поставить другую картинку или текст, поэтому получается каша: этот текст или картинка налезают друг на друга (слоями) и сливаются.

Ну, вот пример.

program display;
var next, clicked, exit:command;
begin
	drawText ('Очистка экрана', 5, 5);
	repaint;
	next := createCommand ('Дальше', CM_SCREEN, 1);
	exit := createCommand ('Выйти', CM_EXIT, 1);
	addCommand (next);
	addCommand (exit);
	repeat 
	clicked := GetClickedCommand;
	until clicked <> emptyCommand;
	if clicked = next then 
	drawText ('Экрана очистка', 5, 5);
	repaint;
	delay (10000);
end.

Как вы видите, в конце программы "Экрана очистка" закрывает "Очистка экрана" и они сливаются. Как сделать так, чтобы "Очистка экрана" стиралась после того, как я нажму кнопку "Дальше"? Если такое возможно.

[Piligrim]

если цвет экрана белый, то
setColor(255,255,255);
fillRect(0,0,getWidth,getHeight);
не забыть потом вернуть цвет
setColor(0,0,0);

[Winner]

Т.е. эта процедура зарисует экран нужным мне цветом? Другими словами, фон?


А еще есть методы?

[Romanzes]

А какие еще могут быть методы? Это только в бейсике есть CLS (очистка экрана). Ну разве что можно еще рисовать фоновую картинку поверх экрана.

[Winner]

Ладно, буду знать. Спасибо.

[SnoopTM]

Насколько знаю cls и в паскале есть) Ну по крайней мере в Turbo Pascale 7.0 точно была)))

[Reks888]

в турбо паскале:
1)она была частью библиотеки к паскалю
2)cls заливала фон черным цветом

[GRAY_WOLF]

В МР2.02 очистка идет так

procedure Cls; // Очистка экрана
begin
 SetColor(255,255,255); FillRect(0,0,GetWidth,GetHeight);
 end; 


В нужном месте вызываешь Cls; вот и вся очистка дисплея.