%BEGIN
%EXTERNALLONGREALFNSPEC POWER(%LONGREAL X,%INTEGER Y)
%LONGREAL EP
PRINTSTRING('CALLING POWER');NEWLINE
EP=POWER(2.0,7)
PRINTSTRING('2.0^7= ')
PRINT(EP,3,4)
NEWLINE
%ENDOFPROGRAM