asynchSystem: obj LIB.SimpleConcurrentProcesses.System
%visible LIB.SimpleConcurrentProcesses
records: obj IndexedRef(,#Person)
initRec:
search:
%globals printer,records
current: ref Person
Person:
%globals
%immutable
Searcher: Process
searcherA: obj Searcher
searcherB: obj Searcher
searcherC: obj Searcher
printer: obj Process
add: entry
s: var integer
doStop: entry