MODULE Module1
        VAR signaldo DO10_2;
        VAR signaldo DO10_3;
        VAR signaldo DI10_15;

    PROC Main()

        WHILE TRUE DO
            IF DO10_3=1 THEN
                Set DI10_15;
            ENDIF
        ENDWHILE
        Fill;
        WaitTime 3;
        Pickup;
        Release;
    ENDPROC

    PROC Fill() ! Fyller ballong med luft i 0,5sek
        Set DO10_2;
        WaitTime 0.5;
        Reset DO10_2;
    ENDPROC

    PROC Pickup() ! Starter vakum, og venter i 2sek
        Set DO10_3;
        WaitTime 2;
    ENDPROC

    PROC Release() ! Avslutter vakum
        Reset DO10_3;
    ENDPROC

    PROC Shoot() ! Avslutter vakum og starter trykkluft i 0,5sek
        Reset DO10_3;
        Set DO10_2;
        WaitTime 0.5;
        Reset DO10_2;
    ENDPROC

ENDMODULE