home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000142.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  10.1 KB  |  405 lines
  1. procedure z000142 is
  2.     type type_1;
  3.     type type_2;
  4.     type type_3;
  5.     type type_4;
  6.     type type_5;
  7.     type type_6;
  8.     type type_7;
  9.     type type_8;
  10.     type type_9;
  11.     type type_10;
  12.     type type_11;
  13.     type type_12;
  14.     type type_13;
  15.     type type_14;
  16.     type type_15;
  17.     type type_16;
  18.     type type_17;
  19.     type type_18;
  20.     type type_19;
  21.     type type_20;
  22.     type type_21;
  23.     type type_22;
  24.     type type_23;
  25.     type type_24;
  26.     type type_25;
  27.     type type_26;
  28.     type type_27;
  29.     type type_28;
  30.     type type_29;
  31.     type type_30;
  32.     type type_31;
  33.     type type_32;
  34.     type type_33;
  35.     type type_34;
  36.     type type_35;
  37.     type type_36;
  38.     type type_37;
  39.     type type_38;
  40.     type type_39;
  41.     type type_40;
  42.     type type_41;
  43.     type type_42;
  44.     type type_43;
  45.     type type_44;
  46.     type type_45;
  47.     type type_46;
  48.     type type_47;
  49.     type type_48;
  50.     type type_49;
  51.     type type_50;
  52.     type type_51;
  53.     type type_52;
  54.     type type_53;
  55.     type type_54;
  56.     type type_55;
  57.     type type_56;
  58.     type type_57;
  59.     type type_58;
  60.     type type_59;
  61.     type type_60;
  62.     type type_61;
  63.     type type_62;
  64.     type type_63;
  65.     type type_64;
  66.     type type_65;
  67.     type type_66;
  68.     type type_67;
  69.     type type_68;
  70.     type type_69;
  71.     type type_70;
  72.     type type_71;
  73.     type type_72;
  74.     type type_73;
  75.     type type_74;
  76.     type type_75;
  77.     type type_76;
  78.     type type_77;
  79.     type type_78;
  80.     type type_79;
  81.     type type_80;
  82.     type type_81;
  83.     type type_82;
  84.     type type_83;
  85.     type type_84;
  86.     type type_85;
  87.     type type_86;
  88.     type type_87;
  89.     type type_88;
  90.     type type_89;
  91.     type type_90;
  92.     type type_91;
  93.     type type_92;
  94.     type type_93;
  95.     type type_94;
  96.     type type_95;
  97.     type type_96;
  98.     type type_97;
  99.     type type_98;
  100.     type type_99;
  101.     type type_100;
  102.     type type_101;
  103.     type type_102;
  104.     type type_103;
  105.     type type_104;
  106.     type type_105;
  107.     type type_106;
  108.     type type_107;
  109.     type type_108;
  110.     type type_109;
  111.     type type_110;
  112.     type type_111;
  113.     type type_112;
  114.     type type_113;
  115.     type type_114;
  116.     type type_115;
  117.     type type_116;
  118.     type type_117;
  119.     type type_118;
  120.     type type_119;
  121.     type type_120;
  122.     type type_121;
  123.     type type_122;
  124.     type type_123;
  125.     type type_124;
  126.     type type_125;
  127.     type type_126;
  128.     type type_127;
  129.     type type_128;
  130.     type type_129;
  131.     type type_130;
  132.     type type_131;
  133.     type type_132;
  134.     type type_133;
  135.     type type_134;
  136.     type type_135;
  137.     type type_136;
  138.     type type_137;
  139.     type type_138;
  140.     type type_139;
  141.     type type_140;
  142.     type type_141;
  143.     type type_142;
  144.     type type_143;
  145.     type type_144;
  146.     type type_145;
  147.     type type_146;
  148.     type type_147;
  149.     type type_148;
  150.     type type_149;
  151.     type type_150;
  152.     type type_151;
  153.     type type_152;
  154.     type type_153;
  155.     type type_154;
  156.     type type_155;
  157.     type type_156;
  158.     type type_157;
  159.     type type_158;
  160.     type type_159;
  161.     type type_160;
  162.     type type_161;
  163.     type type_162;
  164.     type type_163;
  165.     type type_164;
  166.     type type_165;
  167.     type type_166;
  168.     type type_167;
  169.     type type_168;
  170.     type type_169;
  171.     type type_170;
  172.     type type_171;
  173.     type type_172;
  174.     type type_173;
  175.     type type_174;
  176.     type type_175;
  177.     type type_176;
  178.     type type_177;
  179.     type type_178;
  180.     type type_179;
  181.     type type_180;
  182.     type type_181;
  183.     type type_182;
  184.     type type_183;
  185.     type type_184;
  186.     type type_185;
  187.     type type_186;
  188.     type type_187;
  189.     type type_188;
  190.     type type_189;
  191.     type type_190;
  192.     type type_191;
  193.     type type_192;
  194.     type type_193;
  195.     type type_194;
  196.     type type_195;
  197.     type type_196;
  198.     type type_197;
  199.     type type_198;
  200.     type type_199;
  201.     type type_200;
  202.     type type_200 is access type_199;
  203.     type type_199 is access type_198;
  204.     type type_198 is access type_197;
  205.     type type_197 is access type_196;
  206.     type type_196 is access type_195;
  207.     type type_195 is access type_194;
  208.     type type_194 is access type_193;
  209.     type type_193 is access type_192;
  210.     type type_192 is access type_191;
  211.     type type_191 is access type_190;
  212.     type type_190 is access type_189;
  213.     type type_189 is access type_188;
  214.     type type_188 is access type_187;
  215.     type type_187 is access type_186;
  216.     type type_186 is access type_185;
  217.     type type_185 is access type_184;
  218.     type type_184 is access type_183;
  219.     type type_183 is access type_182;
  220.     type type_182 is access type_181;
  221.     type type_181 is access type_180;
  222.     type type_180 is access type_179;
  223.     type type_179 is access type_178;
  224.     type type_178 is access type_177;
  225.     type type_177 is access type_176;
  226.     type type_176 is access type_175;
  227.     type type_175 is access type_174;
  228.     type type_174 is access type_173;
  229.     type type_173 is access type_172;
  230.     type type_172 is access type_171;
  231.     type type_171 is access type_170;
  232.     type type_170 is access type_169;
  233.     type type_169 is access type_168;
  234.     type type_168 is access type_167;
  235.     type type_167 is access type_166;
  236.     type type_166 is access type_165;
  237.     type type_165 is access type_164;
  238.     type type_164 is access type_163;
  239.     type type_163 is access type_162;
  240.     type type_162 is access type_161;
  241.     type type_161 is access type_160;
  242.     type type_160 is access type_159;
  243.     type type_159 is access type_158;
  244.     type type_158 is access type_157;
  245.     type type_157 is access type_156;
  246.     type type_156 is access type_155;
  247.     type type_155 is access type_154;
  248.     type type_154 is access type_153;
  249.     type type_153 is access type_152;
  250.     type type_152 is access type_151;
  251.     type type_151 is access type_150;
  252.     type type_150 is access type_149;
  253.     type type_149 is access type_148;
  254.     type type_148 is access type_147;
  255.     type type_147 is access type_146;
  256.     type type_146 is access type_145;
  257.     type type_145 is access type_144;
  258.     type type_144 is access type_143;
  259.     type type_143 is access type_142;
  260.     type type_142 is access type_141;
  261.     type type_141 is access type_140;
  262.     type type_140 is access type_139;
  263.     type type_139 is access type_138;
  264.     type type_138 is access type_137;
  265.     type type_137 is access type_136;
  266.     type type_136 is access type_135;
  267.     type type_135 is access type_134;
  268.     type type_134 is access type_133;
  269.     type type_133 is access type_132;
  270.     type type_132 is access type_131;
  271.     type type_131 is access type_130;
  272.     type type_130 is access type_129;
  273.     type type_129 is access type_128;
  274.     type type_128 is access type_127;
  275.     type type_127 is access type_126;
  276.     type type_126 is access type_125;
  277.     type type_125 is access type_124;
  278.     type type_124 is access type_123;
  279.     type type_123 is access type_122;
  280.     type type_122 is access type_121;
  281.     type type_121 is access type_120;
  282.     type type_120 is access type_119;
  283.     type type_119 is access type_118;
  284.     type type_118 is access type_117;
  285.     type type_117 is access type_116;
  286.     type type_116 is access type_115;
  287.     type type_115 is access type_114;
  288.     type type_114 is access type_113;
  289.     type type_113 is access type_112;
  290.     type type_112 is access type_111;
  291.     type type_111 is access type_110;
  292.     type type_110 is access type_109;
  293.     type type_109 is access type_108;
  294.     type type_108 is access type_107;
  295.     type type_107 is access type_106;
  296.     type type_106 is access type_105;
  297.     type type_105 is access type_104;
  298.     type type_104 is access type_103;
  299.     type type_103 is access type_102;
  300.     type type_102 is access type_101;
  301.     type type_101 is access type_100;
  302.     type type_100 is access type_99;
  303.     type type_99 is access type_98;
  304.     type type_98 is access type_97;
  305.     type type_97 is access type_96;
  306.     type type_96 is access type_95;
  307.     type type_95 is access type_94;
  308.     type type_94 is access type_93;
  309.     type type_93 is access type_92;
  310.     type type_92 is access type_91;
  311.     type type_91 is access type_90;
  312.     type type_90 is access type_89;
  313.     type type_89 is access type_88;
  314.     type type_88 is access type_87;
  315.     type type_87 is access type_86;
  316.     type type_86 is access type_85;
  317.     type type_85 is access type_84;
  318.     type type_84 is access type_83;
  319.     type type_83 is access type_82;
  320.     type type_82 is access type_81;
  321.     type type_81 is access type_80;
  322.     type type_80 is access type_79;
  323.     type type_79 is access type_78;
  324.     type type_78 is access type_77;
  325.     type type_77 is access type_76;
  326.     type type_76 is access type_75;
  327.     type type_75 is access type_74;
  328.     type type_74 is access type_73;
  329.     type type_73 is access type_72;
  330.     type type_72 is access type_71;
  331.     type type_71 is access type_70;
  332.     type type_70 is access type_69;
  333.     type type_69 is access type_68;
  334.     type type_68 is access type_67;
  335.     type type_67 is access type_66;
  336.     type type_66 is access type_65;
  337.     type type_65 is access type_64;
  338.     type type_64 is access type_63;
  339.     type type_63 is access type_62;
  340.     type type_62 is access type_61;
  341.     type type_61 is access type_60;
  342.     type type_60 is access type_59;
  343.     type type_59 is access type_58;
  344.     type type_58 is access type_57;
  345.     type type_57 is access type_56;
  346.     type type_56 is access type_55;
  347.     type type_55 is access type_54;
  348.     type type_54 is access type_53;
  349.     type type_53 is access type_52;
  350.     type type_52 is access type_51;
  351.     type type_51 is access type_50;
  352.     type type_50 is access type_49;
  353.     type type_49 is access type_48;
  354.     type type_48 is access type_47;
  355.     type type_47 is access type_46;
  356.     type type_46 is access type_45;
  357.     type type_45 is access type_44;
  358.     type type_44 is access type_43;
  359.     type type_43 is access type_42;
  360.     type type_42 is access type_41;
  361.     type type_41 is access type_40;
  362.     type type_40 is access type_39;
  363.     type type_39 is access type_38;
  364.     type type_38 is access type_37;
  365.     type type_37 is access type_36;
  366.     type type_36 is access type_35;
  367.     type type_35 is access type_34;
  368.     type type_34 is access type_33;
  369.     type type_33 is access type_32;
  370.     type type_32 is access type_31;
  371.     type type_31 is access type_30;
  372.     type type_30 is access type_29;
  373.     type type_29 is access type_28;
  374.     type type_28 is access type_27;
  375.     type type_27 is access type_26;
  376.     type type_26 is access type_25;
  377.     type type_25 is access type_24;
  378.     type type_24 is access type_23;
  379.     type type_23 is access type_22;
  380.     type type_22 is access type_21;
  381.     type type_21 is access type_20;
  382.     type type_20 is access type_19;
  383.     type type_19 is access type_18;
  384.     type type_18 is access type_17;
  385.     type type_17 is access type_16;
  386.     type type_16 is access type_15;
  387.     type type_15 is access type_14;
  388.     type type_14 is access type_13;
  389.     type type_13 is access type_12;
  390.     type type_12 is access type_11;
  391.     type type_11 is access type_10;
  392.     type type_10 is access type_9;
  393.     type type_9 is access type_8;
  394.     type type_8 is access type_7;
  395.     type type_7 is access type_6;
  396.     type type_6 is access type_5;
  397.     type type_5 is access type_4;
  398.     type type_4 is access type_3;
  399.     type type_3 is access type_2;
  400.     type type_2 is access type_1;
  401.     type type_1 is range 1..500;
  402.     begin
  403.     null;
  404.     end z000142;
  405.