MOVE(G91,F600,X-800,W+31);M16
MOVE(G91,F200,X50,W-31)
#51=#5021;
MOVE(G91,F600,X800,W+31);
MOVE(G91,F200,X-50,W-31)
#53=#5021-#51
#54=#53/2
SETWK(X#54);
#55=0-#54
MOVE(G91,F600,X#55)
RETURN;