anchor.diff:  //changed James Jacobson on 20001221
   begin
     Expected(ptSquareOpen);
  +  PropertyParameter;
  +  while TokenID = ptSemiColon do
  +  begin
  +    SEMICOLON;
  +    PropertyParameter;
  +  end;
  +  Expected(ptSquareClose);
  +end;
  +
  +(*begin
  +  Expected(ptSquareOpen);
     if TokenID = ptConst then
     begin
       PropertyParameterConst;
  
positive.code:   IdentifierList;
    Expected(ptColon);
    TypeId;
    while TokenID = ptSemiColon do
    begin
      SEMICOLON;
      IdentifierList;
      Expected(ptColon);
      TypeId;
    end;
    Expected(ptSquareClose);
  end;*)
  
  procedure TmwSimplePasPar.PropertyParameterConst;
  begin
  
negative.code:   while TokenID = ptSemiColon do
    begin
      SEMICOLON;
      IdentifierList;
      Expected(ptColon);
      TypeId;
    end;
    Expected(ptSquareClose);
  end;*)
  
  procedure TmwSimplePasPar.PropertyParameter;
  begin
    if TokenID = ptConst then
    begin
      PropertyParameterConst;
  