fpcdocs/refex/ex13.pp


1
2
3
4
5
6
7
8
9
10

Program Example13;

{ Program to demonstrate the CSeg function. }

var W : word;

begin
  W:=CSeg; {W:=0, provided for compatibility,
                  FPC is 32 bit.}
end.