home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000192.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  9.5 KB  |  209 lines
  1. procedure z000192 is
  2.     procedure procedure_1;
  3.     procedure procedure_2 renames procedure_1;
  4.     procedure procedure_3 renames procedure_2;
  5.     procedure procedure_4 renames procedure_3;
  6.     procedure procedure_5 renames procedure_4;
  7.     procedure procedure_6 renames procedure_5;
  8.     procedure procedure_7 renames procedure_6;
  9.     procedure procedure_8 renames procedure_7;
  10.     procedure procedure_9 renames procedure_8;
  11.     procedure procedure_10 renames procedure_9;
  12.     procedure procedure_11 renames procedure_10;
  13.     procedure procedure_12 renames procedure_11;
  14.     procedure procedure_13 renames procedure_12;
  15.     procedure procedure_14 renames procedure_13;
  16.     procedure procedure_15 renames procedure_14;
  17.     procedure procedure_16 renames procedure_15;
  18.     procedure procedure_17 renames procedure_16;
  19.     procedure procedure_18 renames procedure_17;
  20.     procedure procedure_19 renames procedure_18;
  21.     procedure procedure_20 renames procedure_19;
  22.     procedure procedure_21 renames procedure_20;
  23.     procedure procedure_22 renames procedure_21;
  24.     procedure procedure_23 renames procedure_22;
  25.     procedure procedure_24 renames procedure_23;
  26.     procedure procedure_25 renames procedure_24;
  27.     procedure procedure_26 renames procedure_25;
  28.     procedure procedure_27 renames procedure_26;
  29.     procedure procedure_28 renames procedure_27;
  30.     procedure procedure_29 renames procedure_28;
  31.     procedure procedure_30 renames procedure_29;
  32.     procedure procedure_31 renames procedure_30;
  33.     procedure procedure_32 renames procedure_31;
  34.     procedure procedure_33 renames procedure_32;
  35.     procedure procedure_34 renames procedure_33;
  36.     procedure procedure_35 renames procedure_34;
  37.     procedure procedure_36 renames procedure_35;
  38.     procedure procedure_37 renames procedure_36;
  39.     procedure procedure_38 renames procedure_37;
  40.     procedure procedure_39 renames procedure_38;
  41.     procedure procedure_40 renames procedure_39;
  42.     procedure procedure_41 renames procedure_40;
  43.     procedure procedure_42 renames procedure_41;
  44.     procedure procedure_43 renames procedure_42;
  45.     procedure procedure_44 renames procedure_43;
  46.     procedure procedure_45 renames procedure_44;
  47.     procedure procedure_46 renames procedure_45;
  48.     procedure procedure_47 renames procedure_46;
  49.     procedure procedure_48 renames procedure_47;
  50.     procedure procedure_49 renames procedure_48;
  51.     procedure procedure_50 renames procedure_49;
  52.     procedure procedure_51 renames procedure_50;
  53.     procedure procedure_52 renames procedure_51;
  54.     procedure procedure_53 renames procedure_52;
  55.     procedure procedure_54 renames procedure_53;
  56.     procedure procedure_55 renames procedure_54;
  57.     procedure procedure_56 renames procedure_55;
  58.     procedure procedure_57 renames procedure_56;
  59.     procedure procedure_58 renames procedure_57;
  60.     procedure procedure_59 renames procedure_58;
  61.     procedure procedure_60 renames procedure_59;
  62.     procedure procedure_61 renames procedure_60;
  63.     procedure procedure_62 renames procedure_61;
  64.     procedure procedure_63 renames procedure_62;
  65.     procedure procedure_64 renames procedure_63;
  66.     procedure procedure_65 renames procedure_64;
  67.     procedure procedure_66 renames procedure_65;
  68.     procedure procedure_67 renames procedure_66;
  69.     procedure procedure_68 renames procedure_67;
  70.     procedure procedure_69 renames procedure_68;
  71.     procedure procedure_70 renames procedure_69;
  72.     procedure procedure_71 renames procedure_70;
  73.     procedure procedure_72 renames procedure_71;
  74.     procedure procedure_73 renames procedure_72;
  75.     procedure procedure_74 renames procedure_73;
  76.     procedure procedure_75 renames procedure_74;
  77.     procedure procedure_76 renames procedure_75;
  78.     procedure procedure_77 renames procedure_76;
  79.     procedure procedure_78 renames procedure_77;
  80.     procedure procedure_79 renames procedure_78;
  81.     procedure procedure_80 renames procedure_79;
  82.     procedure procedure_81 renames procedure_80;
  83.     procedure procedure_82 renames procedure_81;
  84.     procedure procedure_83 renames procedure_82;
  85.     procedure procedure_84 renames procedure_83;
  86.     procedure procedure_85 renames procedure_84;
  87.     procedure procedure_86 renames procedure_85;
  88.     procedure procedure_87 renames procedure_86;
  89.     procedure procedure_88 renames procedure_87;
  90.     procedure procedure_89 renames procedure_88;
  91.     procedure procedure_90 renames procedure_89;
  92.     procedure procedure_91 renames procedure_90;
  93.     procedure procedure_92 renames procedure_91;
  94.     procedure procedure_93 renames procedure_92;
  95.     procedure procedure_94 renames procedure_93;
  96.     procedure procedure_95 renames procedure_94;
  97.     procedure procedure_96 renames procedure_95;
  98.     procedure procedure_97 renames procedure_96;
  99.     procedure procedure_98 renames procedure_97;
  100.     procedure procedure_99 renames procedure_98;
  101.     procedure procedure_100 renames procedure_99;
  102.     procedure procedure_101 renames procedure_100;
  103.     procedure procedure_102 renames procedure_101;
  104.     procedure procedure_103 renames procedure_102;
  105.     procedure procedure_104 renames procedure_103;
  106.     procedure procedure_105 renames procedure_104;
  107.     procedure procedure_106 renames procedure_105;
  108.     procedure procedure_107 renames procedure_106;
  109.     procedure procedure_108 renames procedure_107;
  110.     procedure procedure_109 renames procedure_108;
  111.     procedure procedure_110 renames procedure_109;
  112.     procedure procedure_111 renames procedure_110;
  113.     procedure procedure_112 renames procedure_111;
  114.     procedure procedure_113 renames procedure_112;
  115.     procedure procedure_114 renames procedure_113;
  116.     procedure procedure_115 renames procedure_114;
  117.     procedure procedure_116 renames procedure_115;
  118.     procedure procedure_117 renames procedure_116;
  119.     procedure procedure_118 renames procedure_117;
  120.     procedure procedure_119 renames procedure_118;
  121.     procedure procedure_120 renames procedure_119;
  122.     procedure procedure_121 renames procedure_120;
  123.     procedure procedure_122 renames procedure_121;
  124.     procedure procedure_123 renames procedure_122;
  125.     procedure procedure_124 renames procedure_123;
  126.     procedure procedure_125 renames procedure_124;
  127.     procedure procedure_126 renames procedure_125;
  128.     procedure procedure_127 renames procedure_126;
  129.     procedure procedure_128 renames procedure_127;
  130.     procedure procedure_129 renames procedure_128;
  131.     procedure procedure_130 renames procedure_129;
  132.     procedure procedure_131 renames procedure_130;
  133.     procedure procedure_132 renames procedure_131;
  134.     procedure procedure_133 renames procedure_132;
  135.     procedure procedure_134 renames procedure_133;
  136.     procedure procedure_135 renames procedure_134;
  137.     procedure procedure_136 renames procedure_135;
  138.     procedure procedure_137 renames procedure_136;
  139.     procedure procedure_138 renames procedure_137;
  140.     procedure procedure_139 renames procedure_138;
  141.     procedure procedure_140 renames procedure_139;
  142.     procedure procedure_141 renames procedure_140;
  143.     procedure procedure_142 renames procedure_141;
  144.     procedure procedure_143 renames procedure_142;
  145.     procedure procedure_144 renames procedure_143;
  146.     procedure procedure_145 renames procedure_144;
  147.     procedure procedure_146 renames procedure_145;
  148.     procedure procedure_147 renames procedure_146;
  149.     procedure procedure_148 renames procedure_147;
  150.     procedure procedure_149 renames procedure_148;
  151.     procedure procedure_150 renames procedure_149;
  152.     procedure procedure_151 renames procedure_150;
  153.     procedure procedure_152 renames procedure_151;
  154.     procedure procedure_153 renames procedure_152;
  155.     procedure procedure_154 renames procedure_153;
  156.     procedure procedure_155 renames procedure_154;
  157.     procedure procedure_156 renames procedure_155;
  158.     procedure procedure_157 renames procedure_156;
  159.     procedure procedure_158 renames procedure_157;
  160.     procedure procedure_159 renames procedure_158;
  161.     procedure procedure_160 renames procedure_159;
  162.     procedure procedure_161 renames procedure_160;
  163.     procedure procedure_162 renames procedure_161;
  164.     procedure procedure_163 renames procedure_162;
  165.     procedure procedure_164 renames procedure_163;
  166.     procedure procedure_165 renames procedure_164;
  167.     procedure procedure_166 renames procedure_165;
  168.     procedure procedure_167 renames procedure_166;
  169.     procedure procedure_168 renames procedure_167;
  170.     procedure procedure_169 renames procedure_168;
  171.     procedure procedure_170 renames procedure_169;
  172.     procedure procedure_171 renames procedure_170;
  173.     procedure procedure_172 renames procedure_171;
  174.     procedure procedure_173 renames procedure_172;
  175.     procedure procedure_174 renames procedure_173;
  176.     procedure procedure_175 renames procedure_174;
  177.     procedure procedure_176 renames procedure_175;
  178.     procedure procedure_177 renames procedure_176;
  179.     procedure procedure_178 renames procedure_177;
  180.     procedure procedure_179 renames procedure_178;
  181.     procedure procedure_180 renames procedure_179;
  182.     procedure procedure_181 renames procedure_180;
  183.     procedure procedure_182 renames procedure_181;
  184.     procedure procedure_183 renames procedure_182;
  185.     procedure procedure_184 renames procedure_183;
  186.     procedure procedure_185 renames procedure_184;
  187.     procedure procedure_186 renames procedure_185;
  188.     procedure procedure_187 renames procedure_186;
  189.     procedure procedure_188 renames procedure_187;
  190.     procedure procedure_189 renames procedure_188;
  191.     procedure procedure_190 renames procedure_189;
  192.     procedure procedure_191 renames procedure_190;
  193.     procedure procedure_192 renames procedure_191;
  194.     procedure procedure_193 renames procedure_192;
  195.     procedure procedure_194 renames procedure_193;
  196.     procedure procedure_195 renames procedure_194;
  197.     procedure procedure_196 renames procedure_195;
  198.     procedure procedure_197 renames procedure_196;
  199.     procedure procedure_198 renames procedure_197;
  200.     procedure procedure_199 renames procedure_198;
  201.     procedure procedure_200 renames procedure_199;
  202.     procedure procedure_1 is
  203.         begin
  204.         delay 10.0;
  205.         end procedure_1;
  206.     begin
  207.     procedure_200;
  208.     end z000192;
  209.