Javitas

[Gyorgy Thek]

Tisztelt Listatagok!

E levelem kiegeszites a hosszabbitasok osszegezesenek temakorehez.
Smoky hivta fel ra a figyelmet, hogy valami nem stimmel.

Hat persze, hogy elszurtam valamit! A kiprobalashoz kihuztam azt az
ellenorzest, ami szetvalogatja a kolcsonmzeseket es a hosszabbitasokat,
hogy tobb minden szerepeljen a kiirasban. Igy viszont az osszes kolcsonzes
is listazodik, ami teljesen felesleges. A javitashoz torolni kell par
megjegyzes jelet.

Bocsanatot kerek!

A javitott program:
------------------------------------------------------------------------
LONG SZAMLALO=0;
LONG OSSZES=0;

Kategoriaja( INT par ) OKATEG_rt
{
   PRINT( " Kat: ",#MEGNEVEZES,"\n" );
}

Olvasoja( INT par ) USER_rt
{
   IF( FNUM( #KATEGORIA ) == 0 )
   {
      CPRINT( "\n" );
      RETURN 1;
   };
   CALL( Kategoriaja,#KATEGORIA,"","",par );
}

Cime( INT par ) DOKUMENTUM_rt
{
   PRINT( "Cím: ",#FOCIM,"" );
}

Peldanya( INT par ) PELDANY_rt
{
   CALL( Cime,#KOTETE,"","",par );
}

Kolcs( INT par ) KOLCS_rt
{INT hossz;

   hossz=FLD_INT(#HOSSZABITVA);

   IF( hossz > 0 )
   {

      SZAMLALO=SZAMLALO+1;
      NPRINT( "",SZAMLALO,4,". " );
      PRINT("Vissza: ",#VISSZA,"");
      NPRINT(" Hossz: ",hossz,1," ");
      OSSZES=OSSZES+hossz;
      CALL( Peldanya,#KOLCSONZOTT,"","",par );
      CALL( Olvasoja,#KOLCSONOZTE,"","",par );

   };

}

Egyeb()
{
    PRINT("Egyéb rekord:",##FOMEZO,"");
}

PROG Hosszabbitasok()
{
   IF( Kolcs(0) == 0 )
      Egyeb();
}

AFTER_PROG Lablec()
{
   NPRINT( "\nA hossszabítások száma összesen:",OSSZES,8,"\n" );
}
---------------------------------------------------------------------------

A nyomtato nyelven irt programban csak teljes osszegzeseket lehet csinalni,
nincsen arra mod, hogy egyes olvasok vagy egyes kategoriak hosszabbitasait
kulon-kulon osszegezni lehessen. Olyan programot, ami megszamolna, hogy
X. Y. hanyszor hosszabbitott mas modon, igazi TextLib modulkent lehet csak
kesziteni.

Lehetne a halmazt olvasok vagy olvasoi kategoriak szerint rendezni, es
akkor legalabb egymast koveto sorokba irodnanak az azonos jellemzoju
hosszabbitasok.

Udvozlettel:
                Thek Gyorgy