Делаю игрушку на паскале Опции

[SkIv]

Ну вот приближается врем сдачи курсовой, а я вот не могу разобраться с такой проблеммой: "у меня есть уровень который прорисовывается около 3 секунд, ну это очень долго, и поэтому я решил повесить табличку "загрузка...", и весь процесс прорисовки спрятать на другой видео странице и все бы ничего, только вот получается так что за отображаемой страницей, где написанно "загрузка", "вылазит" страница с уровнем.
Как от этого избавится я не знаю, помогите пожалуйста

Сообщение отредактировано: SkIv - 26.04.2007 19:08

[SkIv]

Вот код:

Код

assign(f,path_level1);
reset(f);
  SetActivePage(1);
    setcolor(15);
    Outtextxy(245,270,'loading...');
  setactivepage(0);
  SetVisualPage(1);
  for i:= 1 to 479 do
   begin
     for j:=1 to 639 do
      begin
       if j=638 then
         readln(f,color) else
        read(f,color);
        putpixel(j,i,color);
      end;
   end;
close(f);
konsole;                               {vivod konsoli}
setvisualpage(0);

на нулевой странице выводится изображение, а на первой надпись, а на деле почему-то часть нулевой страницы видно