home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / piwg / z000141.ada < prev    next >
Encoding:
Text File  |  1988-05-03  |  4.9 KB  |  205 lines
  1. procedure z000141 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_100 is access type_99;
  103.     type type_99 is access type_98;
  104.     type type_98 is access type_97;
  105.     type type_97 is access type_96;
  106.     type type_96 is access type_95;
  107.     type type_95 is access type_94;
  108.     type type_94 is access type_93;
  109.     type type_93 is access type_92;
  110.     type type_92 is access type_91;
  111.     type type_91 is access type_90;
  112.     type type_90 is access type_89;
  113.     type type_89 is access type_88;
  114.     type type_88 is access type_87;
  115.     type type_87 is access type_86;
  116.     type type_86 is access type_85;
  117.     type type_85 is access type_84;
  118.     type type_84 is access type_83;
  119.     type type_83 is access type_82;
  120.     type type_82 is access type_81;
  121.     type type_81 is access type_80;
  122.     type type_80 is access type_79;
  123.     type type_79 is access type_78;
  124.     type type_78 is access type_77;
  125.     type type_77 is access type_76;
  126.     type type_76 is access type_75;
  127.     type type_75 is access type_74;
  128.     type type_74 is access type_73;
  129.     type type_73 is access type_72;
  130.     type type_72 is access type_71;
  131.     type type_71 is access type_70;
  132.     type type_70 is access type_69;
  133.     type type_69 is access type_68;
  134.     type type_68 is access type_67;
  135.     type type_67 is access type_66;
  136.     type type_66 is access type_65;
  137.     type type_65 is access type_64;
  138.     type type_64 is access type_63;
  139.     type type_63 is access type_62;
  140.     type type_62 is access type_61;
  141.     type type_61 is access type_60;
  142.     type type_60 is access type_59;
  143.     type type_59 is access type_58;
  144.     type type_58 is access type_57;
  145.     type type_57 is access type_56;
  146.     type type_56 is access type_55;
  147.     type type_55 is access type_54;
  148.     type type_54 is access type_53;
  149.     type type_53 is access type_52;
  150.     type type_52 is access type_51;
  151.     type type_51 is access type_50;
  152.     type type_50 is access type_49;
  153.     type type_49 is access type_48;
  154.     type type_48 is access type_47;
  155.     type type_47 is access type_46;
  156.     type type_46 is access type_45;
  157.     type type_45 is access type_44;
  158.     type type_44 is access type_43;
  159.     type type_43 is access type_42;
  160.     type type_42 is access type_41;
  161.     type type_41 is access type_40;
  162.     type type_40 is access type_39;
  163.     type type_39 is access type_38;
  164.     type type_38 is access type_37;
  165.     type type_37 is access type_36;
  166.     type type_36 is access type_35;
  167.     type type_35 is access type_34;
  168.     type type_34 is access type_33;
  169.     type type_33 is access type_32;
  170.     type type_32 is access type_31;
  171.     type type_31 is access type_30;
  172.     type type_30 is access type_29;
  173.     type type_29 is access type_28;
  174.     type type_28 is access type_27;
  175.     type type_27 is access type_26;
  176.     type type_26 is access type_25;
  177.     type type_25 is access type_24;
  178.     type type_24 is access type_23;
  179.     type type_23 is access type_22;
  180.     type type_22 is access type_21;
  181.     type type_21 is access type_20;
  182.     type type_20 is access type_19;
  183.     type type_19 is access type_18;
  184.     type type_18 is access type_17;
  185.     type type_17 is access type_16;
  186.     type type_16 is access type_15;
  187.     type type_15 is access type_14;
  188.     type type_14 is access type_13;
  189.     type type_13 is access type_12;
  190.     type type_12 is access type_11;
  191.     type type_11 is access type_10;
  192.     type type_10 is access type_9;
  193.     type type_9 is access type_8;
  194.     type type_8 is access type_7;
  195.     type type_7 is access type_6;
  196.     type type_6 is access type_5;
  197.     type type_5 is access type_4;
  198.     type type_4 is access type_3;
  199.     type type_3 is access type_2;
  200.     type type_2 is access type_1;
  201.     type type_1 is range 1..500;
  202.     begin
  203.     null;
  204.     end z000141;
  205.