anchor.diff:    end;
   
     Result := Result + 'STIT,';
  +
  +  if (Self.emLock) then
  +    Result := Result + '!ZAV<,'
  +  else
  +    Result := Result + 'ZAV>,';
   
     if (RCSi.simulation) then
     begin
  
positive.code: begin
    Result := inherited;
  
    if ((Self.status = pstOff) and (not Self.zaver)) then
      Result := Result + 'PST>,'
    else if ((Self.status = pstTakeReady) and (not Self.error)) then
      Result := Result + 'PST<,'
  
negative.code:   if ((Self.status = pstActive) and (release) and (not take)) then
    begin
      // release pst
      if (Self.emLock) then
        Self.status := pstOff
      else
        Self.status := pstTakeReady;
    end;
  end;
  
  