Quelle  expalpha.cob

       identification division.
       program-id. expalpha.
       author. "JD".
       date-written. 25.10.2004.
       date-compiled.
       data division.
       working-storage section.
       77 a pic 9(16).
       77 c pic 9(4).
       linkage section.
       77 i      pic 9(4).
       77 n      pic 9(4).
       77 r      pic 9(16).
       77 alpha  pic 9(2).
       procedure division using i n alpha r.
      * computes r = i to the power of n 
      * operator wurde mit alpha multipliziert
         move 1 to a c.
         perform until n < c
           multiply a by i
           multiply a by alpha
           add alpha to c
         end-perform.
         move a to r.
        end-program expalpha.