
 PROCEDURE [INLINE] osp$fetch_locked_string (VAR variable: string (8);
    VAR value: string (8));

?? PUSH (LISTEXT := ON) ??

    VAR
      word_in: string (8),
      result: 0 .. 2;

    { Note: Variable required by cybil.
    word_in := 'DOGDOGDO';

    REPEAT
      #compare_swap (variable, word_in, word_in, value, result);
    UNTIL result <> 2;
    IF result = 0 THEN
      value := '        ';
    IFEND;
  PROCEND osp$fetch_locked_string;
?? POP ??
