/usr/share/doc/fp-compiler/2.6.4/macos/HelloMac.pp is in fp-compiler-2.6.4 2.6.4+dfsg-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | {$MODE MACPAS}
{$APPTYPE GUI}
program HelloMac;
{Demo of a simple program which uses the classic Macintosh Toolbox.
It also shows how to include a mac style resource file.}
USES
MacOS;
{$R HelloMac.r}
var
window: WindowPtr;
begin
InitGraf(@qd.thePort);
InitFonts;
InitWindows;
InitMenus;
TEInit;
InitDialogs(nil);
InitCursor;
window:= GetNewWindow(128, nil, WindowPtr(-1));
if window <> nil then
begin
SetPort(window);
MoveTo(20,20);
DrawString('Hello Free Pascal on the Mac :-)');
repeat
until Button;
end;
end.
|