;V1.3--------- FLC -------------
; ЦИКЛ ОБРАБОТКИ РАВНОУДАЛЕННЫХ ОТВЕРСТИЙ НА ОКРУЖНОСТИ
;-----------------------------
G0 G94 G97 G40 G90
;вpемя паузы на дне отвеpстия
E39=PL9
TMR=E39
; количество отвеpстий
E1=PL5
; координата центра окружности по оси Х.
E30=PL1
; координата центра окружности по оси Y.
E31=PL2
; радиус окружности. 
E32=PL4
; угол пеpвого отвеpстия.
E33=PL6
; угол между последующими отверстиями.
E34=PL7
; координата точки начала обработки и возврата в конце обработки по Z.
E36=PL3
; координата глубины отверстия.
E37=PL8
; с=81/82/83/84/85/86/89
E3=PL10
; макс. глубина сверления
E39=PL11
; мин. глубина сверления
E40=PL12
; коэффициент уменьшения шага
E41=PL13
; шаг резьбы
E45=PL14
; Подача сверления               
E27=PL15
;-----------------------------
E38=0
;--------------------------
(DPI, $PS1, $PS2)
(UIO, $PS1 E30, $PS2 E31)
G $PS1 $PS2
                                          ;
E25=E33
                                          ;
(BEQ,E3,89,G81)
(BEQ,E3,86,G81)
(BEQ,E3,85,G81)
(BEQ,E3,84,G84)
(BEQ,E3,83,G83)
(BEQ,E3,82,G81)
(BEQ,E3,81,G81)
(BNC,ERR)
                                          ;
"G81"
GE3 R E36 $PS3 E37 F E27
(BNC,POINTS)
                                          ;
"G83"
(BEQ,E40,0,G83I)
G E3 R E36 $PS3 E37 I E39 J E40 K E41 F E27
(BNC,POINTS)
                                          ;
"G83I"
G E3 R E36 $PS3 E37 I E39 F E27
(BNC,POINTS)
                                          ;
"G84"
(BEQ,E45,0,G84F)
GE3 R E36 $PS3 E37 KE45 F E27
(BNC,POINTS)
                                          ;
"G84F"
GE3 R E36 $PS3 E37 F E27
(BNC,POINTS)
                                          ;
"POINTS"
(RPT,E1)
(URT,E25)
$PS1 E32 $PS2 E38
E25=E25+E34
(ERP)
G80 G90
(URT,0)
G0 $PS1 $PS2
                                          ;
;------------------------
E30=NEG(E30)
E31=NEG(E31)
(UIO,$PS1 E30,$PS2 E31)
                                          ;
(BNC,END)
                                          ;
"ERR"
(DIS,"ОШИБКА:<c>/=81; /=82; /=83; /=84")
SK342.BL=1
(DLY,2)
SK342.BL=0
(DIS,"                                ")
(DLY,2)
(BNC,ERR)
                                          ;
"END"
;--------- конец -----------
