[fpc-pascal]black on white with Win32

[Andreas K. Foerster]

Hello,

I found a trick to get black on white in Win32 - but only in Win32:

uses
CRT;                                                                                                                                                       
begin
{$IFDEF WIN32}
TextAttr:=$F0;
{$ENDIF}
ClrScr;
WriteLn('black on white?');
ReadLn;
end.

Attention:
If you would use it under Dos or Linux without the conditional, you
would get a GRAY background and BLINKING text in textmode!
With a WIN32-binary it doesn't blink, even when you switch to textmode.
(I don't know why)