(* filename: pointer4.pp *)

program pointerTest (output);

{

Declaring a node pointer and a node this way is legal but ugly.

Don't do it this way.

}

TYPE

Node = record (* record is a reserved word *)

(* record is a heterogeneous data structure *)

data: integer;

next : ^Node; (* ashworth question *)

end;

begin

writeln (' This program just shows an alternate definition of a node ');

writeln (' and a node pointer. It is ugly do not do it this way ');

end.