(* filename: pointer2.pp *)

program pointerTest (output);

{

This program just shows how pointer types are defined

}

TYPE

IntPtr = ^Integer; { pointer type for an integer variable}

PosVals = 0..MAXINT; {integer subrange}

APosVal = ^PosVals; { Pointer type for integer subrange}

RealPtr = ^Real;

BoolPtr = ^Boolean;

OneCourt = ^CourtType; {Pointer type for enumerated type variabale}

CourtType = (Racquetball, squash, handball, tennis, basketball);

begin

writeln (' This program just tests pointer defintions. ');

writeln (' It differs from pointer1 in that 2nd & 3rd ');

writeln (' definitions have been interchanged. ');

end.