STATUSINFO(XмX31...);
#305=#300/2+60
#306=#300+60
MOVE(G91,F4000,X-#305)
MOVE(G91,F1000,Z-20)
MOVE(G91,F800,X1200,W+31);
MOVE(G91,F200,X-300,W-31)
#51=#5021;
#307=#1850
#308=#1856
MOVE(G91,F1000,Z20)
MOVE(G91,F4000,X#306)
MOVE(G91,F1000,Z-20)
MOVE(G91,F800,X-1200,W+31);
MOVE(G91,F200,X300,W-31)
#53=#5021-#51+#302
#54=#53/2
SETWK(X#54);
MOVE(G91,F1000,Z20)
MOVE(G91,F4000,X-#54)
STATUSINFO(YмX31...);
#305=#301/2+60
#306=#301+60
MOVE(G91,F4000,Y-#305)
MOVE(G91,F1000,Z-20)
MOVE(G91,F800,Y1200,W+31);
MOVE(G91,F200,Y-300,W-31)
#51=#5021;
MOVE(G91,F1000,Z20)
MOVE(G91,F4000,Y#306)
MOVE(G91,F1000,Z-20)
MOVE(G91,F800,Y-1200,W+31);
MOVE(G91,F200,Y300,W-31)
#53=#5021-#51+#302
#54=#53/2
SETWK(Y#54);
MOVE(G91,F1000,Z20)
MOVE(G91,F4000,Y-#54)
#307=#1850-#307
#308=#1856-#308
#1851=#1851+#307;G55-X
#1852=#1852+#307
#1853=#1853+#307
#1854=#1854+#307
#1855=#1855+#307
#1857=#1857+#308;G55-Y
#1858=#1858+#308
#1859=#1859+#308
#1860=#1860+#308
#1861=#1861+#308
RETURN;