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

Text File | 1988-05-03 | 6.9 KB | 405 lines

procedure z000224 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
    block_101: begin
    block_102: begin
    block_103: begin
    block_104: begin
    block_105: begin
    block_106: begin
    block_107: begin
    block_108: begin
    block_109: begin
    block_110: begin
    block_111: begin
    block_112: begin
    block_113: begin
    block_114: begin
    block_115: begin
    block_116: begin
    block_117: begin
    block_118: begin
    block_119: begin
    block_120: begin
    block_121: begin
    block_122: begin
    block_123: begin
    block_124: begin
    block_125: begin
    block_126: begin
    block_127: begin
    block_128: begin
    block_129: begin
    block_130: begin
    block_131: begin
    block_132: begin
    block_133: begin
    block_134: begin
    block_135: begin
    block_136: begin
    block_137: begin
    block_138: begin
    block_139: begin
    block_140: begin
    block_141: begin
    block_142: begin
    block_143: begin
    block_144: begin
    block_145: begin
    block_146: begin
    block_147: begin
    block_148: begin
    block_149: begin
    block_150: begin
    block_151: begin
    block_152: begin
    block_153: begin
    block_154: begin
    block_155: begin
    block_156: begin
    block_157: begin
    block_158: begin
    block_159: begin
    block_160: begin
    block_161: begin
    block_162: begin
    block_163: begin
    block_164: begin
    block_165: begin
    block_166: begin
    block_167: begin
    block_168: begin
    block_169: begin
    block_170: begin
    block_171: begin
    block_172: begin
    block_173: begin
    block_174: begin
    block_175: begin
    block_176: begin
    block_177: begin
    block_178: begin
    block_179: begin
    block_180: begin
    block_181: begin
    block_182: begin
    block_183: begin
    block_184: begin
    block_185: begin
    block_186: begin
    block_187: begin
    block_188: begin
    block_189: begin
    block_190: begin
    block_191: begin
    block_192: begin
    block_193: begin
    block_194: begin
    block_195: begin
    block_196: begin
    block_197: begin
    block_198: begin
    block_199: begin
    block_200: begin
        null;
    end block_200;
    end block_199;
    end block_198;
    end block_197;
    end block_196;
    end block_195;
    end block_194;
    end block_193;
    end block_192;
    end block_191;
    end block_190;
    end block_189;
    end block_188;
    end block_187;
    end block_186;
    end block_185;
    end block_184;
    end block_183;
    end block_182;
    end block_181;
    end block_180;
    end block_179;
    end block_178;
    end block_177;
    end block_176;
    end block_175;
    end block_174;
    end block_173;
    end block_172;
    end block_171;
    end block_170;
    end block_169;
    end block_168;
    end block_167;
    end block_166;
    end block_165;
    end block_164;
    end block_163;
    end block_162;
    end block_161;
    end block_160;
    end block_159;
    end block_158;
    end block_157;
    end block_156;
    end block_155;
    end block_154;
    end block_153;
    end block_152;
    end block_151;
    end block_150;
    end block_149;
    end block_148;
    end block_147;
    end block_146;
    end block_145;
    end block_144;
    end block_143;
    end block_142;
    end block_141;
    end block_140;
    end block_139;
    end block_138;
    end block_137;
    end block_136;
    end block_135;
    end block_134;
    end block_133;
    end block_132;
    end block_131;
    end block_130;
    end block_129;
    end block_128;
    end block_127;
    end block_126;
    end block_125;
    end block_124;
    end block_123;
    end block_122;
    end block_121;
    end block_120;
    end block_119;
    end block_118;
    end block_117;
    end block_116;
    end block_115;
    end block_114;
    end block_113;
    end block_112;
    end block_111;
    end block_110;
    end block_109;
    end block_108;
    end block_107;
    end block_106;
    end block_105;
    end block_104;
    end block_103;
    end block_102;
    end block_101;
    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 z000224;