anchor.diff:      getIdent;
       matchKeyword;
      } else if ch = meta then {
  -     P0503;
  +     CopyACharacter;
        if isLetter( ch) then goto 1322;
        if ch = '(' then {
          SY := kbegin;
  
positive.code:    curmode := initMode;
     }
   };
   (* 1107 *) 'U': {
     P1026( longLines );
     longLines := not longLines;
     if longLines then {
       setMode (2, curmode );
       P0617;
       ch := '+';
       P0344;
     }
   };
   (* 1124*) 'A': {
     getAttr(l3var1z, '3' );
     printErr;
     writeln('PSEUDOCOMM. A', ch);
   };
   (* 1135 *) 'J': {
     P0503;
     meta := ch;
     good := true;
   };
   (* 1142*)'B','C','E','I','K','L','M','N',
            'P','R','S','T','Y','Z','Г': {
     P0503;
     good := true;
   }
   end;
   if good then P0503
   else {
     printErr;
     writeln('ERROR IN PSEUDOCOMMENT');
   };
   until ch <> ',';
   repeat while ch <> '*' do P0503; P0503 until ch = ')';
   glob469z := false;
   inComment := false;
   glob348z := glob347z;
   glob360z := false;
   l2var1z := true;
  };
  procedure P1220;
  {
   while isDigit (nextch) do P0503;
   if isLetter (nextch) or (nextch = '.') then  P0503;
   SY := k0;
  };
  procedure doChar;
  {
   glob469z := true;
   (loop) repeat
   P0503;
   if (ch = '''') and (nextch = '''') then {
     P0503;
     ch := ' ';
     if (nextch = ']') or (nextch = ';') then exit loop;
   }
   until ch = '''';
   glob349z := '_000';
   glob469z := false;
  };
  { (* token *)
   glob360z := false;
   glob348z := glob347z;
   l2var1z := true;
   while l2var1z do {
   P0503;
   l2var1z := ch = ' ';
   if l2var1z and curmode.f0 then {
   if glob356z then 
      P0605
    else
     glob356z := true;
   } else if (ch = '(') and (nextch = '*') then {
     doComment;
   } else {
  
negative.code:   pasended(result);
    init;
    (loop) { (* 3525 *)
    readSpec; token;
    if (inpline[1] = '*') or (inpline[1] = '+') then 
      terminate
    else {
     if SY <> kPROGRAM then synterr;
     optNewLine; token;
     if SY <> kident then synterr;
     write( ' ' );
     for idx := 1 to 8 do {
       if (unp[idx] = 'X') then write( 'X' )
       else write( unp[idx] );
     };
   if first then {
     first := false;
  