Здравствуйте, kov_serg, Вы писали:

_>Да вроде всё нормально
_>Image: QnvpCWQ.png

А у меня при первом запуске показало пропорциональным шрифтом. Вот эта зеленая полоса не была сплошной. Ее кидало от строки к строке. Пришлось чинить. Дальше все работало.

P.S. Фортран 4 выжал из меня скупую мужскую слезу.

Здравствуйте, kov_serg, Вы писали:

_>Да вроде всё нормально
_>Image: QnvpCWQ.png

А у меня при первом запуске показало пропорциональным шрифтом. Вот эта зеленая полоса не была сплошной. Ее кидало от строки к строке. Пришлось чинить. Дальше все работало.

P.S. Фортран 4 выжал из меня скупую мужскую слезу.

UPD. P. P. S. Тысяча чертей, там в коде вычисляемых GOTO больше, чем я встретил за всю жизнь.