paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cosmetic changes

Browse Source
This commit is contained in:
Tomas Hajny 2005-05-14 14:31:51 +00:00
parent 5d05584a8e
commit 4dbbf4b5d3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/units/crt/tcrt.pp
View File

@ -89,7 +89,7 @@ begin
writeln ('The following line should then become blank from column 10'); writeln ('The following line should then become blank from column 10');
writeln ('12345678901234567890'); writeln ('12345678901234567890');
writeln; writeln;
writeln ('This line should dissapear.'); writeln ('This line should disappear.');
writeln; writeln;
writeln ('Between this line and the next, an empty line should appear.'); 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'); writeln ('This is the next line, above which the empty one should appear');
@ -100,7 +100,7 @@ begin
gotoxy (10,6);clreol; gotoxy (10,6);clreol;
gotoxy (1,8);delline; gotoxy (1,8);delline;
gotoxy (1,10); insline; gotoxy (1,10); insline;
gotoxy (17,13); clreol; gotoxy (18,13); clreol;
writeln ('end.'); writeln ('end.');
readkey; readkey;
end. end.