en tmz = 0;;; = thz-1; (tsz <0) then tsz = 0;;; case nset;; = temb-1; (temb <0) then temb = 0;;; = thz-1; (thb <0) then thb = 0;;; = tmz-1; (tmb <0) then tmb = 0;; ; = thb-1; (tsb <0) then tsb = 0;;; case nset;; = temc-1; (temc <0) then temc = 0;;; = thc-1; (thc <0) then thc = 0;;; = tmc-1; (tmc <0) then tmc = 0;;; = thc +1; (tsc <0) then tsc = 0;;;;;;;
if ((key = 1) and (pkey <> 1)) then do;/* При натисканні ^ переходимо до прогр-ю сл-їй стадії */
stad = stad +1; (stad = 3) then stad = 0;;
if (stad = 0) then do;/* Виводимо поточний стан параметрів */
/* 1/Замішування 2/T = thz: tmz: tsz */
do i = 0 to 15; (i) = zames (i); (i +40) = time0 (i);; (43) = (thz/10) +30 h; (44 ) = (thz mod 10) +30 h; (46) = (tmz/10) +30 h; (47) = (tmz mod 10) +30 h; (49) = (tsz/10) +30 h; (50) = (tsz mod 10) +30 h; outGKI;;
(stad = 1) then do;
/* 1/блукаю-е t = tembC 2/T = thb: tmb: tsb */i = 0 to 15; (i) = brog1 (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;;
(stad = 2) then do;
/* 1/Вип-ка t = temcC 2/T = thc: tmc: tsc */i = 0 to 15; (i) = vip1 (i); (i +40) = time0 (i);; (9) = (temc/100) +30 h; (10) = ((temc mod 100)/10) +30 h; (11) = ((temc mod 100) mod 10) +30 h; (43) = (thc/10) +30 h; (44) = (thc mod 10) +30 h; (46) = (tmc/10) +30 h; (47) = (tmc mod 10) +30 h; (49 ) = (tsc/10) +30 h; (50) = (tsc mod 10) +30 h; outGKI;;
;;
((key = 5) and (pkey <> 5)) then do;/* При згоді на початок починаємо приготування */
P2 = 1b;/* Піка */time (255); 2 = 0b;
P27 = 1b;/* відкриваємо обидва бункера */
P24 = 1b;
P26 = 1b;/* Запускаємо міксер */
do while ((datchik (1) <> 0) and (datchik (2) <> 0)); end;/* Чекаємо поки спустошуватися */27 = 0b;/ * закриваємо бункери */
P24 = 0b;
P2 = 1b;/* Піка */time (255); 2 = 0b;
h = thz;/* Задаємо параметри замішування */
m = tmz;
s = tsz;
fpp = 1b;/* Запускаємо таймер */
do while (fpp);
/* Виводимо стан */
/* 1/Замішування 2/T = thz: tmz: tsz */
do i = 0 to 15; (i) = zames (i); (i +40) = time0 (i);; (43) = (thz/10) +30 h; (44 ) = (thz mod 10) +30 h; (46) = (tmz/10) +30 h; (47) = (tmz mod 10) +30 h; (49) = (tsz/10) +30 h; (50) = (tsz mod 10) +30 h; outGKI;; = 0b;/*...