Einfügen neuer Einträge

AddressBook.om

(* fill new entry *) entry.used := TRUE; Write.String("Name: "); Read.Line(entry.name); Write.String("City: "); Read.Line(entry.city); (* look for a free slot *) index := 0; WHILE (index < maxentries) & addressBook[index].used DO INC(index); END; IF index = maxentries THEN Write.Line("Sorry, your address book is already full!"); ELSE addressBook[index] := entry; END;

Zunächst werden in entry alle Angaben eingetragen.

Danach wird nach einem freien Eintrag im Adreßbuch gesucht.

Records des identischen Typs können einander zugewiesen werden. Dann werden sämtliche Felder kopiert.

	Zunächst werden in entry alle Angaben eingetragen.
	Danach wird nach einem freien Eintrag im Adreßbuch gesucht.
	Records des identischen Typs können einander zugewiesen werden. Dann werden sämtliche Felder kopiert.