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

Text File | 1988-05-03 | 11.8 KB | 401 lines

with text_io; use text_io;
package package_1 is
    package package_1s is  new float_io ( float );
    end package_1;
with package_1; use package_1;
package package_2 is
    package package_2s renames package_1s;
    end package_2;
with package_2; use package_2;
package package_3 is
    package package_3s renames package_2s;
    end package_3;
with package_3; use package_3;
package package_4 is
    package package_4s renames package_3s;
    end package_4;
with package_4; use package_4;
package package_5 is
    package package_5s renames package_4s;
    end package_5;
with package_5; use package_5;
package package_6 is
    package package_6s renames package_5s;
    end package_6;
with package_6; use package_6;
package package_7 is
    package package_7s renames package_6s;
    end package_7;
with package_7; use package_7;
package package_8 is
    package package_8s renames package_7s;
    end package_8;
with package_8; use package_8;
package package_9 is
    package package_9s renames package_8s;
    end package_9;
with package_9; use package_9;
package package_10 is
    package package_10s renames package_9s;
    end package_10;
with package_10; use package_10;
package package_11 is
    package package_11s renames package_10s;
    end package_11;
with package_11; use package_11;
package package_12 is
    package package_12s renames package_11s;
    end package_12;
with package_12; use package_12;
package package_13 is
    package package_13s renames package_12s;
    end package_13;
with package_13; use package_13;
package package_14 is
    package package_14s renames package_13s;
    end package_14;
with package_14; use package_14;
package package_15 is
    package package_15s renames package_14s;
    end package_15;
with package_15; use package_15;
package package_16 is
    package package_16s renames package_15s;
    end package_16;
with package_16; use package_16;
package package_17 is
    package package_17s renames package_16s;
    end package_17;
with package_17; use package_17;
package package_18 is
    package package_18s renames package_17s;
    end package_18;
with package_18; use package_18;
package package_19 is
    package package_19s renames package_18s;
    end package_19;
with package_19; use package_19;
package package_20 is
    package package_20s renames package_19s;
    end package_20;
with package_20; use package_20;
package package_21 is
    package package_21s renames package_20s;
    end package_21;
with package_21; use package_21;
package package_22 is
    package package_22s renames package_21s;
    end package_22;
with package_22; use package_22;
package package_23 is
    package package_23s renames package_22s;
    end package_23;
with package_23; use package_23;
package package_24 is
    package package_24s renames package_23s;
    end package_24;
with package_24; use package_24;
package package_25 is
    package package_25s renames package_24s;
    end package_25;
with package_25; use package_25;
package package_26 is
    package package_26s renames package_25s;
    end package_26;
with package_26; use package_26;
package package_27 is
    package package_27s renames package_26s;
    end package_27;
with package_27; use package_27;
package package_28 is
    package package_28s renames package_27s;
    end package_28;
with package_28; use package_28;
package package_29 is
    package package_29s renames package_28s;
    end package_29;
with package_29; use package_29;
package package_30 is
    package package_30s renames package_29s;
    end package_30;
with package_30; use package_30;
package package_31 is
    package package_31s renames package_30s;
    end package_31;
with package_31; use package_31;
package package_32 is
    package package_32s renames package_31s;
    end package_32;
with package_32; use package_32;
package package_33 is
    package package_33s renames package_32s;
    end package_33;
with package_33; use package_33;
package package_34 is
    package package_34s renames package_33s;
    end package_34;
with package_34; use package_34;
package package_35 is
    package package_35s renames package_34s;
    end package_35;
with package_35; use package_35;
package package_36 is
    package package_36s renames package_35s;
    end package_36;
with package_36; use package_36;
package package_37 is
    package package_37s renames package_36s;
    end package_37;
with package_37; use package_37;
package package_38 is
    package package_38s renames package_37s;
    end package_38;
with package_38; use package_38;
package package_39 is
    package package_39s renames package_38s;
    end package_39;
with package_39; use package_39;
package package_40 is
    package package_40s renames package_39s;
    end package_40;
with package_40; use package_40;
package package_41 is
    package package_41s renames package_40s;
    end package_41;
with package_41; use package_41;
package package_42 is
    package package_42s renames package_41s;
    end package_42;
with package_42; use package_42;
package package_43 is
    package package_43s renames package_42s;
    end package_43;
with package_43; use package_43;
package package_44 is
    package package_44s renames package_43s;
    end package_44;
with package_44; use package_44;
package package_45 is
    package package_45s renames package_44s;
    end package_45;
with package_45; use package_45;
package package_46 is
    package package_46s renames package_45s;
    end package_46;
with package_46; use package_46;
package package_47 is
    package package_47s renames package_46s;
    end package_47;
with package_47; use package_47;
package package_48 is
    package package_48s renames package_47s;
    end package_48;
with package_48; use package_48;
package package_49 is
    package package_49s renames package_48s;
    end package_49;
with package_49; use package_49;
package package_50 is
    package package_50s renames package_49s;
    end package_50;
with package_50; use package_50;
package package_51 is
    package package_51s renames package_50s;
    end package_51;
with package_51; use package_51;
package package_52 is
    package package_52s renames package_51s;
    end package_52;
with package_52; use package_52;
package package_53 is
    package package_53s renames package_52s;
    end package_53;
with package_53; use package_53;
package package_54 is
    package package_54s renames package_53s;
    end package_54;
with package_54; use package_54;
package package_55 is
    package package_55s renames package_54s;
    end package_55;
with package_55; use package_55;
package package_56 is
    package package_56s renames package_55s;
    end package_56;
with package_56; use package_56;
package package_57 is
    package package_57s renames package_56s;
    end package_57;
with package_57; use package_57;
package package_58 is
    package package_58s renames package_57s;
    end package_58;
with package_58; use package_58;
package package_59 is
    package package_59s renames package_58s;
    end package_59;
with package_59; use package_59;
package package_60 is
    package package_60s renames package_59s;
    end package_60;
with package_60; use package_60;
package package_61 is
    package package_61s renames package_60s;
    end package_61;
with package_61; use package_61;
package package_62 is
    package package_62s renames package_61s;
    end package_62;
with package_62; use package_62;
package package_63 is
    package package_63s renames package_62s;
    end package_63;
with package_63; use package_63;
package package_64 is
    package package_64s renames package_63s;
    end package_64;
with package_64; use package_64;
package package_65 is
    package package_65s renames package_64s;
    end package_65;
with package_65; use package_65;
package package_66 is
    package package_66s renames package_65s;
    end package_66;
with package_66; use package_66;
package package_67 is
    package package_67s renames package_66s;
    end package_67;
with package_67; use package_67;
package package_68 is
    package package_68s renames package_67s;
    end package_68;
with package_68; use package_68;
package package_69 is
    package package_69s renames package_68s;
    end package_69;
with package_69; use package_69;
package package_70 is
    package package_70s renames package_69s;
    end package_70;
with package_70; use package_70;
package package_71 is
    package package_71s renames package_70s;
    end package_71;
with package_71; use package_71;
package package_72 is
    package package_72s renames package_71s;
    end package_72;
with package_72; use package_72;
package package_73 is
    package package_73s renames package_72s;
    end package_73;
with package_73; use package_73;
package package_74 is
    package package_74s renames package_73s;
    end package_74;
with package_74; use package_74;
package package_75 is
    package package_75s renames package_74s;
    end package_75;
with package_75; use package_75;
package package_76 is
    package package_76s renames package_75s;
    end package_76;
with package_76; use package_76;
package package_77 is
    package package_77s renames package_76s;
    end package_77;
with package_77; use package_77;
package package_78 is
    package package_78s renames package_77s;
    end package_78;
with package_78; use package_78;
package package_79 is
    package package_79s renames package_78s;
    end package_79;
with package_79; use package_79;
package package_80 is
    package package_80s renames package_79s;
    end package_80;
with package_80; use package_80;
package package_81 is
    package package_81s renames package_80s;
    end package_81;
with package_81; use package_81;
package package_82 is
    package package_82s renames package_81s;
    end package_82;
with package_82; use package_82;
package package_83 is
    package package_83s renames package_82s;
    end package_83;
with package_83; use package_83;
package package_84 is
    package package_84s renames package_83s;
    end package_84;
with package_84; use package_84;
package package_85 is
    package package_85s renames package_84s;
    end package_85;
with package_85; use package_85;
package package_86 is
    package package_86s renames package_85s;
    end package_86;
with package_86; use package_86;
package package_87 is
    package package_87s renames package_86s;
    end package_87;
with package_87; use package_87;
package package_88 is
    package package_88s renames package_87s;
    end package_88;
with package_88; use package_88;
package package_89 is
    package package_89s renames package_88s;
    end package_89;
with package_89; use package_89;
package package_90 is
    package package_90s renames package_89s;
    end package_90;
with package_90; use package_90;
package package_91 is
    package package_91s renames package_90s;
    end package_91;
with package_91; use package_91;
package package_92 is
    package package_92s renames package_91s;
    end package_92;
with package_92; use package_92;
package package_93 is
    package package_93s renames package_92s;
    end package_93;
with package_93; use package_93;
package package_94 is
    package package_94s renames package_93s;
    end package_94;
with package_94; use package_94;
package package_95 is
    package package_95s renames package_94s;
    end package_95;
with package_95; use package_95;
package package_96 is
    package package_96s renames package_95s;
    end package_96;
with package_96; use package_96;
package package_97 is
    package package_97s renames package_96s;
    end package_97;
with package_97; use package_97;
package package_98 is
    package package_98s renames package_97s;
    end package_98;
with package_98; use package_98;
package package_99 is
    package package_99s renames package_98s;
    end package_99;
with package_99; use package_99;
package package_100 is
    package package_100s renames package_99s;
    end package_100;