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

Text File | 1988-05-03 | 2.8 KB | 125 lines

procedure z000232 is
    begin
    block_1: declare exception_1: exception;
    begin -- block_1
    raise exception_1;
    exception -- block_1
    when others =>
    block_2: declare exception_2: exception;
    begin -- block_2
    raise exception_2;
    exception -- block_2
    when others =>
    block_3: declare exception_3: exception;
    begin -- block_3
    raise exception_3;
    exception -- block_3
    when others =>
    block_4: declare exception_4: exception;
    begin -- block_4
    raise exception_4;
    exception -- block_4
    when others =>
    block_5: declare exception_5: exception;
    begin -- block_5
    raise exception_5;
    exception -- block_5
    when others =>
    block_6: declare exception_6: exception;
    begin -- block_6
    raise exception_6;
    exception -- block_6
    when others =>
    block_7: declare exception_7: exception;
    begin -- block_7
    raise exception_7;
    exception -- block_7
    when others =>
    block_8: declare exception_8: exception;
    begin -- block_8
    raise exception_8;
    exception -- block_8
    when others =>
    block_9: declare exception_9: exception;
    begin -- block_9
    raise exception_9;
    exception -- block_9
    when others =>
    block_10: declare exception_10: exception;
    begin -- block_10
    raise exception_10;
    exception -- block_10
    when others =>
    block_11: declare exception_11: exception;
    begin -- block_11
    raise exception_11;
    exception -- block_11
    when others =>
    block_12: declare exception_12: exception;
    begin -- block_12
    raise exception_12;
    exception -- block_12
    when others =>
    block_13: declare exception_13: exception;
    begin -- block_13
    raise exception_13;
    exception -- block_13
    when others =>
    block_14: declare exception_14: exception;
    begin -- block_14
    raise exception_14;
    exception -- block_14
    when others =>
    block_15: declare exception_15: exception;
    begin -- block_15
    raise exception_15;
    exception -- block_15
    when others =>
    block_16: declare exception_16: exception;
    begin -- block_16
    raise exception_16;
    exception -- block_16
    when others =>
    block_17: declare exception_17: exception;
    begin -- block_17
    raise exception_17;
    exception -- block_17
    when others =>
    block_18: declare exception_18: exception;
    begin -- block_18
    raise exception_18;
    exception -- block_18
    when others =>
    block_19: declare exception_19: exception;
    begin -- block_19
    raise exception_19;
    exception -- block_19
    when others =>
    block_20: declare exception_20: exception;
    begin -- block_20
    raise exception_20;
    exception -- block_20
    when others =>
        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 z000232;