%
O8952(TOOTH PROCESS SEQUENCE DECISION)
IF[#979GT900]GOTO3 
IF[#979GT0]GOTO2 
 
(ALL TOOTH PITCH STABILIZATION) 
#1=[#982+1]MOD2
IF[#1EQ1]GOTO1 
IF[#1EQ0]THEN#961=ABS[#978]-1+FIX[#982/2]
IF[#961GE#950]THEN#961=#961-#950 
GOTO5
N1 
IF[#1EQ1]THEN#961=ABS[#979]+ABS[#978]-1-FIX[#982/2]
IF[#961GE#950]THEN#961=#961-#950 
GOTO5
 
N2 
(SELECT TOOTH IN SEQUENCE)
#961=ABS[#978]+#982-2
IF[#961GE#950]THEN#961=#961-#950 
GOTO5
 
N3 
(DIAGONAL SEQUENCE)
#1=[#982+1.]MOD2 
IF[#1EQ1]GOTO4 
IF[#1EQ0]THEN#961=ABS[#978]-1+FIX[#982]
IF[#961GE#950]THEN#961=#961-#950 
GOTO5
N4 
IF[#1EQ1]THEN#961=ABS[#978]-1.+FIX[#982/2.]-1.0+FUP[#950/2.] 
IF[#961GE#950]THEN#961=#961-#950B
GOTO5
 
N5 
#2=ABS[#979] 
IF[#2LT900]GOTO6 
#2=#979-900
N6 
IF[#982GTABS[#2]]THEN#961=-1 
#982=#982+1
 
M99
%