gegevensbank, een eenvoudige procedure, die een aantal moedige object en voorgelegd aan de database van de lijst.,, vaak noodzakelijk is voor de uitvoering van een object of meerdere van de database.Dit proces heeft een lijst van voorwerp en doel van de lijst toevoegen aan een lijst van alle misdaden die in één enkele procedure.,,,,, updatedatabasewithobjects (doel: - totaal);,,, ik var,:.;,,,, tboldindirectelement niet:; lstobjs:tboldobjectlist;,,,,,, currobj:tboldelement; lstobjs:= nul;,, niet: - = nul;,,,,,, lstobjs:= tboldobjectlist. Creëren; niet: = tboldindirectelement. Creëren;,,, ik: = 0 meter (doel) 1 om te beginnen, currobj:= object [I]. Vobject als tboldelement;,,,, als niet toegewezen (currobj) en,,,,, als je niet blijven; (currobj is tboldobject) of (currobj is tboldobJectlist)) en verbetering van de anomalie, en het creëren van (". Updatedatabasewithobjects: alleen bij het tboldobject of tboldobjectlist"), anderzijds, te beginnen, currobj. Getaslist (BIE);,, lstobjs. Addlist (BIE. Waarde tboldlist);,,,,,,, aan het einde van het;; als lstobjs.count > 0 dan. Lstobjs [0]. Boldsystem. Updatedatabasewithlist (lstobjs); en, tot slot, de vrijheid, de lstobjs.;,, stop. Vrijheid,,,,,,,, einde.