17.24. ICGEN

          Funkce:  Podprogram  ICGEN  generuje  posloupnost  náhodných
          čísel.

          Způsob volání:   CALL 'ICGEN'

          Pravidla:  Každé  vyvolání  podprogramu  ICGEN  uloží  jedno
          náhodné číslo (celé číslo v rozmezí od 0 do 16777215 včetně)
          do  položky  TALLY.  Opakovaným  voláním  podprogramu  ICGEN
          dostáváme   posloupnost  náhodných   čísel.  Nová   spuštění
          programu  obsahujícího posloupnost  volání podprogramu ICGEN
          dávají vždy touž posloupnost náhodných čísel jako poprvé.

          Příklad: PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10000
                           CALL 'ICGEN' MOVE TALLY TO A(I).

          Podprogram  ICGEN je  vyvolán 10000-krát,  čímž dostáváme  v
          položce TALLY postupně 10000 náhodných čísel, která ukládáme
          do tabulky A(1),...,A(10000) k dalšímu použití.

          Příklad:  Chceme-li  mít   náhodná  čísla  v  exponenciálním
          krátkém tvaru (COMP-1) v rozmezí od 0 (včetně) do 1 (nikoliv
          včetně), zařídíme to takto:

          77 NAHOD COMP-1.
             :
             CALL 'ICGEN'. COMPUTE NAHOD = TALLY / 16777216.