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

Text File | 1988-05-03 | 1.7 KB | 105 lines

procedure z000222 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
        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 z000222;