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

Text File | 1988-05-03 | 2.3 KB | 83 lines

package z000182 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;
    end z000182;