mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 09:33:41 +02:00
14 lines
287 B
ObjectPascal
14 lines
287 B
ObjectPascal
Program Example14;
|
|
uses Crt;
|
|
|
|
{ Program to demonstrate the LowVideo, HighVideo, NormVideo functions. }
|
|
|
|
begin
|
|
LowVideo;
|
|
WriteLn('This is written with LowVideo');
|
|
HighVideo;
|
|
WriteLn('This is written with HighVideo');
|
|
NormVideo;
|
|
WriteLn('This is written with NormVideo');
|
|
end.
|