em19700.T=LEFT(dm100.T,em19200)
em19800.T=RIGHT(em19700.T,em19202)
em19900.T=LEFT(dm100.T,em19204)
em20000.T=RIGHT (em19900.T,em19206)
EM20100.T=LEFT (dm100.t,em19208)
em20200.T=RIGHT (em20100.T,em19210)
em20300.T=LEFT (dm100.T,em19212)
em20400.T=RIGHT (em20300.T,em19214)
fmov(r1803,0,em19700,800)
fmov(r1804,0,em19700,800)
if em19800.T=em19300.T then
SET(r110)
else
set(r111)
END IF
IF R110=ON THEN
DM1000.T=EM19300.T
END IF
dm300.T=dm100.T