home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000191.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  4.7 KB  |  109 lines
  1. procedure z000191 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_1 is
  103.         begin
  104.         delay 10.0;
  105.         end procedure_1;
  106.     begin
  107.     procedure_100;
  108.     end z000191;
  109.