17.34. ICTIMEB

          Funkce:  Podprogram  ICTIMEB  uloží  do  položky TALLY počet
          tisícin  vteřiny  uplynuvších  od  začátku  dne  do okamžiku
          provádění  příkazu  CALL  'ICTIMEB'.  Tím umožňuje uživateli
          měřit dobu provádění určitého úseku výpočtu.

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

          Poznámka: Pokud  počítač (jak tomu  většinou bývá) poskytuje
          nepřesnější  dosažitelný  čas  v  padesátinách vteřiny, touž
          přesnost  poskytuje i  podprogram ICTIMEB.  Výsledná hodnota
          položky  TALLY  bude  pak  vždy  dělitelná  číslem 20; vyšší
          přesnosti dosáhnout nelze.

          Příklad:  Uživatel  normálně   vyvolává  podprogram  ICTIMEB
          dvakrát: jednou  před začátkem a podruhé  po konci provádění
          úseku výpočtu, jehož délku  chce zjistit. Rozdíl obou hodnot
          položky  TALLY  dává  pak  dobu  provádění  úseku  výpočtu v
          tisícinách vteřiny (zaokrouhlenou na padesátiny vteřiny).

          77 ZACTAL PIC S9(9) COMP.
             :
             CALL 'ICTIMEB'.           &TALLY = čas pro začátek úseku
             MOVE TALLY TO ZACTAL.     &ZACTAL = čas pro začátek úseku
             :                         &sledovaný úsek výpočtu
             CALL 'ICTIMEB'.           &TALLY = čas pro konec úseku
             SUBTRACT ZACTAL FROM TALLY. &TALLY = doba provádění úseku
             DISPLAY 'USEK TRVAL ' TALLY ' TISICIN VTERINY'.