An Example of Self-Printing Program in Fortran

[mrupor]

The code was written around 1979

*NАМЕ INТRSР
           *ТIМЕ:24.00
           *NО LОАD
                                                      11.02.17 М1
 Ф О Р Т Р А Н
   /16.07.73/
                РRОGRАММА
                DIМЕNSIОN М1(9),М2(9),М3(9),М4(9),М5(9)
                DАТА М1/54НРRОGRАММА                                             /
                DАТА М2/54НDIМЕNSIОN М1(9),М2(9),М3(9),М4(9),М5(9)               /
                DАТА М3/54НРRINТ М4,М1,М2,1,М1,2,М2,3,М3,4,М4,5,М5,М3,М5         /
                DАТА М4/54Н(2(6Х,9А6/)5(6Х,6НDАТА М,I1,4Н/54Н,9А6,1Н//)(6Х,9А6)) /
                DАТА М5/54НЕND                                                   /
                РRINТ М4,М1,М2,1,М1,2,М2,3,М3,4,М4,5,М5,М3,М5
                ЕND



                                      ТАБЛИЦА  ОТНОСИТЕЛЬНЫХ АДРЕСОВ

         1     2     3     4     5     6     7     8     9    10    11    12    13    14    15    16    17    18    19    20
 000  :00001
           *ЕХЕСUТЕ
      РRОGRАММА
      DIМЕNSIОN М1(9),М2(9),М3(9),М4(9),М5(9)
      DАТА М1/54НРRОGRАММА                                             /
      DАТА М2/54НDIМЕNSIОN М1(9),М2(9),М3(9),М4(9),М5(9)               /
      DАТА М3/54НРRINТ М4,М1,М2,1,М1,2,М2,3,М3,4,М4,5,М5,М3,М5         /
      DАТА М4/54Н(2(6Х,9А6/)5(6Х,6НDАТА М,I1,4Н/54Н,9А6,1Н//)(6Х,9А6)) /
      DАТА М5/54НЕND                                                   /
      РRINТ М4,М1,М2,1,М1,2,М2,3,М3,4,М4,5,М5,М3,М5
      ЕND
 КОНЕЦ ЗАДАЧИ
 00411: 00 074 0000     *74