помогите с setvisualpage! Опции

[Вовчик]

Подскажите пожалуйста, как сделать в паскале листание экранов setvisualpage, setactivepage в графическом режиме vga256, vesa16, чтоб было хотябы 2 страницы. Или как это можно сделать по другому?

[ozzy]

Перечисленные Вами видеорежимы не поддерживают страничную организацию памяти средствами BGI-графики.
В ТМТ Паскаль данная возможность поддерживается.
Вот часть кода для страничной анимации в ТМТ Паскаль

     if Page then
       begin
         SetActivePage(0);
         SetVisualPage(1,true);
         Page:=false;
       end
     else
       begin
         SetActivePage(1);
         SetVisualPage(0,true);
         Page:=true;
      end;
   ClearPage;