Návěstí

Návěstí používáme ve třech různých situacích:

• pro ukončení smyčky, začínající příkazem DO
• pro identifikaci příkazu FORMAT
• chceme-li předat řízení na jiný řádek, např. příkazem GO TO.

Jako návěstí slouží celá čísla od 1 do 99999. Mezery a nuly na začátku nehrají roli. Numerická hodnota nemá žádný význam a nelze ji použít při výpočtech.

Funkci návěstí a komentářů dobře demonstruje následující část programu. Ze souboru ``IN'' se přečte posloupnost (maximálně deseticiferných) čísel a na obrazovku se vypíše jejich součet:

* precti vsechna cisla ze souboru a vypis soucet
      SUMA = 0.0
100   READ (UNIT=IN,FMT=200,END=9999) CISLO
200   FORMAT (F20.0)
      SUMA = SUMA + CISLO
      GO TO 100
9999  WRITE (UNIT=*,FMT=*) 'soucet je ', SUMA