b: [tsb] */i = 0 to 15; (i) = brog1 (i); (i +40 ) = time3 (i);; (9) = (temb/100) +30 h; (10) = ((temb mod 100)/10) +30 h; (11) = ((temb mod 100) mod 10) + 30h; (43) = (thb/10) +30 h; (44) = (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;;;
stad = 2 then do;/* Програмування стадії випічки */nset = 0 then do;/* Температура випічки */
/* 1/Вип-ка t = [temc] C 2/T = thc: tmc: tsc */i = 0 to 15; (i) = vip2 (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;; nset = 1 then do;/* Годинники випічки */
/* 1/Вип-ка t = temcC 2/T = [thc]: tmc: tsc */i = 0 to 15; (i) = vip1 (i); (i +40 ) = time1 (i);; (9) = (temc/100) +30 h; (10) = ((temc mod 100)/10) +30 h; (11) = ((temc mod 100) mod 10) + 30h; (42) = (thc/10) +30 h; (43) = (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;;
nset = 2 then do;/* Хвилини випічки */
/* 1/Вип-ка t = temcC 2/T = thc: [tmc]: tsc */i = 0 to 15; (i) = brog1 (i); (i +40 ) = time2 (i);; (9) = (temc/100) +30 h; (10) = ((temc mod 100)/10) +30 h; (11) = ((temc mod 100) mod 10) + 30h; (42) = (thc/10) +30 h; (43) = (thc mod 10) +30 h; (46) = (tmc/10) +30 h; (47) = (tmc mod 10) +30 h; (50) = (tsc/10) +30 h; (51) = (tsc mod 10) +30 h; outGKI;; nset = 3 then do;/* Секунди випічки */
/* 1/Вип-ка t = temcC 2/T = thc: tmc: [tsc] */i = 0 to 15; (i) = brog1 (i); (i +40 ) = time3 (i);; (9) = (temc/100) +30 h; (10) = ((temc mod 100)/10) +30 h; (11) = ((temc mod 100) mod 10) + 30h; (43) = (thc/10) +30 h; (44) = (thc mod 10) +30 h; (46) = (tmc/10) +30 h; (47) = (tmc mod 10) +30 h; (50) = (tsc/10) +30 h; (51) = (tsc mod 10) +30 h; outGKI;;;
((key = 2) and (pkey <> 2)) then do;/* При натисканні клавіші SET сл-й пар-р */= nset +1;;
((key = 3) and (pkey <> 3)) then do;/* При натисканні + інкрементіруем зн-е параметра */case stad; case nset;; = thz +1; (thz> 59) then thz = 59;;; = tmz +1; (tmz> 59) then tmz = 59;;; = thz +1; (tsz> 59) then tsz = 59;;; case nset;; = temb +1; (temb> 500) then temb = 500;;; = thz +1; (thb> 59) then thb = 59;;; = tmz +1; (tmb> 59) then tmb = 59;; ; = thb +1; (tsb> 59) then tsb = 59;;; case nset;; = temc +1; (temc> 500) then temc = 500;;; = thc +1; (thc> 59) then thc = 59;;; = tmc +1; (tmc> 59) then tmc = 59;;; = thc +1; (tsc> 59) then tsc = 59;;;;;
((key = 4) and (pkey <> 4)) then do;/* При натисканні - декрементіруем зн-е параметра */case stad; case nset;; = thz-1; (thz <0) then thz = 0;;; = tmz-1; (tmz <0) th...
