Constant ttaulusize=99;

Array vartobjtaulu->ttaulusize; ! 
Array ->ttdatasize; ! av?
Array ttdatataulu->ttdatasize; ! luku ja tyyppi

! 28 sädetys 1
! 29 nakki ja muusi 2 
! 30 hämähäkit 1

! initialise 
! o objekti
! lkm = objektien määrä joilla lname
! ttsanat = objektin prop taivutettavien sanojen lukumäärä
! viitenro = 1+ (lkm+ttsanat )

 objectloop (o provides lname)
 {
 for(::) 
 {
 
 viitenro++; 
 }


 ! jos viitenro > ttaulusize, tulostetaan error eli virheilmoitus.
 ! jos viitenro < taulusize, voidaan tulostaa varoitus.
 

 ! syötetään tauluun jotta saadaan viitenumerot 


 }
 
 ! objectloop vart -- melkein sama juttu