%BEGIN
%PROCEDURE SETR(R,V);
%VALUE V;
%REAL R,V;
%EXTERNAL SETR;
%REAL R1;
PRINTSTRING(<CALLING_SETR>);
NEWLINE;
SETR(R1,5.12);
PRINTSTRING(<R1=>);
PRINT(R1,2,4);
NEWLINE;
PRINTSTRING(<DID_IT_WORK>);
NEWLINE;
%END;