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

Text File | 1988-05-03 | 6.7 KB | 407 lines

procedure z000264 is
    task task_1;
    task body task_1 is
    task task_2;
    task body task_2 is
    task task_3;
    task body task_3 is
    task task_4;
    task body task_4 is
    task task_5;
    task body task_5 is
    task task_6;
    task body task_6 is
    task task_7;
    task body task_7 is
    task task_8;
    task body task_8 is
    task task_9;
    task body task_9 is
    task task_10;
    task body task_10 is
    task task_11;
    task body task_11 is
    task task_12;
    task body task_12 is
    task task_13;
    task body task_13 is
    task task_14;
    task body task_14 is
    task task_15;
    task body task_15 is
    task task_16;
    task body task_16 is
    task task_17;
    task body task_17 is
    task task_18;
    task body task_18 is
    task task_19;
    task body task_19 is
    task task_20;
    task body task_20 is
    task task_21;
    task body task_21 is
    task task_22;
    task body task_22 is
    task task_23;
    task body task_23 is
    task task_24;
    task body task_24 is
    task task_25;
    task body task_25 is
    task task_26;
    task body task_26 is
    task task_27;
    task body task_27 is
    task task_28;
    task body task_28 is
    task task_29;
    task body task_29 is
    task task_30;
    task body task_30 is
    task task_31;
    task body task_31 is
    task task_32;
    task body task_32 is
    task task_33;
    task body task_33 is
    task task_34;
    task body task_34 is
    task task_35;
    task body task_35 is
    task task_36;
    task body task_36 is
    task task_37;
    task body task_37 is
    task task_38;
    task body task_38 is
    task task_39;
    task body task_39 is
    task task_40;
    task body task_40 is
    task task_41;
    task body task_41 is
    task task_42;
    task body task_42 is
    task task_43;
    task body task_43 is
    task task_44;
    task body task_44 is
    task task_45;
    task body task_45 is
    task task_46;
    task body task_46 is
    task task_47;
    task body task_47 is
    task task_48;
    task body task_48 is
    task task_49;
    task body task_49 is
    task task_50;
    task body task_50 is
    task task_51;
    task body task_51 is
    task task_52;
    task body task_52 is
    task task_53;
    task body task_53 is
    task task_54;
    task body task_54 is
    task task_55;
    task body task_55 is
    task task_56;
    task body task_56 is
    task task_57;
    task body task_57 is
    task task_58;
    task body task_58 is
    task task_59;
    task body task_59 is
    task task_60;
    task body task_60 is
    task task_61;
    task body task_61 is
    task task_62;
    task body task_62 is
    task task_63;
    task body task_63 is
    task task_64;
    task body task_64 is
    task task_65;
    task body task_65 is
    task task_66;
    task body task_66 is
    task task_67;
    task body task_67 is
    task task_68;
    task body task_68 is
    task task_69;
    task body task_69 is
    task task_70;
    task body task_70 is
    task task_71;
    task body task_71 is
    task task_72;
    task body task_72 is
    task task_73;
    task body task_73 is
    task task_74;
    task body task_74 is
    task task_75;
    task body task_75 is
    task task_76;
    task body task_76 is
    task task_77;
    task body task_77 is
    task task_78;
    task body task_78 is
    task task_79;
    task body task_79 is
    task task_80;
    task body task_80 is
    task task_81;
    task body task_81 is
    task task_82;
    task body task_82 is
    task task_83;
    task body task_83 is
    task task_84;
    task body task_84 is
    task task_85;
    task body task_85 is
    task task_86;
    task body task_86 is
    task task_87;
    task body task_87 is
    task task_88;
    task body task_88 is
    task task_89;
    task body task_89 is
    task task_90;
    task body task_90 is
    task task_91;
    task body task_91 is
    task task_92;
    task body task_92 is
    task task_93;
    task body task_93 is
    task task_94;
    task body task_94 is
    task task_95;
    task body task_95 is
    task task_96;
    task body task_96 is
    task task_97;
    task body task_97 is
    task task_98;
    task body task_98 is
    task task_99;
    task body task_99 is
    task task_100;
    task body task_100 is
    begin null;
    end task_100;
--    t: task_100;
    begin null;
    end task_99;
    begin null;
    end task_98;
    begin null;
    end task_97;
    begin null;
    end task_96;
    begin null;
    end task_95;
    begin null;
    end task_94;
    begin null;
    end task_93;
    begin null;
    end task_92;
    begin null;
    end task_91;
    begin null;
    end task_90;
    begin null;
    end task_89;
    begin null;
    end task_88;
    begin null;
    end task_87;
    begin null;
    end task_86;
    begin null;
    end task_85;
    begin null;
    end task_84;
    begin null;
    end task_83;
    begin null;
    end task_82;
    begin null;
    end task_81;
    begin null;
    end task_80;
    begin null;
    end task_79;
    begin null;
    end task_78;
    begin null;
    end task_77;
    begin null;
    end task_76;
    begin null;
    end task_75;
    begin null;
    end task_74;
    begin null;
    end task_73;
    begin null;
    end task_72;
    begin null;
    end task_71;
    begin null;
    end task_70;
    begin null;
    end task_69;
    begin null;
    end task_68;
    begin null;
    end task_67;
    begin null;
    end task_66;
    begin null;
    end task_65;
    begin null;
    end task_64;
    begin null;
    end task_63;
    begin null;
    end task_62;
    begin null;
    end task_61;
    begin null;
    end task_60;
    begin null;
    end task_59;
    begin null;
    end task_58;
    begin null;
    end task_57;
    begin null;
    end task_56;
    begin null;
    end task_55;
    begin null;
    end task_54;
    begin null;
    end task_53;
    begin null;
    end task_52;
    begin null;
    end task_51;
    begin null;
    end task_50;
    begin null;
    end task_49;
    begin null;
    end task_48;
    begin null;
    end task_47;
    begin null;
    end task_46;
    begin null;
    end task_45;
    begin null;
    end task_44;
    begin null;
    end task_43;
    begin null;
    end task_42;
    begin null;
    end task_41;
    begin null;
    end task_40;
    begin null;
    end task_39;
    begin null;
    end task_38;
    begin null;
    end task_37;
    begin null;
    end task_36;
    begin null;
    end task_35;
    begin null;
    end task_34;
    begin null;
    end task_33;
    begin null;
    end task_32;
    begin null;
    end task_31;
    begin null;
    end task_30;
    begin null;
    end task_29;
    begin null;
    end task_28;
    begin null;
    end task_27;
    begin null;
    end task_26;
    begin null;
    end task_25;
    begin null;
    end task_24;
    begin null;
    end task_23;
    begin null;
    end task_22;
    begin null;
    end task_21;
    begin null;
    end task_20;
    begin null;
    end task_19;
    begin null;
    end task_18;
    begin null;
    end task_17;
    begin null;
    end task_16;
    begin null;
    end task_15;
    begin null;
    end task_14;
    begin null;
    end task_13;
    begin null;
    end task_12;
    begin null;
    end task_11;
    begin null;
    end task_10;
    begin null;
    end task_9;
    begin null;
    end task_8;
    begin null;
    end task_7;
    begin null;
    end task_6;
    begin null;
    end task_5;
    begin null;
    end task_4;
    begin null;
    end task_3;
    begin null;
    end task_2;
    begin null;
    end task_1;
--    t: task_1;
    begin
    null;
    end z000264;