setfont1.ps

 %!
 /characters{0  00 moveto (abcdefghijklmnopqrstuvxyz) show
             0 -35 moveto (ABCDEFGHIJKLMNOPQRSTUVXYZ) show
             0 -70 moveto (1234567890-=!@#$%^&*()_+"'<,>.?/) show} def
 50 700 translate
 /TimesRoman findfont 30 scalefont setfont
 characters
 0 -150 translate
 /Helvetica findfont 30 scalefont setfont
 characters
 0 -150 translate
 /Symbol findfont 30 scalefont setfont
 characters
 showpage