'BEGIN'
    'INTEGER'
        I;
    'BOOLEAN'
        B;
    'PROCEDURE' LABELBYVALUE(L);
        'VALUE'
            L;
        'LABEL'
            L;
        ;
    'PROCEDURE' LABELBYNAME(L);
        'LABEL'
            L;
        'BEGIN'
        I := 1;
        'IF' B 'THEN'
            'GOTO' L
        'END';
    'SWITCH' S :=
        L1,
        L2;
    'INTEGER' 'PROCEDURE' NOTTOUSE;
        NOTTOUSE := SQRT( - 1);
    'INTEGER' 'PROCEDURE' ONE;
        ONE := 1;
    B := 'FALSE';
    LABELBYNAME(S(/NOTTOUSE/));
    B := 'TRUE';
    I := 2;
    LABELBYNAME(S(/I/));
   L1 :;
    OUTREAL(99,1);
   L2 :;
    OUTREAL(99,2);
    LABELBYVALUE(S(/ONE/));
'END'