&ACCESS RVP
&REL 1
DEF CompleteProgram()
;FOLD INI
  ;FOLD BASISTECH INI
    GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
    INTERRUPT ON 3
    BAS (#INITMOV,0 )
  ;ENDFOLD (BASISTECH INI)
  ;FOLD USER INI
	RAPID()
    $ADVANCE = 5
  ;ENDFOLD (USER INI)
;ENDFOLD (INI)


;FOLD ToolPath:TOpROugher  BASE:1  Tool:1  RPM:12000 
TOOLCHANGE(1)
BAS(#TOOL,1)
RSIBASE(1)
SetRPM(12000)
Rough1()
;ENDFOLD
  
;FOLD ToolPath:Rough1  BASE:1  Tool:1  RPM:12000 
TOOLCHANGE(1)
BAS(#TOOL,1)
RSIBASE(1)
SetRPM(12000)
Rough2()
;ENDFOLD
  
;FOLD ToolPath:Rough2  BASE:1  Tool:1  RPM:12000 
TOOLCHANGE(1)
BAS(#TOOL,1)
RSIBASE(1)
SetRPM(12000)
Rough3()
;ENDFOLD
  
;FOLD ToolPath:Rough3  BASE:1  Tool:1  RPM:12000 
TOOLCHANGE(1)
BAS(#TOOL,1)
RSIBASE(1)
SetRPM(12000)
Rough4()
;ENDFOLD
  
clear2home()

END