-- Test.sak -- last edited by Suzuki: 1-Oct-81 9:56:19 FIFO: MONITOR LOCKS LOCK = BEGIN guardian: PROC = {{Initialized: BOOLEAN ← FALSE; }}; p: PROC; p ← FORK guardian[]; {A: ARRAY INTEGER [1..37] OF CARDINAL; rp, wp: CARDINAL; DO Connector.GetNew[Init, TRUE]; rp ← wp ← 0 ENDLOOP}; [] ← JOIN p; NULL END.