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