DEF INT _NAD, _XWYMIAR, _YWYMIAR
;ZMIENNE
_NAD=10 ;NADDATEK
_XWYMIAR=100
_YWYMIAR=100

G0 SUPA Z0 D0

T="CUTTER 10" D1 M6 S3000 M3
G40 G17 G71 G90
G54

PETLA:
G0 X=-_XWYMIAR-_NAD-20 Y=_YWYMIAR-_NAD-20
G0 Z5
G1 Z-2
G1 G41 X=-_XWYMIAR-_NAD Y=-_YWYMIAR-_NAD F5000
G1 Y=_YWYMIAR+_NAD
G1 X=_XWYMIAR+_NAD
G1 Y=-_YWYMIAR-_NAD
G1 X=-_XWYMIAR-_NAD
G1 G40 X=-_XWYMIAR-_NAD-20 Y=_YWYMIAR-_NAD-20
G0 Z15

IF (_NAD==0)
GOTO END:
ELSE
_NAD=_NAD-1
GOTO PETLA:
ENDIF

END:
G0 SUPA Z0 D0
D1
M30