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

Text File | 1988-05-03 | 23.8 KB | 509 lines

procedure z000193 is
    procedure procedure_1;
    procedure procedure_2 renames procedure_1;
    procedure procedure_3 renames procedure_2;
    procedure procedure_4 renames procedure_3;
    procedure procedure_5 renames procedure_4;
    procedure procedure_6 renames procedure_5;
    procedure procedure_7 renames procedure_6;
    procedure procedure_8 renames procedure_7;
    procedure procedure_9 renames procedure_8;
    procedure procedure_10 renames procedure_9;
    procedure procedure_11 renames procedure_10;
    procedure procedure_12 renames procedure_11;
    procedure procedure_13 renames procedure_12;
    procedure procedure_14 renames procedure_13;
    procedure procedure_15 renames procedure_14;
    procedure procedure_16 renames procedure_15;
    procedure procedure_17 renames procedure_16;
    procedure procedure_18 renames procedure_17;
    procedure procedure_19 renames procedure_18;
    procedure procedure_20 renames procedure_19;
    procedure procedure_21 renames procedure_20;
    procedure procedure_22 renames procedure_21;
    procedure procedure_23 renames procedure_22;
    procedure procedure_24 renames procedure_23;
    procedure procedure_25 renames procedure_24;
    procedure procedure_26 renames procedure_25;
    procedure procedure_27 renames procedure_26;
    procedure procedure_28 renames procedure_27;
    procedure procedure_29 renames procedure_28;
    procedure procedure_30 renames procedure_29;
    procedure procedure_31 renames procedure_30;
    procedure procedure_32 renames procedure_31;
    procedure procedure_33 renames procedure_32;
    procedure procedure_34 renames procedure_33;
    procedure procedure_35 renames procedure_34;
    procedure procedure_36 renames procedure_35;
    procedure procedure_37 renames procedure_36;
    procedure procedure_38 renames procedure_37;
    procedure procedure_39 renames procedure_38;
    procedure procedure_40 renames procedure_39;
    procedure procedure_41 renames procedure_40;
    procedure procedure_42 renames procedure_41;
    procedure procedure_43 renames procedure_42;
    procedure procedure_44 renames procedure_43;
    procedure procedure_45 renames procedure_44;
    procedure procedure_46 renames procedure_45;
    procedure procedure_47 renames procedure_46;
    procedure procedure_48 renames procedure_47;
    procedure procedure_49 renames procedure_48;
    procedure procedure_50 renames procedure_49;
    procedure procedure_51 renames procedure_50;
    procedure procedure_52 renames procedure_51;
    procedure procedure_53 renames procedure_52;
    procedure procedure_54 renames procedure_53;
    procedure procedure_55 renames procedure_54;
    procedure procedure_56 renames procedure_55;
    procedure procedure_57 renames procedure_56;
    procedure procedure_58 renames procedure_57;
    procedure procedure_59 renames procedure_58;
    procedure procedure_60 renames procedure_59;
    procedure procedure_61 renames procedure_60;
    procedure procedure_62 renames procedure_61;
    procedure procedure_63 renames procedure_62;
    procedure procedure_64 renames procedure_63;
    procedure procedure_65 renames procedure_64;
    procedure procedure_66 renames procedure_65;
    procedure procedure_67 renames procedure_66;
    procedure procedure_68 renames procedure_67;
    procedure procedure_69 renames procedure_68;
    procedure procedure_70 renames procedure_69;
    procedure procedure_71 renames procedure_70;
    procedure procedure_72 renames procedure_71;
    procedure procedure_73 renames procedure_72;
    procedure procedure_74 renames procedure_73;
    procedure procedure_75 renames procedure_74;
    procedure procedure_76 renames procedure_75;
    procedure procedure_77 renames procedure_76;
    procedure procedure_78 renames procedure_77;
    procedure procedure_79 renames procedure_78;
    procedure procedure_80 renames procedure_79;
    procedure procedure_81 renames procedure_80;
    procedure procedure_82 renames procedure_81;
    procedure procedure_83 renames procedure_82;
    procedure procedure_84 renames procedure_83;
    procedure procedure_85 renames procedure_84;
    procedure procedure_86 renames procedure_85;
    procedure procedure_87 renames procedure_86;
    procedure procedure_88 renames procedure_87;
    procedure procedure_89 renames procedure_88;
    procedure procedure_90 renames procedure_89;
    procedure procedure_91 renames procedure_90;
    procedure procedure_92 renames procedure_91;
    procedure procedure_93 renames procedure_92;
    procedure procedure_94 renames procedure_93;
    procedure procedure_95 renames procedure_94;
    procedure procedure_96 renames procedure_95;
    procedure procedure_97 renames procedure_96;
    procedure procedure_98 renames procedure_97;
    procedure procedure_99 renames procedure_98;
    procedure procedure_100 renames procedure_99;
    procedure procedure_101 renames procedure_100;
    procedure procedure_102 renames procedure_101;
    procedure procedure_103 renames procedure_102;
    procedure procedure_104 renames procedure_103;
    procedure procedure_105 renames procedure_104;
    procedure procedure_106 renames procedure_105;
    procedure procedure_107 renames procedure_106;
    procedure procedure_108 renames procedure_107;
    procedure procedure_109 renames procedure_108;
    procedure procedure_110 renames procedure_109;
    procedure procedure_111 renames procedure_110;
    procedure procedure_112 renames procedure_111;
    procedure procedure_113 renames procedure_112;
    procedure procedure_114 renames procedure_113;
    procedure procedure_115 renames procedure_114;
    procedure procedure_116 renames procedure_115;
    procedure procedure_117 renames procedure_116;
    procedure procedure_118 renames procedure_117;
    procedure procedure_119 renames procedure_118;
    procedure procedure_120 renames procedure_119;
    procedure procedure_121 renames procedure_120;
    procedure procedure_122 renames procedure_121;
    procedure procedure_123 renames procedure_122;
    procedure procedure_124 renames procedure_123;
    procedure procedure_125 renames procedure_124;
    procedure procedure_126 renames procedure_125;
    procedure procedure_127 renames procedure_126;
    procedure procedure_128 renames procedure_127;
    procedure procedure_129 renames procedure_128;
    procedure procedure_130 renames procedure_129;
    procedure procedure_131 renames procedure_130;
    procedure procedure_132 renames procedure_131;
    procedure procedure_133 renames procedure_132;
    procedure procedure_134 renames procedure_133;
    procedure procedure_135 renames procedure_134;
    procedure procedure_136 renames procedure_135;
    procedure procedure_137 renames procedure_136;
    procedure procedure_138 renames procedure_137;
    procedure procedure_139 renames procedure_138;
    procedure procedure_140 renames procedure_139;
    procedure procedure_141 renames procedure_140;
    procedure procedure_142 renames procedure_141;
    procedure procedure_143 renames procedure_142;
    procedure procedure_144 renames procedure_143;
    procedure procedure_145 renames procedure_144;
    procedure procedure_146 renames procedure_145;
    procedure procedure_147 renames procedure_146;
    procedure procedure_148 renames procedure_147;
    procedure procedure_149 renames procedure_148;
    procedure procedure_150 renames procedure_149;
    procedure procedure_151 renames procedure_150;
    procedure procedure_152 renames procedure_151;
    procedure procedure_153 renames procedure_152;
    procedure procedure_154 renames procedure_153;
    procedure procedure_155 renames procedure_154;
    procedure procedure_156 renames procedure_155;
    procedure procedure_157 renames procedure_156;
    procedure procedure_158 renames procedure_157;
    procedure procedure_159 renames procedure_158;
    procedure procedure_160 renames procedure_159;
    procedure procedure_161 renames procedure_160;
    procedure procedure_162 renames procedure_161;
    procedure procedure_163 renames procedure_162;
    procedure procedure_164 renames procedure_163;
    procedure procedure_165 renames procedure_164;
    procedure procedure_166 renames procedure_165;
    procedure procedure_167 renames procedure_166;
    procedure procedure_168 renames procedure_167;
    procedure procedure_169 renames procedure_168;
    procedure procedure_170 renames procedure_169;
    procedure procedure_171 renames procedure_170;
    procedure procedure_172 renames procedure_171;
    procedure procedure_173 renames procedure_172;
    procedure procedure_174 renames procedure_173;
    procedure procedure_175 renames procedure_174;
    procedure procedure_176 renames procedure_175;
    procedure procedure_177 renames procedure_176;
    procedure procedure_178 renames procedure_177;
    procedure procedure_179 renames procedure_178;
    procedure procedure_180 renames procedure_179;
    procedure procedure_181 renames procedure_180;
    procedure procedure_182 renames procedure_181;
    procedure procedure_183 renames procedure_182;
    procedure procedure_184 renames procedure_183;
    procedure procedure_185 renames procedure_184;
    procedure procedure_186 renames procedure_185;
    procedure procedure_187 renames procedure_186;
    procedure procedure_188 renames procedure_187;
    procedure procedure_189 renames procedure_188;
    procedure procedure_190 renames procedure_189;
    procedure procedure_191 renames procedure_190;
    procedure procedure_192 renames procedure_191;
    procedure procedure_193 renames procedure_192;
    procedure procedure_194 renames procedure_193;
    procedure procedure_195 renames procedure_194;
    procedure procedure_196 renames procedure_195;
    procedure procedure_197 renames procedure_196;
    procedure procedure_198 renames procedure_197;
    procedure procedure_199 renames procedure_198;
    procedure procedure_200 renames procedure_199;
    procedure procedure_201 renames procedure_200;
    procedure procedure_202 renames procedure_201;
    procedure procedure_203 renames procedure_202;
    procedure procedure_204 renames procedure_203;
    procedure procedure_205 renames procedure_204;
    procedure procedure_206 renames procedure_205;
    procedure procedure_207 renames procedure_206;
    procedure procedure_208 renames procedure_207;
    procedure procedure_209 renames procedure_208;
    procedure procedure_210 renames procedure_209;
    procedure procedure_211 renames procedure_210;
    procedure procedure_212 renames procedure_211;
    procedure procedure_213 renames procedure_212;
    procedure procedure_214 renames procedure_213;
    procedure procedure_215 renames procedure_214;
    procedure procedure_216 renames procedure_215;
    procedure procedure_217 renames procedure_216;
    procedure procedure_218 renames procedure_217;
    procedure procedure_219 renames procedure_218;
    procedure procedure_220 renames procedure_219;
    procedure procedure_221 renames procedure_220;
    procedure procedure_222 renames procedure_221;
    procedure procedure_223 renames procedure_222;
    procedure procedure_224 renames procedure_223;
    procedure procedure_225 renames procedure_224;
    procedure procedure_226 renames procedure_225;
    procedure procedure_227 renames procedure_226;
    procedure procedure_228 renames procedure_227;
    procedure procedure_229 renames procedure_228;
    procedure procedure_230 renames procedure_229;
    procedure procedure_231 renames procedure_230;
    procedure procedure_232 renames procedure_231;
    procedure procedure_233 renames procedure_232;
    procedure procedure_234 renames procedure_233;
    procedure procedure_235 renames procedure_234;
    procedure procedure_236 renames procedure_235;
    procedure procedure_237 renames procedure_236;
    procedure procedure_238 renames procedure_237;
    procedure procedure_239 renames procedure_238;
    procedure procedure_240 renames procedure_239;
    procedure procedure_241 renames procedure_240;
    procedure procedure_242 renames procedure_241;
    procedure procedure_243 renames procedure_242;
    procedure procedure_244 renames procedure_243;
    procedure procedure_245 renames procedure_244;
    procedure procedure_246 renames procedure_245;
    procedure procedure_247 renames procedure_246;
    procedure procedure_248 renames procedure_247;
    procedure procedure_249 renames procedure_248;
    procedure procedure_250 renames procedure_249;
    procedure procedure_251 renames procedure_250;
    procedure procedure_252 renames procedure_251;
    procedure procedure_253 renames procedure_252;
    procedure procedure_254 renames procedure_253;
    procedure procedure_255 renames procedure_254;
    procedure procedure_256 renames procedure_255;
    procedure procedure_257 renames procedure_256;
    procedure procedure_258 renames procedure_257;
    procedure procedure_259 renames procedure_258;
    procedure procedure_260 renames procedure_259;
    procedure procedure_261 renames procedure_260;
    procedure procedure_262 renames procedure_261;
    procedure procedure_263 renames procedure_262;
    procedure procedure_264 renames procedure_263;
    procedure procedure_265 renames procedure_264;
    procedure procedure_266 renames procedure_265;
    procedure procedure_267 renames procedure_266;
    procedure procedure_268 renames procedure_267;
    procedure procedure_269 renames procedure_268;
    procedure procedure_270 renames procedure_269;
    procedure procedure_271 renames procedure_270;
    procedure procedure_272 renames procedure_271;
    procedure procedure_273 renames procedure_272;
    procedure procedure_274 renames procedure_273;
    procedure procedure_275 renames procedure_274;
    procedure procedure_276 renames procedure_275;
    procedure procedure_277 renames procedure_276;
    procedure procedure_278 renames procedure_277;
    procedure procedure_279 renames procedure_278;
    procedure procedure_280 renames procedure_279;
    procedure procedure_281 renames procedure_280;
    procedure procedure_282 renames procedure_281;
    procedure procedure_283 renames procedure_282;
    procedure procedure_284 renames procedure_283;
    procedure procedure_285 renames procedure_284;
    procedure procedure_286 renames procedure_285;
    procedure procedure_287 renames procedure_286;
    procedure procedure_288 renames procedure_287;
    procedure procedure_289 renames procedure_288;
    procedure procedure_290 renames procedure_289;
    procedure procedure_291 renames procedure_290;
    procedure procedure_292 renames procedure_291;
    procedure procedure_293 renames procedure_292;
    procedure procedure_294 renames procedure_293;
    procedure procedure_295 renames procedure_294;
    procedure procedure_296 renames procedure_295;
    procedure procedure_297 renames procedure_296;
    procedure procedure_298 renames procedure_297;
    procedure procedure_299 renames procedure_298;
    procedure procedure_300 renames procedure_299;
    procedure procedure_301 renames procedure_300;
    procedure procedure_302 renames procedure_301;
    procedure procedure_303 renames procedure_302;
    procedure procedure_304 renames procedure_303;
    procedure procedure_305 renames procedure_304;
    procedure procedure_306 renames procedure_305;
    procedure procedure_307 renames procedure_306;
    procedure procedure_308 renames procedure_307;
    procedure procedure_309 renames procedure_308;
    procedure procedure_310 renames procedure_309;
    procedure procedure_311 renames procedure_310;
    procedure procedure_312 renames procedure_311;
    procedure procedure_313 renames procedure_312;
    procedure procedure_314 renames procedure_313;
    procedure procedure_315 renames procedure_314;
    procedure procedure_316 renames procedure_315;
    procedure procedure_317 renames procedure_316;
    procedure procedure_318 renames procedure_317;
    procedure procedure_319 renames procedure_318;
    procedure procedure_320 renames procedure_319;
    procedure procedure_321 renames procedure_320;
    procedure procedure_322 renames procedure_321;
    procedure procedure_323 renames procedure_322;
    procedure procedure_324 renames procedure_323;
    procedure procedure_325 renames procedure_324;
    procedure procedure_326 renames procedure_325;
    procedure procedure_327 renames procedure_326;
    procedure procedure_328 renames procedure_327;
    procedure procedure_329 renames procedure_328;
    procedure procedure_330 renames procedure_329;
    procedure procedure_331 renames procedure_330;
    procedure procedure_332 renames procedure_331;
    procedure procedure_333 renames procedure_332;
    procedure procedure_334 renames procedure_333;
    procedure procedure_335 renames procedure_334;
    procedure procedure_336 renames procedure_335;
    procedure procedure_337 renames procedure_336;
    procedure procedure_338 renames procedure_337;
    procedure procedure_339 renames procedure_338;
    procedure procedure_340 renames procedure_339;
    procedure procedure_341 renames procedure_340;
    procedure procedure_342 renames procedure_341;
    procedure procedure_343 renames procedure_342;
    procedure procedure_344 renames procedure_343;
    procedure procedure_345 renames procedure_344;
    procedure procedure_346 renames procedure_345;
    procedure procedure_347 renames procedure_346;
    procedure procedure_348 renames procedure_347;
    procedure procedure_349 renames procedure_348;
    procedure procedure_350 renames procedure_349;
    procedure procedure_351 renames procedure_350;
    procedure procedure_352 renames procedure_351;
    procedure procedure_353 renames procedure_352;
    procedure procedure_354 renames procedure_353;
    procedure procedure_355 renames procedure_354;
    procedure procedure_356 renames procedure_355;
    procedure procedure_357 renames procedure_356;
    procedure procedure_358 renames procedure_357;
    procedure procedure_359 renames procedure_358;
    procedure procedure_360 renames procedure_359;
    procedure procedure_361 renames procedure_360;
    procedure procedure_362 renames procedure_361;
    procedure procedure_363 renames procedure_362;
    procedure procedure_364 renames procedure_363;
    procedure procedure_365 renames procedure_364;
    procedure procedure_366 renames procedure_365;
    procedure procedure_367 renames procedure_366;
    procedure procedure_368 renames procedure_367;
    procedure procedure_369 renames procedure_368;
    procedure procedure_370 renames procedure_369;
    procedure procedure_371 renames procedure_370;
    procedure procedure_372 renames procedure_371;
    procedure procedure_373 renames procedure_372;
    procedure procedure_374 renames procedure_373;
    procedure procedure_375 renames procedure_374;
    procedure procedure_376 renames procedure_375;
    procedure procedure_377 renames procedure_376;
    procedure procedure_378 renames procedure_377;
    procedure procedure_379 renames procedure_378;
    procedure procedure_380 renames procedure_379;
    procedure procedure_381 renames procedure_380;
    procedure procedure_382 renames procedure_381;
    procedure procedure_383 renames procedure_382;
    procedure procedure_384 renames procedure_383;
    procedure procedure_385 renames procedure_384;
    procedure procedure_386 renames procedure_385;
    procedure procedure_387 renames procedure_386;
    procedure procedure_388 renames procedure_387;
    procedure procedure_389 renames procedure_388;
    procedure procedure_390 renames procedure_389;
    procedure procedure_391 renames procedure_390;
    procedure procedure_392 renames procedure_391;
    procedure procedure_393 renames procedure_392;
    procedure procedure_394 renames procedure_393;
    procedure procedure_395 renames procedure_394;
    procedure procedure_396 renames procedure_395;
    procedure procedure_397 renames procedure_396;
    procedure procedure_398 renames procedure_397;
    procedure procedure_399 renames procedure_398;
    procedure procedure_400 renames procedure_399;
    procedure procedure_401 renames procedure_400;
    procedure procedure_402 renames procedure_401;
    procedure procedure_403 renames procedure_402;
    procedure procedure_404 renames procedure_403;
    procedure procedure_405 renames procedure_404;
    procedure procedure_406 renames procedure_405;
    procedure procedure_407 renames procedure_406;
    procedure procedure_408 renames procedure_407;
    procedure procedure_409 renames procedure_408;
    procedure procedure_410 renames procedure_409;
    procedure procedure_411 renames procedure_410;
    procedure procedure_412 renames procedure_411;
    procedure procedure_413 renames procedure_412;
    procedure procedure_414 renames procedure_413;
    procedure procedure_415 renames procedure_414;
    procedure procedure_416 renames procedure_415;
    procedure procedure_417 renames procedure_416;
    procedure procedure_418 renames procedure_417;
    procedure procedure_419 renames procedure_418;
    procedure procedure_420 renames procedure_419;
    procedure procedure_421 renames procedure_420;
    procedure procedure_422 renames procedure_421;
    procedure procedure_423 renames procedure_422;
    procedure procedure_424 renames procedure_423;
    procedure procedure_425 renames procedure_424;
    procedure procedure_426 renames procedure_425;
    procedure procedure_427 renames procedure_426;
    procedure procedure_428 renames procedure_427;
    procedure procedure_429 renames procedure_428;
    procedure procedure_430 renames procedure_429;
    procedure procedure_431 renames procedure_430;
    procedure procedure_432 renames procedure_431;
    procedure procedure_433 renames procedure_432;
    procedure procedure_434 renames procedure_433;
    procedure procedure_435 renames procedure_434;
    procedure procedure_436 renames procedure_435;
    procedure procedure_437 renames procedure_436;
    procedure procedure_438 renames procedure_437;
    procedure procedure_439 renames procedure_438;
    procedure procedure_440 renames procedure_439;
    procedure procedure_441 renames procedure_440;
    procedure procedure_442 renames procedure_441;
    procedure procedure_443 renames procedure_442;
    procedure procedure_444 renames procedure_443;
    procedure procedure_445 renames procedure_444;
    procedure procedure_446 renames procedure_445;
    procedure procedure_447 renames procedure_446;
    procedure procedure_448 renames procedure_447;
    procedure procedure_449 renames procedure_448;
    procedure procedure_450 renames procedure_449;
    procedure procedure_451 renames procedure_450;
    procedure procedure_452 renames procedure_451;
    procedure procedure_453 renames procedure_452;
    procedure procedure_454 renames procedure_453;
    procedure procedure_455 renames procedure_454;
    procedure procedure_456 renames procedure_455;
    procedure procedure_457 renames procedure_456;
    procedure procedure_458 renames procedure_457;
    procedure procedure_459 renames procedure_458;
    procedure procedure_460 renames procedure_459;
    procedure procedure_461 renames procedure_460;
    procedure procedure_462 renames procedure_461;
    procedure procedure_463 renames procedure_462;
    procedure procedure_464 renames procedure_463;
    procedure procedure_465 renames procedure_464;
    procedure procedure_466 renames procedure_465;
    procedure procedure_467 renames procedure_466;
    procedure procedure_468 renames procedure_467;
    procedure procedure_469 renames procedure_468;
    procedure procedure_470 renames procedure_469;
    procedure procedure_471 renames procedure_470;
    procedure procedure_472 renames procedure_471;
    procedure procedure_473 renames procedure_472;
    procedure procedure_474 renames procedure_473;
    procedure procedure_475 renames procedure_474;
    procedure procedure_476 renames procedure_475;
    procedure procedure_477 renames procedure_476;
    procedure procedure_478 renames procedure_477;
    procedure procedure_479 renames procedure_478;
    procedure procedure_480 renames procedure_479;
    procedure procedure_481 renames procedure_480;
    procedure procedure_482 renames procedure_481;
    procedure procedure_483 renames procedure_482;
    procedure procedure_484 renames procedure_483;
    procedure procedure_485 renames procedure_484;
    procedure procedure_486 renames procedure_485;
    procedure procedure_487 renames procedure_486;
    procedure procedure_488 renames procedure_487;
    procedure procedure_489 renames procedure_488;
    procedure procedure_490 renames procedure_489;
    procedure procedure_491 renames procedure_490;
    procedure procedure_492 renames procedure_491;
    procedure procedure_493 renames procedure_492;
    procedure procedure_494 renames procedure_493;
    procedure procedure_495 renames procedure_494;
    procedure procedure_496 renames procedure_495;
    procedure procedure_497 renames procedure_496;
    procedure procedure_498 renames procedure_497;
    procedure procedure_499 renames procedure_498;
    procedure procedure_500 renames procedure_499;
    procedure procedure_1 is
        begin
        delay 10.0;
        end procedure_1;
    begin
    procedure_500;
    end z000193;