Un esempio di monitor single resource: monitor
begin
busy: Boolean;
nonbusy: condition;
procedure acquire;
begin
if busy then nonbusy.wait;
busy := true
end;
procedure release;
begin
busy := false;
nonbusy.signal
end;
busy := false;
end single resource Pietro Tessarolo