Insert an empty line at cursor position.
Source position: crth.inc line 88
procedure InsLine; |
InsLine inserts an empty line at the current cursor position. Lines following the current line are scrolled 1 line down, causing the last line to disappear from the window. The cursor doesn't move.
None.
|
Clear from cursor position till end of line. |
|
|
Delete line at cursor position. |
|
|
Clear current window. |
Program Example10; uses Crt; { Program to demonstrate the InsLine function. } begin ClrScr; WriteLn; WriteLn('Line 1'); WriteLn('Line 3'); WriteLn; WriteLn('Oops, forgot Line 2, let''s insert at the cursor postion'); GotoXY(1,3); ReadKey; InsLine; Write('Line 2'); GotoXY(1,10); end.