
'BEGIN'
'COMMENT' library 1;
    'INTEGER' 
        i, 
        p; 
    i := 0; 
    'FOR' p := 1 'STEP' 1 'UNTIL' 4 'DO'
        'BEGIN'
        'OWN' 'INTEGER' 
            i; 
        'IF' p = 1 'THEN' 
            i := 3
        'ELSE'
            i := 2 * i; 
        'BEGIN'
            'INTEGER' 
                j, 
                i; 
            j := 4; 
            i := 0
        'END'; 
        outreal(1, i); 
        'END'; 
'END' 


!ALGOL

'BEGIN'
'COMMENT' library 1;
    'INTEGER' 
        i, 
        p; 
    i := 0; 
    'FOR' p := 1 'STEP' 1 'UNTIL' 4 'DO'
        'BEGIN'
        'OWN' 'INTEGER' 
            i; 
        'IF' p = 1 'THEN' 
            i := 3
        'ELSE'
            i := 2 * i; 
        'BEGIN'
            'OWN' 'INTEGER' 
                j, 
                i; 
            i := 0; 
            'IF' i = 0 'THEN' 
                j := 4
            'ELSE'
                j := 4 * i; 
        'END'; 
        outreal(1, i); 
        i := 0; 
        'END'; 
    i := 0; 
'END' 


!ALGOL

'BEGIN'
'COMMENT' library 1;
    'INTEGER' 
        i, 
        p; 
    i := 0; 
    'FOR' p := 1 'STEP' 1 'UNTIL' 4 'DO'
        'BEGIN'
        'OWN' 'INTEGER' 
            i; 
        'IF' p = 1 'THEN' 
            i := 3
        'ELSE'
            i := 2 * i; 
        'BEGIN'
            'OWN' 'INTEGER' 
                j, 
                i; 
            'IF' i = 0 'THEN' 
                j := 4
            'ELSE'
                j := 4 * i; 
            outreal(1, j); 
        'END'; 
        i := 0; 
        'END'; 
    i := 0; 
'END' 



!ALGOL

'BEGIN'

    'COMMENT' library 1;

    'REAL' 
        x; 
    x := 1.; 
    outreal(1, x); 
'END' 


!ALGOL

'BEGIN'

    'COMMENT' library 1;

    'REAL' 
        x; 
    x := 1.@; 
    outreal(1, x); 
'END' 


!ALGOL

'BEGIN'

    'COMMENT' library 1;

    'REAL' 
        x; 
    x := @+;outreal(1, x); 
'END' 



!ALGOL

'BEGIN'

    'COMMENT' library 1;

    'REAL' 
        x; 
    x := @; 
    outreal(1, x); 
'END' 


!ALGOL

'BEGIN'

    'COMMENT' library 1;

    'REAL' 
        x; 
    x := .; 
    outreal(1, x); 
'END' 


!ALGOL

'BEGIN'

    'COMMENT' library 1;

    'REAL' 
        x; 
    x := @-1000; 
    outreal(1, x); 
'END' 




!ALGOL

'BEGIN'

    'COMMENT' library 1;

    'INTEGER' 
        i; 
    'PROCEDURE' p; 
        'BEGIN'
        'INTEGER' 
            j; 
        'PROCEDURE' q; 
            'IF' i > 10 'THEN' 
                'GOTO' l; 

        j := i := i + 1; 
        q; 
        outreal(1, j); 
        p; 
        l :; 
        outreal(1, j); 
        'END'; 

    i := 1; 
    p; 
'END' 


!KDF9
