STATUSINFO(XڿмX31...);
#307=#1850
#308=#1856
MOVE(G91,F2000,Z-20)
MOVE(G91,F800,X-1200,W+31);
MOVE(G91,F200,X300,W-31)
#51=#5021;
MOVE(G91,F800,X1200,W+31);
MOVE(G91,F200,X300,W-31)
#53=#5021-#51-#302
#54=#53/2
SETWK(X#54);
MOVE(G91,F4000,X-#54)
STATUSINFO(YڿмX31...);
MOVE(G91,F800,Y-1200,W+31);
MOVE(G91,F200,Y300,W-31)
#51=#5021;
MOVE(G91,F800,Y1200,W+31);
MOVE(G91,F200,Y-300,W-31)
#53=#5021-#51-#302
#54=#53/2
SETWK(Y#54);
MOVE(G91,F2000,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;