S
PL_
PL_
PL_LOCK{%}
*
      LOOP
         LK$$$ = NO
         LOCK {%1} ELSE
            LK$$$ = YES
         END
      WHILE LK$$$ DO
         SLEEP .1
      REPEAT
