Generated using this Mathematica code:

StringJoin @@ 
 Table[If[Mod[i, 10] == 9, 
   "[[" <> ToString[i] <> "]]\n |list=" <> 
    ToString[Evaluate[Round[(i - 1900)/10.] + 1]], 
   "[[" <> ToString[i] <> "]]{{*}}"], {i, 1900, 2000}]