blob: 1a94c48507e6123fbddab5c0b5e9d2dda62d4662 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %interactive }
{ the bug was that this put the 'x' at the *end* of the second line instead
of on position 14 }
uses crt; // my terminal is 80x25
var s:string;
begin
clrscr;
s:='';
gotoxy(1,2); // you need this row
while length(s)<80 do s:=s+' ';
write(s);
gotoxy(14,2); // you need this row
write('x'); // position of 'x' is wrong
end.
|