)/* За допомогою < span align = "justify"> OK підтверджуємо введення ПраРусь-в */
if ((key = 2) and (pkey <> 2)) then do;/* Вхід в режим програмування стадій */= 0;/* Починаємо з 0-го параметра */
do while (nset <4);/* Ще не запрограмуємо всі параметри стадії */
if stad = 0 then do;/* Програмування стадії замішування */
if nset = 0 then do;/* Годинники замішування */
/* 1/Замішування 2/T = [thz]: tmz: tsz */
do i = 0 to 15; (i) = zames (i); (i +40) = time1 (i);; (42) = (thz/10) +30 h; (43 ) = (thz mod 10) +30 h; (46) = (tmz/10) +30 h; (47) = (tmz mod 10) +30 h; (50) = (tsz/10) +30 h; (51) = (tsz mod 10) +30 h; outGKI;; nset = 1 then do;/* Хвилини замішування */
/* 1/Замішування 2/T = thz: [tmz]: tsz */
do i = 0 to 15; (i) = zames (i); (i +40) = time2 (i);; (42) = (thz/10) +30 h; (43 ) = (thz mod 10) +30 h; (46) = (tmz/10) +30 h; (47) = (tmz mod 10) +30 h; (50) = (tsz/10) +30 h; (51) = (tsz mod 10) +30 h; outGKI;; nset = 2 then do;/* Секунди замішування */
/* 1/Замішування 2/T = thz: tmz: [tsz] */
do i = 0 to 15; (i) = zames (i); (i +40) = time3 (i);; (43) = (thz/10) +30 h; (44 ) = (thz mod 10) +30 h; (46) = (tmz/10) +30 h; (47) = (tmz mod 10) +30 h; (50) = (tsz/10) +30 h; (51) = (tsz mod 10) +30 h; outGKI; = 3;;;
stad = 1 then do;/* Програмування стадії бродіння */
if nset = 0 then do;/* Температура бродіння */
/* 1/блукаю-е t = [temb] C 2/T = thb: tmb: tsb */i = 0 to 15; (i) = brog2 (i); (i + 40) = time0 (i);; (9) = (temb/100) +30 h; (10) = ((temb mod 100)/10) +30 h; (11) = ((temb mod 100) mod 10) +30 h; (43) = (thb/10) +30 h; (44) = (thb mod 10) +30 h; (46) = (tmb/10) +30 h; (47) = (tmb mod 10) +30 h ; (49) = (tsb/10) +30 h; (50) = (tsb mod 10) +30 h; outGKI;; nset = 1 then do;/* Годинники бродіння */
/* 1/блукаю-е t = tembC 2/T = [thb]: tmb: tsb */i = 0 to 15; (i) = brog1 (i); (i +40 ) = time1 (i);; (9) = (temb/100) +30 h; (10) = ((temb mod 100)/10) +30 h; (11) = ((temb mod 100) mod 10) + 30h; (42) = (thb/10) +30 h; (43) = (thb mod 10) +30 h; (46) = (tmb/10) +30 h; (47) = (tmb mod 10) +30 h; (49) = (tsb/10) +30 h; (50) = (tsb mod 10) +30 h; outGKI;; nset = 2 then do;/* Хвилини бродіння */
/* 1/блукаю-е t = tembC 2/T = thb: [tmb]: tsb */i = 0 to 15; (i) = brog1 (i); (i +40 ) = time2 (i);; (9) = (temb/100) +30 h; (10) = ((temb mod 100)/10) +30 h; (11) = ((temb mod 100) mod 10) + 30h; (42) = (thb/10) +30 h; (43) = (thb mod 10) +30 h; (46) = (tmb/10) +30 h; (47) = (tmb mod 10) +30 h; (50) = (tsb/10) +30 h; (51) = (tsb mod 10) +30 h; outGKI;; nset = 3 then do;/* Секунди бродіння */
/* 1/блукаю-е t = tembC 2/T = thb: tm...
