(font)
(font takes a family name and pointsize. It assumes medium, regular, regular for the weight, slope, and expansion parts of the face.)
((M)(R)(R) .encodeface 0 .setpressfont)/xdef

(ptext)
(ptext takes a string and x,y position and writes the string at that x,y position.)
(.moveto .presstext).cvx .def