6
{Demo of a simple program which uses the classic Macintosh Toolbox.
7
It also shows how to include a mac style resource file.}
18
InitGraf(@qd.thePort);
26
window:= GetNewWindow(128, nil, WindowPtr(-1));
31
DrawString('Hello Free Pascal on the Mac :-)');