MODULE Module2

    VAR signaldi signaldi26;

    VAR signaldi signaldi37;

    VAR signaldi signaldi48;

    PROC main2()

        IF signaldi15 THEN

            Routine1;

        ENDIF

        IF signaldi26 THEN

            Routine2;

        ENDIF

        IF signaldi37 THEN

            Routine3;

        ENDIF

        IF signaldi48 THEN

            Routine4;

        ENDIF

    ENDPROC

    PROC Routine1()

        MoveJ p_home, v1000, fine, tool1\WObj:=wobj1;

        ! p10 上方

        MoveJ Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;

        ! p10

        MoveJ Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;

        ! p10 负方向运动29

        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;

        ! p10 负方向运动29，抬起50

        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;

        MoveJ Offs(p10,,,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;

    ENDPROC

    PROC Routine2()

        MoveJ p_home, v1000, fine, tool1\WObj:=wobj1;

        ! p10 上方

        MoveJ Offs(p10,10.85,,), v50, fine, tool1\WObj:=wobj1;

        ! p10

        MoveL Offs(p10,10.85,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,31.78,,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,31.78,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,31.78,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;

        MoveJ Offs(p10,117.66,,), v50, fine, tool1\WObj:=wobj1;

        ! p10

        MoveL Offs(p10,117.66,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,137.71,,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,137.71,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,117.66,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,117.66,,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,117.66,,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;

    ENDPROC

    PROC Routine3()

        MoveJ p_home, v1000, fine, tool1\WObj:=wobj1;

        ! p10 上方

        MoveJ Offs(p10,45.7,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,45.7,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,45.7,-14.5,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,62.94,-14.5,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,62.94,,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,62.94,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,62.94,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;

        MoveJ Offs(p10,151.4,,), v50, fine, tool1\WObj:=wobj1;

        MoveJ Offs(p10,151.4,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,151.4,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,151.4,-14.5,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,167.19,-14.5,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,167.19,,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,167.19,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,167.19,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;

    ENDPROC

    PROC Routine4()

        MoveJ p_home, v1000, fine, tool1\WObj:=wobj1;

        MoveJ Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;

        MoveJ Offs(p10,180.71,,), v50, fine, tool1\WObj:=wobj1;

        MoveJ Offs(p10,180.71,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,,), v50, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,-14.5,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,180.71,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,180.71,-,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ Offs(p10,180.71,-14.5,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ Offs(p10,180.71,-14.5,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,-14.5,), v1000, fine, tool1\WObj:=wobj1;

        MoveL Offs(p10,,-14.5,), v1000, fine, tool1\WObj:=wobj1;

        MoveJ p_home, v1000, z50, tool1\WObj:=wobj1;

    ENDPROC

ENDMODULE