mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 11:48:34 +02:00
* cosmetic changes
This commit is contained in:
parent
5d05584a8e
commit
4dbbf4b5d3
@ -89,7 +89,7 @@ begin
|
||||
writeln ('The following line should then become blank from column 10');
|
||||
writeln ('12345678901234567890');
|
||||
writeln;
|
||||
writeln ('This line should dissapear.');
|
||||
writeln ('This line should disappear.');
|
||||
writeln;
|
||||
writeln ('Between this line and the next, an empty line should appear.');
|
||||
writeln ('This is the next line, above which the empty one should appear');
|
||||
@ -100,7 +100,7 @@ begin
|
||||
gotoxy (10,6);clreol;
|
||||
gotoxy (1,8);delline;
|
||||
gotoxy (1,10); insline;
|
||||
gotoxy (17,13); clreol;
|
||||
gotoxy (18,13); clreol;
|
||||
writeln ('end.');
|
||||
readkey;
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user