Kontroll-Prozedur

AddressBook2.om

PROCEDURE ProcessCommands; (* maintain an address book by processing commands for it *) VAR addressBook: AddressBook; index: INTEGER; (* of addressBook *) command: ARRAY 16 OF CHAR; (* command read from input *) entry: Entry; (* a new entry; used by ``new'' *) name: Name; (* used as arg for ``search'' or ``delete'' *) BEGIN InitAddressBook(addressBook); LOOP Write.String("address book> "); Read.Line(command); IF Streams.stdin.count = 0 THEN EXIT END; (* ... process command ... *) END; END ProcessCommands;

Durch die Abwesenheit globaler Variablen findet kein unbeabsichtiger Zugriff auf die Variablen statt, die für die Verwaltung notwendig sind.

Stattdessen werden die Zugriffe durch die Prozeduraufrufe reglementiert.

	Durch die Abwesenheit globaler Variablen findet kein unbeabsichtiger Zugriff auf die Variablen statt, die für die Verwaltung notwendig sind.
	Stattdessen werden die Zugriffe durch die Prozeduraufrufe reglementiert.