macro_command main()
short a,b,c,d,e,k[200],o=0
bool on=1,off=0,x,y
GetData(a, "HMI", RW_A, 65530, 1)
b=a
GetData(k[0], "HMI", RW, b, 200)
GetData(x, "HMI", LB, 15, 1)
SetData(b, "HMI", LW, 9200, 1)
SetData(k[0], "PLC", D, 2000, 200)
if x==0 then
c=11
else
c=11
end if
SetData(c, "HMI", LW, 10, 1)
SetData(off, "HMI", LB, 11, 1)
end macro_command