blob: 535968bd911b66ea4e9234437fd3bcc3d0e55ba0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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.
|