state:=0;
bAxis:=FALSE;
bCart:=FALSE;
ppos100:=pstart;
WHILE TRUE DO
TEST state
CASE 1:
// move in axis coordinate
if bAxis=TRUE then
bAxis:=FALSE;
MoveAbsJ jpos100\NoEOffs,v100,fine,tWeldGun\WObj:=wobj0;
endif
CASE 2:
// move in Cartesian coordinate
if bCart=TRUE THEN
bCart:=FALSE;
MoveL ppos100,v100,fine,tWeldGun\WObj:=wobj0;
ENDIF
ENDTEST
ENDWHILE