














ay 1984
%   Purpose: Int
tive Cross-Reference
ule for PP.

%  
e: this prog
is compl
y pa




















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































  put(
 put(32)
	;   Line < 100, pu
)
	;   true
	),  !,
	wri
ine), put(32),
	tab(
h),
	write(Funct
 put(47), wr
Ar





















































































































































































