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

Text File | 1988-05-03 | 11.3 KB | 403 lines

package z000184 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;
    task task_51 is
        entry out_51 ( c: out character );
        entry in_51 ( c: in character );
    end task_51;
    task task_52 is
        entry out_52 ( c: out character );
        entry in_52 ( c: in character );
    end task_52;
    task task_53 is
        entry out_53 ( c: out character );
        entry in_53 ( c: in character );
    end task_53;
    task task_54 is
        entry out_54 ( c: out character );
        entry in_54 ( c: in character );
    end task_54;
    task task_55 is
        entry out_55 ( c: out character );
        entry in_55 ( c: in character );
    end task_55;
    task task_56 is
        entry out_56 ( c: out character );
        entry in_56 ( c: in character );
    end task_56;
    task task_57 is
        entry out_57 ( c: out character );
        entry in_57 ( c: in character );
    end task_57;
    task task_58 is
        entry out_58 ( c: out character );
        entry in_58 ( c: in character );
    end task_58;
    task task_59 is
        entry out_59 ( c: out character );
        entry in_59 ( c: in character );
    end task_59;
    task task_60 is
        entry out_60 ( c: out character );
        entry in_60 ( c: in character );
    end task_60;
    task task_61 is
        entry out_61 ( c: out character );
        entry in_61 ( c: in character );
    end task_61;
    task task_62 is
        entry out_62 ( c: out character );
        entry in_62 ( c: in character );
    end task_62;
    task task_63 is
        entry out_63 ( c: out character );
        entry in_63 ( c: in character );
    end task_63;
    task task_64 is
        entry out_64 ( c: out character );
        entry in_64 ( c: in character );
    end task_64;
    task task_65 is
        entry out_65 ( c: out character );
        entry in_65 ( c: in character );
    end task_65;
    task task_66 is
        entry out_66 ( c: out character );
        entry in_66 ( c: in character );
    end task_66;
    task task_67 is
        entry out_67 ( c: out character );
        entry in_67 ( c: in character );
    end task_67;
    task task_68 is
        entry out_68 ( c: out character );
        entry in_68 ( c: in character );
    end task_68;
    task task_69 is
        entry out_69 ( c: out character );
        entry in_69 ( c: in character );
    end task_69;
    task task_70 is
        entry out_70 ( c: out character );
        entry in_70 ( c: in character );
    end task_70;
    task task_71 is
        entry out_71 ( c: out character );
        entry in_71 ( c: in character );
    end task_71;
    task task_72 is
        entry out_72 ( c: out character );
        entry in_72 ( c: in character );
    end task_72;
    task task_73 is
        entry out_73 ( c: out character );
        entry in_73 ( c: in character );
    end task_73;
    task task_74 is
        entry out_74 ( c: out character );
        entry in_74 ( c: in character );
    end task_74;
    task task_75 is
        entry out_75 ( c: out character );
        entry in_75 ( c: in character );
    end task_75;
    task task_76 is
        entry out_76 ( c: out character );
        entry in_76 ( c: in character );
    end task_76;
    task task_77 is
        entry out_77 ( c: out character );
        entry in_77 ( c: in character );
    end task_77;
    task task_78 is
        entry out_78 ( c: out character );
        entry in_78 ( c: in character );
    end task_78;
    task task_79 is
        entry out_79 ( c: out character );
        entry in_79 ( c: in character );
    end task_79;
    task task_80 is
        entry out_80 ( c: out character );
        entry in_80 ( c: in character );
    end task_80;
    task task_81 is
        entry out_81 ( c: out character );
        entry in_81 ( c: in character );
    end task_81;
    task task_82 is
        entry out_82 ( c: out character );
        entry in_82 ( c: in character );
    end task_82;
    task task_83 is
        entry out_83 ( c: out character );
        entry in_83 ( c: in character );
    end task_83;
    task task_84 is
        entry out_84 ( c: out character );
        entry in_84 ( c: in character );
    end task_84;
    task task_85 is
        entry out_85 ( c: out character );
        entry in_85 ( c: in character );
    end task_85;
    task task_86 is
        entry out_86 ( c: out character );
        entry in_86 ( c: in character );
    end task_86;
    task task_87 is
        entry out_87 ( c: out character );
        entry in_87 ( c: in character );
    end task_87;
    task task_88 is
        entry out_88 ( c: out character );
        entry in_88 ( c: in character );
    end task_88;
    task task_89 is
        entry out_89 ( c: out character );
        entry in_89 ( c: in character );
    end task_89;
    task task_90 is
        entry out_90 ( c: out character );
        entry in_90 ( c: in character );
    end task_90;
    task task_91 is
        entry out_91 ( c: out character );
        entry in_91 ( c: in character );
    end task_91;
    task task_92 is
        entry out_92 ( c: out character );
        entry in_92 ( c: in character );
    end task_92;
    task task_93 is
        entry out_93 ( c: out character );
        entry in_93 ( c: in character );
    end task_93;
    task task_94 is
        entry out_94 ( c: out character );
        entry in_94 ( c: in character );
    end task_94;
    task task_95 is
        entry out_95 ( c: out character );
        entry in_95 ( c: in character );
    end task_95;
    task task_96 is
        entry out_96 ( c: out character );
        entry in_96 ( c: in character );
    end task_96;
    task task_97 is
        entry out_97 ( c: out character );
        entry in_97 ( c: in character );
    end task_97;
    task task_98 is
        entry out_98 ( c: out character );
        entry in_98 ( c: in character );
    end task_98;
    task task_99 is
        entry out_99 ( c: out character );
        entry in_99 ( c: in character );
    end task_99;
    task task_100 is
        entry out_100 ( c: out character );
        entry in_100 ( c: in character );
    end task_100;
    end z000184;