7.5. Příkaz ALTER

               Příkaz  ALTER provádí  modifikaci příkazu  GO formátu 1
          nebo 2. Používá se proto zejména k programování přepínačů.


          Formát:  ALTER {procedura-1 TO [PROCEED TO] procedura-2} ...

          Funkce: Procedura-1 musí být paragraf, nikoliv sekce. Prvním
          příkazem tohoto paragrafu musí  být příkaz "GO TO procedura"
          nebo příkaz "GO TO.",  jenž bude příkazem ALTER modifikován.
          Příkaz   ALTER   dosadí   do   modifikovaného   příkazu   GO
          proceduru-2,  takže po  provedení příkazu  ALTER bude  tento
          příkaz GO vždy prováděn tak,  jako kdyby byl uveden ve tvaru
          "GO  TO procedura-2"  (nezávisle na  svém původním formátu).
          Tato změna platí tak dlouho,  než bude proveden další příkaz
          ALTER, v  němž je za slovem ALTER  opět uvedena procedura-1.
          Před první  modifikací příkazem ALTER  se příkaz GO  provádí
          tak, jak je zapsán ve zdrojovém programu.

          Pravidla:

          1) Uvedením nepovinných slov "PROCEED  TO" se funkce příkazu
             ALTER nemění.

          2) Příkaz ALTER  s několika zápisy  "procedura-1 TO [PROCEED
             TO]  procedura-2"  je  ekvivalentní  s  několika  příkazy
             ALTER, z nichž každý bude mít jeden takovýto zápis. Např.
             příkaz

                 ALTER A TO ALFA B OF PRVNI TO BETA

             je ekvivalentní se zápisem

                 ALTER A TO ALFA
                 ALTER B OF PRVNI TO BETA.

          3) Týž  příkaz GO  může  být  modifikován pomocí  i několika
             příkazů ALTER.

          Příklad:    A. GO TO ALFA.
                         :
                         ALTER A TO BETA

              Před  provedením  příkazu  ALTER  bude  příkaz  GO  vždy
          prováděn  jako "GO  TO ALFA"  (tzn. tak,  jak je zapsán). Po
          provedení příkazu  ALTER bude příkaz  GO vždy prováděn  tak,
          jako  kdyby byl  zapsán ve  tvaru  "GO  TO BETA"  (a to  tak
          dlouho,  dokud  nebude  provedena  další  modifikace  pomocí
          některého jiného příkazu ALTER).

          Příklad:   IF I > 0 ALTER PREPINAC TO VYPOCET-1
                     ELSE IF I = 0 ALTER PREPINAC TO VYPOCET-2
                          ELSE ALTER PREPINAC TO VYPOCET-3.
                     :
           PREPINAC. GO TO.
           VYPOCET-1. ...

          Poznámka:  Používat příkaz  ALTER pro  modifikaci příkazu GO
          formátu  1 ("GO  TO procedura")  je velmi  nevhodné, protože
          modifikovaný příkaz GO pak pracuje  jinak, než jak je zapsán
          ve zdrojovém programu, což mimořádně znepřehledňuje program,
          ztěžuje ladění  a komplikuje prohledávání  výpisu paměti při
          chybě; v menší míře totéž  platí i pro modifikaci příkazu GO
          formátu  2  ("GO  TO.").  Proto  zkušení programátoři příkaz
          ALTER zásadně nepoužívají.