PHP код:
Var status : integer;
Var bit1, bit2, bit3, bit4: integer;
Var alarmP1, alarmP2,alarmP3,alarmP4 : Bool;
{---------- main program -----------}
begin
ReadInteger('Status', status); { считывание входа Status и запись во внутреннюю переменную скрипта status
ReadBool('AlarmP1', alarmP1);{ считывание выхода AlarmP1 и запись во внутреннюю переменную скрипта alarmP1
bit1 := status and 2; { в переменную bit1 записывается результат побитового умножения статусного слова и 2 - проверка первого бита
if bit1 >= 2 then alarmP1:=true { процедура сравнения
else alarmP1:=false;
WriteBool('AlarmP1',alarmP1); { передача значения на выход AlarmP1
ReadBool('AlarmP2', alarmP2);
bit2 := status and 4;
if bit2 >= 4 then alarmP2:=true
else alarmP2:=false;
WriteBool('AlarmP2',alarmP2);
ReadBool('AlarmP3', alarmP3);
bit3 := status and 8;
if bit3 >= 8 then alarmP3:=true
else alarmP3:=false;
WriteBool('AlarmP3',alarmP3);
ReadBool('AlarmP4', alarmP4);
bit4 := status and 16;
if bit4 >= 16 then alarmP4:=true
else alarmP4:=false;
WriteBool('AlarmP4',alarmP4);
end.