














August 1984
%   Purpose: P
ay lists of characters
strings.


%   por
(S) will write
omplete li
f char
r 


































































































































 portray_string(String), put(3
































 ; Char = 9 ),
	!,
	is_a_string(Chars).
is_a_string('$VAR'(N)).


portray_string(Var) :-
	var(Var),
	!,
	put(124), write(Va
portray_string([Char|Chars]


























 write('$VAR'(N)).

