полная древность 63, но , к сожалению, нашлась пара тройка систем, где они стоят, а подрядчик с позором убежал. Т.к. задача подконтрольна гос.органам в преддверии оеннезимнего периода, пришлось экстренно осваивать кодесис и "лавку древностей".
по экрану у меня в конце концов получилось так:
описат.часть
VAR
IndString: STRING(20) := 'Улица';
Format: STRING(10) := '%2.1f';
TerM AT %ID0.2.0: REAL;
VKLUCHITH AT %QD0.1.1: REAL;
Alarm_Pitanie AT %IX0.0.0.1: BOOL;
STR1:STRING(20) :='обогрев включен;
STR2:STRING(20) :='обогрев отключен';
STR3:STRING(25) :='проверь питание';
END_VAR
тело
ShowString(0, 0, 0, IndString);
ShowReal(0,8,0,' %2.1f ' , TerM);
ShowString (0, 14, 0, 'C ');
IF VKLUCHITH=1 THEN
ShowString (0, 0, 1, STR1);
ELSE
ShowString (0, 0, 1, STR2);
END_IF
IF VKLUCHITH=1 AND Alarm_Pitanie=1 THEN
ShowString (0, 0, 1, STR3);
END_IF
если не поленюсь прикрутить архив, то прикручу еще второй экран для перемотки сообщений.