"CODE"31109;
"PROCEDURE"DP POW(A,EXPON,C,CC);
"VALUE"A,EXPON;"INTEGER"EXPON;"REAL"A,C,CC;
"BEGIN"
       LNG POW(A,0,EXPON,C,CC)
"END" DP POW;
   "EOP"