%
O6032(PRECALCULATION)
#510=360./#500 
 
(LEAD TO  C ANGLE) 
IF[#502NE0]THEN#511=360.*[#503-#504]/#502
IF[#502EQ0]THEN#511=0
 
IF[#525NE0]THEN#531=360.*[#503-#504]/#525
IF[#525EQ0]THEN#531=0
 
IF[#527NE0]THEN#532=360.*[#503-#504]/#527
IF[#527EQ0]THEN#532=0
 
IF[#502NE0]THEN#533=360.*[#503-0.0]/#502 
IF[#502EQ0]THEN#533=0
 
M99
%