Jak zmienić tryb tekstowy na 80/50?

Data dodania: 2011-09-13, Autor: Karol, Dodał: Karol, Wyświetleń: 557

Służy do tego celu procedura TextMode, oto przykład:

uses Crt;
var StaryTryb : integer;
begin
    StaryTryb:=LastMode;
    TextMode (CO80 + Font8x8);
    writeln ('TEST 1');
    readln;

    TextMode (CO40);
    writeln ('TEST 2');
    readln;

    TextMode (StaryTryb);
    writeln ('Powrot do pierwszego');
    readln;
end.