Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/piwg/z000221.ada

Text File | 1988-05-03 | 722 b | 45 lines

procedure z000221 is
    begin
    block_1: begin
    block_2: begin
    block_3: begin
    block_4: begin
    block_5: begin
    block_6: begin
    block_7: begin
    block_8: begin
    block_9: begin
    block_10: begin
    block_11: begin
    block_12: begin
    block_13: begin
    block_14: begin
    block_15: begin
    block_16: begin
    block_17: begin
    block_18: begin
    block_19: begin
    block_20: begin
        null;
    end block_20;
    end block_19;
    end block_18;
    end block_17;
    end block_16;
    end block_15;
    end block_14;
    end block_13;
    end block_12;
    end block_11;
    end block_10;
    end block_9;
    end block_8;
    end block_7;
    end block_6;
    end block_5;
    end block_4;
    end block_3;
    end block_2;
    end block_1;
    end z000221;