\global\newcount\n \global\newcount\m \global\newcount\i
\nopagenumbers
\rm Roman Font
 
\m=0
\loop\ifnum\m<128
\n=\m
\i=0
{\loop\ifnum\i<8 \char\n\  \advance \n by 1 \advance\i by 1\repeat}
\vskip11pt\advance\m by 8\message{\the\m}\repeat
\vfill\eject
\bf Bold Face Font
 
\m=0
\loop\ifnum\m<128
\n=\m
\i=0
{\loop\ifnum\i<8 \char\n\  \advance \n by 1 \advance\i by 1\repeat}
\vskip11pt\advance\m by 8\message{\the\m}\repeat
\vfill\eject
\sl Slant Font
 
\m=0
\loop\ifnum\m<128
\n=\m
\i=0
{\loop\ifnum\i<8 \char\n\  \advance \n by 1 \advance\i by 1\repeat}
\vskip11pt\advance\m by 8\message{\the\m}\repeat
\vfill\eject
\tt Teletype Font
 
\m=0
\loop\ifnum\m<128
\n=\m
\i=0
{\loop\ifnum\i<8 \char\n\  \advance \n by 1 \advance\i by 1\repeat}
\vskip11pt\advance\m by 8\message{\the\m}\repeat
\vfill\eject
\font\mmi=ammi10 scaled \magstep0\mmi
Math\thinspace Italics\thinspace Font
 
\m=0
\loop\ifnum\m<128
\n=\m
\i=0
{\loop\ifnum\i<8 \char\n\thinspace \advance \n by 1 \advance\i by 1\repeat}
\vskip11pt\advance\m by 8\message{\the\m}\repeat
\vfill\eject
{\rm Symbols Font}
\font\msy=amsy10 scaled \magstep0\msy
 
\m=0
\loop\ifnum\m<128
\n=\m
\i=0
{\loop\ifnum\i<8 \char\n\thinspace\advance \n by 1 \advance\i by 1\repeat}
\vskip11pt\advance\m by 8\message{\the\m}\repeat
\vfill\eject
{\rm Extension Font}
\font\mex=amex10 scaled \magstep0\mex
 
\m=0
\loop\ifnum\m<128
\n=\m
\i=0
{\loop\ifnum\i<8 \char\n\thinspace\advance \n by 1 \advance\i by 1\repeat}
\vskip11pt\advance\m by 8\message{\the\m}\repeat
\bye

.
