%PROCEDURE PASSTR(STR);
%VALUE STR;%STRING STR;
%BEGIN
PRINTSTRING(<ENTERING_ALGOL_PASSTR>);
NEWLINE;
PRINTSTRING(STR);
NEWLINE;
%END