PROC main()
!Add your code here
Routine5;
ENDPROC
PROC Routine1()
WHILE TRUE DO
MoveAbsJ jpos10NoEOffs, v1000, z50, tool0;
MoveAbsJ jpos20NoEOffs, v1000, z50, tool0;
ENDWHILE
ENDPROC
PROC Routine2()
WHILE FALSE DO
MoveAbsJ jpos10NoEOffs, v1000, z50, tool0;
MoveAbsJ jpos20NoEOffs, v1000, z50, tool0;
ENDWHILE
ENDPROC
PROC Routine3()
reg1 := 3;
WHILE reg1 >= 1 DO
MoveAbsJ jpos10NoEOffs, v1000, z50, tool0;
MoveAbsJ jpos20NoEOffs, v1000, z50, tool0;
reg1 := reg1 - 1;
ENDWHILE
ENDPROC
PROC Routine4()
WHILE TRUE DO
MoveAbsJ jpos10NoEOffs, v1000, z50, tool0;
WHILE di0 = 1 DO
MoveAbsJ jpos20NoEOffs, v1000, z50, tool0;
ENDWHILE
ENDWHILE
ENDPROC
PROC Routine5()
WHILE TRUE DO
MoveAbsJ jpos10NoEOffs, v1000, z50, tool0;
WHILE di0 = 1 DO
MoveAbsJ jpos20NoEOffs, v1000, z50, tool0;
ENDWHILE
WHILE di1 = 1 DO
MoveAbsJ jpos30NoEOffs, v1000, z50, tool0;
ENDWHILE
ENDWHILE
ENDPROC