Need Help!- HEIDENHAIN q def program

[spennyy2k]

was a bit quiet at work today so we were trying to write a program with q defs to produce a dome using a series of circles rather than ramping over it, i could get a partial dome on the simulator but not a full one (as if 10mm was chopped off the top). I forgot to bring the prog home but it went something like :

all in mm

tool call ...
m6
q1= .1 (depth of cut)
q4= 25 (difference in rad size at the middle of the dome 50mm dia)
q10=.005 (rad of 1st cut)

L X75 Y0 M3
LZ.1
LB1
L -ZQ1
L XQ10 RL F5000
PCA 360 -
LZI50
LX75 Y0
LZI-50

Q11 = Q1 X Q1
Q16 = 250 - Q11
Q3 = SQRT Q11
Q10= Q4 - Q3
Q1 =Q1 + Q1

CALL LBL1 RPT 250

i think its all there, we have had a similar program make a rad at the bottom of a pocket just seem to be struggling to make it run the other way up

cheers for any help