Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-11 - 43,50530/len.pas
There is 1 other file named len.pas in the archive. Click here to see a list.
type
  x=^y;
  y=record case Boolean of
	true:(i:integer);
	false:(j:integer; case Boolean of
		false:(l:integer;m:integer)
	      )
	end;
var
 z:x;
begin
new(z)
end.