Generated using this Mathematica code (here for the 18th century):

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