ale pewno w realu trzeba będzie zrobić kilka poprawek . 
ogólnie program jest pisany dla fanu, nie wiem czy się mi go uda kiedyś sprawdzić
Q1= 22 ; GORNY PROMIEN
Q2= 13 ; DOLNY PROMIEN
Q3= 63 ; WYSOKOSC
Q4= -0,5 ; DOSUW
Q20= Q1*2 ; GORNA SREDNICA
Q21= Q2*2 ; DOLNA SREDNICA
Q11= (Q20-Q21) / (2*Q3)
Q12= Q11*Q4
Q14= Q3/ (-Q4)
TOOL CALL 1 Z S1500 F1000
L W+0 R0 FMAX M3
L B+0 RO FMAX
L X+Q1 Y+0 R0 FMAX
L Z+50 R0 FMAX
L Z+0,5 R0 FMAX
L Z+0
L Z+Q4
CC X+0 Y+0
CP IPA-360 DR- F1000
L X+Q1 Y+0 R0 FMAX
LBL 1
L IZ+Q4
L IX+Q12 Y+0 R0 FMAX
CC X+0 Y+0
CP IPA-360 DR- F1000
L IX+Q12 Y0 R0 FMAX
LBL 0
CALL LBL 1 REPQ14
