
'BEGIN'
    'REAL' 
        a, 
        x; 
    x := - 10.0; 
    a := ('IF' x < 0 'THEN' x - 1 'ELSE' 'IF' x > 1 'THEN' x + 1 'ELSE'
        x; 
'END' 


!ALGOL

'BEGIN'
    'REAL' 
        x; 
    y; 
    z; 
    x := + 6.0; 
    y := - 2.931; 
    z := 4^.2; 
'END' 


!ALGOL

'BEGIN'
    'COMMENT' library 1;
    'REAL' 
        a, 
        x; 
    x := 0.8; 
    a := ('IF' x >= 0 'AND' x <= 1 'THEN' x * x - 3 * x + 4 'ELSE'
        0); 
       outreal(a);
'END'




!ALGOL
'BEGIN'
'INTEGER' j,k;
'ARRAY' a[0:3];
k := 2;
'FOR' j := 1 'STEP' 1 'UNTIL' k
'BEGIN'
i := 0;
'END';
'END'

!ALGOL

'BEGIN'
    'INTEGER' 
        i, 
        j; 
    'REAL' 'ARRAY' 
        cat(1 : 15); 
    
'END' 


!ALGOL

'BEGIN'
    'COMMENT' library 1;
    
    'COMMENT'   use of a procedure;
    
    'REAL' 
        a, 
        b, 
        ; 
    'PROCEDURE' example(x, y)result : (r); 
        'VALUE' 
            x, 
            y; 
        'REAL' 
            x, 
            y, 
            r; 
        'BEGIN'
        x := x + y; 
        r := x^2 + y^2
        'END'; 
    
    a := 1; 
    b := 2; 
    example(a, a + b, r); 
outreal(1,r)
'END' 



!ALGOL

'BEGIN'
    'SWITCH' path := 
        p1, 
        p2; 
    'INTEGER' 
        n, 
        i; 
    i := 0; 
    label 1 :; 
    i := i + 1; 
    'IF' i = 2 'THEN' 
        'GOTO' stop; 
    n := 0; 
    'GOTO' 
        'IF' p > 0 'THEN' 
            path(n)
        'ELSE'
            label 1; 
    p1 := p - 1; 
    p2 := p - 1; 
    stop :; 
'END'



!ALGOL

'BEGIN'
    'INTEGER' 
        i; 
    'REAL' 
        x; 
    'ARRAY' 
        a[0, 3]; 
    i := 1; 
    'FOR' x := 1.0, 
        2.0, 
        3.0 'DO'
        'BEGIN'
        a[i] := x; 
        i := i + 1
        'END'; 
'END' 


!ALGOL

'BEGIN'
    'INTEGER' 
        k; 
    k := 0; 
    'IF' k = 0'GOTO' finish 'ELSE' 
        k := k + 1; 
    finish :; 
'END' 




!ALGOL

'BEGIN'
    'REAL' 
        x'INTEGER' i; 
    'ARRAY' 
        a[0 : 3]; 
    i := 0; 
    'FOR' x := 1.23, 
        2.34, 
        3.45 'DO'
        'BEGIN'
        a[i] := x; 
        i := i + 1
        'END'; 
'END' 


!KDF9
