(*
filename: pointer1.pp *)
program pointerTest (output);
{
This program just shows how pointer types are
defined
}
TYPE
IntPtr = ^Integer;{
pointer type definition for an integer variable}
APosVal = ^PosVals; {
pointer type definition for integer subrange}
PosVals = 0..MAXINT;
{type definition for an integer subrange}
RealPtr = ^Real; {pointer type definition for a real variable }
BoolPtr = ^Boolean; {pointer type
definitionfor a boolean variable }
OneCourt = ^CourtType;{Pointer
type definition for an enumerated type variable}
CourtType = (Racquetball, squash,
handball, tennis, basketball);
begin
writeln (' This program just tests Pascal
pointer definitions. ');
end.