IF (NGOD.NE.1962) GOTO 4

Здесь в условии применён элемент обратной логики: если считанный из файла год не равен 1962, тогда производится переход на метку 4 и считывается следующая запись. В область, расположенную ниже, попадаем только тогда, когда считанный год рождения равен 1962.

NI=INDEX(FIO,’ ’)

Чтобы найти имя Михаил, выделяем номер индекса, в котором находится символ пробел после фамилии. Этот индекс присваивается переменной NI.

IF (FIO(NI+1:NI+7).EQ.’Михаил’) WRITE (4,9) FIO, NGOD,

*DOM,NTAB,TEL

С помощью этой записи вылавливаем шпиона: если в текстовой переменной FIO, начиная с индекса NI+1 по индекс NI+7, встречается ‘Михаил’, то в файл WYWOD печатает Ф.И.О., год рождения, домашний адрес, номер по табелю, номер телефона. NI+1:NI+7 – текстовая подцепочка.