/* CIF PROCESS (295, 56), (150, 75) */
PROCESS orchestrator
/* CIF COMMENT (405, 192), (71, 35) */
COMMENT 'Hello';
    /* CIF TEXT (39, 94), (293, 263) */
    dcl seq tastE_Peek_id_list;

dcl fixed FixedString := 'Hello';
dcl variable VariableString := 'Hello';
dcl seqboolean SeqBool := { true, false };

dcl seqbool2 SeqBoolFix := { true, false };

dcl seqen SeqEnum := { hello, world };

dcl seqen2 SeqEnumFix := { hello, world };

dcl myenum Enum := a;

dcl check tasTE_Peek_id;

dcl choice choice;
    /* CIF ENDTEXT */
    /* CIF START (428, 223), (100, 45) */
    START;
        /* CIF TASK (366, 283), (223, 38) */
        TASK seqboolean := {true, false},
seqboolean := not {true, false};
        /* CIF TASK (396, 336), (164, 53) */
        TASK for x in seqen:
 call writeln(num(x));
endfor;
        /* CIF TASK (396, 404), (164, 53) */
        TASK for x in seqen2:
 call writeln(num(x));
endfor;
        /* CIF TASK (397, 472), (162, 53) */
        TASK for x in seqboolean:
    call writeln(x);
endfor
        /* CIF COMMENT (579, 481), (168, 38) */
        COMMENT 'FOR with a basic type';
        /* CIF TASK (367, 540), (222, 35) */
        TASK seqboolean := not seqboolean
        /* CIF COMMENT (609, 540), (279, 35) */
        COMMENT 'check NOT on a SEQUENCE of BOOLEAN';
        /* CIF TASK (397, 590), (162, 53) */
        TASK for x in seqboolean:
    call writeln(x);
endfor;
        /* CIF TASK (415, 658), (126, 38) */
        TASK fixed := 'hello';
        /* CIF TASK (403, 711), (149, 35) */
        TASK variable := 'HELLO';
        /* CIF PROCEDURECALL (390, 761), (176, 35) */
        CALL writeln(variable // '!!!');
        /* CIF PROCEDURECALL (342, 811), (272, 35) */
        CALL writeln(variable // variable // variable);
        /* CIF TASK (432, 861), (91, 35) */
        TASK seq := {1};
        /* CIF TASK (401, 911), (153, 35) */
        TASK seq := {1} // {2} // {3};
        /* CIF TASK (392, 961), (172, 35) */
        TASK seq := seq // {2} // {1};
        /* CIF DECISION (443, 1011), (70, 50) */
        DECISION any;
                /* CIF ANSWER (398, 1081), (70, 23) */
                ('a'):
                /* CIF ANSWER (488, 1081), (70, 23) */
                ('b'):
        ENDDECISION;
        /* CIF DECISION (433, 1119), (89, 50) */
        DECISION myenum
        /* CIF COMMENT (542, 1126), (183, 35) */
        COMMENT 'Check case insensitivity';
                /* CIF ANSWER (250, 1189), (70, 23) */
                (a):
                /* CIF ANSWER (330, 1189), (70, 23) */
                (B):
                /* CIF ANSWER (410, 1189), (70, 23) */
                (c):
                /* CIF ANSWER (488, 1189), (70, 23) */
                (d):
                /* CIF ANSWER (576, 1189), (70, 23) */
                (Ee):
        ENDDECISION;
        /* CIF DECISION (408, 1227), (138, 50) */
        DECISION present(choice)
        /* CIF COMMENT (566, 1234), (183, 35) */
        COMMENT 'Check case insensitivity';
                /* CIF ANSWER (361, 1297), (70, 23) */
                (cde2):
                /* CIF ANSWER (532, 1297), (70, 23) */
                ELSE:
        ENDDECISION;
        /* CIF NEXTSTATE (419, 1335), (116, 33) */
        NEXTSTATE Wait_for_GUI;
    /* CIF STATE (423, 163), (118, 50) */
    STATE Wait_for_GUI;
    ENDSTATE;
ENDPROCESS orchestrator;