-- 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.