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

Text File | 1988-05-03 | 14.1 KB | 605 lines

procedure z000234 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 =>
    block_51: declare exception_51: exception;
    begin -- block_51
    raise exception_51;
    exception -- block_51
    when others =>
    block_52: declare exception_52: exception;
    begin -- block_52
    raise exception_52;
    exception -- block_52
    when others =>
    block_53: declare exception_53: exception;
    begin -- block_53
    raise exception_53;
    exception -- block_53
    when others =>
    block_54: declare exception_54: exception;
    begin -- block_54
    raise exception_54;
    exception -- block_54
    when others =>
    block_55: declare exception_55: exception;
    begin -- block_55
    raise exception_55;
    exception -- block_55
    when others =>
    block_56: declare exception_56: exception;
    begin -- block_56
    raise exception_56;
    exception -- block_56
    when others =>
    block_57: declare exception_57: exception;
    begin -- block_57
    raise exception_57;
    exception -- block_57
    when others =>
    block_58: declare exception_58: exception;
    begin -- block_58
    raise exception_58;
    exception -- block_58
    when others =>
    block_59: declare exception_59: exception;
    begin -- block_59
    raise exception_59;
    exception -- block_59
    when others =>
    block_60: declare exception_60: exception;
    begin -- block_60
    raise exception_60;
    exception -- block_60
    when others =>
    block_61: declare exception_61: exception;
    begin -- block_61
    raise exception_61;
    exception -- block_61
    when others =>
    block_62: declare exception_62: exception;
    begin -- block_62
    raise exception_62;
    exception -- block_62
    when others =>
    block_63: declare exception_63: exception;
    begin -- block_63
    raise exception_63;
    exception -- block_63
    when others =>
    block_64: declare exception_64: exception;
    begin -- block_64
    raise exception_64;
    exception -- block_64
    when others =>
    block_65: declare exception_65: exception;
    begin -- block_65
    raise exception_65;
    exception -- block_65
    when others =>
    block_66: declare exception_66: exception;
    begin -- block_66
    raise exception_66;
    exception -- block_66
    when others =>
    block_67: declare exception_67: exception;
    begin -- block_67
    raise exception_67;
    exception -- block_67
    when others =>
    block_68: declare exception_68: exception;
    begin -- block_68
    raise exception_68;
    exception -- block_68
    when others =>
    block_69: declare exception_69: exception;
    begin -- block_69
    raise exception_69;
    exception -- block_69
    when others =>
    block_70: declare exception_70: exception;
    begin -- block_70
    raise exception_70;
    exception -- block_70
    when others =>
    block_71: declare exception_71: exception;
    begin -- block_71
    raise exception_71;
    exception -- block_71
    when others =>
    block_72: declare exception_72: exception;
    begin -- block_72
    raise exception_72;
    exception -- block_72
    when others =>
    block_73: declare exception_73: exception;
    begin -- block_73
    raise exception_73;
    exception -- block_73
    when others =>
    block_74: declare exception_74: exception;
    begin -- block_74
    raise exception_74;
    exception -- block_74
    when others =>
    block_75: declare exception_75: exception;
    begin -- block_75
    raise exception_75;
    exception -- block_75
    when others =>
    block_76: declare exception_76: exception;
    begin -- block_76
    raise exception_76;
    exception -- block_76
    when others =>
    block_77: declare exception_77: exception;
    begin -- block_77
    raise exception_77;
    exception -- block_77
    when others =>
    block_78: declare exception_78: exception;
    begin -- block_78
    raise exception_78;
    exception -- block_78
    when others =>
    block_79: declare exception_79: exception;
    begin -- block_79
    raise exception_79;
    exception -- block_79
    when others =>
    block_80: declare exception_80: exception;
    begin -- block_80
    raise exception_80;
    exception -- block_80
    when others =>
    block_81: declare exception_81: exception;
    begin -- block_81
    raise exception_81;
    exception -- block_81
    when others =>
    block_82: declare exception_82: exception;
    begin -- block_82
    raise exception_82;
    exception -- block_82
    when others =>
    block_83: declare exception_83: exception;
    begin -- block_83
    raise exception_83;
    exception -- block_83
    when others =>
    block_84: declare exception_84: exception;
    begin -- block_84
    raise exception_84;
    exception -- block_84
    when others =>
    block_85: declare exception_85: exception;
    begin -- block_85
    raise exception_85;
    exception -- block_85
    when others =>
    block_86: declare exception_86: exception;
    begin -- block_86
    raise exception_86;
    exception -- block_86
    when others =>
    block_87: declare exception_87: exception;
    begin -- block_87
    raise exception_87;
    exception -- block_87
    when others =>
    block_88: declare exception_88: exception;
    begin -- block_88
    raise exception_88;
    exception -- block_88
    when others =>
    block_89: declare exception_89: exception;
    begin -- block_89
    raise exception_89;
    exception -- block_89
    when others =>
    block_90: declare exception_90: exception;
    begin -- block_90
    raise exception_90;
    exception -- block_90
    when others =>
    block_91: declare exception_91: exception;
    begin -- block_91
    raise exception_91;
    exception -- block_91
    when others =>
    block_92: declare exception_92: exception;
    begin -- block_92
    raise exception_92;
    exception -- block_92
    when others =>
    block_93: declare exception_93: exception;
    begin -- block_93
    raise exception_93;
    exception -- block_93
    when others =>
    block_94: declare exception_94: exception;
    begin -- block_94
    raise exception_94;
    exception -- block_94
    when others =>
    block_95: declare exception_95: exception;
    begin -- block_95
    raise exception_95;
    exception -- block_95
    when others =>
    block_96: declare exception_96: exception;
    begin -- block_96
    raise exception_96;
    exception -- block_96
    when others =>
    block_97: declare exception_97: exception;
    begin -- block_97
    raise exception_97;
    exception -- block_97
    when others =>
    block_98: declare exception_98: exception;
    begin -- block_98
    raise exception_98;
    exception -- block_98
    when others =>
    block_99: declare exception_99: exception;
    begin -- block_99
    raise exception_99;
    exception -- block_99
    when others =>
    block_100: declare exception_100: exception;
    begin -- block_100
    raise exception_100;
    exception -- block_100
    when others =>
        null;
    end block_100;
    end block_99;
    end block_98;
    end block_97;
    end block_96;
    end block_95;
    end block_94;
    end block_93;
    end block_92;
    end block_91;
    end block_90;
    end block_89;
    end block_88;
    end block_87;
    end block_86;
    end block_85;
    end block_84;
    end block_83;
    end block_82;
    end block_81;
    end block_80;
    end block_79;
    end block_78;
    end block_77;
    end block_76;
    end block_75;
    end block_74;
    end block_73;
    end block_72;
    end block_71;
    end block_70;
    end block_69;
    end block_68;
    end block_67;
    end block_66;
    end block_65;
    end block_64;
    end block_63;
    end block_62;
    end block_61;
    end block_60;
    end block_59;
    end block_58;
    end block_57;
    end block_56;
    end block_55;
    end block_54;
    end block_53;
    end block_52;
    end block_51;
    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 z000234;