folder  = "subProg_Demo/"
//M0
TestCase=1

IF TestCase ==1 THEN
   P subProg_Demo/sub_G0
    TestCase =TestCase +1
ENDIF

WAIT
SLEEP(1)

IF TestCase ==2THEN
    P subProg_Demo/sub_G1
    TestCase =TestCase +1
ENDIF

IF TestCase ==3 THEN
    P subProg_Demo/sub_G90
    TestCase =TestCase +1
ENDIF

IF TestCase ==4 THEN
    P subProg_Demo/sub_G91
    TestCase =TestCase +1
ENDIF

IF TestCase ==5 THEN
    subProg_Demo/sub_G94
    subProg_Demo/sub_G8_G9 
    TestCase =TestCase +1
ENDIF

IF TestCase ==6 THEN
    subProg_Demo/sub_circle
    subProg_Demo/sub_G16_G19
    TestCase =TestCase +1
ENDIF

IF TestCase ==7 THEN
    subProg_Demo/sub_AC_IC
    TestCase =TestCase +1
ENDIF

IF TestCase ==8 THEN
    ; subProg_Demo/sub_Tool
    TestCase =TestCase +1
ENDIF

IF TestCase ==9 THEN
  ;  subProg_Demo/sub_PCSoffset
    TestCase =TestCase +1
ENDIF

IF TestCase ==10 THEN
  ;  subProg_Demo/sub_G53
    TestCase =TestCase +1
ENDIF

IF TestCase ==11 THEN
    subProg_Demo/sub_PolyTransCmd
    TestCase =TestCase +1
ENDIF

IF TestCase ==12 THEN
    subProg_Demo/sub_REV
    TestCase =TestCase +1
ENDIF

IF TestCase ==13THEN
    subProg_Demo/sub_signal
    TestCase =TestCase +1
ENDIF

IF TestCase ==14  THEN
    subProg_Demo/sub_Blend
    TestCase =TestCase +1
ENDIF

IF TestCase ==15THEN
N100    subProg_Demo/sub_cpl_while
       TestCase =TestCase +1
ENDIF

IF TestCase ==16 THEN
N100    subProg_Demo/sub_cpl_for_loop
       TestCase =TestCase +1
ENDIF

IF TestCase ==17 THEN
N100   
       file =  folder + "sub_cpl_expr"
       [file]
       TestCase =TestCase +1
ENDIF

IF TestCase  == 18 THEN
WAIT
M0 
ENDIF

WAIT
SLEEP(1)