'BEGIN'
    'BOOLEAN'
        ASSIGN;
    'PROCEDURE' P(X);
        'REAL'
            X;
        'BEGIN'
        OUTREAL(99, X);
        'IF' ASSIGN 'THEN'
            X := 3.14;
        'END';
    'REAL'
        X,
        Y;
    ASSIGN := 'FALSE';
    P(1.0);
    X := Y := 2.0;
    P(X + Y);
    ASSIGN := 'TRUE';
    P(X);
    P(1.0);
    OUTREAL(99, 1.0)
'END'