Tsor:
   tsorelem:tember
   (eljarasok)

Tpult:    tomb(1..k:sor)
Tpenztar: tomb(1..n:rekord
                       .ember
                       .nyitvae)

tember:rekord
  .neve
  .tomb(1..k:egesz)
  .belepido

tember.tomb[i]:=1

tpenztar[i].ember.nev
                 .tomb[j]
                 .belepido
           .nyitvae

sor.akt^.neve
        .tomb(1..k:egesz)
        .belepido

Vevokezeles parhuzamosan:
   {a bejovo vasarlok pulthozkuldese}
   ciklus amig nem OsszesPult_ures(pultok)
       pultrolkivesz(k db embert)_es_ atallit(k)
       ciklus i:=1-tol k-ig
         sorba(i. ember)
       cv.
      ciklus i:=1-tol k-ig
        sorbol(akt-ot kiveszi)
        pulthoz_vagy_penztarhoz_kuld(akt)
      cv.
     cv. {osszes pult ures}
     {penztaraellenorzese amig nem mindegyik ures}
  elj. vege


Elj. NevGeneral
  (var st:string)
  st:='(ures)'
  svr:=random(253)  - egesz szam
  ciklus i:=1-tol svr-ig
    st:=chr(random(26)+64)      {vezeteknev}
  cv.
  st:=st+'(szunet)'             {a ket nev kozti szunet}
  svr:=255-svr
  ciklus i:=1-tol svr-ig
    st:=chr(random(26)+64)      {keresztnev}
  cv.
elj. vege