7.4. Příkaz GO

               Příkaz  GO umožňuje  přerušit provádění  příkazů v  tom
          pořadí, v  jakém po sobě následující  ve zdrojovém programu,
          předat řízení  (skočit) na začátek  uvedené procedury, takže
          jako další se bude provádět první příkaz této procedury.


          Formát 1:   GO TO procedura

          Funkce: Příkaz  GO tohoto formátu předává  řízení (skáče) na
          začátek procedury v něm uvedené. Je-li však příkaz GO tohoto
          formátu prvním příkazem paragrafu,  může být procedura v něm
          uvedená "změněna" pomocí příkazu ALTER (viz 7.5.).

          Příklad: IF X = Y GO TO A ELSE GO TO B OF C.

           Při  X =  Y se  provede skok  na začátek  procedury A,  při
          X NOT= Y se provede skok na začátek procedury B OF C.


          Formát 2:   GO TO.

          Funkce: Příkaz  GO bez procedury  smí být použit  pouze jako
          první  příkaz  paragrafu.   Před  prvním  provedením  tohoto
          příkazu musí být do  něj nejprve "dosazena" nějaká procedura
          pomocí  příkazu  ALTER  (viz  7.5.);  od  té chvíle se tento
          příkaz GO chová jako obyčejný  příkaz GO formátu 1. Pokud by
          však došlo k provedení příkazu GO formátu 2, aniž by předtím
          do něj byla příkazem  ALTER dosazena vhodná procedura, dojde
          k havárii výpočtu.


          Formát 3:   GO TO procedura ... DEPENDING ON celočís.položka

          Funkce:  Je-li  mezi  slovy  GO  (TO)  a  DEPENDING  uvedeno
          n procedur, provede příkaz tuto akci:

          a) Obsahuje-li uvedená celočíselná položka číslo m, které je
             jedním  z čísel  1, 2,   ..., n,  předá příkaz  řízení na
             začátek  té procedury,  která je  uvedena v  příkazu jako
             m-tá.

          b) Je-li  hodnota uvedené  celočíselné položky  menší než  1
             nebo  větší  než  n,  nedojde  k  odskoku, příkaz GO bude
             neúčinný  a  přejde  se  na  příkaz  bezprostředně za ním
             následující.

          Příklad: GO TO ALFA BETA DEPENDING X DISPLAY 'KONEC'STOP RUN

               Při X  = l se odskočí  na proceduru ALFA, při  X = 2 se
          odskočí na proceduru BETA. Je-li X < 1 nebo X > 2, neodskočí
          se, příkaz GO bude neúčinný  a provedou se příkazy DISPLAY a
          STOP.

          Poznámka:   Příkaz  GO   s  klauzulí   DEPENDING  nesmí  být
          modifikován pomocí příkazu ALTER.

          Poznámka: Místo GO TO lze vždy psát dohromady GOTO.