mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 22:49:35 +01: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.
|