.CHARSET 1251 ; БРП-4 ; 10. Вычисление биологических ритмов человека (1 - 1133098) .ORG 0 GSB A49 M 0 RM 4 M 7 RM 5 M 8 RM 6 M 9 GSB A49 RM 0 - A13: ; с адреса 47 M 0 23 / K FRAC F PI 2 * M A * F SIN M 7 RM 0 28 / K FRAC RM A * F SIN M 8 RM 0 33 / K FRAC RM A * F SIN M 9 R/S RM 0 RM 1 + GOTO A13 A49: ; с адреса 0, 9 RM 8 22 - 10 / K INT M A RM 9 + 1899 - 365,25 * K INT RM 8 RM A 12 * - 14 - 30,59 * K INT + 29 + RM 7 + RTN 00 .END