mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 15:13:58 +02:00
22 lines
564 B
ObjectPascal
22 lines
564 B
ObjectPascal
Program Example5;
|
|
uses Crt;
|
|
|
|
{ Program to demonstrate the Window function. }
|
|
|
|
begin
|
|
ClrScr;
|
|
WriteLn('Creating a window from 30,10 to 50,20');
|
|
Window(30,10,50,20);
|
|
WriteLn('We are now writing in this small window we just created, we '+
|
|
'can''t get outside it when writing long lines like this one');
|
|
Write('Press any key to clear the window');
|
|
ReadKey;
|
|
ClrScr;
|
|
Write('The window is cleared, press any key to restore to fullscreen');
|
|
ReadKey;
|
|
{Full Screen is 80x25}
|
|
Window(1,1,80,25);
|
|
Clrscr;
|
|
Writeln('Back in Full Screen');
|
|
end.
|