fpcdocs/olinuxex/ex27.pp


1
2
3
4
5
6
7
8
9
10

Program Example27;

{ Program to demonstrate the Umask function. }

Uses oldlinux;

begin
  Writeln ('Old Umask was : ',Umask(Octal(111)));
  WRiteln ('New Umask is  : ',Octal(111));
end.