Entry tags:
An Example of Self-Printing Program in Fortran
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