[fpc-pascal]Beep in Windows

[Andreas K. Foerster]

Hello,

long time I didn't know how to get a sound under Windows. 
Sending a #7 doesn't work anymore, when the CRT unit is used.

Solution:
The filehandle "stdout" is still assigned. So sending the #7 to stdout
still works:

procedure Beep;
begin write(stdout, #7) end;

should do it on any system.

-- 
Tschuess
	Andreas