@startuml
skinparam monochrome true
start
while ()
	:status = monitor.Open();
	if (status) then (failed)
		:print("Unable to start server");
		stop
	else (succeed)
		:monitor.AcceptClient();
		:serverOk!;
		
		:stopServer?;
		:monitor.Close();
	endif
endwhile
stop
@enduml