Here you go.
O9010
#3003=1
IF[#2EQ#0]GOTO100
IF[#2EQ0.]GOTO010
IF[#2LT1.]GOTO104
#4=FIX[#2]
#2=#4
IF[#2LT0]GOTO102
IF[#2GE360.]GOTO103
N010IF[#4007NE40]GOTO106
IF[#1001EQ1.]GOTO105
IF[#1000EQ1.]GOTO008
IF[#13EQ#0]GOTO001
IF[#13NE6]GOTO101
M106
N001#30=#2-#550
IF[#30EQ0]GOTO030
#3=#4001
#5=#4003
G00G90
#6=#5021
IF[#30GT0]GOTO002
IF[#30GT-180]GOTO003
#30=#30+360
GOTO003
N002IF[#30LE180]GOTO003
#30=#30-360
N003IF[#4006EQ20]GOTO020
#31=ROUND[#30*1780.2358]/1000
#32=#5021+#31
IF[#32GT0.]GOTO004
IF[#32GT-610.]GOTO006
#33=-610.-#31
#32=-610.
GOTO005
N020#31=ROUND[#30*700.88025]/10000
#32=#5021+#31
IF[#32GT0.]GOTO004
IF[#32GT-24.01575]GOTO006
#33=-24.01575-#31
#32=-24.01575
GOTO005
N004#33=0.-#31
#32=0.
N005G53X#33
N006M123
G04P300
M122
G04P300
G53#32
M121
M124
IF[#5EQ90]GOTO0011
G53X#6
N011G#3G#5
N030IF[#2NE0]GOTO007
M120
N007#550=#2
IF[#13EQ#0]GOTO008
M107
N008#3003=0
M99
N100#3003=0
#3000=500
N101#3003=0
#3000=501
N102#3003=0
#3000=502
N103#3003=0
#3000=503
N104#3003=0
#3000=504
N105#3003=0
#3000=505
N106#3003=0
#3000=506
O9010
#3003=1
IF[#2EQ#0]GOTO100
IF[#2EQ0.]GOTO010
IF[#2LT1.]GOTO104
#4=FIX[#2]
#2=#4
IF[#2LT0]GOTO102
IF[#2GE360.]GOTO103
N010IF[#4007NE40]GOTO106
IF[#1001EQ1.]GOTO105
IF[#1000EQ1.]GOTO008
IF[#13EQ#0]GOTO001
IF[#13NE6]GOTO101
M106
N001#30=#2-#550
IF[#30EQ0]GOTO030
#3=#4001
#5=#4003
G00G90
#6=#5021
IF[#30GT0]GOTO002
IF[#30GT-180]GOTO003
#30=#30+360
GOTO003
N002IF[#30LE180]GOTO003
#30=#30-360
N003IF[#4006EQ20]GOTO020
#31=ROUND[#30*1780.2358]/1000
#32=#5021+#31
IF[#32GT0.]GOTO004
IF[#32GT-610.]GOTO006
#33=-610.-#31
#32=-610.
GOTO005
N020#31=ROUND[#30*700.88025]/10000
#32=#5021+#31
IF[#32GT0.]GOTO004
IF[#32GT-24.01575]GOTO006
#33=-24.01575-#31
#32=-24.01575
GOTO005
N004#33=0.-#31
#32=0.
N005G53X#33
N006M123
G04P300
M122
G04P300
G53#32
M121
M124
IF[#5EQ90]GOTO0011
G53X#6
N011G#3G#5
N030IF[#2NE0]GOTO007
M120
N007#550=#2
IF[#13EQ#0]GOTO008
M107
N008#3003=0
M99
N100#3003=0
#3000=500
N101#3003=0
#3000=501
N102#3003=0
#3000=502
N103#3003=0
#3000=503
N104#3003=0
#3000=504
N105#3003=0
#3000=505
N106#3003=0
#3000=506