%BEGIN
%REAL %PROCEDURE POWER(X,Y);
%VALUE X,Y;%REAL X;%INTEGER Y; %EXTERNAL POWER;
%REAL EP;
PRINTSTRING(<CALLING_POWER>);NEWLINE;
EP:=POWER(2.0,7);
PRINTSTRING(<2.0^7=_>);
PRINT(EP,3,4);NEWLINE;
%END;