fpcsrc/tests/tbs/tb0107.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ Old file: tbs0125.pp }
{ wrong colors with DOS CRT unit                        OK 0.99.6 (PFV) }

{ %skiptarget=wince }

uses
crt;
var
i:integer;
begin
clrscr;
textcolor(blue);
writeln('ole');
textcolor(red);
writeln('rasmussen');
writeln(i);
end.