Правила форума
TxtMd.PASЯзык:
Русский
English
{ Пример программы для TextMode }
program MyVideo;
{ Переключаем монитор в режим 40x25 и обратно
Не будет работать на монохромных адаптерах. }
uses Crt;
var
OrigMode : Integer;
begin
OrigMode := LastMode;
TextMode(CO40);
WriteLn('Большие буквы!');
ReadLn;
TextMode(OrigMode);
end.
{ Переключаем монитор в режим 40x25 и обратно
Не будет работать на монохромных адаптерах. }
uses Crt;
var
OrigMode : Integer;
begin
OrigMode := LastMode;
TextMode(CO40);
WriteLn('Большие буквы!');
ReadLn;
TextMode(OrigMode);
end.
::
::
::
