%EXTERNALREALFN POWER(%LONGREAL X,%INTEGER Y)
%LONGREAL Z;
PRINTSTRING('ENTERING IMP POWER');NEWLINE
Z=1
%WHILE Y>0 %CYCLE
  %WHILE Y&1=0 %CYCLE
    Y=Y//2
    X=X**2
  %REPEAT
  Y=Y-1;Z=X*Z
%REPEAT
%RESULT=Z
%END
%ENDOFFILE