anchor.diff:   GOTO 3354;
   };
   function readInt:integer;
  -var l3var1z:integer;
  -{
  -l3var1z := (0);
  - while (isDigit (nextch)) do {
  -   l3var1z := l3var1z*10 + ord(nextch)-ord('0');
  +var v:integer;
  +{
  +v := 0;
  + while isDigit (nextch) do {
  +   v := v*10 + ord(nextch)-ord('0');
      getch (nextch );
    };
  - readInt := l3var1z;
  + readInt := v;
    while not eol and not isDigit (nextch) and (nextch <> '<') do
      getch (nextch );
   };
  -{ (* P3312 *)
  - glob347z := 0;
  - glob346z := 0;
  - glob348z := -73;
  +{ (* readSpec *)
  + margRight := 0;
  + margSaved := 0;
  + margLeft := -73;
    inComment := false;
  - glob469z := false;
  - glob356z := true;
  + inQuoteOrComm := false;
  + wasSpace := true;
    comMeta := '/';
    meta := '_';
  - glob349z := '_000';
  - glob359z := 1;
  - glob357z := 1;
  - glob412z := 0;
  - pos := 1;
  + checkQuote := '_000';
  + curLinePos := 1;
  + neededPos := 1;
  + offset := 0;
  + stackpos := 1;
    Indent;
    eol := true;
  - errlnum := 1;
  + inplnum := 1;
    for l2var1z := 73 to 80 do line[l2var1z] := '*';
    for l2var1z := 81 to 83 do line[l2var1z] := ' ';
    line[84] := '_012';
  
positive.code:    }
   }
  };
  procedure P1725; { token; token };
  procedure doArray; {
    repeat token until SY = kof;
    doTypeDecl
  
negative.code: var l3var1z:integer; good:boolean;
  procedure getAttr(var l4arg1z:integer; l4arg2z: char);
  {
   CopyACharacter;
   if (ch >= '0') and (ch <= l4arg2z) then {
    l4arg1z := ord(ch) - ord('0');
    good := true;
   }
  };
  procedure getFlag(var l4arg1z:boolean);
  {
   CopyACharacter;
   if (ch = '-') or (ch = '+') then {
   l4arg1z := ch = '+';
   good := true;
  }
  };
  { (* doComment *) 
   inQuoteOrComm := true; inComment := true;
   CopyACharacter; CopyACharacter;
   if (ch = comMeta) or (ch = '=') then repeat
   CopyACharacter;
   good := false;
   case (ch) of
   'F': {
     getAttr(l3var1z, '4');
     if (good) then setMode(l3var1z, curmode)
     else if (ch = 'S') then {
  