%
(program: STOL)
G21
G17 G40 G49 G80 G90
#<step>=3 (SHAG OBRABOTKI/MM)
#<xnum>=150 (RAZMER PO X/MM)
#<ynum>=120 (RAZMER PO Y/MM)
#<dpth>=-5.1 (GLUBINA ZA PROHOD)
#<num>=5 (KOL-VO PROHODOV)
#<sfh>=3 (VISOTA BEZOPASNOSTI)
#<fd>=800 (F PODACHI)
#<fp>=120 (F VREZANIYA) 
 
M3 S10000
G4 P6


(PERIMETR)
#<cnt>=1
G0 Z#<sfh>
O10 WHILE [#<cnt> LE #<num>]
  X0 Y0
(VREZANIE)
   G1 X#<step> Z[#<dpth>*#<cnt>/2] F#<fp>
   X0 Z[#<dpth>*#<cnt>]
(/VREZANIE)
 F#<fd>
 X#<xnum> 
 Y#<ynum> 
 X0
 Y0
G0 Z#<sfh>
#<cnt>=[#<cnt>+1]
O10 END WHILE
(/PERIMETR)

#<cnt>=0
#<cn>=1

(VREZANIE)
O20 REPEAT [#<num>]
G1 X#<step> Z[#<dpth>*#<cn>/2] F#<fp>
X0 Z[#<dpth>*#<cn>] 
(/VREZANIE)
(PLOSKOST)
O30 WHILE [#<cnt> LE [#<ynum>-#<step>*2]] 
  #<cnt>=[#<cnt>+#<step>]
  G1 F#<fd>
  Y#<cnt> 
  X#<xnum>
  #<cnt>=[#<cnt>+#<step>]
  Y#<cnt>
  X0
O30 END WHILE 
G0 Z#<sfh>
X0 Y0 
#<cn>=[#<cn>+1]
O20 END REPEAT
(/PLOSKOST)


G0 Z#<sfh>
X0 Y0 
M5 M30
%