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

Text File | 1988-05-03 | 7.0 KB | 305 lines

procedure z000233 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 =>
    block_21: declare exception_21: exception;
    begin -- block_21
    raise exception_21;
    exception -- block_21
    when others =>
    block_22: declare exception_22: exception;
    begin -- block_22
    raise exception_22;
    exception -- block_22
    when others =>
    block_23: declare exception_23: exception;
    begin -- block_23
    raise exception_23;
    exception -- block_23
    when others =>
    block_24: declare exception_24: exception;
    begin -- block_24
    raise exception_24;
    exception -- block_24
    when others =>
    block_25: declare exception_25: exception;
    begin -- block_25
    raise exception_25;
    exception -- block_25
    when others =>
    block_26: declare exception_26: exception;
    begin -- block_26
    raise exception_26;
    exception -- block_26
    when others =>
    block_27: declare exception_27: exception;
    begin -- block_27
    raise exception_27;
    exception -- block_27
    when others =>
    block_28: declare exception_28: exception;
    begin -- block_28
    raise exception_28;
    exception -- block_28
    when others =>
    block_29: declare exception_29: exception;
    begin -- block_29
    raise exception_29;
    exception -- block_29
    when others =>
    block_30: declare exception_30: exception;
    begin -- block_30
    raise exception_30;
    exception -- block_30
    when others =>
    block_31: declare exception_31: exception;
    begin -- block_31
    raise exception_31;
    exception -- block_31
    when others =>
    block_32: declare exception_32: exception;
    begin -- block_32
    raise exception_32;
    exception -- block_32
    when others =>
    block_33: declare exception_33: exception;
    begin -- block_33
    raise exception_33;
    exception -- block_33
    when others =>
    block_34: declare exception_34: exception;
    begin -- block_34
    raise exception_34;
    exception -- block_34
    when others =>
    block_35: declare exception_35: exception;
    begin -- block_35
    raise exception_35;
    exception -- block_35
    when others =>
    block_36: declare exception_36: exception;
    begin -- block_36
    raise exception_36;
    exception -- block_36
    when others =>
    block_37: declare exception_37: exception;
    begin -- block_37
    raise exception_37;
    exception -- block_37
    when others =>
    block_38: declare exception_38: exception;
    begin -- block_38
    raise exception_38;
    exception -- block_38
    when others =>
    block_39: declare exception_39: exception;
    begin -- block_39
    raise exception_39;
    exception -- block_39
    when others =>
    block_40: declare exception_40: exception;
    begin -- block_40
    raise exception_40;
    exception -- block_40
    when others =>
    block_41: declare exception_41: exception;
    begin -- block_41
    raise exception_41;
    exception -- block_41
    when others =>
    block_42: declare exception_42: exception;
    begin -- block_42
    raise exception_42;
    exception -- block_42
    when others =>
    block_43: declare exception_43: exception;
    begin -- block_43
    raise exception_43;
    exception -- block_43
    when others =>
    block_44: declare exception_44: exception;
    begin -- block_44
    raise exception_44;
    exception -- block_44
    when others =>
    block_45: declare exception_45: exception;
    begin -- block_45
    raise exception_45;
    exception -- block_45
    when others =>
    block_46: declare exception_46: exception;
    begin -- block_46
    raise exception_46;
    exception -- block_46
    when others =>
    block_47: declare exception_47: exception;
    begin -- block_47
    raise exception_47;
    exception -- block_47
    when others =>
    block_48: declare exception_48: exception;
    begin -- block_48
    raise exception_48;
    exception -- block_48
    when others =>
    block_49: declare exception_49: exception;
    begin -- block_49
    raise exception_49;
    exception -- block_49
    when others =>
    block_50: declare exception_50: exception;
    begin -- block_50
    raise exception_50;
    exception -- block_50
    when others =>
        null;
    end block_50;
    end block_49;
    end block_48;
    end block_47;
    end block_46;
    end block_45;
    end block_44;
    end block_43;
    end block_42;
    end block_41;
    end block_40;
    end block_39;
    end block_38;
    end block_37;
    end block_36;
    end block_35;
    end block_34;
    end block_33;
    end block_32;
    end block_31;
    end block_30;
    end block_29;
    end block_28;
    end block_27;
    end block_26;
    end block_25;
    end block_24;
    end block_23;
    end block_22;
    end block_21;
    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 z000233;