blob: e708a2c081d40949cc51e5fabb60022503f5b8ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Program Example10;
uses Crt;
{ Program to demonstrate the InsLine function. }
begin
ClrScr;
WriteLn;
WriteLn('Line 1');
WriteLn('Line 2');
WriteLn('Line 2');
WriteLn('Line 3');
WriteLn;
WriteLn('Oops, Line 2 is listed twice,',
' let''s delete the line at the cursor postion');
GotoXY(1,3);
ReadKey;
DelLine;
GotoXY(1,10);
end.
|
