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

Text File | 1988-05-03 | 5.7 KB | 203 lines

package z000183 is
    task task_1 is
        entry out_1 ( c: out character );
        entry in_1 ( c: in character );
    end task_1;
    task task_2 is
        entry out_2 ( c: out character );
        entry in_2 ( c: in character );
    end task_2;
    task task_3 is
        entry out_3 ( c: out character );
        entry in_3 ( c: in character );
    end task_3;
    task task_4 is
        entry out_4 ( c: out character );
        entry in_4 ( c: in character );
    end task_4;
    task task_5 is
        entry out_5 ( c: out character );
        entry in_5 ( c: in character );
    end task_5;
    task task_6 is
        entry out_6 ( c: out character );
        entry in_6 ( c: in character );
    end task_6;
    task task_7 is
        entry out_7 ( c: out character );
        entry in_7 ( c: in character );
    end task_7;
    task task_8 is
        entry out_8 ( c: out character );
        entry in_8 ( c: in character );
    end task_8;
    task task_9 is
        entry out_9 ( c: out character );
        entry in_9 ( c: in character );
    end task_9;
    task task_10 is
        entry out_10 ( c: out character );
        entry in_10 ( c: in character );
    end task_10;
    task task_11 is
        entry out_11 ( c: out character );
        entry in_11 ( c: in character );
    end task_11;
    task task_12 is
        entry out_12 ( c: out character );
        entry in_12 ( c: in character );
    end task_12;
    task task_13 is
        entry out_13 ( c: out character );
        entry in_13 ( c: in character );
    end task_13;
    task task_14 is
        entry out_14 ( c: out character );
        entry in_14 ( c: in character );
    end task_14;
    task task_15 is
        entry out_15 ( c: out character );
        entry in_15 ( c: in character );
    end task_15;
    task task_16 is
        entry out_16 ( c: out character );
        entry in_16 ( c: in character );
    end task_16;
    task task_17 is
        entry out_17 ( c: out character );
        entry in_17 ( c: in character );
    end task_17;
    task task_18 is
        entry out_18 ( c: out character );
        entry in_18 ( c: in character );
    end task_18;
    task task_19 is
        entry out_19 ( c: out character );
        entry in_19 ( c: in character );
    end task_19;
    task task_20 is
        entry out_20 ( c: out character );
        entry in_20 ( c: in character );
    end task_20;
    task task_21 is
        entry out_21 ( c: out character );
        entry in_21 ( c: in character );
    end task_21;
    task task_22 is
        entry out_22 ( c: out character );
        entry in_22 ( c: in character );
    end task_22;
    task task_23 is
        entry out_23 ( c: out character );
        entry in_23 ( c: in character );
    end task_23;
    task task_24 is
        entry out_24 ( c: out character );
        entry in_24 ( c: in character );
    end task_24;
    task task_25 is
        entry out_25 ( c: out character );
        entry in_25 ( c: in character );
    end task_25;
    task task_26 is
        entry out_26 ( c: out character );
        entry in_26 ( c: in character );
    end task_26;
    task task_27 is
        entry out_27 ( c: out character );
        entry in_27 ( c: in character );
    end task_27;
    task task_28 is
        entry out_28 ( c: out character );
        entry in_28 ( c: in character );
    end task_28;
    task task_29 is
        entry out_29 ( c: out character );
        entry in_29 ( c: in character );
    end task_29;
    task task_30 is
        entry out_30 ( c: out character );
        entry in_30 ( c: in character );
    end task_30;
    task task_31 is
        entry out_31 ( c: out character );
        entry in_31 ( c: in character );
    end task_31;
    task task_32 is
        entry out_32 ( c: out character );
        entry in_32 ( c: in character );
    end task_32;
    task task_33 is
        entry out_33 ( c: out character );
        entry in_33 ( c: in character );
    end task_33;
    task task_34 is
        entry out_34 ( c: out character );
        entry in_34 ( c: in character );
    end task_34;
    task task_35 is
        entry out_35 ( c: out character );
        entry in_35 ( c: in character );
    end task_35;
    task task_36 is
        entry out_36 ( c: out character );
        entry in_36 ( c: in character );
    end task_36;
    task task_37 is
        entry out_37 ( c: out character );
        entry in_37 ( c: in character );
    end task_37;
    task task_38 is
        entry out_38 ( c: out character );
        entry in_38 ( c: in character );
    end task_38;
    task task_39 is
        entry out_39 ( c: out character );
        entry in_39 ( c: in character );
    end task_39;
    task task_40 is
        entry out_40 ( c: out character );
        entry in_40 ( c: in character );
    end task_40;
    task task_41 is
        entry out_41 ( c: out character );
        entry in_41 ( c: in character );
    end task_41;
    task task_42 is
        entry out_42 ( c: out character );
        entry in_42 ( c: in character );
    end task_42;
    task task_43 is
        entry out_43 ( c: out character );
        entry in_43 ( c: in character );
    end task_43;
    task task_44 is
        entry out_44 ( c: out character );
        entry in_44 ( c: in character );
    end task_44;
    task task_45 is
        entry out_45 ( c: out character );
        entry in_45 ( c: in character );
    end task_45;
    task task_46 is
        entry out_46 ( c: out character );
        entry in_46 ( c: in character );
    end task_46;
    task task_47 is
        entry out_47 ( c: out character );
        entry in_47 ( c: in character );
    end task_47;
    task task_48 is
        entry out_48 ( c: out character );
        entry in_48 ( c: in character );
    end task_48;
    task task_49 is
        entry out_49 ( c: out character );
        entry in_49 ( c: in character );
    end task_49;
    task task_50 is
        entry out_50 ( c: out character );
        entry in_50 ( c: in character );
    end task_50;
    end z000183;