🚀 go-pugleaf

Witam!
    Znajoma prosiła mnie o dokończenie prgramu. Niestety zostałem
zawalony własną robotą i pracuje od kilku dni na 2 zmiany.
Czy ktoś z szanownych Grupowiczów zechciał by dopisać
funkcje do przechowywania w pliku na dysku listy dynamicznej
w chwili zakończenia pracy programu i odczytywania jej w momencie
uruchomienia. I funcję sortowania listy wg podanego klucza. Ewentualnie
poprawił wyświetlanie. Wiem, że to nie jest trudne ale nie mam czasu
ani siły uruchomić kopilatora.
    Bardzo dziękuję za ewentualnie poświęcony czas. Zaznaczam,
że nie mam z tego żadnych korzyści materialnych ;-).
    Załączam program który jest jej twórczością.

--
Piotr
jawor@friko.onet.pl
http://friko.onet.pl/lg/jawor
nomina stultorum semper parietibus haerent


begin 666 Lista.c
M+RI414U!5#H@4')Z971W87)Z86YI92!L:7-T>2!Z92!W<VMA>FYI:V%M:2P@
M=V5R<VIA(#4-"G!R>F5T=V%R>F%N:64@;&ES='D@;W-O8BX-"D9U;FMC:F4@
M<')O9W)A;74Z#0HM9&]D86H@96QE;65N="!N82!P;V-Z871E:R!L:7-T>2P-
M"BUD;V1A:B!E;&5M96YT(&YA(&MO;FEE8R!L:7-T>2P-"BMD;V1A:B!E;&5M
M96YT(&YA('!O>GEC:FD@;R!P;V1A;GEM(&YU;65R>F4L#0HM9&]D86H@96QE
M;65N="!W('5P;W)Z;V1K;W=A;FEU(')O<VYO8WEM+ T*+75S=6X@<&EE<G=S
M>GD@96QE;65N="!O('!O9&%N96H@=V%R=&]S8VDL#0HM9')U:W5J(&QI<W1E
M+ T*+6MO;FEE8R H>G=O;&YI96YI92!P86UI96-I*2X-"E=35"!';&]G;W$L
M($I7(&=R=61Z:65N(#DW("HO#0HO*E]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?
M7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U]?7U\J
M+PT*#0HC:6YC;'5D92 \<W1D:6\N:#X-"B-I;F-L=61E(#QC;VYI;RYH/@T*
M(VEN8VQU9&4@/'-T9&QI8BYH/@T*(VEN8VQU9&4@/'-T<FEN9RYH/@T*#0HO
M*D1%1DE.24-*02!35%)52U154ED@0D5$04-%2B!"141!0T5*($5,14U%3E1%
M32!,25-462HO#0IT>7!E9&5F('-T<G5C= T*>PT*(&EN="!N<E]K;VQE:FYY
M.PT*(&-H87(@3F%Z=VES:V\@6S,P73L-"B!C:&%R($EM:64@6S(P73L-"B!C
M:&%R($%D<F5S(%LW,%T[#0H@8VAA<B!-:65J<V-O=V]S8R!;,C!=.PT*(&-H
M87(@5&5L969O;CL-"GT@<W1R3W-O8F$[#0H-"B\J1$5&24Y)0TI!(%-44E5+
M5%5262!45T]26D%#14I5($Q!3D-50T@@4$]724%:04X@5U-+05I.24M/5UE#
M2"HO#0H@='EP961E9B!S=')U8W0@14P-"@E[#0H)"7-T<D]S;V)A($]S;V)A
M.PT*"0ES=')U8W0@14P@*G=S:TYA<W0L("IW<VM0;W!R>CL-"@E]('-T<D5,
M3&ES='D[#0H-"B\J6DU)14Y.02!'3$]"04Q.02!74TM,25-402 M(%=32T%:
M3DE+($Y!(%!)15)74UI9($5,14U%3E0@3$E35%DJ+PT*<W1R14Q,:7-T>2 J
M=W-K3&ES=&$@/2!.54Q,.PT*#0HO*E=#6EE404Y)12!$04Y90T@@2D5$3D5*
M($]33T)9.R!!4D=5345.5$5-($I%4U0@5U-+05I.24M)($Y!(%-44E5+5%52
M12P@1$\@2U1/4D5*($Y!3$5:62!74$E304,@5T-:65195T%.12!$04Y%*B\-
M"G9O:60@5V-Z>71A:D]S;V)E("AS=')/<V]B82 J=W-K3RD-"GL-"@D@<')I
M;G1F("@B4&]D86H@;F%Z=VES:V\@(" @.B(I.R!S8V%N9B H(B5S(BP@=W-K
M3R M/B!.87IW:7-K;RD[#0H)('!R:6YT9B H(E!O9&%J(&EM:64@(" @(" @
M(#HB*3L@<V-A;F8@*"(E<R(L('=S:T\@+3X@26UI92D[#0H)('!R:6YT9B H
M(E!O9&%J(&%D<F5S(" @(" @(#HB*3L@<V-A;F8@*"(E<R(L('=S:T\@+3X@
M061R97,I.PT*"2!P<FEN=&8@*")0;V1A:B!M:65J<V-O=V^8AB Z(BD[('-C
M86YF("@B)7,B+"!W<VM/("T^($UI96IS8V]W;W-C*3L-"@D@<')I;G1F("@B
M4&]D86H@=&5L969O;B @(" @.B(I.R!S8V%N9B H(B5S(BP@=W-K3R M/B!4
M96QE9F]N*3L-"GT-"@T*+RI7641254L@3D$@14M204Y)12!$04Y90T@@3U-/
M0D]764-((%I%(%-44E5+5%5262!/4RHO#0IV;VED($1R=6MU:D]S;V)E("AS
M=')/<V]B82!/<RD-"GL-"@EP<FEN=&8@*"(E<R E<R E<R E<R E<UQN(BP@
M3W,N3F%Z=VES:V\L($]S+DEM:64L($]S+D%D<F5S+"!/<RY-:65J<V-O=V]S
M8RP@3W,N5&5L969O;BD[#0I]#0H-"B\J55-53DE%0TE%(%H@3$%.0U5#2$$@
M14Q%345.5%4@5U-+05I95T%.14=/(%!26D5:($%21U5-14Y4('=32T%:3DE+
M*B\-"G9O:60@57-U;E=S:V%Z86YY("AS=')%3$QI<W1Y("I7<VMA>FYI:RD-
M"GL-"@ES=')%3$QI<W1Y(" J4&]P<GH@/2!7<VMA>FYI:R M/B!W<VM0;W!R
M>BP-"@D)"0D)"0D@*DYA<W0@/2!7<VMA>FYI:R M/B!W<VM.87-T.PT*#0H)
M("\J=7-U=V%N:64@<&EE<G=S>F5G;R!E;&5M96YT=2!W(&QA;F-U8VAU*B\-
M"@D@:68@*%!O<')Z(#T]($Y53$PI"7=S:TQI<W1A(#T@3F%S=#L-"@D)"0D@
M96QS92!0;W!R>B M/B!W<VM.87-T(#T@3F%S=#L-"@T*"2!I9B H3F%S=" A
M/2!.54Q,*2!.87-T("T^('=S:U!O<')Z(#T@4&]P<GH[#0H-"@D@9G)E92 H
M5W-K87IN:6LI.PT*?0T*#0H@+RI54U5.245#244@6B!,04Y#54-(02!02452
M5U-:14=/($5,14U%3E15($\@4$]$04Y932!03TQ5($Y!6E=)4TM/*B\-"B!V
M;VED(%5S=6Y%;&5M96YT("AV;VED*0T*('L-"@D@8VAA<B J3F%Z=VES:V\[
M#0H)('-T<D5,3&ES='D@*E=S:V%Z;FEK.PT*"2!P<FEN=&8@*")5<W5N($5L
M96UE;G1<;EQT+2!P;V1A:B!N87IW:7-K;SI<;B(I.PT*"2!S8V%N9B H(B5S
M(BP@3F%Z=VES:V\I.PT*#0H)"2\J3T136E5,04H@5R!,04Y#54-(52!%3$5-
M14Y4($\@4$]$04Y932!.05I725-+52HO#0H)"69O<B H5W-K87IN:6L@/2!W
M<VM,:7-T83L@5W-K87IN:6L@(3T@3E5,3#L@5W-K87IN:6L@/2!7<VMA>FYI
M:R M/B!W<VM.87-T*0T*"0D):68@*'-T<F-M<" H5W-K87IN:6L@+3X@3W-O
M8F$N3F%Z=VES:V\L($YA>G=I<VMO*2 ]/2 P*0T*"0D)('L-"@D)"0D)57-U
M;E=S:V%Z86YY("A7<VMA>FYI:RD[#0H)"0D)"7)E='5R;CL-"@D)"2!]#0H)
M"0EP=71C:&%R("@W*3L@+RIB965P*B\-"@D)"7!R:6YT9B H(")/<V]B82 E
M<R!N:64@>FYA:F1U:F4@<VEE('<@<&]S:6%D86YY;2!S<&ES:64@=&5L969O
M;F]W("%<;B(L($YA>G=I<VMO*3L-"GT-"@T*#0H-"B\J1E5.2T-*02!$3T1!
M2D4@05)'54U%3E0@8$Q)0UI"06 @4$]-245$6ED@14Q%345.5%D@5U-+05I9
M5T%.12!04EI%6B!74TM!6DY)2TD@4$]04EH@22!.05-4+B!04EI94$%$2TD@
M4T-:14=/3$Y%.@T*4$]04EH@/3T@3E5,3" @+2!$3T1!2B!.02!03T-:051%
M2R!,25-460T*3D%35" ]/4Y53$P@+2!$3T1!2B!.02!+3TY)14,@3$E35%DJ
M+PT*#0IV;VED($1O9&%J4&]M:65D>GD@*'-T<D]S;V)A($]S+"!S=')%3$QI
M<W1Y("I0;W!R>BP@<W1R14Q,:7-T>2 J3F%S="D-"GL-"@ES=')%3$QI<W1Y
M("I7<VMA>FYI:SL-"@DO*D%,3TM!0TI!(%!!34E%0TD@3D$@4D5+3U)$(%!2
M6D5#2$]754I!0UD@3D]762!%3$5-14Y4($Q)4U19*B\-"@E7<VMA>FYI:R ]
M(&UA;&QO8R@@<VEZ96]F*"!S=')%3$QI<W1Y("D@*3L-"@T*"6EF("A7<VMA
M>FYI:R ]/2!.54Q,*0T*"7L-"@D)<'5T<R H(D)L860@+2!B<F%K('!A;6EE
M8VDA(BD[#0H)"65X:70@*#$I.PT*"7T-"@T*"2\J24Y)0TI!3$E:04-*02!0
M3TP@3D]714=/(%)%2T]21%4J+PT*"5=S:V%Z;FEK("T^($]S;V)A(#T@3W,[
M#0H)5W-K87IN:6L@+3X@=W-K4&]P<GH@/2!0;W!R>CL-"@E7<VMA>FYI:R M
M/B!W<VM.87-T(#T@3F%S=#L-"@T*"6EF("A0;W!R>B A/2!.54Q,*2!0;W!R
M>B M/B!W<VM.87-T(#T@5W-K87IN:6L["2 O*DI%4TQ)($E35$Y)14I%($5,
M14U%3E0@4%):140@3D]73R!$3T1!3EE-*B\-"@D)96QS92!W<VM,:7-T82 ]
M(%=S:V%Z;FEK.R O*D1/1$%.62!%3$5-14Y4(%-404P@4TE%($Y/5UE-(%!/
M0UI!5$M)14T@3$E35%DJ+PT*#0H):68@*"!.87-T("$]($Y53$PI($YA<W0@
M+3X@=W-K4&]P<GH@/2!7<VMA>FYI:SL@+RI*15-,22!)4U1.245*12!%3$5-
M14Y4(%I!($Y/5T\@1$]$04Y932HO#0I]#0H-"@T*#0H-"@DO*D953DM#2D$@
M1$]$04I%($%21U5-14Y4($Y!(%!/0UI!5$5+($Q)4U19*B\-"G9O:60@1&]D
M86I0;V-Z871E:TQI<W1Y("@@<W1R3W-O8F$@3W,I#0I[#0H)($1O9&%J4&]M
M:65D>GD@*$]S+"!.54Q,+"!W<VM,:7-T82D[#0I]#0H-"B\J1E5.0TM!(%=3
M5$%724$@;W,N($\@($1/($Q)4U19(%!26D5$(%!)15)74UI932!.05I725-+
M245-(%=)14M36EE-($)!1%H@4D]73EE-($Y/5T5-52HO#0IV;VED($1O9&%J
M4F]S;F%C;R H<W1R3W-O8F$@3W,I#0I[#0H)<W1R14Q,:7-T>2 J4&]P<GHL
M("I.87-T.PT*"5!O<')Z(#T@3E5,3#L-"@E.87-T(#T@=W-K3&ES=&$[#0H)
M=VAI;&4@*$YA<W0@(3T@3E5,3" F)B!S=')C;7 @*"!.87-T("T^($]S;V)A
M+DYA>G=I<VMO+"!/<RY.87IW:7-K;RD@/" P*0T*"0E[#0H@(" @("!0;W!R
M>B ]($YA<W0[#0H@(" @("!.87-T(#T@3F%S=" M/B!W<VM.87-T.PT*"0E]
M#0H@(" @1&]D86I0;VUI961Z>2 H3W,L(%!O<')Z+"!.87-T*3L-"GT-"@T*
M#0H@("\J1E5.2T-*02!$4E5+54I%($M/3$5*3D\@5U-:65-42TE%($5,14U%
M3E19($Q)4U19*B\-"@T*("!V;VED($1R=6MU:DQI<W1E("AV;VED*0T*"7L-
M"@D)<W1R14Q,:7-T>2 J5W-K87IN:6L[#0H)"6-L<G-C<B@I.PT*"0EP<FEN
M=&8@*" B6F%W87)T;W-C(&QI<W1Y.EQN(BD[#0H)"69O<B H5W-K87IN:6L@
M/2!W<VM,:7-T83L@5W-K87IN:6L@(3T@3E5,3#L@5W-K87IN:6L@/2!7<VMA
M>FYI:R M/B!W<VM.87-T*0T*"0D)"41R=6MU:D]S;V)E("A7<VMA>FYI:R M
M/B!/<V]B82D[#0H)"7!R:6YT9B H(EQN(#P@2V]N:65C(#Y<;B(@*3L-"@E]
M#0H-"@DO*BTM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2HO#0H)+RI&54Y+0TI!
M(%5355=!($Q)4U1%.B!:5T%,3DE!(%!!34E%0R!04EI91%I)14Q/3D$@3D$@
M5U-:65-42TE%(%)%2T]21%D-"@E7($Q!3D-50TA5($Q)4U19*B\-"@T*"79O
M:60@6G=O;&YI:E!A;6EE8R H=F]I9"D-"@E[#0H)"2!S=')%3$QI<W1Y("I7
M<VMA>FYI:SL-"@D)(%=S:V%Z;FEK(#T@=W-K3&ES=&$[#0H)"2!W:&EL92 H
M5W-K87IN:6L@(3U.54Q,*0T*"0D)>R!W<VM,:7-T82 ]('=S:TQI<W1A("T^
M=W-K3F%S=#L-"@D)"0EP<FEN=&8@*")5<W5W86T@96QE;65N=" E9"(L(%=S
M:V%Z;FEK("T^($]S;V)A+DYA>G=I<VMO*3L-"@D)"0EF<F5E("A7<VMA>FYI
M:RD[#0H)"0D)5W-K87IN:6L@/2!W<VM,:7-T83L-"@D)"7T-"@D)('=S:TQI
M<W1A(#T@($Y53$P[#0H)"2!C;')S8W(H*3L-"@D)('!U=',@*" B7&Y<;EQN
M7&Y<=%QT(%I/4U1!3%D@55-53DE%5$4@5U-:65-42TE%($1!3D4@6B!,25-4
M62 A(2$B*3L-"@D)('!U=',@* DB7&Y<;EQT7'1<="!+3TY)14,@4%)/1U)!
M354@*&YA8VES;FEJ(#QE;G1E<CXI(" @(" @(B I.PT*"7T-"@T*"2\J+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM+2TM
M+2TM+2TM+2TM+2TM+2TM+2TM+2TM*B\-"@EV;VED(&UE;G4@*'9O:60I#0H)
M>PT*"2\J1%)52U5*(%!/34]#*B\-"@EC;')S8W(H*3L-"@EP=71S("@B7&Y<
M;EQN7'0@4&]L96-E;FEA($U%3E5<;B(-"@D)"0DB7'1<="!P("T@9&]D86H@
M;F$@<&]C>F%T96L@;&ES='E<;B(-"@D)"0DB7'1<="!R("T@=W-T87<@96QE
M;65N="!R;W-N86-O7&XB#0H)"0D)(EQT7'0@=2 M('5S=6X@96QE;65N=" H
M<&EE<G=S>GD@;F%P;W1K86YY(&\@9&%N96H@=V%R=&]S8VDI7&XB#0H)"0D)
M(EQT7'0@9" M(&1R=6MU:B!L:7-T95QN(@T*"0D)"2)<=%QT('$@+2!K;VYI
M96,@<')O9W)A;75<;B(I.PT*"7T-"@T*"79O:60@;6%I;B H=F]I9"D-"@E[
M#0H)"7-T<D]S;V)A($]S;V)A.PT*"0EI;G0@4&]L96-E;FEE.R O*B!.<E!O
M>GEC:FD[*B\-"@D)8VAA<B!.87IW:7-K;R!;,S!=.PT*#0H)"6-L<G-C<B@I
M.PT*"0EW:&EL92 H,2D@+RI70UI95$%.244@4$],14-%3DE!*B\-"@D)>PT*
M"0D);65N=2@I.PT*"0D)<')I;G1F("@B5WEB:65R>B!P;WIY8VJI($U%3E4Z
M(BD[#0H)"0E0;VQE8V5N:64@/2!G971C:&4H*3L)<'5T8VAA<B H)UQN)RD[
M#0H-"@D)"7-W:71C:" H4&]L96-E;FEE*0T*"0D)>PT*"0D)"6-A<V4@)W G
M.B\J9&]D86YI92!N;W=E9V\@96QE;65N='4@;F$@<&]C>F%T96L@;&ES='DJ
M+PT*"0D)"0D)<')I;G1F("@B1&]D86H@<&]C>J5T96L@+2!P;V1A:B!D86YE
M(&]S;V)O=V4Z("!<;B(I.PT*"0D)"0D)5V-Z>71A:D]S;V)E("@F($]S;V)A
M*3L-"@D)"0D)"41O9&%J4&]C>F%T96M,:7-T>2 H3W-O8F$I.PT*"0D)"0D)
M1')U:W5J3&ES=&4H*3L-"@D)"0D)8G)E86L[#0H-"@D)"2!C87-E("=R)SHO
M*D1/1$%.244@3D]714=/($5,14U%3E15(%)/4TY!0T\J+PT*"0D)"0D)<')I
M;G1F("@B1&]D86H@4F]S;F%C;R M('!O9&%J(&1A;F4@;W-O8F]W93I<;B(@
M*3L-"@D)"0D)"5=C>GET86I/<V]B92 H)B!/<V]B82D[#0H)"0D)"0E$;V1A
M:E)O<VYA8V\@*$]S;V)A*3L-"@D)"0D)"41R=6MU:DQI<W1E("@I.PT*"0D)
M"0EB<F5A:SL-"@T*"0D)(&-A<V4@)W4G.B\J55-53DE%0TE%(%!)15)74UI%
M1T\@14Q%345.5%4@3R!03T1!3D5*(%=!4E1/4T-)*B\-"@D)"0D)"6-L<G-C
M<B@I.PT*"0D)"0D):68@*'=S:TQI<W1A(#T]($Y53$PI('!U=',@*")"<F%K
M('=P:7.B=R!N82!L:9AC:64@7&$B*3L-"@D)"0D)"0EE;'-E(%5S=6Y%;&5M
M96YT("@I.PT*"0D)"0EB<F5A:SL-"@T*"0D)8V%S92 G9"<Z("\J1%)52T]7
M04Y)12!:05=!4E1/4T-)($Q)4U19*B\-"@D)"0D)"6-L<G-C<B@I.PT*"0D)
M"0D):68@*'=S:TQI<W1A(#T]($Y53$PI('!U=',@*")"<F%K('=P:7.B=R!N
M82!L:9AC:64@7&$B*3L-"@D)"0D)"0EE;'-E($1R=6MU:DQI<W1E("@I.PT*
M"0D)"0EB<F5A:SL-"@T*"0D)8V%S92 G<2<Z("\J2T].245#(%!204-9(%!2
M3T=204U5*B\-"@D)"0D)(%IW;VQN:6I086UI96,@*"D[#0H)"0D)"2!G971C
M:"@I.PT*"0D)"2!R971U<FX[#0H-"@D)"61E9F%U;'0Z#0H)"0D)"7L-"@D)
M"0D)('!U=',@*")<;EQT7'1<=%J(>2!K;&%W:7-Z("$A(2!<82(I.PT*"0D)
M"0D@8VQR<V-R*"D[#0H)"0D)"7T-"@D@?0T*"7T-"GT-"@D@+RHM+2TM+2TM
M+2TM+2TM+2TM+4M/3DE%0R!04D]'4D%-52TM+2TM+2TM+2TM+2TM+2TM+2TM
(+2TM+2TM*B\`
`
end