Hello folks
i need a bit of help from somebody that can covert this subroutine to Fanuc ISO code programming as i really out of this.
I work only on Fanuc controller and i do not know nothing about Okuma controllers or codes.
thank you a lot

OG116
(G116 NULLPUNKT SCHLEPPEN BEI B-ACHSEN DREHUNG)
(PIVOT DISTANZ SETZEN = HALBES TISCHMASS)
(Eingabe G116 X Y Z B H P J)
(X = Dif.alter neuer NP )
(Y = dto.)
(Z = dto.)
(B = Tisch Sollposition abs.)
(H = aktive NPV )
(P = neue NPV )
(J = STARTWINKEL )
BBB=PB
PB=BBB-PJ
VNCOM[1]=1
CHK1=VSPCD[14] AND #20H
CHK2=VSPCD[15] AND #20H
VC40=CHK1
(IF[CHK2 EQ 0]NER06)
IF[PC NE EMPTY]NA001
IF[CHK1 EQ 0]NA002
GOTO NER01
NA001
IF[CHK1 EQ 0]NER02
NA002
IF[PB EQ EMPTY]NER03
IF[PH EQ EMPTY]NER04
IF[PJ NE EMPTY]NB001
PJ=0
NB001
PB1=PB
PC1=PC
IF[PP NE EMPTY]NA003
PP=VACOD
IF[PH EQ PP]NER05
NA003
BIN1=VOPRB[3] AND 66
IF[BIN1 NE 0] NA004
BIN2=VOPRB[4] AND 1
IF[BIN2 NE 0] NA005
PC1=PC*1000
PB1=PB*1000
GOTO NA004
NA005
PB1=PB*10000
PC1=PC*10000
NA004
(VZOFB[PP]=VZOFB[PH])
(VZOFC[PP]=VZOFC[PH]
XN=VZOFX[PH]
YN=VZOFY[PH]
ZN=VZOFZ[PH]
ZL=VPVDZ(pivot distance )
XL=VPVDX
XO=XN+PX
YO=YN+PY
ZO=ZN+PZ-ZL
CALL OG32 XX=XO YY=YO
LA=VS73 AA=VS74-PC1
XA=LA*COS[AA]-XL
YA=LA*SIN[AA]
ZA=ZO
CALL OG32 XX=ZA YY=XA
LB=VS73 AB=VS74-PB1
XB=LB*SIN[AB]
YB=YA
ZB=LB*COS[AB]
PBJ=PB+PJ
IF[PBJ LE 360]NB007
PBJ=PBJ-360
NB007
IF[PBJ GT 0]NB008
PBJ=PBJ+360
NB008
IF[CHK1 NE 32]NB009
(C=PC) B=BBB
GOTO NB010
NB009
(C=PC) B=BBB ( B=PBJ )
NB010
VZOFX[PP]=XB+XL
VZOFY[PP]=YB
VZOFZ[PP]=ZB+ZL
G15H=PP
( VZOFB[PP]=BBB )
VNCOM[1]=0
GOTO NRTS
NER01 MSG(X,Y,Z,B,H,P)
M0
GOTO NER01
NER02 MSG(X,Y,Z,B,H,P)
M0
GOTO NER02
NER03 MSG(B FEHLT)
M0
GOTO NER03
NER04 MSG(H FEHLT)
M0
GOTO NER04
NER05 MSG(P FEHLT)
M0
GOTO NER05
NER06 MSG(B-INDEX ?)
M0
GOTO NER06
NRTS RTS