Quelle  random.cob

       Identification Division.
       Program-Id. mult.
       author. Robert Sedgewick.
      * Simplex Verfahren, lineare Programmierung
      * aus Algorithmen p581 
       Data Division.
       Working-Storage Section.
         78 m        value 100000000.
         78 m1       value 10000.
         78 b        value 31415821.
         77 p1     pic 9(4).
         77 p0     pic 9(4).
         77 q1     pic 9(4).
         77 q0     pic 9(4).
       Linkage Section.
         77 p     pic 9(4).
         77 q     pic 9(4).
         77 r     pic 9(4).
       Procedure Division using p q r.
        compute p1=p / m1
        compute p0=function mod(p,m1)
        compute q1=q / m1
        compute q0=function mod(p,m1)
        compute r=function mod(function mod(p0*q1+p1*q0,m1)*m1+p0*q0,m)
       End-Program mult.

       Identification Division.
       Program-Id. randomx.
       Data Division.
       Working-Storage Section.
         77 b        value 31415821.
         77 a     pic 9(4).
       Linkage Section.
         77 r     pic 9(4).
        Procedure Division using r.
        call mult using a b r
        compute a = function mod(r+1,m)
       End-Program randomx.