(G--XYZ-BCDFIJKW)
IF[[#_BUFG[2]]EQ17]THEN#30=3
IF[[#_BUFG[2]]EQ18]THEN#30=2
IF[[#_BUFG[2]]EQ19]THEN#30=1
IF[[#4*#5*#6]NE0]THEN#3000=1(I J K NOT)
IF[[#24*#25*#26]NE0]THEN#3000=2(X Y Z NOT)
IF[[[#_BUFG[8]]EQ43]AND[[#3-#7]LT0]]THEN#3000=3(C D NOT)
IF[[[#_BUFG[8]]EQ44]AND[[#3-#7]GT0]]THEN#3000=3(C D NOT)
#31=[#_ABSIO[1]]
#32=[#_ABSIO[2]]
#33=[#_ABSIO[3]]
G0G90X#24Y#25Z#26
AX[#30]=#3
WHILE[#3NE#7]DO1
G1G90AX[#30]=#3F500
G1G91AX[1]=#4AX[2]=#5AX[3]=#6F#9
IF[[#_BUFG[8]]EQ43]THEN#3=#3-#2
IF[[#_BUFG[8]]EQ44]THEN#3=#3+#2
#4=-#4
#5=-#5
#6=-#6
IF[[[#_BUFG[8]]EQ43]AND[#3LT#7]]THEN#3=#7
IF[[[#_BUFG[8]]EQ44]AND[#3GT#7]]THEN#3=#7
END1
G1G90AX[#30]=#3F500
IF[[#3EQ#7]AND[#23GT0]]THEN#9=#23
G1G91AX[1]=#4AX[2]=#5AX[3]=#6F#9
G0G90AX[#30]=#[30+#30]
M99
%