blob: 9426eb3b27ebfd2e4c94af88eb17cc345d1f4a58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ %interactive }
uses crt;
begin
clrscr;
Window(1,2,80,3); {this does not work; if you set the last parameter to 4 (=3 lines) everything is fine}
gotoxy(1,1); write('clear now ? (this is only to fill some text...)');
readkey;
clrscr;
readkey;
write('cleared !');
readkey;
end.
|
