>Пример процедуры, делающей активной страницу номер PageNo
(для VGA, EGA, CGA от 0 до 7):

procedure SetVideoPage(PageNo:byte); assembler;
asm
mov ah, 05
mov al, PageNo
int 10h
end;