Create new window on screen.
Source position: crth.inc line 82
procedure Window( |
X1: Byte; |
Y1: Byte; |
X2: Byte; |
Y2: Byte |
); |
Window creates a window on the screen, to which output will be sent. (X1,Y1) are the coordinates of the upper left corner of the window, (X2,Y2) are the coordinates of the bottom right corner of the window. These coordinates are relative to the entire screen, with the top left corner equal to (1,1). Further coordinate operations, except for the next Window call, are relative to the window's top left corner.
None.
|
Set cursor position on screen. |
|
|
Return X (horizontal) cursor position. |
|
|
Return Y (vertical) cursor position. |
|
|
Clear current window. |
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.