%BEGIN
%PROCEDURE PASSTR(STR);
%STRING STR;
%FORTRAN PASSTR;
PRINTSTRING(<CALLING_PASSTR>);
NEWLINE;
PASSTR(<TESTING_A_STRING_PARAM>);
PRINTSTRING(<DID_IT_WORK>);
NEWLINE;
%END;