%gives ''\newfont myfont=cmr10@14pt''
\newcount\spacing
\newdimen\size
\def\adjs{%adjust spacing
  \baselineskip=\size \multiply\baselineskip by \spacing \divide\baselineskip by 100 \multiply\baselineskip by 6 \divide\baselineskip by 5%6/5 = normal 1.2 addition for character depth
}
\def\newfont#1=#2@#3pt{%name, base, size
  \expandafter\font\csname x#1\endcsname=#2 at #3pt
  \expandafter\edef\csname #1\endcsname{\size=#3pt \adjs \csname x#1\endcsname}
}