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

Text File | 1988-05-03 | 3.4 KB | 205 lines

procedure z000223 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
    block_21: begin
    block_22: begin
    block_23: begin
    block_24: begin
    block_25: begin
    block_26: begin
    block_27: begin
    block_28: begin
    block_29: begin
    block_30: begin
    block_31: begin
    block_32: begin
    block_33: begin
    block_34: begin
    block_35: begin
    block_36: begin
    block_37: begin
    block_38: begin
    block_39: begin
    block_40: begin
    block_41: begin
    block_42: begin
    block_43: begin
    block_44: begin
    block_45: begin
    block_46: begin
    block_47: begin
    block_48: begin
    block_49: begin
    block_50: begin
    block_51: begin
    block_52: begin
    block_53: begin
    block_54: begin
    block_55: begin
    block_56: begin
    block_57: begin
    block_58: begin
    block_59: begin
    block_60: begin
    block_61: begin
    block_62: begin
    block_63: begin
    block_64: begin
    block_65: begin
    block_66: begin
    block_67: begin
    block_68: begin
    block_69: begin
    block_70: begin
    block_71: begin
    block_72: begin
    block_73: begin
    block_74: begin
    block_75: begin
    block_76: begin
    block_77: begin
    block_78: begin
    block_79: begin
    block_80: begin
    block_81: begin
    block_82: begin
    block_83: begin
    block_84: begin
    block_85: begin
    block_86: begin
    block_87: begin
    block_88: begin
    block_89: begin
    block_90: begin
    block_91: begin
    block_92: begin
    block_93: begin
    block_94: begin
    block_95: begin
    block_96: begin
    block_97: begin
    block_98: begin
    block_99: begin
    block_100: begin
        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 z000223;