Need Help! GOTO creates new program

today when i was trying to load my new barpuller macro and ran into a snag

O7001 (Bar pulling subprogram)
(G65 CALL MUST INCLUDE W ADRESS)
M05 (Stop spindle)
G28U0W0

%
IF[#24=1.0] GOTO 4000
IF[#502LT#23]GOTO 4000
T1212 (Index turret to bar puller station)
G00 X0 Z-[#23 + #101 + - 0.2] (Rapid to approach position)
G98 G01 Z-[#23 + #101] F20.0 (Select ipm mode, engage bar at 20.0 ipm)
M8(ENGAGE BAR PULL CLAMP)
G4X1.0(DWELL ENGAGE)
M11 (Open jaws,)
G04 X1.0 (Pause to allow jaws to open)
G01 Z[#102] F30.0 (Advance bar at 30 ipm)
M10 (Close jaws)
G04 X2.0 (Pause to allow jaws to close)
M9(DISENGAGE PULLER)
G04 X.5(DWELL DISENGAGE)
G0 W1.5 (Disengage bar at 20.0 ipm)
#502=[#502-#23]
G99 G28 U0W0
M01
M99

N4000
M11
M0
(REMOVE REMNANT FROM SPINDLE)
(REMOVE REMNANT FROM SPINDLE)
(REMOVE REMNANT FROM SPINDLE)
(REMOVE REMNANT FROM SPINDLE)
G0T0606
G0X-1.0 Z[#102](MOVE CUTOFF TO FACE POSITION)
M0
(LOAD NEW BAR TO CUTOFF)
(LOAD NEW BAR TO CUTOFF)
(LOAD NEW BAR TO CUTOFF)
(LOAD NEW BAR TO CUTOFF)
G0 W1.0
G28U0W0
#502=[#501-#503-#504-#102](SET BAR REMAINING)

%

my GOTO statement is creating a new program 4000

what am i doing wrong?
this is my first delve int real macro programming,

i dont have problems on my other machines with goto statements

control is a fanuc 18t and we just brought it back from a no batterty condition(previous owners disgruntled employee)

for now i will just delete my goto's for inputing