N10 R11=2*R2/(R6+1)
N20 R12=R11/R6
N30 R15=R11-R12
N40 R16=2*R2
N50 IF R8 == 0 GOTOF SKOK1
N60 R17 = -R16/TAN(R8)

N70 SKOK1:
N80 IFR10 <> 0 GOTOF SKOK3
N90 IF R1 <  0 GOTOF SKOK2
N100 R13=R1/(2-R11)
N110 GOTOF SKOK5

N120 SKOK2:
N130 R7=-R7
N140 R12=-R12
N150 R13=R1/(2+R11)
N160 R15=-R15
N170 R16=-R16
N180 GOTOF SKOK5

N190 SKOK3:
N200 IFR1 == 0 GOTOF SKOK4
N210 R7=-R7
N220 R12=-R12
N230 R13=R1/(2-R2+R11)
N240 R15=-R15
N250 R16=-R16
N260 GOTOF SKOK5

N270 SKOK4:
N280 R13=R1/(2+R2-R11)
N290 SKOK5:

N300 SKOK6:
N310 G0 G90 Z=R3

N320 SKOK7:
N330 X=R13

N340 SKOK8:
N350 G33 Z=R4 K=R9

N360 IF R8 == 0 GOTOF SKOK10

N370 SKOK9:
N380 G33 G91 X=R16 Z=R17 K=R9
N390 GOTOF SKOK11

N400 SKOK10:
N410 G0 G91 X=R16

N420 SKOK11:
N430 R6=R6-1
N440 R18=R13
N450 IF R6==0 GOTOF SKOK12
N460 R13=R13-R15
N470 R14=ABS(R18-R13)*TAN(R5/2)
N480 R3=R3-R14
N490 R15=R15-R12
N500 GOTOB SKOK6

N510 SKOK12:
N520 R13=R13-R7
N530 R14=ABS(R18-R13)*TAN(R5/2)
N540 R3=R3-R14

SKOK13:
N550 G0 G90 Z=R3

N560 SKOK14:
N570 X=R13

N580 SKOK15:
N590 G33 Z=R4 K=R9
N600 IFR8==0 GOTOF SKOK17

N610 SKOK16:
N620 G33 G91 X=R16 Z=R17 K=R9
N630 GOTOF SKOK18

N640 SKOK17:
N650 G0 G91 X=R16

N660 SKOK18:
N670 G90
N680 M17